Floating Point Routines#
00010 .LI OFF 00020 ------------------------------ 00030 * * 00040 * FLOTINGPOINT BERECHNUNGEN * 00050 * * 00060 ------------------------------ 00070 * 00080 * 00090 * 00100 * 00110 LBUFF .EQ $580 WIRD VOM ROM FESTGELEGT 00120 * 00130 INBUFF .EQ $F3 POINTER AUF LBUFF 00140 CIX .EQ $F2 INDEXREGISTER. NORMAL =0 00150 FR0 .EQ $D4 00160 FR1 .EQ $E0 00170 FPPNTR .EQ $FC POINTER AUF FP ZAHL 00180 * 00190 ------------------------------ 00200 AFP .EQ $D800 ASCII=>FLOATING POINT (FP) 00210 FASC .EQ $D8E6 FP=>ASCII IN LBUFF 00220 IFP .EQ $D9AA INTEGER FR0 ($D4)=> FP 00230 FPI .EQ $D9D2 FP=>INTEGER IN FR0 ($D4) 00240 FSUB .EQ $DA60 FR0<= FR0-FR1 00250 FADD .EQ $DA66 FR0<= FR0+FR1 00260 FMUL .EQ $DADB FR0<= FR0*FR1 00270 FDIV .EQ $DB28 FR0<= FR0/FR1 00280 ------------------------------ 00290 FLD0R .EQ $DD89 LADE FR0 MIT ZAHL 00300 * AUF DIE DIE REGISTER <X> UND <Y> 00310 * ZEIGEN. <X>=MSB, <Y>=LSB 00320 FLD0P .EQ $DD8D LADE FR0 MIT ZAHL 00330 * AUF DIE DER POINTER FPPNTR 00340 * ZEIGT. 00350 FLD1R .EQ $DD98 WIE FLD0R DOCH MIT FR1 00360 FLD1P .EQ $DD9C WIE FLD0P DICH MIT FR1 00370 FSTOR .EQ $DDA7 WIE FLD0R NUR IN ANDERER 00380 * RICHTUNG (SPEICHERN) 00390 FSTOP .EQ $DDAB WIE FSTOR NUR DURCH 00400 * FPPNTR ADRESSIERT. 00410 FMOVE .EQ $DDB6 FR0=>FR1 00420 * 00430 ------------------------------ 00440 INITFP LDA #0 FP-ROUTINEN 00450 STA CIX INITIALISIEREN 00460 LDA #LBUFF 00470 STA INBUFF 00480 LDA /LBUFF 00490 STA INBUFF+1 00500 RTS 00510 ------------------------------ 00520 * 00530 ------------------------------ 00540 PRINTFR0 JSR INITFP INITIALISIERUNG 00550 JSR FASC FP=>ASCII WANDELN 00560 LDY #0 00570 .1 STY WERT ZEICHEN AUS 00580 LDA (INBUFF),Y PUFFER HOLEN 00590 BMI ENDE INVERS? JA: LETZTES ZEICHEN 00600 JSR PUTCHAR AUSGEBEN 00610 LDY WERT NAECHSTES ZEICHEN 00620 INY 00630 BNE .1 HIER EIN JUMP 00640 ENDE AND #$7F INVERSES ZEICHEN ALS 00650 JMP PUTCHAR NORMALZEICHEN AUSGEBEN 00660 * 00670 WERT .HX 00 ZWISCHENSPEICHER 00680 * 00690 ------------------------------ 00700 * 00710 ------------------------------ 00720 PUTCHAR TAX VECTOR 00730 LDA $E407 JUMP 00740 PHA UEBER 00750 LDA $E406 ROM 00760 PHA 00770 TXA 00780 RTS JMP 00790 * 00800 ------------------------------ 00810 CLRFR0 LDY #5 FR0 00820 LDA #0 LOESCHEN 00830 .1 STA FR0,Y 00840 DEY 00850 BPL .1 00860 RTS 00870 ------------------------------ 00880 CLRFR1 LDY #5 FR1 00890 LDA #0 LOESCHEN 00900 .1 STA FR1,Y 00910 DEY 00920 BPL .1 00930 RTS 00940 ------------------------------
