$F017/61463: Send to RS232 Buffer
Jump from $F208:
F017: AC 9E 02 LDY $029E ; RS232 Index to End of Output Buffer
F01A: C8 INY
F01B: CC 9D 02 CPY $029D ; RS232 Pointer: High Byte of Output Buffer
F01E: F0 F4 BEQ $F014 ; No DSR (Data Set Ready) Error
F020: 8C 9E 02 STY $029E ; RS232 Index to End of Output Buffer
F023: 88 DEY
F024: A5 9E LDA $9E ; Tape Error log pass 1
F026: 91 F9 STA ($F9),Y ; RS232 Output Buffer Pointer
Jump from $F014:
F028: AD A1 02 LDA $02A1 ; RS232 Enables
F02B: 4A LSR
F02C: B0 1E BCS $F04C
F02E: A9 10 LDA #$10
F030: 8D 0E DD STA $DD0E ; CIA2: Control Register A
F033: AD 99 02 LDA $0299 ; RS232 Baud Rate; Full Bit time microseconds
F036: 8D 04 DD STA $DD04 ; CIA2: Timer A Low-Byte (RS232)
F039: AD 9A 02 LDA $029A ; RS232 Baud Rate; Full Bit time microseconds
F03C: 8D 05 DD STA $DD05 ; CIA2: Timer A High-Byte (RS232)
F03F: A9 81 LDA #$81
F041: 20 3B EF JSR $EF3B ; Disable Timer
F044: 20 06 EF JSR $EF06 ; Send New RS232 Byte
F047: A9 11 LDA #$11
F049: 8D 0E DD STA $DD0E ; CIA2: Control Register A
Jump from $F02C:
F04C: 60 RTS
Previous Page / Next Page