$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