1 line
3.4 KiB
Plaintext
Executable File
1 line
3.4 KiB
Plaintext
Executable File
LOAD 'Macros.dump'
|
|
INCLUDE 'Pict.equ'
|
|
INCLUDE 'Driver.equ'
|
|
|
|
IMPORT Q_FlipHMap
|
|
IMPORT Q_FlipVMap
|
|
IMPORT Q_RotLMap
|
|
IMPORT Q_RotRMap
|
|
****************************************************************
|
|
* ;
|
|
* Picture flipping and rotating routines ;
|
|
* Jeff G. Erickson ;
|
|
* ;
|
|
****************************************************************
|
|
|
|
****************************************************************
|
|
Q_PictData PROC EXPORT
|
|
EXPORT Q_picterr
|
|
EXPORT Q_gotPScomm
|
|
EXPORT Q_op
|
|
EXPORT Q_center
|
|
EXPORT Q_addbytes
|
|
EXPORT Q_pictSCB
|
|
EXPORT Q_thePnSize
|
|
EXPORT Q_theMask
|
|
EXPORT Q_thePnLoc
|
|
EXPORT Q_theFGcolor
|
|
EXPORT Q_theBGcolor
|
|
EXPORT Q_theTxFont
|
|
EXPORT Q_theTxMode
|
|
EXPORT Q_theChExtra
|
|
EXPORT Q_theSpExtra
|
|
EXPORT Q_theFontFlags
|
|
EXPORT Q_theTxLoc
|
|
EXPORT Q_txtPort
|
|
EXPORT Q_txtPortLoc
|
|
EXPORT Q_txtSCB
|
|
EXPORT Q_txtImage
|
|
EXPORT Q_txtWidth
|
|
EXPORT Q_txtBounds
|
|
EXPORT Q_txtHandle
|
|
EXPORT Q_txtHsize
|
|
EXPORT Q_txtRect
|
|
EXPORT Q_pixSCB
|
|
EXPORT Q_pixbounds
|
|
EXPORT Q_srcpixsize
|
|
EXPORT Q_dstpixsize
|
|
EXPORT Q_PixelTable
|
|
EXPORT Q_printsquare
|
|
EXPORT Q_square
|
|
EXPORT Q_half
|
|
|
|
|
|
|
|
Q_picterr DS.B 2
|
|
Q_gotPScomm DC.W 0
|
|
*--------------------------------------------------------------*
|
|
* Picture stuff ;
|
|
*--------------------------------------------------------------*
|
|
Q_op DS.B 2 ; current picture opcode
|
|
Q_center DS.B 4 ; TWICE the Q_center of the picture
|
|
Q_addbytes DS.B 4 ; how many bytes to add to the pict?
|
|
|
|
Q_pictSCB DS.B 2 ; picture's original SCB
|
|
Q_thePnSize DS.B 4 ; current pen size w/i the D_New picture
|
|
Q_theMask DS.B 8 ; ... pen Q_Mask ...
|
|
Q_thePnLoc DS.B 4 ; current pen location w/i OLD picture
|
|
|
|
*--------------------------------------------------------------*
|
|
* Q_Text stuff ;
|
|
*--------------------------------------------------------------*
|
|
Q_theFGcolor DS.B 2 ; ... foreground color ...
|
|
Q_theBGcolor DS.B 2 ; ... background color ...
|
|
Q_theTxFont DS.B 4 ; ... font ID ...
|
|
Q_theTxMode DS.B 2 ; ... Q_Text mode ...
|
|
Q_theChExtra DS.B 4 ; ... charExtra ...
|
|
Q_theSpExtra DS.B 4 ; ... spaceExtra ...
|
|
Q_theFontFlags DS.B 2 ; ... font flags ...
|
|
Q_theTxLoc DS.B 4 ; ... the Q_Text location ...
|
|
|
|
Q_txtPort DS.B 170 ; Q_Text port
|
|
Q_txtPortLoc ; ; Q_Text port loc
|
|
Q_txtSCB DS.B 2 ; SCB
|
|
Q_txtImage DS.B 4 ; pointer to Q_Text image
|
|
Q_txtWidth DS.B 2 ; byte width of Q_Text image (mult. of 8)
|
|
Q_txtBounds DS.B 8 ; bounds of Q_Text image (adj'd to width)
|
|
|
|
Q_txtHandle DS.B 4 ; handle on Q_Text image (ptr to Q_txtImage)
|
|
Q_txtHsize DS.B 4 ; size of Q_txtHandle
|
|
Q_txtRect DS.B 8 ; REAL bounds of Q_Text image
|
|
|
|
*--------------------------------------------------------------*
|
|
* Pixelmap stuff ;
|
|
*--------------------------------------------------------------*
|
|
Q_pixSCB DS.B 2 ; pixmap's scan-Q_Line control byte
|
|
Q_pixbounds DS.B 4 ; bottom right of (old) bounds
|
|
Q_srcpixsize DS.B 4 ; size (bytes) of source pixmap
|
|
Q_dstpixsize DS.B 4 ; size (bytes) of detination pixmap
|
|
|
|
Q_PixelTable ; ; routines for mangling pixmaps
|
|
DC.L Q_FlipHMap
|
|
DC.L Q_FlipVMap
|
|
DC.L Q_RotRMap
|
|
DC.L Q_RotLMap
|
|
|
|
*--------------------------------------------------------------*
|
|
* Q_Region stuff ;
|
|
*--------------------------------------------------------------*
|
|
Q_printsquare DC.W 0,0,128,256
|
|
Q_square DC.W 0,0,128,128
|
|
Q_half DC.W 0,0,128,64
|
|
|
|
ENDP
|
|
END
|
|
|