$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