Macintosh-SW
/
sys7.1-doc-wip
mirror of https://github.com/elliotnunn/sys7.1-doc-wip.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
sys7.1-doc-wip/QuickDraw/BitBlt.a

4767 lines
151 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;
; Hacks to match MacOS (most recent first):
;
; <Sys7.1> 8/3/92 Elliot make this change
; 9/2/94 SuperMario ROM source dump (header preserved below)
;
;
; File: BitBlt.a
;
; Function: Low-level bit boundary block transfer.
;
; OLD NOTE: Because BitBlt only called by RgnBlt, we know that the
; bitMaps that are passed us are not portBits.
;
; Copyright: © 1981-1990, 1992 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <R20> 4/10/92 SAH Moved in the working fast bSetup0 patch for 68040 machines from
; QDIIciPatchROM.a.
; <SM4> 7/30/92 chp Moved a short branch inside the conditional generated by <SM3>
; to get rid of an assembler “trivial short branch = NOP” warning.
; <SM3> 7/1/92 kc Conditionalize the Move16 code in bSetup0 because it doesn't
; work without flushing the cache.
; <SM2> 6/12/92 stb <sm 6/9/92>stb Synched-up with QDciPatchROM.a; added comments
; from QDciPatchROM.a; alpha channel stuff at bLONG8, bSETUP8,
; bXLONG8, bXMAIN8, bSubOver16; handle vertically aligned hilites
; and preserve a non-white bkg color through the entire blit at
; bSloHilite; fixed bTransparent and rTransparent to remove an
; optimization that was losing pattern data. Related changes in
; Arith8Blt.a;
; <17> 6/11/91 gbm Take out conditional for Regatta
; <16> 3/13/91 SMC forRegattaCPUs, fixed cpuFlag check in bSetup0 to include '040
; processors and greater.
; <15> 12/13/90 SMC Pulled out Debugger traps left in <14>. With KON.
; <14> 11/26/90 SMC Fixed pattern hiliting once and for all. With BAL.
; <13> 10/31/90 SMC Fixed alpha channel crimes with BAL.
; <12> 10/18/90 SMC Simplify and shorten colorized OR and BIC blit loops. With KON.
; <11> 9/26/90 SMC Fixed right edge problem in bSubOver16. A move.l was being used
; to retrieve a 16-bit pixel instead of a move.w.
; <10> 9/26/90 SMC Removed bTransparent optimization that was losing pattern data.
; <9> 9/17/90 BG Removed <5>. 040s are now behaving more reliably.
; <8> 9/13/90 SMC Fixed problem in bSloHilite when the background color is not
; white.
; <7> 8/17/90 KON Fix vertically aligned, horizontally overlapped arithmetic
; transfer modes. The pixel location was saved as a word instead
; of a long (in bAvg), and there was an alignment problem. This
; will not be fixed on the ci to save space.
; <6> 8/13/90 SMC Made speed improvements to bMAIN0,1,2,3 and bcMain0,3.
; <5> 6/25/90 BG Added EclipseNOPs for flakey 040s.
; <4> 6/5/90 KON Add check for inverting; if so, goto NotFast.
; <3> 6/4/90 KON Check of modeCase colorizing was backwards.
; <2> 5/24/90 KON Make bitblt look at colorizing flags rather than BGnotWhite.
; <1.7> 11/18/89 BAL Added QuickerDraw 8-bit arithmetic transfer loops
; <•1.6> 7/14/89 BAL For Aurora: Final CQD
; <1.5> 6/30/89 BAL Unrolled loop to get a 2x improvement in big-pattern filling
; <•1.4> 5/29/89 BAL Blasting in 32-Bit QuickDraw version 1.0 Final
; <•1.3> 4/12/89 BAL Blasting in 32-Bit QuickDraw 1.0B1
; 9/18/88 BAL Altered to use common stack frame file 'Drawing Vars.a'
; 1/3/87 CRC added color blt loops
; 12/12/86 CRC Added arithmetic modes
; 7/29/86 EHB Use new stack-based EXPAT buffer
; 7/26/86 EHB Added support for expanded patterns
; 7/22/86 EHB Added color to pattern OR and pattern BIC transfer modes Added
; FIRSTMASK to stack frame to free up a register
; 6/22/86 EHB Add FCOLOR, BCOLOR params to BitBlt Call new PatExpand with
; FCOLOR, BCOLOR
; 6/19/86 EHB Modified to use pixel depth All horizontal calculations done
; using longs for big pixels
; 6/9/86 EHB Use new LMask32 and RMask32 routines
; 6/8/86 EHB Modified bitBlt and scanline routines to use longs and BFEXTU.
; 6/24/85 EHB Big re-org: all shared fields set up by stretchbits before
; calling here. All parms in stack frame or registers.
;
; To Do:
;
BLANKS ON
STRING ASIS
MACHINE MC68020
BITBLT PROC EXPORT
EXPORT bMAIN0, bMAIN1, bMAIN2, bMAIN3, bSETUP8, bMAIN9, bSETUP10, bMAIN11
EXPORT bXMAIN8, bXMAIN9, bXMAIN10, bXMAIN11, bcMain0, bcMain1, bHilite, bcMain3
EXPORT bEND0, bEND1, bEND2, bEND3, bLONG8, bEND9, bEND10, bEND11, bXLONG8, bXEND9
EXPORT bXEND10, bXEND11, bcEnd0, bcEnd1, bSloHilite, bcEnd3, bAvg, bAddPin, bAddOver
EXPORT bSubPin, bTransparent, bMax, bSubOver, bMin, bLeft0, bSetup0
EXPORT bArith32Setup,bArith16Setup,bArith32Tab,bArith16Tab,bHiliteTab
;--------------------------------------------------------------
;
; PROCEDURE BitBlt(srcPix,dstPix: BitMap;
; srcRect,dstRect: Rect;
; mode: INTEGER; pat: Pattern);
;
; ALL PARAMETERS PASSED IN STACK FRAME.
;
; TRANSFERS A RECTANGULAR BLOCK OF BITS WITH NO CLIPPING AT ALL.
; MODE SPECIFIES THE COMBINATION MODE AND WHETHER THE SOURCE SHOULD COME
; FROM THE SOURCE BITMAP OR FROM A REPEATING PATTERN.
;
; COPYRIGHT APPLE COMPUTER INC.
; WRITTEN BY BILL ATKINSON
;
; POSITION INDEPENDENT AND RE-ENTRANT, CLOBBERS ONLY A0.
;
; mode bit meaning
; 7 6 5 4 3 2 1 0
; 0 msk ari 0 pat not coxb-
; arith.vars
;
; MODES: 0 SRC --> DST
; 1 SRC OR DST --> DST
; 2 SRC XOR DST --> DST
; 3 SRC BIC DST --> DST
;
; 4 (NOT SRC) --> DST
; 5 (NOT SRC) OR DST --> DST
; 6 (NOT SRC) XOR DST --> DST
; 7 (NOT SRC) BIC DST --> DST
;
; 8 PATTERN --> DST
; 9 PATTERN OR DST --> DST
; 10 PATTERN XOR DST --> DST
; 11 PATTERN BIC DST --> DST
;
; 12 (NOT PATTERN) --> DST
; 13 (NOT PATTERN) OR DST --> DST
; 14 (NOT PATTERN) XOR DST --> DST
; 15 (NOT PATTERN) BIC DST --> DST
;
; 16 … 31 ---
; 32 AVG(SRC, DST, WEIGHT) --> DST
; 33 SRC + DST --> DST (pin TO MAX)
; 34 SRC + DST --> DST (no pin)
; 35 DST - SRC --> DST (pin TO MIN)
; 36 SRC less bg --> DST
; 37 MAX(SRC, DST) --> DST
; 38 DST - SRC --> DST (no pin)
; 39 MIN(SRC, DST) --> DST
; 40 AVG(PAT, DST, WEIGHT) --> DST
; 41 PAT + DST --> DST (pin TO MAX)
; 42 PAT + DST --> DST (no pin)
; 43 DST - PAT --> DST (pin TO MIN)
; 44 PAT less bg --> DST
; 45 MAX(PAT, DST) --> DST
; 46 DST - PAT --> DST (no pin)
; 47 MIN(PAT, DST) --> DST
; 48 ---
; 49 ---
; 50 src Hilite Dst (bg <--> fg)
; 51 ---
; 52 … 55 unassigned
; 56 ---
; 57 ---
; 58 pat Hilite Dst
; Note that the mask bit is stripped by DrawText
;----------------------------------------------------
;
; STACKFRAME LINKED AND LOCALS INITIALIZED BY STRETCHBITS.
;
; A6 OFFSETS OF LOCAL VARIABLES AFTER LINK:
;
; STACK FRAME VARS USED BY SEEKMASK (CALLED BY STRETCHBITS, RGNBLT, DRAWARC, DRAWLINE)
;
;----------------------------------------------------
;
; A6 OFFSETS OF PARAMETERS AFTER LINK:
;
PARAMSIZE EQU 44 ;SIZE OF PARAMETERS
SRCBITS EQU PARAMSIZE+8-4 ;LONG, ADDR OF BITMAP
MASKBITS EQU SRCBITS-4 ;LONG, ADDR OF BITMAP
DSTBITS EQU MASKBITS-4 ;LONG, ADDR OF BITMAP
SRCRECT EQU DSTBITS-4 ;LONG, ADDR OF RECT
MASKRECT EQU SRCRECT-4 ;LONG, ADDR OF RECT
DSTRECT EQU MASKRECT-4 ;LONG, ADDR OF RECT
MODE EQU DSTRECT-2 ;WORD
PAT EQU MODE-4 ;LONG, ADDR OF PATTERN
RGNA EQU PAT-4 ;LONG, RGNHANDLE
RGNB EQU RGNA-4 ;LONG, RGNHANDLE
RGNC EQU RGNB-4 ;LONG, RGNHANDLE
multColor EQU RGNC-2 ;byte, set if source contains nonblack/white colors
blit32 EQU 0 ;<14>
;----------------------------------------------------
;
; A6 OFFSETS OF LOCAL VARIABLES AFTER LINK:
;
; STACKFRAME LINKED AND LOCALS INITIALIZED BY STRETCHBITS.
;
&CurFile SETC 'BITBLT'
INCLUDE 'DrawingVars.a'
;-------------------------------------------------------------
;
; ENTER HERE. CALLER TAKES CARE OF CURSOR.
;
; ON ENTRY, REGISTERS SET UP LIKE THIS:
;
; A2: SRCRECT
; A3: DSTRECT
; A4: SRCPIX
; A5: DSTPIX
;
; D3: SRCSHIFT (NOT USED)
; D4: DSTSHIFT
; D7: INVERT FLAG
;
; ONLY A6,A7 MUST BE PRESERVED
;----------------------------------------------------
;
; FIRST CLIP SRCRECT TO MATCH MINRECT. (COPY SRCRECT SINCE IT'S NOT VAR)
; ONLY TOPLEFT USED.
;
LEA SRCRECT2(A6),A0 ;POINT TO LOCAL COPY OF SRCRECT
MOVE MINRECT+TOP(A6),D0 ;GET MINRECT TOP
SUB TOP(A3),D0 ;CONVERT FROM DST COORDS
ADD TOP(A2),D0 ;TO SRC COORDS
MOVE D0,TOP(A0) ;PUT CLIPPED SRC TOP INTO COPY
MOVE MINRECT+LEFT(A6),D0 ;GET MINRECT LEFT
SUB LEFT(A3),D0 ;CONVERT FROM DST COORDS
ADD LEFT(A2),D0 ;TO SRC COORDS
MOVE D0,LEFT(A0) ;PUT CLIPPED SRC LEFT INTO COPY
MOVE.L A0,A2 ;KEEP NEW SRCRECT PTR IN A2
LEA MINRECT(A6),A3 ;AND USE MINRECT AS DSTRECT
;-------------------------------------------------------------
;
; CALC HEIGHT OF DSTRECT. QUIT IF HEIGHT <= 0
;
MOVE BOTTOM(A3),D0 ;GET BOTTOM
SUB TOP(A3),D0 ;CALC HEIGHT
BLE GOHOME ;QUIT IF HEIGHT <= 0
MOVE D0,HEIGHT(A6) ;SAVE FOR LATER
;--------------------------------------------------------------
;
; SET UP FOR TOP TO BOTTOM, LEFT TO RIGHT
; GET SRC AND DST TOP
;
MOVE #4,D3 ;BUMP:=4 (TRANSFER LEFT TO RIGHT)
MOVE TOP(A2),D0 ;GET SRC TOP
SUB BOUNDS+TOP(A4),D0 ;CONVERT SRC TOP TO GLOBAL
MOVE D0,SRCV(A6) ;SAVE FOR LATER
MOVE TOP(A3),D0 ;GET DST TOP
SUB BOUNDS+TOP(A5),D0 ;CONVERT DST TOP TO GLOBAL
MOVE D0,DSTV(A6) ;SAVE FOR LATER
;-------------------------------------------------
;
; SET UP DRAWING PARAMETERS FOR PATTERNS
;
MOVE LOCMODE(A6),D2 ;GET MODE
BTST #3,D2 ;PATTERN BIT SET?
BEQ.S USESRC ;=>NO, USE SOURCE
MOVE PATROW(A6),D1 ;BIG PATTERN USED?
BNE.S DONEW ;=>YES, GO USE IT
MOVEQ #$F,D7 ;TREAT COORD MOD 16
AND TOP(A3),D7 ;GET DST TOP LOCAL COORD
MOVE.L ([EXPAT,A6],D7*4),D6 ;GET FIRST PATTERN DATA
BRA NOTSRC ;NOT USING SRC, SKIP OVER
; NEW PATTERN. SET STARTING VERT POSITION, SET FLAG.
DONEW MOVEQ #0,D6 ;CLEAR HIGH WORD
MOVE PATVMASK(A6),D6 ;GET VERTICAL MASK
ADDQ #1,D6 ;CONVERT TO COUNT
DIVU PATROW(A6),D6 ;DIVIDE BY ROWSIZE
SUBQ #1,D6 ;CONVERT TO ROW MASK
AND TOP(A3),D6 ;GET TOP VERT COORD
MULU D1,D6 ;GET PATVPOS INTO D6
MOVE PATHMASK(A6),D7 ;SET UP HMASK IN D7
BRA NOTSRC ;NOT USING SRC, SKIP OVER
;-----------------------------------------------------------
;
; SOURCE WILL BE USED, SO SET UP VERT AND HORIZ DIRECTIONS
; SUCH THAT SRC WON'T GET CLOBBERED TILL AFTER IT HAS BEEN USED
;
USESRC MOVE.L BASEADDR(A4),D0 ;GET SRC BASEADDR
CMP.L BASEADDR(A5),D0 ;ARE SRC AND DST ARRAYS THE SAME ?
BNE.S GETSRC ;NO, DONT WORRY ABOUT OVERLAP
MOVE SRCV(A6),D0 ;GET SRCV
CMP DSTV(A6),D0 ;IS SRCV > DSTV ?
BGT.S GETSRC ;YES, CONTINUE WITH TOP TO BOTTOM
BLT.S UPSIDE ;NO, DO UPSIDE DOWN
MOVE LEFT(A2),D0 ;SAME VERT, CHOOSE HORIZ DIRECTION
SUB BOUNDS+LEFT(A4),D0 ;CONVERT SRC LEFT TO GLOBAL
MOVE LEFT(A3),D1 ;GET DST LEFT
SUB BOUNDS+LEFT(A5),D1 ;CONVERT TO GLOBAL
CMP D1,D0 ;IS SRCLEFT < DSTLEFT ?
BGE.S GETSRC ;NO, DO LEFT TO RIGHT
move minRect+right(A6),d2 ;get local srcRight <BAL 2Mar89>
sub minRect+left(A6),d2 ;get src width <BAL 2Mar89>
add d0,d2 ;get global srcRight <BAL 2Mar89>
cmp d1,d2 ;is srcRight < dstLeft ? <BAL 2Mar89>
ble.s GETSRC ;yes, no overlap <BAL 2Mar89>
NEG D3 ;no, BUMP:=-4 (RIGHT TO LEFT)
BRA.S GETSRC ;CONTINUE
;----------------------------------------------------------
;
; DO UPSIDE DOWN TO AVOID CLOBBERING SRC
;
UPSIDE MOVE HEIGHT(A6),D0 ;GET HEIGHT
SUB #1,D0 ;CALC HEIGHT-1
ADD D0,SRCV(A6) ;SRCVERT:=SRCV+HEIGHT-1
ADD D0,DSTV(A6) ;DSTVERT:=DSTV+HEIGHT-1
NEG.L SRCROW(A6) ;SRCROW:=-SRCROW
NEG.L DSTROW(A6) ;DSTROW:=-DSTROW
;-----------------------------------------------------
;
; SET UP SHIFTCNT IN D6 (RELATIVE SHIFT BETWEEN SRC & DST)
;
GETSRC MOVE LEFT(A3),D6 ;GET DST LEFT
SUB BOUNDS+LEFT(A5),D6 ;CONVERT TO GLOBAL
EXT.L D6 ;MAKE IT A LONG
LSL.L D4,D6 ;CONVERT DST PIXELS TO BITS
MOVE LEFT(A2),D1 ;GET SRC LEFT
SUB BOUNDS+LEFT(A4),D1 ;CONVERT TO GLOBAL
EXT.L D1 ;MAKE IT A LONG
MOVE SRCSHIFT(A6),D0 ;GET DEPTH OF SRC PIXELS
LSL.L D0,D1 ;CONVERT PIXELS TO BITS
SUB.L D1,D6 ;CALC DELTA HORIZ
MOVEQ #$1F,D0 ;NEED DELTA HORIZ MOD 32
AND.L D0,D6 ;SHIFTCNT:=DELTA HORIZ MOD 32
NEG.L D6 ;NEGATE FOR USE WITH BFEXTU
;------------------------------------------------------------
;
; SET UP SRCLEFT IN A4, ADDR OF LEFTMOST SRC LONG
; (GOODBYE SRCPIX PTR)
;
MOVE ROWBYTES(A4),D0 ;GET SRC ROWBYTES
AND #NURBMASK,D0 ;MASK OFF FLAG BITS
MULS SRCV(A6),D0 ;CALC SRC ROWBYTES * FIRST SRC VERT; BAL 02Dec88
MOVE.L BASEADDR(A4),A4 ;GET START OF SRC BITMAP
ADD.L D0,A4 ;ADD TO BITMAP START
SUB.L D6,D1 ;CALC SRCH+SHIFTCNT
ASR.L #5,D1 ;CONVERT BITS TO LONGS
ADD.L D1,D1 ;CONVERT LONGS TO WORDS
ADD.L D1,D1 ;CONVERT WORDS TO BYTES
ADD.L D1,A4 ;LEAVE SRCLEFT IN A4
;------------------------------------------------------------
;
; SET UP DSTLEFT IN A5, ADDR OF LEFTMOST DST LONG
; (GOODBYE DSTPIX PTR)
;
NOTSRC MOVE LEFT(A3),D1 ;GET DST LEFT
SUB BOUNDS+LEFT(A5),D1 ;CONVERT TO GLOBAL
EXT.L D1 ;MAKE IT LONG
LSL.L D4,D1 ;CONVERT PIXELS TO BITS
MOVE ROWBYTES(A5),D0 ;GET DST ROWBYTES
AND #NURBMASK,D0 ;MASK OFF FLAG BITS
MULS DSTV(A6),D0 ;CALC DSTROW * FIRST DST VERT; BAL 02Dec88
MOVE.L BASEADDR(A5),A5 ;GET START OF DST BITMAP
ADD.L D0,A5 ;ADD DSTV*DSTROW
MOVE.L D1,D0 ;COPY DSTLEFT GLOBAL
ASR.L #5,D1 ;CONVERT BITS TO LONGS
LSL.L #2,D1 ;CONVERT LONGS TO BYTES
ADD.L D1,A5 ;GET DSTLEFT IN A5
;------------------------------------
;
; SET UP D6 FOR BIG PATTERNS (PATVPOS IN HIGH WORD, PATHPOS IN LOW WORD)
; SET UP A4 TO POINT TO FIRST SCAN IN PAT TO BE USED
;
TST PATROW(A6) ;DOING BIG PATTERN?
BEQ.S NOTBIGPAT ;=>NO
MOVE.L EXPAT(A6),A4 ;SRCADDR := EXPANDED PATTERN
ADD D6,A4 ;ADD PATVPOS TO PATTERN
SWAP D6 ;SAVE PATVPOS IN HIGH WORD
MOVE D1,D6 ;GET LOW WORD OF DSTLEFT
AND D7,D6 ;MASK FOR HORIZ OFFSET INTO PATTERN
MOVE D6,PATHPOS(A6) ;AND SAVE STARTING HORIZ OFFSET
NOTBIGPAT
;-------------------------------------
;
; SET UP 32 BIT LEFTMASK IN D4
;
MOVE.L D4,D5 ;SAVE DSTSHIFT FOR LEFTMASK
MOVEQ #$1F,D2 ;NEED LEFT AND RIGHT MOD 32
AND.L D2,D0 ;GET DSTH MOD 32
MOVEQ #-1,D4 ;GET ALL ONES INTO LEFTMASK
LSR.L D0,D4 ;SHIFT IN ZEROS FROM LEFT
;-------------------------------------
;
; SET UP 32 BIT RIGHTMASK IN D5
; (GOODBYE DSTSHIFT)
;
MOVE RIGHT(A3),D1 ;GET DST RIGHT
SUB LEFT(A3),D1 ;CALC WIDTH
BLE GOHOME ;QUIT IF WIDTH <= 0
move.w d1,destPixCnt(a6) ;save for 16/32 bit arith loops <BAL 02Mar89>
EXT.L D1 ;MAKE WIDTH LONG
LSL.L D5,D1 ;CONVERT PIXELS TO BITS
ADD.L D0,D1 ;CALC (DSTH MOD 32) + WIDTH
MOVEQ #-1,D5 ;GET ALL ONES IN RIGHTMASK
AND.L D1,D2 ;GET RIGHT MOD 32
beq.s @maskOK ;mask ok if width is mult of 32 <1.5> BAL
LSR.L D2,D5 ;SHIFT IN ZEROS FROM LEFT
NOT.L D5 ;AND NEGATE TO MAKE RIGHTMASK
@maskOK
;------------------------------------------------
;
; CALC TOTAL NUMBER OF DST LONGS-1
;
subq.l #1,d1 ;force multiples of 32 to round down <1.5> BAL
ASR.L #5,D1 ;CALC ((DSTH MOD 32)+WIDTH) DIV 32
MOVE D1,LONGCNT(A6) ;SAVE AS LONGCNT
MOVE.L D1,D2 ;COPY FOR BELOW
;------------------------------------------------
;
; SET UP SRCBUMP AND DSTBUMP, ASSUMING BUMPING TO THE RIGHT
;
ADD.L D1,D1 ;CONVERT LONGS TO WORDS
ADD.L D1,D1 ;CONVERT WORDS TO BYTES
MOVE.L D1,D0 ;COPY FOR BELOW
ADDQ.L #4,D0 ;ADJUST FOR TOTAL BYTES NEEDED
;--------------------------------------------------------------------------
;
; IF DRAWING BACKWARDS FROM RIGHT, THEN ADJUST DSTBUMP,
; ADJUST SRCADDR,DSTADDR TO FIRST LONG,
; AND SWAP LEFT AND RIGHT MASKS FOR FIRSTMASK AND LASTMASK.
;
MOVE D3,A0 ;put hBump (+-4) into A0
TST D3 ;ARE WE STARTING ON THE LEFT ?
BPL.S DIROK ;YES, CONTINUE
NEG.L D0 ;calc -1 * bytesNeeded
ADD.L D1,A5 ;ADJUST DSTADDR TO RIGHTMOST
ADD.L D1,A4 ;ADJUST SRCADDR TO RIGHTMOST
EXG D4,D5 ;FIRSTMASK=RIGHT,LASTMASK=LEFT
DIROK MOVE srcRow+2(A6),srcBump(A6)
SUB D0,srcBump(A6) ;srcBump := srcRow +- bytesBumped
MOVE dstRow+2(A6),A3
SUB D0,A3 ;dstBump := dstRow +- bytesBumped
;----------------------------------------------
;
; SET UP MODE CASE JUMP IN A1
;
; D6 has bit shiftCnt
; D4 has firstMask
; D2 has longCnt
;
GETMODE MOVE LOCMODE(A6),D0 ;GET TRANSFER MODE
BNE.S NOTFAST ;BR IF NOT MODE 0
ScaleColorBit EQU 3
SwapFGBGBit EQU 4
UseStretchBit EQU 5
InvertItBit EQU 7
ColorizeInModeCaseBit EQU 8
ColorizeInSrcBufBit EQU 9
BTST #ColorizeInModeCaseBit, XLateFlag(a6) ;colorize?
BNE.S NOTFAST ;no, continue
tst.l d7 ;inverting? <KON 6JUN90>
bne.s NOTFAST ;yes, go slow <KON 6JUN90>
move d6,d1 ;get shiftCnt <BAL 26Mar89>
and #7,d1 ;multiple of 8? <BAL 26Mar89>
BNE.S NOTFAST ;NO, CONTINUE <BAL 26Mar89>
TST D2 ;IS LONGCNT > 0 ? <BAL 26Mar89>
BLE.S NOTFAST ;NO, CONTINUE <BAL 26Mar89>
move.w d6,d1 ;get shiftCnt <BAL 26Mar89>
asr.w #3,d1 ;get src adjustment in bytes<BAL 26Mar89>
add d1,a4 ;misAlign src <BAL 26Mar89>
@Fast MOVE.L BitBltSetup0,A1 ;USE FAST COPY. (get address from trap table)
TST D3 ;ARE WE BUMPING LEFT TO RIGHT ?
BPL.s @goFast ;YES, ALL SET
MOVE.L BitBltLeft0,A1 ;NO, USE BACKWARDS LOOP (get address from trap table)
@goFast jmp (A1)
NOTFAST
CMP #$20,D0 ;a new arithmetic mode?
BLO @notHilite ;if 0 to 1F, it is an old mode or old mode + big pat
; change bColor to transColor (the unmapped background color) since bColor is used in
; arithmetic transfer modes to compare with, not to apply to the source
MOVE.L transColor(A6),bColor(A6)
CMP #$40,D0
BHS goHome ;an undefined mode; do nothing
CMP #$30,D0
BLT.S @arithMode
CMP #$32,D0 ;source hilite?
BEQ.S @arithMode ;treat like an arithmetic mode
CMP #$3A,D0 ;pat hilite?
BNE goHome ;if not, an undefined mode
; if the pattern is black & mode is hilite, then go to fast hilite case
TST patRow(A6) ;big or small?
BNE.S @arithMode ;if big, assume it is not all black
;check all longs of the small pattern for blackness
MOVE.L BCOLOR(A6),D2 ;check for non-background color <14>
MOVEQ #$0F,D3 ;16 longs in a pattern
MOVE.L EXPAT(A6),A1 ;pointer to first long
@nextLong
CMP.L (A1)+,D2 ;is it black?
DBEQ D3,@nextLong ;check all of the pattern for black <14>
BNE @fastHilite ;if all black, do fast way <14>
@arithMode
BTST #3,D0 ;is the pattern bit set?
BEQ.S @newSource ;if a source mode, set up registers appropriately
MOVE patRow(A6),D2 ;if patRow contains appropriate value, set big pat bit
BEQ.S @smallPattern
; big pattern case
@bigPat
MOVE.B #1,endSwitch(A6) ;note that this is a big pattern (make it positive)
SWAP D6
MOVE D6,patPos(A6) ;set up large pattern vertical offset
CLR D6 ;clear high word for bit operations
SWAP D6
ASL.L #3,D6 ;scale from bytes to bits for bit operation offset
MOVE.L D6,patOffset(A6) ;set up initial horizontal offset
; need to scale patHMask from longs to pixels
MOVE dstPix+pixelSize(A6),D3 ;get number of bits in a pixel
SUBQ #1,D3 ;make into a mask
NOT D3 ;turn on bits equal to & greater than pixelSize
ASL #3,D2 ;convert from bytes to bits
SUBQ #1,D2 ;make it a mask
AND D3,D2 ;force pixel alignment
MOVE D2,patHMask(A6) ;save mask
BRA.S @skipSourceSetup
; small pattern case
@smallPattern
CLR.B endSwitch(A6) ;note that this is a small pattern mode
LEA ([EXPAT,A6],D7*4),A4 ;GET FIRST PATTERN DATA
MOVE D7,patPos(A6) ;save initial offset as well
MOVEQ #0,D6
MOVE.L D6,patOffset(A6)
MOVE #$001F,patHMask(A6) ;set up patHMask for old patterns (must fit into a long)
BRA.S @skipSourceSetup
; source case
@newSource
ST endSwitch(A6) ;note that this is a source mode (make it negative)
MOVE #-1,patHMask(A6) ;do not restrict source range if mode is source
@skipSourceSetup
AND #$37,D0 ;ignore the pattern info
; add, add pin, sub, sub pin, max, min, avg registers and locals set up
; D0 dest/mask pixel off. D1 jump table offset D2 pixels in long (or 0 if 1 long)
; D3 (fg long) D4 (bg long) D5 inverse color table entry size
; D6 source pixel offset D7 bits per pixel A0 inverse color table
; A1 color table A2 long bump A3 background pixel
; A4 (source) A5 (destination)
; (SP) hbump for a pixel doneMid(A6) flags lastMask(A6) (right mask if left to right)
; midCount(A6) pixel cnt pixInLong(A6) pixels in a long
; invSize(A6) inverse color table resolution longCnt(A6) same as D2
MOVEQ #32,D2 ;bits in a long
MOVEQ #0,D7
MOVE dstPix+pixelSize(A6),D7 ;get number of bits in a pixel
DIVU D7,D2 ;figure number of pixels in a long
MOVE D2,pixInLong(A6) ;save for later multiply
MOVE D2,pixInLong1(A6) ;left 1 based for transparent long case
MOVEQ #0,D3 ;assume destination offset is 0
MOVE.L D7,-(SP) ;assume bump is positive
MOVEQ #32,D1 ;positive long bump for transparent
move.w a0,hBump(a6) ;save in stack frame for direct loops <BAL>
CMP #0,A0 ;bumping postive or negative?
BPL.S @bumpOK
NEG.L (SP) ;make pixel bump negative
NEG.L D1 ;make long bump negative
MOVEQ #32,D3
SUB D2,D3
ADD.L D3,D6 ;D6 set to first source pixel position
@bumpOK
MOVE.L D1,A2 ;set up long bump for transparent
MOVE.L D5,lastMask(A6) ;free up a register
MOVE.L invColor(A6),A0 ;set up pointer to inverse color table in register
MOVE invSize(A6),D5 ;set up resolution of inverse color table in register
CLR.B doneMid(A6) ;set up loop/mask flags
MOVE longCnt(A6),D1 ;0 if only 1 long
SUBQ #1,D1 ;less 1 more for last long
MOVE D1,longCnt(A6) ;assume all fits in 1 long
BMI.S @only1Long ;if only one long, set long count to -1
MULU pixInLong(A6),D1 ;convert long count to pixel count
SUBQ #1,D1 ;make count 0 based for DBRA
MOVE D1,midCount(A6) ;save number of pixels in middle part less first, last masks
SUBQ #1,D2 ;make count 0 based for DBRAs
MOVE D2,longCnt(A6) ;save # of pixels in a mask in long count
@only1Long
SUBQ #1,pixInLong(A6) ;make count 0 based for DBRAs
MOVE.l D3,destPixOffset(A6) ;save as a long <08Jan89 BAL>
CMP #$30,D0 ;hilite?
BGT.S @slowHilite ;if so, set up things a little different for hilite
if Quicker THEN
cmp.w #8,d7 ;is pixelsize >= 8? <1.7> BAL
bge.s @FastDeepArith ;yes, handle direct arith loops separately <1.7> BAL
else
cmp.w #16,d7 ;is pixelsize >= 16? <1.7> BAL
bge.s @FastDeepArith ;yes, handle direct arith loops separately <1.7> BAL
endif
@notFastArith ; <1.7> BAL
ADD D0,D0 ;make it a word offset (40 … 4E)
MOVE D0,D1 ;set up in offset register for jump table, below
BFEXTU transColor(A6){0:D7},D0 ;get 1 pixel of the background color for transparent
MOVE.L D0,A3 ;register set up for transparent
MOVE.l D3,D0 ;set up destination offset
BRA doMain ;
@slowHilite
MOVE.l D3,D0 ;set up destination offset
MOVEQ #$3C,D1 ;hilite jumptable offset for slow case
BFEXTU hilitColor(A6){0:D7},D5 ;set up a pixel of the hilite color
BRA doMain
; ————————————————————————————————————————————————————————————————————————————————————————
; highlight registers and locals set up
; D0 background pixel D5 foreground pixel D7 pixel size A0 foreground long
; A2 32-pixel size lastMask(A6)
@fastHilite
MOVE dstPix+pixelSize(A6),D7 ;width of a pixel
MOVE.L D5,lastMask(A6) ;free up a register
MOVE.L hilitColor(A6),A0 ;set up a long of the forecolor
BFEXTU hilitColor(A6){0:D7},D5 ;set up a pixel of the forecolor
LEA 32,A2
SUB D7,A2 ;set up constant equal to long width in bits - pixel width
BFEXTU transColor(A6){0:D7},D0 ;get 1 pixel of the background color for hilite
move.w dstShift(a6),d1 ;get shift count
MOVE.L bHiliteTabPtr,A1 ;get address of table (from trap table)
ADD.L -4(a1,D1*4),a1 ;select routine based on destination depth
BRA NEXTROW
@FastDeepArith ;enter with mode in d0
and.w #$7,d0 ;strip arithmetic bit
beq.s @DirectAvg ;it's blend mode, so check for 50% case
@modeOK
if blit32 then ;<14>
cmp.w #16,d7 ;is dst 16 bits/pixel?
beq.s @Arith16 ;use alternate table
if Quicker THEN
blt.s @Arith8 ;use alternate table <1.7> BAL
endif
move.l bArith32TabPtr,A1 ;point to 32 bit/pixel loops
add.l (a1,d0*4),a1 ;get modecase based on d0
_bArith32jmp
@Arith16
move.l bArith16TabPtr,A1 ;point to 16 bit/pixel loops
add.l (a1,d0*4),a1 ;get modecase based on d0
MOVE.L D4,D1 ;remember FIRSTMASK
_bArith16jmp
endif ;<14>
@Arith8
if Quicker THEN
cmp.w #8,DSTPIX+PIXELSIZE(A6) ;is it 8 bit mode?
bne.s @notFastArith ;if not, skip
tst.l (sp) ;right to left?
bmi.s @notFastArith ;if so, skip
lea bArith8Tab,A1 ;point to 8 bit/pixel loops
add.l (a1,d0*4),a1 ;get modecase based on d0
move.l D4,D1 ;remember FIRSTMASK
bra.s NextRow
endif
@DirectAvg
lea weight(a6),a1 ;point to weights
move.w (a1)+,d1
cmp.w (a1)+,d1 ;is opColor gray?
bne.s @modeOK
cmp.w (a1),d1
bne.s @modeOK
addq #1,d1 ;yes, check for gray values of $8000 or $7fff
and.w #$fffe,d1
cmp.w #$8000,d1
bne.s @modeOK
addq #8,d0 ;use alternate modecase
bra.s @modeOK
@notHilite
AND #$B,D0 ;TREAT MODE MOD 16 AND KILL INVERT BIT
MOVE D0,D1 ;MAKE A COPY
AND #3,D0 ;MASK FOR LOW BITS ONLY
ADD D0,D1 ;MAKE MODIFIED MODE * 2 FOR INDEX
CMP #8,D1 ;pattern?
BGE.S @checkBigPat ;don’t worry about color src blt loops if so
CMP #4,D1 ;xor?
BEQ.S @0 ;skip if so
btst #ColorizeInModeCaseBit, XLateFlag(a6) ;colorize?
beq.s @0 ;use color loops only if colorize
ADD #$18,D1 ;use color loops
@checkBigPat
TST PATROW(A6) ;BIG PATTERN?
BEQ.S @0 ;=>NO, CHECK FOR ONE LONG
ADD #8,D1 ;YES, BUMP INDEX
@0
TST D2 ;IS DST ALL IN ONE LONG ?
BNE.S DOMAIN ;=>NO, USE FIRST JUMP TABLE
ADD #$20,D1 ;YES, USE SECOND JUMP TABLE
DOMAIN LEA BitBltModeTab,A1 ;GET ADDRESS OF MODE TABLE
MOVE.L 0(A1,D1*2),A1 ;POINT TO THIS MODE'S ROW LOOP
;---------------------------------------------------------
;
; OUTER LOOP: DO EACH SCAN LINE AND COME BACK TO NXTSRC OR NXTPAT.
; SOME MODES OPTIMIZE AND DO WHOLE OUTER LOOP AND COME BACK TO GOHOME.
;
NEXTROW MOVE.L D4,FIRSTMASK(A6) ;SAVE FIRSTMASK
MOVE.L FCOLOR(A6),D3 ;GET FGCOLOR
MOVE.L BCOLOR(A6),D4 ;GET BKCOLOR (transColor if arithmetic mode)
BRA.S ROWLOOP ;SKIP TO FIRST ROW CASE <SMC 19Jul90>
NXTSRC ADD SRCBUMP(A6),A4 ;BUMP SRCPTR TO NEXT ROW
ADD A3,A5 ;BUMP DSTADDR TO NEXT ROW
SUBQ #1,HEIGHT(A6) ;DECREMENT ROWCOUNT
BEQ.S GOHOME ;QUIT IF LAST SRC DONE <SMC 19Jul90>
ROWLOOP MOVE.L FIRSTMASK(A6),D1 ;MASK:=FIRSTMASK
MOVE LONGCNT(A6),D2 ;GET LONGCOUNT
JMP (A1) ;DO THIS ROW AND COME BACK
NXTBIGPAT
clr.w d6 ;make it unsigned <MCF 29Dec88>
SWAP D6 ;GET VERT POSITION IN PATTERN
SUB.l D6,A4 ;GET BACK PAT BASE <MCF 29Dec88>
ADD PATROW(A6),D6 ;BUMP TO NEXT SCAN
AND PATVMASK(A6),D6 ;AND MASK WITHIN PATTERN
ADD.l D6,A4 ;BUMP TO PROPER VERT <MCF 29Dec88>
SWAP D6 ;SAVE VERTICAL POSITION
MOVE PATHPOS(A6),D6 ;INIT HORIZONTAL OFFSET
ADD A3,A5 ;BUMP DSTADDR TO NEXT ROW
SUBQ #1,HEIGHT(A6) ;DECREMENT ROWCOUNT
BNE.S ROWLOOP ;LOOP FOR ALL SRCROWS
GOHOME RTS ;THEN QUIT
NXTPAT
ADD #1,D7 ;BUMP PATTERN SELECTOR
AND #$0F,D7 ;MOD 16 FOR 16 LONG REPEAT
MOVE.L ([EXPAT,A6],D7*4),D6 ;GET FIRST PATTERN DATA
ADD A3,A5 ;BUMP DSTADDR TO NEXT ROW
SUBQ #1,HEIGHT(A6) ;DECREMENT ROWCOUNT
BNE.S ROWLOOP ;LOOP FOR ALL SRCROWS
RTS ;THEN QUIT
if blit32 then ;<14>
NxtNewSrc32
TST.B endSwitch(A6)
BEQ.S NxtNewPat
BPL.S NxtNewBigPat
ADD SRCBUMP(A6),A4 ;BUMP SRCPTR TO NEXT ROW
; moveq #0,d6 ;clear out position index <BAL 06Jan89>
MOVE.L patOffset(A6),d6 ;reset to left edge <BAL 11Mar89>
BRA.S newCommon
endif ;<14>
NxtNewSrc
TST.B endSwitch(A6)
BEQ.S NxtNewPat
BPL.S NxtNewBigPat
ADD SRCBUMP(A6),A4 ;BUMP SRCPTR TO NEXT ROW
BRA.S newCommon
NxtNewBigPat
moveq #0,d0 ;clear out high word <MCF 29Dec88>
MOVE PatPos(A6),D6 ;GET VERT POSITION IN PATTERN
SUB.l D6,A4 ;GET BACK PAT BASE <MCF 29Dec88>
ADD PATROW(A6),D6 ;BUMP TO NEXT SCAN
AND PATVMASK(A6),D6 ;AND MASK WITHIN PATTERN
ADD.l D6,A4 ;BUMP TO PROPER VERT <MCF 29Dec88>
MOVE D6,PatPos(A6) ;SAVE VERTICAL POSITION
BRA.S newPatCommon
NxtNewPat
MOVE PatPos(A6),D1 ;was in D7; set up from locals for new modes
ADD #1,D1 ;BUMP PATTERN SELECTOR
AND #$0F,D1 ;MOD 16 FOR 16 LONG REPEAT
MOVE D1,PatPos(A6) ;save for new modes
LEA ([EXPAT,A6],D1*4),A4 ;GET FIRST PATTERN DATA
newPatCommon
MOVE.L patOffset(A6),D6 ;initialize 1 pixel to the left of pat if left to right
newCommon
CLR.B doneMid(A6) ;set up loop/mask flags
MOVE.l destPixOffset(A6),D0 ;set up destination pixel offset
ADD dstRow+2(A6),A5
SUBQ #1,HEIGHT(A6) ;DECREMENT ROWCOUNT
BNE.S ROWLOOP ;LOOP FOR ALL SRCROWS
ADDQ #4,SP ;toss hbump on stack
RTS ;THEN QUIT
;---------------------------------------------------------------;
; ;
; INTERFACE TO EACH BITBLT SCANLINE LOOP: ;
; ;
; REGISTERS: A0: hBump (+-4) D0: scratch ;
; A1: MODE CASE JUMP D1: FIRSTMASK.L ;
; A2: used for loop jmp D2: LONGCNT ;
; A3: dstBump D3: FG COLOR ;
; A4: SRCPTR D4: BK COLOR ;
; A5: DSTPTR D5: LASTMASK.L ;
; A6: LOCALS D6: SHIFTCNT OR PATTERN ;
; A7: STACK PTR D7: INVERT OR PAT-SEL ;
; ;
;---------------------------------------------------------------;
IF 0 THEN
MODETAB DC.W MAIN0-MODETAB ;0 JUMP TABLE USED IF DST WIDER THAN ONE LONG
DC.W MAIN1-MODETAB ;2
DC.W MAIN2-MODETAB ;4
DC.W MAIN3-MODETAB ;6
DC.W SETUP8-MODETAB ;8
DC.W MAIN9-MODETAB ;A
DC.W SETUP10-MODETAB ;C
DC.W MAIN11-MODETAB ;E
DC.W XMAIN8-MODETAB ;10 EXPANDED PATTERN MODES
DC.W XMAIN9-MODETAB ;12
DC.W XMAIN10-MODETAB ;14
DC.W XMAIN11-MODETAB ;16
DC.W cMain0-ModeTab ;18 src --> dst (fg ≠ black or bg ≠ white)
DC.W cMain1-ModeTab ;1A src OR dst (fg ≠ black)
DC.W Hilite-ModeTab ;1C DST fg <--> bg
DC.W cMain3-ModeTab ;1E src BIC dst (bg ≠ white)
DC.W END0-MODETAB ;20 JUMP TABLE USED IF DST FITS IN ONE LONG WIDE
DC.W END1-MODETAB ;22
DC.W END2-MODETAB ;24
DC.W END3-MODETAB ;26
DC.W LONG8-MODETAB ;28
DC.W END9-MODETAB ;2A
DC.W END10-MODETAB ;2C
DC.W END11-MODETAB ;2E
DC.W XLONG8-MODETAB ;30 EXPANDED PATTERN MODES
DC.W XEND9-MODETAB ;32
DC.W XEND10-MODETAB ;34
DC.W XEND11-MODETAB ;36
DC.W cEnd0-ModeTab ;38 src --> dst (fg ≠ black or bg ≠ white)
DC.W cEnd1-ModeTab ;3A src OR dst (fg ≠ black)
DC.W SloHilite-ModeTab ;3C (src, pat is mask) DST fg <--> bg
DC.W cEnd3-ModeTab ;3E src BIC dst (bg ≠ white)
DC.W Avg-ModeTab ;40 AVG(SRC, DST, WEIGHT) --> DST
DC.W AddPin-ModeTab ;42 SRC + DST --> DST (pin to max)
DC.W AddOver-ModeTab ;44 SRC + DST --> DST (no pin)
DC.W SubPin-ModeTab ;46 DST - SRC --> DST (pin to min)
DC.W Transparent-ModeTab ;48 SRC less bg --> DST
DC.W Max-ModeTab ;4A MAX(SRC, DST) --> DST
DC.W SubOver-ModeTab ;4C DST - SRC --> DST (no pin)
DC.W Min-ModeTab ;4E MIN(SRC, DST) --> DST
ENDIF
ALIGN 4
if Quicker then
IMPORT bAddOver8
IMPORT bSubOver8
IMPORT bAddPin8
IMPORT bSubPin8
IMPORT bMax8
IMPORT bMin8
IMPORT bAvg8,bTransparent8
bArith8Tab
DC.L bAvg8-bArith8Tab ;18 AVG(SRC, DST, WEIGHT) --> DST
DC.L bAddPin8-bArith8Tab ;1A SRC + DST --> DST (pin to max)
DC.L bAddOver8-bArith8Tab ;1C SRC + DST --> DST (no pin)
DC.L bSubPin8-bArith8Tab ;1E DST - SRC --> DST (pin to min)
DC.L bTransparent8-bArith8Tab ;20 SRC less bg --> DST
DC.L bMax8-bArith8Tab ;22 MAX(SRC, DST) --> DST
DC.L bSubOver8-bArith8Tab ;24 DST - SRC --> DST (no pin)
DC.L bMin8-bArith8Tab ;26 MIN(SRC, DST) --> DST
DC.L bAvg8-bArith8Tab ;50% case
endif
if blit32 then ;<14>
bArith16Tab
DC.L bAvg16-bArith16Tab ;18 AVG(SRC, DST, WEIGHT) --> DST
DC.L bAddPin16-bArith16Tab ;1A SRC + DST --> DST (pin to max)
DC.L bAddOver16-bArith16Tab ;1C SRC + DST --> DST (no pin)
DC.L bSubPin16-bArith16Tab ;1E DST - SRC --> DST (pin to min)
DC.L bTransparent16-bArith16Tab ;20 SRC less bg --> DST
DC.L bMax16-bArith16Tab ;22 MAX(SRC, DST) --> DST
DC.L bSubOver16-bArith16Tab ;24 DST - SRC --> DST (no pin)
DC.L bMin16-bArith16Tab ;26 MIN(SRC, DST) --> DST
DC.L bAvg16Half-bArith16Tab ;50% case
bArith32Tab
DC.L bAvg32-bArith32Tab ;18 AVG(SRC, DST, WEIGHT) --> DST
DC.L bAddPin32-bArith32Tab ;1A SRC + DST --> DST (pin to max)
DC.L bAddOver32-bArith32Tab ;1C SRC + DST --> DST (no pin)
DC.L bSubPin32-bArith32Tab ;1E DST - SRC --> DST (pin to min)
DC.L bTransparent32-bArith32Tab ;20 SRC less bg --> DST
DC.L bMax32-bArith32Tab ;22 MAX(SRC, DST) --> DST
DC.L bSubOver32-bArith32Tab ;24 DST - SRC --> DST (no pin)
DC.L bMin32-bArith32Tab ;26 MIN(SRC, DST) --> DST
DC.L bAvg32Half-bArith32Tab ;50% case
else ;<14>
bArith16Tab
bArith32Tab
endif ;<14>
bHiliteTab ; (1-bit hilite converted to Xor)
DC.L bHilite-bHiliteTab ; 2-bit
DC.L bHilite-bHiliteTab ; 4-bit
DC.L bHilite-bHiliteTab ; 8-bit
if blit32 then ;<14>
DC.L bHilite-bHiliteTab ;16-bit
DC.L bHilite32-bHiliteTab ;32-bit
endif ;<14>
ALIGN Alignment
;------------------------------------------------------------
;
; OPTIMIZE RIGHT HORIZONTAL SCROLL IF NO SHIFT.
; ONLY IF MODE 0, BUMPING RIGHT TO LEFT, LONGCNT > 0, AND NO SHIFT.
;
bLEFT0 MOVE.L D4,D1 ;MASK:=FIRSTMASK
MOVE LONGCNT(A6),D2 ;GET LONGCOUNT
MOVE.L (A4),D0 ;GET SRC FROM BITMAP
ADD A0,A4 ;BUMP LEFT
AND.L D1,D0 ;MASK FIRST LONG
NOT.L D1 ;MAKE NOTMASK
AND.L (A5),D1 ;GET DATA FROM DST
OR.L D1,D0 ;MERGE WITH SRC DATA
MOVE.L D0,(A5) ;PUT RESULT TO DST
ADD A0,A5 ;BUMP LEFT
SUB #1,D2 ;DEC LONG COUNT
BEQ.S LLast0 ;BR IF NO UNMASKED LONGS
SUB A0,A4 ;GET READY FOR PRE-DECREMENT
SUB A0,A5 ;GET READY FOR PRE-DECREMENT
BRA.S LONE0 ;GO MOVE A LONG
LTWO0 MOVE.L -(A4),-(A5) ;MOVE A LONG LONG
LONE0 MOVE.L -(A4),-(A5) ;MOVE ANOTHER LONG
SUB #2,D2 ;ANY UNMASKED LONGS LEFT IN ROW ?
BGT LTWO0 ;YES, AT LEAST 2 LONGS LEFT
BEQ LONE0 ;YES, FINISH UP LAST LONG
ADD A0,A4 ;RETURN TO NORMAL AFTER PRE-DECREMENT
ADD A0,A5 ;RETURN TO NORMAL AFTER PRE-DECREMENT
LLast0 MOVE.L D5,D1 ;copy last mask
MOVE.L (A4),D0 ;get last long of src from bitmap
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
AND.L D1,D0 ;MASK SRC
NOT.L D1 ;FORM NOTMASK
AND.L (A5),D1 ;GET DST DATA
OR.L D1,D0 ;MERGE WITH SRC DATA
MOVE.L D0,(A5) ;PUT RESULT TO DST
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
ADD SRCBUMP(A6),A4 ;BUMP SRCPTR TO NEXT ROW
ADD A3,A5 ;BUMP DSTADDR TO NEXT ROW
SUBQ #1,HEIGHT(A6) ;DECREMENT ROWCOUNT
BNE.S bLEFT0 ;LOOP FOR ALL SRCROWS
BRA.S GOHOME ;THEN QUIT
;------------------------------------------------------------
;
; <14> All new fast scrolling routine that takes advantage of the
; MOVE16 instruction on the 68040 when possible.
;
;-------------------------------------------------------
; a0 = JUMPA d0 = SCRATCH
; a1 = JUMPB d1 = <LONGS>,SCRATCH
; a2 = JUMPC d2 = LEFTLONGS,SCRATCH
; a3 = JUMPD d3 = RIGHTLONGS,QUADBLOCKS
; a4 = <SRCPTR> d4 = <LEFTMASK>
; a5 = <DSTPTR> d5 = <RIGHTMASK>
; a6 = locals d6 = SRCWID
; a7 = sp d7 = DSTWID
;-------------------------------------------------------
bSETUP0
OFFSET EQU 36
MOVE SRCBUMP(A6),D6 ;get srcwid into a register
MOVE A3,D7 ;put dstwid into a more useful register
MOVEQ #$F,D1 ;get useful mask
ADDQ #1,D2 ;make longs width one based
CMP.B #cpu68040,cpuFlag ;is this an '040 or greater machine?
BLT.S @normal ;no, use normal case
CMP #8,D2 ;are at least 8 longs being moved?
BLT.S @normal ;no, use normal case
MOVE D2,D3 ;are srcwid and dstwid both quadlong multiples?
LSL #2,D3 ; ((srcwid + (longs*4)) | (dstwid + (longs*4))) & 0x000F == 0)
MOVE D6,D0
ADD D3,D0
ADD D7,D3
OR D0,D3
AND D1,D3
BNE.S @normal ;no, use normal case
MOVE.L A4,D3 ;do srcptr and dstptr have same quadlong phase?
SUB.L A5,D3 ; (srcptr - dstptr) & 0x000F == 0)
AND D1,D3
BEQ.S @fast ;yes, use fast case
@normal MOVE D2,D3 ;count = longs
MOVEQ #0,D0
ADDQ.L #1,D4 ;count += (leftmask++ == -1)
ADDX D0,D3
ADDQ.L #1,D5 ;count += (rightmask++ == -1)
ADDX D0,D3
MOVE.L D5,D0 ;JUMPD = &@right + (rightmask ? (@right - @rmask) : 0)
BEQ.S @0
MOVEQ #-OFFSET,D0
@0: LEA (@right,D0.W),A3
MOVE.L A3,A1 ;JUMPB = JUMPD
SUBQ #3,D3 ;if ((count -= 3) < 0)
BMI.S @5 ; goto @5
AND D3,D1 ;JUMPB = &@mv4 - (count % 16) * 2
NEG D1
LEA (@mv4,D1.W*2),A1
LSR #4,D3 ;count /= 16;
BRA.S @5
@fast MOVEQ #-1,D0
MOVE.W A4,D3 ;leftlongs = (-srcptr % 16) / 4
NEG D3
AND.W D3,D1
LSR.W #2,D1
SUB D1,D2 ;longs -= leftlongs
ADDQ.L #1,D4 ;leftlongs -= (leftmask++ != -1)
ADDX D0,D1
BGE.S @1 ;if (leftlongs < 0)
MOVEQ #3,D1 ; leftlongs = 3
SUBQ #4,D2 ; longs -= 4
@1:
MOVEQ #3,D3 ;rightlongs = longs & 0x03
AND D2,D3
SUB D3,D2 ;longs -= rightlongs
ADDQ.L #1,D5 ;rightlongs -= (rightmask++ != -1)
ADDX D0,D3
BGE.S @2 ;if (rightlongs < 0)
MOVEQ #3,D3 ; rightlongs = 3
SUBQ #4,D2 ; longs -= 4
@2:
NEG D3 ;JUMPD = &@right + (-rightlongs * 2)
LEA (@right,D3.W*2),A3
TST.L D5 ;if (rightmask - 1 != -1)
BEQ.S @3
SUB #OFFSET,A3 ; JUMPD -= @right - @rmask;
@3:
MOVE.L A3,A2 ;JUMPC = JUMPD
LSR #2,D2 ;longs /= 4
BEQ.S @4 ;if (longs)
SUBQ #1,D2 ; longs--
MOVE D2,D3 ; quadblocks = longs / 8
LSR #3,D3
AND #$07,D2 ; JUMPC = &@mv16 + (-(longs & 0x7) * 4)
NEG D2
LEA (@mv16,D2.W*4),A2
@4:
MOVE.L A2,A1 ;JUMPB = JUMPC
MOVE D1,D2 ;if (leftlongs != 0)
BEQ.S @5
NEG D2 ; JUMPB = &@left - (leftlongs * 2)
LEA (@left,D2.W*2),A1
@5: MOVE.L A1,A0 ;JUMPA = JUMPB
TST.L D4 ;if (leftmask - 1 != -1)
BEQ.S @6
LEA @lmask,A0 ; JUMPA = &@lmask
@6: SUBQ.L #1,D4 ;++leftmask
SUBQ.L #1,D5 ;++rightmask
MOVE.L HEIGHT(A6),D1 ;(put height into high word)
MOVE D3,D1 ;(set up initial quadblocks count)
JMP (A0)
MACRO ;*** REMOVE WHEN ASSEMBLER KNOWS ABOUT MOVE16
myMOVE16 ;*** REMOVE WHEN ASSEMBLER KNOWS ABOUT MOVE16
DC.L $F624D000 ;*** REMOVE WHEN ASSEMBLER KNOWS ABOUT MOVE16
ENDM ;*** REMOVE WHEN ASSEMBLER KNOWS ABOUT MOVE16
ALIGN Alignment
@lmask MOVE.L (A4)+,D0 ;get long of src
MOVE.L (A5),D2 ;get long of dst
EOR.L D2,D0 ;
AND.L D4,D0 ;splice src and dst together through leftmask
EOR.L D2,D0 ;
MOVE.L D0,(A5)+ ;save result to dst
JMP (A1) ;go copy partial or full quadlong blocks
MOVE.L (A4)+,(A5)+ ;copy partial left quadlong block
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
@left JMP (A2) ;go copy quadlong blocks
@mv256 myMOVE16 ;MOVE16 (A4)+,(A5)+ ;copy 32 longs
myMOVE16 ;MOVE16 (A4)+,(A5)+
myMOVE16 ;MOVE16 (A4)+,(A5)+
myMOVE16 ;MOVE16 (A4)+,(A5)+
myMOVE16 ;MOVE16 (A4)+,(A5)+ ;copy 16 longs
myMOVE16 ;MOVE16 (A4)+,(A5)+
myMOVE16 ;MOVE16 (A4)+,(A5)+
@mv16 myMOVE16 ;MOVE16 (A4)+,(A5)+ ;copy 4 longs
DBRA D1,@mv256 ;dec counter and go do another 32 longs
JMP (A3) ;go finish right edge of scanline
@mv64 MOVE.L (A4)+,(A5)+ ;copy 16 longs
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+ ;copy 8 longs
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
@mv4 MOVE.L (A4)+,(A5)+ ;copy 1 long
DBRA D1,@mv64 ;dec count and go do another 16 longs
JMP (A3) ;go finish right edge of scanline
MOVE.L (A4)+,(A5)+ ;copy partial right quadlong block
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
@rmask MOVE.L (A4)+,D0 ;get long of src
MOVE.L (A5),D2 ;get long of dst
EOR.L D2,D0
AND.L D5,D0 ;splice src and dst together through rightmask
EOR.L D2,D0
MOVE.L D0,(A5)+ ;save result to dst
ADD D6,A4 ;bump srcptr by (srcbump - (longcnt * 4))
ADD D7,A5 ;bump dstptr by (dstbump - (longcnt * 4))
MOVE D3,D1 ;restore quadblock count
SWAP D1 ;swap linecount into low word
SUBQ #1,D1 ;decrement linecount
BEQ GoHome ;leave if zero
SWAP D1 ;swap linecount out of low word
JMP (A0) ;go do another line
MOVE.L (A4)+,(A5)+ ;copy partial right quadlong block
MOVE.L (A4)+,(A5)+
MOVE.L (A4)+,(A5)+
@right ADD D6,A4 ;bump srcptr by (srcbump - (longcnt * 4))
ADD D7,A5 ;bump dstptr by (dstbump - (longcnt * 4))
MOVE D3,D1 ;restore quadblock count
SWAP D1 ;swap linecount into low word
SUBQ #1,D1 ;decrement linecount
BEQ.S GoHome ;leave if zero
SWAP D1 ;swap linecount out of low word
JMP (A0) ;go do another line
IF @right - @rmask - OFFSET THEN
AERROR '••• Offset assumption is bad •••'
ENDIF
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 0 or 4: SRC --> DST
;
; <20Jul90 SMC>
; Split loop into shift and no shift cases, and separated
; out the blitting of the longs between the left and right
; masks in both cases.
;
bEND0 AND.L D5,D1 ;firstmask = firstmask AND lastmask
MOVE.L D1,FIRSTMASK(A6) ;make it stick for remaining scan lines
bMAIN0 LEA bMAIN0A,A1 ;get address of no shift case
TST.L D6 ;check if shift = 0
BNE.S @1 ;if not, go blit
LEA bMAIN0B,A1 ;if shift != 0, use shift case
@1: JMP (A1) ;jump to blit loop
;
; Shifted srcCopy/notSrcCopy case
;
bEND0A MOVE.L D5,D1 ;mask = lastmask
bMAIN0A BFEXTU (A4){D6:0},D0 ;get long of src from bitmap
ADD A0,A4 ;bump srcptr left or right
EOR.L D7,D0 ;invert src if mode bit 2 set
AND.L D1,D0 ;mask src
NOT.L D1 ;form notmask
AND.L (A5),D1 ;get dest data
OR.L D1,D0 ;splice with src data
MOVE.L D0,(A5) ;put result into dst
ADD A0,A5 ;bump dstptr left or right
SUB #1,D2 ;dec long count
BEQ bEND0A ;do last long with lastmask
BLT NXTSRC ;loop back for next scan line
bMID0A BFEXTU (A4){D6:0},D0 ;get long of src from bitmap
ADD A0,A4 ;bump srcptr left or right
EOR.L D7,D0 ;invert src if mode bit 2 set
MOVE.L D0,(A5) ;put result into dest
ADD A0,A5 ;bump dstptr left or right
SUB #1,D2 ;dec long count
BGT bMID0A ;branch if unmasked longs left
BRA bEND0A ;do last long with lastmask
;
; No shift srcCopy/notSrcCopy case
;
bEND0B MOVE.L D5,D1 ;mask = lastmask
bMAIN0B MOVE.L (A4),D0 ;get long of src from bitmap
ADD A0,A4 ;bump srcptr left or right
EOR.L D7,D0 ;invert src if mode bit 2 set
AND.L D1,D0 ;mask src
NOT.L D1 ;form notmask
AND.L (A5),D1 ;get dst data
OR.L D1,D0 ;merge with src data
MOVE.L D0,(A5) ;put result to dst
ADD A0,A5 ;bump dstptr left or right
SUB #1,D2 ;dec long count
BEQ bEND0B ;do last long with lastmask
BLT NXTSRC ;loop back for next scan line
bMID0B MOVE.L (A4),D0 ;get long of src from bitmap
ADD A0,A4 ;bump srcptr left or right
EOR.L D7,D0 ;invert src if mode bit 2 set
MOVE.L D0,(A5) ;put result into dest
ADD A0,A5 ;bump dstptr left or right
SUB #1,D2 ;dec long count
BGT bMID0B ;branch if unmasked longs left
BRA bEND0B ;do last long with lastmask
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 1 or 5: SRC OR DST --> DST
;
; <20Jul90 SMC>
; Split loop into shift and no shift cases.
;
bEND1 AND.L D5,D1 ;firstmask = firstmask AND lastmask
MOVE.L D1,FIRSTMASK(A6) ;make it stick for remaining scan lines
bMAIN1 LEA bMAIN1A,A1 ;get address of no shift case
TST.L D6 ;check if shift = 0
BNE.S @1 ;if not, go blit
LEA bMAIN1B,A1 ;if shift != 0, use shift case
@1: JMP (A1) ;jump to blit loop
;
; Shifted srcOr/notSrcOr case
;
bEND1A MOVE.L D5,D1 ;mask = lastmask
bMAIN1A BFEXTU (A4){D6:0},D0 ;get src from bitmap with shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D1,D0 ;MASK SRC
OR.L D0,(A5) ;OR SRC INTO DST
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bMAIN1A ;LOOP TILL LAST LONG
BEQ bEND1A ;DO LAST LONG WITH LASTMASK
BRA NXTSRC ;LOOP BACK FOR NEXT ROW
;
; No shift srcOr/notSrcOr case
;
bEND1B MOVE.L D5,D1 ;mask = lastmask
bMAIN1B MOVE.L (A4),D0 ;get src from bitmap without shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D1,D0 ;MASK SRC
OR.L D0,(A5) ;OR SRC INTO DST
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bMAIN1B ;LOOP TILL LAST LONG
BEQ bEND1B ;DO LAST LONG WITH LASTMASK
BRA NXTSRC ;LOOP BACK FOR NEXT ROW
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 2 or 6: SRC XOR DST --> DST
;
; <20Jul90 SMC>
; Split loop into shift and no shift cases.
;
bEND2 AND.L D5,D1 ;firstmask = firstmask AND lastmask
MOVE.L D1,FIRSTMASK(A6) ;make it stick for remaining scan lines
bMAIN2 LEA bMAIN2A,A1 ;get address of no shift case
TST.L D6 ;check if shift = 0
BNE.S @1 ;if not, go blit
LEA bMAIN2B,A1 ;if shift != 0, use shift case
@1: JMP (A1) ;jump to blit loop
;
; Shifted srcXor/notSrcXor case
;
bEND2A MOVE.L D5,D1 ;mask = lastmask
bMAIN2A BFEXTU (A4){D6:0},D0 ;get src from bitmap with shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D1,D0 ;MASK SRC
EOR.L D0,(A5) ;XOR SRC INTO DST
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bMAIN2A ;LOOP TILL LAST LONG
BEQ bEND2A ;DO LAST LONG WITH LASTMASK
BRA NXTSRC ;LOOP BACK FOR NEXT ROW
;
; No shift srcXor/notSrcXor case
;
bEND2B MOVE.L D5,D1 ;mask = lastmask
bMAIN2B MOVE.L (A4),D0 ;get src from bitmap without shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D1,D0 ;MASK SRC
EOR.L D0,(A5) ;XOR SRC INTO DST
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bMAIN2B ;LOOP TILL LAST LONG
BEQ bEND2B ;DO LAST LONG WITH LASTMASK
BRA NXTSRC ;LOOP BACK FOR NEXT ROW
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 3 or 7: SRC BIC DST --> DST
;
; <20Jul90 SMC>
; Split loop into shift and no shift cases.
;
bEND3 AND.L D5,D1 ;firstmask = firstmask AND lastmask
MOVE.L D1,FIRSTMASK(A6) ;make it stick for remaining scan lines
bMAIN3 LEA bMAIN3A,A1 ;get address of no shift case
TST.L D6 ;check if shift = 0
BNE.S @1 ;if not, go blit
LEA bMAIN3B,A1 ;if shift != 0, use shift case
@1: JMP (A1) ;jump to blit loop
;
; Shifted srcBic/notSrcBic case
;
bEND3A MOVE.L D5,D1 ;mask = lastmask
bMAIN3A BFEXTU (A4){D6:0},D0 ;get src from bitmap with shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D1,D0 ;MASK SRC
NOT.L D0 ;INVERT SRC
AND.L D0,(A5) ;BIT CLEAR SRC INTO DST
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bMAIN3A ;LOOP TILL LAST LONG
BEQ bEND3A ;DO LAST LONG WITH LASTMASK
BRA NXTSRC ;LOOP BACK FOR NEXT ROW
;
; No shift srcBic/notSrcBic case
;
bEND3B MOVE.L D5,D1 ;mask = lastmask
bMAIN3B MOVE.L (A4),D0 ;get src from bitmap without shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D1,D0 ;MASK SRC
NOT.L D0 ;INVERT SRC
AND.L D0,(A5) ;BIT CLEAR SRC INTO DST
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bMAIN3B ;LOOP TILL LAST LONG
BEQ bEND3B ;DO LAST LONG WITH LASTMASK
BRA NXTSRC ;LOOP BACK FOR NEXT ROW
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 0 or 4: SRC --> DST (foreground ≠ black or background ≠ white)
;
; <20Jul90 SMC>
; Split loop into three cases. Shifted and colorized srcCopy,
; shifted and colorized notSrcCopy, and not shifted but colorized
; srcCopy/notSrcCopy. In all three cases, the blitting of the longs
; between the left and right masks done separately for speed.
;
; The shifted, colorized srcCopy and notSrcCopy cases were split so
; that the notmask register was free to speed up colorizing. The
; old loop used the stack which cost two reads and two writes.
;
bcEND0 AND.L D5,D1 ;firstmask = firstmask AND lastmask
MOVE.L D1,FIRSTMASK(A6) ;make it stick for remaining scan lines
bcMAIN0 EOR.L D4,D3 ;munge FG and BK colors once for rest of scan lines
LEA bcMAIN0C,A1 ;get address of no shift case
TST.L D6 ;check if shift = 0
BEQ.S @1 ;is so, go blit
LEA bcMAIN0B,A1 ;get address of shifted notSrcCopy case
TST.L D7 ;is this the not mask true?
BNE.S @1 ;yes, go blit
LEA bcMAIN0A,A1 ;get address of shifted srcCopy case
@1: JMP (A1) ;go blitting
;
; Shifted and colorized srcCopy case
;
bcEND0A MOVE.L D5,D1 ;mask = lastmask
bcMAIN0A
BFEXTU (A4){D6:0},D0 ;get long of src from bitmap with shift
ADD A0,A4 ;bump srcptr left or right
AND.L D3,D0 ;apply FG color to ones of src
EOR.L D4,D0 ;apply BK color to zeroes of src
MOVE.L (A5),D7 ;get long from dest
EOR.L D7,D0 ;splice colorized src into dst
AND.L D1,D0 ; using first or last mask
EOR.L D7,D0
MOVE.L D0,(A5) ;move result to dst
ADD A0,A5 ;bump dstptr left or right
SUB #1,D2 ;dec long count
BEQ bcEND0A ;DO LAST LONG WITH LASTMASK
BLT NXTSRC ;LOOP BACK FOR MORE
bcMID0A BFEXTU (A4){D6:0},D0 ;get long of src from bitmap with shift
ADD A0,A4 ;bump srcptr left or right
AND.L D3,D0 ;apply FG color to ones of src
EOR.L D4,D0 ;apply BK color to zeroes of src
MOVE.L D0,(A5) ;move result to dst
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
SUB #1,D2 ;DEC LONG COUNT
BGT bcMID0A ;BR IF UNMASKED LONGS LEFT
BRA bcEND0A ;DO LAST LONG WITH LASTMASK
;
; Shifted and colorized notSrcCopy case
;
bcEND0B MOVE.L D5,D1 ;mask = lastmask
bcMAIN0B
BFEXTU (A4){D6:0},D0 ;get long of src from bitmap with shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
NOT.L D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D3,D0 ;apply FG color to ones of src
EOR.L D4,D0 ;apply BK color to zeroes of src
MOVE.L (A5),D7 ;get long from dest
EOR.L D7,D0 ;splice colorized src into dst
AND.L D1,D0 ; using first or last mask
EOR.L D7,D0
MOVE.L D0,(A5) ;move result to dst
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
SUB #1,D2 ;DEC LONG COUNT
BEQ bcEND0B ;DO LAST LONG WITH LASTMASK
BLT NXTSRC ;LOOP BACK FOR MORE
bcMID0B BFEXTU (A4){D6:0},D0 ;get long of src from bitmap with shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
NOT.L D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D3,D0 ;apply FG color to ones of src
EOR.L D4,D0 ;apply BK color to zeroes of src
MOVE.L D0,(A5) ;move result to dst
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
SUB #1,D2 ;DEC LONG COUNT
BGT bcMID0B ;BR IF UNMASKED LONGS LEFT
BRA bcEND0B ;DO LAST LONG WITH LASTMASK
;
; No shift but colorized srcCopy/notSrcCopy case
;
bcEND0C MOVE.L D5,D1 ;mask = lastmask
bcMAIN0C
MOVE.L (A4),D0 ;get long of src from bitmap without shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D3,D0 ;apply FG color to ones of src
EOR.L D4,D0 ;apply BK color to zeroes of src
MOVE.L (A5),D6 ;get long from dest
EOR.L D6,D0 ;splice colorized src into dst
AND.L D1,D0 ; using first or last mask
EOR.L D6,D0
MOVE.L D0,(A5) ;move result to dst
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
SUB #1,D2 ;DEC LONG COUNT
BEQ bcEND0C ;DO LAST LONG WITH LASTMASK
BLT NXTSRC ;LOOP BACK FOR MORE
bcMID0C MOVE.L (A4),D0 ;get long of src from bitmap without shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
AND.L D3,D0 ;apply FG color to ones of src
EOR.L D4,D0 ;apply BK color to zeroes of src
MOVE.L D0,(A5) ;move result to dst
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
SUB #1,D2 ;DEC LONG COUNT
BGT bcMID0C ;BR IF UNMASKED LONGS LEFT
BRA bcEND0C ;DO LAST LONG WITH LASTMASK
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 1 or 5: SRC OR DST --> DST (foreground ≠ black)
; MODE 3 or 7: SRC BIC DST --> DST (background ≠ white)
;
; <20Jul90 SMC>, <18Oct90 SMC> <12>
; Folded BIC loop into OR loop by making forecolor equal backcolor.
; Split OR loop into two cases. Shifted and colorized srcOr/notSrcOr, and
; colorized, not shifted srcOr/notSrcOr. In both cases, the blitting of
; the longs between the left and right masks are done separately for speed.
;
bcEND3 MOVE.L D4,D3
bcEND1 AND.L D5,D1 ;firstmask = firstmask AND lastmask
MOVE.L D1,FIRSTMASK(A6) ;make it stick for remaining scan lines
BRA.S bcMAIN1
bcMAIN3 MOVE.L D4,D3
bcMAIN1 LEA bcMAIN1B,A1 ;get address of no shift case
TST.L D6 ;check if shift = 0
BEQ.S bcMAIN1B ;is so, go blit
LEA bcMAIN1A,A1 ;get address of shift case
JMP (A1) ;go blitting
;
; Colorized, shifted srcOr/notSrcOr case
;
bcEND1A MOVE.L D5,D1 ;mask = lastmask
bcMAIN1A
BFEXTU (A4){D6:0},D0 ;get src from bitmap with shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
MOVE.L (A5),D4 ;get long of dst
AND.L D1,D0 ;combine src and left or right mask
NOT.L D0 ;reverse the mask
EOR.L D3,D4 ;splice colorized src into dst
AND.L D0,D4 ; using mask
EOR.L D3,D4
MOVE.L D4,(A5) ;move result to dst
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bcMAIN1A ;LOOP TILL LAST LONG
BEQ bcEND1A ;DO LAST LONG WITH LASTMASK
BRA NXTSRC ;LOOP BACK FOR NEXT ROW
;
; Colorized, not shifted srcOr/notSrcOr case
;
bcEND1B MOVE.L D5,D1 ;mask = lastmask
bcMAIN1B
MOVE.L (A4),D0 ;get src from bitmap without shift
ADD A0,A4 ;BUMP SRCPTR LEFT OR RIGHT
EOR.L D7,D0 ;INVERT SRC IF MODE BIT 2 SET
MOVE.L (A5),D4 ;get long of dst
AND.L D1,D0 ;combine src and left or right mask
NOT.L D0 ;reverse the mask
EOR.L D3,D4 ;splice colorized src into dst
AND.L D0,D4 ; using mask
EOR.L D3,D4
MOVE.L D4,(A5) ;move result to dst
ADD A0,A5 ;BUMP DSTPTR LEFT OR RIGHT
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bcMAIN1B ;LOOP TILL LAST LONG
BEQ bcEND1B ;DO LAST LONG WITH LASTMASK
BRA NXTSRC ;LOOP BACK FOR NEXT ROW
ALIGN Alignment
;-----------------------------------------------------------
;
; OPTIMIZE MODE 8 OR 12 IF DST FITS IN ONE LONG (VERT LINES ETC)
;
; <13> fix as seen in QDciPatchROM.a <sm 6/9/92>stb
bLONG8 AND.L alphaMask(A6),D1 ;clip left mask with alpha mask <13>
MOVE HEIGHT(A6),D3 ;GET NUMBER OF ROWS
move.l exPat(a6),a4 ;get pattern pointer <1.5> BAL
lea (a4,d7*4),a2 ;point into pattern <1.5> BAL
addq #4,a3 ;convert dstBump to rowBytes <1.5> BAL
SUBQ #1,D3 ;MAKE 0 BASED FOR DBRA LOOP
AND.L D5,D1 ;COMBINE LEFT AND RIGHT MASKS
MOVE.L D1,D5 ;COPY COMBINED MASK
MOVE.L A4,A1 ;pointer to first long <1.5> BAL
MOVE.L (A1)+,D0 ;get first long of pattern <1.5> BAL
MOVEQ #$0E,D2 ;15-1 longs remaining <1.5> BAL
@nextLong
CMP.L (A1)+,D0 ;is it solid? <1.5> BAL
DBNE D2,@nextLong ;check all of the pattern for equality
BEQ.S SolidVert ;if all same, do fast way <1.5> BAL
NOT.L D5 ;FORM NOTMASK
beq.s Long32 ;no need to mask <1.5> BAL
LONG8 AND.L D1,D6 ;MASK EXTRA PATTERN TO ZEROS
MOVE.L (A5),D0 ;GET DST DATA
AND.L D5,D0 ;AND WITH NOTMASK
OR.L D6,D0 ;MERGE WITH SRC DATA
MOVE.L D0,(A5) ;PUT RESULT TO DST
ADD A3,A5 ;BUMP DSTPTR TO NEXT ROW
ADD #1,D7 ;BUMP PATTERN SELECTOR
AND #$0F,D7 ;MOD 16 FOR 16 LONG REPEAT
MOVE.L (a4,D7*4),D6 ;GET PATTERN DATA <1.5> BAL
DBRA D3,LONG8 ;LOOP ALL ROWS
BRA GOHOME
LONG32 MOVE.L (a2)+,(A5) ;PUT pattern TO DST <1.5> BAL
ADD A3,A5 ;BUMP DSTPTR TO NEXT ROW <1.5> BAL
ADD #1,D7 ;BUMP PATTERN SELECTOR <1.5> BAL
AND #$0F,D7 ;MOD 16 FOR 16 LONG REPEAT <1.5> BAL
bne.s @patOK ; <1.5> BAL
MOVE.L a4,a2 ;reload pattern pointer <1.5> BAL
@patOK DBRA D3,LONG32 ;LOOP ALL ROWS <1.5> BAL
BRA GOHOME ; <1.5> BAL
ALIGN Alignment
;-----------------------------------------------------------
;
; OPTIMIZE MODE 8 OR 12 IF DST FITS IN ONE LONG AND SOLID PATTERN
;
; Enter with pattern in D0
;
SolidVert
NOT.L D5 ;FORM NOTMASK <1.5> BAL
beq.s @Long32 ;no need to mask <1.5> BAL
AND.L D1,D0 ;MASK EXTRA PATTERN TO ZEROS <1.5> BAL
@LONG8 MOVE.L (A5),D2 ;GET DST DATA <1.5> BAL
AND.L D5,D2 ;AND WITH NOTMASK <1.5> BAL
OR.L D0,D2 ;MERGE WITH SRC DATA <1.5> BAL
MOVE.L D2,(A5) ;PUT RESULT TO DST <1.5> BAL
ADD A3,A5 ;BUMP DSTPTR TO NEXT ROW <1.5> BAL
DBRA D3,@LONG8 ;LOOP ALL ROWS <1.5> BAL
BRA GOHOME ; <1.5> BAL
@LONG32 MOVE.L D0,(A5) ;PUT pattern TO DST <1.5> BAL
ADD A3,A5 ;BUMP DSTPTR TO NEXT ROW <1.5> BAL
DBRA D3,@LONG32 ;LOOP ALL ROWS <1.5> BAL
BRA GOHOME ; <1.5> BAL
ALIGN Alignment
;------------------------------------------------------------
;
; MODE 8 OR 12: PATTERN --> DST (FILLING AREAS, DRAWING LINES)
;
;-------------------------------------------------------
; a0 = moveTablePtr d0 = scratch
; a1 = ~firstMask d1 = scratch
; a2 = ~lastMask d2 = rowCount
; a3 = hBump d3 = blockCount
; a4 = patterPtr d4 = firstMask
; a5 = dstPtr d5 = lastMask
; a6 = locals d6 = pattern data
; a7 = sp d7 = pattern selector
;-------------------------------------------------------
; <13> Start of alpha channel changes as seen in QDciPatchROM.a <sm 6/9/92>stb
bSETUP8 TST.B alphaMode(A6) ;drawing in alpha mode?
BEQ.S @bSETUP8 ;no, use normal loop
MOVE.L alphaMask(A6),D3 ;get alpha mask
AND.L D3,D1 ;AND ALPHA WITH LEFT MASK
MOVE.L D1,FIRSTMASK(A6) ;SAVE THAT RESULT
AND.L D3,D5 ;AND ALPHA WITH RIGHT MASK
BRA.S @bMAIN8 ;jump into alpha loop
@bEND8 AND.L D5,D1 ;MASK:=MASK AND LASTMASK
@bMAIN8 MOVE.L D1,D0 ;COPY MASK
AND.L D6,D1 ;GET MASKED PATTERN
NOT.L D0 ;REVERSE MASK
AND.L (A5),D0 ;GET NOT MASKED DST
OR.L D1,D0 ;COMBINE PATTERN AND DST
MOVE.L D0,(A5)+ ;PUT RESULT TO DST
MOVE.L D3,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT @bMAIN8 ;LOOP TILL LAST LONG
BEQ @bEND8 ;DO LAST LONG WITH LASTMASK
@NXTPAT ADD #1,D7 ;BUMP PATTERN SELECTOR
AND #$0F,D7 ;MOD 16 FOR 16 LONG REPEAT
MOVE.L ([EXPAT,A6],D7*4),D6 ;GET FIRST PATTERN DATA
ADD A3,A5 ;BUMP DSTADDR TO NEXT ROW
SUBQ #1,HEIGHT(A6) ;DECREMENT ROWCOUNT
BEQ.S GOHOME ;LOOP FOR ALL SRCROWS
MOVE.L FIRSTMASK(A6),D1 ;MASK:=FIRSTMASK
MOVE LONGCNT(A6),D2 ;GET LONGCOUNT
BRA.S @bMAIN8 ;GO NEXT LINE
; <13> End of alpha channel changes
@bSETUP8
@slowCase move.w d2,d3 ; get count of longwords to move
move.l d1,d4 ; get copy of firstMask
not.l d1 ; invert for dst masking
movea.l d1,a1 ; setup inverted firstMask
bne.s @hasFirstMask ; if mask is valid, use it
addq.w #1,d3 ; if no mask, copy 1 extra long
@hasFirstMask
move.l d5,d0 ; get copy of lastMask
not.l d0 ; invert for dst masking
movea.l d0,a2 ; setup inverted lastMask
bne.s @hasLastMask ; if mask is valid, use it
addq.w #1,d3 ; if no mask, copy 1 extra long
@hasLastMask
movea.l expat(a6),a4 ; get pointer to base of patterns
lea 4(a4,d7.w*4),a4 ; point to next pattern longword
move.w d7,d0 ; use pattern index as bit number
moveq.l #1,d7 ; use a rotating bit as the pattern counter
lsl.w d0,d7 ; position the bit to reflect the pattern index
move.w Height(a6),d2 ; get row count
subq.w #1,d2 ; zero based for DBRA
lea @blockLoopEnd,a0; point to starting address in block move table
subq.w #1,d3 ; not counting the last long
beq.s @rowStart ; if no longs in the middle, start now
moveq.l #$0F,d0 ; mask for initial move count
and.w d3,d0 ; get the number of longs to move first
neg.w d0 ; index backwards
lea -4(a0,d0.w*2),a0; setup the starting address (-4 to bypass DBRA)
lsr.w #4,d3 ; setup number of additional blocks of 16 to move
bra.s @rowStart ; start now
@resetPat moveq.l #1,d7 ; reset the pattern selector
suba.w #16*4,a4 ; point back to first pattern
@rowLoop move.l (a4)+,d6 ; get source long from pattern
@rowStart move.l a1,d1 ; get mask for first long of dest
beq.s @no1stMask ; if no masking, just store the source
move.l d6,d0 ; get pattern data
and.l d4,d0 ; mask first long
and.l (a5),d1 ; get first long of dest data
or.l d1,d0 ; merge with src data
move.l d0,(a5)+ ; put result to dest
@no1stMask
move.w d3,d0 ; setup block loop counter
jmp (a0) ; jump into the move table
@blockLoop move.l d6,(a5)+ ; move 16 longs
move.l d6,(a5)+ ; move 15 longs
move.l d6,(a5)+ ; move 14 longs
move.l d6,(a5)+ ; move 13 longs
move.l d6,(a5)+ ; move 12 longs
move.l d6,(a5)+ ; move 11 longs
move.l d6,(a5)+ ; move 10 longs
move.l d6,(a5)+ ; move 9 longs
move.l d6,(a5)+ ; move 8 longs
move.l d6,(a5)+ ; move 7 longs
move.l d6,(a5)+ ; move 6 longs
move.l d6,(a5)+ ; move 5 longs
move.l d6,(a5)+ ; move 4 longs
move.l d6,(a5)+ ; move 3 longs
move.l d6,(a5)+ ; move 2 longs
move.l d6,(a5)+ ; move 1 long
dbra d0,@blockLoop ; move remaining blocks of 16 longs
@blockLoopEnd
move.l a2,d0 ; get mask for last long of dest
beq.s @noLstMask ; if no masking, just store the source
and.l (a5),d0 ; get last long of dest data
and.l d5,d6 ; mask last long
or.l d6,d0 ; merge with src data
move.l d0,(a5)+ ; put result to dest
@noLstMask
adda.w a3,a5 ; update dest address
add.w d7,d7 ; shift the pattern index
dbeq d2,@rowLoop ; loop through all source rows
dbne d2,@resetPat ; reset pattern and loop
bra GoHome ; then quit
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 9 OR 13: PATTERN OR DST --> DST
;
bEND9 AND.L D5,D1 ;MASK:=MASK AND LASTMASK
bMAIN9 AND.L D6,D1 ;MASK PATTERN
MOVE.L D1,D0 ;COPY MASKED PATTERN
AND.L D3,D0 ;APPLY FG COLOR TO MASKED PATTERN
NOT.L D1 ;GET NOT MASKED PATTERN
AND.L (A5),D1 ;USE TO PUNCH OUT DST
OR.L D1,D0 ;COMBINE SRC AND DST
MOVE.L D0,(A5)+ ;PUT RESULT TO DST
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bMAIN9 ;LOOP TILL LAST LONG
BEQ bEND9 ;DO LAST LONG WITH LASTMASK
BRA NXTPAT ;LOOP BACK FOR NEXT ROW
ALIGN Alignment
;-----------------------------------------------------------
;
; OPTIMIZE MODE 10 OR 14 IF DST FITS IN ONE LONG (XOR VERT LINES)
;
bEnd10 MOVE HEIGHT(A6),D3 ;GET NUMBER OF ROWS <1.5> BAL
move.l exPat(a6),a4 ;get pattern pointer <1.5> BAL
lea (a4,d7*4),a2 ;point into pattern <1.5> BAL
addq #4,a3 ;convert dstBump to rowBytes <1.5> BAL
SUBQ #1,D3 ;MAKE 0 BASED FOR DBRA LOOP <1.5> BAL
AND.L D5,D1 ;COMBINE LEFT AND RIGHT MASKS <1.5> BAL
@LONG MOVE.L (a2)+,d6 ;get next pattern long <1.5> BAL
AND.L D1,D6 ;MASK EXTRA PATTERN TO ZEROS <1.5> BAL
EOR.L D6,(A5) ;XOR PATTERN INTO DST <1.5> BAL
ADD A3,A5 ;BUMP DSTPTR TO NEXT ROW <1.5> BAL
ADD #1,D7 ;BUMP PATTERN SELECTOR <1.5> BAL
AND #$0F,D7 ;MOD 16 FOR 16 LONG REPEAT <1.5> BAL
bne.s @patOK ; <1.5> BAL
MOVE.L a4,a2 ;reload pattern pointer <1.5> BAL
@patOK DBRA D3,@LONG ;LOOP ALL ROWS <1.5> BAL
BRA GOHOME ; <1.5> BAL
ALIGN Alignment
;------------------------------------------------------------
;
; MODE 10 OR 14: PATTERN XOR DST --> DST (INVERTING AREAS, XOR LINES)
;
;-------------------------------------------------------
; a0 = moveTablePtr d0 = scratch
; a1 = d1 = scratch
; a2 = expat d2 = rowCount
; a3 = hBump d3 = blockCount
; a4 = patterPtr d4 = firstMask
; a5 = dstPtr d5 = lastMask
; a6 = locals d6 = pattern data
; a7 = sp d7 = pattern selector
;-------------------------------------------------------
bSETUP10 move.w d2,d3 ; get count of longwords to move
move.l d1,d4 ; get copy of firstMask
movea.l expat(a6),a2 ; get pointer to base of patterns
lea 4(a2,d7.w*4),a4 ; point to next pattern longword
move.w d7,d0 ; use pattern index as bit number
moveq.l #1,d7 ; use a rotating bit as the pattern counter
lsl.w d0,d7 ; position the bit to reflect the pattern index
move.w Height(a6),d2 ; get row count
subq.w #1,d2 ; zero based for DBRA
lea @blockLoopEnd,a0; point to starting address in block move table
subq.w #1,d3 ; not counting the last long
beq.s @rowStart ; if no longs in the middle, start now
moveq.l #$0F,d0 ; mask for initial move count
and.w d3,d0 ; get the number of longs to move first
neg.w d0 ; index backwards
lea -4(a0,d0.w*2),a0; setup the starting address (-4 to bypass DBRA)
lsr.w #4,d3 ; setup number of additional blocks of 16 to move
bra.s @rowStart ; start now
@resetPat moveq.l #1,d7 ; reset the pattern selector
movea.l a2,a4 ; point back to first pattern
@rowLoop move.l (a4)+,d6 ; get source long from pattern
@rowStart move.l d6,d0 ; get pattern data
and.l d4,d0 ; mask first long
eor.l d0,(a5)+ ; xor pattern into dest
move.w d3,d0 ; setup block loop counter
jmp (a0) ; jump into the move table
@blockLoop eor.l d6,(a5)+ ; move 16 longs
eor.l d6,(a5)+ ; move 15 longs
eor.l d6,(a5)+ ; move 14 longs
eor.l d6,(a5)+ ; move 13 longs
eor.l d6,(a5)+ ; move 12 longs
eor.l d6,(a5)+ ; move 11 longs
eor.l d6,(a5)+ ; move 10 longs
eor.l d6,(a5)+ ; move 9 longs
eor.l d6,(a5)+ ; move 8 longs
eor.l d6,(a5)+ ; move 7 longs
eor.l d6,(a5)+ ; move 6 longs
eor.l d6,(a5)+ ; move 5 longs
eor.l d6,(a5)+ ; move 4 longs
eor.l d6,(a5)+ ; move 3 longs
eor.l d6,(a5)+ ; move 2 longs
eor.l d6,(a5)+ ; move 1 long
dbra d0,@blockLoop ; move remaining blocks of 16 longs
@blockLoopEnd
and.l d5,d6 ; mask last long
eor.l d6,(a5)+ ; xor pattern into dest
adda.w a3,a5 ; update dest address
add.w d7,d7 ; shift the pattern index
dbeq d2,@rowLoop ; loop through all source rows
dbne d2,@resetPat ; reset pattern and loop
bra.s GoHome ; then quit
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 11 OR 15: PATTERN BIC DST --> DST
;
bEND11 AND.L D5,D1 ;MASK:=MASK AND LASTMASK
bMAIN11 AND.L D6,D1 ;MASK PATTERN
MOVE.L D1,D0 ;COPY MASKED PATTERN
AND.L D4,D0 ;APPLY BK COLOR TO MASKED PATTERN
NOT.L D1 ;GET NOT MASKED PATTERN
AND.L (A5),D1 ;PUNCH OUT DST
OR.L D1,D0 ;COMBINE SRC AND DST
MOVE.L D0,(A5)+ ;PUT RESULT TO DST
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bMAIN11 ;LOOP TILL LAST LONG
BEQ bEND11 ;DO LAST WITH LASTMASK
BRA NXTPAT ;LOOP BACK FOR NEXT ROW
ALIGN Alignment
;-------------------------------------------------------
;
; EXPANDED PATTERN MODES
;
;-----------------------------------------------------------
;
; OPTIMIZE MODE 8 OR 12 IF DST FITS IN ONE LONG (VERT LINES ETC)
;
; <13> fix as seen in QDciPatchROM.a <sm 6/9/92>stb
bXLONG8 AND.L alphaMask(A6),D1;clip mask with alpha mask <13>
MOVE PATROW(A6),A0 ;GET PATTERN ROWBYTES
MOVE PATVMASK(A6),D2 ;GET MASK FOR VERT
MOVE HEIGHT(A6),D3 ;GET NUMBER OF ROWS
SUBQ #1,D3 ;MAKE 0 BASED FOR DBRA LOOP
addq #4,a3 ;convert dstBump to rowBytes <1.5> BAL
AND.L D5,D1 ;COMBINE LEFT AND RIGHT MASKS
MOVE.L D1,D5 ;COPY COMBINED MASK
ADD D6,A4 ;ADD PATHPOS TO BASE
clr.w D6 ;treat as unsigned <1.5> BAL
SWAP D6 ;GET PATVPOS <1.5> BAL
SUB.l D6,A4 ;BACK UP TO BASE OF PATTERN <1.5> BAL
NOT.L D5 ;FORM NOTMASK <1.5> BAL
beq.s xLong32 ;no reason to mask <1.5> BAL
XLONG MOVE.L 0(A4,D6),D7 ;GET A LONG OF PATTERN
AND.L D1,D7 ;MASK EXTRA PATTERN TO ZEROS
MOVE.L (A5),D0 ;GET DST DATA
AND.L D5,D0 ;AND WITH NOTMASK
OR.L D7,D0 ;MERGE WITH SRC DATA
MOVE.L D0,(A5) ;PUT RESULT TO DST
ADD A3,A5 ;BUMP DSTPTR TO NEXT ROW
ADD A0,D6 ;BUMP PATTERN TO NEXT ROW
AND D2,D6 ;WRAP IF PAST END OF PATTERN
DBRA D3,XLONG ;LOOP ALL ROWS
BRA GOHOME
XLONG32 MOVE.L 0(A4,D6),(A5) ;PUT pattern TO DST <1.5> BAL
ADD A3,A5 ;BUMP DSTPTR TO NEXT ROW <1.5> BAL
ADD A0,D6 ;BUMP PATTERN TO NEXT ROW <1.5> BAL
AND D2,D6 ;WRAP IF PAST END OF PATTERN <1.5> BAL
DBRA D3,XLONG32 ;LOOP ALL ROWS <1.5> BAL
BRA GOHOME ; <1.5> BAL
;-------------------------------------------------------
;
; MODE 8 OR 12: PATTERN --> DST (FILLING AREAS, DRAWING LINES)
; PATTERN ALREADY HAS COLOR IN IT, SO NONE IS ADDED
; Doesn't handle the fits in 1 long case (see above) <1.5> BAL
; Loops for all scanlines then goes home <1.5> BAL
;
; <13> Start of alpha channel changes from QDciPatchROM.a <sm 6/9/92>stb
bXMAIN8 TST.B alphaMode(A6) ;drawing in alpha mode?
BEQ bXMAIN8G ;no, use normal loop
MOVE.L alphaMask(A6),D3 ;get alpha mask
AND.L D3,D1 ;AND ALPHA WITH LEFT MASK
MOVE.L D1,FIRSTMASK(A6) ;SAVE THAT RESULT
AND.L D3,D5 ;AND ALPHA WITH RIGHT MASK
BRA.S @bX8 ;jump into alpha loop
ALIGN Alignment
@bXEND8 AND.L D5,D1 ;MASK:=MASK AND LASTMASK
@bX8 MOVE.L 0(A4,D6),D4 ;GET PATTERN
ADDQ #4,D6 ;BUMP TO NEXT LONG OF PATTERN
AND D7,D6 ;WRAP WHEN PATTERN REPEATS
MOVE.L (A5),D0 ;GET DST
EOR.L D0,D4 ;APPLY DST TO PATTERN
AND.L D1,D4 ;MASK OFF EDGE
EOR.L D0,D4 ;REAPPLY DST
MOVE.L D4,(A5)+ ;PUT RESULT TO DST
MOVE.L D3,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BEQ @bXEND8 ;DO LAST LONG WITH LASTMASK
BLT.S @nxtBigPat ;BUMP TO NEXT PATTERN ROW
SUBQ #1,D2 ;DEC LONG COUNT
NOT.L D3 ;REVERSE ALPHA MASK
@alpha MOVE.L 0(A4,D6),D4 ;GET PATTERN
ADDQ #4,D6 ;BUMP TO NEXT LONG OF PATTERN
AND D7,D6 ;WRAP WHEN PATTERN REPEATS
MOVE.L (A5),D0 ;GET DST
EOR.L D4,D0 ;APPLY PATTERN TO DST
AND.L D3,D0 ;MASK WITH ALPHA MASK
EOR.L D4,D0 ;REAPPLY PATTERN
MOVE.L D0,(A5)+ ;PUT RESULT TO DST
DBRA D2,@alpha ;DEC LONG COUNT
NOT.L D3 ;UNREVERSE ALPHA MASK
BRA.S @bXEND8 ;DO LAST LONG WITH LASTMASK
@nxtBigPat
clr.w d6 ;make it unsigned
SWAP D6 ;GET VERT POSITION IN PAT
SUB.l D6,A4 ;GET BACK PAT BASE
ADD PATROW(A6),D6 ;BUMP TO NEXT SCAN
AND PATVMASK(A6),D6 ;AND MASK WITHIN PATTERN
ADD.l D6,A4 ;BUMP TO PROPER VERT
SWAP D6 ;SAVE VERTICAL POSITION
MOVE PATHPOS(A6),D6 ;INIT HORIZONTAL OFFSET
ADD A3,A5 ;BUMP DSTADDR TO NEXT ROW
SUBQ #1,HEIGHT(A6) ;DECREMENT ROWCOUNT
beq GOHOME ;LOOP FOR ALL SRCROWS
MOVE.L FIRSTMASK(A6),D1 ;MASK:=FIRSTMASK
MOVE LONGCNT(A6),D2 ;GET LONGCOUNT
bra.s @bX8 ;go do next row
; <13> End of alpha channel changes
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 8 OR 12: PATTERN --> DST (FILLING AREAS, DRAWING LINES)
; PATTERN ALREADY HAS COLOR IN IT, SO NONE IS ADDED
; Doesn't handle the fits in 1 long case (see above) <1.5> BAL
; Loops for all scanlines then goes home <1.5> BAL
;
bXMid8 subq #1,d2 ;make zero based for dbra <1.5> BAL
@next MOVE.L 0(A4,D6),(A5)+ ;PUT PATTERN TO DST <1.5> BAL
ADDQ #4,D6 ;BUMP TO NEXT LONG OF PATTERN <1.5> BAL
AND D7,D6 ;WRAP WHEN PATTERN REPEATS <1.5> BAL
dbra d2,@next ;DEC LONG COUNT <1.5> BAL
bXEND8 AND.L D5,D1 ;MASK:=MASK AND LASTMASK
bXMAIN8G MOVE.L D1,D0 ;COPY MASK FOR DST
AND.L 0(A4,D6),D0 ;MASK PATTERN
ADDQ #4,D6 ;BUMP TO NEXT LONG OF PATTERN
AND D7,D6 ;WRAP WHEN PATTERN REPEATS
NOT.L D1 ;GET NOTMASK FOR DST
AND.L (A5),D1 ;PUNCH A LONG OF DST
OR.L D1,D0 ;COMBINE PAT AND DST
MOVE.L D0,(A5)+ ;PUT RESULT TO DST
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
bgt.s bXMid8 ;LOOP TILL LAST LONG <1.5> BAL
BEQ bXEND8 ;DO LAST LONG WITH LASTMASK
@nxtBigPat
clr.w d6 ;make it unsigned <1.5> BAL
SWAP D6 ;GET VERT POSITION IN PAT <1.5> BAL
SUB.l D6,A4 ;GET BACK PAT BASE <1.5> BAL
ADD PATROW(A6),D6 ;BUMP TO NEXT SCAN <1.5> BAL
AND PATVMASK(A6),D6 ;AND MASK WITHIN PATTERN <1.5> BAL
ADD.l D6,A4 ;BUMP TO PROPER VERT <1.5> BAL
SWAP D6 ;SAVE VERTICAL POSITION <1.5> BAL
MOVE PATHPOS(A6),D6 ;INIT HORIZONTAL OFFSET <1.5> BAL
ADD A3,A5 ;BUMP DSTADDR TO NEXT ROW <1.5> BAL
SUBQ #1,HEIGHT(A6) ;DECREMENT ROWCOUNT <1.5> BAL
beq GOHOME ;LOOP FOR ALL SRCROWS <1.5> BAL
MOVE.L FIRSTMASK(A6),D1 ;MASK:=FIRSTMASK <1.5> BAL
MOVE LONGCNT(A6),D2 ;GET LONGCOUNT <1.5> BAL
bra.s bXMAIN8G ;go do next row <1.5> BAL
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 9 OR 13: BIG PATTERN OR DST --> DST
;
bXEND9 AND.L D5,D1 ;MASK:=MASK AND LASTMASK
bXMAIN9 AND.L 0(A4,D6),D1 ;MASK PATTERN
ADDQ #4,D6 ;BUMP TO NEXT LONG OF PATTERN
AND D7,D6 ;WRAP WHEN PATTERN REPEATS
MOVE.L D1,D0 ;COPY MASKED PATTERN
AND.L D3,D0 ;APPLY FG COLOR TO MASKED PATTERN
NOT.L D1 ;GET NOT MASKED PATTERN
AND.L (A5),D1 ;USE TO PUNCH OUT DST
OR.L D1,D0 ;COMBINE SRC AND DST
MOVE.L D0,(A5)+ ;PUT RESULT TO DST
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bXMAIN9 ;LOOP TILL LAST LONG
BEQ bXEND9 ;DO LAST LONG WITH LASTMASK
BRA NXTBIGPAT ;LOOP BACK FOR NEXT ROW
ALIGN Alignment
;-----------------------------------------------------------
;
; OPTIMIZE MODE 10 OR 14 IF DST FITS IN ONE LONG (XOR VERT LINES)
;
bXEND10 MOVE PATROW(A6),A0 ;GET PATTERN ROWBYTES <1.5> BAL
MOVE PATVMASK(A6),D2 ;GET MASK FOR VERT <1.5> BAL
MOVE HEIGHT(A6),D3 ;GET NUMBER OF ROWS <1.5> BAL
SUBQ #1,D3 ;MAKE 0 BASED FOR DBRA LOOP <1.5> BAL
addq #4,a3 ;convert dstBump to rowBytes <1.5> BAL
AND.L D5,D1 ;COMBINE LEFT AND RIGHT MASKS <1.5> BAL
ADD D6,A4 ;ADD PATHPOS TO BASE <1.5> BAL
clr.w D6 ;treat as unsigned <1.5> BAL
SWAP D6 ;GET PATVPOS <1.5> BAL
SUB.l D6,A4 ;BACK UP TO BASE OF PATTERN <1.5> BAL
@nxtRow MOVE.L 0(A4,D6),D0 ;Get a long of pattern <1.5> BAL
AND.L D1,D0 ;Mask the pattern <1.5> BAL
EOR.L D0,(A5) ;XOR RESULT INTO DST <1.5> BAL
ADD A3,A5 ;BUMP DSTPTR TO NEXT ROW <1.5> BAL
ADD A0,D6 ;BUMP PATTERN TO NEXT ROW <1.5> BAL
AND D2,D6 ;WRAP IF PAST END OF PATTERN <1.5> BAL
DBRA D3,@nxtRow ;LOOP ALL ROWS <1.5> BAL
BRA GOHOME ; <1.5> BAL
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 10 OR 14: BIG PATTERN XOR DST --> DST (INVERTING AREAS, XOR LINES)
;
bXRGHT10 AND.L D5,D1 ;MASK:=MASK AND LASTMASK
bXMAIN10 AND.L 0(A4,D6),D1 ;MASK PATTERN
ADDQ #4,D6 ;BUMP TO NEXT LONG OF PATTERN
AND D7,D6 ;WRAP WHEN PATTERN REPEATS
EOR.L D1,(A5)+ ;XOR RESULT INTO DST
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bXMAIN10 ;LOOP TILL LAST LONG
BEQ bXRGHT10 ;DO LAST LONG WITH LASTMASK
BRA NXTBIGPAT ;LOOP BACK FOR NEXT ROW
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 11 OR 15: BIG PATTERN BIC DST --> DST
;
bXEND11 AND.L D5,D1 ;MASK:=MASK AND LASTMASK
bXMAIN11 AND.L 0(A4,D6),D1 ;MASK PATTERN
ADDQ #4,D6 ;BUMP TO NEXT LONG OF PATTERN
AND D7,D6 ;WRAP WHEN PATTERN REPEATS
MOVE.L D1,D0 ;COPY MASKED PATTERN
AND.L D4,D0 ;APPLY BK COLOR TO MASKED PATTERN
NOT.L D1 ;GET NOT MASKED PATTERN
AND.L (A5),D1 ;PUNCH OUT DST
OR.L D1,D0 ;COMBINE SRC AND DST
MOVE.L D0,(A5)+ ;PUT RESULT TO DST
MOVEQ #-1,D1 ;FLUSH MASK
SUB #1,D2 ;DEC LONG COUNT
BGT bXMAIN11 ;LOOP TILL LAST LONG
BEQ bXEND11 ;DO LAST WITH LASTMASK
BRA NXTBIGPAT ;LOOP BACK FOR NEXT ROW
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; arithSetup32
; (SP) hbump for a pixel
; A0 inverse color table
; A1 modeCase
; D0 first destination/mask pixel position
; D2 number of pixels in a long, or 0 if only 1 long
; D5 inverse color table entry size
; D6 first source pixel position
; D7 pixel size
; doneMid(A6) cleared (byte)
; lastMask(A6) equal to D5 standard
; midCount(A6) equal to # of pixels on line less mask longs
; pixInLong(A6) equal to # of pixels in a long
bArith32Setup
move.w destPixCnt(a6),d2 ;get # pixels to blit <1.5> BAL
subq.w #1,d2 ;make zero based for dbra <1.5> BAL
move.w d2,longcnt(a6) ;remember for later <1.5> BAL
moveq #0,d4 ;patHMask should be a long
move.w patHMask(a6),d4 ;get pattern index mask
lsr.l #3,d4 ;make byte mask
move.w d4,patHMask(a6) ;save for subover
TST.B endSwitch(A6) ;is the src a pattern?
bpl.s @usePat
moveq #0,d6 ;no, clear pattern index
@usePat
lsr.l #3,d6 ;make byte offset
MOVE.L d6,patOffset(A6) ;save for subsequent scans
move.w srcrow+2(a6),srcbump(a6)
move.w hBump(a6),a3 ;set up hBump in a3 (±4)
move.w a3,d7 ;are we bumping right to left?
bpl.s @goBlit
addq.w #1,d2 ;bump cnt
move.w d2,longcnt(a6) ;remember for later
@goBlit jmp (a1) ;take modecase
ALIGN Alignment
;-------------------------------------------------------
; a4 = srcPtr/patPtr d1 = leftMask
; a5 = dstPtr
bArith16Setup
move.w destPixCnt(a6),d2 ;get # pixels to blit
subq.w #1,d2 ;make zero based for dbra
move.w d2,longcnt(a6) ;remember for later
; TST.B endSwitch(A6) ;is the src a pattern?
; bpl.s @usePat
; moveq #0,d6 ;no, clear pattern index
;usePat
asr.l #3,d6 ;make byte offset
MOVE.L d6,patOffset(A6) ;save for subsequent scans
move.w srcrow+2(a6),srcbump(a6)
move.w hBump(a6),d7 ;are we bumping right to left?
asr.w #1,d7 ;convert to word bump (±2)
move.w d7,a3 ;setup hbump in a3
bpl.s @RtoL
addq.w #1,d2 ;bump cnt
move.w d2,longcnt(a6) ;remember for later
@RtoL
tst.l d1 ;should we blit first pixel?
bmi.s @leftOK ;yes, ptrs are ok
addq #2,a5 ;bump dstptr
addq.l #2,d6 ;bump src index
MOVE.L d6,patOffset(A6) ;save for subsequent scans
@leftOK
moveq #0,d4 ;patHMask should be a long
move.w patHMask(a6),d4 ;get pattern index mask
lsr.l #3,d4 ;make long mask
bset #1,d4 ;make word mask
move.w d4,patHMask(a6) ;save for subover
jmp (a1) ;take modecase
else ;<14>
bArith32Setup
bArith16Setup
; _Debugger
endif ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 34, 42, 58: SRC + DST --> DST (no pin)
; (SP) hbump for a pixel
; A0 inverse color table
; A1 color table
; D0 first destination/mask pixel position
; D2 number of pixels in a long, or 0 if only 1 long
; D5 inverse color table entry size
; D6 first source pixel position
; D7 pixel size
; doneMid(A6) cleared (byte)
; lastMask(A6) equal to D5 standard
; midCount(A6) equal to # of pixels on line less mask longs
; pixInLong(A6) equal to # of pixels in a long
; note: D4 is unused
bAddOver
bAddOverIndexed
;
; if we are going backwards, align destination and mask <14AUG90 KON>
;
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbAddOver1 ; <14AUG90 KON>
sub.l (SP),D6 ;bump src right OR left by 1 pixel first time only <14AUG90 KON>
@RealbAddOver
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbAddOver1 ; <14AUG90 KON>
sub.l (SP),D0 ;align destination and mask each scan line <14AUG90 KON>
@RealbAddOver1
MOVE.L colorTable(A6),A1 ;set up color table
TST D2 ;is there only 1 long?
BGT.S @firstMask ;if not, use the first mask in D1
@forceLast
OR.B #3,doneMid(A6) ;note that the first part and mid part are done
@lastMask
MOVE pixInLong(A6),D2 ;loop once for each pixel in the long
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
@firstMask
@loopTop
AND patHMask(A6),D6 ;constrict to the source long if in a pattern mode
BFEXTU D1{D0:D7},D3 ;a pixel of the mask
BEQ.S @skip
BFEXTU (A4){D6:D7},D3 ;get a pixel of the source (zeros top word)
LEA red(A1,D3*8),A2 ;figure out where it lives in the color table
BFEXTU (A5){D0:D7},D3 ;a pixel of the destination
LEA red(A1,D3*8),A3 ;figure out where destination lives
MOVE (A2)+,D3 ;red get source color value
ADD (A3)+,D3 ; combine source and destination
ASL.L D5,D3 ; save the top bits in the top word
MOVE (A2)+,D3 ;green get source color value
ADD (A3)+,D3 ; combine source and destination
ASL.L D5,D3 ; save the top bits in the top word
MOVE (A2)+,D3 ;blue get source color value
ADD (A3)+,D3 ; combine source and destination
ASL.L D5,D3 ; save the top bits in the top word
SWAP D3 ;r, g, b in high word
MOVE.B itTable(A0,D3),D3 ;get the pixel value of the additive sum
BFINS D3,(A5){D0:D7} ;move to the destination
@skip
ADD.L (SP),D6 ;BUMP SRCPTR LEFT OR RIGHT by 1 pixel
ADD.L (SP),D0 ;bump destination and mask
DBRA D2,@loopTop ;do it for all of the pixels on the line (or within the mask)
MOVEQ #-1,D1 ;flush mask
BSET #0,doneMid(A6) ;has the middle part already been done?
BNE.S @midDone ;if so, skip it
MOVE midCount(A6),D2 ;reset to mid count
BMI.S @forceLast ;if none, just do the last part
BRA.S @loopTop
@midDone
BSET #1,doneMid(A6) ;already done the last mask part too?
BEQ.S @lastMask ;if not, do it
lea @RealbAddOver,A1 ;restore address to ourselves <14AUG90 KON>
BRA NxtNewSrc ;LOOP BACK FOR MORE
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = high bit clearing mask
; a1 = modeCase/mask d1 = dst msb's
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = src msb's
; a4 = srcPtr/patPtr d4 = patHMask
; a5 = dstPtr d5 = dest pixel
; a6 = locals d6 = pat offset
; a7^= patHBump d7 = src pixel
;-------------------------------------------------------
bAddOver32
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.l #~$ff808080,d0 ;get high bit clearing mask
move.l #$00808080,a1 ;get high bit mask
@loopTop
move.l a1,d3 ;copy high bit mask
move.l (a0),d7 ;get a pixel of the source xrgb
and.l d7,d3 ;remember src msb's
add.w a3,a0 ;bump bidirectionally
and.l d0,d7 ;mask out stragglers
move.l (a2),d5 ;get a pixel of the dest xrgb
move.l a1,d1 ;copy high bit mask
and.l d5,d1 ;remember dst msb's
and.l d0,d5 ;mask out stragglers
add.l d5,d7 ;merge src with dst
eor.l d3,d1 ;compute partial sum of msb's
eor.l d1,d7 ;compute partial sum of msb's
move.l d7,(a2) ;move to the destination
add.w a3,a2 ;bump bidirectionally
addq.l #4,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
lea bAddOver32,a1 ;reload modeCase
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = high bit clearing mask
; a1 = modeCase/mask d1 = dst msb's
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = src msb's
; a4 = srcPtr/patPtr d4 = patHMask
; a5 = dstPtr d5 = dest pixel
; a6 = locals d6 = pat offset
; a7^= patHBump d7 = src pixel
;-------------------------------------------------------
bAddOver16
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.w #$3def,d0 ;get high bit clearing mask
move.w #$4210,a1 ;get high bit mask
@loopTop
move.w a1,d3 ;copy high bit mask
move.w (a0),d7 ;get a pixel of the source xrgb
and.w d7,d3 ;remember src msb's
add.w a3,a0 ;bump bidirectionally
and.w d0,d7 ;mask out stragglers
move.w (a2),d5 ;get a pixel of the dest xrgb
move.w a1,d1 ;copy high bit mask
and.w d5,d1 ;remember dst msb's
and.w d0,d5 ;mask out stragglers
add.w d5,d7 ;merge src with dst
eor.w d3,d1 ;compute partial sum of msb's
eor.w d1,d7 ;compute partial sum of msb's
move.w d7,(a2) ;move to the destination
add.w a3,a2 ;bump bidirectionally
addq.l #2,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
lea bAddOver16,a1 ;reload modeCase
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
endif ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 33, 41, 57: SRC + DST --> DST (pin to max)
; in addition to the registers set up for Mode 17 (AddOver), this needs
; the 3 element word array pin(A6) to be set to the maximum b, g, r values (in that order)
; for comparison and pinning
; Note that D4 is unused
bAddPin
bAddPinIndexed
;
; if we are going backwards, align destination and mask <14AUG90 KON>
;
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbAddPin1 ; <14AUG90 KON>
sub.l (SP),D6 ;bump src right OR left by 1 pixel first time only <14AUG90 KON>
@RealbAddPin
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbAddPin1 ; <14AUG90 KON>
sub.l (SP),D0 ;align destination and mask each scan line <14AUG90 KON>
@RealbAddPin1
MOVE.L colorTable(A6),A1 ;set up color table
TST D2 ;is there only 1 long?
BGT.S @firstMask ;if not, use the first mask in D1
@forceLast
OR.B #3,doneMid(A6) ;note that the first part and mid part are done
@lastMask
MOVE pixInLong(A6),D2 ;loop once for each pixel in the long
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
@firstMask
@loopTop
AND patHMask(A6),D6 ;constrict to the source long if in a pattern mode
BFEXTU D1{D0:D7},D3 ;a pixel of the mask
BEQ.S @skip
BFEXTU (A4){D6:D7},D3 ;get a pixel of the source (zeros top word)
LEA red(A1,D3*8),A2 ;figure out where it lives in the color table
BFEXTU (A5){D0:D7},D3 ;a pixel of the destination
LEA red(A1,D3*8),A3 ;figure out where destination lives
MOVE (A2)+,D3 ;get source color value
ADD (A3)+,D3 ;combine source and destination
BCS.S @tooBigRed
CMP pin+4(A6),D3 ;bigger than pin value?
BLS.S @notTooBigRed ;no, no problem
@tooBigRed
MOVE pin+4(A6),D3
@notTooBigRed
ASL.L D5,D3 ;save the top bits in the top word
MOVE (A2)+,D3 ;get source color value
ADD (A3)+,D3 ;combine source and destination
BCS.S @tooBigGreen
CMP pin+2(A6),D3 ;bigger than pin value?
BLS.S @notTooBigGreen ;no, no problem
@tooBigGreen
MOVE pin+2(A6),D3
@notTooBigGreen
ASL.L D5,D3 ;save the top bits in the top word
MOVE (A2)+,D3 ;get source color value
ADD (A3)+,D3 ;combine source and destination
BCS.S @tooBigBlue
CMP pin(A6),D3 ;bigger than pin value?
BLS.S @notTooBigBlue ;no, no problem
@tooBigBlue
MOVE pin(A6),D3
@notTooBigBlue
ASL.L D5,D3 ;save the top bits in the top word
SWAP D3 ;r, g, b in high word
MOVE.B itTable(A0,D3),D3 ;get the pixel value of the additive sum
BFINS D3,(A5){D0:D7} ;move to the destination
@skip
ADD.L (SP),D6 ;BUMP SRCPTR LEFT OR RIGHT by 1 pixel
ADD.L (SP),D0 ;bump destination and mask
DBRA D2,@loopTop ;do it for all of the pixels on the line (or within the mask)
MOVEQ #-1,D1 ;flush mask
BSET #0,doneMid(A6) ;has the middle part already been done?
BNE.S @midDone ;if so, skip it
MOVE midCount(A6),D2 ;reset to mid count
BMI.S @forceLast ;if none, just do the last part
BRA.S @loopTop
@midDone
BSET #1,doneMid(A6) ;already done the last mask part too?
BEQ.S @lastMask ;if not, do it
lea @RealbAddPin,A1 ;restore address to ourselves <14AUG90 KON>
BRA NxtNewSrc ;LOOP BACK FOR MORE
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = result/scratch
; a1 = modeCase d1 = lo3Bytes mask
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = pin pixel 0rgb
; a4 = srcPtr/patPtr d4 = patHMask (bytes)
; a5 = dstPtr d5 = dst long
; a6 = locals d6 = pat offset (bytes)
; a7^= d7 = src long
;-------------------------------------------------------
bAddPin32
;set up pin pixel as 0rgb in D3 -> overwrites pattern bump
lea bAddPin32Main,A1 ;go there from now on
moveq #0,d3 ;start fresh, waste iTabRes
move.b pin+4(a6),d3 ;pick up red
swap d3 ;put in byte 3
move.w pin+2(a6),d3 ;get green in byte 2
move.b pin(a6),d3 ;put blue in lo byte
bAddPin32Main
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.l Lo3Bytes,d1 ;pick up mask
@loopTop
move.l (a0),d7 ;get a pixel of the source xrgb
and.l d1,d7 ;waste high byte
move.l d7,d0 ;make a copy of the src xrgb
add a3,a0 ;bump bi-directionally
move.l (a2),d5 ;get a pixel of the dest xrgb
and.l d1,d5 ;waste high byte
clr.b d0 ;prevent carries from below
add.w d5,d0 ;add green components
BCS.S @PinGreen
cmp.w d3,d0 ;do we need to pin result?
bls.s @GreenOK
@PinGreen
move.w d3,d0 ;use pin value instead
@GreenOK
move.b d7,d0 ;get src blue
add.b d5,d0 ;add dest blue
BCS.S @PinBlue
cmp.b d3,d0 ;do we need to pin result?
bls.s @BlueOK
@PinBlue
move.b d3,d0 ;use pin value instead
@BlueOK
clr.w d5 ;now d5 has only red in byte 3
add.l d5,d0 ;add red components
cmp.l d3,d0 ;compare red components
bls.s @RedOK
@PinRed
swap d3 ;get max red in lo word
swap d0 ;get too big red in lo word
move.w d3,d0 ;pin to max red
swap d0 ;get back 0rgb
swap d3 ;restore pin pixel
@RedOK
move.l d0,(a2) ;move to the destination
add a3,a2 ;bump bi-directionally
addq.l #4,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = result/scratch
; a1 = modeCase d1 = lo3Bytes mask
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = pin pixel 0rgb
; a4 = srcPtr/patPtr d4 = patHMask (bytes)
; a5 = dstPtr d5 = dst long
; a6 = locals d6 = pat offset (bytes)
; a7^= d7 = src long
;-------------------------------------------------------
bAddPin16
lea bAddPin16Main,A1 ;go here from now on
moveq #0,d3 ;start fresh, waste iTabRes
move.b pin+4(a6),d3 ;pick up red
lsr.b #3,d3 ;get right aligned 5 bits
swap d3 ;put in byte 3
move.w pin+2(a6),d3 ;get green in byte 2
lsr.w #3,d3 ;get right aligned 5 bits
move.b pin(a6),d3 ;put blue in lo byte
lsr.b #3,d3 ;right flush blue
bAddPin16Main
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
@loopTop
moveq #0,d7
move.w (a0),d7 ;get a pixel of the source xrgb
add a3,a0 ;bump bi-directionally
add.w d7,d7 ;waste high bit
lsl.l #5,d7 ;but red in byte 3
lsr.w #3,d7 ;but green in byte 2, blue in lo byte
lsr.b #3,d7 ;right flush blue
moveq #0,d5
move.w (a2),d5 ;get a pixel of the dest xrgb
add.w d5,d5 ;waste high bit
lsl.l #5,d5 ;but red in byte 3
lsr.w #3,d5 ;but green in byte 2, blue in lo byte
lsr.b #3,d5 ;right flush blue
add.l d5,d7 ;add all components at once
move.l d7,d0 ;prime result with red
cmp.l d3,d0 ;do we need to pin result?
bls.s @redOK ;no, don't pin
move.l d3,d0 ;use pin value instead
@redOK
move.w d7,d0 ;prime result with green
cmp.w d3,d0 ;do we need to pin result?
bls.s @greenOK ;no, don't pin
move.w d3,d0 ;use pin value instead
@greenOK
move.b d7,d0 ;prime result with blue
cmp.b d3,d0 ;do we need to pin result?
bls.s @blueOK ;no, don't pin
move.b d3,d0 ;use pin value instead
@blueOK
lsl.b #3,d0 ;rejoin green/blue
lsl.w #3,d0 ;rejoin red/green/blue
lsr.l #6,d0 ;right flush red/green/blue
move.w d0,(a2) ;move to the destination
add a3,a2 ;bump bi-directionally
addq.l #2,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
endif ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 38, 46, 62: DST - SRC --> DST (no pin)
;
; Note that D4 is unused
bSubOver
bSubOverIndexed
;
; if we are going backwards, align destination and mask <14AUG90 KON>
;
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbSubOver1 ; <14AUG90 KON>
sub.l (SP),D6 ;bump src right OR left by 1 pixel first time only <14AUG90 KON>
@RealbSubOver
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbSubOver1 ; <14AUG90 KON>
sub.l (SP),D0 ;align destination and mask each scan line <14AUG90 KON>
@RealbSubOver1
MOVE.L colorTable(A6),A1 ;set up color table
TST D2 ;is there only 1 long?
BGT.S @firstMask ;if not, use the first mask in D1
@forceLast
OR.B #3,doneMid(A6) ;note that the first part and mid part are done
@lastMask
MOVE pixInLong(A6),D2 ;loop once for each pixel in the long
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
@firstMask
@loopTop
AND patHMask(A6),D6 ;constrict to the source long if in a pattern mode
BFEXTU D1{D0:D7},D3 ;a pixel of the mask
BEQ.S @skip
BFEXTU (A4){D6:D7},D3 ;get a pixel of the source (zeros top word)
LEA red(A1,D3*8),A2 ;figure out where it lives in the color table
BFEXTU (A5){D0:D7},D3 ;a pixel of the destination
LEA red(A1,D3*8),A3 ;figure out where destination lives
MOVE (A3)+,D3 ;get destination
SUB (A2)+,D3 ;less source color value
ASL.L D5,D3 ;save the top 4 bits in the top word
MOVE (A3)+,D3 ;get destination
SUB (A2)+,D3 ;less source color value
ASL.L D5,D3 ;save the top 4 bits in the top word
MOVE (A3)+,D3 ;get destination
SUB (A2)+,D3 ;less source color value
ASL.L D5,D3 ;save the top 4 bits in the top word
SWAP D3 ;r, g, b in high word
MOVE.B itTable(A0,D3),D3 ;get the pixel value of the additive sum
BFINS D3,(A5){D0:D7} ;move to the destination
@skip
ADD.L (SP),D6 ;BUMP SRCPTR LEFT OR RIGHT by 1 pixel
ADD.L (SP),D0 ;bump destination and mask
DBRA D2,@loopTop ;do it for all of the pixels on the line (or within the mask)
MOVEQ #-1,D1 ;flush mask
BSET #0,doneMid(A6) ;has the middle part already been done?
BNE.S @midDone ;if so, skip it
MOVE midCount(A6),D2 ;reset to mid count
BMI.S @forceLast ;if none, just do the last part
BRA.S @loopTop
@midDone
BSET #1,doneMid(A6) ;already done the last mask part too?
BEQ.S @lastMask ;if not, do it
lea @RealbSubOver,A1 ;restore address to ourselves <14AUG90 KON>
BRA NxtNewSrc ;LOOP BACK FOR MORE
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = high bit clearing mask
; a1 = modeCase d1 = high bit mask
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = src msb's
; a4 = srcPtr/patPtr d4 = dst msb's
; a5 = dstPtr d5 = dest pixel
; a6 = locals d6 = pat offset
; a7^= d7 = src pixel
;-------------------------------------------------------
bSubOver32
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.l #~$ff808080,d0 ;get high bit clearing mask
move.l #$00808080,d1 ;get high bit mask
@loopTop
move.l d1,d3 ;copy high bit mask
move.l (a0),d7 ;get a pixel of the source xrgb
and.l d7,d3 ;remember src msb's
eor.l d1,d3 ;invert src msb's
add.w a3,a0 ;bump bidirectionally
and.l d0,d7 ;mask out stragglers
move.l (a2),d5 ;get a pixel of the dest xrgb
move.l d1,d4 ;copy high bit mask
and.l d5,d4 ;remember dst msb's
and.l d0,d5 ;mask out high byte
or.l d1,d5 ;force high bits on
sub.l d7,d5 ;compute dst - src
eor.l d3,d4 ;compute partial sum of msb's
eor.l d4,d5 ;compute partial sum of msb's
move.l d5,(a2) ;move to the destination
add.w a3,a2 ;bump bidirectionally
addq.l #4,d6 ;bump pattern offset
and.w patHMask(a6),d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = high bit clearing mask
; a1 = modeCase d1 = high bit mask
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = src msb's
; a4 = srcPtr/patPtr d4 = dst msb's
; a5 = dstPtr d5 = dest pixel
; a6 = locals d6 = pat offset
; a7^= d7 = src pixel
;-------------------------------------------------------
; as seen in QDciPatchROM.a <sm 6/9/92>stb
bSubOver16
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.w #$3def,d0 ;get high bit clearing mask
move.w #$4210,d1 ;get high bit mask
@loopTop
move.w d1,d3 ;copy high bit mask
move.w (a0),d7 ;get a pixel of the source xrgb
add.w a3,a0 ;bump bidirectionally
and.w d7,d3 ;remember src msb's
eor.w d1,d3 ;invert src msb's
and.w d0,d7 ;mask out stragglers
move.w (a2),d5 ;get a pixel of the dest xrgb <SMC 26SEP90> <11>
move.w d1,d4 ;copy high bit mask
and.w d5,d4 ;remember dst msb's
and.w d0,d5 ;mask out high byte
or.w d1,d5 ;force high bits on
sub.w d7,d5 ;compute dst - src
eor.w d3,d4 ;compute partial sum of msb's
eor.w d4,d5 ;compute partial sum of msb's
move.w d5,(a2) ;move to the destination
add.w a3,a2 ;bump bidirectionally
addq.l #2,d6 ;bump pattern offset
and.w patHMask(a6),d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
endif ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 35, 43, 59: DST - SRC --> DST (pin to min)
bSubPin
bSubPinIndexed
;
; if we are going backwards, align destination and mask <14AUG90 KON>
;
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbSubPin1 ; <14AUG90 KON>
sub.l (SP),D6 ;bump src right OR left by 1 pixel first time only <14AUG90 KON>
@RealbSubPin
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbSubPin1 ; <14AUG90 KON>
sub.l (SP),D0 ;align destination and mask each scan line <14AUG90 KON>
@RealbSubPin1
MOVE.L colorTable(A6),A1 ;set up color table
TST D2 ;is there only 1 long?
BGT.S @firstMask ;if not, use the first mask in D1
@forceLast
OR.B #3,doneMid(A6) ;note that the first part and mid part are done
@lastMask
MOVE pixInLong(A6),D2 ;loop once for each pixel in the long
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
@firstMask
@loopTop
AND patHMask(A6),D6 ;constrict to the source long if in a pattern mode
BFEXTU D1{D0:D7},D3 ;a pixel of the mask
BEQ.S @skip
BFEXTU (A4){D6:D7},D3 ;get a pixel of the source (zeros top word)
LEA red(A1,D3*8),A2 ;figure out where it lives in the color table
BFEXTU (A5){D0:D7},D3 ;a pixel of the destination
LEA red(A1,D3*8),A3 ;figure out where destination lives
MOVE (A3)+,D3 ;destination color
SUB (A2)+,D3 ;less source color value
BCS.S @tooBigRed
CMP pin+4(A6),D3 ;smaller than pin value?
BHS.S @notTooBigRed ;no, no problem
@tooBigRed
MOVE pin+4(A6),D3
@notTooBigRed
ASL.L D5,D3 ;save the top 4 bits in the top word
MOVE (A3)+,D3 ;destination color
SUB (A2)+,D3 ;less source color value
BCS.S @tooBigGreen
CMP pin+2(A6),D3 ;smaller than pin value?
BHS.S @notTooBigGreen ;no, no problem
@tooBigGreen
MOVE pin+2(A6),D3
@notTooBigGreen
ASL.L D5,D3 ;save the top 4 bits in the top word
MOVE (A3)+,D3 ;destination color
SUB (A2)+,D3 ;less source color value
BCS.S @tooBigBlue
CMP pin(A6),D3 ;smaller than pin value?
BHS.S @notTooBigBlue ;no, no problem
@tooBigBlue
MOVE pin(A6),D3
@notTooBigBlue
ASL.L D5,D3 ;save the top 4 bits in the top word
SWAP D3 ;r, g, b in high word
MOVE.B itTable(A0,D3),D3 ;get the pixel value of the additive sum
BFINS D3,(A5){D0:D7} ;move to the destination
@skip
ADD.L (SP),D6 ;BUMP SRCPTR LEFT OR RIGHT by 1 pixel
ADD.L (SP),D0 ;bump destination and mask
DBRA D2,@loopTop ;do it for all of the pixels on the line (or within the mask)
MOVEQ #-1,D1 ;flush mask
BSET #0,doneMid(A6) ;has the middle part already been done?
BNE.S @midDone ;if so, skip it
MOVE midCount(A6),D2 ;reset to mid count
BMI.S @forceLast ;if none, just do the last part
BRA.S @loopTop
@midDone
BSET #1,doneMid(A6) ;already done the last mask part too?
BEQ.S @lastMask ;if not, do it
lea @RealbSubPin,A1 ;restore address to ourselves <14AUG90 KON>
BRA NxtNewSrc ;LOOP BACK FOR MORE
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = result/scratch
; a1 = modeCase d1 = lo3Bytes mask
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = pin pixel 0rgb
; a4 = srcPtr/patPtr d4 = patHMask (bytes)
; a5 = dstPtr d5 = src long
; a6 = locals d6 = pat offset (bytes)
; a7^= d7 = dst long
;-------------------------------------------------------
;set up pin pixel as 0rgb in D3 -> overwrites pattern bump
bSubPin32
lea bSubPin32Main,A1 ;go there from now on
moveq #0,d3 ;start fresh, waste iTabRes
move.b pin+4(a6),d3 ;pick up red
swap d3 ;put in byte 3
move.w pin+2(a6),d3 ;get green in byte 2
move.b pin(a6),d3 ;put blue in lo byte
bSubPin32Main
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.l Lo3Bytes,d1 ;pick up mask
@loopTop
move.l (a0),d5 ;get a pixel of the source xrgb
and.l d1,d5 ;waste high byte
add a3,a0 ;bump bi-directionally
move.l (a2),d7 ;get a pixel of the dest xrgb
and.l d1,d7 ;waste high byte
move.l d7,d0 ;make a copy of the dst xrgb
st d0 ;prevent borrows from below
sub.w d5,d0 ;sub green components
BCS.S @PinGreen
cmp.w d3,d0 ;do we need to pin result?
bhs.s @GreenOK
@PinGreen
move.w d3,d0 ;use pin value instead
@GreenOK
move.b d7,d0 ;get dest blue
sub.b d5,d0 ;sub src blue
BCS.S @PinBlue
cmp.b d3,d0 ;do we need to pin result?
bhs.s @BlueOK
@PinBlue
move.b d3,d0 ;use pin value instead
@BlueOK
clr.w d5 ;now d5 has only red in byte 3
sub.l d5,d0 ;sub red components
cmp.l d3,d0 ;compare red components
bge.s @RedOK
@PinRed
swap d3 ;get max red in lo word
swap d0 ;get too big red in lo word
move.w d3,d0 ;pin to max red
swap d0 ;get back 0rgb
swap d3 ;restore pin pixel
@RedOK
move.l d0,(a2) ;move to the destination
add a3,a2 ;bump bi-directionally
addq.l #4,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = result/scratch
; a1 = modeCase d1 = borrow stopper
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = pin pixel 0rgb
; a4 = srcPtr/patPtr d4 = patHMask (bytes)
; a5 = dstPtr d5 = src long
; a6 = locals d6 = pat offset (bytes)
; a7^= d7 = dst long
;-------------------------------------------------------
bSubPin16
lea bSubPin16Main,A1 ;go there from now on
moveq #0,d3 ;start fresh, waste iTabRes
move.b pin+4(a6),d3 ;pick up red
lsr.b #3,d3 ;get right aligned 5 bits
swap d3 ;put in byte 3
move.w pin+2(a6),d3 ;get green in byte 2
lsr.w #3,d3 ;get right aligned 5 bits
move.b pin(a6),d3 ;put blue in lo byte
lsr.b #3,d3 ;right flush blue
add.l #$808080,d3 ;prevent borrows from crossing byte boundaries
bSubPin16Main
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.l #$808080,d1 ;borrow stopper
@loopTop
moveq #0,d5
move.w (a0),d5 ;get a pixel of the source xrgb
add a3,a0 ;bump bi-directionally
add.w d5,d5 ;waste high bit
lsl.l #5,d5 ;but red in byte 3
lsr.w #3,d5 ;but green in byte 2, blue in lo byte
lsr.b #3,d5 ;right flush blue
moveq #0,d7
move.w (a2),d7 ;get a pixel of the dest xrgb
add.w d7,d7 ;waste high bit
lsl.l #5,d7 ;but red in byte 3
lsr.w #3,d7 ;but green in byte 2, blue in lo byte
lsr.b #3,d7 ;right flush blue
add.l d1,d7 ;prevent borrows from crossing byte boundaries
sub.l d5,d7 ;sub all components at once
move.l d7,d0 ;prime result with red
cmp.l d3,d0 ;do we need to pin result?
bhs.s @redOK ;no, don't pin
move.l d3,d0 ;use pin value instead
@redOK
move.w d7,d0 ;prime result with green
cmp.w d3,d0 ;do we need to pin result?
bhs.s @greenOK ;no, don't pin
move.w d3,d0 ;use pin value instead
@greenOK
move.b d7,d0 ;prime result with blue
cmp.b d3,d0 ;do we need to pin result?
bhs.s @blueOK ;no, don't pin
move.b d3,d0 ;use pin value instead
@blueOK
lsl.b #3,d0 ;rejoin green/blue
lsl.w #3,d0 ;rejoin red/green/blue
lsr.l #6,d0 ;right flush red/green/blue
move.w d0,(a2) ;move to the destination
add a3,a2 ;bump bi-directionally
addq.l #2,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
endif ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 37, 45, 61: MAX(SRC, DST) --> DST
;
; Note: D4 is unused
bMax
bMaxIndexed
;
; if we are going backwards, align destination and mask <14AUG90 KON>
;
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbMax1 ; <14AUG90 KON>
sub.l (SP),D6 ;bump src right OR left by 1 pixel first time only <14AUG90 KON>
@RealbMax
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbMax1 ; <14AUG90 KON>
sub.l (SP),D0 ;align destination and mask each scan line <14AUG90 KON>
@RealbMax1
MOVE.L colorTable(A6),A1 ;set up color table
TST D2 ;is there only 1 long?
BGT.S @firstMask ;if not, use the first mask in D1
@forceLast
OR.B #3,doneMid(A6) ;note that the first part and mid part are done
@lastMask
MOVE pixInLong(A6),D2 ;loop once for each pixel in the long
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
@firstMask
@loopTop
AND patHMask(A6),D6 ;constrict to the source long if in a pattern mode
BFEXTU D1{D0:D7},D3 ;a pixel of the mask
BEQ.S @skip
BFEXTU (A4){D6:D7},D3 ;get a pixel of the source (zeros top word)
LEA red(A1,D3*8),A2 ;figure out where it lives in the color table
BFEXTU (A5){D0:D7},D3 ;a pixel of the destination
LEA red(A1,D3*8),A3 ;figure out where destination lives
MOVE (A2)+,D3 ;get source color value
CMP (A3),D3 ;combine source and destination
BHS.S @gotTheMaxRed
MOVE (A3),D3
@gotTheMaxRed
ADDQ #2,A3 ;advance to next color
ASL.L D5,D3 ;save the top bits in the top word
MOVE (A2)+,D3 ;get source color value
CMP (A3),D3 ;combine source and destination
BHS.S @gotTheMaxGreen
MOVE (A3),D3
@gotTheMaxGreen
ADDQ #2,A3 ;advance to next color
ASL.L D5,D3 ;save the top bits in the top word
MOVE (A2)+,D3 ;get source color value
CMP (A3),D3 ;combine source and destination
BHS.S @gotTheMaxBlue
MOVE (A3),D3
@gotTheMaxBlue
ASL.L D5,D3 ;save the top bits in the top word
SWAP D3 ;r, g, b in high word
MOVE.B itTable(A0,D3),D3 ;get the pixel value of the additive sum
BFINS D3,(A5){D0:D7} ;move to the destination
@skip
ADD.L (SP),D6 ;BUMP SRCPTR LEFT OR RIGHT by 1 pixel
ADD.L (SP),D0 ;bump destination and mask
DBRA D2,@loopTop ;do it for all of the pixels on the line (or within the mask)
MOVEQ #-1,D1 ;flush mask
BSET #0,doneMid(A6) ;has the middle part already been done?
BNE.S @midDone ;if so, skip it
MOVE midCount(A6),D2 ;reset to mid count
BMI.S @forceLast ;if none, just do the last part
BRA.S @loopTop
@midDone
BSET #1,doneMid(A6) ;already done the last mask part too?
BEQ.S @lastMask ;if not, do it
lea @RealbMax,A1 ;restore address to ourselves <14AUG90 KON>
BRA NxtNewSrc ;LOOP BACK FOR MORE
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = result/scratch
; a1 = modeCase d1 =
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = patHBump (bytes)
; a4 = srcPtr/patPtr d4 = patHMask (bytes)
; a5 = dstPtr d5 = dst long
; a6 = locals d6 = pat offset (bytes)
; a7 = d7 = src long
;-------------------------------------------------------
bMax32
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
@loopTop
move.l (a0),d7 ;get a pixel of the source xrgb
add a3,a0 ;bump bi-directionally
move.l (a2),d5 ;get a pixel of the dest xrgb
move.l d5,d0 ;make a copy of the dest xrgb
cmp.w d7,d0 ;compare g,b components
BHI.S @gotTheMaxGreen
move.w d7,d0 ;keep the bigger of the two
move.b d5,d0 ;prime for blue
@gotTheMaxGreen
cmp.b d7,d5 ;compare blue components
BHI.S @gotTheMaxBlue
move.b d7,d0 ;keep the bigger of the two
@gotTheMaxBlue
swap d7
swap d0
cmp.b d7,d0 ;compare red components
BHI.S @gotTheMaxRed
move.b d7,d0 ;keep the bigger of the two
@gotTheMaxRed
swap d0 ;get new xrgb
move.l d0,(a2) ;move to the destination
add a3,a2 ;bump bi-directionally
addq.l #4,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = result/scratch
; a1 = modeCase d1 =
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = patHBump (bytes)
; a4 = srcPtr/patPtr d4 = patHMask (bytes)
; a5 = dstPtr d5 = dst long
; a6 = locals d6 = pat offset (bytes)
; a7 = d7 = src long
;-------------------------------------------------------
bMax16
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
@loopTop
moveq #0,d7
move.w (a0),d7 ;get a pixel of the source xrgb
add a3,a0 ;bump bi-directionally
add.w d7,d7 ;waste high bit
lsl.l #5,d7 ;but red in byte 3
lsr.w #3,d7 ;but green in byte 2, blue in lo byte
lsr.b #3,d7 ;right flush blue
moveq #0,d5
move.w (a2),d5 ;get a pixel of the dest xrgb
add.w d5,d5 ;waste high bit
lsl.l #5,d5 ;but red in byte 3
lsr.w #3,d5 ;but green in byte 2, blue in lo byte
lsr.b #3,d5 ;right flush blue
move.l d7,d0 ;prime result with src
cmp.l d5,d0 ;is dst greater?
bhs.s @gotRed ;no, use src
move.l d5,d0 ;use dst value instead
@gotRed
move.w d7,d0 ;prime result with src
cmp.w d5,d0 ;is dst greater?
bhs.s @gotGreen ;no, use src
move.w d5,d0 ;use dst value instead
@gotGreen
move.b d7,d0 ;prime result with src
cmp.b d5,d0 ;is dst greater?
bhs.s @gotBlue ;no, use src
move.b d5,d0 ;use dst value instead
@gotBlue
lsl.b #3,d0 ;rejoin green/blue
lsl.w #3,d0 ;rejoin red/green/blue
lsr.l #6,d0 ;right flush red/green/blue
move.w d0,(a2) ;move to the destination
add a3,a2 ;bump bi-directionally
addq.l #2,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
endif ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 39, 47, 63: MIN(SRC, DST) --> DST
;
; Note: D4 is unused
bMin
bMinIndexed
;
; if we are going backwards, align destination and mask <14AUG90 KON>
;
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbMin1 ; <14AUG90 KON>
sub.l (SP),D6 ;bump src right OR left by 1 pixel first time only <14AUG90 KON>
@RealbMin
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbMin1 ; <14AUG90 KON>
sub.l (SP),D0 ;align destination and mask each scan line <14AUG90 KON>
@RealbMin1
MOVE.L colorTable(A6),A1 ;set up color table
TST D2 ;is there only 1 long?
BGT.S @firstMask ;if not, use the first mask in D1
@forceLast
OR.B #3,doneMid(A6) ;note that the first part and mid part are done
@lastMask
MOVE pixInLong(A6),D2 ;loop once for each pixel in the long
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
@firstMask
@loopTop
AND patHMask(A6),D6 ;constrict to the source long if in a pattern mode
BFEXTU D1{D0:D7},D3 ;a pixel of the mask
BEQ.S @skip
BFEXTU (A4){D6:D7},D3 ;get a pixel of the source (zeros top word)
LEA red(A1,D3*8),A2 ;figure out where it lives in the color table
BFEXTU (A5){D0:D7},D3 ;a pixel of the destination
LEA red(A1,D3*8),A3 ;figure out where destination lives
MOVE (A2)+,D3 ;get source color value
CMP (A3),D3 ;combine source and destination
BLS.S @gotTheMinRed
MOVE (A3),D3
@gotTheMinRed
ADDQ #2,A3 ;advance to next color
ASL.L D5,D3 ;save the top bits in the top word
MOVE (A2)+,D3 ;get source color value
CMP (A3),D3 ;combine source and destination
BLS.S @gotTheMinGreen
MOVE (A3),D3
@gotTheMinGreen
ADDQ #2,A3 ;advance to next color
ASL.L D5,D3 ;save the top bits in the top word
MOVE (A2)+,D3 ;get source color value
CMP (A3),D3 ;combine source and destination
BLS.S @gotTheMinBlue
MOVE (A3),D3
@gotTheMinBlue
ASL.L D5,D3 ;save the top bits in the top word
SWAP D3 ;r, g, b in high word
MOVE.B itTable(A0,D3),D3 ;get the pixel value of the additive sum
BFINS D3,(A5){D0:D7} ;move to the destination
@skip
ADD.L (SP),D6 ;BUMP SRCPTR LEFT OR RIGHT by 1 pixel
ADD.L (SP),D0 ;bump destination and mask
DBRA D2,@loopTop ;do it for all of the pixels on the line (or within the mask)
MOVEQ #-1,D1 ;flush mask
BSET #0,doneMid(A6) ;has the middle part already been done?
BNE.S @midDone ;if so, skip it
MOVE midCount(A6),D2 ;reset to mid count
BMI.S @forceLast ;if none, just do the last part
BRA.S @loopTop
@midDone
BSET #1,doneMid(A6) ;already done the last mask part too?
BEQ.S @lastMask ;if not, do it
lea @RealbMin,A1 ;restore address to ourselves <14AUG90 KON>
BRA NxtNewSrc ;LOOP BACK FOR MORE
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = result/scratch
; a1 = modeCase d1 =
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = patHBump (bytes)
; a4 = srcPtr/patPtr d4 = patHMask (bytes)
; a5 = dstPtr d5 = dst long
; a6 = locals d6 = pat offset (bytes)
; a7 = d7 = src long
;-------------------------------------------------------
bMin32
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
@loopTop
move.l (a0),d7 ;get a pixel of the source xrgb
add a3,a0 ;bump bi-directionally
move.l (a2),d5 ;get a pixel of the dest xrgb
move.l d5,d0 ;make a copy of the dest xrgb
cmp.w d7,d0 ;compare g,b components
BLS.S @gotTheMinGreen
move.w d7,d0 ;keep the smaller of the two
move.b d5,d0 ;prime for blue
@gotTheMinGreen
cmp.b d7,d5 ;compare blue components
BLS.S @gotTheMinBlue
move.b d7,d0 ;keep the smaller of the two
@gotTheMinBlue
swap d7
swap d0
cmp.b d7,d0 ;compare red components
BLS.S @gotTheMinRed
move.b d7,d0 ;keep the smaller of the two
@gotTheMinRed
swap d0 ;get new xrgb
move.l d0,(a2) ;move to the destination
add a3,a2 ;bump bi-directionally
addq.l #4,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = result/scratch
; a1 = modeCase d1 =
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = patHBump (bytes)
; a4 = srcPtr/patPtr d4 = patHMask (bytes)
; a5 = dstPtr d5 = dst long
; a6 = locals d6 = pat offset (bytes)
; a7 = d7 = src long
;-------------------------------------------------------
bMin16
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
@loopTop
moveq #0,d7
move.w (a0),d7 ;get a pixel of the source xrgb
add a3,a0 ;bump bi-directionally
add.w d7,d7 ;waste high bit
lsl.l #5,d7 ;but red in byte 3
lsr.w #3,d7 ;but green in byte 2, blue in lo byte
lsr.b #3,d7 ;right flush blue
moveq #0,d5
move.w (a2),d5 ;get a pixel of the dest xrgb
add.w d5,d5 ;waste high bit
lsl.l #5,d5 ;but red in byte 3
lsr.w #3,d5 ;but green in byte 2, blue in lo byte
lsr.b #3,d5 ;right flush blue
move.l d7,d0 ;prime result with src
cmp.l d5,d0 ;is dst smaller?
bls.s @gotRed ;no, use src
move.l d5,d0 ;use dst value instead
@gotRed
move.w d7,d0 ;prime result with src
cmp.w d5,d0 ;is dst smaller?
bls.s @gotGreen ;no, use src
move.w d5,d0 ;use dst value instead
@gotGreen
move.b d7,d0 ;prime result with src
cmp.b d5,d0 ;is dst smaller?
bls.s @gotBlue ;no, use src
move.b d5,d0 ;use dst value instead
@gotBlue
lsl.b #3,d0 ;rejoin green/blue
lsl.w #3,d0 ;rejoin red/green/blue
lsr.l #6,d0 ;right flush red/green/blue
move.w d0,(a2) ;move to the destination
add a3,a2 ;bump bi-directionally
addq.l #2,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
endif ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 32, 40, 56: AVG(SRC, DST, WEIGHT) --> DST
bAvg
bAvgIndexed
;
; if we are going backwards, align destination and mask <13AUG90 KON>
;
tst (sp) ;is bump amount negative? <13AUG90 KON>
bpl.s @RealbAvg1 ; <13AUG90 KON>
sub.l (SP),D6 ;bump src right OR left by 1 pixel first time only <13AUG90 KON>
@RealbAvg
tst (sp) ;is bump amount negative? <13AUG90 KON>
bpl.s @RealbAvg1 ; <13AUG90 KON>
sub.l (SP),D0 ;align destination and mask each scan line <13AUG90 KON>
@RealbAvg1
MOVE.L colorTable(A6),A1 ;set up color table
TST D2 ;is there only 1 long?
BGT.S @firstMask ;if not, use the first mask in D1
@forceLast
OR.B #3,doneMid(A6) ;note that the first part and mid part are done
@lastMask
MOVE pixInLong(A6),D2 ;loop once for each pixel in the long
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
@firstMask
@loopTop
AND patHMask(A6),D6 ;constrict to the source long if in a pattern mode
BFEXTU D1{D0:D7},D3 ;a pixel of the mask
BEQ.S @skip
BFEXTU (A4){D6:D7},D3 ;get a pixel of the source (zeros top word)
LEA red(A1,D3*8),A2 ;figure out where it lives in the color table
BFEXTU (A5){D0:D7},D3 ;a pixel of the destination
LEA red(A1,D3*8),A3 ;figure out where destination lives
MOVE.l D0,-(SP) ;preserve mask/destination offset <13AUG90 KON>
MOVEQ #2,D0 ;once for each color
MOVE invSize(A6),D4 ;do once for r, b and g
ADD D4,D4 ;initialize at 2x for shift count
CLR -(SP) ;make space & initialize average r, b, g
@nextColor
MOVE (A2)+,D3 ;get source color value
MULU (weight,A6,D0*2),D3 ;weight varies from 0 to 1
MOVE (A3)+,D5 ;get destination color value
MULU (notWeight,A6,D0*2),D5 ;weight varies from 1 to 0
ADD.L D5,D3 ;add source + dest
SWAP D3 ;high word is interesting part
MOVE rtShift(A6),D5 ;amount to shift right
LSR D5,D3 ;get top bits only
LSL D4,D3 ;shift by 2x, 1x, or 0 (for r, g, & b)
OR D3,(SP) ;combine r, g, b
SUB invSize(A6),D4 ;decrement shift, weight index
DBRA D0,@nextColor ;do for b & g as well
MOVE (SP)+,D3 ;r, g, b
MOVE.l (SP)+,D0 ;restore mask/destination offset <13AUG90 KON>
MOVE.B itTable(A0,D3),D3 ;get the pixel value of the additive sum
BFINS D3,(A5){D0:D7} ;move to the destination
@skip
ADD.L (SP),D6 ;BUMP SRCPTR LEFT OR RIGHT by 1 pixel
ADD.L (SP),D0 ;bump destination and mask
DBRA D2,@loopTop ;do it for all of the pixels on the line (or within the mask)
MOVEQ #-1,D1 ;flush mask
BSET #0,doneMid(A6) ;has the middle part already been done?
BNE.S @midDone ;if so, skip it
MOVE midCount(A6),D2 ;reset to mid count
BMI.S @forceLast ;if none, just do the last part
BRA.S @loopTop
@midDone
BSET #1,doneMid(A6) ;already done the last mask part too?
BEQ.S @lastMask ;if not, do it
lea @RealbAvg,a1 ;from now on, enter at @RealbAvg <13AUG90 KON>
BRA NxtNewSrc ;LOOP BACK FOR MORE
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = high bit mask
; a1 = modeCase d1 = low bit mask
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = lsb's of result
; a4 = srcPtr/patPtr d4 = patHMask
; a5 = dstPtr d5 = dest pixel
; a6 = locals d6 = pat offset
; a7^= patHBump d7 = src pixel
;-------------------------------------------------------
bAvg32Half
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.l #~$ff808080,d0 ;get high bit mask
move.l #$10101,d1 ;get low bit mask
@loopTop
move.l d1,d3 ;copy low bit mask
move.l (a0),d7 ;get a pixel of the source xrgb
and.l d7,d3 ;remember src lsb's
add.w a3,a0 ;bump bidirectionally
lsr.l #1,d7 ;get almost 1/2 of it
and.l d0,d7 ;mask out stragglers
move.l (a2),d5 ;get a pixel of the dest xrgb
and.l d5,d3 ;compute carry out of lsb
lsr.l #1,d5 ;get almost 1/2 of it
and.l d0,d5 ;mask out stragglers
add.l d5,d7 ;merge src with dst
add.l d3,d7 ;propagate carrys
move.l d7,(a2) ;move to the destination
add.w a3,a2 ;bump bidirectionally
addq.l #4,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = high bit mask
; a1 = modeCase d1 = low bit mask
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = lsb's of result
; a4 = srcPtr/patPtr d4 = patHMask
; a5 = dstPtr d5 = dest pixel
; a6 = locals d6 = pat offset
; a7^= patHBump d7 = src pixel
;-------------------------------------------------------
bAvg16Half
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.w #$3def,d0 ;get high bit clearing mask
move.w #$0421,d1 ;get low bit mask
@loopTop
move.l d1,d3 ;copy low bit mask
move.w (a0),d7 ;get a pixel of the source xrgb
and.w d7,d3 ;remember src lsb's
add.w a3,a0 ;bump bidirectionally
lsr.w #1,d7 ;get almost 1/2 of it
and.w d0,d7 ;mask out stragglers
move.w (a2),d5 ;get a pixel of the dest xrgb
and.w d5,d3 ;compute carry out of lsb
lsr.w #1,d5 ;get almost 1/2 of it
and.w d0,d5 ;mask out stragglers
add.w d5,d7 ;merge src with dst
add.w d3,d7 ;propagate carrys
move.w d7,(a2) ;move to the destination
add.w a3,a2 ;bump bidirectionally
addq.l #2,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = red weight
; a1 = last dst/mcase d1 = blue/grn weight
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = scratch
; a4 = srcPtr/patPtr d4 = scratch
; a5 = dstPtr d5 = dest pixel
; a6 = locals d6 = pat offset
; a7 = d7 = src pixel
;-------------------------------------------------------
bAvg32
lea weight(a6),a0 ;point at blue weight
move.l (a0)+,d1 ;get blue/green weight
move.w (a0),d0 ;get red weight
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
@short0 moveq #0,d4 ;init last result
move.l d4,d3 ;init last src
move.l d4,a1 ;init last dst
@loopTop
move.l (a0),d7 ;get a pixel of the source xrgb
add.w a3,a0 ;bump bidirectionally for MCF
move.l (a2),d5 ;get a pixel of the dest xrgb
@short1 cmp.l d3,d7 ;same as last time?
bne.s @blue ;no, go do it
cmp.l a1,d5 ;same as last time?
beq.s @again ;yes, go fast
@blue moveq #0,d3 ;clr out high end
move.b d7,d3 ;get src blue
swap d1 ;get blue weight
mulu.w d1,d3 ;% blue
moveq #0,d4 ;clr out high end
move.b d5,d4 ;get dst blue
neg.w d1
mulu.w d1,d4 ;% blue
neg.w d1
add.l d3,d4 ;get 24 bits of dst blue
swap d4 ;dst blue
move.w d4,a1 ;a1 has 000B
@grn move.w d7,d3 ;get src grn
lsr.w #8,d3
swap d1 ;get grn weight
mulu.w d1,d3 ;% grn
move.w d5,d4 ;get dst grn
lsr.w #8,d4
neg.w d1
mulu.w d1,d4 ;% grn
neg.w d1
add.l d3,d4 ;get 24 bits of dst grn
swap d4 ;dst grn
lsl.w #8,d4
add.w d4,a1 ;a1 has 00GB
@red moveq #0,d3 ;clr out high end
swap d7
move.b d7,d3 ;get src red
mulu.w d0,d3 ;% red
moveq #0,d4 ;clr out high end
swap d5
move.b d5,d4 ;get dst red
neg.w d0
mulu.w d0,d4 ;% red
neg.w d0
add.l d3,d4 ;get 24 bits of dst red
move.w a1,d4 ;d4 has 0RGB
@short2 swap d5 ;get back dst
move.l d5,a1 ;save for short circuit
swap d7 ;get back src
move.l d7,d3 ;save for short circuit
@again
move.l d4,(a2) ;move to the destination
add.w a3,a2 ;bump bidirectionally for MCF
addq.w #4,d6 ;bump horizontally in pattern
and.w patHMask(a6),d6 ;force pattern offset to wrap
bne.s @patOK
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
lea bAvg32,a1 ;reload modecase
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = red weight
; a1 = last dst/mcase d1 = blue/grn weight
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = scratch
; a4 = srcPtr/patPtr d4 = scratch
; a5 = dstPtr d5 = dest pixel
; a6 = locals d6 = pat offset
; a7 = d7 = src pixel
;-------------------------------------------------------
bAvg16
lea weight(a6),a0 ;point at blue weight
move.l (a0)+,d1 ;get blue/green weight
move.w (a0),d0 ;get red weight
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
@short0 moveq #0,d4 ;init last result
move.l d4,d3 ;init last src
move.l d4,a1 ;init last dst
@loopTop
moveq #0,d7
move.w (a0),d7 ;get a pixel of the source xrgb
add.w a3,a0 ;bump bidirectionally for MCF
moveq #0,d5
move.w (a2),d5 ;get a pixel of the dest xrgb
@short1 cmp.w d3,d7 ;same as last time?
bne.s @hardway ;no, go do it
cmp.w a1,d5 ;same as last time?
beq.s @again ;yes, go fast
@hardway
add.w d7,d7 ;waste high bit
lsl.l #5,d7 ;but red in byte 3
lsr.w #3,d7 ;but green in byte 2, blue in lo byte
lsr.b #3,d7 ;right flush blue
add.w d5,d5 ;waste high bit
lsl.l #5,d5 ;but red in byte 3
lsr.w #3,d5 ;but green in byte 2, blue in lo byte
lsr.b #3,d5 ;right flush blue
@blue moveq #0,d3 ;clr out high end
move.b d7,d3 ;get src blue
swap d1 ;get blue weight
mulu.w d1,d3 ;% blue
moveq #0,d4 ;clr out high end
move.b d5,d4 ;get dst blue
neg.w d1
mulu.w d1,d4 ;% blue
neg.w d1
add.l d3,d4 ;get 21 bits of blue
swap d4 ;right align 5 blue bits
move.l d4,a1 ;a1 has 000B
@grn move.w d7,d3 ;get src grn
lsr.w #8,d3
swap d1 ;get grn weight
mulu.w d1,d3 ;% grn
move.w d5,d4 ;get dst grn
lsr.w #8,d4
neg.w d1
mulu.w d1,d4 ;% grn
neg.w d1
add.l d3,d4 ;get 21 bits of grn
swap d4 ;right align 5 green bits
lsl.w #5,d4 ;shift into place
add.w d4,a1 ;a1 has 00GB
@red moveq #0,d3 ;clr out high end
swap d7
move.b d7,d3 ;get src red
mulu.w d0,d3 ;% red
moveq #0,d4 ;clr out high end
swap d5
move.b d5,d4 ;get dst red
neg.w d0
mulu.w d0,d4 ;% red
neg.w d0
add.l d3,d4 ;get 21 bits of red
clr.w d4 ;clear lsb's
lsr.l #6,d4 ;shift into place
add.w a1,d4 ;d4 has 0RGB
@short2 swap d5 ;get back dst
lsl.b #3,d5 ;rejoin green/blue
lsl.w #3,d5 ;rejoin red/green/blue
lsr.l #6,d5 ;right flush red/green/blue
move.l d5,a1 ;save for short circuit
swap d7 ;get back src
lsl.b #3,d7 ;rejoin green/blue
lsl.w #3,d7 ;rejoin red/green/blue
lsr.l #6,d7 ;right flush red/green/blue
move.l d7,d3 ;save for short circuit
@again
move.w d4,(a2) ;move to the destination
add.w a3,a2 ;bump bidirectionally for MCF
addq.w #2,d6 ;bump horizontally in pattern
and.w patHMask(a6),d6 ;force pattern offset to wrap
bne.s @patOK
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
lea bAvg16,a1 ;reload modecase
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
endif ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; MODE 50: Hilite DST (similar to invert)
; if dst = background, foreground color -> background
; if dst = foreground color, background -> foreground color
; do a long at a time when possible
;
;input
; D0 background pixel D1 mask D2 long count D3 ---
; D4 background long D5 foreground pixel D6 --- D7 pixel size
; A0 foreground long A1 --- A2 32-pixel size A3 ---
; A4 --- A5 destination pointer
;registers used:
; D3 scratch D6 scratch
;locals used:
; lastMask(A6) the right most long mask
bHilite
SUBQ #1,D2 ;more than 1 long?
BMI.S @lastMask ;if only 1 long, just do last mask & first mask
BSR.S hiliteMask ;mask off first part
SUBQ #1,D2 ;make inner loop DBRA count
BMI.S @fullMask ;if only left and right, skip middle part of loop
@nextLong
CMP.L (A5),D4 ;is the next long the same as the background?
BNE.S @oneAtATime
@midSwitch
MOVE.L A0,(A5)+ ;save a long of the hilite color
@midLoop
DBRA D2,@nextLong ;do the next one
@fullMask
MOVEQ #-1,D1 ;flush mask for end10
@lastMask
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
BSR.S hiliteMask
BRA NxtSrc
@oneAtATime
CMP.L (A5),A0
BEQ.S @switch
; first see if it is the same as the "other" color
MOVE.L A2,D6 ;initial long position count
@nextPixel
BFEXTU (A5){D6:D7},D3 ;get a pixel of the destination
CMP.l D3,D0 ;same as the background color?
BNE.S @tryNew
BFINS D5,(A5){D6:D7}
BRA.S @skipToNext
@tryNew
CMP.l D5,D3 ;same as new color?
BNE.S @skipToNext
BFINS D0,(A5){D6:D7}
@skipToNext
SUB D7,D6 ;advance to next pixel
BPL.S @nextPixel
ADDQ #4,A5
BRA.S @midLoop
@switch
BFEXTU D4{0:D7},D5 ;set up a pixel sized highlight color
EXG A0,D4 ;switch the highlight color w/ the background color
BFEXTU D4{0:D7},D0 ;and a pixel sized background color
BRA.S @midSwitch
hiliteMask
MOVE.L D4,D3 ;get a long of background
AND.L D1,D3 ;mask background to right mask
MOVE.L (A5),D6 ;get a long of dst
AND.L D1,D6 ;mask it as well
CMP.L D3,D6 ;the same?
BNE.S @oneAtATime ;no, must do left part 1 pixel at a time
MOVE.L A0,D3 ;get the hilite color
AND.L D1,D3 ;mask it
NOT.L D1 ;flip the mask
AND.L (A5),D1 ;get the data already there
OR.L D3,D1 ;combine the two together
MOVE.L D1,(A5)+ ;deposit the result and move on
RTS
@oneAtATime
; first see if it is the same as the "other" color
MOVE.L A2,D6 ;start at last pixel position
@nextPixel
BFEXTU D1{D6:D7},D3 ;a pixel of the mask
BEQ.S @skipBlank ;if nothing, skip it
BFEXTU (A5){D6:D7},D3 ;get a pixel of the destination
CMP.l D3,D0 ;same as the background color?
BNE.S @tryNew
BFINS D5,(A5){D6:D7}
BRA.S @skipToNext
@tryNew
CMP.l D5,D3 ;same as new color?
BNE.S @skipToNext
BFINS D0,(A5){D6:D7}
@skipToNext
@skipBlank
SUB D7,D6 ;advance to next pixel
BPL.S @nextPixel
ADDQ #4,A5
RTS
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; chosen if the dst is 32 bits/pixel
;
bHilite32
MOVEQ #-1,D0
LSR.L #8,D0 ;get low3byte mask in d0
MOVE D2,D3 ;save a copy in d3
@nxtScan
MOVE D3,D2 ;reset longCnt
@nextLong
MOVE.L D0,D1 ;copy pixel mask
AND.L (A5),D1 ;remove alpha byte
CMP.L D1,D4 ;is the next long the same as the background?
BNE.S @chkOther
@midSwitch
MOVE.L A0,(A5)+ ;save a long of the hilite color
DBRA D2,@nextLong ;do the next one
BRA.S @NxtDst
@chkOther
CMP.L D1,A0
BNE.S @next
EXG A0,D4 ;switch the highlight color w/ the background color
BRA.S @midSwitch
@next
ADDQ #4,A5
DBRA D2,@nextLong ;do the next one
@NxtDst
ADD A3,A5 ;BUMP DSTADDR TO NEXT ROW
SUBQ #1,HEIGHT(A6) ;DECREMENT ROWCOUNT
BNE.S @nxtScan ;LOOP FOR ALL SRCROWS
BRA.S GOHOME ;THEN QUIT
endif ;<14>
ALIGN Alignment
;-------------------------------------------------------
;
; chosen if the source was not a small pattern equal to black, so does not look for long
; optimizations
;
; fix from QDciPatchROM.a <sm 6/9/92>stb
; handle vertically aligned hilites (like that ever happens) and
; preserve a non-white background color through the entire blit (more common). <14SEP90 SMC>
bSloHilite
;
; if we are going backwards, align destination and mask <14AUG90 KON>
;
lea @RealbSloHilite1,a1 ; <13SEP90 SMC>
BFEXTU D4{0:D7},D4 ;set up pixel of the background color <13SEP90 SMC>
tst (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbSloHilite1 ; <14AUG90 KON>
sub.l (SP),D6 ;bump src right OR left by 1 pixel first time only <14AUG90 KON>
lea @RealbSloHilite,a1 ;remember correct entry point for remaining scans <14AUG90 KON>
@RealbSloHilite
sub.l (SP),D0 ;align destination and mask each scan line <14AUG90 KON>
@RealbSloHilite1
cmp.w #32,d7 ;1 pixel per long? <08Jan89 BAL>
beq.s @firstMask ;yes, d2 is unfortunately zero <08Jan89 BAL>
TST D2 ;is there only 1 long?
BGT.S @firstMask ;if not, use the first mask in D1
@forceLast
OR.B #3,doneMid(A6) ;note that the first part and mid part are done
@lastMask
MOVE pixInLong(A6),D2;loop once for each pixel in the long
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
@firstMask
@loopTop
AND patHMask(A6),D6 ;constrict to the source long if in a pattern mode
BFEXTU D1{D0:D7},D3 ;a pixel of the mask
BEQ.S @skip
BFEXTU (A4){D6:D7},D3 ;get a pixel of the source (zeros top word)
CMP.l D3,D4 ;same as the background color? <08Jan89 BAL>
BEQ.S @skip
BFEXTU (A5){D0:D7},D3 ;get a pixel of the destination
CMP.l D3,D4 ;same as the background color? <08Jan89 BAL>
BNE.S @tryNew
BFINS D5,(A5){D0:D7}
BRA.S @skip
@tryNew
CMP.l D5,D3 ;same as new color?
BNE.S @skip
BFINS D4,(A5){D0:D7}
@skip
ADD.L (SP),D6 ;BUMP SRCPTR LEFT OR RIGHT by 1 pixel
ADD.L (SP),D0 ;bump destination and mask
DBRA D2,@loopTop ;do it for all of the pixels on the line (or within the mask)
MOVEQ #-1,D1 ;flush mask
BSET #0,doneMid(A6) ;has the middle part already been done?
BNE.S @midDone ;if so, skip it
MOVE midCount(A6),D2 ;reset to mid count
BMI.S @forceLast ;if none, just do the last part
BRA.S @loopTop
@midDone
BSET #1,doneMid(A6) ;already done the last mask part too?
BEQ.S @lastMask ;if not, do it
BRA NxtNewSrc ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
;
; MODES 36, 44, 60: SRC less bg --> DST
; (SP) hbump for a pixel
; A2 32 correctly signed
; D0 first destination/mask pixel position
; D2 number of pixels in a long, or 0 if only 1 long
; D4 background long
; D5 one background pixel
; D6 first source pixel position
; D7 pixel size
; doneMid(A6) cleared (byte)
; lastMask(A6) equal to D5 standard
; midCount(A6) equal to # of pixels on line less mask longs
; pixInLong(A6) equal to # of pixels in a long
bTransparent
;
; if we are going backwards, align destination and mask <14AUG90 KON>
;
; rolled in SMC’s changes from QDciPatchROM.a <sm 6/9/92>stb
lea @RealbTransparent1,a1 ; <26SEP90 SMC> <10>
tst.w (sp) ;is bump amount negative? <14AUG90 KON>
bpl.s @RealbTransparent1; <14AUG90 KON>
@1: sub.l (SP),D6 ;bump src right OR left by 1 pixel first time only <14AUG90 KON>
lea @RealbTransparent,a1 ;remember correct entry point for remaining scans <14AUG90 KON>
@RealbTransparent
sub.l (SP),D0 ;align destination and mask each scan line <14AUG90 KON>
@RealbTransparent1
cmp.w #32,d7 ;1 pixel per long? <08Jan89 BAL>
beq.s @firstMask ;yes, d2 is unfortunately zero <08Jan89 BAL>
TST D2 ;is there only 1 long?
BGT.S @firstMask ;if not, use the first mask in D1
@forceLast
OR.B #3,doneMid(A6) ;note that the first part and mid part are done
@lastMask
MOVE pixInLong(A6),D2 ;loop once for each pixel in the long
AND.L lastMask(A6),D1 ;MASK:=MASK AND LASTMASK
@firstMask
@loopTop
AND patHMask(A6),D6 ;constrict to the source long if in a pattern mode
BFEXTU D1{D0:D7},D3 ;a pixel of the mask
BEQ.S @skip
BFEXTU (A4){D6:D7},D3 ;get a pixel of the source (zeros top word)
CMP.L D3,A3 ;same as a pixel of the background?
BEQ.S @skip
BFINS D3,(A5){D0:D7} ;move to the destination
@skip
ADD.L (SP),D6 ;BUMP SRCPTR LEFT OR RIGHT by 1 pixel
ADD.L (SP),D0 ;bump destination and mask
DBRA D2,@loopTop ;do it for all of the pixels on the line (or within the mask)
@loopEnd
ADDQ #1,D2 ;check to see if we ended on a natural long
BEQ.S @noPixelAlign ;if so, expect a -1 here
SUB.L (SP),D6 ;unbump source
SUB.L (SP),D0 ;unbump destination
BRA.S @loopEnd
@noPixelAlign
MOVEQ #-1,D1 ;flush mask
BSET #0,doneMid(A6) ;has the middle part already been done?
BNE.S @midDone ;if so, skip it
MOVE midCount(A6),D2 ;reset to mid count
BMI.S @forceLast ;if none, just do the last part
BRA.S @loopTop
@midDone
BSET #1,doneMid(A6) ;already done the last mask part too?
BEQ.S @lastMask ;if not, do it
BRA NxtNewSrc ;LOOP BACK FOR MORE
if blit32 then ;<14>
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = high byte clearing mask
; a1 = modeCase d1 =
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 = transColor (long)
; a4 = srcPtr/patPtr d4 = patHMask
; a5 = dstPtr d5 =
; a6 = locals d6 = pat offset
; a7^= patHBump d7 = src pixel
;-------------------------------------------------------
bTransparent32
MOVE.L BCOLOR(A6),D3 ;GET BKCOLOR (transColor if arithmetic mode)
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
move.l maskBC,d0 ;get high byte clearing mask
@loopTop
move.l (a0),d7 ;get a pixel of the source xrgb
add.w a3,a0 ;bump bidirectionally
and.l d0,d7 ;mask off high byte
cmp.l d3,d7 ;same as transparent color?
beq.s @skip
move.l d7,(a2) ;move to the destination
@skip add.w a3,a2 ;bump bidirectionally
addq.l #4,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
ALIGN Alignment
;-------------------------------------------------------
; a0 = tmpsrc d0 = high bit clearing mask
; a1 = modeCase d1 =
; a2 = tmpdst d2 = longCnt
; a3 = hBump d3 =
; a4 = srcPtr/patPtr d4 = patHMask
; a5 = dstPtr d5 = dest pixel
; a6 = locals d6 = pat offset
; a7^= patHBump d7 = src pixel
;-------------------------------------------------------
bTransparent16
MOVE.L BCOLOR(A6),D3 ;GET BKCOLOR (transColor if arithmetic mode)
move.l a4,a0 ;get working copy of srcptr
add.w d6,a0 ;index into pattern
move.l a5,a2 ;get working copy of dstptr
moveq #-1,d0 ;get high bit clearing mask
lsr.w #1,d0
@loopTop
move.w (a0),d7 ;get a pixel of the source xrgb
add.w a3,a0 ;bump bidirectionally
and.w d0,d7 ;mask off high bit
cmp.w d3,d7 ;same as transparent color?
beq.s @skip
move.w d7,(a2) ;move to the destination
@skip add.w a3,a2 ;bump bidirectionally
addq.l #2,d6 ;bump pattern offset
and.l d4,d6 ;constrict to the source long if in a pattern mode
bne.s @patOK ;don't need to reload pat ptr
move.l a4,a0 ;reload pat ptr
@patOK DBRA D2,@loopTop ;do it for all pixels on the line
BRA NxtNewSrc32 ;LOOP BACK FOR MORE
endif ;<14>
IF 0 THEN ;This is great code but it is only good if the dst left and right
;are both on byte boundaries. bFast0 has can now handle any left
;and right mask with comparable performance.
;******************************************************************************************
;
; Here's where Andy handles the case of MisAligned copyBits copy mode on a byte boundary.
;
; it's an 8 bit boundary, so handle it. Calculate the address adjustments in D7 from the
; bit offset in D6 and mask in D1. First decode the mask, casing out on the direction
; in A0
bFastMisaligned
MOVE.L D1,D3 ;get mask
MOVEQ #0,D1 ;assume minimum
MOVE.W D6,D0
ASR #3,D0 ;turn into byte number
MOVE.W A0,D5 ;remember direction
BPL.S @0 ;if positive, we're cool
NOT.L D3 ;invert the mask for other direction
@0
TST.L D3
BMI.S Got1stOffset ;if on, we're done
ADDQ #1,D1
LSL.L #8,D3
BMI.S Got1stOffset ;if on, we're done
ADDQ #1,D1
LSL.L #8,D3
BMI.S Got1stOffset ;if on, we're done
ADDQ #1,D1
; we got the mask offset in D1 and the byte offset in D0, so compute the bump factors
Got1stOffset
ADD.W D1,D0 ;compute byte offset
MOVE.W D0,D7 ;remember offset
SWAP D7
MOVE.W D1,D7 ;use mask offset for dest
MOVE.W D5,D0 ;remember bump direction
move.w destPixCnt(a6),d5 ;get pixel count
ext.l d5
move.w dstShift(a6),d1 ;get shift count
lsl.l d1,d5 ;convert pixels to bits
lsr.l #3,d5 ;convert bits to bytes
TST.W D0 ;test direction
BMI BlockMoveRight ;if right, go there and do it
BRA.S SL1Loop ;go to top of loop
;----------------------------------------------------------------------------
; done with this scan line, so bump to the next scan line and loop until done
SL1Done RTS ;go Home
SL1Next
SUB.W D7,A4 ;undo source offset
SWAP D7
SUB.W D7,A5 ;undo dest offset
MOVEQ #0,D0
MOVE.W LONGCNT(A6),D0 ;get long count
ADDQ #1,D0
ASL #2,D0 ;turn into byte count
ADD.L D0,A4
ADD.L D0,A5
ADD.W SRCBUMP(A6),A4 ;bump source ; <PB448 DBG>
ADD.W A3,A5 ;bump destination
SUBQ.W #1,HEIGHT(A6) ;decrement scan line count
BEQ.S SL1Done ;if no more, go home
; here's the top of the outer loop where we adjust the addresses by the offsets in D7
SL1Loop
ADD.W D7,A5
SWAP D7
ADD.W D7,A4
; get the byte count and blast the scan line
SL1Blast
MOVE.L D5,D0
MOVE.L A4,A0
MOVE.L A5,A1
; Special BlockMove subroutine optimized for this situation. The source is in A0
; and dest in A1, with byte count in D0. Note things are already pre-bumped for
; the MoveRight case. Note that we assume that no move is bigger than 32KBytes,
; to save a little speed (no scanline is that big!)
BlockMoveLeft
; for small moves, all this casing out is a losing battle, so dive in quickly
CMP.W #32,D0 ;is it really small?
BLT.S FinishUpLeft ;if so, finish up last few
; make sure the destination is always longword aligned by moving up to 3 bytes
MOVE.W A1,D1 ;get destination
AND.W #3,D1 ;low two bits only
BEQ.S MediumLeft ;if 0, skip
JMP LeftAlign(D1.W*4)
LeftAlign
NOP
NOP
MOVE.B (A0)+,(A1)+
SUBQ #1,D0
MOVE.B (A0)+,(A1)+
SUBQ #1,D0
MOVE.B (A0)+,(A1)+
SUBQ #1,D0
; we've got a medium-sized block to move (at least 32), so handle it with an unwound MOVE.L loop
MediumLeft
MOVE.W D0,D1
LSR.W #5,D1 ;divide by 32
BRA.S @2
@1
MOVE.L (A0)+,(A1)+ ;move 32 bytes
MOVE.L (A0)+,(A1)+
MOVE.L (A0)+,(A1)+
MOVE.L (A0)+,(A1)+
MOVE.L (A0)+,(A1)+
MOVE.L (A0)+,(A1)+
MOVE.L (A0)+,(A1)+
MOVE.L (A0)+,(A1)+
@2
DBRA D1,@1 ;move it
; now we have 31 or less bytes left to move
AND #31,D0
FinishUpLeft
MOVE.W LOffsetTable(D0.W*2),D0
JMP LastLeft(D0)
LastLeft
Left1F
MOVE.L (A0)+,(A1)+
Left1B
MOVE.L (A0)+,(A1)+
Left17
MOVE.L (A0)+,(A1)+
Left13
MOVE.L (A0)+,(A1)+
LeftF
MOVE.L (A0)+,(A1)+ ;move next 32 (64 total)
LeftB
MOVE.L (A0)+,(A1)+
Left7
MOVE.L (A0)+,(A1)+
Left3
MOVE.W (A0)+,(A1)+
Left1
MOVE.B (A0)+,(A1)+
Left0
DoneBlockMove
BRA.s SL1Next
Left1E
MOVE.L (A0)+,(A1)+
Left1A
MOVE.L (A0)+,(A1)+
Left16
MOVE.L (A0)+,(A1)+
Left12
MOVE.L (A0)+,(A1)+
LeftE
MOVE.L (A0)+,(A1)+
LeftA
MOVE.L (A0)+,(A1)+
Left6
MOVE.L (A0)+,(A1)+
Left2
MOVE.W (A0)+,(A1)+
BRA.s SL1Next
Left1C
MOVE.L (A0)+,(A1)+
Left18
MOVE.L (A0)+,(A1)+
Left14
MOVE.L (A0)+,(A1)+
Left10
MOVE.L (A0)+,(A1)+
LeftC
MOVE.L (A0)+,(A1)+
Left8
MOVE.L (A0)+,(A1)+
Left4
MOVE.L (A0)+,(A1)+
BRA.s SL1Next
Left1D
MOVE.L (A0)+,(A1)+
Left19
MOVE.L (A0)+,(A1)+
Left15
MOVE.L (A0)+,(A1)+
Left11
MOVE.L (A0)+,(A1)+
LeftD
MOVE.L (A0)+,(A1)+
Left9
MOVE.L (A0)+,(A1)+
Left5
MOVE.L (A0)+,(A1)+
MOVE.B (A0)+,(A1)+
BRA.s SL1Next
LOffsetTable
DC.W Left0-LastLeft
DC.W Left1-LastLeft
DC.W Left2-LastLeft
DC.W Left3-LastLeft
DC.W Left4-LastLeft
DC.W Left5-LastLeft
DC.W Left6-LastLeft
DC.W Left7-LastLeft
DC.W Left8-LastLeft
DC.W Left9-LastLeft
DC.W LeftA-LastLeft
DC.W LeftB-LastLeft
DC.W LeftC-LastLeft
DC.W LeftD-LastLeft
DC.W LeftE-LastLeft
DC.W LeftF-LastLeft
DC.W Left10-LastLeft
DC.W Left11-LastLeft
DC.W Left12-LastLeft
DC.W Left13-LastLeft
DC.W Left14-LastLeft
DC.W Left15-LastLeft
DC.W Left16-LastLeft
DC.W Left17-LastLeft
DC.W Left18-LastLeft
DC.W Left19-LastLeft
DC.W Left1A-LastLeft
DC.W Left1B-LastLeft
DC.W Left1C-LastLeft
DC.W Left1D-LastLeft
DC.W Left1E-LastLeft
DC.W Left1F-LastLeft
;----------------------------------------------------------------------------
; done with this scan line, so bump to the next scan line and loop until done
SR1Done RTS
SR1Next
SUB.W D7,A4 ;undo source offset
SWAP D7
SUB.W D7,A5 ;undo dest offset
MOVEQ #0,D0
MOVE.W LONGCNT(A6),D0 ;get long count
ADDQ #1,D0
ASL #2,D0 ;turn into byte count
NEG.L D0 ;negate it
ADD.L D0,A4
ADD.L D0,A5
ADD.W SRCBUMP(A6),A4 ;bump source ; <PB448 DBG>
ADD.W A3,A5 ;bump destination
SUBQ.W #1,HEIGHT(A6) ;decrement scan line count
BEQ.S SR1Done ;if no more, then go home
; here's the top of the outer loop where we adjust the addresses by the offsets in D7
BlockMoveRight
ADD.W D7,A5
SWAP D7
ADD.W D7,A4
; get the byte count and blast the scan line
SR1Blast
MOVE.L D5,D0 ;byte count stored in d5
MOVE.L A4,A0
MOVE.L A5,A1
; Handle the case of moving to the right
MoveRight
CMP.W #32,D0 ;is it really small?
BLT.S FinishUpRight ;if so, finish up last few
; make sure the destination is always longword aligned by moving up to 3 bytes
MOVE.W A1,D1 ;get destination
AND.W #3,D1 ;low two bits only
EOR.W #3,D1 ;flip sense
JMP RightAlign(D1.W*4)
RightAlign
MOVE.B -(A0),-(A1)
SUBQ #1,D0
MOVE.B -(A0),-(A1)
SUBQ #1,D0
MOVE.B -(A0),-(A1)
SUBQ #1,D0
; we've got a medium-sized block to move (at least 32), so handle it with an unwound MOVE.L loop
MediumRight
MOVE.W D0,D1
LSR.W #5,D1 ;divide by 32
BRA.S @2
@1
MOVE.L -(A0),-(A1) ;move 32 bytes
MOVE.L -(A0),-(A1)
MOVE.L -(A0),-(A1)
MOVE.L -(A0),-(A1)
MOVE.L -(A0),-(A1)
MOVE.L -(A0),-(A1)
MOVE.L -(A0),-(A1)
MOVE.L -(A0),-(A1)
@2
DBRA D1,@1 ;move the bulk of it
; now we have 31 or less bytes left to move
AND #31,D0
FinishUpRight
MOVE.W ROffsetTable(D0.W*2),D0
;+++ JMP LastRight(D0)
JMP (QGLastRight,PC,D0) ; this is a hack - this JMP must be immediately before the table
QGLastRight
Right1F
MOVE.L -(A0),-(A1)
Right1B
MOVE.L -(A0),-(A1)
Right17
MOVE.L -(A0),-(A1)
Right13
MOVE.L -(A0),-(A1)
RightF
MOVE.L -(A0),-(A1) ;move next 32 (64 total)
RightB
MOVE.L -(A0),-(A1)
Right7
MOVE.L -(A0),-(A1)
Right3
MOVE.W -(A0),-(A1)
Right1
MOVE.B -(A0),-(A1)
Right0
BRA.s SR1Next
Right1E
MOVE.L -(A0),-(A1)
Right1A
MOVE.L -(A0),-(A1)
Right16
MOVE.L -(A0),-(A1)
Right12
MOVE.L -(A0),-(A1)
RightE
MOVE.L -(A0),-(A1)
RightA
MOVE.L -(A0),-(A1)
Right6
MOVE.L -(A0),-(A1)
Right2
MOVE.W -(A0),-(A1)
BRA.s SR1Next
Right1C
MOVE.L -(A0),-(A1)
Right18
MOVE.L -(A0),-(A1)
Right14
MOVE.L -(A0),-(A1)
Right10
MOVE.L -(A0),-(A1)
RightC
MOVE.L -(A0),-(A1)
Right8
MOVE.L -(A0),-(A1)
Right4
MOVE.L -(A0),-(A1)
BRA.s SR1Next
Right1D
MOVE.L -(A0),-(A1)
Right19
MOVE.L -(A0),-(A1)
Right15
MOVE.L -(A0),-(A1)
Right11
MOVE.L -(A0),-(A1)
RightD
MOVE.L -(A0),-(A1)
Right9
MOVE.L -(A0),-(A1)
Right5
MOVE.L -(A0),-(A1)
MOVE.B -(A0),-(A1)
BRA.s SR1Next
ROffsetTable
DC.W Right0-QGLastRight
DC.W Right1-QGLastRight
DC.W Right2-QGLastRight
DC.W Right3-QGLastRight
DC.W Right4-QGLastRight
DC.W Right5-QGLastRight
DC.W Right6-QGLastRight
DC.W Right7-QGLastRight
DC.W Right8-QGLastRight
DC.W Right9-QGLastRight
DC.W RightA-QGLastRight
DC.W RightB-QGLastRight
DC.W RightC-QGLastRight
DC.W RightD-QGLastRight
DC.W RightE-QGLastRight
DC.W RightF-QGLastRight
DC.W Right10-QGLastRight
DC.W Right11-QGLastRight
DC.W Right12-QGLastRight
DC.W Right13-QGLastRight
DC.W Right14-QGLastRight
DC.W Right15-QGLastRight
DC.W Right16-QGLastRight
DC.W Right17-QGLastRight
DC.W Right18-QGLastRight
DC.W Right19-QGLastRight
DC.W Right1A-QGLastRight
DC.W Right1B-QGLastRight
DC.W Right1C-QGLastRight
DC.W Right1D-QGLastRight
DC.W Right1E-QGLastRight
DC.W Right1F-QGLastRight
ENDIF
DC.B '(c) Apple Computer Inc., 1983-1989'
ENDPROC
Reference in New Issue View Git Blame Copy Permalink