ZASM Example

WAIT WAITFRAME : Dynamic Tile Overlay FFC, overtile.txt
 PUSHR d0 : Push the <D0> arg and allow it.
 PUSHR d1 : Push the <D1> arg and allow it.
 PUSHR d2 : Push the <D2> arg and allow it.
 PUSHR d3 : Push the <D3> arg and allow it.
 PUSHR d4 : Push the <D4> arg and allow it.
 PUSHR d5 : Push the <D5> arg and allow it.
 PUSHR d6 : Push the <D6> arg and allow it.
 PUSHR d7 : Push the <D7> arg and allow it.
 SETV d2,0
 SETR d3,REFFFC : Set the ffc pointer, 'this'
 PUSHR d3
 SETR d4,SP
 SETR d6,d4
 ADDV d6,8
 LOADI d2,d6
 PUSHR d2
 SETR d6,d4
 ADDV d6,7
 LOADI d2,d6
 POP d3
 COMPAREV d2,0 : An if statement, checking against 0. (If a tile is assigned.)
 SETFALSE d2
 COMPAREV d3,0
 SETFALSE d3
 ADDR d2,d3
 COMPAREV d2,0.0002
 SETMORE d2 : if > 0
 COMPAREV d2,0
 GOTOTRUE 44 : if true, set.
 PUSHR d4
 SETV d2,42
 PUSHR d2
 SETR d6,d4
 ADDV d6,8
 LOADI d2,d6
 PUSHR d2
 SETR d6,d4
 ADDV d6,7
 LOADI d2,d6
 PUSHR d2
 GOTO OVERJUMP : jump to pops and do the overlay.
 POP d4
 SETV d2,0
 SETR d6,d4
 ADDV d6,6
 LOADI d2,d6
 PUSHR d2
 SETR d6,d4
 ADDV d6,5
 LOADI d2,d6
 POP d3
 COMPAREV d2,0
 SETFALSE d2
 COMPAREV d3,0
 SETFALSE d3
 ADDR d2,d3
 COMPAREV d2,0.0002
 SETMORE d2
 COMPAREV d2,0
 GOTOTRUE 75 : if the statement is true, jump to calcs and compares.
 PUSHR d4
 SETV d2,73
 PUSHR d2
 SETR d6,d4
 ADDV d6,6
 LOADI d2,d6
 PUSHR d2
 SETR d6,d4
 ADDV d6,5
 LOADI d2,d6
 PUSHR d2
 GOTO OVERJUMP
 POP d4
 SETV d2,0
 SETR d6,d4
 ADDV d6,4
 LOADI d2,d6
 PUSHR d2
 SETR d6,d4
 ADDV d6,3
 LOADI d2,d6
 POP d3
 COMPAREV d2,0
 SETFALSE d2
 COMPAREV d3,0
 SETFALSE d3
 ADDR d2,d3
 COMPAREV d2,0.0002
 SETMORE d2
 COMPAREV d2,0
 GOTOTRUE 106 : if this evaluates true, jump
 PUSHR d4
 SETV d2,104
 PUSHR d2
 SETR d6,d4
 ADDV d6,4
 LOADI d2,d6
 PUSHR d2
 SETR d6,d4
 ADDV d6,3
 LOADI d2,d6
 PUSHR d2
 GOTO OVERJUMP : jump to pops and do overlay.
 POP d4
 SETV d2,0
 SETR d6,d4
 ADDV d6,2
 LOADI d2,d6
 PUSHR d2
 SETR d6,d4
 ADDV d6,1
 LOADI d2,d6
 POP d3
 COMPAREV d2,0
 SETFALSE d2
 COMPAREV d3,0
 SETFALSE d3 : false flag
 ADDR d2,d3
 COMPAREV d2,0.0002
 SETMORE d2
 COMPAREV d2,0
 GOTOTRUE SETJ : jump only if this evaluates
 PUSHR d4
 SETV d2,135
 PUSHR d2
 SETR d6,d4
 ADDV d6,2
 LOADI d2,d6
 PUSHR d2
 SETR d6,d4
 ADDV d6,1
 LOADI d2,d6
 PUSHR d2
 GOTO OVERJUMP : jump to pops and overlay the tile.
 POP d4
SETJ SETV d2,0
 PUSHR d4
 SETV d2,141
 PUSHR d2
 GOTO POPQUIT
 POP d4
 SETV d3,0
 POP d3
 POP d3
 POP d3
 POP d3
 POP d3
 POP d3
 POP d3
 POP d3
 QUIT
POPQUIT POP d3
 QUIT
OVERJUMP POP d3
 POP d2
 OVERLAYTILERR d2,d3 : overlay the tile
 POP d3
 GOTOR d3 : for loop