mirror of https://git.sr.ht/~kikoodx/bcasm
46 lines
370 B
NASM
46 lines
370 B
NASM
|
;nasm
|
||
|
MOV 11 X
|
||
|
MOV 4 Y
|
||
|
;main loop
|
||
|
LBL L
|
||
|
; process input
|
||
|
MOV GTK ANS
|
||
|
JNZ L
|
||
|
; right?
|
||
|
SUB 27
|
||
|
JNZ R
|
||
|
; up?
|
||
|
SUB 1
|
||
|
JNZ U
|
||
|
; down?
|
||
|
SUB 10
|
||
|
JNZ D
|
||
|
; left?
|
||
|
SUB 1
|
||
|
JEZ L
|
||
|
; left
|
||
|
MOV X ANS
|
||
|
SUB 1
|
||
|
MOV ANS X
|
||
|
JMP E
|
||
|
; right
|
||
|
MOV X ANS
|
||
|
ADD 1
|
||
|
MOV ANS X
|
||
|
JMP E
|
||
|
; up
|
||
|
MOV Y ANS
|
||
|
SUB 1
|
||
|
MOV ANS Y
|
||
|
JMP E
|
||
|
; down
|
||
|
MOV Y ANS
|
||
|
ADD 1
|
||
|
MOV ANS Y
|
||
|
; draw
|
||
|
LBL E
|
||
|
MOV 0 ANS
|
||
|
CLS
|
||
|
LOC
|
||
|
JMP L
|