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.
|
;Subroutine to print a string of text on the output.
|
||||||
;Clobbers A.
|
;Clobbers A.
|
||||||
OUTSTR: PUSH P,B ;Save register B.
|
OUTSTR: PUSH P,B ;Save register B.
|
||||||
PUSH P,F ;Save register F.
|
|
||||||
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.
|
||||||
TLNN A,000100 ;Test, if the SIXBIT flag is set.
|
TLNN A,000100 ;Test, if the SIXBIT flag is set.
|
||||||
ADDI B,40 ;Convert SIXBIT to ASCII.
|
ADDI B,40 ;Convert SIXBIT to ASCII.
|
||||||
.IOT CHTTYO,B ;Print a character.
|
.IOT CHTTYO,B ;Print a character.
|
||||||
JRST OUT ;Jump back to print the next character.
|
JRST OUT ;Jump back to print the next character.
|
||||||
OUTEX: POP P,F ;Restore D to its original value.
|
OUTEX: POP P,B ;Restore B to its original value.
|
||||||
POP P,B ;Restore B to its original value.
|
|
||||||
POPJ P, ;Return from the output routine.
|
POPJ P, ;Return from the output routine.
|
||||||
|
|
||||||
;Subroutine to print an entire line of text, including a line break.
|
;Subroutine to print an entire line of text, including a line break.
|
||||||
|
|||||||
Reference in New Issue
Block a user