$F1CA/61898: Output One Character
F1CA: 48 PHA
F1CB: A5 9A LDA $9A ; Default Output Device (3)
F1CD: C9 03 CMP #$03
F1CF: D0 04 BNE $F1D5
F1D1: 68 PLA
F1D2: 4C 16 E7 JMP $E716 ; Output to Screen
Jump from $F1CF:
F1D5: 90 04 BCC $F1DB
F1D7: 68 PLA
F1D8: 4C DD ED JMP $EDDD ; Send Serial Deferred
Jump from $F1D5:
F1DB: 4A LSR
F1DC: 68 PLA
Jump from $F2D4:
F1DD: 85 9E STA $9E ; Tape Error log pass 1
F1DF: 8A TXA
F1E0: 48 PHA
F1E1: 98 TYA
F1E2: 48 PHA
F1E3: 90 23 BCC $F208
F1E5: 20 0D F8 JSR $F80D ; Bump Tape Pointer
F1E8: D0 0E BNE $F1F8
F1EA: 20 64 F8 JSR $F864 ; Initiate Tape Write
F1ED: B0 0E BCS $F1FD
F1EF: A9 02 LDA #$02
F1F1: A0 00 LDY #$00
F1F3: 91 B2 STA ($B2),Y ; Pointer: Start Address of Tape Buffer
F1F5: C8 INY
F1F6: 84 A6 STY $A6 ; Pointer: Tape I/O buffer
Jump from $F1E8:
F1F8: A5 9E LDA $9E ; Tape Error log pass 1
F1FA: 91 B2 STA ($B2),Y ; Pointer: Start Address of Tape Buffer
Jump from $F20B:
F1FC: 18 CLC
Jump from $F1ED:
F1FD: 68 PLA
F1FE: A8 TAY
F1FF: 68 PLA
F200: AA TAX
F201: A5 9E LDA $9E ; Tape Error log pass 1
F203: 90 02 BCC $F207
F205: A9 00 LDA #$00
Jump from $F203:
F207: 60 RTS
Jump from $F1E3:
F208: 20 17 F0 JSR $F017 ; Send to RS232 Buffer
F20B: 4C FC F1 JMP $F1FC
Previous Page / Next Page