SPL,L,O ! NAME: OF.. ! SOURCE: 92067-18243 ! RELOC: 92067-16185 ! PGMR: G.A.A. ! ! *************************************************************** ! * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * ! * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * ! * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* ! * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * ! *************************************************************** ! NAME OF..(8) "92067-16185 REV.1903 790209" ! ! LET MESSS BE FUNCTION,EXTERNAL !SYSTEM MESSG PROCESSOR LET FM.ER \ MESSAGE PRINT BE SUBROUTINE, EXTERNAL LET .DFER \3-WORD TRANSFER BE SUBROUTINE,EXTERNAL,DIRECT ! LET OF1(2),OF2,OF3(2),OF4 BE INTEGER LET BUF.,S.CAP,OVRD. BE INTEGER,EXTERNAL LET XEQT BE CONSTANT (1717K) ! INITIALIZE OF1,OF2,OF3,OF4 TO " OF, ,8" ! OF..: SUBROUTINE (N,PLIST,ERR) GLOBAL LET N,PLIST,ERR BE INTEGER ! .DFER(OF2,$(@PLIST+1)) !SET UP MESSAGE. J _ @BUF. FOR I _ @OF1 TO @OF4 DO [ \MOVE TO BUF. $J _ $I; J _ J + 1] IF S.CAP THEN [ \IF IN SESSION, THEN IF OVRD. AND 40000K THEN \IF OVERRIDE SET, THEN VAL_MESSS(BUF.,12,0,-$($XEQT+32)),\OVERRIDE CAP.CHECK OF "OF..." ELSE VAL_MESSS(BUF.,12)], \SEND "OF,NAME,8" TO SYSTEM ELSE VAL_MESSS(BUF.,12) ! IFNOT VAL THEN RETURN !CHECK ERRORS CALL FM.ER(1,BUF.,VAL) !PRINT ERROR MESSAGE AND RETURN !TR TO LOG. END END END$