OU:INSPS.MAC=IN:[12,10]INSPS.VGN/AU:72. \ -2,2 .IDENT /9.01X/ ; ; JGD24 5/7/81 Allow /PRM as well as /CMD. The difference ; being, /PRM="text" does not require a complete ; MCR command line of the form XYZ cmdlin, rather it ; automatically inserts a CCL cmdlin. This will allow ; old CCL files, and programs using the /PRM="text" ; to continue to work with RSX11M V4. Note that ; the form of /PRM without quotes is no longer ; supported. ; ; ; % -/INSCMD/,,/; JGD24/ .WORD 140$ ; .WORD INSPRM ; Parse /PRM="cmdlin" -/130$:/,,/; JGD24/ 140$: .ASCIZ /PRM/ ; -/INSCLI:/ -/INSYN2/,,/; JGD24/ ; ; Also support /PRM="cmdstring". This is like /CMD="XYZ cmdstring" ; except that if /PRM is seen, a "CCL" is automatically inserted ; into the front of $FLYBF. This will enable old stype CCL commands ; to work and frees up 4 more bytes for sending to non-installed tasks. ; PRMFLG: .WORD 0 ; Our own flag storage, INSPRM: INC PRMFLG ; Show we've got it JMP INSCMD ; Now join (almost) common code -/33$:/,,/; JGD24/ TST PRMFLG ; IS THIS A /PRM="..." BEQ 35$ ; IF EQ=>NO, CHECK FOR ZERO LENGTH SUB $FLYBF,R1 ; GET LENGTH BR 36$ ; JOIN COMMON CODE 35$: ; REF LABEL -/INSYNE/+1,,/; JGD24/ 36$: ; REF LABEL -/SAVE LENGTH OF LINE FOR LATER/,,/; JGD24/ TST PRMFLG ; WAS THIS THE /PRM="..." FORM? BEQ 37$ ; IF EQ=>NO, SKIP SUB #2,R2 ; BACK UP TO WORD COUNTER ADD #4,(R2)+ ; ADD IN COUNT FOR NEXT 4 BYTES MOV #"CC,(R2)+ ; TRANSFER FIRST PART OF CCL MOVB #'L,(R2)+ ; TRANSFER THE 'L' MOVB #40,(R2)+ ; AND THE SPACE 37$: TST R1 ; ANYTHING TO TRANSFER? BEQ 5$ ; IF EQ, NO -/CONTINUE TILL COUNT=0/+1,,/; JGD24/ 5$: ; REF LABEL /