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
|