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