summaryrefslogtreecommitdiff
path: root/programs
diff options
context:
space:
mode:
authormrb0nk500 <b0nk@b0nk.xyz>2021-05-08 12:43:15 -0400
committermrb0nk500 <b0nk@b0nk.xyz>2021-05-08 12:43:15 -0400
commit649b73c8c11193bd00fb438bda715711267921bd (patch)
tree65eefd2f9a02dd80e3d2c526df4e27032a472ceb /programs
parent64f75f275e98030f6718d395e2f4291ae5c3b126 (diff)
Start replacing the numbered duplicate local symbols
with deeper scope local symbols. This is done to make the code easier to read.
Diffstat (limited to 'programs')
-rw-r--r--programs/sub-suite/subeditor.s16
1 files changed, 8 insertions, 8 deletions
diff --git a/programs/sub-suite/subeditor.s b/programs/sub-suite/subeditor.s
index e44feb3..d527f95 100644
--- a/programs/sub-suite/subeditor.s
+++ b/programs/sub-suite/subeditor.s
@@ -294,33 +294,33 @@ cmd_cpy:
@loop:
ldb #0 ; Reset the B register.
lda.q (ptr), y ; Get eight bytes from the current line.
-@loop1:
+@@loop:
phy.w ; Save the screen index.
txy ; Get the command buffer index.
sta (ptr2), y ; Copy one byte from the screen buffer, to the command buffer.
inx ; Increment the command buffer index.
ply.w ; Get back the screen index.
cpx.w #CMDSIZE ; Are we at the end of the command buffer?
- bcs @end ; Yes, so we're done.
+ bcs @@end ; Yes, so we're done.
iny ; No, so increment the screen index.
inb ; Increment the byte count.
lsr #8 ; Shift in the next byte.
stb regg ; Save the byte count.
tab ; Save the string buffer.
and #$FF ; Is this byte of the buffer, a null terminator?
- beq @end1 ; Yes, so we're done.
+ beq @@end ; Yes, so we're done.
tba ; No so get back the string buffer.
ldb regg ; Get back the byte count.
cpb #7 ; Did we shift in eight bytes?
beq @loop ; Yes, so get eight more bytes.
- bra @loop1 ; No, so keep shifting in more bytes.
-@end:
+ bra @@loop ; No, so keep shifting in more bytes.
+@@end:
ldb #0 ; Reset B.
phy.w ; Save the screen index.
txy ; Get the command buffer index.
stb (ptr2), y ; Terminate the command buffer.
ply.w ; Get back the screen index.
-@end1:
+@end:
tab ; The B register is zero, so clear the Accumulator.
rts ; End of cmd_cpy.
@@ -1136,11 +1136,11 @@ isleft:
bra @end1 ; No, so we're done.
@decr:
lda scr_row ; Is the cursor at the top of the screen?
- beq @decr1 ; Yes, so don't move up a line.
+ beq @@decr ; Yes, so don't move up a line.
lda #1 ; No, so set the wrapped flag.
sta wrapped ;
dec scr_row ; Move the cursor up one line.
-@decr1:
+@@decr:
lda #maxcol ; Move the Cursor to the far right of the screen.
sta scr_col ;
lda #1 ; Tell the escape routine that we were successful.