$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