lib94/warriors/trap.red
2023-05-29 16:36:19 -04:00

28 lines
368 B
Text

;author benji
;name trap
org start
trap:
spl 1
jmp trap
start:
mov.i bomb, bomb + 8
add.ab #8, start
sub.ab #8, bomb
sne.ab #bomb - 8 - start, start
jmp core_clear
jmp start
bomb:
jmp trap - 8
core_clear:
mov background, background + 1
add.ab #1, core_clear
jnz.b core_clear, core_clear
mov.ab #background + 1 - core_clear, core_clear
jmp core_clear
background: