$AD1E/44318: Perform [next]
AD1E: D0 04 BNE $AD24
AD20: A0 00 LDY #$00
AD22: F0 03 BEQ $AD27
Jump from $AD1E, $AD87:
AD24: 20 8B B0 JSR $B08B ; Identify Variable
Jump from $AD22:
AD27: 85 49 STA $49 ; Pointer: Index Variable for FOR/NEXT loop
AD29: 84 4A STY $4A ; Pointer: Index Variable for FOR/NEXT loop
AD2B: 20 8A A3 JSR $A38A ; Find FOR/GOSUB Entry on Stack
AD2E: F0 05 BEQ $AD35
AD30: A2 0A LDX #$0A
Jump from $ACC4:
AD32: 4C 37 A4 JMP $A437 ; Error Routine
Jump from $AD2E:
AD35: 9A TXS
AD36: 8A TXA
AD37: 18 CLC
AD38: 69 04 ADC #$04
AD3A: 48 PHA
AD3B: 69 06 ADC #$06
AD3D: 85 24 STA $24 ; Second Utility Pointer
AD3F: 68 PLA
AD40: A0 01 LDY #$01
AD42: 20 A2 BB JSR $BBA2 ; Load FAC#1 From Memory
AD45: BA TSX
AD46: BD 09 01 LDA $0109,X ; 6510 Hardware Stack Area
AD49: 85 66 STA $66 ; FAC Sign
AD4B: A5 49 LDA $49 ; Pointer: Index Variable for FOR/NEXT loop
AD4D: A4 4A LDY $4A ; Pointer: Index Variable for FOR/NEXT loop
AD4F: 20 67 B8 JSR $B867 ; Perform Addition
AD52: 20 D0 BB JSR $BBD0 ; Store FAC#1 in Memory
AD55: A0 01 LDY #$01
AD57: 20 5D BC JSR $BC5D ; Compare FAC#1 With Memory
AD5A: BA TSX
AD5B: 38 SEC
AD5C: FD 09 01 SBC $0109,X ; 6510 Hardware Stack Area
AD5F: F0 17 BEQ $AD78 ; Check Valid Loop
Previous Page / Next Page