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