From 20f71a754d1247953fdea6236eb2e64379fb774b Mon Sep 17 00:00:00 2001 From: Jali Date: Tue, 5 Aug 2025 22:23:09 +0200 Subject: [PATCH] fix overlong labels --- src/SUDOKU.MID | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/SUDOKU.MID b/src/SUDOKU.MID index f3f41da..9d604ed 100644 --- a/src/SUDOKU.MID +++ b/src/SUDOKU.MID @@ -50,17 +50,17 @@ GETJCL: PUSH P,A ;Save the register A. ;Subroutine to convert an ASCII string into SIXBIT. Takes a byte ;pointer in A and B, where A is the source and B is the destination. -TOSIXBT:PUSH P,D ;Store the contents of register D. -TOSIXBL:ILDB D,A ;Load the next character from A. - JUMPE D,TOSIXEN ;Exit the loop, if charachter is null. +TOSIXB: PUSH P,D ;Store the contents of register D. +TOSLP: ILDB D,A ;Load the next character from A. + JUMPE D,TOSEN ;Exit the loop, if charachter is null. CAIN D,40 ;If the character is a whitespace, - JUMPA TOSIXEN ;exit the loop. + JUMPA TOSEN ;exit the loop. CAIL D,140 ;If the character is > 96, SUBI D,40 ;then cut it down, so it's in range. SUBI D,40 ;Convert 32..95 to 0..63 - IDBP D,B ;Deposit the character in the destination. - JRST TOSIXBL ;Repeat with next character. -TOSIXEN:POP P,D ;Restore the D register. + IDPB D,B ;Deposit the character in the destination. + JRST TOSLP ;Repeat with next character. +TOSEN: POP P,D ;Restore the D register. POPJ P, ;Return from function. ;Subroutine to print a string of text on the output.