$AB7B/43899: Perform [get]
AB7B: 20 A6 B3 JSR $B3A6 ; Confirm Program Mode
AB7E: C9 23 CMP #$23
AB80: D0 10 BNE $AB92
AB82: 20 73 00 JSR $0073 ; CHRGET: Get next Byte of BASIC Text
AB85: 20 9E B7 JSR $B79E ; Evaluate Text to 1 Byte in XR
AB88: A9 2C LDA #$2C
AB8A: 20 FF AE JSR $AEFF ; Test ','
AB8D: 86 13 STX $13 ; File number of current Input Device
AB8F: 20 1E E1 JSR $E11E ; Set Up For Input
Jump from $AB80:
AB92: A2 01 LDX #$01
AB94: A0 02 LDY #$02
AB96: A9 00 LDA #$00
AB98: 8D 01 02 STA $0201 ; BASIC Input Buffer (Input Line from Screen)
AB9B: A9 40 LDA #$40
AB9D: 20 0F AC JSR $AC0F ; Perform [read]
ABA0: A6 13 LDX $13 ; File number of current Input Device
ABA2: D0 13 BNE $ABB7 ; Perform [input#]
ABA4: 60 RTS
Previous Page / Next Page