$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