Remove TOSIXB
This commit is contained in:
@@ -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.
|
||||
|
||||
Reference in New Issue
Block a user