!!!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 ------------------------------
}}}

!Floating Point Demo
{{{

00010          .LI OFF
00020          .OR $4000
00030 *
00040 *
00050 * DAS FOLGENDE PROGRAMM
00060 * ENTSPRICHT DER BASIC-ZEILE:
00070 *
00080 * FOR I=0 TO 255:?I,I*I:NEXT I
00090 *
00100 *
00110 *
00120 *
00130 *
00140 *
00150 *
00160 *
00170 *
00180 START    JMP DEMO
00190 ------------------------------
00200 *
00210          .IN "D:FPOINT.INC"
00220 *
00230 ------------------------------
00240 DEMO     JSR CLRFR0    FR0 UND SCHLEIFEN-
00250          STA DWERT     WERT LOESCHEN
00260          STA DWERT
00270 *
00280 DLOOP    JSR IFP       INTEGER=> FP UMRECHNEN
00290          JSR PRINTFR0  ZAHL AUSGEBEN
00300          LDA #'       TAB
00310          JSR PUTCHAR   AUSGEBEN
00320          JSR FMOVE     ZAHL NACH FR1 SCHIEBEN
00330          JSR FMUL      UND MIT FR0 MULTIPLIZIEREN
00340          BCS ERROR     IST DAS CAARY GESETZT SO LAG FEHLER VOR
00350          JSR PRINTFR0  ZAHL AUSGEBEN
00360          LDA #$9B      CR AUSGEBEN
00370          JSR PUTCHAR
00380          INC DWERT     INTEGERWERT
00390          LDA DWERT     HOCHZAEHLEN
00400          STA FR0       NACH FR0
00410          BEQ ERROR     BEI UEBERSCHLAG => ENDE
00420          LDA #0        MSB LOESCHEN
00430          STA FR0+1
00440 .1       JMP DLOOP     SCHLEIFE FORTFUEHREN
00450 ERROR    RTS
00460 *
00470 DWERT    .HX 00
}}}