Add new attachment

Only authorized users are allowed to upload new attachments.

This page (revision-2) was last changed on 02-Jan-2011 13:51 by Carsten Strotmann  

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

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

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
}}}
Version Date Modified Size Author Changes ... Change note
2 02-Jan-2011 13:51 4.611 kB Carsten Strotmann to previous
1 02-Jan-2011 13:00 3.216 kB Carsten Strotmann to last
« This page (revision-2) was last changed on 02-Jan-2011 13:51 by Carsten Strotmann  
G’day (anonymous guest) My Prefs
© 2010-2017 AtariWiki
All content in the Wiki is licensed under Creative Commons Share Alike License, unless otherwise noted.
JSPWiki v2.8.3