This page (revision-2) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 02-Jan-2011 12:00 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
2 03-Feb-2023 15:21 4 KB Carsten Strotmann to previous
1 02-Jan-2011 12:00 3 KB Carsten Strotmann to last

Page References

Incoming links Outgoing links
Floating point Routines
Floating point Routines

Version management

Difference between version and

At line 101 added 52 lines
!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
}}}
This page (revision-2) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann  Top