Remove TOSIXB
This commit is contained in:
@@ -52,6 +52,7 @@ GETJCL: PUSH P,A ;Save the register A.
|
|||||||
MOVE A,[JCL,,JCL+30]
|
MOVE A,[JCL,,JCL+30]
|
||||||
BLT A,JCL+30
|
BLT A,JCL+30
|
||||||
.BREAK 12,[..RJCL,,JCL] ;Request the JCL.
|
.BREAK 12,[..RJCL,,JCL] ;Request the JCL.
|
||||||
|
MOVE A,[JCL]
|
||||||
MOVE A,[BPTR,,JCL] ;Load the command parameters into A.
|
MOVE A,[BPTR,,JCL] ;Load the command parameters into A.
|
||||||
MOVE B,[BPTR,,FNAME1] ;Pointer to the first file name.
|
MOVE B,[BPTR,,FNAME1] ;Pointer to the first file name.
|
||||||
;PUSHJ P,TOSIXB ;Transfer the first word into FNAME1
|
;PUSHJ P,TOSIXB ;Transfer the first word into FNAME1
|
||||||
|
|||||||
Reference in New Issue
Block a user