$FE66/65126:   Warm Start Basic

FE66: 20 15 FD  JSR $FD15     ; Restore Kernal Vectors
FE69: 20 A3 FD  JSR $FDA3     ; Initialise I/O
FE6C: 20 18 E5  JSR $E518     ; Initialize I/O
FE6F: 6C 02 A0  JMP ($A002)   ; Restart Vectors

Jump from $FE54, $FE64:

FE72: 98        TYA
FE73: 2D A1 02  AND $02A1     ; RS232 Enables
FE76: AA        TAX
FE77: 29 01     AND #$01
FE79: F0 28     BEQ $FEA3
FE7B: AD 00 DD  LDA $DD00     ; CIA2: Data Port A (Serial Bus, RS232, VIC Base Mem.)
FE7E: 29 FB     AND #$FB
FE80: 05 B5     ORA $B5       ; RS232 Next Bit to send/Tape Read - End of Tape
FE82: 8D 00 DD  STA $DD00     ; CIA2: Data Port A (Serial Bus, RS232, VIC Base Mem.)
FE85: AD A1 02  LDA $02A1     ; RS232 Enables
FE88: 8D 0D DD  STA $DD0D     ; CIA2: Interrupt (NMI) Control Register
FE8B: 8A        TXA
FE8C: 29 12     AND #$12
FE8E: F0 0D     BEQ $FE9D
FE90: 29 02     AND #$02
FE92: F0 06     BEQ $FE9A
FE94: 20 D6 FE  JSR $FED6     ; NMI RS232 In
FE97: 4C 9D FE  JMP $FE9D

Jump from $FE92:

FE9A: 20 07 FF  JSR $FF07     ; NMI RS232 Out

Jump from $FE8E, $FE97:

FE9D: 20 BB EE  JSR $EEBB     ; RS232 Send
FEA0: 4C B6 FE  JMP $FEB6

Jump from $FE79:

FEA3: 8A        TXA
FEA4: 29 02     AND #$02
FEA6: F0 06     BEQ $FEAE
FEA8: 20 D6 FE  JSR $FED6     ; NMI RS232 In
FEAB: 4C B6 FE  JMP $FEB6

Jump from $FEA6:

FEAE: 8A        TXA
FEAF: 29 10     AND #$10
FEB1: F0 03     BEQ $FEB6
FEB3: 20 07 FF  JSR $FF07     ; NMI RS232 Out

Jump from $FEA0, $FEAB, $FEB1:

FEB6: AD A1 02  LDA $02A1     ; RS232 Enables
FEB9: 8D 0D DD  STA $DD0D     ; CIA2: Interrupt (NMI) Control Register

    Previous Page / Next Page