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

This page was created on 02-Jan-2011 12:23 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
3 03-Feb-2023 15:21 3 KB Carsten Strotmann to previous
2 02-Jan-2011 12:48 3 KB Carsten Strotmann to previous | to last
1 02-Jan-2011 12:23 1 KB Carsten Strotmann to last

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 58 removed 63 lines
!Block Move for Atari-BASIC
{{{
00010 .LI OFF
00020 *
00030 ****************
00040 * *
00050 * MOVE-Routine *
00060 * *
00070 ****************
00080 *
00090 *
00100 *
00110 SCL .EQ $CD
00120 DESTL .EQ $CF
00130 BYTES .EQ $D1
00140 *
00150 *
00160 *
00170 *
00180 *
00190 *
00200 START PLA Parameterzahl holen
00210 *
00220 PLA Start-
00230 STA SCL+1 addresse
00240 PLA holen
00250 STA SCL
00260 *
00270 PLA Ziel-
00280 STA DESTL+1 addresse
00290 PLA holen
00300 STA DESTL
00310 *
00320 PLA Auch die
00330 STA BYTES+1 Laenge
00340 PLA wird
00350 STA BYTES gebraucht
00360 ------------------------------
00370 MOVE LDY #0
00380 MOVEB LDA (SCL),Y Byte
00390 STA (DESTL),Y verschieben
00400 *
00410 INC SCL Start-
00420 BNE .1 pointer
00430 INC SCL+1 hochzaehlen
00440 *
00450 .1 INC DESTL Das gleiche
00460 BNE .2 mit Ziel-
00470 INC DESTL+1 Pointer
00480 *
00490 .2 LDA BYTES Laenge
00500 BNE .3 abzaeh-
00510 DEC BYTES+1 len
00520 .3 DEC BYTES
00530 *
00540 LDA BYTES Ende
00550 ORA BYTES+1 erreicht
00560 BNE MOVEB Nein
00570 RTS zurueck
}}}