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