.stack 256

MOV $1 #115
MOV $2 #224

:draw_line
MOV $1 #115
PUSHB $1 ; Push color value
PUSHI $2 ; Push Y
PUSHI $2 ; Push X
JMP :draw_point
:draw_point_ret
SUB $2 #1
JGT $2 :draw_line
UVR
JMP :end

:draw_point
POPI $1 ; Pop X
POPI $0 ; Pop y
MUL $0 #256
ADD $0 $1
POPB $1  ; Pop color
WVR $1 $0
JMP :draw_point_ret

:end