!!! Simple Blitter Routine

this is the BETA Version of a simple Blitter Routine for Mirko Sobe (AtariXLE, BOSS X).

Use attached ATR Image. There is a demo Turbo Basic PGM on the Image. The ML-Routine is really simple. All Memory Calculations must be done in Basic or in the programmers brain ;)

To Move Memory from high to low address, use a 16 Bit negative value in the "bytes_per_row_in_frambuffer" parameter. So -40 becomes (40 EXOR $FFFF) + 1 = $FFD8

__USAGE__: {{{x=USR(<addr of mlroutine>> , sourceaddr, destaddr, bytes_in_rows, lines, bytes_per_row_in_frambuffer)}}}

where
* __sourceaddr__ is the Source Address (like DPEEK(88))
* __destaddr__ is the Destination Address
* __bytes_in_row__ is the number of bytes in a row to copy
* __lines__ is the numbers of lines to copy
* __bytes_per_row_in_framebuffer__ is the number of bytes per line in the framebuffer (40 for Graphics 0 and 8, $FFD8 for negative = -40)


!! Source (Bibo Assembler)

{{{

01000             .LI OFF
01010 **********************
01020 **                  **
01030 ** SIMPLE BLITTER   **
01040 ** (C) 2004 CAS     **
01050 ** FOR MIRKO SOBE   **
01060 ** VERSION 1.0      **
01070 **                  **
01080 **********************
01090 ;
01100          .OR $600
01110 ;
01120          .OF "D:BLITTER.COM"
01130 ;
01140 SRCADR   =   $00
01150 DSTADR   =   $06
01160 BASRC    =   $D4
01170 LEN      =   $0400
01180 LINES    =   $0401
01190 LENFB    =   $0402
01200 ;
01210 BASIC    PLA
01220          CMP #5
01230          BEQ CPY
01240 ERROR
01250          LDX #$0
01260          STA BASRC+1
01270          LDX #$80
01280          STA BASRC
01290          RTS
01300 ;
01310 CPY
01320          PLA
01330          STA SRCADR+1
01340          PLA
01350          STA SRCADR
01360          PLA
01370          STA DSTADR+1
01380          PLA
01390          STA DSTADR
01400 ;
01410          PLA
01420          PLA
01430          STA LEN
01440          PLA
01450          PLA
01460          STA LINES
01470          PLA
01480          STA LENFB+1
01490          PLA
01500          STA LENFB
01510 ;
01520 CPYL     LDY LEN
01530          DEY
01540 .1
01550          LDA (SRCADR),Y
01560          STA (DSTADR),Y
01570          DEY
01580          BPL .1
01590 .2
01600          DEC LINES
01610          BEQ END
01620          CLC
01630          LDA SRCADR
01640          ADC LENFB
01650          STA SRCADR
01660          LDA SRCADR+1
01670          ADC LENFB+1
01680          STA SRCADR+1
01690 .3
01700          CLC
01710          LDA DSTADR
01720          ADC LENFB
01730          STA DSTADR
01740          LDA DSTADR+1
01750          ADC LENFB+1
01760          STA DSTADR+1
01770          CLC
01780 .4       BCC CPYL    ; ALWAYS
01790 ;
01800 END
01810          LDA #0
01820          STA BASRC+1
01830          LDA #1
01840          STA BASRC
01850          RTS
01860 ------------------------------

}}}

!! Demo Program (Turbo Basic)

{{{
1010 DIM X$($70)
1020 X$="<mlcode routine>" 
1040 CLS 
1050 ? "BLITTER DEMO"
1060 ? "GR.0"
1070 GET A
1080 GRAPHICS 0
1090 FOR U=1 TO 16
1100   FOR I=1 TO 30:? U;:NEXT I
1110 NEXT U
1120 ? :? " UP..."
1130 FOR U=1 TO 20
1140   X=USR(ADR(X$),DPEEK(88)+40*10+10,DPEEK(88)+40*9+10,10,14,40)
1150 NEXT U
1160 ? :? "<KEY>":GET A
1170 ? " AND DOWN "
1180 FOR U=1 TO 20
1190   X=USR(ADR(X$),DPEEK(88)+40*19+25,DPEEK(88)+40*20+25,10,14,$FFD8)
1200 NEXT U
1210 GET A
1220 GRAPHICS 15
1230 OPEN #1,4,0,"D:MZM.PIC"
1240 BGET #1,DPEEK(88),7680
1250 CLOSE #1
1260 ? "SCROLLUP <KEY>"
1270 GET A
1280 FOR U=1 TO 40
1290   X=USR(ADR(X$),DPEEK(88)+40*10+10,DPEEK(88)+40*9+10,14,40,40)
1300 NEXT U
1310 ? "ZOOM EFFEKT! <KEY>":GET A
1320 FOR U=1 TO 180
1330   X=USR(ADR(X$),DPEEK(88)+20+40,DPEEK(88)+20,10,U,40)
1340 NEXT U
1350 ? " FILL/CLEAR BLOCK"
1360 GET A
1370 X=USR(ADR(X$),DPEEK(88)+14,DPEEK(88)+54,8,192,40)
1380 ? " FILL/CLEAR SCREEN"
1390 GET A
1400 X=USR(ADR(X$),DPEEK(88),DPEEK(88)+40,40,192,40)
1410 ? "<KEY>":GET A
1420 OPEN #1,4,0,"D:MZM.PIC"
1430 BGET #1,DPEEK(88),7680
1440 CLOSE #1
1450 ? "SCROLLDOWN  <KEY>"
1460 GET A
1470 FOR U=1 TO 40
1480   X=USR(ADR(X$),DPEEK(88)+40*129+10,DPEEK(88)+40*130+10,14,40,$FFD8)
1490 NEXT U
1500 ? "ZOOM EFFEKT! <KEY>":GET A
1510 FOR U=1 TO 180
1520   X=USR(ADR(X$),DPEEK(88)+20+179*40,DPEEK(88)+20+180*40,10,U,$FFD8)
1530 NEXT U
}}}