Remove all references to BPTR
This commit is contained in:
@@ -100,7 +100,6 @@ TOSEN: POP P,D ;Restore the D register.
|
||||
;Clobbers A.
|
||||
OUTSTR: PUSH P,B ;Save register B.
|
||||
PUSH P,D ;Save register D.
|
||||
HRLI A,BPTR ;Ensure, A is a byte pointer.
|
||||
OUT: ILDB B,A ;Load the next byte from A.
|
||||
JUMPE B,OUTEX ;Exit the routine, if all bytes are done.
|
||||
MOVE D,PFLAGS ;Load the print flags.
|
||||
@@ -128,7 +127,7 @@ PFIELD: PUSH P,A ;Save the A register.
|
||||
MOVE X,[440400,,FIELD] ;Store a bytepointer in X.
|
||||
PFIELN: .IOT CHTTYO,[^M] ;Print a carriage return.
|
||||
.IOT CHTTYO,[^J] ;Print a new line.
|
||||
MOVE A,[BPTR,,HLINE] ;Print a horizontal line.
|
||||
MOVE A,[440700,,HLINE] ;Print a horizontal line.
|
||||
POPJ P,PUTLN
|
||||
MOVEI Y,011 ;Load the index register with 9.
|
||||
MOVEI B,174 ;Print a '|' symbol.
|
||||
|
||||
Reference in New Issue
Block a user