mirror of https://git.sr.ht/~kikoodx/bcasm
update example: n.asm
This commit is contained in:
parent
b4ecada5a6
commit
eda49eafa7
|
@ -2,44 +2,64 @@
|
|||
MOV 11 X
|
||||
MOV 4 Y
|
||||
;main loop
|
||||
LBL L
|
||||
LBL M
|
||||
; process input
|
||||
MOV GTK ANS
|
||||
JNZ L
|
||||
JEZ M
|
||||
; right?
|
||||
SUB 27
|
||||
JNZ R
|
||||
JEZ R
|
||||
; up?
|
||||
SUB 1
|
||||
JNZ U
|
||||
JEZ U
|
||||
; down?
|
||||
SUB 10
|
||||
JNZ D
|
||||
SUB 9
|
||||
JEZ D
|
||||
; left?
|
||||
SUB 1
|
||||
JEZ L
|
||||
; quit?
|
||||
SUB 9
|
||||
JEZ Q
|
||||
; nop
|
||||
JMP M
|
||||
; left
|
||||
LBL L
|
||||
MOV X ANS
|
||||
SUB 1
|
||||
MOV ANS X
|
||||
JNZ E
|
||||
MOV 21 X
|
||||
JMP E
|
||||
; right
|
||||
LBL R
|
||||
MOV X ANS
|
||||
ADD 1
|
||||
MOV ANS X
|
||||
SUB 22
|
||||
JNZ E
|
||||
MOV 1 X
|
||||
JMP E
|
||||
; up
|
||||
LBL U
|
||||
MOV Y ANS
|
||||
SUB 1
|
||||
MOV ANS Y
|
||||
JNZ E
|
||||
MOV 7 Y
|
||||
JMP E
|
||||
; down
|
||||
LBL D
|
||||
MOV Y ANS
|
||||
ADD 1
|
||||
MOV ANS Y
|
||||
SUB 7
|
||||
JNZ E
|
||||
MOV 1 Y
|
||||
; draw
|
||||
LBL E
|
||||
MOV 0 ANS
|
||||
CLS
|
||||
LOC
|
||||
JMP L
|
||||
JMP M
|
||||
LBL Q
|
||||
|
|
Loading…
Reference in New Issue