From 649b73c8c11193bd00fb438bda715711267921bd Mon Sep 17 00:00:00 2001 From: mrb0nk500 Date: Sat, 8 May 2021 12:43:15 -0400 Subject: Start replacing the numbered duplicate local symbols with deeper scope local symbols. This is done to make the code easier to read. --- programs/sub-suite/subeditor.s | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'programs/sub-suite') 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. -- cgit v1.2.3-13-gbd6f