$B867/47207: Perform Addition
Jump from $AD4F, $B84D, $BA01, $BA1D, $E081, $E0D0, $E268, $E2A4:
B867: 20 8C BA JSR $BA8C ; Load FAC#2 From Memory
Jump from $B85F, $BD8E:
B86A: D0 03 BNE $B86F
B86C: 4C FC BB JMP $BBFC ; Copy FAC#2 into FAC#1
Jump from $B86A:
B86F: A6 70 LDX $70 ; FAC low-order rounding
B871: 86 56 STX $56 ; Jump Vector used in Function Evaluation
B873: A2 69 LDX #$69
B875: A5 69 LDA $69 ; AFAC Exponent
Jump from $BAF1:
B877: A8 TAY
B878: F0 CE BEQ $B848 ; Perform [wait]
B87A: 38 SEC
B87B: E5 61 SBC $61 ; FAC Exponent
B87D: F0 24 BEQ $B8A3
B87F: 90 12 BCC $B893
B881: 84 61 STY $61 ; FAC Exponent
B883: A4 6E LDY $6E ; AFAC Sign
B885: 84 66 STY $66 ; FAC Sign
B887: 49 FF EOR #$FF
B889: 69 00 ADC #$00
B88B: A0 00 LDY #$00
B88D: 84 56 STY $56 ; Jump Vector used in Function Evaluation
B88F: A2 61 LDX #$61
B891: D0 04 BNE $B897
Jump from $B87F:
B893: A0 00 LDY #$00
B895: 84 70 STY $70 ; FAC low-order rounding
Jump from $B891:
B897: C9 F9 CMP #$F9
B899: 30 C7 BMI $B862 ; Normalise Addition
B89B: A8 TAY
B89C: A5 70 LDA $70 ; FAC low-order rounding
B89E: 56 01 LSR $01,X ; 6510 On-chip 8-bit Input/Output Register
B8A0: 20 B0 B9 JSR $B9B0 ; Multiply by Zero Byte
Jump from $B87D, $B865:
B8A3: 24 6F BIT $6F ; Sign of result of Arithmetic Evaluation
B8A5: 10 57 BPL $B8FE
B8A7: A0 61 LDY #$61
B8A9: E0 69 CPX #$69
B8AB: F0 02 BEQ $B8AF
B8AD: A0 69 LDY #$69
Jump from $B8AB:
B8AF: 38 SEC
B8B0: 49 FF EOR #$FF
B8B2: 65 56 ADC $56 ; Jump Vector used in Function Evaluation
B8B4: 85 70 STA $70 ; FAC low-order rounding
B8B6: B9 04 00 LDA $0004,Y ; Jump Vector: Convert FAC to Integer
B8B9: F5 04 SBC $04,X ; Jump Vector: Convert FAC to Integer
B8BB: 85 65 STA $65 ; FAC Mantissa
B8BD: B9 03 00 LDA $0003,Y ; Jump Vector: Convert FAC to Integer
B8C0: F5 03 SBC $03,X ; Jump Vector: Convert FAC to Integer
B8C2: 85 64 STA $64 ; FAC Mantissa
B8C4: B9 02 00 LDA $0002,Y ; Unused
B8C7: F5 02 SBC $02,X ; Unused
B8C9: 85 63 STA $63 ; FAC Mantissa
B8CB: B9 01 00 LDA $0001,Y ; 6510 On-chip 8-bit Input/Output Register
B8CE: F5 01 SBC $01,X ; 6510 On-chip 8-bit Input/Output Register
B8D0: 85 62 STA $62 ; FAC Mantissa
Jump from $BC55, $BCE6:
B8D2: B0 03 BCS $B8D7
B8D4: 20 47 B9 JSR $B947 ; 2's Complement FAC#1
Jump from $B8D2, $BB9F, $E0EF:
B8D7: A0 00 LDY #$00
B8D9: 98 TYA
B8DA: 18 CLC
Jump from $B8F5:
B8DB: A6 62 LDX $62 ; FAC Mantissa
B8DD: D0 4A BNE $B929
B8DF: A6 63 LDX $63 ; FAC Mantissa
B8E1: 86 62 STX $62 ; FAC Mantissa
B8E3: A6 64 LDX $64 ; FAC Mantissa
B8E5: 86 63 STX $63 ; FAC Mantissa
B8E7: A6 65 LDX $65 ; FAC Mantissa
B8E9: 86 64 STX $64 ; FAC Mantissa
B8EB: A6 70 LDX $70 ; FAC low-order rounding
B8ED: 86 65 STX $65 ; FAC Mantissa
B8EF: 84 70 STY $70 ; FAC low-order rounding
B8F1: 69 08 ADC #$08
B8F3: C9 20 CMP #$20
B8F5: D0 E4 BNE $B8DB
Jump from $B92E, $B7B2, $BADC:
B8F7: A9 00 LDA #$00
Jump from $BF81:
B8F9: 85 61 STA $61 ; FAC Exponent
Jump from $BACC:
B8FB: 85 66 STA $66 ; FAC Sign
B8FD: 60 RTS
Jump from $B8A5:
B8FE: 65 56 ADC $56 ; Jump Vector used in Function Evaluation
B900: 85 70 STA $70 ; FAC low-order rounding
B902: A5 65 LDA $65 ; FAC Mantissa
B904: 65 6D ADC $6D ; AFAC Mantissa
B906: 85 65 STA $65 ; FAC Mantissa
B908: A5 64 LDA $64 ; FAC Mantissa
B90A: 65 6C ADC $6C ; AFAC Mantissa
B90C: 85 64 STA $64 ; FAC Mantissa
B90E: A5 63 LDA $63 ; FAC Mantissa
B910: 65 6B ADC $6B ; AFAC Mantissa
B912: 85 63 STA $63 ; FAC Mantissa
B914: A5 62 LDA $62 ; FAC Mantissa
B916: 65 6A ADC $6A ; AFAC Mantissa
B918: 85 62 STA $62 ; FAC Mantissa
B91A: 4C 36 B9 JMP $B936
Jump from $B929:
B91D: 69 01 ADC #$01
B91F: 06 70 ASL $70 ; FAC low-order rounding
B921: 26 65 ROL $65 ; FAC Mantissa
B923: 26 64 ROL $64 ; FAC Mantissa
B925: 26 63 ROL $63 ; FAC Mantissa
B927: 26 62 ROL $62 ; FAC Mantissa
Jump from $B8DD:
B929: 10 F2 BPL $B91D
B92B: 38 SEC
B92C: E5 61 SBC $61 ; FAC Exponent
B92E: B0 C7 BCS $B8F7
B930: 49 FF EOR #$FF
B932: 69 01 ADC #$01
B934: 85 61 STA $61 ; FAC Exponent
Jump from $B91A:
B936: 90 0E BCC $B946
Jump from $BC28:
B938: E6 61 INC $61 ; FAC Exponent
B93A: F0 42 BEQ $B97E ; Output ?OVERFLOW Error
B93C: 66 62 ROR $62 ; FAC Mantissa
B93E: 66 63 ROR $63 ; FAC Mantissa
B940: 66 64 ROR $64 ; FAC Mantissa
B942: 66 65 ROR $65 ; FAC Mantissa
B944: 66 70 ROR $70 ; FAC low-order rounding
Jump from $B936:
B946: 60 RTS
Previous Page / Next Page