$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