$F157/61783:   Input a byte

F157: A5 99     LDA $99       ; Default Input Device (0)
F159: D0 0B     BNE $F166
F15B: A5 D3     LDA $D3       ; Cursor Column on current Line
F15D: 85 CA     STA $CA       ; Cursor X/Y position at start of Input
F15F: A5 D6     LDA $D6       ; Current Screen Line number of Cursor
F161: 85 C9     STA $C9       ; Cursor X/Y position at start of Input
F163: 4C 32 E6  JMP $E632     ; Input From Screen or Keyboard

Jump from $F159, $F14C:

F166: C9 03     CMP #$03
F168: D0 09     BNE $F173
F16A: 85 D0     STA $D0       ; Flag: Input from ...
F16C: A5 D5     LDA $D5       ; Current logical Line length: 39 or 79
F16E: 85 C8     STA $C8       ; Pointer: End of Line for Input
F170: 4C 32 E6  JMP $E632     ; Input From Screen or Keyboard

Jump from $F168:

F173: B0 38     BCS $F1AD     ; Get From Tape / Serial / RS232
F175: C9 02     CMP #$02
F177: F0 3F     BEQ $F1B8     ; Get From Tape / Serial / RS232
F179: 86 97     STX $97       ; Storage of Y Register during RS232 fetch
F17B: 20 99 F1  JSR $F199     ; Get From Tape / Serial / RS232
F17E: B0 16     BCS $F196
F180: 48        PHA
F181: 20 99 F1  JSR $F199     ; Get From Tape / Serial / RS232
F184: B0 0D     BCS $F193
F186: D0 05     BNE $F18D
F188: A9 40     LDA #$40
F18A: 20 1C FE  JSR $FE1C     ; Control OS Messages

Jump from $F186:

F18D: C6 A6     DEC $A6       ; Pointer: Tape I/O buffer
F18F: A6 97     LDX $97       ; Storage of Y Register during RS232 fetch
F191: 68        PLA
F192: 60        RTS

Jump from $F184:

F193: AA        TAX
F194: 68        PLA
F195: 8A        TXA

Jump from $F17E:

F196: A6 97     LDX $97       ; Storage of Y Register during RS232 fetch
F198: 60        RTS

    Previous Page / Next Page