$ABA5/43941:   Perform [input#]

ABA5: 20 9E B7  JSR $B79E     ; Evaluate Text to 1 Byte in XR
ABA8: A9 2C     LDA #$2C
ABAA: 20 FF AE  JSR $AEFF     ; Test ','
ABAD: 86 13     STX $13       ; File number of current Input Device
ABAF: 20 1E E1  JSR $E11E     ; Set Up For Input
ABB2: 20 CE AB  JSR $ABCE     ; Perform [input]

Jump from $AA83, $ABE4:

ABB5: A5 13     LDA $13       ; File number of current Input Device

Jump from $ABA2:

ABB7: 20 CC FF  JSR $FFCC     ; Restore I/O Vector
ABBA: A2 00     LDX #$00
ABBC: 86 13     STX $13       ; File number of current Input Device
ABBE: 60        RTS

    Previous Page / Next Page