iigs-game-engine/macros/CORE.MACS.S

****************************************
* Basic Error Macro                    *
****************************************
_Err            mac
                bcc   NoErr
                do    ]0              ; (DO if true) Mu
                jsr   PgmDeath        ;  this is conditionally compiled if
                str   ]1              ;  we pass in an error statement
                else                  ; (ELSE) 
                jmp   PgmDeath0       ;  we just call the simpler error handler
                fin                   ; (FIN) 
NoErr           eom

;
; Dereference a handle that is on the top of the stack
;
_Deref          MAC
                phb                   ; save caller's data bank register
                pha                   ; push high word of handle on stack
                plb                   ; sets B to the bank byte of the pointer
                lda   |$0002,x        ; load the high word of the master pointer
                pha                   ; and save it on the stack
                lda   |$0000,x        ; load the low word of the master pointer
                tax                   ; and return it in X
                pla                   ; restore the high word in A
                plb                   ; pull the handle's high word high byte off the
                                      ; stack
                plb                   ; restore the caller's data bank register    
                <<<


; Call _NewHandle, but track the allocation
_TrackHandle   mac
               _NewHandle
               bcs       err
               ldx       NumHandles
               lda       1,s
               sta       Handles,x
               lda       3,s
               sta       Handles+2,x
               txa
               adc       #4
               sta       NumHandles
err
               <<<
               
_Mul128         mac
                asl
                asl
                asl
                asl
                asl
                asl
                asl
                <<<
; Possible optimization (assumes accumulator is <512). 8 cycles/5 bytes vs 14 cycles/7 bytes
;                cmp  #$0100
;                xba
;                ror

_Div16          mac
                lsr
                lsr
                lsr
                lsr
                <<<

_R0W0           mac                   ; Read Bank 0 / Write Bank 0
                ldal  STATE_REG
                and   #$FFCF
                stal  STATE_REG
                <<<

_R0W1           mac                   ; Read Bank 0 / Write Bank 1
                ldal  STATE_REG
                ora   #$0010
                stal  STATE_REG
                <<<

_R1W1           mac                   ; Read Bank 0 / Write Bank 1
                ldal  STATE_REG
                ora   #$0030
                stal  STATE_REG
                <<<

_PushReg        mac                   ; Used to save/restore registers when calling subroutines.
                pha
                phx
                phy
                <<<

_PullReg        mac
                ply
                plx
                pla
                <<<

_PushReg2       mac                   ; Variation to also save the P-register to preserve m/x
                pha
                phx
                phy
                php
                <<<

_PullReg2       mac
                plp
                ply
                plx
                pla
                <<<

jne             mac
                beq   *+5
                jmp   ]1
                <<<

jeq             mac
                bne   *+5
                jmp   ]1
                <<<

jcc             mac
                bcs   *+5
                jmp   ]1
                <<<

jcs             mac
                bcc   *+5
                jmp   ]1
                <<<

min             mac
                cmp   ]1
                bcc   mout
                lda   ]1
mout            <<<

; Increment a value mod some number.  
incmod          mac
                inc
                cmp   ]1
                bcc   out
                lda   #0
out             <<<

decmod          mac
                dec
                bpl   out
                lda   ]1
                dec
out             <<<

adcmod          mac
                adc   ]1
                cmp   ]2
                bcc   out
                sbc   ]2
out             <<<

sbcmod          mac
                sbc   ]1
                bpl   out
                clc
                adc   ]2
out             <<<

asr16           mac
                cmp   #$8000
                ror
                <<<

asr8            mac
                cmp   #$80
                ror
                <<<

; Macro to define script steps
ScriptStep      MAC
                IF    #=]5
                dw    {]1+{{]5&#$000F}<<8}},]2,]3,]4
                ELSE
                dw    ]1,]2,]3,]4
                FIN
                <<<
Consolidate all of the project macros into one folder; merlin32 only takes one macro path on the command line 2021-08-25 14:34:26 +00:00			`****************************************`
			`* Basic Error Macro *`
			`****************************************`
			`_Err mac`
			`bcc NoErr`
Shadow based rendering working in demo-5 2023-02-27 21:30:56 +00:00			`do ]0 ; (DO if true) Mu`
Consolidate all of the project macros into one folder; merlin32 only takes one macro path on the command line 2021-08-25 14:34:26 +00:00			`jsr PgmDeath ; this is conditionally compiled if`
			`str ]1 ; we pass in an error statement`
			`else ; (ELSE)`
			`jmp PgmDeath0 ; we just call the simpler error handler`
			`fin ; (FIN)`
			`NoErr eom`

More play-around 2020-08-23 05:25:39 +00:00			`;`
			`; Dereference a handle that is on the top of the stack`
			`;`
