Block-Fill and Block-Move#

00010 ------------------------------
00020 *     Block-Fill-Routine     *
00030 *                            *
00040 * Registerinhalte:           *
00050 * <A> Fill-Byte              *
00060 * <X> Anzahl der Pages       *
00070 * <Y> Start Page             *
00080 *                            *
00090 ------------------------------
00100 *
00110 FILL     STY $1        Pointer und
00120          LDY #0        Index Setzen
00130          STY $0
00133 *
00140 .1       STA ($0),Y    Byte setzen
00150          INY           Index hochzaehlen
00160          BNE .1        wiederholen bis Ueberschlag
00170          INC $1        Pointer MSB hochzaehlen
00180          DEX           Noch Pages
00190          BNE .1        Uebrig? Ja ==>
00200          RTS
00210 ------------------------------
00220 *
00230 *
00240 *
00250 ------------------------------
00260 *    Block-Move-Routine      *
00270 *                            *
00280 * Registerinhalte:           *
00290 *                            *
00300 * <A> Source Page            *
00310 * <X> Anzahl der Pages       *
00320 * <Y> Destination Page       *
00330 *                            *
00340 ------------------------------
00350 *
00360 MOVE     STA $1        Pointer
00370          STY $FF       setzen
00380          LDY #0        Index
00390          STY $0        loeschen
00400          STY $FF
00410 *
00420 .1       LDA ($0),Y    Move
00430          STA ($FE),Y
00440          INY           Index hochzaehlen
00450          BNE .1        wiederholen bis Ueberschlag
00460          INC $1        Pointer MSB
00470          INC $FF       hochzaehlen
00480          DEX           Anzahl runterzaehlen
00490          BNE .1        Wiederholen
00500          RTS

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