$A742/42818: Perform [for]
A742: A9 80 LDA #$80
A744: 85 10 STA $10 ; Flag: Subscript reference/User Function call
A746: 20 A5 A9 JSR $A9A5 ; Perform [let]
A749: 20 8A A3 JSR $A38A ; Find FOR/GOSUB Entry on Stack
A74C: D0 05 BNE $A753
A74E: 8A TXA
A74F: 69 0F ADC #$0F
A751: AA TAX
A752: 9A TXS
Jump from $A74C:
A753: 68 PLA
A754: 68 PLA
A755: A9 09 LDA #$09
A757: 20 FB A3 JSR $A3FB ; Check Stack Depth
A75A: 20 06 A9 JSR $A906 ; Search for Next Statement / Line
A75D: 18 CLC
A75E: 98 TYA
A75F: 65 7A ADC $7A ; Pointer: Current Byte of BASIC Text
A761: 48 PHA
A762: A5 7B LDA $7B ; Pointer: Current Byte of BASIC Text
A764: 69 00 ADC #$00
A766: 48 PHA
A767: A5 3A LDA $3A ; Current BASIC Line number
A769: 48 PHA
A76A: A5 39 LDA $39 ; Current BASIC Line number
A76C: 48 PHA
A76D: A9 A4 LDA #$A4
A76F: 20 FF AE JSR $AEFF ; Test ','
A772: 20 8D AD JSR $AD8D ; Confirm Result
A775: 20 8A AD JSR $AD8A ; Confirm Result
A778: A5 66 LDA $66 ; FAC Sign
A77A: 09 7F ORA #$7F
A77C: 25 62 AND $62 ; FAC Mantissa
A77E: 85 62 STA $62 ; FAC Mantissa
A780: A9 8B LDA #$8B
A782: A0 A7 LDY #$A7
A784: 85 22 STA $22 ; Second Utility Pointer
A786: 84 23 STY $23 ; Second Utility Pointer
A788: 4C 43 AE JMP $AE43 ; Evaluate Expression in Text
A78B: A9 BC LDA #$BC
A78D: A0 B9 LDY #$B9
A78F: 20 A2 BB JSR $BBA2 ; Load FAC#1 From Memory
A792: 20 79 00 JSR $0079 ; CHRGOT: Get same Byte again
A795: C9 A9 CMP #$A9
A797: D0 06 BNE $A79F
A799: 20 73 00 JSR $0073 ; CHRGET: Get next Byte of BASIC Text
A79C: 20 8A AD JSR $AD8A ; Confirm Result
Jump from $A797:
A79F: 20 2B BC JSR $BC2B ; Check Sign of FAC#1
A7A2: 20 38 AE JSR $AE38 ; Evaluate Expression in Text
A7A5: A5 4A LDA $4A ; Pointer: Index Variable for FOR/NEXT loop
A7A7: 48 PHA
A7A8: A5 49 LDA $49 ; Pointer: Index Variable for FOR/NEXT loop
A7AA: 48 PHA
A7AB: A9 81 LDA #$81
A7AD: 48 PHA
Previous Page / Next Page