117 lines
2.3 KiB
ArmAsm
117 lines
2.3 KiB
ArmAsm
**************************************************
|
|
* Macros for use with GRAF. *
|
|
**************************************************
|
|
|
|
**************************************************
|
|
* Externals *
|
|
**************************************************
|
|
|
|
SetDBR MAC
|
|
SEP #$30
|
|
LDA ]1
|
|
PHA ;data bank = $E1
|
|
PLB
|
|
REP #$30
|
|
<<<
|
|
|
|
M_ADD MAC
|
|
CLC
|
|
ADC ]1
|
|
<<<
|
|
|
|
M_DrawRectangle MAC
|
|
LDA ]1
|
|
STA rX1
|
|
LDA ]2
|
|
STA rY1
|
|
LDA ]3
|
|
STA rX2
|
|
LDA ]4
|
|
STA rY2
|
|
JSR DrawRectangle
|
|
<<<
|
|
|
|
M_DrawGlyph MAC
|
|
LDA ]1
|
|
AND #$00FF
|
|
PHA
|
|
LDA ]2
|
|
STA dest_X
|
|
LDA ]3
|
|
STA dest_Y
|
|
JSR DrawGlyph
|
|
PLA ;pull our value off the stack
|
|
<<<
|
|
|
|
M_DrawString MAC
|
|
LDA ]1
|
|
PHA
|
|
LDA ]2
|
|
STA dest_X
|
|
LDA ]3
|
|
STA dest_Y
|
|
JSR DrawString
|
|
PLA ;pull our value off the stack
|
|
<<<
|
|
|
|
M_Bresenham MAC
|
|
LDA ]1
|
|
STA lnX1
|
|
LDA ]2
|
|
STA lnY1
|
|
LDA ]3
|
|
STA lnX2
|
|
LDA ]4
|
|
STA lnY2
|
|
JSR Bresenham
|
|
<<<
|
|
|
|
M_DrawShape MAC
|
|
LDA ]1 ; pointer to shape
|
|
PHA
|
|
LDA ]2 ; origin X
|
|
PHA
|
|
LDA ]3 ; origin Y
|
|
PHA
|
|
JSR DrawShape
|
|
<<<
|
|
|
|
M_DrawShape2 MAC
|
|
LDA ]1 ; pointer to shape
|
|
PHA
|
|
LDA ]2 ; origin X
|
|
PHA
|
|
LDA ]3 ; origin Y
|
|
PHA
|
|
JSR DrawShape2
|
|
<<<
|
|
|
|
M_RotateShape MAC
|
|
LDA ]1 ; pointer to shape
|
|
PHA
|
|
LDA ]2 ; pointer to fixed radians
|
|
PHA
|
|
JSR RotateShape
|
|
PLA
|
|
PLA
|
|
RTS
|
|
<<<
|
|
|
|
M_MoveLongFromPtr MAC
|
|
LDY #0
|
|
LDA ]1,Y
|
|
STA ]2
|
|
LDY #2
|
|
LDA ]1,Y
|
|
STA ]2+2
|
|
<<<
|
|
|
|
M_MoveLongToPtr MAC
|
|
LDY #0
|
|
LDA ]1
|
|
STA ]2,Y
|
|
LDY #2
|
|
LDA ]1+2
|
|
STA ]2,Y
|
|
<<<
|