$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