Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SIGN EPZ $F3
- X2 EPZ $F4
- M2 EPZ $F5
- X1 EPZ $F8
- M1 EPZ $F9
- E EPZ $FC
- OVLOC EQU $3F5
- ORG $F425
- F425: 18 ADD CLC
- F426: A2 02 LDX #$2
- F428: B5 F9 ADD1 LDA M1,X
- F42A: 75 F5 ADC M2,X
- F42C: 95 F9 STA M1,X
- F42E: CA DEX
- F42F: 10 F7 BPL ADD1
- F431: 60 RTS
- F432: 06 F3 MD1 ASL SIGN
- F434: 20 37 F4 JSR ABSWAP
- F437: 24 F9 ABSWAP BIT M1
- F439: 10 05 BPL ABSWAP1
- F43B: 20 A4 F4 JSR FCOMPL
- F43E: E6 F3 INC SIGN
- F440: 38 ABSWAP1 SEC
- F441: A2 04 SWAP LDX #$4
- F443: 94 FB SWAP1 STY E-1,X
- F445: B5 F7 LDA X1-1,X
- F447: B4 F3 LDY X2-1,X
- F449: 94 F7 STY X1-1,X
- F44B: 95 F3 STA X2-1,X
- F44D: CA DEX
- F44E: D0 F3 BNE SWAP1
- F450: 60 RTS
- F451: A9 8E FLOAT LDA #$8E
- F453: 85 F8 STA X1
- F455: A5 F9 NORM1 LDA M1
- F457: C9 C0 CMP #$C0
- F459: 30 0C BMI RTS1
- F45B: C6 F8 DEC X1
- F45D: 06 FB ASL M1+2
- F45F: 26 FA ROL M1+1
- F461: 26 F9 ROL M1
- F463: A5 F8 NORM LDA X1
- F465: D0 EE BNE NORM1
- F467: 60 RTS1 RTS
- F468: 20 A4 F4 FSUB JSR FCOMPL
- F46B: 20 7B F4 SWPALGN JSR ALGNSWP
- F46E: A5 F4 FADD LDA X2
- F470: C5 F8 CMP X1
- F472: D0 F7 BNE SWPALGN
- F474: 20 25 F4 JSR ADD
- F477: 50 EA ADDEND BVC NORM
- F479: 70 05 BVS RTLOG
- F47B: 90 C4 ALGNSWP BCC SWAP
- F47D: A5 F9 RTAR LDA M1
- F47F: 0A ASL
- F480: E6 F8 RTLOG INC X1
- F482: F0 75 BEQ OVFL
- F484: A2 FA RTLOG1 LDX #$FA
- F486: 76 FF ROR1 ROR E+3,X
- F488: E8 INX
- F489: D0 FB BNE ROR1
- F48B: 60 RTS
- F48C: 20 32 F4 FMUL JSR MD1
- F48F: 65 F8 ADC X1
- F491: 20 E2 F4 JSR MD2
- F494: 18 CLC
- F495: 20 84 F4 MUL1 JSR RTLOG1
- F498: 90 03 BCC MUL2
- F49A: 20 25 F4 JSR ADD
- F49D: 88 MUL2 DEY
- F49E: 10 F5 BPL MUL1
- F4A0: 46 F3 MDEND LSR SIGN
- F4A2: 90 BF NORMX BCC NORM
- F4A4: 38 FCOMPL SEC
- F4A5: A2 03 LDX #$3
- F4A7: A9 00 COMPL1 LDA #$0
- F4A9: F5 F8 SBC X1,X
- F4AB: 95 F8 STA X1,X
- F4AD: CA DEX
- F4AE: D0 F7 BNE COMPL1
- F4B0: F0 C5 BEQ ADDEND
- F4B2: 20 32 F4 FDIV JSR MD1
- F4B5: E5 F8 SBC X1
- F4B7: 20 E2 F4 JSR MD2
- F4BA: 38 DIV1 SEC
- F4BB: A2 02 LDX #$2
- F4BD: B5 F5 DIV2 LDA M2,X
- F4BF: F5 FC SBC E,X
- F4C1: 48 PHA
- F4C2: CA DEX
- F4C3: 10 F8 BPL DIV2
- F4C5: A2 FD LDX #$FD
- F4C7: 68 DIV3 PLA
- F4C8: 90 02 BCC DIV4
- F4CA: 95 F8 STA M2+3,X
- F4CC: E8 DIV4 INX
- F4CD: D0 F8 BNE DIV3
- F4CF: 26 FB ROL M1+2
- F4D1: 26 FA ROL M1+1
- F4D3: 26 F9 ROL M1
- F4D5: 06 F7 ASL M2+2
- F4D7: 26 F6 ROL M2+1
- F4D9: 26 F5 ROL M2
- F4DB: B0 1C BCS OVFL
- F4DD: 88 DEY
- F4DE: D0 DA BNE DIV1
- F4E0: F0 BE BEQ MDEND
- F4E2: 86 FB MD2 STX M1+2
- F4E4: 86 FA STX M1+1
- F4E6: 86 F9 STX M1
- F4E8: B0 0D BCS OVCHK
- F4EA: 30 04 BMI MD3
- F4EC: 68 PLA
- F4ED: 68 PLA
- F4EE: 90 B2 BCC NORMX
- F4F0: 49 80 MD3 EOR #$80
- F4F2: 85 F8 STA X1
- F4F4: A0 17 LDY #$17
- F4F6: 60 RTS
- F4F7: 10 F7 OVCHK BPL MD3
- F4F9: 4C F5 03 OVFL JMP OVLOC
- ORG $F63D
- F63D: 20 7D F4 FIX1 JSR RTAR
- F640: A5 F8 FIX LDA X1
- F642: 10 13 BPL UNDFL
- F644: C9 8E CMP #$8E
- F646: D0 F5 BNE FIX1
- F648: 24 F9 BIT M1
- F64A: 10 0A BPL FIXRTS
- F64C: A5 FB LDA M1+2
- F64E: F0 06 BEQ FIXRTS
- F650: E6 FA INC M1+1
- F652: D0 02 BNE FIXRTS
- F654: E6 F9 INC M1
- F656: 60 FIXRTS RTS
- F657: A9 00 UNDFL LDA #$0
- F659: 85 F9 STA M1
- F65B: 85 FA STA M1+1
- F65D: 60 RTS
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
