Fix typos

This commit is contained in:
2025-08-03 14:02:08 +02:00
parent e473c545a4
commit 123a73966f

View File

@@ -11,7 +11,7 @@ Y=5 ; loops etc.
;Set up the stack ;Set up the stack
P=17 P=17
PDLLEN==20 ;Size of the stack. PDLLEN==20 ;Size of the stack.
PDL BLOCK PDLLEN ;Reserve the stack memory. PDL: BLOCK PDLLEN ;Reserve the stack memory.
BPTR==440700 ;Define a byte pointer. BPTR==440700 ;Define a byte pointer.
CHTTYO==1 ;Define a channel for TTY output. CHTTYO==1 ;Define a channel for TTY output.
@@ -21,7 +21,7 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
.LOSE %LSFIL ;Gobble up error messages. .LOSE %LSFIL ;Gobble up error messages.
MOVE A,[BPTR,,HELLO] ;Load A with a byte pointer to HELLO. MOVE A,[BPTR,,HELLO] ;Load A with a byte pointer to HELLO.
JRST DONE ;Jump to the end of the program. JRST DONE ;Jump to the end of the program.
OUTSTR: HRLI A,BTPR ;Ensure, A is a byte pointer. OUTSTR: HRLI A,BPTR ;Ensure, A is a byte pointer.
OUT: ILDB B,A ;Load the next byte from A. OUT: ILDB B,A ;Load the next byte from A.
JUMPE B,OUTEX ;Exit the routine, if all bytes are done. JUMPE B,OUTEX ;Exit the routine, if all bytes are done.
.IOT CHTTYO,B ;Print a character. .IOT CHTTYO,B ;Print a character.