;rifxlib=66;FX-library;By Stephen McNamara;(C)1994 Reflective Images;17/7/1994; As from this date, only the following only work on lorez; bitmaps: ZoomX8, ZoomXY, Derez; Derez has been optimised for all derez values under 18 - it is; much faster doing these derezs now; ClearBitmap and FadeInBitmap have had comments add at last!; These commands also have been adjusted to work on any size; bitmap. At the moment, though, they operate on the whole; width of the bitmap.;10/7/1994; ZoomX2 and ZoomX4 now work on any size bitmap.; Depth of zoom is taken from source bitmap but bitmaps can be; different heights and widths; ZOOMX4 command is changed to include separate X and Y zooming,; this feature may be added to X2 and X8А bmapА `0<>2 А "Not enough parameters"А!libs {#bitmaplib,#ia`1|#pd`2}А А !libheader {#rifxlib,init,0,finit,0}!astatement!args {#long,#long}!bmap {0,0}!subs {_clearbitmap2,0,0}!args {#long,#long,#word,#word}!bmap {0,0}!subs {_clearbitmap,0,0}!name {"ClearBitmap","bitmap#,delay[,height,offset]"}!astatement!args {#long,#long,#long}!libs {#bitmaplib,#ia0|#pd0,#bitmaplib,#ia1|#pd1}!subs {_fadeinbitmap2,0,0}!args {#long,#long,#long,#word,#word,#word}!libs {#bitmaplib,#ia0|#pd0,#bitmaplib,#ia1|#pd1}!subs {_fadeinbitmap,0,0}!name {"FadeInBitmap","bitmapsource#,bitmapdest#,delay[,height,offset1,offset2]"}!astatement!args {#byte,#byte,#long,#long,#word,#word}!libs {#bitmaplib,#ia0|#pd0,#bitmaplib,#ia1|#pd1}!subs {_zoomxy_no_xy,0,0}!args {#byte,#byte,#long,#long,#word,#word,#byte}!libs {#bitmaplib,#ia0|#pd0,#bitmaplib,#ia1|#pd1}!subs {_zoomx4_xy,0,0}!name {"ZoomX4","source#,dest#,sourceadd,destadd,width,height[,xy_select]"}!acommand {#long}!args {#long,#long,#long,#long,#word,#word}!libs {#bitmaplib,#ia0|#pd0,#bitmaplib,#ia1|#pd1}!subs {_asmderez,0,0}!name {"Derez","source#,dest#,sourceadd,destadd,derez_value,height"}!astatement!args {#word,#word,#word}!libs!subs {_AsmZoom,0,0}!name {"ZoomXY","xzoom,yzoom,height"}!astatement!args {#long,#long,#long,#long}!libs {#bitmaplib,#ia0|#pd0,#bitmaplib,#ia1|#pd1}!subs {_InitZoomxy,0,0}!name {"InitZoomXY","source#,dest#,sourceadd,destadd"}!astatement!args {#long,#long,#long,#long,#word,#word}!libs {#bitmaplib,#ia0|#pd0,#bitmaplib,#ia1|#pd1}!subs {_zoomx2,0,0}!name {"ZoomX2","source#,dest#,sourceadd,destadd,width,height"}!astatement!args {#long,#long,#word,#word,#word}!libs!subs {_planetochunky,0,0}!name {"PlanarToChunky","bitmap_addr,dest_addr,width,height,depth"}!astatement!args {#long,#long,#word,#word,#word}!libs!subs {_chunkytoplane,0,0}!name {"ChunkyToPlanar","source_addr,bitmap_addr,width,height,depth"}!astatement!args {#byte,#byte,#long,#long,#word,#word}!libs {#bitmaplib,#ia0|#pd0,#bitmaplib,#ia1|#pd1}!subs {_zoomx8,0,0}!name {"ZoomX8","source#,dest#,sourceadd,destadd,width,height"}!afunction {#long}!args {#byte,#word,#word}!bmap {0,0}!subs {_ADDValue,0,0}!name {"ADDValue","(bitmap#,x,y)"}!astatement!args {#byte,#byte,#long,#long,#word,#word}!libs {#bitmaplib,#ia0|#pd0,#bitmaplib,#ia1|#pd1}!subs {_ReduceX2,0,0}!name {"ReduceX2","source#,dest#,sourceadd,destadd,width,height"}finit:!nullsub{_libfinit,0,0}init: !nullsub{_libinit,0,0}!libfin_libfinit: А░.l tableaddress АP 'yup АФ'yup А~.l #1856,d0 А~.l tableaddress,a1 А8 $c003 АФ_libinit: А~.l #1856,d0 ; amount of memoru for LUTs АБ.l #%1,d1 ; any memory please АБ.l #0,d2 А8 $c002 ; call Blitz allocmem А░.l d0 АP 'gotmem АФ'gotmem: А~.l d0,tableaddress А~.l d0,a0CreateReduceX2: А~.l a0,reducex2table АБ.l #0,d0'loop: АБ.l #0,d1'bit7: АW #7,d0 АH 'bit5 АV #3,d1'bit5: АW #5,d0 АH 'bit3 АV #2,d1'bit3: АW #3,d0 АH 'bit1 АV #1,d1'bit1: АW #1,d0 АH 'endloop АV #0,d1'endloop: А~.b d1,(a0)+ А@.w #1,d0 А].w #256,d0 АP 'loopCreateZoomX2: А~.l a0,zoomx2table АБ.l #0,d0'loop: АБ.l #0,d1'bit7: АW #7,d0 АH 'bit6 А=.w #%1100000000000000,d1'bit6: АW #6,d0 АH 'bit5 А=.w #%11000000000000,d1'bit5: АW #5,d0 АH 'bit4 А=.w #%110000000000,d1'bit4: АW #4,d0 АH 'bit3 А=.w #%1100000000,d1'bit3: АW #3,d0 АH 'bit2 А=.b #%11000000,d1'bit2: АW #2,d0 АH 'bit1 А=.b #%110000,d1'bit1: АW #1,d0 АH 'bit0 А=.b #%1100,d1'bit0: АW #0,d0 АH 'endloop А=.b #%11,d1'endloop: А~.w d1,(a0)+ А@.w #1,d0 А].w #256,d0 АP 'loopCreateZoomX4: А~.l a0,zoomx4table АБ.l #0,d0'loop: АБ.l #0,d1'bit7: АW #7,d0 АH 'bit6 А=.l #$f0000000,d1'bit6: АW #6,d0 АH 'bit5 А=.l #$f000000,d1'bit5: АW #5,d0 АH 'bit4 А=.l #$f00000,d1'bit4: АW #4,d0 АH 'bit3 А=.l #$f0000,d1'bit3: АW #3,d0 АH 'bit2 А=.w #$f000,d1'bit2: АW #2,d0 АH 'bit1 А=.w #$f00,d1'bit1: АW #1,d0 АH 'bit0 А=.b #$f0,d1'bit0: АW #0,d0 АH 'endloop А=.b #$f,d1'endloop: А~.l d1,(a0)+ А@.w #1,d0 А].w #256,d0 АP 'loopCreateZoomX8: А~.l a0,zoomx8table АБ.l #0,d0'loop: АБ.l #0,d1'bit3: АW #3,d0 АH 'bit2 А=.l #$ff000000,d1'bit2: АW #2,d0 АH 'bit1 А=.l #$ff0000,d1'bit1: АW #1,d0 АH 'bit0 А=.w #$ff00,d1'bit0: АW #0,d0 АH 'endloop А=.b #$ff,d1'endloop: А~.l d1,(a0)+ А@.b #1,d0 А].b #16,d0 АP 'loop АФ._planetochunky АВ.l d0-d7/a0-a6,-(a7) А~.l d0,a0 А~.l d1,a1 А~.l #"CKPL",(a1)+ ; store header in plane А~.w d2,(a1)+ ; store width in plane А~.w d3,(a1)+ ; store height in plane А~.w d4,(a1)+ ; store depth in plane А~.b d4,bitdepth ; store depth АE.w #3,d2 ; get width in bytes АC.l #$ff,d2 Ак.w #1,d2 ; adjust for dbra А~.w d2,bitwidth ; and store Ак.w #1,d3 ; adjust height for dbra А~.w d3,bitheight ; and store А~.w (a0),bitmapwidth ; store bitmap width АБ.l #0,d4 А~.b 5(a0),d4 Ак.w #1,d4 А@.l #8,a0 А~.l (a0)+,TBPL0 А~.l (a0)+,TBPL1 А~.l (a0)+,TBPL2 А~.l (a0)+,TBPL3 А~.l (a0)+,TBPL4 А~.l (a0)+,TBPL5 А~.l (a0)+,TBPL6 А~.l (a0)+,TBPL7 А~.w bitheight,d7 ; d7=line counter А~.l a1,a6 АВ.l d0-d7/a0-a6,-(a7) А~.l 4,a6 Аy -$27c(a6) АВ.l (a7)+,d0-d7/a0-a6'yloop: А~.w bitwidth,d6 ; d6=width in bytes АБ.l #7,d5 ; pointer to bit АБ.l #0,d3 ; amount to add to bitplane pointer'xloop АБ.l #0,d0; construct a byte from upto 8 bitplanes'TSTBPL0: А~.l TBPL0,a1 А=.l d3,a1 АW d5,(a1) АH 'TSTBPL1 АV #0,d0'TSTBPL1: А\.b #1,bitdepth АH 'end_test А~.l TBPL1,a1 А=.l d3,a1 АW d5,(a1) АH 'TSTBPL2 АV #1,d0'TSTBPL2: А\.b #2,bitdepth АH 'end_test А~.l TBPL2,a1 А=.l d3,a1 АW d5,(a1) АH 'TSTBPL3 АV #2,d0'TSTBPL3: А\.b #3,bitdepth АH 'end_test А~.l TBPL3,a1 А=.l d3,a1 АW d5,(a1) АH 'TSTBPL4 АV #3,d0'TSTBPL4: А\.b #4,bitdepth АH 'end_test А~.l TBPL4,a1 А=.l d3,a1 АW d5,(a1) АH 'TSTBPL5 АV #4,d0'TSTBPL5: А\.b #5,bitdepth АH 'end_test А~.l TBPL5,a1 А=.l d3,a1 АW d5,(a1) АH 'TSTBPL6 АV #5,d0'TSTBPL6: А\.b #6,bitdepth АH 'end_test А~.l TBPL6,a1 А=.l d3,a1 АW d5,(a1) АH 'TSTBPL7 АV #6,d0'TSTBPL7: А\.b #7,bitdepth АH 'end_test А~.l TBPL7,a1 А=.l d3,a1 АW d5,(a1) АH 'end_test АV #7,d0'end_test: А~.b d0,(a6)+ ; store byte Ак.b #1,d5 АQ 'xloop А@.b #1,d3 АБ.l #7,d5 Аo d6,'xloop АБ.l #0,d5 А~.w bitmapwidth,d5 А=.l d5,TBPL0 А=.l d5,TBPL1 А=.l d5,TBPL2 А=.l d5,TBPL3 А=.l d5,TBPL4 А=.l d5,TBPL5 А=.l d5,TBPL6 А=.l d5,TBPL7 Аo d7,'yloop АВ.l (a7)+,d0-d7/a0-a6 АФ._chunkytoplane: АВ.l d0-d7/a0-a6,-(a7) А~.l d0,a0 А~.l d1,a1 А~.b d4,bitdepth ; store depth Ак.w #1,d2 ; adjust for dbra А~.w d2,bitwidth ; and store Ак.w #1,d3 ; adjust height for dbra А~.w d3,bitheight ; and store А~.w (a1),bitmapwidth ; store bitmap width АБ.l #0,d4 А~.b 5(a1),d4 Ак.w #1,d4 А@.l #8,a1 А~.l a1,a5 АВ.l d0-d7/a0-a6,-(a7) А~.l 4,a6 Аy -$27c(a6) АВ.l (a7)+,d0-d7/a0-a6 А~.l a0,a6 АБ.l #0,d4;a6=Addr Chunky a5=Bitplane PTRS'bitplane_loop: А~.l a6,a0 А~.l (a5)+,a2 А~.l a2,a1 А~.w bitheight,d7 ; d7=line counter'yloop: А~.w bitwidth,d6 ; d6=width in bytes АБ.l #31,d5 ; d5=pointer to bit АБ.l #0,d1 ; d4=bitplane pointer'xloop: ; d0=chunky byte А~.b (a0)+,d0 ; d1=bitplane data АW d4,d0 АH 'not_set АV d5,d1'not_set: Ак.w #1,d6 АO 'end_of_line Ак.b #1,d5 АQ 'xloop А~.l d1,(a1)+ АБ.l #0,d1 АБ.l #31,d5 АX 'xloop'end_of_line А~.l d1,(a1)+ АБ.l #0,d0 А~.w bitmapwidth,d0 А=.l d0,a2 А~.l a2,a1 Аo d7,'yloop А@.b #1,d4 А\.b bitdepth,d4 АP 'bitplane_loop АВ.l (a7)+,d0-d7/a0-a6 АФbitdepth: А%.b 1 А'bitwidth: А%.w 1bitheight: А%.w 1bitmapwidth: А%.w 1TBPL0: А%.l 1TBPL1: А%.l 1TBPL2: А%.l 1TBPL3: А%.l 1TBPL4: А%.l 1TBPL5: А%.l 1TBPL6: А%.l 1TBPL7: А%.l 1;Clear a bitmap backwards_clearbitmap2: А~.w 2(a0),d2 АБ.l #0,d3._clearbitmap: АВ.l a4-a6,-(a7) ;save registers А~.l d1,delay_timer ;store delay value А~.w (a0),d1 ;get EBWidth АE.w #1,d1 ;divide by 2 Ак.w #1,d1 ;adjust for dbra А~.w d1,EWWidth ;even word width of clear А~.w 4(a0),BDepth ;get depth Ак.w #1,BDepth ;subtract 1 АC.l #$ffff,d2 А~.w d2,BHeight Ак.w #1,BHeight А=.w d3,d2 АД.w (a0),d2 ;multiple by EBWidth Ак.l #4,d2 ;subtract 2 for loop А@.l #8,a0 А~.w BDepth,d0 Аz bit_add(pc),a1 Аz dest_add(pc),a2Store_loop А~.l (a0)+,d1 А=.l d2,d1 А~.l d1,(a1)+ А~.l d1,(a2)+ Аo d0,Store_loop;yer actual routine АБ.l #0,d5 А~.w BHeight,d5 ;get height А~.w #-19,d4 ;stop value А~.l #%1010101010101010,d3 ;source maskMain_loop А░.w d5 ;over 0? АO Clear_a_line ; no - branchMask_a_line Аz bit_add(pc),a1 ;get first dest pointers А~.w EWWidth,d6 ;get widthXloop А~.w BDepth,d7 ;get width А~.l a1,a0 ;get dest pointer arraybit_loop А~.l (a0),a2 ;get bitplane АB.w d3,(a2) ;mask word Ак.l #2,(a0)+ ;subtract 4 from source Аo d7,bit_loop ;loop for all bitplanes Аo d6,Xloop ;loop for all of line АЙ.w d3 ;not mask for next lineClear_a_line А░.w d4 ;Clear this line? АO End_loop ;no - branch Аz dest_add(pc),a1 ;get second dest pointers А~.w EWWidth,d6 ;get widthXloop2 А~.w BDepth,d7 ;get depth А~.l a1,a0 ;get arraybit_loop2 А~.l (a0),a2 ;get bitplane pointer А~.w #0,(a2) ;clear word Ак.l #2,(a0)+ ;decrement pointer and adjust array Аo d7,bit_loop2 ;loop for all planes Аo d6,Xloop2 ;loop for all of widthEnd_loop А~.l delay_timer,d7 ;get delay valueSlow_down_loop Ак.l #1,d7 ;simple instruction АP Slow_down_loop ;loop until 0 А@.w #1,d4 ;1 more line done Ак.w #1,d5 ;decrement counter А].w #-20,d5 ;is it the end? АP Main_loop ;nop - branch АВ.l (a7)+,a4-a6 ;restore registers АФ ;and exit;Copy a bitplane nicely!_fadeinbitmap2: А~.w 2(a0),d3 АБ.l #0,d4 АБ.l #0,d5._fadeinbitmap: АВ.l a4-a6,-(a7) ;save resgisters А~.l d2,delay_timer ;store delay value А~.w (a0),d2 ;get EBWidth АE.w #1,d2 ;divide by 2 Ак.w #1,d2 ;adjust for dbra А~.w d2,EWWidth ;even word width of clear А~.w 4(a0),BDepth ;get depth to do Ак.w #1,BDepth ;adjust for dbra АC.l #$ffff,d3 ;just in case А~.w d3,BHeight ;store height to do Ак.w #1,BHeight ;adjust for dbra АД.w (a0),d4 ;make pixel offsets АД.w (a0),d5 ; into byte offsets А@.l #8,a0 ;get source bitplane pointers А@.l #8,a1 ;get dest bitplane poi\nters А~.w BDepth,d0 ;get depth Аz bit_add(pc),a2 ;storage area source Аz dest_add(pc),a3 ;storage area dest'Store_loop А~.l (a0)+,d1 ;source bitplane А=.l d4,d1 ;add offset А~.l d1,(a2)+ ;store pointer А~.l d1,(a3)+ ;store pointer А~.l (a1)+,d1 ; destination bitmap А=.l d5,d1 ;add offset А~.l d1,(a2)+ ;store pointer А~.l d1,(a3)+ ;store pointer Аo d0,'Store_loop ;loop for all bitplanes;yer actual routine АБ.l #0,d5 А~.w BHeight,d5 ;get height А~.w #-19,d4 ;stop value А~.l #%1010101010101010,d3 ;data mask'Main_loop А░.w d5 ;under 0? АO 'Clear_a_line ;yup - branch'Mask_a_line Аz bit_add(pc),a1 ;get pointers А~.w EWWidth,d6 ;get width'Xloop А~.w BDepth,d7 ;get depth to do А~.l a1,a0 ;get pointers'bit_loop А~.l (a0),a2 ;get source bitplane А~.l 4(a0),a3 ;get dest bitplane А~.w (a2),d0 ;get a word of data АB.w d3,d0 ;and mask it А~.w d0,(a3) ;store in dest А@.l #2,(a0)+ ;adjust pointer and store А@.l #2,(a0)+ ;adjust pointer and store Аo d7,'bit_loop ;loop for all bitplanes Аo d6,'Xloop ;loop for all of width АЙ.w d3 ;NOT mask for next line'Clear_a_line А░.w d4 ;do this line? АO 'End_loop ;no - branch Аz dest_add(pc),a1 ;get pointer array А~.w EWWidth,d6 ;get width'Xloop2 А~.w BDepth,d7 ;get depth А~.l a1,a0 ;get array'bit_loop2 А~.l (a0),a2 ;get source bitplane А~.l 4(a0),a3 ;get dest bitplane А~.w (a2),(a3) ;copy data over А@.l #2,(a0)+ ;adjust pointer А@.l #2,(a0)+ ;adjust pointer Аo d7,'bit_loop2 ;loop for all bitplanes Аo d6,'Xloop2 ;loop for all of width'End_loop А~.l delay_timer,d7 ;get delay value'Slow_down_loop Ак.l #1,d7 ;simple instruction АP 'Slow_down_loop ;loop until 0 А@.w #1,d4 ;adjust counter Ак.w #1,d5 ;adjust counter А].w #-20,d5 ;is it all done? АP 'Main_loop ;loop until it is АВ.l (a7)+,a4-a6 ;restore registers АФ ;and exit А'EWWidth: А%.w 0BHeight: А%.w 0BDepth: А%.w 0delay_timer:А%.l 0;================================_zoomx4_xy: А~.b -1(a2),d7 АX _zoomx4_zoomxy_no_xy: А[.b d7._zoomx4: А░.l zoomx4table АP 'yup АФ'yup: А~.b d7,d0 АВ.l d0-d7/a0-a6,-(a7) А~.l d2,d6 А~.l d3,d7 АБ.l #0,d2 А~.b 5(a0),d2 Ак.b #1,d2 ; adjust for dbra Аz 8(a0),a5 Аz 8(a1),a6 А~.l zoomx4table,a4 АE.w #3,d4 А~.w d4,d3 Ак.w #1,d4 ; adjust for dbra АO the_end Ак.w #1,d5 ; adjust for dbra АO the_end А~.w d4,xzoom А~.w d5,yzoom А].b #1,d0 АH X4_x А].b #2,d0 АH X4_y;Calculate source mod АБ.l #0,d5 А~.w -8(a5),d5 Аз.w d3,d5;Calculate dest mod АБ.l #0,d4 А~.w -8(a6),d4 А~.w d4,bytesperline+2 АD.w #2,d4 АD.w #2,d3 Аз.w d3,d4 А~.l d4,d3 А~.l a5,sourcebitplanes;X4 - x and y'x4do_bitplanes А~.l sourcebitplanes,a5 А=.l #4,sourcebitplanes А~.l (a5)+,a0 А=.l d6,a0 А~.l (a6)+,a1 А=.l d7,a1 А~.l a1,a2 А=.l bytesperline,a2 А~.l a2,a3 А=.l bytesperline,a3 А~.l a3,a5 А=.l bytesperline,a5 А~.w yzoom,d1'x4next_line А~.w xzoom,d0'x4do_line АБ.l #0,d4 А~.b (a0)+,d4 АD.w #2,d4 А~.l 0(a4,d4.w),d4 А~.l d4,(a1)+ А~.l d4,(a2)+ А~.l d4,(a3)+ А~.l d4,(a5)+ Аo d0,'x4do_line А=.l d5,a0 А=.l d3,a1 А=.l d3,a2 А=.l d3,a3 А=.l d3,a5 Аo d1,'x4next_line Аo d2,'x4do_bitplanes АВ.l (a7)+,d0-d7/a0-a6 АФ sourcebitplanes: А%.l 0X4_x:;Calculate source mod АБ.l #0,d5 А~.w -8(a5),d5 Аз.w d3,d5;Calculate dest mod АБ.l #0,d4 А~.w -8(a6),d4 АD.w #2,d3 Аз.w d3,d4 А~.l d4,d3'x4do_bitplanes А~.l (a5)+,a0 А=.l d6,a0 А~.l (a6)+,a1 А=.l d7,a1 А~.w yzoom,d1'x4next_line А~.w xzoom,d0; MOVE.l a0,a2; MOVE.l a1,a3'x4do_line АБ.l #0,d4 А~.b (a0)+,d4 АО.w #2,d4 А~.l 0(a4,d4.w),(a1)+ Аo d0,'x4do_line А=.l d5,a0 А=.l d3,a1 Аo d1,'x4next_line Аo d2,'x4do_bitplanes АВ.l (a7)+,d0-d7/a0-a6 АФX4_y:;Calculate source mod АБ.l #0,d5 А~.w -8(a5),d5 Аз.w d3,d5;Calculate dest mod АБ.l #0,d4 А~.w -8(a6),d4 А~.w d4,bytesperline+2 АD.w #2,d4 Аз.w d3,d4 А~.l d4,d3 А~.l a5,sourcebitplanes'x4do_bitplanes А~.l sourcebitplanes,a5 А=.l #4,sourcebitplanes А~.l (a5)+,a0 А=.l d6,a0 А~.l (a6)+,a1 А=.l d7,a1 А~.l a1,a2 А=.l bytesperline,a2 А~.l a2,a3 А=.l bytesperline,a3 А~.l a3,a5 А=.l bytesperline,a5 А~.w yzoom,d1'x4next_line А~.w xzoom,d0'x4do_line А~.b (a0)+,d4 А~.b d4,(a1)+ А~.b d4,(a2)+ А~.b d4,(a3)+ А~.b d4,(a5)+ Аo d0,'x4do_line А=.l d5,a0 А=.l d3,a1 А=.l d3,a2 А=.l d3,a3 А=.l d3,a5 Аo d1,'x4next_line Аo d2,'x4do_bitplanesthe_end: АВ.l (a7)+,d0-d7/a0-a6 АФ._zoomx2: А░.l zoomx2table АP 'yup АФ'yup: АВ.l d0-d7/a0-a6,-(a7) А~.l d2,d6 А~.l d3,d7 АБ.l #0,d2 А~.b 5(a0),d2 Ак.b #1,d2 ; adjust for dbra Аz 8(a0),a5 Аz 8(a1),a6 А~.l zoomx2table,a4 АE.w #3,d4 А~.w d4,d3 Ак.w #1,d4 ; adjust for dbra АO 'the_end Ак.w #1,d5 ; adjust for dbra АO 'the_end А~.w d4,xzoom А~.w d5,yzoom;Calculate source mod АБ.l #0,d5 А~.w -8(a5),d5 Аз.w d3,d5;Calculate dest mod АБ.l #0,d4 А~.w -8(a6),d4 А~.w d4,bytesperline+2 Аз.w d3,d4 Аз.w d3,d4 А~.l d4,d3 А=.w -8(a6),d3'x2do_bitplanes А~.l (a5)+,a0 А=.l d6,a0 А~.l (a6)+,a1 А=.l d7,a1 А~.l a1,a2 А=.l bytesperline,a2 А~.w yzoom,d1'x2next_line А~.w xzoom,d0'x2do_line АБ.l #0,d4 А~.b (a0)+,d4 АD.w #1,d4 А~.w 0(a4,d4.w),d4'x2drawbits А~.w d4,(a1)+ А~.w d4,(a2)+ Аo d0,'x2do_line А=.l d5,a0 А=.l d3,a1 А=.l d3,a2 Аo d1,'x2next_line Аo d2,'x2do_bitplanes'the_end: АВ.l (a7)+,d0-d7/a0-a6 АФ._zoomx8 А░.l zoomx8table АP 'yup АФ'yup: АВ.l d0-d7/a0-a6,-(a7) А~.l d2,d6 А~.l d3,d7 АБ.l #0,d2 А~.b 5(a0),d2 Ак.b #1,d2 ; adjust for dbra Аz 8(a0),a5 Аz 8(a1),a6 А~.l zoomx8table,a4 АE.w #3,d4 Ак.w #1,d4 ; adjust for dbra АO 'the_end Ак.w #1,d5 ; adjust for dbra АO 'the_end А~.w d4,xzoom А~.w d5,yzoom'do_bitplanes А~.l (a5)+,a0 А=.l d6,a0 А~.l (a6)+,a1 А=.l d7,a1 А~.w yzoom,d1'next_line А~.w xzoom,d0 А~.l a0,a2 А~.l a1,a3'do_line А~.b (a2)+,d4 А~.b d4,d5 АC.b #$f,d5 АC.l #$f0,d4 А}.b #2,d4 А~.l 0(a4,d4.w),d3'drawbits А~.l d3,(a3) А~.l d3,40(a3) А~.l d3,80(a3) А~.l d3,120(a3) А~.l d3,160(a3) А~.l d3,200(a3) А~.l d3,240(a3) А~.l d3,280(a3) А|.b #2,d5 А~.l 0(a4,d5.w),d3 А@.l #4,a3 А~.l d3,(a3) А~.l d3,40(a3) А~.l d3,80(a3) А~.l d3,120(a3) А~.l d3,160(a3) А~.l d3,200(a3) А~.l d3,240(a3) А~.l d3,280(a3) А@.l #4,a3 Аo d0,'do_line Аz 40(a0),a0 Аz 320(a1),a1 Аo d1,'next_line Аo d2,'do_bitplanes'the_end АВ.l (a7)+,d0-d7/a0-a6 АФ._ReduceX2: А░.l reducex2table АP 'yup АФ'yup: АВ.l d0-d7/a0-a6,-(a7) А~.l d2,d6 А~.l d3,d7 АБ.l #0,d2 А~.b 5(a0),d2 Ак.b #1,d2 ; adjust for dbra А~.w (a0),d0 АD.w #1,d0 А~.w d0,bytesperline+2 А~.w (a1),bytesperline2+2 Аz 8(a0),a5 Аz 8(a1),a6 А~.l reducex2table,a4 АE.w #3,d4 Аз.w d4,bytesperline+2 АE.w #1,d4 Аз.w d4,bytesperline2+2 Ак.w #1,d4 ; adjust for dbra АO 'the_end АE.w #1,d5 Ак.w #1,d5 ; adjust for dbra АO 'the_end А~.w d4,xzoom А~.w d5,yzoom АБ.l #0,d4'x2do_bitplanes А~.l (a5)+,a0 А=.l d6,a0 А~.l (a6)+,a1 А=.l d7,a1 А~.w yzoom,d1'x2next_line А~.w xzoom,d0'x2do_line А~.b (a0)+,d4 А~.b 0(a4,d4.w),d3 АD.b #4,d3 А~.b (a0)+,d4 АК.b 0(a4,d4.w),d3 А~.b d3,(a1)+ Аo d0,'x2do_line А=.l bytesperline,a0 А=.l bytesperline2,a1 Аo d1,'x2next_line Аo d2,'x2do_bitplanes'the_end: АВ.l (a7)+,d0-d7/a0-a6 АФ А'bytesperline: А%.l 0bytesperline2:А%.l 0xzoom: А%.w 1yzoom: А%.w 1tableaddress: А%.l 0reducex2table:А%.l 0zoomx2table: А%.l 0zoomx4table: А%.l 0zoomx8table: А%.l 0._asmderez А░.w d4 АP 'ok АФ'ok АВ.l d1-d7/a0-a6,-(a7) ; save BLITZ registers А~.w d4,res_value ; store res_value А~.w d4,res_value2 ; store again BUT Ак.w #1,res_value2 ; subtract 1 this time А~.w d5,height ; store height AND Ак.w #1,height ; subtract 1 for dbra А~.b 5(a0),sbitdepth+1 ; get source bitplane depth Ак.w #1,sbitdepth ; subtract 1 for dbra Аz 8(a0),a0 ; get source's bitplane pointers Аz 8(a1),a1 ; get dest's bitplane pointers А~.w sbitdepth,d0 ; get bitdepth in d0 Аz bit_add(pc),a2 ; source bitplane storage Аz dest_add(pc),a3 ; dest bitplane storage'store_bitplanes А~.l (a0)+,(a2) ; copy source bitplane address А=.l d2,(a2)+ ; AND add offset value А~.l (a1)+,(a3) ; copy dest bitplane address А=.l d3,(a3)+ ; AND add offset value Аo d0,'store_bitplanes ; loop for all bitplanes А░.w res_value2 ; Is res_value2=0? АH ScreenCopy ; if so - SCREENCOPY А].w #2,res_value ; Is res_value=2? АH UnrezX2 ; yes - do FAST X2 unrez АБ.l #40,d7 ; 40 byte wide screen АД.w res_value,d7 ; X number of lines А~.l d7,add_value ; gives us step value А~.w height,yvalue ; store height in yvalue for use ; in loop Аz myline(pc),a5 АБ.l #19,d0 АБ.l #15,d1 А~.w res_value,d3 АБ.l #0,d2'widthloop: АV d1,d2 Аз.w d3,d1 АQ 'widthloop; NOT.w d2 А~.w d2,(a5)+ АБ.l #0,d2 А=.w #16,d1 АO 'moretodo Аo d0,'widthloop АX 'yloop'moretodo: А~.w #0,(a5)+ Ак.w #1,d0 АO 'yloop А=.w #16,d1 АO 'moretodo Аo d0,'widthloop'yloop: ; d6=bitplane loop Аz bit_add(pc),a0 ; d5=xloop Аz dest_add(pc),a6 А~.w sbitdepth,d6'bitplane_loop: А~.w yvalue,d7 А~.l (a0),a1 ; a1=source А~.l a1,a2 ; a2=source (corruptable) А~.l (a6),a3 ; a3=destination АБ.l #19,d5 ; x count for pixels АБ.l #0,d0 АБ.l #0,d1 А].w #16,res_value2 АK 'bitbitplane_loop Аz myline(pc),a5 А~.w #0,mytemp'xloop: АБ.l #0,d0 АБ.l #0,d2 А~.w (a2)+,d0 А~.w (a5)+,d2 АB.w d2,d0 А~.w d0,d2 А~.w res_value2,d4 Ак.w #1,d4'myrollloop: АП.l #1,d2 АК.l d2,d0 Аo d4,'myrollloop АX 'dotherest'dotherest: АК.w d1,d0 А~.w d0,(a3)+ Ам d0 А~.w d0,d1 Аo d5,'xloop ; loop for whole line АX 'done_line;Bitmode:'bitbitplane_loop:; MOVE.w yvalue,d7; MOVE.l (a0),a1 ; a1=source; MOVE.l a1,a2 ; a2=source (corruptable); MOVE.l (a6),a3 ; a3=destination; MOVEQ.l #19,d5 ; x count for pixels АБ.l #15,d3 ; first bit to test on line'bitxloop: А~.w res_value2,d4 ; get number of bits to set А~.w (a2),d0 ; get source word АW d3,d0 ; test bit of word АH 'clearbits ; if not set - branch'setbits: ; SETS bits in dest line А~.w (a3),d2 ; get destination word'setbits_loop: АV d3,d2 ; set the bit! Ак.b #1,d3 ; decrease bit pointer АO 'setbits_word ; if negative the get new word Аo d4,'setbits_loop ; loop for all bits АX 'next_bit ; branch to main line loop'setbits_word: ; GETS a new destination word А@.l #2,a2 ; add 2 to source - IMPORTANT А~.w d2,(a3)+ ; move current word into dest А~.w (a3),d2 ; get new word АБ.l #15,d3 ; reset bit pointer Ак.b #1,d5 ; subtract 1 from # of words АO 'done_line ; exit if we've overflowed the line Аo d4,'setbits_loop ; loop for all bits to set АX 'next_bit ; branch to main line loop'clearbits ; CLEARS bits in dest line А~.w (a3),d2'clearbits_loop: АU d3,d2 Ак.b #1,d3 АO 'clearbits_word Аo d4,'clearbits_loop АX 'next_bit'clearbits_word: А@.w #2,a2 А~.w d2,(a3)+ А~.w (a3),d2 АБ.l #15,d3 Ак.b #1,d5 АO 'done_line Аo d4,'clearbits_loop'next_bit: А~.w d2,(a3) ; store dest word АX 'bitxloop ; loop for whole line'done_line ; COPIES line vertically А~.w res_value,d4 ; get res_value Ак.w #2,d4 ; subtract 2 (dbra & current line) А~.l (a6),a1 ; get dest bitplane address Аz 40(a1),a2 ; add 40 ti skip current line'copy_line: Ак.w #1,d7 ; subtract 1 from height АO 'out_of_screen ; Height negative? - OVERFLOW А~.l (a1)+,(a2)+ ; Copy 40 bytes А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ Аo d4,'copy_line ; loop around for all lines А~.l add_value,d4 ; move source bitplane pointer down А=.l d4,(a0) ; by the current amount & store'out_of_screen ; ALL Y SCREEN FILLED FOR 1 bitplane А@.l #4,a0 ; increment source bitplane pointer А~.l a2,(a6)+ ; store dest bitplane pointer Аo d6,'bitplane_loop ; loop for all bitplanes А~.w res_value,d6 Аз.w d6,yvalue ; decrease yvalue А░.w yvalue ; test yvalue for OVERFLOW АO get_out_of_it ; yvalue NEGATIVE? - RTS АX 'yloop ; loop for all linesget_out_of_it АВ.l (a7)+,d1-d7/a0-a6 ; restore BLITZ registers АФ ; EXITUnrezX2 АБ.l #0,d7 ; clear d7 А~.w height,d7 ; get height-1 А@.w #1,d7 ; add 1 to height АE.w #1,d7 ; divide by 2 for FASTX2 Ак.w #1,d7 ; subtract 1 for dbra Аz bit_add(pc),a0 ; get source pointers Аz dest_add(pc),a1 ; get dest pointers А~.w sbitdepth,d6 ; get bitplane depth'X2bitloop А~.l (a0)+,a2 ; get source bitplane address А~.l (a1)+,a3 ; get dest bitplane address А~.w d7,d5 ; copy height into temp'X2yloop А~.w #9,d4 ; do 10 longwords please'X2xloop А~.l (a2)+,d0 ; get data АC.l #%10101010101010101010101010101010,d0 ; MASK data А~.l d0,d1 ; copy into d1 АE.l #1,d1 ; roll 1 place to the right АК.l d1,d0 ; OR with original data А~.l d0,(a3)+ ; store data А~.l d0,36(a3) ; copy to line below as well Аo d4,'X2xloop ; do whole line Аz 40(a2),a2 ; adjust bitplane pointers Аz 40(a3),a3 ; to skip a whole line Аo d5,'X2yloop ; loop for all lines Аo d6,'X2bitloop ; loop for all bitplanes АВ.l (a7)+,d1-d7/a0-a6 ; restore BLITZ registers АФ ; EXIT! А'add_value: А%.l 1 ; step value for source bitplanesres_value: А%.w 1 ; store for unrez valueres_value2: А%.w 1 ; fast res_value for dbra usemytemp: А%.w 0myline: А%.w %0110110110110110,%1101101101101101,%1011011011011011 А%.w %0110110110110110,%1101101101101101,%1011011011011011 А%.w %0110110110110110,%1101101101101101,%1011011011011011 А%.w %0110110110110110,%1101101101101101,%1011011011011011 А%.w %0110110110110110,%1101101101101101,%1011011011011011 А%.w %0110110110110110,%1101101101101101,%1011011011011011myflag: А%.b 0А';.exit._AsmZoom А░.w d0 АH exithere А░.w d1 АH exithere АВ.l d1-d7/a0-a6,-(a7) ; save BLITZ registers А~.l source_address,a0 А~.l dest_address,a1 А~.l add_source,d4 А~.l add_dest,d5 А~.w d0,xzoom_value ; store zoom_value Ак.w #1,xzoom_value А~.w d1,yzoom_value2 ; store yzoom А~.w d1,yzoom_value ; store again BUT Ак.w #1,yzoom_value ; subtract 1 this time А~.w d2,height ; store height AND Ак.w #1,height ; subtract 1 for dbra А~.b 5(a0),sbitdepth+1 ; get source bitplane depth Ак.w #1,sbitdepth ; subtract 1 for dbra Аz 8(a0),a0 ; get source's bitplane pointers Аz 8(a1),a1 ; get dest's bitplane pointers А~.w sbitdepth,d0 ; get bitdepth in d0 Аz bit_add(pc),a2 ; source bitplane storage Аz dest_add(pc),a3 ; dest bitplane storage'store_bitplanes А~.l (a0)+,(a2) ; copy source bitplane address А=.l d4,(a2)+ ; AND add offset value А~.l (a1)+,(a3) ; copy dest bitplane address А=.l d5,(a3)+ ; AND add offset value Аo d0,'store_bitplanes ; loop for all bitplanes А░.w xzoom_value ; Is xzoom_value=0? АP 'x_over_1 ; if so then check y А░.w yzoom_value ; only screen copy if АH ScreenCopy ; xzoom & yzoom equal 1'x_over_1 А~.w height,yvalue ; store height in yvalue for use ; in loop'yloop: ; d6=bitplane loop Аz bit_add(pc),a0 ; d5=xloop Аz dest_add(pc),a6 А~.w sbitdepth,d6'bitplane_loop: А~.w yvalue,d7 А~.l (a0),a1 ; a1=source А~.l a1,a2 ; a2=source (corruptable) А~.l (a6),a3 ; a3=destination А~.l #9,d5 ; x count for longwords wide АБ.l #31,d3 ; first bit to test on line АБ.l #31,d1'xloop: А~.w xzoom_value,d4 ; get number of bits to set А~.l (a3),d2 ; get destination word А~.l (a2),d0 АW d1,d0 ; test bit of word АH 'clearbits_loop ; if not set - branch'setbits_loop: ; SETS bits in dest line АV d3,d2 ; set the bit! Ак.b #1,d3 ; decrease bit pointer АO 'setbits_word ; if negative the get new word Аo d4,'setbits_loop ; loop for all bits АX 'next_bit ; branch to main line loop'setbits_word: ; GETS a new destination word А~.l d2,(a3)+ ; move current word into dest А~.l (a3),d2 ; get new word АБ.l #31,d3 ; reset bit pointer Ак.b #1,d5 ; subtract 1 from # of longwords АO 'done_line ; exit if we've overflowed the line Аo d4,'setbits_loop ; loop for all bits to set АX 'next_bit ; branch to main line loop'clearbits_loop: ; CLEARS bits in dest line АU d3,d2 Ак.b #1,d3 АO 'clearbits_word Аo d4,'clearbits_loop АX 'next_bit'clearbits_word: А~.l d2,(a3)+ А~.l (a3),d2 АБ.l #31,d3 Ак.b #1,d5 АO 'done_line Аo d4,'clearbits_loop'next_bit: А~.l d2,(a3) ; store dest word Ак.b #1,d1 ; adjust source bit pointer АQ 'xloop ; if positive then skip next АБ.l #31,d1 ; else reset pointer & А@.l #4,a2 ; increase address АX 'xloop ; loop for whole line'done_line ; COPIES line vertically А~.w yzoom_value,d4 ; get zoom_value АH 'yzoom1 Ак.w #1,d4 ; subtract 2 (dbra & current line) А~.l (a6),a1 ; get dest bitplane address Аz 40(a1),a2 ; add 40 to skip current line'copy_line: Ак.w #1,d7 ; subtract 1 from height АO 'out_of_screen ; Height negative? - OVERFLOW А~.l (a1)+,(a2)+ ; Copy 40 bytes А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ А~.l (a1)+,(a2)+ Аo d4,'copy_line ; loop around for all lines АX 'out_of_screen'yzoom1 А~.l (a6),a2 А=.l #40,a2'out_of_screen ; ALL Y SCREEN FILLED FOR 1 bitplane А=.l #40,(a0)+ ; increment source bitplane pointer А~.l a2,(a6)+ ; store dest bitplane pointer Аo d6,'bitplane_loop ; loop for all bitplanes А~.w yzoom_value2,d6 ; get zoom_value Аз.w d6,yvalue ; decrease yvalue АO get_out_of_it2 ; yvalue NEGATIVE? - RTS АX 'yloop ; loop for all linesget_out_of_it2: АВ.l (a7)+,d1-d7/a0-a6 ; restore BLITZ registersexithere: АФ ; EXIT;General subroutine to copy one LOREZ bitmap to anotherScreenCopy ; copy 1 bitmap to another АБ.l #0,d7 ; clear d7 А~.w height,d7 ; get height-1 Аz bit_add(pc),a0 ; get source pointers Аz dest_add(pc),a1 ; get dest pointers А~.w sbitdepth,d6 ; get bitplane depth'bitloop А~.l (a0)+,a2 ; get source bitplane address А~.l (a1)+,a3 ; get dest bitplane address А~.w d7,d5 ; copy height into temp'yloop А~.l (a2)+,(a3)+ ; copy data 1 А~.l (a2)+,(a3)+ ; copy data 2 А~.l (a2)+,(a3)+ ; copy data 3 А~.l (a2)+,(a3)+ ; copy data 4 А~.l (a2)+,(a3)+ ; copy data 5 А~.l (a2)+,(a3)+ ; copy data 6 А~.l (a2)+,(a3)+ ; copy data 7 А~.l (a2)+,(a3)+ ; copy data 8 А~.l (a2)+,(a3)+ ; copy data 9 А~.l (a2)+,(a3)+ ; copy data A Аo d5,'yloop ; loop for all lines Аo d6,'bitloop ; loop for all bitplanes АВ.l (a7)+,d1-d7/a0-a6 ; save BLITZ registers АФ ; EXIT!yzoom_value: А%.w 1yzoom_value2:А%.w 1xzoom_value: А%.w 1;=================================================================sbitdepth: А%.w 0 ; bitplane depth of sourceyvalue: А%.w 0 ; y counter for loopsheight: А%.w 0 ; height of bitmap-1bit_add: А&.l 16 ; source bitplane pointers(16)dest_add: А&.l 16 ; dest bitplane pointers(16)source_address: А%.l 0dest_address: А%.l 0add_source: А%.l 0add_dest: А%.l 0;=================================================================_InitZoomxy: А~.l a0,source_address А~.l a1,dest_address А~.l d2,add_source А~.l d3,add_dest АФ_ADDValue: А~.w (a0),d0 АД.w d2,d0 АC.l #$ffff,d1 АE.w #3,d1 А=.l d1,d0 АФversion: А%.b "$VER: FX-Library v1.0 (17.7.1994)",0