First draft of masked tile support Need to have the called provide a copy of the base line address to the masked drawing code and need to verify that the JTable entries are ordered the same way as the byte offset so the same register can be used to load the JMP addresses and patch in the LDA (DP),y instructions. 2021-08-13 15:05:28 +00:00			`_Deref MAC`
			`phb ; save caller's data bank register`
			`pha ; push high word of handle on stack`
			`plb ; sets B to the bank byte of the pointer`
			`lda \|$0002,x ; load the high word of the master pointer`
			`pha ; and save it on the stack`
			`lda \|$0000,x ; load the low word of the master pointer`
			`tax ; and return it in X`
			`pla ; restore the high word in A`
			`plb ; pull the handle's high word high byte off the`
			`; stack`
			`plb ; restore the caller's data bank register`
			`<<<`

Handle memory cleanup and interrup setup more robustly 2022-07-27 05:19:58 +00:00
			`; Call _NewHandle, but track the allocation`
			`_TrackHandle mac`
			`_NewHandle`
			`bcs err`
			`ldx NumHandles`
			`lda 1,s`
			`sta Handles,x`
			`lda 3,s`
			`sta Handles+2,x`
			`txa`
			`adc #4`
			`sta NumHandles`
			`err`
			`<<<`

Stub in more tile rendering functions; does not crash but renders incorrectly 2021-08-13 16:38:06 +00:00			`_Mul128 mac`
			`asl`
			`asl`
			`asl`
			`asl`
			`asl`
			`asl`
			`asl`
			`<<<`
Switch to using exported Tiled project assets 2021-08-15 01:58:37 +00:00			`; Possible optimization (assumes accumulator is <512). 8 cycles/5 bytes vs 14 cycles/7 bytes`
			`; cmp #$0100`
			`; xba`
			`; ror`
First draft of masked tile support Need to have the called provide a copy of the base line address to the masked drawing code and need to verify that the JTable entries are ordered the same way as the byte offset so the same register can be used to load the JMP addresses and patch in the LDA (DP),y instructions. 2021-08-13 15:05:28 +00:00
			`_Div16 mac`
			`lsr`
			`lsr`
			`lsr`
			`lsr`
			`<<<`

			`_R0W0 mac ; Read Bank 0 / Write Bank 0`
			`ldal STATE_REG`
			`and #$FFCF`
			`stal STATE_REG`
			`<<<`

			`_R0W1 mac ; Read Bank 0 / Write Bank 1`
			`ldal STATE_REG`
			`ora #$0010`
			`stal STATE_REG`
			`<<<`

			`_R1W1 mac ; Read Bank 0 / Write Bank 1`
			`ldal STATE_REG`
			`ora #$0030`
			`stal STATE_REG`
			`<<<`

			`_PushReg mac ; Used to save/restore registers when calling subroutines.`
			`pha`
			`phx`
			`phy`
			`<<<`

			`_PullReg mac`
			`ply`
			`plx`
			`pla`
			`<<<`

			`_PushReg2 mac ; Variation to also save the P-register to preserve m/x`
			`pha`
			`phx`
			`phy`
			`php`
			`<<<`

			`_PullReg2 mac`
			`plp`
			`ply`
			`plx`
			`pla`
			`<<<`

			`jne mac`
			`beq *+5`
			`jmp ]1`
			`<<<`

			`jeq mac`
			`bne *+5`
			`jmp ]1`
			`<<<`

			`jcc mac`
			`bcs *+5`
			`jmp ]1`
			`<<<`

			`jcs mac`
			`bcc *+5`
			`jmp ]1`
			`<<<`

			`min mac`
			`cmp ]1`
			`bcc mout`
			`lda ]1`
			`mout <<<`

Initial shell of generalize sprite size support; just for marking the dirty tiles 2021-11-11 23:06:38 +00:00			`; Increment a value mod some number.`
			`incmod mac`
			`inc`
			`cmp ]1`
			`bcc out`
			`lda #0`
			`out <<<`

			`decmod mac`
			`dec`
			`bpl out`
			`lda ]1`
			`dec`
			`out <<<`

			`adcmod mac`
			`adc ]1`
			`cmp ]2`
			`bcc out`
			`sbc ]2`
			`out <<<`

			`sbcmod mac`
			`sbc ]1`
			`bpl out`
			`clc`
			`adc ]2`
			`out <<<`

Small improvements to sprite prototype to fix dirty tiles getting out of sync 2021-10-31 00:24:23 +00:00			`asr16 mac`
			`cmp #$8000`
			`ror`
			`<<<`

			`asr8 mac`
			`cmp #$80`
			`ror`
			`<<<`

Initial Tiled tile animation export support * Tiled tile animations read from TSX files * Hooks for initialization generated by the tiled export tool * Animated tiles implements with dynamic tiles backed by 2KB of direct page space in Bank 00 * Animation resolution limited to 1/60th incremenents TODO * Fix crasher in the _DoScriptSequ timer callback * Fix single-line of garbage on the top line of the dynamic tiles 2021-10-06 12:10:09 +00:00			`; Macro to define script steps`
			`ScriptStep MAC`
			`IF #=]5`
			`dw {]1+{{]5&#$000F}<<8}},]2,]3,]4`
			`ELSE`
			`dw ]1,]2,]3,]4`
			`FIN`
			`<<<`