summaryrefslogtreecommitdiff
path: root/programs/sub-suite
diff options
context:
space:
mode:
Diffstat (limited to 'programs/sub-suite')
-rw-r--r--programs/sub-suite/subeditor.s5
1 files changed, 3 insertions, 2 deletions
diff --git a/programs/sub-suite/subeditor.s b/programs/sub-suite/subeditor.s
index fb3f3c4..476f1cf 100644
--- a/programs/sub-suite/subeditor.s
+++ b/programs/sub-suite/subeditor.s
@@ -957,6 +957,8 @@ update_pos:
lda #'[' ; Print '['
sta scr ; to the screen, and start the escape sequence.
jsr getrow ; Start printing the row number to the screen.
+ lda #';' ; Print ';'
+ sta scr ; to the screen.
jsr getcol ; Start printing the column number to the screen.
lda #'H' ; Print 'H'
sta scr ; to the screen.
@@ -967,10 +969,9 @@ getrow:
lda scr_row ; Get the cursor's y coordinate.
bra bcd ; Convert it to BCD.
getcol:
- lda #';' ; Print ';'
- sta scr ; to the screen.
lda scr_col ; Get the cursor's x coordinate.
bcd:
+ inc ; Add one to A.
div #10 ; Divide A by 10.
ora #'0' ; Convert it to ascii, and
sta scr ; print to the screen.