programs/pos-check.s


1
2
3
4
5
6
7
8
9
10
11
12


cmd_clr:
	lda scr_row
	cmp #23
	beq cmd_vwrap
	inc scr_row
	jmp cmd_clr_end
cmd_vwrap:
	jsl rset_row
cmd_clr_end:
	jsl update_pos
	lda #0
	rtl