jali/PDP10Sudoku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix overlong labels

Browse Source
This commit is contained in:
Alexander Noack
2025-08-05 22:23:09 +02:00
parent 7eb8cbf0a8
commit 20f71a754d
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/SUDOKU.MID
View File

@@ -50,17 +50,17 @@ GETJCL: PUSH P,A ;Save the register A.
;Subroutine to convert an ASCII string into SIXBIT. Takes a byte ;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. ;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. TOSIXB: PUSH P,D ;Store the contents of register D.
TOSIXBL:ILDB D,A ;Load the next character from A. TOSLP: ILDB D,A ;Load the next character from A.
JUMPE D,TOSIXEN ;Exit the loop, if charachter is null. JUMPE D,TOSEN ;Exit the loop, if charachter is null.
CAIN D,40 ;If the character is a whitespace, 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, CAIL D,140 ;If the character is > 96,
SUBI D,40 ;then cut it down, so it's in range. SUBI D,40 ;then cut it down, so it's in range.
SUBI D,40 ;Convert 32..95 to 0..63 SUBI D,40 ;Convert 32..95 to 0..63
IDBP D,B ;Deposit the character in the destination. IDPB D,B ;Deposit the character in the destination.
JRST TOSIXBL ;Repeat with next character. JRST TOSLP ;Repeat with next character.
TOSIXEN:POP P,D ;Restore the D register. TOSEN: POP P,D ;Restore the D register.
POPJ P, ;Return from function. POPJ P, ;Return from function.
;Subroutine to print a string of text on the output. ;Subroutine to print a string of text on the output.