$E632/58930:   Input From Screen or Keyboard

Jump from $F163, $F170:

E632: 98        TYA
E633: 48        PHA
E634: 8A        TXA
E635: 48        PHA
E636: A5 D0     LDA $D0       ; Flag: Input from ...
E638: F0 93     BEQ $E5CD     ; Input From Keyboard

Jump from $E61D, $E626, $E62E:

E63A: A4 D3     LDY $D3       ; Cursor Column on current Line
E63C: B1 D1     LDA ($D1),Y   ; Pointer: Current Screen Line Address
E63E: 85 D7     STA $D7       ; Current Input Character/Last Character Output
E640: 29 3F     AND #$3F
E642: 06 D7     ASL $D7       ; Current Input Character/Last Character Output
E644: 24 D7     BIT $D7       ; Current Input Character/Last Character Output
E646: 10 02     BPL $E64A
E648: 09 80     ORA #$80

Jump from $E646:

E64A: 90 04     BCC $E650
E64C: A6 D4     LDX $D4       ; Flag: Editor in Quote Mode
E64E: D0 04     BNE $E654

Jump from $E64A:

E650: 70 02     BVS $E654
E652: 09 40     ORA #$40

Jump from $E64E, $E650:

E654: E6 D3     INC $D3       ; Cursor Column on current Line
E656: 20 84 E6  JSR $E684     ; Quotes Test
E659: C4 C8     CPY $C8       ; Pointer: End of Line for Input
E65B: D0 17     BNE $E674

Jump from $E630:

E65D: A9 00     LDA #$00
E65F: 85 D0     STA $D0       ; Flag: Input from ...
E661: A9 0D     LDA #$0D
E663: A6 99     LDX $99       ; Default Input Device (0)
E665: E0 03     CPX #$03
E667: F0 06     BEQ $E66F
E669: A6 9A     LDX $9A       ; Default Output Device (3)
E66B: E0 03     CPX #$03
E66D: F0 03     BEQ $E672

Jump from $E667:

E66F: 20 16 E7  JSR $E716     ; Output to Screen

Jump from $E66D:

E672: A9 0D     LDA #$0D

Jump from $E65B:

E674: 85 D7     STA $D7       ; Current Input Character/Last Character Output
E676: 68        PLA
E677: AA        TAX
E678: 68        PLA
E679: A8        TAY
E67A: A5 D7     LDA $D7       ; Current Input Character/Last Character Output
E67C: C9 DE     CMP #$DE
E67E: D0 02     BNE $E682
E680: A9 FF     LDA #$FF

Jump from $E67E:

E682: 18        CLC
E683: 60        RTS

    Previous Page / Next Page