Remove stack saves of register F

This commit is contained in:
2025-12-18 18:42:50 +01:00
parent 14b2adad93
commit 6f3a68d4a0

View File

@@ -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.