Start replacing the numbered duplicate local symbols

with deeper scope local symbols.

This is done to make the code easier to read.

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.