diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/input.s | 47 |
1 files changed, 45 insertions, 2 deletions
diff --git a/test/input.s b/test/input.s index a2725f6..95b4077 100644 --- a/test/input.s +++ b/test/input.s @@ -12,10 +12,15 @@ string2: .byte "You typed, " end: .byte $0 -x: +scr_row: .word $0 -tmp: +scr_col: .word $0 +a: + .word $0 +b: + .word $0 + ; Input buffer. .org $2000 buffer: @@ -93,6 +98,10 @@ esc: cmp #$44 ; Did the user press the left arrow? beq left ; Yes, so move the cursor left. up: + lda scr_row + beq rset_a + dec scr_row + jsr update_pos lda #$1B sta $C001 lda #$5B @@ -101,6 +110,8 @@ up: sta $C001 jmp rset_a down: + inc scr_row + jsr update_pos lda #$1B sta $C001 lda #$5B @@ -109,6 +120,11 @@ down: sta $C001 jmp rset_a right: + lda scr_col + cmp #$50 + beq rset_a + inc scr_col + jsr update_pos lda #$1B sta $C001 lda #$5B @@ -117,6 +133,10 @@ right: sta $C001 jmp rset_a left: + lda scr_col + beq rset_a + dec scr_col + jsr update_pos lda #$1B sta $C001 lda #$5B @@ -125,8 +145,30 @@ left: sta $C001 jmp rset_a +update_pos: + lda #$1B + sta $C001 + lda #$5B + sta $C001 + lda scr_row + jsr uint_to_bcd + jmp spin + +uint_to_bcd: + div #$A + lsl #$4 + sta a + tba + sta b + lda a + ora b + rts + nl: + lda #$A sta $C001 + inc scr_row + jsr update_pos lda #$0 ; Replace newline with a null terminator. sta buffer, y ; Store said terminator into the input buffer. ldy.w #$0 ; Reset y, to print the result. @@ -189,3 +231,4 @@ viewmem viewmem ;q done + |