$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 |