Remove SIXBIT conversion from GETJCL
This commit is contained in:
@@ -54,9 +54,9 @@ GETJCL: PUSH P,A ;Save the register A.
|
||||
.BREAK 12,[..RJCL,,JCL] ;Request the 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
|
||||
;PUSHJ P,TOSIXB ;Transfer the first word into FNAME1
|
||||
MOVE B,[BPTR,,FNAME2] ;Pointer to the second file name.
|
||||
PUSHJ P,TOSIXB ;Transfer the second word into FNAME2
|
||||
;PUSHJ P,TOSIXB ;Transfer the second word into FNAME2
|
||||
POP P,B ;Restore the B register.
|
||||
POP P,A ;Restore the A register.
|
||||
POPJ P, ;Return from routine.
|
||||
|
||||
Reference in New Issue
Block a user