$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