$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