$A7ED/42989: Perform BASIC Keyword
Jump from $A7E7, $A948:
A7ED: F0 3C BEQ $A82B ; Perform [restore]
Jump from $A95C:
A7EF: E9 80 SBC #$80
A7F1: 90 11 BCC $A804
A7F3: C9 23 CMP #$23
A7F5: B0 17 BCS $A80E
A7F7: 0A ASL
A7F8: A8 TAY
A7F9: B9 0D A0 LDA $A00D,Y ; BASIC Command Vectors - 1
A7FC: 48 PHA
A7FD: B9 0C A0 LDA $A00C,Y ; BASIC Command Vectors - 1
A800: 48 PHA
A801: 4C 73 00 JMP $0073 ; CHRGET: Get next Byte of BASIC Text
Jump from $A7F1:
A804: 4C A5 A9 JMP $A9A5 ; Perform [let]
Jump from $A7C2:
A807: C9 3A CMP #$3A
A809: F0 D6 BEQ $A7E1 ; Prepare to execute statement
Jump from $A810:
A80B: 4C 08 AF JMP $AF08 ; Output ?SYNTAX Error
Jump from $A7F5:
A80E: C9 4B CMP #$4B
A810: D0 F9 BNE $A80B
A812: 20 73 00 JSR $0073 ; CHRGET: Get next Byte of BASIC Text
A815: A9 A4 LDA #$A4
A817: 20 FF AE JSR $AEFF ; Test ','
A81A: 4C A0 A8 JMP $A8A0 ; Perform [goto]
Previous Page / Next Page