/ / / / / / / / / / /COPYRIGHT (C) 1978,1979 BY DIGITAL EQUIPMENT CORPORATION / / / / / / / / / / /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. / /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. / /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY /DIGITAL. / / / / / / / / / /VERSION=1 / .TITLE RTSGEN PROGRAM; SYSTEM TABLES .ENABLE SIXBIT .NOLIST BE .ENTRY TABLE2 .DSECT TABLE1 FIELD 2 .GLOBAL TQUES,EQUES,QUEPTR /SYSTEM QUESTIONS ENTERED IN ORDER OF USER /QUESTION NUMBER. .GLOBAL TANS,EANS,ANSPTR /ANSWER TABLE: / CONTAINS 0-IGNORED / 1-SET PARAMETER TO 1 / 2-TASK;BUT NO SOURCE / POINTER-POINTS TO EITHER TNUM OR TASCI .GLOBAL TASCI,EASCI,ASCPTR /4-WORD ENTRY OF OS/8 PACKED ALPHANUMERIC DATA. /DELIMITED FROM NEXT ENTRY BY A 0. .GLOBAL TNUM,ENUM,NUMPTR /4-WORD ENTRY OF OS/8 PACKED OCTAL DATA. /DELIMITED FROM NEXT ENTRY BY A 0. .GLOBAL TREC,EREC,RECPTR /STORAGE AREA FOR RECORD DIRECTORY LOCATED /IN PSEUDOFIELD 0 IN FILE SCRIPT.SV .GLOBAL TFLD,EFLD,FLDPTR /TABLE INDICATING PSEUDOFIELD VS. STARTING /BLOCK NUMBER IN SCRIPT.SV (CALCULATED FROM CCB) .GLOBAL TTASK,ETASK,TSKPTR /TASK TABLE; LAST WORD IS TASK PRIORITY, SET /FIRST THREE BITS IF TASK NON-RESIDENT.FIRST FOUR WORDS /ARE TASK NAME (OS/8 PACKING).ENTRIES DELIMITED /OTHERWISE BY A ZERO. .GLOBAL TSYS,ESYS,SYSPTR /ORDER OF PRIORITY OF SYSTEM TASKS VS. ENTRY /IN PARAMETER FILE, PARAM.MA. OCTAL ENTRY /FOR RELATIVE PRIORITY. .GLOBAL TSNR,ESNR,SNRPTR /TABLE FOR LOW PRIORITY SYSTEM TASKS ENTRY /PRIOR TO TASK PRIORITIZATION. .GLOBAL TTTY,ETTY,TTYPTR /TTY 256-WORD BUFFER FOR INPUT/OUTPUT /TO TTY TERMINAL .GLOBAL TOVER,EOVER,OVRPTR /OVERLAY AREA FOR SCRIPT RECORDS, WRITTEN TO /FROM THE STORAGE DEVICE. .GLOBAL PAC6,EPAC,PACPTR,UNPACK,EPACK,PCKPTR /WORK AREA FOR UNPACKING OS/8 FORMAT, AND /PACKING 6-BIT CODE .GLOBAL TPART,EPART,PARPTR /TABLE OF PARTITION TALLIES FOR EACH LEVEL .GLOBAL DEV1,DEV2,DEV3,DEV4,SBLOCK,LENGTH .GLOBAL DIRBLK,ENTR1,ENTR2,DEVNO,DEVNO1,BLKST /CONSTANTS DERIVED FROM VARIOUS USR CALLS /TABLE GENERATION FOR SYSTEM TABLES /TYYYY-TABLE START /EYYYY-LAST WORD /YYYPTR- POINTER TO TABLE START-1, FOR AUTOINDEXING DECIMAL TQUES, ZBLOCK 256,0 EQUES=.-1 QUEPTR, TQUES-1 TANS, ZBLOCK 512,0 EANS=.-1 ANSPTR, TANS-1 TASCI, ZBLOCK 300,0 EASCI=.-1 ASCPTR, TASCI-1 TNUM, ZBLOCK 300,0 ENUM=.-1 NUMPTR, TNUM-1 TREC, ZBLOCK 512,0 EREC=.-1 RECPTR, TREC-1 TFLD, ZBLOCK 50,0 EFLD=.-1 FLDPTR, TFLD-1 OCTAL 6722 1724 5270 240 0 DECIMAL /ENTRY FOR RTS8 PRECEEDING TASK TABLES TSYS, ZBLOCK 240,0 ESYS=.-1 TTASK, ZBLOCK 762,0 ETASK=.-1 TSNR, ZBLOCK 50,0 ESNR=.-1 SYSPTR, TSYS-1 TSKPTR, TTASK-1 SNRPTR, TSNR-1 TOVER, ZBLOCK 512,0 EOVER=.-1 OCTAL 232 0 DECIMAL /ASSURE END OF TTY OUTPUT, WHEN SCRIPT RECORDS IN /EXCESS OF 256 CHARACTERS OCCUR OVRPTR, TOVER-1 PAC6, ZBLOCK 12,0 EPAC=.-1 PACPTR, PAC6-1 UNPACK, ZBLOCK 21,0 EPACK=.-1 PCKPTR, UNPACK-1 TTTY, ZBLOCK 256,0 ETTY=.-1 TTYPTR, TTTY-1 TPART, ZBLOCK 8,0 EPART=.-1 PARPTR, TPART-1 /SYSTEM FLAGS AND POINTERS .GLOBAL DIRFLG,DIRLOC,CFLAG,NEWFLG,LOGNUM,DFPTR,TYPE,PAGEFG,OFLAG,FTALLY .GLOBAL CQUES,EXITFG,PASS1,PASS3,TTYFLG,TTALLY,SYSST,SYSNR,NTASKS,DEV5 .GLOBAL USERNM,RECBLK,RECLOC,IFLAG,DEV6,DEVNO2,ENTR3,FLGTBL,FLGEND .GLOBAL IQUES,QUES,RECFLD,CLOC,TFLAG,STASKS,TFG,TQES FLGTBL=. DIRFLG,0 /CURRENT STARTING BLOCK (RELATIVE) OF RECORD DIRECTORY /CALCULATED AS 1.5XLOGNUM (LOGICAL PHASE NUMBER). DIRLOC,TREC-1 /CURRENT RECORD LOCATION IN RECORD DIRECTORY /MANIPULATED TO MOVE PAST REMARKS. USED TO LOCATE /CURRENT AND PREVIOUS RECORD NUMBERS BY ERROR /GETREC ETC. (PRIMARY RECORD OVERLAY POINTER). CFLAG,0 /CHANGE FEATURE IN USE. SET BY CALLER TO CAUSE BACKWARD SEARCH /TROUGH TREC FOR RECORD NUMBER IN CQUES.(SERVICES # FUNTION) NEWFLG,0 /NEW BUILD CQUES,0 /QESTION TO BE CHANGED POINTER. (USED IN CONJUNTION WITH BOTH IFLAG AND CFLAG) EXITFG,0 /PASS1 END FLAG PASS1,0 /PASS1 IN PROGRESS PASS3,0 /PASS3 IN PROGRESS USERNM,0 /CURRENT USER QUESTION NUMBER RECBLKS,0 /STARTING BLOCK FOR PREUDOFIELD WHERE CURRENT RECORD RECLOC,0 /DISPLACEMENT IN TOUER WHERE RECORD BEGINS IFLAG,0 /SET WHEN SKIP IN PROGRESS. SET TO CAUSE FOWARD SEARCH THROUGH TREC /WHEN GETREC IS CALLED. SEARCHES FOR RECORD NUMBER FOUND IN CQUES IQUES,0 /OPERAND USED TO SIGNAL ROUTINE UQUES THAT BRANCH HAS OCCURED. /UQUES MAINTAINS CORRECT USER QUESTION NUMBER QUES,0 /PREVIOUS OR CURRENT QUESTION NUMBER /USED AS RELATIVE DISPLACEMENT VALUE INTO TANS. RECFLD,0 /PSEUDOFIELD OR CURRENT RECORD. CLOC,0 /LOCATION OF LAST CHANGE RECORD. PAGEFG,0 /TRACKS EVEN OR ODD RELATIVE STARTING BLOCK LOGNUM,0 /LOGICAL SEGMENT NUMBER OF DIRECTORY ON MASS STORAGE DFPTR,0 /DEFAULT POINTER, ADDRESS IN TOVER WHERE DEFAULT BEGINS TYPE,0 /POINTER TO FIRST WORD OF RECORD IN TOVER OFLAG,0 /FLAG IS SET TO DISTINGUISH OCTAL FROM DECIMAL RESPONSES TTYFLG,0 /THIS FLAG SET DURING TTY CONTROL FILE BUILD TFLAG,0 /THIS FLAG USED BY MAIN1 TO AVOID TASK LISTING TTALLY,0 /NUMBER CONTROL FILES, TTY TASK, REQUIRED BY USER STASKS,0 /TALLY OF TOTAL SELECTED SYSTEM TASKS TFG,0 /THIS FLAG SET DURING EXECUTION OF A T-TYPE SUBROUTINE TQES,0 /THIS LOCATION CONTAINS THE POINTER TO THE ENTRY IN TANS /FOR CONTROL FILE OCTAL/DECIMAL ANSWERS FLGEND=.-1 /THESE WORKING LOCATIONS ARE USED BY THE VARIOUS SERVICE ROUTINES /FOR TEMPORARY STORAGE. (ENHANCES DEBUG) .GLOBAL TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6,TEMP7,TEMP10 OCTAL TEMP1, 0 TEMP2, 0 TEMP3, 0 TEMP4, 0 TEMP5, 0 TEMP6, 0 TEMP7, 0 TEMP10, 0 BLKST,0 /STARTING BLOCK OF SCRIPT.SV DEV1, TEXT "SY" DEV2, TEXT "S" SBLOCK,0 LENGTH,0 DIRBLK,0 /NUMBER OF DIRECTORY BLOCKS ENTR1,0 /HANDLER ENTRY POINT OF MASS STORAGE DEVICE CONTAINING SCRIPT ENTR2,0 /ENTRY POINT TTY HANDLER DEVNO,0 /DEVICE NUMBER,SCRIPT DEVICE DEVNO1,0 /DEVICE NUMBER,TTY DEVICE DEV3, TEXT "TT" DEV4, TEXT "Y" DEV5,0 /USER SPECIFIED LISTING DEVICE (TASK) DEV6,0 DEVNO2,0 /DEVICE NUMBER OF LISTING DEVICE ENTR3,0 /ENTRY ADDRESS OF LISTING DEVICE NTASKS,1776 /RECORD NUMBAER OF NTASKS PARAMETER SYSST,2074 /STARTING NUMBER OF SYSTEM TASK PARAMETERS SYSNR,2160 /STARTING RECORD OF LOW PRIORITY SYSTEM TASKS FTALLY,770 /FIRST ENTEY OF FLOPPY CONTROL FILE IN TANS