.org $D800 .segment "FLTPOINT" D800: jsr DBA1 jsr DBBB bcs D841 ldx #$ED ldy #$04 jsr DA48 ldx #$FF stx $F1 jsr DA44 beq D81C D818: lda #$FF sta $F0 D81C: jsr DB94 bcs D842 pha ldx $D5 bne D837 jsr DBEB pla ora $D9 sta $D9 ldx $F1 bmi D818 inx stx $F1 bne D818 D837: pla ldx $F1 bpl D83E inc $ED D83E: jmp D818 D841: rts D842: cmp #$2E beq D85A cmp #$45 beq D863 ldx $F0 bne D8B6 cmp #$2B beq D818 cmp #$2D beq D856 D856: sta $EE beq D818 D85A: ldx $F1 bpl D8B6 inx stx $F1 beq D818 D863: lda $F2 sta $EC jsr DB94 bcs D8A3 D86C: tax lda $ED pha stx $ED jsr DB94 bcs D88E pha lda $ED asl A sta $ED asl A asl A adc $ED sta $ED pla clc adc $ED sta $ED ldy $F2 jsr DB9D D88E: lda $EF beq D89B lda $ED eor #$FF clc adc #$01 sta $ED D89B: pla clc adc $ED sta $ED bne D8B6 D8A3: cmp #$2B beq D8AD cmp #$2D bne D8B2 sta $EF D8AD: jsr DB94 bcc D86C D8B2: lda $EC sta $F2 D8B6: dec $F2 lda $ED ldx $F1 bmi D8C3 beq D8C3 sec sbc $F1 D8C3: pha rol A pla ror A sta $ED bcc D8CE jsr DBEB D8CE: lda $ED clc adc #$44 sta $D4 jsr DC00 bcs D8E5 ldx $EE beq D8E4 lda $D4 ora #$80 sta $D4 D8E4: clc D8E5: rts jsr DA51 lda #$30 sta $057F lda $D4 beq D91A and #$7F cmp #$3F bcc D920 cmp #$45 bcs D920 sec sbc #$3F jsr DC70 jsr DCA4 ora #$80 sta $0580,X lda $0580 cmp #$2E beq D914 jmp D988 D914: jsr DCC1 jmp D99C D91A: lda #$B0 sta $0580 rts D920: lda #$01 jsr DC70 jsr DCA4 inx stx $F2 lda $D4 asl A sec sbc #$80 ldx $0580 cpx #$30 beq D94F ldx $0581 ldy $0582 stx $0582 sty $0581 ldx $F2 cpx #$02 bne D94C inc $F2 D94C: clc adc #$01 D94F: sta $ED lda #$45 ldy $F2 jsr DC9F sty $F2 lda $ED bpl D969 lda #$00 sec sbc $ED sta $ED lda #$2D bne D96B D969: lda #$2B D96B: jsr DC9F ldx #$00 lda $ED D972: sec sbc #$0A bcc D97A inx bne D972 D97A: clc adc #$0A pha txa jsr DC9D pla ora #$80 jsr DC9D D988: lda $0580 cmp #$30 bne D99C clc lda $F3 adc #$01 sta $F3 lda $F4 adc #$00 sta $F4 D99C: lda $D4 bpl D9A9 jsr DCC1 ldy #$00 lda #$2D sta ($F3),Y D9A9: rts D9AA: lda $D4 sta $F8 lda $D5 sta $F7 jsr DA44 sed ldy #$10 D9B8: asl $F8 rol $F7 ldx #$03 D9BE: lda $D4,X adc $D4,X sta $D4,X dex bne D9BE dey bne D9B8 cld lda #$42 sta $D4 jmp DC00 D9D2: lda #$00 sta $F7 sta $F8 lda $D4 bmi DA42 cmp #$43 bcs DA42 sec sbc #$40 bcc DA24 adc #$00 asl A sta $F5 D9EA: jsr DA5A bcs DA42 lda $F7 sta $F9 lda $F8 sta $FA jsr DA5A bcs DA42 jsr DA5A bcs DA42 clc lda $F8 adc $FA sta $F8 lda $F7 adc $F9 sta $F7 bcs DA42 jsr DCB9 clc adc $F8 sta $F8 lda $F7 adc #$00 bcs DA42 sta $F7 dec $F5 bne D9EA DA24: jsr DCB9 cmp #$05 bcc DA38 clc lda $F8 adc #$01 sta $F8 lda $F7 adc #$00 sta $F7 DA38: lda $F8 sta $D4 lda $F7 sta $D5 clc rts DA42: sec rts DA44: ldx #$D4 ldy #$06 DA48: lda #$00 DA4A: sta $00,X inx dey bne DA4A rts DA51: lda #$05 sta $F4 lda #$80 sta $F3 rts DA5A: clc rol $F8 rol $F7 rts DA60: lda $E0 eor #$80 sta $E0 DA66: lda $E0 and #$7F sta $F7 lda $D4 and #$7F sec sbc $F7 bpl DA85 ldx #$05 DA77: lda $D4,X ldy $E0,X sta $E0,X tya sta $D4,X dex bpl DA77 bmi DA66 DA85: beq DA8E cmp #$05 bcs DAA4 jsr DC3E DA8E: sed lda $D4 eor $E0 bmi DAB3 ldx #$04 clc DA98: lda $D5,X adc $E1,X sta $D5,X dex bpl DA98 cld bcs DAA7 DAA4: jmp DC00 DAA7: lda #$01 jsr DC3A lda #$01 sta $D5 jmp DC00 DAB3: ldx #$04 sec DAB6: lda $D5,X sbc $E1,X sta $D5,X dex bpl DAB6 bcc DAC5 cld jmp DC00 DAC5: lda $D4 eor #$80 sta $D4 sec ldx #$04 DACE: lda #$00 sbc $D5,X sta $D5,X dex bpl DACE cld jmp DC00 DADB: lda $D4 beq DB24 lda $E0 beq DB21 jsr DCCF sec sbc #$40 sec adc $E0 bmi DB26 jsr DCE0 DAF1: lda $DF and #$0F sta $F6 DAF7: dec $F6 bmi DB01 jsr DD01 jmp DAF7 DB01: lda $DF lsr A lsr A lsr A lsr A sta $F6 DB09: dec $F6 bmi DB13 jsr DD05 jmp DB09 DB13: jsr DC62 dec $F5 bne DAF1 DB1A: lda $ED sta $D4 jmp DC04 DB21: jsr DA44 DB24: clc rts DB26: sec rts DB28: lda $E0 beq DB26 lda $D4 beq DB24 jsr DCCF sec sbc $E0 clc adc #$40 bmi DB26 jsr DCE0 inc $F5 jmp DB4E DB43: ldx #$00 DB45: lda $D5,X sta $D4,X inx cpx #$0C bne DB45 DB4E: ldy #$05 sec sed DB52: lda $00DA,Y sbc $00E6,Y sta $00DA,Y dey bpl DB52 cld bcc DB65 inc $D9 bne DB4E DB65: jsr DD0F asl $D9 asl $D9 asl $D9 asl $D9 DB70: ldy #$05 sec sed DB74: lda $00DA,Y sbc $00E0,Y sta $00DA,Y dey bpl DB74 cld bcc DB87 inc $D9 bne DB70 DB87: jsr DD09 dec $F5 bne DB43 jsr DC62 jmp DB1A DB94: jsr DBAF ldy $F2 bcc DB9D lda ($F3),Y DB9D: iny sty $F2 rts DBA1: ldy $F2 lda #$20 DBA5: cmp ($F3),Y bne DBAC iny bne DBA5 DBAC: sty $F2 rts DBAF: ldy $F2 lda ($F3),Y sec sbc #$30 bcc DBD0 cmp #$0A rts DBBB: lda $F2 pha jsr DB94 bcc DBE2 cmp #$2E beq DBDB cmp #$2B beq DBD2 cmp #$2D beq DBD2 DBCF: pla DBD0: sec rts DBD2: jsr DB94 bcc DBE2 cmp #$2E bne DBCF DBDB: jsr DB94 bcc DBE2 bcs DBCF DBE2: pla sta $F2 clc rts DBE7: ldx #$E7 bne DBED DBEB: ldx #$D5 DBED: ldy #$04 DBEF: clc rol $04,X rol $03,X rol $02,X rol $01,X rol $00,X rol $EC dey bne DBEF rts DC00: ldx #$00 stx $DA DC04: ldx #$04 lda $D4 beq DC38 DC0A: lda $D5 bne DC28 ldy #$00 DC10: lda $00D6,Y sta $00D5,Y iny cpy #$05 bcc DC10 dec $D4 dex bne DC0A lda $D5 bne DC28 sta $D4 clc rts DC28: lda $D4 and #$7F cmp #$71 bcc DC31 rts DC31: cmp #$0F bcs DC38 jsr DA44 DC38: clc rts DC3A: ldx #$D4 bne DC40 DC3E: ldx #$E0 DC40: stx $F9 sta $F7 sta $F8 DC46: ldy #$04 DC48: lda $04,X sta $05,X dex dey bne DC48 lda #$00 sta $05,X ldx $F9 dec $F7 bne DC46 lda $00,X clc adc $F8 sta $00,X rts DC62: ldx #$0A DC64: lda $D4,X sta $D5,X dex bpl DC64 lda #$00 sta $D4 rts DC70: sta $F7 ldx #$00 ldy #$00 DC76: jsr DC93 sec sbc #$01 sta $F7 lda $D5,X lsr A lsr A lsr A lsr A jsr DC9D lda $D5,X and #$0F jsr DC9D inx cpx #$05 bcc DC76 DC93: lda $F7 bne DC9C lda #$2E jsr DC9F DC9C: rts DC9D: ora #$30 DC9F: sta $0580,Y iny rts DCA4: ldx #$0A DCA6: lda $0580,X cmp #$2E beq DCB4 cmp #$30 bne DCB8 dex bne DCA6 DCB4: dex lda $0580,X DCB8: rts DCB9: jsr DBEB lda $EC and #$0F rts DCC1: sec lda $F3 sbc #$01 sta $F3 lda $F4 sbc #$00 sta $F4 rts DCCF: lda $D4 eor $E0 and #$80 sta $EE asl $E0 lsr $E0 lda $D4 and #$7F rts DCE0: ora $EE sta $ED lda #$00 sta $D4 sta $E0 jsr DD28 jsr DBE7 lda $EC and #$0F sta $E6 lda #$05 sta $F5 jsr DD34 jsr DA44 rts DD01: ldx #$D9 bne DD0B DD05: ldx #$D9 bne DD11 DD09: ldx #$DF DD0B: ldy #$E5 bne DD13 DD0F: ldx #$DF DD11: ldy #$EB DD13: lda #$05 sta $F7 clc sed DD19: lda $00,X adc $0000,Y sta $00,X dex dey dec $F7 bpl DD19 cld rts DD28: ldy #$05 DD2A: lda $00E0,Y sta $00E6,Y dey bpl DD2A rts DD34: ldy #$05 DD36: lda $00D4,Y sta $00DA,Y dey bpl DD36 rts DD40: stx $FE sty $FF sta $EF ldx #$E0 ldy #$05 jsr DDA7 jsr DDB6 ldx $FE ldy $FF jsr DD89 dec $EF beq DD88 DD5B: jsr DADB bcs DD88 clc lda $FE adc #$06 sta $FE bcc DD6F lda $FF adc #$00 sta $FF DD6F: ldx $FE ldy $FF jsr DD98 jsr DA66 bcs DD88 dec $EF beq DD88 ldx #$E0 ldy #$05 jsr DD98 bmi DD5B DD88: rts DD89: stx $FC sty $FD ldy #$05 DD8F: lda ($FC),Y sta $00D4,Y dey bpl DD8F rts DD98: stx $FC sty $FD ldy #$05 DD9E: lda ($FC),Y sta $00E0,Y dey bpl DD9E rts DDA7: stx $FC sty $FD ldy #$05 DDAD: lda $00D4,Y sta ($FC),Y dey bpl DDAD rts DDB6: ldx #$05 DDB8: lda $D4,X sta $E0,X dex bpl DDB8 rts ldx #$89 ldy #$DE jsr DD98 jsr DADB bcs DE4B lda #$00 sta $F1 lda $D4 sta $F0 and #$7F sta $D4 sec sbc #$40 bmi DE03 cmp #$04 bpl DE4B ldx #$E6 ldy #$05 jsr DDA7 jsr D9D2 lda $D4 sta $F1 lda $D5 bne DE4B jsr D9AA jsr DDB6 ldx #$E6 ldy #$05 jsr DD89 jsr DA60 DE03: lda #$0A ldx #$4D ldy #$DE jsr DD40 jsr DDB6 jsr DADB lda $F1 beq DE39 clc ror A sta $E0 lda #$01 bcc DE20 lda #$10 DE20: sta $E1 ldx #$04 lda #$00 DE26: sta $E2,X dex bpl DE26 lda $E0 clc adc #$40 bcs DE4B bmi DE4B sta $E0 jsr DADB DE39: lda $F0 bpl DE4A jsr DDB6 ldx #$8F ldy #$DE jsr DD89 jsr DB28 DE4A: rts DE4B: sec rts .byte $3D,$17,$94,$19,$00,$00 .byte $3D,$57,$33,$05,$00,$00 .byte $3E,$05,$54,$76,$62,$00 .byte $3E,$32,$19,$62,$27,$00 .byte $3F,$01,$68,$60,$30,$36 .byte $3F,$07,$32,$03,$27,$41 .byte $3F,$25,$43,$34,$56,$75 .byte $3F,$66,$27,$37,$30,$50 .byte $40,$01,$15,$12,$92,$55 .byte $3F,$99,$99,$99,$99,$99 .byte $3F,$43,$42,$94,$48,$19 .byte $40,$01,$00,$00,$00,$00 DE95: stx $FE sty $FF ldx #$E0 ldy #$05 jsr DDA7 ldx $FE ldy $FF jsr DD98 jsr DA66 ldx #$E6 ldy #$05 jsr DDA7 ldx #$E0 ldy #$05 jsr DD89 ldx $FE ldy $FF jsr DD98 jsr DA60 ldx #$E6 ldy #$05 jsr DD98 jsr DB28 rts lda #$01 bne DED3 lda #$00 DED3: sta $F0 lda $D4 bpl DEDB sec rts DEDB: lda $D4 sta $E0 sec sbc #$40 asl A sta $F1 lda $D5 and #$F0 bne DEEF lda #$01 bne DEF3 DEEF: inc $F1 lda #$10 DEF3: sta $E1 ldx #$04 lda #$00 DEF9: sta $E2,X dex bpl DEF9 jsr DB28 ldx #$66 ldy #$DF jsr DE95 ldx #$E6 ldy #$05 jsr DDA7 jsr DDB6 jsr DADB lda #$0A ldx #$72 ldy #$DF jsr DD40 ldx #$E6 ldy #$05 jsr DD98 jsr DADB ldx #$6C ldy #$DF jsr DD98 jsr DA66 jsr DDB6 lda #$00 sta $D5 lda $F1 sta $D4 bpl DF46 eor #$FF clc adc #$01 sta $D4 DF46: jsr D9AA bit $F1 bpl DF53 lda #$80 ora $D4 sta $D4 DF53: jsr DA66 lda $F0 beq DF64 ldx #$89 ldy #$DE jsr DD98 jsr DB28 DF64: clc rts .byte $40,$03,$16,$22,$77,$66 .byte $3F,$50,$00,$00,$00,$00 .byte $3F,$49,$15,$57,$11,$08 .byte $BF,$51,$70,$49,$47,$08 .byte $3F,$39,$20,$57,$61,$95 .byte $BF,$04,$39,$63,$03,$55 .byte $3F,$10,$09,$30,$12,$64 .byte $3F,$09,$39,$08,$04,$60 .byte $3F,$12,$42,$58,$47,$42 .byte $3F,$17,$37,$12,$06,$08 .byte $3F,$28,$95,$29,$71,$17 .byte $3F,$86,$85,$88,$96,$44 .byte $3E,$16,$05,$44,$49,$00 .byte $BE,$95,$68,$38,$45,$00 .byte $3F,$02,$68,$79,$94,$16 .byte $BF,$04,$92,$78,$90,$80 .byte $3F,$07,$03,$15,$20,$00 .byte $BF,$08,$92,$29,$12,$44 .byte $3F,$11,$08,$40,$09,$11 .byte $BF,$14,$28,$31,$56,$04 .byte $3F,$19,$99,$98,$77,$44 .byte $BF,$33,$33,$33,$31,$13 .byte $3F,$99,$99,$99,$99,$99 .byte $3F,$78,$53,$98,$16,$34 .byte $98,$16,$34,$FC,$E0,$32,$50,$D9,$68,$11