Remove TOSIXB

This commit is contained in:
2025-11-18 22:28:01 +01:00
parent a4b20bb390
commit fb52341375

View File

@@ -52,6 +52,7 @@ GETJCL: PUSH P,A ;Save the register A.
MOVE A,[JCL,,JCL+30]
BLT A,JCL+30
.BREAK 12,[..RJCL,,JCL] ;Request the JCL.
MOVE A,[JCL]
MOVE A,[BPTR,,JCL] ;Load the command parameters into A.
MOVE B,[BPTR,,FNAME1] ;Pointer to the first file name.
;PUSHJ P,TOSIXB ;Transfer the first word into FNAME1
@@ -60,7 +61,7 @@ GETJCL: PUSH P,A ;Save the register A.
POP P,B ;Restore the B register.
POP P,A ;Restore the A register.
POPJ P, ;Return from routine.
;Subroutine to convert an ASCII string into SIXBIT. Takes a byte
;pointer in A and B, where A is the source and B is the destination.
TOSIXB: PUSH P,D ;Store the contents of register D.