Remove stack saves of register F
This commit is contained in:
@@ -88,15 +88,13 @@ TOSEN: POP P,D ;Restore the D register.
|
||||
;Subroutine to print a string of text on the output.
|
||||
;Clobbers A.
|
||||
OUTSTR: PUSH P,B ;Save register B.
|
||||
PUSH P,F ;Save register F.
|
||||
OUT: ILDB B,A ;Load the next byte from A.
|
||||
JUMPE B,OUTEX ;Exit the routine, if all bytes are done.
|
||||
TLNN A,000100 ;Test, if the SIXBIT flag is set.
|
||||
ADDI B,40 ;Convert SIXBIT to ASCII.
|
||||
.IOT CHTTYO,B ;Print a character.
|
||||
JRST OUT ;Jump back to print the next character.
|
||||
OUTEX: POP P,F ;Restore D to its original value.
|
||||
POP P,B ;Restore B to its original value.
|
||||
OUTEX: POP P,B ;Restore B to its original value.
|
||||
POPJ P, ;Return from the output routine.
|
||||
|
||||
;Subroutine to print an entire line of text, including a line break.
|
||||
|
||||
Reference in New Issue
Block a user