Fix typos
This commit is contained in:
@@ -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.
|
||||||
|
|||||||
Reference in New Issue
Block a user