$ABBF/43967: Perform [input]
ABBF: C9 22 CMP #$22
ABC1: D0 0B BNE $ABCE
ABC3: 20 BD AE JSR $AEBD ; Continue Expression
ABC6: A9 3B LDA #$3B
ABC8: 20 FF AE JSR $AEFF ; Test ','
ABCB: 20 21 AB JSR $AB21 ; Output String
Jump from $ABC1, $ABB2:
ABCE: 20 A6 B3 JSR $B3A6 ; Confirm Program Mode
ABD1: A9 2C LDA #$2C
ABD3: 8D FF 01 STA $01FF ; BASIC Stack Area
Jump from $ABF1:
ABD6: 20 F9 AB JSR $ABF9 ; Do Input Prompt
ABD9: A5 13 LDA $13 ; File number of current Input Device
ABDB: F0 0D BEQ $ABEA ; Read Input Buffer
ABDD: 20 B7 FF JSR $FFB7 ; Read I/O Status Word
ABE0: 29 02 AND #$02
ABE2: F0 06 BEQ $ABEA ; Read Input Buffer
ABE4: 20 B5 AB JSR $ABB5 ; Perform [input#]
ABE7: 4C F8 A8 JMP $A8F8 ; Perform [data]
Previous Page / Next Page