**HDR* (% 09:39:46 THURSDAY, AUGUST 14, 1986.VOLUME= 1 SECTOR SIZE= 256SOURCE=SYS %eMVCATALOGVCATALOGAS$OSLINKD f6ffĀwCONDASM D 6wwOS X602kw UNL#F!***************************************************************** F* '@* OS - CONDITIONAL ASSEMBLY BY OPERATING SYSTEM 05/19/82 @* 'F!***************************************************************** F* '* CONSTANTS"* 'C$DX5 EQU1 !C$DX10 EQU2 !C$DX7 EQU3 !C$DPOS EQU4 !C$DNOS EQU4 ! C$DX34 EQU5 DX10 3.4.2+  * '* VARIABLES"* 'C$OS EQUC$DPOS$C$OSV EQUC$DNOS OS VERSION $  LIST " S WORDS 0 AND 1 FOR MEMORY CONTROLLER 4 *------ $ :MEM010 MOV@MEMFLG,R7 CONTROLLER PRESENT FLAGSR06 :. COCR4,R7  IS CONTROLLER PRESENT?R06 ." JEQMEM011YES - PROCESS IT"RED P6H4w>RED  EQU0  ASSEMBLE THE COMPLETE VERSION OF THE MODULE>0881210021032123.N PDXSMB0086 E0011025402950409041105500679068706880691N: 069508690878094409911004104912311242:: 127213161430166917701773178918071815:: 181618311915192219661967202121242126:4 212821312144214921832186218922124 PS2CH0001A' G02831960 PS2CH10018' G02821956 PS2ENP000A' G02781939 PS2PR0000C' G02771935 PS2RAT0012' G02811929 PS2SB00006' G02801945 PS2SB10004' G02791952 PS3CH0002E' G02482001 PS3CH1002C' G02471997 PS3CLK0012' G02392003 EOD PATCH D 6wwKERNEL `PT7xh˱w`@J#*--------------------------------------------------------------------*JJ* *** PATCH FILE DNOS 1.3.00 KERNEL 1.3.00 LAST UPDATE 02/19/85*JJ#*--------------------------------------------------------------------*J*  INSTRUCTIONS:* '<* THE USER IS EXPECTED TO EXECUTE THIS BATCH STREAM BY <>* INVOKING THE "PGS" COMMAND PROCEDURE OR BY USING AN XB>* COMMAND.* '* 'B* YOU MUST ASSIGN THE FOLLOWING SYNONYMS BEFORE RUNNING THIS B* BATCH STREAM: * '0* $OT- VOLUME NAME OF DISK TO BE PATCHED 0<* TEMP - A FILE UNIQUE TO THE USER, SUCH AS .TEMP@ME <.* IF NOT ASSIGNED, .TEMP@ME WILL BE USED.,* $CSNAM - NAME OF SYSTEM TO BE PATCHED,* 'D * YOU MUST ASSIGN THE FOLLOWING SYNONYMS IF YOU HAVE MOVED SCI D* COMMAND PROCE`4DURES INTO COMMAND DIRECTORIES OTHER THAN THOSE 4$* SUPPLIED WITH YOUR SOFTWARE: $* 'J* $CMDS- THE MAJOR COMMANDS DIRECTORY(IES) AND THE HISTORY COMMANDSJJ#*--------------------------------------------------------------------*JBATCH LS=YES" .IF "@$CMDS", EQ,"$CMDS", .SYN $CMDS=".S$CMDS,.S$SYSTEM.S$$CMDS" , .ENDIF%  .IF "@TEMP", EQ, "TEMP"  .SYN TEMP=".TEMP@ME"  .ENDIF%  .IF "@$OT", EQ, "$OT" , CM MESSAGE="$OT SYNONYM NOT ASSIGNED." ,, EBATCH T="$OT SYNONYM NOT ASSIGNED." , .ENDIF% .IF "@$CSNAM", EQ, "$CSNAM"  . CM MESSAGE="$CSNAM SYNONYM NOT ASSIGNED.".. EBATCH T="$CSNAM SYNONYM NOT ASSIGNED.". .ENDIF% .USE @$CMDS "* '$BUD VOLUME BEING UPDATED=@$OT, $* PACKAGE NAME="DNOS (@$CSNAM KERNEL)",*CE.` RELEASE NUMBER=1.3.00,  RELEASE DATE=03/20/85,  SYSTEM COMPONENT NAME=DN, BEGIN NEW ENTRY=NO J#*--------------------------------------------------------------------*JJ!* VERIFY THAT THE LINKMAPS NEEDED FOR THE PATCHING AND THE SYSTEM *JH * PROGRAM FILE FOR THE SYSTEM SPECIFIED EXIST BEFORE PROCEEDING *HJ#*--------------------------------------------------------------------*JF!.SVC DATA=(0,>9900,0,0,0,0,0,0,0,0,0,"@$OT.S$SGU$.@$CSNAM.SYSMAP")F.IF @$$CC,NE,0!F!CM MESSAGE="LINKMAP (@$OT.S$SGU$.@$CSNAM.SYSMAP) DOES NOT EXIST." FD EBATCH T="LINKMAP (@$OT.S$SGU$.@$CSNAM.SYSMAP) DOES NOT EXIST." D .ENDIF% F!.SVC DATA=(0,>9900,0,0,0,0,0,0,0,0,0,"@$OT.S$SGU$.@$CSNAM.IOUMAP")F.IF @$$CC,NE,0!F!CM MESSAGE="LINKMAP (@$OT.S$SGU$.@$CSNAM.IOUMAP) DOES NOT EXIST." F`@D EBATCH T="LINKMAP (@$OT.S$SGU$.@$CSNAM.IOUMAP) DOES NOT EXIST." D .ENDIF% 8.SVC DATA=(0,>9900,0,0,0,0,0,0,0,0,0,"@$OT.@$CSNAM")8.IF @$$CC,NE,0!6CM MESSAGE="SYSTEM (@$OT.@$CSNAM) DOES NOT EXIST."64EBATCH T="SYSTEM (@$OT.@$CSNAM) DOES NOT EXIST."4 .ENDIF% J#*--------------------------------------------------------------------*J.* ***BEGIN PATCHES FOR DNOS 1.3.00  *.J#*--------------------------------------------------------------------*JJ#*--------------------------------------------------------------------*J8*=P0000 MJK/XXX01/28/85STR #00000DNOS1.3.008* '.* PROBLEM: MAKE INTERNAL VERSION 1.3.00 .* '.DATA @TEMP" DATA >332E  DATA >3030  END#.EOD&@CP LINK MAP=@$OT.S$SGU$.@$CSNAM.SYSMAP, ASSEMBLER INPUT=@TEMP,@` : PROG FILE=@$OT.@$CSNAM,MODULE=NFDATA, OFFSET=>0108, :  PATCH TYPE=RE, #WORDS=2,  ( PATCH AREA=NFPAT,V=(>322E,>2D31) (EC'*$'J#*--------------------------------------------------------------------*JH*=P3703 PJW/ES 09/24/84STR #18538DNOSKERNEL 1.3.00 DSREN H* 'D * PROBLEM: DSREN COUNTS NON-ETHERNET PACKET TYPES AS RECEIVED D:*  IN ERROR.NON-ENABLED MULTICAST PACKETS ALSO ARE :&*  COUNTED AS RECEIVED IN ERROR.&* 'D * SOLUTION: DO NOT INCREMENT THE READ ERROR COUNT WHEN A PACKETD<*  IS DISCARDED BECAUSE IT IS NOT ETHERNET TYPE IN THE<<*  LEVEL ZERO HEADER OR MULTICAST TYPE IS NOT ENABLED.<* ':SPI PF=@$OT.@$CSNAM,MT=OV,MN=DSREN,ADR=>C000,LENGTH=02 :&.IF @$$CC,EQ,0 ! DSREN MUST EXIST& MPI PF=@$OT.@$CSNAM, MT=` OV, MN=DSREN, ADR=>D9CC,V=(>A915,>00BA),D=(>05A4,>004A), C=>05EE " ,.IF @$$CC,EQ,0 ! MUST BE DNIO 2.0 DSREN,4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>D9E6,4V=(>05A4,>004A),D=(>A915,>00BA), C=>A9AF " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DF7E,4 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>8825,>0008,>DF92,>1304), C=>44BB " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DF86,4 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>06A0,>D9D0,>0460,>D4B6), C=>0FA6 " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DF8E,4 V=(>DEAD,>DEAD,>DEAD), D=(>0460,>D482,>0600), C=>D6E2 " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>D47A,4V=(>8825,>0008),D=(>0460,>DF7E), C=>DB1E " EC'MP`2I PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DF94,2 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>0206,>DD9A,>020B,>DFA0), C=>0237 " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DF9C,4 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>0460,>D56E,>C281,>06A0), C=>152F " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DFA4,4 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>CFC4,>06A0,>D948,>06A0), C=>168C " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DFAC,4 V=(>DEAD,>DEAD,>DEAD), D=(>D9D0,>0460,>D602), C=>0BB2 " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>D56A,4V=(>0206,>DD9A),D=(>0460,>DF94), C=>DBF4 " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>D58A,4 V=>109E," D=>045B," C=>045B " EC' .ENDIF% `@ .ENDIF% *$'J#*--------------------------------------------------------------------*JF*=P3746 PJW/ES 10/16/84STR #18628DNOS KERNEL 1.3.00 IOLANF* 'D * PROBLEM: NIOPST IS NOT CALLED FROM RPDQUE WITH R0 = TSBML1. D8*  DNIO WILL HANG WITH NETSTAT, ROUTINFO, ETC. IN 8*  STATE = 06.* ':* SOLUTION: NIOPST SHOULD NOT DEPEND ON R0 = TSBML1. :* '* '.DATA @TEMP"* DATA >001A  CHECK FOR DNIO 2.0 IOLAN * END#.EOD&FCP LINK MAP =@$OT.S$SGU$.@$CSNAM.SYSMAP, ASSEMBLER INPUT =@TEMP, F< PROG FILE=@$OT.@$CSNAM, MODULE=IOLAN,OFFSET=>00D8, <, PATCH TYPE=RE,  #WORDS=1,PNUM=3746, ,$ PATCH AREA=NFPATT,  V=>001A, $ OPTIONAL=YES *EC & .IF @$$CC,EQ,0000 .DATA @TEMP"BROTSB EQU >FFFA TS`BML1 EQU >0050 * MOVR2,R1  SETUP CALL BLOCK POINTER *, MOV@BROTSB(R1),R4 SETUP TSB POINTER ,( MOVR4,R5  SETUP MAP FILE POINTER( A%%I R5,TSBML1  END#.EOD&FCP LINK MAP =@$OT.S$SGU$.@$CSNAM.SYSMAP, ASSEMBLER INPUT =@TEMP, F< PROG FILE=@$OT.@$CSNAM, MODULE=IOLAN,OFFSET=>00E6, <, PATCH TYPE=RE,  #WORDS=5,PNUM=3746, ,> PATCH AREA=NFPATT,  V=(>C100,>0224,>FFB0,>C140,>C042), > OPTIONAL=YES EC' .ENDIF% *$'J#*--------------------------------------------------------------------*JH*=P3796 PJW/ES 11/01/84STR #18613DNOSKERNEL 1.3.00 IOLAN H* DSREN * 'F!* PROBLEM: DNIO RECEIVE PROCESSING HANGS. TRANSMIT STILL WORKS F@*  PROPERLY."LNS" AT LOCAL SITE SHOWS ALL SITES OFFLINE,@*  "LNS" AT RE`&MOTE SITE SHOWS LOCAL SITE ONLINE. &* 'B* SOLUTION: DO NOT CONSIDER NETDATA PROCEDURE TO BE IN MEMORY B,*  EARLY IN RECEIVE PROCESSING LOGIC. ,* '.DATA @TEMP"* DATA >001A  CHECK FOR DNIO 2.0 IOLAN * END#.EOD&FCP LINK MAP =@$OT.S$SGU$.@$CSNAM.SYSMAP, ASSEMBLER INPUT =@TEMP, F< PROG FILE=@$OT.@$CSNAM, MODULE=IOLAN,OFFSET=>00D8, <, PATCH TYPE=RE,  #WORDS=1,PNUM=3796, ,$ PATCH AREA=NFPATT,  V=>001A, $ OPTIONAL=YES *EC & .IF @$$CC,EQ,0000 .DATA @TEMP"HDBSIZ EQU>22 0 LI R1,HDBSIZ+4  EXTEND HDB BY TWO WORDS 0 END#.EOD&FCP LINK MAP =@$OT.S$SGU$.@$CSNAM.SYSMAP, ASSEMBLER INPUT =@TEMP, F< PROG FILE=@$OT.@$CSNAM, MODULE=IOLAN,OFFSET=>0158, <, PATCH TYPE=RE,  #WORDS=2,PNUM=3796, ,`@, PATCH AREA=NFPATT,  V=(>0201,>0022), , OPTIONAL=YES EC'.DATA @TEMP"TSBRID EQU>000D TSBJSB EQU>0014 JSBJID EQU>0002 < MOVB @TSBRID(R4),@>0022(R2) HDB EXTENDED BY TWO WORDS < MOV@TSBJSB(R4),R6  MOV @JSBJID(R6),@>0024(R2)  END#.EOD&FCP LINK MAP =@$OT.S$SGU$.@$CSNAM.SYSMAP, ASSEMBLER INPUT =@TEMP, F< PROG FILE=@$OT.@$CSNAM, MODULE=IOLAN,OFFSET=>05EC, <, PATCH TYPE=IA,  #WORDS=3,PNUM=3796, ,2 PATCH AREA=NFPATT,  V=(>C8A1,>FFF8,>000A), 2 OPTIONAL=YES EC' .ENDIF% .DATA @TEMP "NFWORD EQU >24AE  MASTAB EQU NFWORD+>0022 BRFTID EQU >0003 BROOF2 EQU >FFF0 BROTSB EQU >FFFA *P1 MOV@>0024(R7),R0  PATCH AREA * B@FNDJSB+6 P2 MOV@BRFTID*2+MAST`AB,@BROOF2(R1) CLR@BROTSB(R1)   MOVB @>0022(R7),@BROTSB(R1)  B@ISSREQ+>12  END#.EOD&:SPI PF=@$OT.@$CSNAM,MT=OV,MN=DSREN,ADR=>C000,LENGTH=02 :&.IF @$$CC,EQ,0 ! DSREN MUST EXIST&4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>D5B0,4 V=>D9AC," D=>DFB2," C=>DFB2 " ,.IF @$$CC,EQ,0 ! MUST BE DNIO 2.0 DSREN,4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DFB2,4 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>C027,>0024,>0460,>D9B2), C=>1DD1 " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DFBA,4 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>C860,>2556,>FFF0,>04E1), C=>1627 " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DFC2,4 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>FFFA,>D867,>0022,>FFFA), C=>D845 " EC'MPI PF`.=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>DFCA,.V=(>DEAD,>DEAD),D=(>0460,>D99E), C=>DDFE " EC'4MPI PF=@$OT.@$CSNAM, MT=OV, MN=DSREN, ADR=>D600,4 V=>D98C," D=>DFBA," C=>DFBA " EC' .ENDIF% .ENDIF% *$'J#*--------------------------------------------------------------------*J@*=P3856 BJF/XXX01/28/85STR #18897DNOS1.3.0 FMBIO @* '8* PROBLEM : WHEN SMT FILLS, FILE MANAGER HARD RUNS 84* SOLUTION: ONLY RETRY OP ONCE WHEN SMT IS FULL4* '.EVAL FMBIO = >C486 .EVAL FMBCLO = >C5B0 .EVAL FMPATCH = >DB3E+>0004  .EVAL FMCHGS = >1E2E@MPI PF=@$OT.@$CSNAM, MT=TA, MN=FILEMGR, ADR=@FMPATCH+>0000, @ V=(>DEAD,>DEAD,>DEAD,>DEAD), "D=(>06A0,@FMBCLO,>0000,>06A0)," C=>C5B0 ! EC'MPI `<PF=@$OT.@$CSNAM, MT=TA, MN=FILEMGR, ADR=@FMPATCH+>0008, < V=(>DEAD,>DEAD,>DEAD,>DEAD), 0D=(@FMCHGS,@FMBIO+>00C6,>0460,@FMBIO+>0008),0 C=>1B8C ! EC'>MPI PF=@$OT.@$CSNAM, MT=TA, MN=FILEMGR, ADR=@FMBIO+>00D6, >"V=(>06A0,@FMBCLO,>0000,>1092),"$D=(>0460,@FMPATCH,>1000,>1000), $ C=>DF22 ! EC'.SYN FMBIO = "", FMBCLO = "", FMPATCH = "", FMCHGS = "" * '.EVAL FMBIO = >C2CA .EVAL FMBCLO = >C3F4 .EVAL KMPATCH = >EFFE+>0004  .EVAL FMCHGS = >1E2E&***CHECK TO SEE IF KIF WAS GENNED &6MPI PF=@$OT.@$CSNAM, MT=TA, MN=KIFMGR, ADR=>C000, 6 V=>C006,D=>C006,C=>C006  .IF @$$CC,EQ,0000  ***KIF WAS GENNED @MPI PF=@$OT.@$CSNAM, MT=TA, MN=KIFMGR, ADR=@KMPATCH+>0000, @ V=(>DEAD,>DEAD,>DEAD,>DEAD`),"D=(>06A0,@FMBCLO,>0000,>06A0)," C=>C3F4 ! EC'@MPI PF=@$OT.@$CSNAM, MT=TA, MN=KIFMGR, ADR=@KMPATCH+>0008, @ V=(>DEAD,>DEAD,>DEAD,>DEAD), 0D=(@FMCHGS,@FMBIO+>00C6,>0460,@FMBIO+>0008),0 C=>1B0C ! EC'<MPI PF=@$OT.@$CSNAM, MT=TA, MN=KIFMGR, ADR=@FMBIO+>00D6, <"V=(>06A0,@FMBCLO,>0000,>1092),"$D=(>0460,@KMPATCH,>1000,>1000), $ C=>F462 ! EC' .ENDIF% .SYN FMBIO = "", FMBCLO = "", KMPATCH = "", FMCHGS = "" *$'J#*--------------------------------------------------------------------*J@*=P3855 BJF/XXX01/28/85STR #17877DNOS1.3.0 KMTASK @* '<* PROBLEM : SSBUCT IS INCREMENTED ONCE TOO MANY TIMES, <:*  CAUSING ALL SORTS OF PROBLEMS, INCLUDING CRASHES :"* SOLUTION: DEC IT IN KMTASK, A"`S IN FMTASK * '.DATA @TEMP"SSBUCT EQU>000C 2 LDSR5DEC SSB USE COUNT(FMPREP INC'ED IT) 2 DEC@SSBUCT(R2)  END#.EOD&BCP LINK MAP=@$OT.S$SGU$.@$CSNAM.SYSMAP, ASSEMBLER INPUT=@TEMP, B: PROG FILE=@$OT.@$CSNAM,MODULE=KMTASK, OFFSET=>0108, :6 PATCH TYPE=IA, #WORDS=2,  PATCH NUMBER=3855, 60 PATCH AREA=KMPATCH,V=>61A0,OPTIONAL=YES0EC'*$'J#*--------------------------------------------------------------------*J>*=P3889 BJF/XXX02/16/85STR #18982DNOS1.3.0 KMGF >* 'B* PROBLEM : DURING B-TREE SPLITS OF ROOT NODES, DISK COPY NO B<*  LONGER MATCHES MEMORY COPY. KIF FILE IS DESTROYED <4* SOLUTION: RELEASE FREE BLOCK BEFORE RETURNING4* '.DATA @TEMP" REFKMULG KMDSSB EQU>00B0 `$ MOVR1,R3  # OF EMPTY BLOCK $  DECT R3! ( BL @KMULG+KMDSSB  GET RID OF IT(  CLRR0!  END#.EOD&BCP LINK MAP=@$OT.S$SGU$.@$CSNAM.SYSMAP, ASSEMBLER INPUT=@TEMP, B: PROG FILE=@$OT.@$CSNAM,MODULE=KMGF, OFFSET=>00F2, :6 PATCH TYPE=RE, #WORDS=11, PATCH NUMBER=0000, 60 PATCH AREA=KMPATCH,V=>C06C,OPTIONAL=YES0EC'*$'H"*-----------------------------------------------------------------* H@*=P3890 BJF/XXX02/16/85STR #18983DNOS1.3.0 FMPRE2 @* 'D * PROBLEM : KIFMGR RESERVES SPACE THREE OF THE BIGGEST KEYS IN D:*  THE KIT, AND RECORDS THE ADDRESSES OF EACH.THE :<*  SECOND KEY ADDRESS MAY BE ODD, BUT EVERYONE TREATS <*  IT AS A WORD ADDRESS.:* SOLUTION: RESERVE SPACE FOR LARGEST KEY ROUNDED UP :* '`@.DATA @TEMP"SSBUCT EQU>000C " INCR3 MAKE ODD LENGTH EVEN". ANDI R3,>FFFE DONT MAKE EVEN LENGTH ODD . END#.EOD&BCP LINK MAP=@$OT.S$SGU$.@$CSNAM.SYSMAP, ASSEMBLER INPUT=@TEMP, B: PROG FILE=@$OT.@$CSNAM,MODULE=FMPRE2, OFFSET=>0054, :6 PATCH TYPE=IA, #WORDS=2,  PATCH NUMBER=0000, 60 PATCH AREA=NFPATS, V=>0223,OPTIONAL=YES0EC'*$'J#*--------------------------------------------------------------------*J@*=P3892 MJK/BJF02/19/85STR #18991DNOS1.3.0 KMOPCL @* '<* PROBLEM : CRASHES AND SUCH WHEN PARTIAL LOGGING KIFS <0* SOLUTION: BECOME TASK BEFORE UPDATING FDR0* ' .EVAL FMTSET = >C9E8 .EVAL NFCALR = >0618 .EVAL KMPATCH = >F024 .EVAL KMOPCL = >E268$***CHECK TO SEE IF KIF WAS GENNED $`6MPI PF=@$OT.@$CSNAM, MT=TA, MN=KIFMGR, ADR=>C000, 6 V=>C006,D=>C006,C=>C006  .IF @$$CC,EQ,0000  ***KIF WAS GENNED @MPI PF=@$OT.@$CSNAM, MT=TA, MN=KIFMGR, ADR=@KMPATCH+>0000, @ V=(>DEAD,>DEAD,>DEAD,>DEAD), "D=(>CE8B,>06A0,@FMTSET,>064A) "EC'@MPI PF=@$OT.@$CSNAM, MT=TA, MN=KIFMGR, ADR=@KMPATCH+>0008, @ V=(>DEAD,>DEAD,>DEAD,>DEAD),  D=(>C2DA,>0460,@NFCALR) EC'>MPI PF=@$OT.@$CSNAM, MT=TA, MN=KIFMGR, ADR=@KMOPCL+>0106, > V=(>06A0,@NFCALR), D=(>06A0,@KMPATCH)EC' .ENDIF% .SYN FMTSET = "", NFCALR = "", KMPATCH = "", KMOPCL = "" *$'J#*--------------------------------------------------------------------*JJ#*--------------------------------------------------------------------*J * *** P `:ATCHES ABOVE THIS COMMENT SHIPPED WITH DNOS 1.3.00 *:J#*--------------------------------------------------------------------*JJ#*--------------------------------------------------------------------*JD* DELETE THE TEMP%%ORARY FILE USED BY CP. DELETE ANY UNIQUE  *D.* SYNONYMS USED IN THE BATCH STREAM.  *.J#*--------------------------------------------------------------------*J DF PATHNAME=@TEMP J#*--------------------------------------------------------------------*JJ#* MAKE AN ENTRY INTO THE .S$HSTRY FILE FOR THE LAST PATCH USING EUD.*JJ!* DO THIS ONLY IF THE PATCHES APPLIED WITHOUT ERROR. RECORD THE  *JJ#* LAST PATCH NUMBER, USING NONE IF THERE ARE NO PATCHES AND FAIL IF *J$* THE PATCH PROCESS FAILS.  *$>*----------------------------------------------------------->`---------*.IF @$E$C, EQ, 0 EUD  LAST PATCH=3892,  RELEASE NUMBER=1.3.00 .ELSE % EUD  LAST PATCH=FAIL,  RELEASE NUMBER=1.3.00 .ENDIF% <CM MESSAGE="@$E$C ERRORS ON DNOS KERNEL PATCH STREAM" < EBATCH LIST SYNONYMS=YES, 6 TEXT="@$E$C ERRORS ON DNOS KERNEL PATCH STREAM", 6 CODE=@$E$C ---------------------------------------*J DF PATHNAME=@TEMP J#*--------------------------------------------------------------------*JJ#* MAKE AN ENTRY INTO THE .S$HSTRY FILE FOR THE LAST PATCH USING EUD.*JJ!* DO THIS ONLY IF THE PATCHES APPLIED WITHOUT ERROR. RECORD THE  *JJ#* LAST PATCH NUMBER, USING NONE IF THERE ARE NO PATCHES AND FAIL IF *J$* THE PATCH PROCESS FAILS.  *$>*----------------------------------------------------------->COMM P 7[5"2w@H"********************************************************************HBATCH LS=Y#6.USE@$CMDS !VALUE IS .S$CMDS,.S$SYSTEM.S$$CMDS 6H"********************************************************************H* 'B* THIS BATCH STREAM EXECUTES THE COMMUNICATIONS PATCH STREAMS. BB* THE USER IS EXPECTED TO EXECUTE THIS BATCH STREAM USING THE B* PGS COMMAND.!2* THE FOLLOWING SYNONYMS ARE ASSIGNED BY PGS: 2* '>*  $CMDS- COMMAND PROCEDURE DIRECTORIES TO BE USED FOR >"*  HISTORY AND OTHER COMMANDS"*  $CSNAM - SYSTEM NAME $*  $IN - .S$OSLINK$6*  $OT- THE TARGET DISK (WHERE SYSTEM RESIDES) 6* '4* THE FOLLOWING SYNONYMS ARE ASSIGNED BY THE COMPA4 TCH BATCH STREAM: * ':*  $PLST- THE PROTOCOL LIST SPECIFIED BY THE USER :* 'H"********************************************************************H* ' .SYN $CDIR = "@$IN.DNCMO",  *$LDIR = "@$OT.S$SGU$.@$CSNAM.PATCHLST"** '0* APPLY THE COMMUNICATIONS SCHEDULER PATCHES0* '*XBINPUT = "@$CDIR.DCOMM.P.DNPCSWS", *LIST = "@$LDIR.DNPCSWS"* '@* APPLY COM PROTOCOL DSR PATCHES FOR EACH PROTOCOL IN $PLST @* ' .LOOP %  .SPLIT LIST = "@$PLST", FIRST = $PROT,  REST = $PLST .IF "@$PROT", EQ, "2780"  .SYN $PROT = "3780"  .ENDIF# ".WHILE "@$PROT", NE, "$PLST" "* ' * APPLY COMMON PROTOCOL DSR PA  TCHES  * '*XBINPUT = "@$CDIR.DCOMM.P.DNPCMON", * LIST = "@$LDIR.CMON@$PROT"  * '(* APPLY PROTOCOL RELATED DSR PATCHES(* '.XBINPUT = "@$CDIR.D@$PROT.P.DNP@$PROT", .LIST = "@$LDIR.DNP@$PROT" .REPEAT $ EBATCH%  BEGIN NEW ENTRY=NO J#*--------------------------------------------------------------------*JJ!* VERIFY THAT THE LINKMAPS NEEDED FOR THE PATCHING AND THE SYSTEM *JH * PROGRAM FILE FOR THE SYSTEM SPECIFIED EXIST BEFORE PROCEEDING *HJ#*--------------------------------------------------------------------*JF!.SVC DATA=(0,>9900,0,0,0,0,0,0,0,0,0,"@$OT.S$SGU$.@$CSNAM.SYSMAP")F.IF @$$CC,NE,0!&CM MESSAGE="LINKMAP (@$OT.S$SGU$.@$C& UTILITY P$7d d*w@J#*--------------------------------------------------------------------*JJ* *** PATCH FILE DNOS 1.3.00UTILITY 1.3.00 LAST UPDATE 02/19/85*JJ#*--------------------------------------------------------------------*J*  INSTRUCTIONS:* '<* THE USER IS EXPECTED TO EXECUTE THIS BATCH STREAM BY <*  USING THE XB COMMAND. * '* 'B* YOU MUST ASSIGN THE FOLLOWING SYNONYMS BEFORE RUNNING THIS B* BATCH STREAM: * '0* $OT- VOLUME NAME OF DISK TO BE PATCHED 0,* $CSNAM - NAME OF SYSTEM TO BE PATCHED,* 'D * YOU MUST ASSIGN THE FOLLOWING SYNONYM IF YOU HAVE THE SYSTEM D>* UTILITY PROGRAM FILE NAMED SOMETHING OTHER THAN .S$UTIL >* ' * S$UTIL (- UTILITY PROGRAM FILE BEING PATCHED(* 'F!* YOU MUST ASSIGN THE FOLLOWING SYNONYM IF YOU HAVE THE IPL FILE F(* NAMED SOMETHING OTHER THAN .S$IPL(* '.* S$IPL- NAME OF IPL FILE BEING PATCHED.* 'D * YOU MUST ASSIGN THE FOLLOWING SYNONYMS IF YOU HAVE MOVED SCI DD * COMMAND PROCEDURES INTO COMMAND DIRECTORIES OTHER THAN THOSE D$* SUPPLIED WITH YOUR SOFTWARE: $* 'J* $CMDS- THE MAJOR COMMANDS DIRECTORY(IES) AND THE HISTORY COMMANDSJB* CMDLIB - COMMAND DIRECTORY TO BE MODIFIED BY .PROC PATCHES BJ#*--------------------------------------------------------------------*JBATCH LS=YES" .IF "@$CMDS", EQ,"$CMDS", .SYN $CMDS=".S$CMDS,.S$SYSTEM.S$$CMDS" ,L 0@ .ENDIF% .USE @$CMDS " .IF "@CMDLIB",EQ,"CMDLIB"  .SYN CMDLIB="@$OT.S$CMDS" .ENDIF%  .IF "@$OT", EQ, "$OT" , CM MESSAGE="$OT SYNONYM NOT ASSIGNED" ,, EBATCH TEXT="$OT SYNONYM NOT ASSIGNED" , .ENDIF% .IF "@$CSNAM", EQ, "$CSNAM"  . CM MESSAGE="$CSNAM SYNONYM NOT ASSIGNED".. EBATCH TEXT="$CSNAM SYNONYM NOT ASSIGNED". .ENDIF% * '$BUD VOLUME BEING UPDATED=@$OT, $, PACKAGE NAME="DNOS (@$CSNAM UTILITY)", , RELEASE NUMBER=1.3.00,  RELEASE DATE=03/20/85,  SYSTEM COMPONENT NAME=UT, BEGIN NEW ENTRY=YESJ#*--------------------------------------------------------------------*J6* VERIFY THE PROGRAM FILE WHOSE SYNONYM IS S$UTIL E6XISTS. *J#*--------------------------------------------------------------------*JH".SVC DATA=(0,>9900,0,0,0,0,0,0,>4000,0,0,"@$OT.@S$UTIL",0,0,0,0,0,0)H.IF @$$CC,NE,0!:EBATCH T="UTILITY FILE (@$OT.@S$UTIL) DOES NOT EXIST." : .ENDIF% J#*--------------------------------------------------------------------*J.* ***BEGIN PATCHES FOR DNOS 1.3.00  *.J#*--------------------------------------------------------------------*J8*=Pnnnn MJK/XXX01/27/85STR #mmmmmDNOS1.3.008* ',* PROBLEM: MAKE S$UTIL VERSION 1.3.00 ,* '6MPI PF=@$OT.@S$UTIL, MT=OV, MN=VERSION, ADR=>0002,6V=(>332E,>2D31),D=(>332E,>3030), C=>031E ! EC' MRF PN=@$OT.@S$IPL, RN=0, FW=>1964+>24,  V=>1000,  D=>1003,   C=>1003! EC'(MRF PN=@$OT.@S$IPL, RN=0, FW=>1BE8, ( V=(>332E,>2D31),  D=(>332E,>3030),   C=>031E! EC'*$'J#*--------------------------------------------------------------------*J8*=Pnnnn MJK/XXX01/27/85STR #mmmmmDNOS1.3.008* '2* PROBLEM: SIS AND SJS TERMINATE ABNORMALLY.2** SOLUTION: CODE GENERATION PROBLEM. ** '8MPI PF=@$OT.@S$UTIL, MT=TA, MN=SIS, ADR=>DD60+>00D8,8 V=>0028,  D=>0002,   C=>0002! EC'<MPI PF=@$OT.@S$UTIL, MT=TA, MN=SJSSTS, ADR=>D6F2+>00D8, < V=>0028,  D=>0002,   C=>0002! EC'*$' *-------------------------6--------------------------------------------------6H*=P3864 NNN/MJK 01/31/85 STR #18909 DNOS 1.3.0 UTILITY IPL/SLIV H* '>* PROBLEM:MEDIA CHANGE VALIDATION FAILS ON THOSE DISKS >2* (T80,T300,...) THAT ARE INSTALLED BY IPL. 26* THE DATE AND TIME ARE NOT CORRECTLY TRANSFERED 6* ONTO DPD. 8* THIS PROBLEM CAUSES POWER FAIL RECOVERY TO FAIL 8** AND PRODUCE UNPREDICTABLE RESULTS.*<* SOLUTION: CORRECT "MOVE" OF DATE AND TIME INTO DPD. <* ',MRF PN=@$OT.@S$IPL, RN=0, FW=>D32+>122, , V=>CA62, D=>CA60, C=>CA60 EC',MRF PN=@$OT.@S$IPL, RN=0, FW=>D32+>128, , V=>CA62, D=>CA60, C=>CA60 EC'*$',*-----------------------------------------, --------------------------*  :*=P3876 KCS/MJK02/08/85 STR #018844 DNOS 1.3.00 :* '@* PROBLEM: SCS DOES NOT RESOLVE GLOBAL LOGICAL NAME GIVEN @*  AS CHANNEL PATHNAMED * SOLUTION: SET FLAGS IN CALL TO NAME MANAGER TO RESOLVE LOCAL D2*  AND GLOBAL LOGICAL NAMES IN MODULE SCMAIN 2* '8MPI PF=@$OT.@S$UTIL, MT=TA, MN=SCS, ADR=>C0A0+>001E,8 V=>0080,! D=>0090,! C=>0090 ! EC'*$'J#*--------------------------------------------------------------------*JH*=P3886 EBM/MJK 2/18/85STR #18979DNOSUTILITY 1.3.00GETACNH* 'D * PROBLEM: PATHNAMES STARTING WITH A SITE NAME ARE NOT HANDLEDD*  PROPERLY. * SOLUTION: IN GETACN, WHEN M *OVING THE COLON FROM THE PROMPT TO THE*6*  PATHNAME BUFFER, REPLACE THE MOV WITH A MOVB 6* '8MPI PF=@$OT.@S%%$UTIL, MT=TA, MN=BD,ADR=>1F6E+>5A , 8V=(>CCB1) ,D=(>DCB1) , C=>DCB1EC'*$'8MPI PF=@$OT.@S$UTIL, MT=TA, MN=CD,ADR=>2830+>5A , 8V=(>CCB1) ,D=(>DCB1) , C=>DCB1EC'*$'8MPI PF=@$OT.@S$UTIL, MT=TA, MN=RD,ADR=>137C+>5A , 8V=(>CCB1) ,D=(>DCB1) , C=>DCB1EC'*$'8MPI PF=@$OT.@S$UTIL, MT=TA, MN=VB,ADR=>0A5A+>5A , 8V=(>CCB1) ,D=(>DCB1) , C=>DCB1EC'*$'8MPI PF=@$OT.@S$UTIL, MT=TA, MN=VC,ADR=>0CE4+>5A , 8V=(>CCB1) ,D=(>DCB1) , C=>DCB1EC'*$'@J#*--------------------------------------------------------------------*JH*=P3887 EBM/MJK 2/18/85STR #18980DNOSUTILITY 1.3.00VBTEXTH* 'F!* PROBLEM: "VERIFICATION ERROR EXPECTED" WON'T FIT ON VDT SCREENF@* SOLUTION: REDUCE THE CHARACTER COUNT OF THE PRINT STRING. @* '8MPI PF=@$OT.@S$UTIL, MT=TA, MN=VB,ADR=>2FC8+>57C, 8V=(>2C20) ,D=(>1E20) , C=>1E20EC'*$'J#*--------------------------------------------------------------------*JH*=P3888 EBM/MJK 2/18/85STR #18981DNOSUTILITY 1.3.00RDBLK H* ':* PROBLEM: FSPCB USES R4 BUT ONLY PUSHES THROUGH R3 :0* SOLUTION: CHANGE TO USE R1 INSTEAD OF R4 0* ' MPI PF=@$OT.@S$UTIL, MT=TA, MN=RD,ADR=>23CE+>230,  V=(>0204,>0008,>C884) ,& D=(>0201,>0008,>C881) , C=>CA88&EC'8MPI PF=@$OT.@S$UTIL, MT=TA, MN=VB,ADR=>1A1A+>230, 8 V=(>0204,>0008,>C884) ,& D=(>0201,>0008,>C881) , C=>CA88&EC'*$'J#*--------------------------------------------------------------------*JF*=P3891 BJF/  2/18/85STR #18984DNOSUTILITY 1.3.00TINFO F* '2* PROBLEM : MTS TO NON-EXISTANT 931 HANGS JOB20* SOLUTION: DONT BE NICE, USE TTY DEFAULTS 0* ':MPI PF=@$OT.@S$UTIL, MT=PR, MN=SCI990,ADR=>5748+>88, :V=(>2FD3,>C4D3), D=(>1000,>1000),C=>0000 EC'*$'* '@*-------------------------------------------------------------@ -------* B* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH DNOS 1.3.00 *BJ#*--------------------------------------------------------------------*JJ#*--------------------------------------------------------------------*JJ#* MAKE AN ENTRY INTO THE .S$HSTRY FILE FOR THE LAST PATCH USING EUD.*JJ!* DO THIS ONLY IF THE PATCHES APPLIED WITHOUT ERROR. RECORD THE  *JJ#* LAST PATCH NUMBER, USING NONE IF THERE ARE NO PATCHES AND FAIL IF *J$* THE PATCH PROCESS FAILS.  *$J#*--------------------------------------------------------------------*J.IF @$E$C, EQ, 0 EUD  LAST PATCH=3891,  RELEASE NUMBER=1.3.00 .ELSE % EUD  LAST PATCH=FAIL,  RELEASE NUMBER=1.3.00.ENDIF%>CM MESSAGE="@$E$C ERRORS ON DNOS UTILITIES PATCH STREAM" > EBATCH LIST SYNONYMS=YES, 8 TEXT="@$E$C ERRORS ON DNOS UTILITIES PATCH STREAM", 8 CODE=@$E$C -------------------------------------------*JJ#* MAKE AN ENTRY INTO THE .S$HSTRY FILE FOR THE LAST PATCH USING EUD.*JJ!* DO THIS ONLY IF THE PATCHES APPLIED WITHOUT ERROR. RECORD THE  *JJ#* LAST PATCH NUMBER, USING NONE IF THERE ARE NO PATCHES AND FAIL IF *J$* THE PATCH PROCESS FAILS.  *$J#*--------------------------------------------------------------------*J.IF @$E$C, EQ, 0 EUD  LAST PATCH=3891,  RELEASE NUMBER=1.3.00 .ELSE % EUD  LAST PATCH=FAIL,  RELEASE NUMBER=1.3.00.ENDEOD  REQPROC D 7wwOBJECT D 6766wwRPROOT P 7^z4w@L 0035ERPROOT M0192NFDATA0001M0010NFER000002M0010NFER1000037F256FRPRO0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER8000077F23EFRPRO0002NN!M0010NFERF00008M0072NFPTR 0009M00ECNFSHDD000AM0044NFWORD000B7F155FRPRO0003NP000N!00001P00020001P00040001P00060001P00080001P000A0001P000C00017F2DAF RPRO0004NN!P000E0001P00100001B000FP00120001P00160001P00180001P001800017F399F RPRO0005NN!P001A0001P001C0001B0000P001E0001P00200001P00220001P002400017F399F RPRO0006NP0P"0260001P00280001P002A0001P002C0001P00340001P00360001P003800017F2BDF RPRO0007PR#P003A0001P003C0001P003E0001P00400001P00420001P00440001P004600017F2B4F RPRO0008RP#P00480001P004A0001P004C0001P004E0001P00500001P00520001P005400017F2ACF RPRO00P09R#P00560001P00580001P005A0001P005C0001P005E0001P00600001P006200017F2A4F RPRO0010RR#P00640001P00660001P00680001P006A0001P006C0001P006E0001P007000017F29CF RPRO0011RF"P00720001P00740001P00760001P00780001P007A0001P007A0001P007C00017F298FF RPRO0012R#P007E0001P00800001P00820001P00840001P00860001P00880001P008A00017F2A1F RPRO0013RR#P008C0001P008E0001P00900001P00920001P00940001P00960001P009800017F299F RPRO0014R<P009A0001P009C0001P009E0001P00AC0001B0080P00AE0001P00B2000<17F327F RPRO0015R#P00B60001P00BA0001P00BE0001P00C00001P00C20001P00C40001P00C600017F258F RPRO0016RR#P00C80001P00CA0001P00CC0001P00CE0001P00D00001P00D20001P00D400017F243F RPRO0017R6P00D60001P00D80001P00DA0001P00DC0001P00DE0001P00E0006 01P00E800017F235F RPRO0018R#P00F00001P00F80001P00FA0001P00FC0001P00FE0001P01000001P010200017F25FF RPRO0019RR#P01040001P01060001P010C0001P010E0001P01160001P01180001P011A00017F2B7F RPRO0020R,P011C0001P011E0001P01200001P01220001P01240,(001P01280001P012C00017F2B6F RPRO0021(R#P012C0001P012E0001P01300001P01320001P01340001P01880001P018A00017F2A7F RPRO0022RP"P018C0001P018E0001P01900001P00000002B0001B0203B0405B0607B08097F309F RPRO0023P$B0A0BB0C0DB0E0FP00000003B1011B1213$0B1415B1617B1819B1A1BB1C1DB1E1F7F1B9FRPRO00240R#P00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B30317F245F RPRO0025RR#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B46477F1D6FRPRO0026R B4849B4A4BB4C4DB4E4FP000:00007B8081B8283B8485B8687B8889B8A8BB8C8D7F14FFRPRO0027:R#B8E8FP00000008BF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP000000097F0C9F RPRO0028RR#P00020009P00040009P00060009P00080009P000A0009P000C0009P000E00097F28DF RPRO0029RP00100009P0012D0009P00140009P00160009P00180009P001A0009P001C00097F29BF RPRO0030DR#P001E0009P00200009P00220009P00240009P00260009P00280009P002A00097F293F RPRO0031RR#P002C0009P002E0009P00300009P00320009P00340009P00360009P003800097F28BF RPRO0032RP003N!A0009P003C0009P003E0009P00400009P00420009P00440009P004600097F27CF RPRO0033NR#P00480009P004A0009P004C0009P004E0009P00500009P00520009P005400097F274F RPRO0034RR#P00560009P00580009P005A0009P005C0009P005E0009P00600009P006200097F26CF RPRO0035R@R#P00640009P00660009P00680009P006A0009P006C0009P006E0009P007000097F264F RPRO0036RR#P0000000AB5750B5750B5750B5750B5750B5750B5750B5750B5750B5750B57507F217FRPRO0037RN&B5750B5750B5750B5750B5750B3333B3333B3333B3333B3333B3333B3333B33337F1FAF RPRON0038R(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F RPRO0039RR(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F RPRO0040RD!B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337DF213F RPRO0041R(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F RPRO0042RR(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F RPRO0043R:B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B: 3333B33337F213F RPRO0044R(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F RPRO0045RR#B3333B0000B0000P0000000BB0003B0005B0006B0007B0009B000AB000CB000D7F26FFRPRO0046R0B000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB0$8000B4000B2000B10007F19BF RPRO0047$R(B0800B0400B0200B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE007F257F RPRO0048RL A0000BC2A0N00380001B1303BC260N00100001B0089B04E0B0000B020A7F38BFRPRO0049L,N0020000ABC24BBC120N00040009B0205B0050BA14,(4B022BBFFE2B834BB160F7F1FDF RPRO0050(R#B07D5B8BA0C0356BFFFEB160AB064EBD920N00060002B0009B020BB3000BE90B7F186FRPRO0051RN!B0012B0460B0000BC909B0016BC90DB0002BC90EB0004BC90FB0006B49207F2CAFRPRO0052N&N002E000BB0012B04E0N01340001B05A4B00&.22B1702B05A4B0020BC1C4B02277F253F RPRO0053.R(B0050BC009B0500B130EB020BB0003BC057B0241BFFE0B8040B1B07B8DF7B060B7F17BF RPRO0054RR#B16F8BD020N00050002B0460C01E2B04C7B0795BD1D9BD207B113CB0287B41007F1D0FRPRO0055R B1641B2260N0040000BB1602B08460C0192BC089B0203B0008B2E82C01E2B2E817F20EFRPRO00568R(C01E6B0795BC0A9B0004B0203B0001B2E82C01E2BC2C2B0795BD1DBB115BBD2077F15CF RPRO0057RR(BC047B9801B0000B1B59B0961BC0A1B0000B0A22B1751B05C1BC061C00DEBC0617F18FF RPRO0058RB0000B0A81B174ABB0201B8000B0795BD029B0003B0260B8000BC800N013400017F238FRPRO0059BR#BC24BB2260N0040000BB1343BB920N00010002B000FB1008B9807B0000B1B397F24FF RPRO0060RR#B0206B0000B0227B8000B101CBD1C7B1605B2260N0040000BB1332B0460B00007F247FRPRO0061RB9807NL 00000006B160DB2260N0040000BB132AB020640000RP%%STABE000001027F223F RPRO0062LR(BC196BC1A6B0002B06A0B0000B0000B0460B0000B9807C00D6B1B1AB0206C00E87F1C0F RPRO0063RN!B0967BA187BC1F6B1314B0287BFFFFB1341BC196BC307B0A1CB1703B22607F255FRPRO0064NR#N0040000BB130DBD0E6B0008BC30CB113ABC0C7B06C3B1037BD020N000100027F20AF RPRO0065RR#B100FBD020N00000008B100CB0203B0002BC089B2E82C01E2B2E81C01E6BD0207F1E4FRPRO0066RN#N00010008B1002BD020N00030008B07D5BDA40B0001B0460C0150BC30FB024C7F24EF RPRON0067L B0080B130BBC80DN001A000ABC80EN001C000ABC80FN001E000AB02E07F31FF RPRO0068LP"N0000000ABC120N00040009B1603B0420B0000B0025B020AN0020000ABD0E07F2B7FRPRO0069PL"N00040003B1007BD0C0B1005BD0E0N000B0002B1002BD0E0N00040002B04607F29CFRPROL0070R(C02F4B0983BC089B2E82C01E2B2E81B0000B130BB0795BD059B0202B0004B98817F191F RPRO0071RR(C0358B1304B0602B18FBB0460C01E6B0A1CB1816BC0C9B0A57B09D7B1305B02AB7F163F RPRO0072RD!B0795BDEF9B0607B15FCBC2C6B0A1CB1706B020BB0000BD308B1102B020BC014A7DF153F RPRO0073R(B069BC01ECB0460C01B2BC2E6B0000B0A3BB1704BC0E4B0010B0AB3B17A7BC0497F14FF RPRO0074RR#BC086B0203N01340001B06A0B0000C01E2BC2E6B0000B0A4BB170EBC2E6B00027F1E0FRPRO0075R:BC18BB0A1CB1706B020BC0236BD308B11E0B020BC023EB069BC01ECB: 101CBD9117F14AF RPRO0076R#B0009BC081B0222BFFFEBC066B0002BC2E6B0000B0A9BB1702BA060N001200097F1B9FRPRO0077RR#B06A0B0000C02AEB0460C0044BC042B0221B0002BD920N00000002B0009BD8607F226FRPRO0078R0N000F0007B0001B1004B06A0B0000BFFFFB1013BC241BC0$ 049B06A0C031EB02247F1DBFRPRO0079$R#B0050BC0A1BFFF8B07D4BD8A1B0001B0001B0221BFFEEB0281N01340001B13027F1ADFRPRO0080RR(B2E83BFFFFB0460C0246BC90DB0002BC90EB0004BC90FB0006BC084BC064B00147F13EF RPRO0081R&B06C3B06A0B0000B4018BFFFFBD064B0009B&.1302B0460C02ACB0460C02F2BC68B7F161F RPRO0082.R#B06A0C033CC0338B0A42B1701B05C4B09B2BE922N0022000BB0032BC129BFFFA7F19DFRPRO0083RR#BC2DAB045BBC129BFFFABD0A9BFFEEB1506B1305B7920N00010002B000FB05CB7F130FRPRO0084R B045BBC2DBB10FDB2FCFB0406B091BB24007F7CDF RPRO0085J40000ASSUME501B4ILLXOP30130IOPREP3030ANFCAL03027ANFCL027F230F RPRO0086JJ30282NFCL06301D4NFCRSH302C4NFEOBR302A6NFQUEH40000NFRTA 7F247F RPRO0087J>30318NFSRTN40000NFTERM3031CNFTRTN3000ENOSCHD40000PRCK 7F21E>F RPRO0088J30262RPBUF 5033CRPDIEC40000RPPRCK50000RPROOT502CCRPRTN97F1DBF RPRO0089JJ502C2RPRTNC502CARPRTNE40000RPSGCK30154RPSMAX3015ARPSTAB7F182F RPRO0090JJ5031ERPUIEI30116RPUMAX3011CRPUTAB40000RTA  40000SCALL 7F281F RPRO0091JL( 40000SGCK 40000TRTN7FAF1FRPRO0092(D:  RPROOT  01/26/85 11:36:38  SDSMAC 1.2.0 83.138RPRO0093D HERE ID 0280  * WITHOUT BUFFERING.THE INITIATE EVENT REQUEST BLOCKD 0281  *LOOKS LIKE: 1 0282  *---- RPDQUE P714w@L 001A0RPDQUE M0072NFPTR 0001M0010NFER000002M0010NFER1000037F27DFRPDQ0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0044NFWORD00077F1FAFRPDQ0002NN!M00DANFCLKD0008P00000001P00020001P00040001P00060001P000800017F2F4FRPDQ0003NP000N!A0001P000C0001P000E0001P00100001P00120001P00140001P001600017F2C9F RPDQ0004NR#P00180001P001A0001P001C0001P001E0001P00200001P00220001P002400017F2C1F RPDQ0005RR#P00260001P00280001P002A0001P002C0001P002E0001P00300001P003200017F2B9F RPDQ0006R@R#P00340001P00360001P00380001P003A0001P003C0001P003E0001P004000017F2B1F RPDQ0007RR#P00420001P00440001P00460001P00480001P004A0001P004C0001P004E00017F2A9F RPDQ0008RN#P00500001P00520001P00540001P00560001P00580001P005A0001P005C00017F2B7F RPDQN0009R#P005E0001P00600001P00620001P00640001P00660001P00680001P006A00017F2AFF RPDQ0010RP"P006C0001P006E0001P00700001P00000002B0001B0203B0405B0607B08097F312F RPDQ0011PF"B0A0BB0C0DB0E0FP00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1BF9FRPDQ0012R#P00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B30317F245F RPDQ0013RR#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B46477F1D6FRPDQ0014R<B4849B4A4BB4C4DB4E4FP00000007B0003B0005B0006B0007B0009B000<AB000C7F1F4FRPDQ0015R(B000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B20007F188F RPDQ0016RR(B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B0004B0002B00017F281F RPDQ0017R2BFE00P00000008B0007B0000B0000B0000B0000B0000B0002" 0B0000B0000B00007F2A9FRPDQ0018"R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPDQ0019RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPDQ0020R(B0000B0000B0000B0000B0000B0000B0000B00(,00B0000B0000B0000B0000B00007F2AFF RPDQ0021,R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPDQ0022RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPDQ0023RB0000B0000B0000B0000B0000B00600B0000B0000B0000B003CB0018B016DB00007F275F RPDQ00246R(B0000B0000B0001B0000B0000B0000B6800B0000B0000B0000B0000B0006BFE017F26EF RPDQ0025RR(B7F80B0000B1FE0B0000B0000B0000B0000B0000A0000B2F06B0221B0038BC0917F214F RPDQ0026R BC452BCE81B05C2B98@12N00040004B137EBC062BFFF8BC022BFFFABC100B02207F159FRPDQ0027@R#B0050B8060N00200007B1308BC0E4B0010B0A63B1804B07D0BD862B0001B00017F228FRPDQ0028RR#B04C3BD0D2B112BB90E0N00020006B1621B98A0N00010002B0001B1362BC0E27F235F RPDQ0029R B0008BC1 J$A4B0032B4903B0032B0546B40C6B07D0BC843B0004BC162B000ABC1A47F1A1F RPDQ0030JN!B0034B4905B0034B0546B4146B07D0BC845B0006BE143B164AB07D0BD8607F2B8FRPDQ0031NR#N00020002B0001B1045B90E0N000F0006B1342B0963B0206B0000B1005B02237F2A1F RPDQ0032RB8L 000B0963B0206B0000BA183BC126B0002BC124B0004B1333BC6B4B80607F2EFFRPDQ0033LR#N00200007B1321BC0E2BFFFABC0E3B0010B0A63B181BBC514B1319BD174B09857F195FRPDQ0034RR#BC2C5BA2C2BA141BD0F4B0983B2160N00400007B130AB22E0N00400007B13077F215F RPDQ0035RT@R(B0603B1305B07D0BCD7BB0643B15FCB11EAB07D0BDD7BB0603B15FCB10E5BC05A7F106F RPDQ0036RR(B130CBC196B0A36B1707BC181B0201B0000BD2D2B1102B0201B0000B0691B00007F1E9F RPDQ0037RN#B0222BFFEEB0282B0000B130DBC022B0002B0A70B1704B48A0N002E0007B00027F1EBFRPDQN0038R(B1005B0722B0004BC042B2E83BFFFFB064ABC05ABC451B1302B0460C0006BC0607F176F RPDQ0039RR#N00120001BC0A1B000CB9822B0007N00030002B1326B8861B000AB0004B12227F27FF RPDQ0040RD!B0721B0004B05A0N008E0008B0201B0022B04C2B2E85C019CB0222B0012B07227FD226FRPDQ0041P"BFFF8BC8A0N00440001BFFFCBD8A0N00080002B0002BC060N00120001BC0617F20DFRPDQ0042PR#B000CBC881B0006BD860N00050002B0007B0201B0000B0642B06A0B0000BFFFF7F1FAFRPDQ0043RB04C0B2EC67FD7EFRPDQ0044 40000GTA0 30192JOBQUE301002NFCL023010ANFCL0640000NFGTA07F327F RPDQ00450J30198NFQUEH40000NFRTA 50000RPDQUE30090RPSTAB3009CRPUTAB7F203F RPDQ0046J>40000RTA 40000SPOP40000SPUSH 30116SYSBUF7F59AF RPDQ0047>6:  RPDQUE  01/26/85 11:07:01  SDSMAC 1.2.0 836.138RPDQ0048YMT"0A+ A00130252210  IF ZERO, DON'T CHANGE PTR>7 0vihRTO8"ERROR: LISTING ACCESS NAME SAME AS ERROR ACCESS NAME"8 .EXIT  .ENDIF  .SYN $XMA$OPL= "L" , $XMA$MC RPGSVC P7Y47w@L 00306RPGSVC M00DANFCLKD0001M0192NFDATA0002M0010NFER0000037F231FRPGS0001LN!M0010NFER100004M0010NFER200005M0010NFER300006M0010NFER4000077F245FRPGS0002NR#M0010NFERF00008M0072NFPTR 0009M0044NFWORD000AP00000001B0007B00007F137FRPGS0003RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPGS0004RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPGS0005RN&B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPGSN0006R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPGS0007RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPGS0008RD!B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007DF2AFF RPGS0009R(B0000B0000B0000B0000B003CB0018B016DB0000B0000B0000B0001B0000B00007F274F RPGS0010RR(B0000B6800B0000B0000B0000B0000B0006BFE01B7F80B0000B1FE0B0000B00007F21EF RPGS0011R:B0000B0000B0000P00000002P00020002P00040002P00060002P0008:00027F395FRPGS0012N!P000A0002P000C0002P000E0002P00100002B000FP00120002P001600027F381F RPGS0013NN!P00180002P00180002P001A0002P001C0002B0000P001E0002P002000027F38BF RPGS0014N<P00220002P00240002P00260002P00280002P002A0002P002C0002P003<400027F2C0F RPGS0015R#P00360002P00380002P003A0002P003C0002P003E0002P00400002P004200027F2ABF RPGS0016RR#P00440002P00460002P00480002P004A0002P004C0002P004E0002P005000027F2A3F RPGS0017R2P00520002P00540002P00560002P00580002P005A0002P002" 5C0002P005E00027F29BF RPGS0018"R#P00600002P00620002P00640002P00660002P00680002P006A0002P006C00027F2A9F RPGS0019RR#P006E0002P00700002P00720002P00740002P00760002P00780002P007A00027F2A1F RPGS0020R(P007A0002P007C0002P007E0002P00800002P0(,0820002P00840002P008600027F291F RPGS0021,R#P00880002P008A0002P008C0002P008E0002P00900002P00920002P009400027F289F RPGS0022RN!P00960002P00980002P009A0002P009C0002P009E0002P00AC0002B00807F33BF RPGS0023N"P00AE0002P00B20002P00B60002P00BA"20002P00BE0002P00C00002P00C200027F247F RPGS00242R#P00C40002P00C60002P00C8000%%2P00CA0002P00CC0002P00CE0002P00D000027F23AF RPGS0025RR#P00D20002P00D40002P00D60002P00D80002P00DA0002P00DC0002P00DE00027F232F RPGS0026R P00E00002P00E80002P00F<00002P00F80002P00FA0002P00FC0002P00FE00027F22AF RPGS0027<R#P01000002P01020002P01040002P01060002P010C0002P010E0002P011600027F2C9F RPGS0028RR#P01180002P011A0002P011C0002P011E0002P01200002P01220002P012400027F2B3F RPGS0029RP01280002P01F2C0002P012C0002P012E0002P01300002P01320002P013400027F2AAF RPGS0030FR#P01880002P018A0002P018C0002P018E0002P01900002P00000003B0001B02037F263FRPGS0031RR#B0405B0607B0809B0A0BB0C0DB0E0FP00000004B1011B1213B1415B1617B18197F20CFRPGS0032RB1P"A1BB1C1DB1E1FP00000005B2021B2223B2425B2627B2829B2A2BB2C2DB2E2F7F1A1FRPGS0033PR#P00000006B3031B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000007B40417F22FF RPGS0034RP#B4243B4445B4647B4849B4A4BB4C4DB4E4FP00000008BF0F1BF2F3BF4F5BF6F77F136FRPGS00P35R(BF8F9BFAFBBFCFDBFEFFP00000009P00020009P00040009P00060009P000800097F13AF RPGS0036RR#P000A0009P000C0009P000E0009P00100009P00120009P00140009P001600097F291F RPGS0037RF"P00180009P001A0009P001C0009P001E0009P00200009P00220009P002400097F289FF RPGS0038R#P00260009P00280009P002A0009P002C0009P002E0009P00300009P003200097F281F RPGS0039RR#P00340009P00360009P00380009P003A0009P003C0009P003E0009P004000097F279F RPGS0040R<P00420009P00440009P00460009P00480009P004A0009P004C0009P004<E00097F271F RPGS0041R#P00500009P00520009P00540009P00560009P00580009P005A0009P005C00097F27FF RPGS0042RR#P005E0009P00600009P00620009P00640009P00660009P00680009P006A00097F277F RPGS0043R2P006C0009P006E0009P00700009P0000000AB0003B0005B02 006B0007B00097F2FAF RPGS0044 R(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF RPGS0045RR(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF RPGS0046R*B0002B0001BFE00A0000BC201B0207B0002BC1A1*& B0002B1306B8821B00027F31CFRPGS0047&L N0020000AB132EB39A0N005A0002BA1E0N009A0001B1701B0586BA1A07F36FF RPGS0048LR#N00980001BCA06B0002BCA07B0004B0648B0202N00000009BC042BC092B130C7F241F RPGS0049R*B8886B0004B1A09B1BF9B8887B0006B1A05B1BF5**B98A8BFFF1BFFF1B1BF1BC6117F0E1F RPGS0050*R#BC448BC128BFFFCBD0E0N00020007B90E8B0002B1302BD0E0N00050003BD9037F1D4F RPGS0051RR#B0009BC0E8BFFFAB106AB0206B7FFFBCA06B0002BCA20N0020000AB0004B10D67F16CFRPGS0052R BC183B0795BC0A6B0002B0203B000A 4B2E82C00A8B2E81C00A8B0201N009C00017F1DAFRPGS00534R(B0300B0002B07D5BCCB1B0643B15FCB0300B000FB07D5BD980B0001B0460B00007F1ACF RPGS0054RR#BC064B0010B0241B0080B1303B4901B0010B104ABD920N00060003B0009B10407F256FRPGS0055R B06A0B0000C0150B06C1>BC181B9801N00060003B1304BE8A0N0032000AB00107F25EF RPGS0056>R#B1036BC060N00060009B06A0B0000BFFFFBC006B1030B0795BC013B0240B00FF7F1C9FRPGS0057RP"B1602B0200B0004B3820N005A0002BA801N005E0002B0720N00900002B04E07F2BAFRPGS0058PB0000B1023B0B6A0C00CCC0150B06C1B9801N00050003B1618BC181B02017F338F RPGS0059BR#N00000009BC1C1BC051B8842BFFFCB16FBBC5D1B05C1BD860N00010003B00017F1CAF RPGS0060RR(B06A0B0000B1002BFFFFBC006B1006B07D5BD8C0B0001B0460B0000BD001B07D57F18EF RPGS0061RBD8C0BL%0001B0460C00B0B0201B8000B0795BC013B0A80B0280B0400B1202B80407F1F3F RPGS0062LR(B12F0BD1E4B000BB0287B0500B1105B0280B0100B1102B0220B0400BD200BD9087F1E7F RPGS0063RR(B000BBC044B06A0B0000BFFFFBD007B1304BD208B13DCB9008B11DAB0720C010C7F151F RPGS0064RT@R#B10D7B0583B07D5BDCE0N00000003B07D5BCCE4B002EB07D5BC4E4B0030B10CF7F167FRPGS0065RR(B0583B07D5BDCE4B000DB07D5BDCE4B000CBD064B002CB1601B0701B07D5BDCC17F11AF RPGS0066RN#BC060N00060009B07D5BDCE1B0002B07D5BDCE1B0003B10B9B0583B07D5B54E07F194FRPGSN0067R#N000F0008BC1A4B003EB130CB07D5BDCE6B0000B07D5BCCE6B0002B07D5BCCE67F149FRPGS0068RR(B0004B07D5BC4E6B0006B10A5BC181BC1C2BC042B06C1B06A0C0112C0150B07007F199F RPGS0069RD!BC186B1103BC1E4B002CB1305B91C0B1303B9887B002CB1690B06C1B07D5BD8C17DF16AF RPGS0070R(B0003B04C0B108ABCE8BB04C0BC181BC0A6B0002B0203B000AB2E82C0262B02017F194F RPGS0071RR#N009C0001B0300B0002B0795BCC72B0643B15FCB0300B000FBD980B0001B161A7F1EBFRPGS0072R:B0201B0032B04C2B2E84B0000B0201B0500BC881B0002B0201B1E00B: D881B00127F1FCF RPGS0073R(B0981BC002B0220B0014B0203C02A0BDC33B0601B15FDB06A0B0000B0000B04C07F1D4F RPGS0074RR(BC046B2EC0B2A2AB2A2AB2044B4154B4520B414EB4420B5449B4D45B2049B4E497F165F RPGS0075R0B5449B414CB495AB4544BC0A0N00040009BD041B1303B00$ 6A0C0216C02E0BC0627F1DAFRPGS0076$R#B003EB160ABC062B0010B0A31B1114BD020N000F0008B1011BD020N000E00087F249F RPGS0077RP"B100EB9860N00070003B0000B1603BD020N000D0008B1007BE8A0N0028000A7F28DFRPGS0078P(B0010B04E2B003EB2E83BFFFFB0460C01507F7(FCF RPGS0079J 40000ASSUME40000GTA 30296LGQBLK3013ANFCAL040000NFEOBR7F2CAF RPGS0080JJ40000NFGTA 300E8NFPACT30270NFPWOT40000NFRTA 3014CNFSRTN7F22AF RPGS0081JJ30158NFTRTN3018CPMMPRI302C8PMTSCH40000PRCK 3019ERESCHD7F1FAF RPGS0082J@J500CARPAST 50110RPATDL5015ARPCTP 500F0RPETS 50080RPGDT 7F23CF RPGS0083JJ501E4RPGEAS501B8RPGSID501A2RPGTBP5023CRPIDT 40000RPPRCK7F1D1F RPGS0084JJ5020CRPPTS 502BERPREA 40000RPSGCK50000RPTDLY500B2RPUNCW7F1D4F RPGS0085J40000RTA 400<00SCALL 40000SGCK 40000SPOP 40000SPUSH 7F392F RPGS0086< 40000TRTN 7FD4DF RPGS0087D:  RPGSVC  01/26/85 11:08:36  SDSMAC 1.2.0 83.138RPGS0088D066' TDL140 EQU $ : 0187 0066 D903  MOVB R3,@TSBSTA(R4)  SET NEW STATERPSBID P8-4w@L 00058RPSBID M0010NFER000001M0010NFER100002M0010NFER2000037F2B4FRPSB0001LN!M0010NFER300004M0010NFER400005M0010NFER500006M0010NFER6000077F23DFRPSB0002NR#M0010NFER700008M0192NFDATA0009M0072NFPTR 000AP00000001B0001B02037F165FRPSB0003RR#B0405B0607B0809B0A0BB0C0DB0E0FP00000002B1011B1213B1415B1617B18197F20EFRPSB0004RR#B1A1BB1C1DB1E1FP00000003B2021B2223B2425B2627B2829B2A2BB2C2DB2E2F7F1A3FRPSB0005RN#P00000004B3031B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000005B40417F233F RPSBN0006R#B4243B4445B4647B4849B4A4BB4C4DB4E4FP00000006B5051B5253B5455B56577F1C0FRPSB0007RR#B5859B5A5BB5C5DB5E5FP00000007B6061B6263B6465B6667B6869B6A6BB6C6D7F163FRPSB0008RD!B6E6FP00000008B7071B7273B7475B7677B7879B7A7BB7C7DB7E7FP000000097F1DBDF RPSB0009R#P00020009P00040009P00060009P00080009P000A0009P000C0009P000E00097F28DF RPSB0010RN!P00100009B000FP00120009P00160009P00180009P00180009P001A00097F36CF RPSB0011N>P001C0009B0000P001E0009P00200009P00220009P00240009P002600097>F373F RPSB0012R#P00280009P002A0009P002C0009P00340009P00360009P00380009P003A00097F279F RPSB0013RR#P003C0009P003E0009P00400009P00420009P00440009P00460009P004800097F284F RPSB0014R8P004A0009P004C0009P004E0009P00500009P00520009P005400098P005600097F275F RPSB0015R#P00580009P005A0009P005C0009P005E0009P00600009P00620009P006400097F26DF RPSB0016RR#P00660009P00680009P006A0009P006C0009P006E0009P00700009P007200097F265F RPSB0017R.P00740009P00760009P00780009P007A0009P007A000.& 9P007C0009P007E00097F24DF RPSB0018&R#P00800009P00820009P00840009P00860009P00880009P008A0009P008C00097F26AF RPSB0019RR#P008E0009P00900009P00920009P00940009P00960009P00980009P009A00097F262F RPSB0020R$P009C0009P009E0009P00AC0009B0080P0$,0AE0009P00B20009P00B600097F2F9F RPSB0021,R#P00BA0009P00BE0009P00C00009P00C20009P00C40009P00C60009P00C800097F21DF RPSB0022RR#P00CA0009P00CC0009P00CE0009P00D00009P00D20009P00D40009P00D600097F20CF RPSB0023RP00D80009P00DA0009P00DC0009P600DE0009P00E00009P00E80009P00F000097F201F RPSB00246R#P00F80009P00FA0009P00FC0009P00FE0009P01000009P01020009P010400097F238F RPSB0025RR#P01060009P010C0009P010E0009P01160009P01180009P011A0009P011C00097F26FF RPSB0026R P011E0009P01200009@P01220009P01240009P01280009P012C0009P012C00097F27DF RPSB0027@R#P012E0009P01300009P01320009P01340009P01880009P018A0009P018C00097F269F RPSB0028RR#P018E0009P01900009P0000000AP0002000AP0004000AP0006000AP0008000A7F276F RPSB0029R P000A000 JAP000C000AP000E000AP0010000AP0012000AP0014000AP0016000A7F259F RPSB0030JR#P0018000AP001A000AP001C000AP001E000AP0020000AP0022000AP0024000A7F251F RPSB0031RR#P0026000AP0028000AP002A000AP002C000AP002E000AP0030000AP0032000A7F249F RPSB0032RV@R#P0034000AP0036000AP0038000AP003A000AP003C000AP003E000AP0040000A7F241F RPSB0033RR#P0042000AP0044000AP0046000AP0048000AP004A000AP004C000AP004E000A7F239F RPSB0034RN#P0050000AP0052000AP0054000AP0056000AP0058000AP005A000AP005C000A7F247F RPSBN0035R#P005E000AP0060000AP0062000AP0064000AP0066000AP0068000AP006A000A7F23FF RPSB0036RP"P006C000AP006E000AP0070000AA0000B1800C001CB0000B000EB0E00B00007F296FRPSB0037PF"B9A00B0000B0000B0012B0E00B0000B0004B0E00BD021B0009B09E0B130CBD8207F1FF1F RPSB0038R#N00040001C0019B0910B1802B0660C0019B0202C000CB06A0B0000B0000BC0A17F255FRPSB0039RR#BFFFABD8A0N000F0002B0009BC081B0642B0201B0000B06A0B0000BFFFFB04607F1A0FRPSB0040RB00007FEC7F RPSB0041 30050NFQUEH30056NFSRTN50000RDB ,S1F30038RPBUF 3003ARPRTNE7F21BF RPSB0042, 3004CSBTQUE7FCEBF RPSB0043D:  RPSBID  01/26/85 11:38:53  SDSMAC 1.2.0 83.138RPSB0044D,1 USE SECOND SVC SEGMENT?:05XX)  %%RPPEVT P8 4 wL 0006ERPPEVT M0010NFER000001M0010NFER400002M0010NFERE000037F273FRPPE0001LR#M0072NFPTR 0004M0044NFWORD0005P00000001B0001B0203B0405B0607B08097F193FRPPE0002RR#B0A0BB0C0DB0E0FP00000002B4041B4243B4445B4647B4849B4A4BB4C4DB4E4F7F18AFRPPE0003RTL P00000003BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP000000047F220FRPPE0004LR#P00020004P00040004P00060004P00080004P000A0004P000C0004P000E00047F2B0F RPPE0005RR#P00100004P00120004P00140004P00160004P00180004P001A0004P001C00047F2BEF RPPE0006RT@R#P001E0004P00200004P00220004P00240004P00260004P00280004P002A00047F2B6F RPPE0007RR#P002C0004P002E0004P00300004P00320004P00340004P00360004P003800047F2AEF RPPE0008RN#P003A0004P003C0004P003E0004P00400004P00420004P00440004P004600047F29FF RPPEN0009R#P00480004P004A0004P004C0004P004E0004P00500004P00520004P005400047F297F RPPE0010RR#P00560004P00580004P005A0004P005C0004P005E0004P00600004P006200047F28FF RPPE0011RD!P00640004P00660004P00680004P006A0004P006C0004P006E0004P007000047F2D87F RPPE0012R#P00000005B0003B0005B0006B0007B0009B000AB000CB000DB000EB000FB00127F25AFRPPE0013RR(B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B1000B0800B0400B02007F1BBF RPPE0014R:B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE00A0000B: C243B07D57F22AF RPPE0015R#BDA60N00000001B0001B0795BC0E9B0004B0206N000C0004BC196B1325B89837F23BF RPPE0016RN!B0002B16FBB0201B0014B04C2B2E84BFFFFB04D2B0795BD4A9B0003B54A07F266FRPPE0017N4N00000003BECA0N00220005BCCA0N00280005B04F2B04F2B044 F2B0732B04D27F24CFRPPE0018R(B0795BDCA9B0002B0582BCC86B04F2BC042B0795BC459B06A0B0000BFFFFB04607F12CF RPPE0019R:B0000B07D5BDA60N00060002B0001B0460C00607F78AF RPPE0020:D 40000ASSUME40000GTA 3005ANFEOBR40000NFGTA 3006CNFTRTN7F2A6F RPDPE0021450000RPPEVT40000SCALL 40000TRTN 7F7F4F RPPE00224D:  RPPEVT  01/26/85 11:26:45  SDSMAC 1.2.0 83.138RPPE0023D 0252 1000 9 0425 0254 D843  MOVB R3,@FDBMFG(R1)  *** INTO FDB 9 0256 0015 5 0RPCONV P 8( 4Qw@P"0014CRPCONV M0044NFWORD0001M00ECNFSHDD0002P00000001B0003B00057F178FRPCO0001PR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F RPCO0002RP'BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF RPCO00P03R#B0010B0008B0004B0002B0001BFE00P00000002B5750B5750B5750B5750B57507F251FRPCO0004RR(B5750B5750B5750B5750B5750B5750B5750B5750B5750B5750B5750B3333B33337F1DCF RPCO0005RF"B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F2F13F RPCO0006R(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F RPCO0007RR(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F RPCO0008R<B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33< 33B33337F213F RPCO0009R(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F RPCO0010RR(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F RPCO0011R2B3333B3333B3333B3333B3333B3333B3333B3333B3333B332"33B3333B3333B33337F213F RPCO0012"R(B3333B3333B3333B3333B3333B3333B3333B0000B0000A0000B0583B04C0B07D57F215F RPCO0013RR(BDCC0B0795BC05DB1104B07D5BDCE0C00D8B1004B07D5BDCE0C00D6B0501B02237F12CF RPCO0014R(B0004B0206B0005B04C0B3C20N000A0001B022(,1B0030B06C1B07D5BD4C1B06037F21CFRPCO0015,R(B0606B1308BC040B16F3B07D5BD4E0C00D8B0603B0606B16FAB1040BC183B07957F17AF RPCO0016RR(BD0E6B0007B0983B0795BD0E6B0006B02A7B0700B05C7BD237B0209C00D6B9E487F16BF RPCO0017RB1308B9E48B1305B9E48B1303B05689B9648B1626B04C0B0208B0005B04CAB02097F1A6F RPCO00186R(C00D8BD337B9E4CB1603BC28AB161AB100CB9E4CB1517B7319B1115B098CB3AA07F12FF RPCO0019RR#N000A0001BC28AB1610BC28BBA28CB180DB0608B15EABC000B1303B050AB15077F1ACFRPCO0020R B1002BC28AB1104B07<D5BC74AB04C0B1001B0700B07D5BD980B0001B020A7F2B2FRPCO0021<R#N00200002B0460B0000B2D2BB2039B3000B0583B04C0B07D5BDCC0B0795BC05D7F1DAFRPCO0022RR(B0204B0004BD081B0A41B0942B0282B09FFB1202B0222B0700B0222B3000B07D57F1E7F RPCO0023RBDCC2B0604B1F"5F2B10E2BC183B02A7B0203B0004B04CAB05C7B0209C00D8B04C87F163F RPCO0024FR(BD237B9E48B1603BC28AB16D0B100FB9E48B1208B0288B4100B11CAB0288B46007F16DF RPCO0025RJB1BC7B0228BF900B7219B11C3B0988B0A4ABA288B0603B15E6B10B97F388F RPCO0026J 300D4NFTRT @N50000RPCBDA500DCRPCBHA5004ERPCDAB5010ARPCHAB7F204F RPCO0027@ 40000TRTN 7FD4DF RPCO0028D:  RPCONV  01/26/85 11:06:29  SDSMAC 1.2.0 83.138RPCO0029D,  SYMT = DEFAULT(N),  NOLIST = DEFAULT(N),   TUNLST RPBUF P 82' 40w@L0016ARPBUF M0044NFWORD0001M0010NFER000002M0010NFER1000037F284FRPBU0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER5000077F241FRPBU0002NN!M0010NFER600008M0010NFER700009M0010NFER80000AM0010NFER90000B7F213FRPBU0003NM001J0NFERA0000CM0010NFERB0000DM0010NFERC0000EM0010NFERD0000F7F1C9FRPBU0004JR#M0010NFERE00010M0010NFERF00011P00000001B0003B0005B0006B0007B00097F1F0FRPBU0005RR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF RPBU0006RV@R(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF RPBU0007RR#B0002B0001BFE00P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F211FRPBU0008RN#P00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B20217F259F RPBUN0009R#B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B3031B3233B3435B36377F1EDFRPBU0010RR#B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B4647B4849B4A4BB4C4D7F190FRPBU0011RD!B4E4FP00000007B5051B5253B5455B5657B5859B5A5BB5C5DB5E5FP000000087F1DE3F RPBU0012R#B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP00000009B7071B7273B74757F19FFRPBU0013RR#B7677B7879B7A7BB7C7DB7E7FP0000000AB8081B8283B8485B8687B8889B8A8B7F149FRPBU0014R:B8C8DB8E8FP0000000BB9091B9293B9495B9697B9899B9A9BB9C9DB9:E9F7F22FF RPBU0015R#P0000000CBA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP0000000DBB0B17F119F RPBU0016RR#BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP0000000EBC0C1BC2C3BC4C5BC6C77F07DFRPBU0017R4BC8C9BCACBBCCCDBCECFP0000000FBD0D1BD2D3BD4D5BD6D7B4 D8D9BDADBBDCDD7F020FRPBU0018 R#BDEDFP00000010BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP000000117F0CFF RPBU0019RR(BF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFA0000B2F08BC1C2BC181BC0E77F019F RPBU0020R*B0000B0A53B1727BC067B0006B0221B0012B04C2**B0A13B1701B0702B2E84C01647F1E8F RPBU0021*R(B0A13B171FBC0E7B0008B0983B0223B0012BC126BFFFABC144B0225B0050B02267F183F RPBU0022RR(BFFEEBC042BC2C6BCC76B0643B15FDB028BB0000B1303BC04BB2E83C0164B02227F122F RPBU0023R B0012BC182B101AB0A23B1818B0202 4C004ABDCA0C0062BDCA4B0008B04F2B04F27F17CF RPBU00244R(B04F2B04F2BCC86BCC84BCCA4B0014B04F2BC182BC042BC0AABFFFEBC0E7B00087F0BBF RPBU0025RR(B0983B06A0C0132BC0E7B0000B0A13B1760BD067B0008B0981BA046B0227B000C7F1B7F RPBU0026R BD0E7B0003B1303B0983>BC043BA046BD0A7B0002B0982BA0A6BFFF8B0203B00027F172F RPBU0027>R(BC201B2E82C015ABC0D7B0A13B180ABD0E7B0001B0983B132AB2E82C015ABC0487F14FF RPBU0028RR(B06A0C0132B1024B0795BC092B0203B0002B2E82C015AB0795BD0D2B0983B05837F1B4F RPBU0029R B2E82C015A H#BC048BC017B0A20B170DBCE82BC043B0702B2E84C0154B0201B00017F186F RPBU0030HR(B0AC1BE5C1BC042B064ABC09ABC201B06A0C0132BD0E7B0002B0983BA0C6BC4C87F125F RPBU0031RR#BC0D7B0A33B1716B0227B0004B10B9B20A0N00400001B1309B2060N004000017F26AF RPBU0032RR(B1306B0603B0795BCC72B0643B15FCB1104B0795BDC72B0603B15FCB045BB064A7F163F RPBU0033RDB1001B04C0BD980B0001BCA86BFFFEB1002BD840B0001B2EC87F497FRPBU0034DJ 40000ASSUME40000GTA 40000NFGTA 40000NFRTA 50000RPBUF 7F330F RPBU0035J40000RPSGCK4>0000RTA  40000SGCK 40000SPOP 40000SPUSH 7F357F RPBU0036> 30066SYSBUF7FCEEF RPBU0037B:  RPBUF 01/26/85 11:04:41  SDSMAC 1.2.0 83.138RPBU0038B = DEFAULT(N)' .SYN $$S = "&SOURCE ACCESS NAME" , ' $XMA$O = "&OBRPPSVC P8?G4w@L 001A8RPPSVC M0192NFDATA0001M0010NFER000002M0010NFER1000037F261FRPPS0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER5000077F241FRPPS0002NN!M0010NFER600008M0010NFER700009M0010NFERC0000AM0010NFERD0000B7F1FDFRPPS0003NM001J0NFERE0000CM0010NFERF0000DM0072NFPTR 000EM0044NFWORD000F7F175FRPPS0004JN!M0070PMDATA0010P00000001P00020001P00040001P00060001P000800017F314FRPPS0005NN!P000A0001P000C0001P000E0001P00100001B000FP00120001P001600017F387F RPPS0006NP00180H001P00180001P001A0001P001C0001B0000P001E0001P002000017F391F RPPS0007HR#P00220001P00240001P00260001P00280001P002A0001P002C0001P003400017F2C7F RPPS0008RR#P00360001P00380001P003A0001P003C0001P003E0001P00400001P004200017F2B2F RPPS0009RR#P00440001P00460001P00480001P004A0001P004C0001P004E0001P005000017F2AAF RPPS0010RR#P00520001P00540001P00560001P00580001P005A0001P005C0001P005E00017F2A2F RPPS0011RN#P00600001P00620001P00640001P00660001P00680001P006A0001P006C00017F2B0F RPPSN0012R#P006%%E0001P00700001P00720001P00740001P00760001P00780001P007A00017F2A8F RPPS0013RR#P007A0001P007C0001P007E0001P00800001P00820001P00840001P008600017F298F RPPS0014RD!P00880001P008A0001P008C0001P008E0001P00900001P00920001P009400017F2D90F RPPS0015N!P00960001P00980001P009A0001P009C0001P009E0001P00AC0001B00807F341F RPPS0016NR#P00AE0001P00B20001P00B60001P00BA0001P00BE0001P00C00001P00C200017F24EF RPPS0017R>P00C40001P00C60001P00C80001P00CA0001P00CC0001P00CE0001P00D00>0017F241F RPPS0018R#P00D20001P00D40001P00D60001P00D80001P00DA0001P00DC0001P00DE00017F239F RPPS0019RR#P00E00001P00E80001P00F00001P00F80001P00FA0001P00FC0001P00FE00017F231F RPPS0020R4P01000001P01020001P01040001P01060001P010C0001P010E4 0001P011600017F2D0F RPPS0021 R#P01180001P011A0001P011C0001P011E0001P01200001P01220001P012400017F2BAF RPPS0022RR#P01280001P012C0001P012C0001P012E0001P01300001P01320001P013400017F2B1F RPPS0023R*P01880001P018A0001P018C0001P018E0001P019**00001P00000002B0001B02037F269FRPPS0024*R#B0405B0607B0809B0A0BB0C0DB0E0FP00000003B1011B1213B1415B1617B18197F20DFRPPS0025RR#B1A1BB1C1DB1E1FP00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2F7F1A2FRPPS0026R P00000005B3031B3233B3435B3637B 43839B3A3BB3C3DB3E3FP00000006B40417F231F RPPS00274R#B4243B4445B4647B4849B4A4BB4C4DB4E4FP00000007B5051B5253B5455B56577F1BFFRPPS0028RR#B5859B5A5BB5C5DB5E5FP00000008B6061B6263B6465B6667B6869B6A6BB6C6D7F162FRPPS0029R B6E6FP00000009B7071B>7273B7475B7677B7879B7A7BB7C7DB7E7FP0000000A7F1B4F RPPS0030>R#BC0C1BC2C3BC4C5BC6C7BC8C9BCACBBCCCDBCECFP0000000BBD0D1BD2D3BD4D57F078FRPPS0031RR#BD6D7BD8D9BDADBBDCDDBDEDFP0000000CBE0E1BE2E3BE4E5BE6E7BE8E9BEAEB7F029FRPPS0032R BECEDBEEEF DP0000000DBF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFF7F129F RPPS0033DR#P0000000EP0002000EP0004000EP0006000EP0008000EP000A000EP000C000E7F24EF RPPS0034RR#P000E000EP0010000EP0012000EP0014000EP0016000EP0018000EP001A000E7F246F RPPS0035RP001N!C000EP001E000EP0020000EP0022000EP0024000EP0026000EP0028000E7F23EF RPPS0036NR#P002A000EP002C000EP002E000EP0030000EP0032000EP0034000EP0036000E7F22FF RPPS0037RR#P0038000EP003A000EP003C000EP003E000EP0040000EP0042000EP0044000E7F227F RPPS0038R@R#P0046000EP0048000EP004A000EP004C000EP004E000EP0050000EP0052000E7F21FF RPPS0039RR#P0054000EP0056000EP0058000EP005A000EP005C000EP005E000EP0060000E7F217F RPPS0040RN#P0062000EP0064000EP0066000EP0068000EP006A000EP006C000EP006E000E7F20FF RPPSN0041R#P0070000EP0000000FB0003B0005B0006B0007B0009B000AB000CB000DB000E7F27AF RPPS0042RR(B000FB0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B1000B08007F1A8F RPPS0043RD!B0400B0200B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE007F361FD RPPS0044 R#P00000010B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2E2FRPPS0045RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPPS0046R@B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0@ 0007F2AFF RPPS0047R#B0000B0000B0000B0000B0200B0002B092EP00580010P00600010B092EB53247F2B0F RPPS0048RR#B5348B4152B4544B0000B0000B0000A0000BC060N0006000EBC0A0N0004000E7F27AF RPPS0049R6B04C3B06A0B0000B4018B0000B0460B0000BC0E4B0010B0A13B16705BD9207F2FBFRPPS0050R#N00040004B0009B0460C0014BCE8BB0700B2EC0BCE8BBC181BC126B0004BC1667F1B2FRPPS0051RR#B0006BC0A6BFFFABC0E6B0008BD0C3B1602BD0E2B002CB98A0N00050002B000B7F17EFRPPS0052R0B1506BF9A0N00000003B0003BF9A0N0028000FB0003B040$ C2BD0A6B0002BD0667F220F RPPS0053$R#B0003B1103BC066BFFFCB1012BD020N0003000DBC060N0004000EBC2E1B00107F210F RPPS0054RR#B0ABBB1717B0201N000C000EBD020N00060002BC051B1311B89A1B0002B000A7F238F RPPS0055R&B16FAB06A0B0000C00AEBC2E6BFFFAB06C1B&.D041B130ABDAE0N000B0004B00097F155FRPPS0056.R(B0460C0026BD980B0001BC046B04C0B2EC0B06C1BD981B0002BD066B0003B0A517F19CF RPPS0057RR(B1823BD066B0003B0A11B1706BC066BFFFCB89A1B0002B000AB16EABD066B00037F163F RPPS0058R B0A31B1809B0A51B17E4BDAE0N800070003B0009BE8A0N002A000FB0012B10067F20EF RPPS00598R#BDAE0N00060002B0009BE8A0N002C000FB0012B0646BC5ABB0038BCAC6B00387F1D6F RPPS0060RR(B1022BD066B0003B0A11B1706BC066BFFFCB89A1B0002B000AB160BBC06BB00127F175F RPPS0061RB0241B0800BE881BB0012B4AC1B0012B7A20N00010002B002DBC066BFFFCBC08B7F1ADFRPPS0062BR(B04C3B0646BC5A2B0038BC886B0038B06A0C000CB4018BFFFFB0460C00ACBCE8B7F11AF RPPS0063RR(BC181BC066B0002B06A0B0000C0194BC2E2B0010B0A7BB1118BD026B0003B13037F1C3F RPPS0064RB9880BL 002CB160CB06C1BD981B0004BC060N0006000EB0203B0007B06A0C014A7F1EBFRPPS0065LL B4018B0000B1008BD020N00010002B1005BD020N00020002B1002BD0207F3B5FRPPS0066L4N00030002BD980B0001BC046B04C0B2EC07F868FRPPS00674"30186NFCAL030152NFSRTN30096NFTBI"*D40000NFTERM3015EPMTSCH7F207F RPPS0068*J50000RPENDT50154RPKILT50016RPQSUS5002ERPXTSK40000SPOP 7F1DAF RPPS0069JD:  RPPSVC  01/26/85 11:28:53  SDSMAC 1.2.0 83.138RPPS0070D  .IF "@@$XMA$E",EQ,$XMA$E  .SYN $XMA$E = "RPWTIO P8W:J41w@L 00142RPWTIO M0192NFDATA0001M0010NFER000002M0010NFER1000037F26DFRPWT0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER5000077F241FRPWT0002NN!M0010NFER600008M0010NFER700009M0072NFPTR 000AM0044NFWORD000B7F1B1FRPWT0003NP000N!00001P00020001P00040001P00060001P00080001P000A0001P000C00017F2DAF RPWT0004NN!P000E0001P00100001B000FP00120001P00160001P00180001P001800017F399F RPWT0005NN!P001A0001P001C0001B0000P001E0001P00200001P00220001P002400017F399F RPWT0006NP0P"0260001P00280001P002A0001P002C0001P00340001P00360001P003800017F2BDF RPWT0007PR#P003A0001P003C0001P003E0001P00400001P00420001P00440001P004600017F2B4F RPWT0008RP#P00480001P004A0001P004C0001P004E0001P00500001P00520001P005400017F2ACF RPWT00P09R#P00560001P00580001P005A0001P005C0001P005E0001P00600001P006200017F2A4F RPWT0010RR#P00640001P00660001P00680001P006A0001P006C0001P006E0001P007000017F29CF RPWT0011RF"P00720001P00740001P00760001P00780001P007A0001P007A0001P007C00017F298FF RPWT0012R#P007E0001P00800001P00820001P00840001P00860001P00880001P008A00017F2A1F RPWT0013RR#P008C0001P008E0001P00900001P00920001P00940001P00960001P009800017F299F RPWT0014R<P009A0001P009C0001P009E0001P00AC0001B0080P00AE0001P00B2000<17F327F RPWT0015R#P00B60001P00BA0001P00BE0001P00C00001P00C20001P00C40001P00C600017F258F RPWT0016RR#P00C80001P00CA0001P00CC0001P00CE0001P00D00001P00D20001P00D400017F243F RPWT0017R6P00D60001P00D80001P00DA0001P00DC0001P00DE0001P00E0006 01P00E800017F235F RPWT0018R#P00F00001P00F80001P00FA0001P00FC0001P00FE0001P01000001P010200017F25FF RPWT0019RR#P01040001P01060001P010C0001P010E0001P01160001P01180001P011A00017F2B7F RPWT0020R,P011C0001P011E0001P01200001P01220001P01240,(001P01280001P012C00017F2B6F RPWT0021(R#P012C0001P012E0001P01300001P01320001P01340001P01880001P018A00017F2A7F RPWT0022RP"P018C0001P018E0001P01900001P00000002B0001B0203B0405B0607B08097F309F RPWT0023P$B0A0BB0C0DB0E0FP00000003B1011B1213$0B1415B1617B1819B1A1BB1C1DB1E1F7F1B9FRPWT00240R#P00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B30317F245F RPWT0025RR#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B46477F1D6FRPWT0026R B4849B4A4BB4C4DB4E4FP000:00007B5051B5253B5455B5657B5859B5A5BB5C5D7F179FRPWT0027:R#B5E5FP00000008B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP000000097F1CFF RPWT0028RL B7071B7273B7475B7677B7879B7A7BB7C7DB7E7FP0000000AP0002000A7F2E3FRPWT0029L P0004000AP0006000AP0>008000AP000A000AP000C000AP000E000AP0010000A7F256F RPWT0030>R#P0012000AP0014000AP0016000AP0018000AP001A000AP001C000AP001E000A7F24EF RPWT0031RR#P0020000AP0022000AP0024000AP0026000AP0028000AP002A000AP002C000A7F25CF RPWT0032R P002E000AP H0030000AP0032000AP0034000AP0036000AP0038000AP003A000A7F254F RPWT0033HR#P003C000AP003E000AP0040000AP0042000AP0044000AP0046000AP0048000A7F24CF RPWT0034RR#P004A000AP004C000AP004E000AP0050000AP0052000AP0054000AP0056000A7F23DF RPWT0035RR#P0058000AP005A000AP005C000AP005E000AP0060000AP0062000AP0064000A7F235F RPWT0036RR#P0066000AP0068000AP006A000AP006C000AP006E000AP0070000AP0000000B7F235F RPWT0037RN&B0003B0005B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003C7F20CF RPWTN0038R(B0064B00FDBFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B00807F1D1F RPWT0039RR(B0040B0020B0010B0008B0004B0002B0001BFE00A0000BC241B0649BC089BC1837F1FFF RPWT0040RD!B0203B0006B2E82B0000B07D5BD980B0001B1665B0795BC029B0004B1101B10607DF1EAF RPWT0041R(B0795BD069B0003BC084B06A0B0000C00E2BC1E2B0008B1356BC222B0004B020C7F1B2F RPWT0042RR#C010EB2620N000E000BB161BBC067B0026B0A21B1702BC1E7B002ABC067B005E7F1C0FRPWT0043R:B1303B0641B069CC00E6BC067B005AB1302B069CC00E6BC067B005CB: 1302B069C7F185F RPWT0044L C00E6B0720B0000B04E0N00900001B1034B2620N0010000BB1627B98087F387FRPWT0045LR#N00030002B130DB0201B0062BA060N0012000ABC051BC061B0032B1302B069C7F268F RPWT0046R6C00E6B0201B0082B1010BC060N00F80001B0AB1B171DB0201B01672BA0607F31FF RPWT0047R#N0012000ABC051BC061B0032B1302B069CC00E6B0201B0192BA060N0012000A7F251F RPWT0048RR(BC051B130DB069CC00E6B100ABC067B0018B1302B069CC00E6BC067B0016B13027F194F %%RPWT0049R0B069CC00E6B0460B0000B0460B0000BD024B0019B1308B0$0200B0008BC040B40247F202F RPWT0050$R#B0010B1604B4901B0010B0460C00E4BD920N00060005B0009B0460C00E8B82617F23AFRPWT0051RR#BFFFAB1613B8821BFFFCN0004000AB160FB8821BFFFEN0006000AB160BBD9207F16AF RPWT0052R&N00090002B0009B78A0N00010002B0002B48&,60N0032000BB0006BC2DBB045B7F293FRPWT0053,& BC051B16E8B046BB00027FB66FRPWT0054&J40000ASSUME3002CIOFLDT3010CNFSRTN30102NFTRTN30072RESCHD7F1D4F RPWT0055JJ40000RPSGCK50000RPWT01500EARPWT3640000SGCK 40000TRTN 7F2BFF RPWT0056J: @ RPWTIO  01/26/85 11:46:49  SDSMAC 1.2.0 83.138RPWT0057@E.RPVOL,*&OBJECT=@VOLOBJ.REQPROC.OBJECT.RPVOL,&"LIST=@VOLLST.REQPROC.LIST.RPVOL,"OPTION=(@$OPT),  ERROR=".XMAERR@$$ST"EC.IF @$$CC,GT,0?AFINPUT=".)RPRETR P8kM4Aw@L 00146RPRETR M0022$DATA 0000M001ELGLCOM0001M00DANFCLKD00027F238FRPRE0001LN!M0192NFDATA0003M0010NFER000004M0010NFER100005M0010NFER2000067F222FRPRE0002NN!M0010NFER300007M0010NFER800008M0010NFER900009M0010NFERA0000A7F217FRPRE0003NM001J0NFERB0000BM001ANFJOBC000CM0072NFPTR 000DM0044NFWORD000E7F15AFRPRE0004JN!M0070PMDATA000FP00000001P00020001P00040001P00040001P000600017F303FRPRE0005NR(P000A0001P00120001P001A0001P001C0001P00000002B0007B0000B0000B00007F26AF RPRE0006RB0P'000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPRE0007PR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPRE0008RP'B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPRE00P09R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPRE0010RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPRE0011RF"B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2FAFF RPRE0012R(B0000B0000B003CB0018B016DB0000B0000B0000B0001B0000B0000B0000B68007F266F RPRE0013RR(B0000B0000B0000B0000B0006BFE01B7F80B0000B1FE0B0000B0000B0000B00007F22CF RPRE0014R<B0000P00000003P00020003P00040003P00060003P00080003P000A000<37F3B0F RPRE0015N!P000C0003P000E0003P00100003B000FP00120003P00160003P001800037F383F RPRE0016NN!P00180003P001A0003P001C0003B0000P001E0003P00200003P002200037F38AF RPRE0017N>P00240003P00260003P00280003P002A0003P002C0003P00340003P00360>0037F2B4F RPRE0018R#P00380003P003A0003P003C0003P003E0003P00400003P00420003P004400037F2A5F RPRE0019RR#P00460003P00480003P004A0003P004C0003P004E0003P00500003P005200037F29DF RPRE0020R4P00540003P00560003P00580003P005A0003P005C0003P005E4 0003P006000037F295F RPRE0021 R#P00620003P00640003P00660003P00680003P006A0003P006C0003P006E00037F28DF RPRE0022RR#P00700003P00720003P00740003P00760003P00780003P007A0003P007A00037F29DF RPRE0023R*P007C0003P007E0003P00800003P00820003P008**40003P00860003P008800037F292F RPRE0024*R#P008A0003P008C0003P008E0003P00900003P00920003P00940003P009600037F283F RPRE0025RN!P00980003P009A0003P009C0003P009E0003P00AC0003B0080P00AE00037F31EF RPRE0026N$P00B20003P00B60003P00BA0003P00BE00$003P00C00003P00C20003P00C400037F24FF RPRE00270R#P00C60003P00C80003P00CA0003P00CC0003P00CE0003P00D00003P00D200037F234F RPRE0028RR#P00D40003P00D60003P00D80003P00DA0003P00DC0003P00DE0003P00E000037F22CF RPRE0029R P00E80003P00F00003P00F80:003P00FA0003P00FC0003P00FE0003P010000037F237F RPRE0030:R#P01020003P01040003P01060003P010C0003P010E0003P01160003P011800037F2B9F RPRE0031RR#P011A0003P011C0003P011E0003P01200003P01220003P01240003P012800037F2ABF RPRE0032RP012C0003P012CD0003P012E0003P01300003P01320003P01340003P018800037F29DF RPRE0033DR(P018A0003P018C0003P018E0003P01900003P00000004B0001B0203B0405B06077F227F RPRE0034RR#B0809B0A0BB0C0DB0E0FP00000005B1011B1213B1415B1617B1819B1A1BB1C1D7F1D3FRPRE0035RB1E1N!FP00000006B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP000000077F21BF RPRE0036NR#B3031B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000008B8081B8283B84857F1CAFRPRE0037RR#B8687B8889B8A8BB8C8DB8E8FP00000009B9091B9293B9495B9697B9899B9A9B7F13BFRPRE0038R@N!B9C9DB9E9FP0000000ABA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAF7F1ACF RPRE0039NL P0000000BBB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP0000000C7F232FRPRE0040LR#P0002000CP0004000CP0006000CP0008000CP000A000CP000C000CP000E000C7F247F RPRE0041RR#P0010000CP0012000CP0014000CP0016000CP0018000CP0000000DP0002000D7F277F RPRE0042RR#P0004000DP0006000DP0008000DP000A000DP000C000DP000E000DP0010000D7F241F RPRE0043RN#P0012000DP0014000DP0016000DP0018000DP001A000DP001C000DP001E000D7F239F RPREN0044R#P0020000DP0022000DP0024000DP0026000DP0028000DP002A000DP002C000D7F247F RPRE0045RR#P002E000DP0030000DP0032000DP0034000DP0036000DP0038000DP003A000D7F23FF RPRE0046RD!P003C000DP003E000DP0040000DP0042000DP0044000DP0046000DP0048000D7F2D37F RPRE0047R#P004A000DP004C000DP004E000DP0050000DP0052000DP0054000DP0056000D7F228F RPRE0048RR#P0058000DP005A000DP005C000DP005E000DP0060000DP0062000DP0064000D7F220F RPRE0049R:P0066000DP0068000DP006A000DP006C000DP006E000DP0070000DP0:000000E7F220F RPRE0050R(B0003B0005B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003C7F20CF RPRE0051RR(B0064B00FDBFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B00807F1D1F RPRE0052R0B0040B0020B0010B0008B0004B0002B0001BFE00P000000$ 00FB0000B0000B00007F28CFRPRE0053$R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPRE0054RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF RPRE0055R&B0000B0000B0000B0000B0000B0000B0000B&.0000B0000B0000B0000B0000B02007F2ADF RPRE0056.R#B0002B092EP0058000FP0060000FB092EB5324B5348B4152B4544B0000B00007F257F RPRE0057RR(B0000S0000B0000BF800N00000001N00000002N00000003N0000000DN0000000F7F25CF RPRE0058R N0000000CB0000B0802B0020B080DCB0194B0074B0072B001CB002EA0000BC2017F23DFRPRE00598P"BC243B7220N00000008B9220N00010004B1612BD020N00020004BC082B132C7F2B4FRPRE0060PR#B0207N0008000DBC1D7B1328B0602B15FCBC807T0000BC827BFFFET0010BC0277F16EFRPRE0061R B0026B0A20BD020N00@010004BD188B131AB0976B0286B0011B1B16BC1E6TFFFE7F19AFRPRE0062@R#B2220N0032000EB1612BC089B0222B000AB0203B0002B2220N0036000EB16187F27BF RPRE0063RR(B0795BC069B0006B1667BC307B02A7B0227B0018B100FB1066B0795BC0A9B000C7F19AF RPRE0064R B0795BC0 JE9B0008B9220N00020004B1605B0283B0010B1A02B0203B0010B07957F23BFRPRE0065JR#BC069B0006BA1C1B0501B154DBA066T000EB114AB1349B2220N0034000EB13037F1DEFRPRE0066RR#B80C1B1401BC0C1B2E82C013CB2E81C013CB07D5BCA43B000AB9220N000200047F1BCFRPRE0067RS V@R#B1602B0300B0001B2220N0034000EB160EB0247BFFFEBC1D7B9220N000200047F22AF RPRE0068RR#B1308BC2E0N001C000DB04C1B6047B6043B806BB0008B1B29B0603B1118B13137F1EFFRPRE0069RN"B21E0N0040000EB1304B20A0N0040000EB130DB1007B20A0N0040000EB16097F290FRPRE00N70R(B07D5BDCB7B0603B1305B07D5BCCB7B0643B15FCB1104B07D5BDCB7B0603B18FC7F101F RPRE0071RR#B9220N00020004B160EB020CB1FC0B3401B04C0B3000B0300B000FBC041B13057F21BFRPRE0072RF BD020N00030004B1002BD020N00040004B07D5BDA40B0001B0460B00007F38BFRPFRE0073J 30144NFTRTN40000PRCK40000RPPRCK50000RPRETR40000RPSGCK7F235F RPRE0074J( 40000SGCK 40000TRTN7FAF1FRPRE0075(D:  RPRETR  01/26/85 11:34:54  SDSMAC 1.2.0 83.138RPRE0076D.SYN $$ML = ""  .ENDIF  .+RPUDAT P84tw*00002RPUDAT A0000B7F007FAA7F RPUD0001*(50000RPUMAX50000RPUTAB7FA34FRPUD0002(D:  RPUDAT  01/26/85 11:41:34  SDSMAC 1.2.0 83.138RPUD0003D $OPT  B,T,D,RX / $SDT  11:04:06 SATURDAY, JANUARY 26, 1985. /  $TOS$ 43RPWAIT P8 v4w@P"00068RPWAIT M0010NFER000001P00000001B0001B0203B0405B0607B08097F252FRPWA0001PR(B0A0BB0C0DB0E0FA0000BCE8BB04C0BD840B0001BC0E1B0008B1303BC121B000A7F161F RPWA0002RP'B1003BC121B000AB131EBC0A1BFFFABC1A2B0032BC1E2B0034B2583B1307B05467F167F RPWA00P03R(B40C6BC843B0004B25C4B1317B1002B25C4B1305B0547B4107BC844B0006B100F7F1BCF RPWA0004RR#BC021B0002B1309BD862B000DB000CB0460B0000BD860N00010001B0001B10037F242FRPWA0005R0BD860N00020001B0001B04C0B2EC07F98CF RPWA0006030054RPTDLY50000$ RPWAIT40000SPOP 7F7ACF RPWA0007$D:  RPWAIT  01/26/85 11:46:04  SDSMAC 1.2.0 83.138RPWA0008D08B0004B0002B0001BFE00P00000002B00017F296FRPVO0008RP#B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000003B1011B1213B1415B16177F21BFRPVO00PEOD EOD KIFMGR D 8wwOBJECT D 6866wwKMPAT5 P8 N4Riw@R#000CAKMPAT5 A0000B00CABDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F01CF KMPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0002RN&BDEADBDE%%ADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0008RBDEAD7FE79F KMPA0009 50000KMPAT57FD22F KMPA0010D:  KMPAT5  01/26/85 05:51:30  SDSMAC 1.2.0 83.138KMPA0011DDEL D0002' 00660052  KOINSR D0000' 00650051  KOOPEN D0006' 00680054  KOPLG D0018' 00770063  KORSQ D000A' 00700056  KMOVLA P84RwL 00294KMOVLA A0000C0014A0002A000CB0280BFFFFB0000B0000A00147F330FKMOV0001L 50000KMOVLA7FD0AF KMOV0002D:  KMOVLA  01/26/85 05:50:16  SDSMAC 1.2.0 83.138KMOV0003D $SDT  05:20:15 SATURDAY, JANUARY 26, 1985. /  $TOS$ 4KMPAT8 P8 N4Rw@R#000CAKMPAT8 A0000B00CABDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F019F KMPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0008RBDEAD7FE79F KMPA0009 50000KMPAT87FD1FF KMPA0010D:  KMPAT8  01/26/85 05:52:06  SDSMAC 1.2.0 83.138KMPA0011D SECOND BYTE OF B-TREE REC #(B 0507 02CE CC72 MOV *R2+,*R1+ SECOND WORD OF B-TREE REC #BF 0508 02D0 CC52 MOV *R2,*R1+  B-TREE INTERNAL LOCATION WHEN MF!KMOVLYC P8 4R.w@R#0001AKMOVLY A0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F292F KMOV0001R& B0000B0000B0000B00007FBC1FKMOV0002&J3000CKMBDEL3000EKMBTIS30008KMCLOS30002KMDEL 30000KMINSR7F235F KMOV0003J,30006KMOPEN30018KMPLG 3000AKMRSQ 30010KMRW, S030012KMRWS17F24AF KMOV0004 J30014KMRWS230016KMRWS330004KMSC 5000CKOBDEL5000EKOBTIS7F256F KMOV0005JJ50008KOCLOS50002KODEL 50000KOINSR50006KOOPEN50018KOPLG 7F24EF KMOV0006J:5000AKORSQ 50010KORWS050012KORWS150014KORWS250016KORWS37:F211F KMOV0007 50004KOSC 7FD60F KMOV0008D:  KMOVLY  01/26/85 05:50:28  SDSMAC 1.2.0 83.138KMOV0009DXRTO6XXRTO"4 COPY DSC.TEMPLATE.ATABLE.OAD"3 0005 DEF KMOVL5KMPAT2 P8 N4REw@R#000CAKMPAT2 A0000B00CABDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F01FF KMPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0008RBDEAD7FE79F KMPA0009 50000KMPAT27FD25F KMPA0010D:  KMPAT2  01/26/85 05:50:54  SDSMAC 1.2.0 83.138KMPA0011DSS NAMES TABLEPAGE 0001 !3 SOURCE ACCESS NAME=  T.DP.KIFMGR.SOURCE.KMBTIS wVVRTOEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEKMRN P8 <4SjwL0004CKMRN  M0010NFER400001M0010NFER500002M0010NFER6000037F2EAFKMRN0001LR#M0010NFER700004P00000001B4041B4243B4445B4647B4849B4A4BB4C4DB4E4F7F1A2FKMRN0002RR#P00000002B5051B5253B5455B5657B5859B5A5BB5C5DB5E5FP00000003B60617F213F KMRN0003RT@R#B6263B6465B6667B6869B6A6BB6C6DB6E6FP00000004B7071B7273B7475B76777F196FKMRN0004RR#B7879B7A7BB7C7DB7E7FA0000B04C1B0581B982CB0024N000F0001B1211B04C17F1A2FKMRN0005RN#B100FB0701B982CB0024N000F0001B1202B04C1B1008B982CB0024N000900017F25DF KMRNN0006R(B1604BC2ECB0020B1301B04C1B06A0B0000B0000BDB2CB0002B0024BC000B16037F1D1F KMRN0007R6B0281BDEADB1602B0460B0000B0460B00007F845F KMRN00086J30046KMERR 30030KMLOC 50000KMRN 50010KMRP 3004AKMRRB 7F31CF KMRN0009J:  KMRN  01/226/85 05:55:02  SDSMAC 1.2.0 83.138KMRN00102TE.ATABLE.FWA !' 0064 J  DSC.TEMPLATE.ATABLE.KCB '!  =>T.DP.TEMPLATE.ATABLE.KCB !*L@L@RTTO"X`b}~`"@L:KMGF P84Ow@R001AEKMGF  A0000B2F08B04C6B0204B0003B0203B013CBA0CFBC2D3BE2E37F203F KMGF0001RR(B0002B131EB06A0B0000C0116B06A0B0000C0116B896FB01CEB0006B1B08BC1867F1BAF KMGF0002RN&B1153BC06ABFFFEBCC55BC465B0002B2EC8BCCE5B0008BC4E5B000AB0725B00087F0FEF KMGFN0003R(B06A0B0000C0116B0604B16DCB1000B06A0C0148BC04FB0221B0036B0202B0B007F1E0F KMGF0004RR(BC0CEB0223B002ABC3AFB0034BC10FB0224B0038B06A0B0000B06A0B0000C01167F1A2F KMGF0005RD!BC186B1146BC0CFB0223B0130B06A0B0000C0116BC56FB0130BC96FB0132B00027DF1A2F KMGF0006R(B04E5B0004BC0AFB003EB0222BFFF0BC942B0006BC96FB013CB0008BC96FB013E7F123F KMGF0007RR(B000AB04E5B000CB04E5B000EBCBD5B013CBCBE5B0002B013EB10B3B2F08BCE937F121F KMGF0008R:BCEA3B0002B0706B0203B0136B109CBCCE5B0008BC4E5B000ABC06AB: FFFABCC557F101F KMGF0009R(BC465B0002BC0CAB0223BFFFCB06A0C0018C0116BC06CBFFFCBC0ACBFFF4B06A07F0B9F KMGF0010RR(B0000BFFFFB06A0B0000B402CBFFFFB1006BC06ABFFFABCC6FB0130BC46FB01327F0CCF KMGF0011R0BC186B1302B022ABFFFCB2EC8BCE8BB020BB0136B1003B0$CE8BB020BB013CBA2CF7F0DEF KMGF0012$R(BC95BB0008BC96BB0002B000ABCED5BC6E5B0002B06A0C0048C0146B2EC0BC3AF7F120F KMGF0013RR(B0034BC04EBCBEEB002AB0130BCBEEB002CB0132BC00EB0220B0032BC0B0BC0D07F12FF KMGF0014R&B0603B1801B0602B80AEB002AB1A12B80EEB&.002CB1A0FBC12EB0016B130CBC3847F164F KMGF0015.R(BC044BABEEB002CB0132B1702B05AFB0130BABEEB002AB0130B10E3BCBC1B00387F131F KMGF0016RJB05AEB002CB1602B05AEB002AB05AFB0132B1602B05AFB0130B045B7F3A6F KMGF0017J$30076FMCKEX30072FMTSET500C4KMGEB 5$(0000KMGFB 3001EKMLOG 7F28BF KMGF0018(J 30086KMNEW 300EEKMRD 50120KMREB 50128KMRF 30142KMRMD 7F30DF KMGF0019JJ30102NFCALR40000SMFLSH300FCSMMJCA40000SPOP 40000SPUSH 7F268F KMGF0020J2:  KMGF  01/26/85 05:39:36  SDSMAC 1.2.0 283.138KMGF0021CCESS NAME = .XMAERR03$ OPTIONS = B,T,D,RX ) MACRO LIBRARY PATHNAME = ** NULL ** )  PRINT WIDTH (CHARS) = 80   PAGE LENGTH (LINES) = 60 4 I ASSEMBLR-0001 MACRO ASSEMBLY COMPLETE, 0000 ER4KMOPCL P8=p4Rw@L 002EBKMOPCL M0044NFWORD0001M0010NFER000002M0010NFER1000037F24CFKMOP0001LN!M0010NFER200004M0010NFER300005M0010NFER800006M0010NFER9000077F239FKMOP0002NN!M0010NFERA00008M0010NFERB00009M0010NFERC0000AM0010NFERD0000B7F1E7FKMOP0003NM001N!0NFERE0000CM0010NFERF0000DM0072NFPTR 000EP00000001B0003B00057F153FKMOP0004NR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F KMOP0005RR(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF KMOP0006R@R#B0010B0008B0004B0002B0001BFE00P00000002B0001B0203B0405B0607B08097F279FKMOP0007RR#B0A0BB0C0DB0E0FP00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1B9FKMOP0008RN#P00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B30317F245F KMOPN0009R#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000006B8081B8283B8485B86877F1B6FKMOP0010RR#B8889B8A8BB8C8DB8E8FP00000007B9091B9293B9495B9697B9899B9A9BB9C9D7F121FKMOP0011RD!B9E9FP00000008BA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP000000097F1D17F KMOP0012R#BB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP0000000ABC0C1BC2C3BC4C57F08FFKMOP0013RR#BC6C7BC8C9BCACBBCCCDBCECFP0000000BBD0D1BD2D3BD4D5BD6D7BD8D9BDADB7F040FKMOP0014R:BDCDDBDEDFP0000000CBE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBE:EEF7F13EF KMOP0015L P0000000DBF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP0000000E7F1EEFKMOP0016LR#P0002000EP0004000EP0006000EP0008000EP000A000EP000C000EP000E000E7F239F KMOP0017R:P0010000EP0012000EP0014000EP0016000EP0018000EP001A000EP0:01C000E7F247F KMOP0018R#P001E000EP00%%20000EP0022000EP0024000EP0026000EP0028000EP002A000E7F23FF KMOP0019RR#P002C000EP002E000EP0030000EP0032000EP0034000EP0036000EP0038000E7F237F KMOP0020R0P003A000EP003C000EP003E000EP0040000EP0042000EP0$ 0044000EP0046000E7F228F KMOP0021$R#P0048000EP004A000EP004C000EP004E000EP0050000EP0052000EP0054000E7F220F KMOP0022RR#P0056000EP0058000EP005A000EP005C000EP005E000EP0060000EP0062000E7F218F KMOP0023R&P0064000EP0066000EP0068000EP006A000E&.P006C000EP006E000EP0070000E7F210F KMOP0024.R#A0000BCE8BB04C0B06A0B0000C0180B04C4BC1E0N0018000EBC0ADB0004B07977F1B7FKMOP0025RR(BC2E2B0005B1506B0797BC2E2B000AB0797BC2DBB163DBC3AFB0034BC06EB00187F133F KMOP0026R BC0A1B0002B0A22B1701B0584B8C061B0000B16F8B0604B1620BC12EB0020B0AF47F1AFF KMOP00278R#B1703B0200N0006000AB1008B0201B03E8BCBC1B013AB06A0B0000C0062B10117F224FKMOP0028RN!B06A0B0000BC2EDB0004B07D7B04EBB000CB5B60N00240001B0002B02807F2FEF KMOP0029N N0006000AB1302BD020N>0003000AB0460C0180BD2ECB0002B1602B0460C01767F25EF KMOP0030>R(B06A0C0064BC04DB0221B0008B04F1B04F1B04F1B04F1B04D1B1069BCE8BB04C07F167F KMOP0031RR#BC2EDB0004BC1E0N0018000EB0797BD6ABB0005B151DB0797BC2EBB000AB07977F16DFKMOP0032R BC2DBB1317 H#BC08EB0222B0030BC052B1354B8B21B0004BFFFAB160CB8B61B00027F157F KMOP0033HR(B0004B1608B8B21B0006BFFFCB1604BC491B2E83BFFFFB10EEBC081B10ECBC0AE7F0D5F KMOP0034RR#B0020B0AF2B170AB0201B0004BC10EB4BA0N003E0001B0020B06A0B0000B40047F210FKMOP0035RR(C0142BCEAFB013AB1117B04EFB01D2B04EFB01D4BC0EFB01D6B06A0B0000C01427F133F KMOP0036RR(BC025B0004B1603B06A0C0090B1008B04E5B0004B04D5B04E5B0002B06A0B00007F1E7F KMOP0037RN&C0142BCA80BFFFEB06A0B0000C017EBC02ABFFFEB1616BC0EDB0004B0797BC0237F0F5F KMOPN0038R#B0006B0A10B110AB07D7BE8E0N00240001B0006BEBE0N00240001B0032BEBE07F20BF KMOP0039RR#N00320001B0202B064AB0201B0001B04C0B2EC0B064AB0701B10FCBCE8BB04C07F1D5FKMOP0040RD!B982CB0002N000E0002B1602B0460C008EBCB20N00400001B0012B04ECB00147F2D4BF KMOP0041R(BC04DB0221B0009BC0AFB01F6B04C3BDC83BDCB1BCCB1BC4B1BC0AFB01F4BDC837F0AFF KMOP0042RR#BDCADB0008BCCB1BC491B04ECB0024BCBE0N00400001B0182B0206B0144BA18F7F17AFKMOP0043R:BD0E6B0001B0983BCBC3B0184BC043B0221B0007B4060N00400001BC:B01B00227F1FAFKMOP0044R#BC06CB0020B1628BD06CB0002B9801N00060002B1603BFB60N00260001B00027F250F KMOP0045RR(BC06FB017CB04C2BCC42B0643B15FDB06A0B0000C0180B16B7BC1EFB01C4B02277F140F KMOP0046R0BFFFABC0EFB01F6BCCF7BCCF7BC4F7BC0EFB01F4BCCF7B0$CCF7BC4F7B982CB00027F00CF KMOP0047$P"N00090002B1340B982CB0002N000A0002B133CBD0ECB0002B9803N000900027F28CFKMOP0048PR#B1328B9803N000A0002B1325BC02CB000AB1331B9803N00060002B131CB07017F25EF KMOP0049R(B06A0B0000C0180B0281BDEADB1304B062CB00((0AB16F7B1023B982CB00127F2B0FKMOP0050(P"N00030009B16CCB9803N00060002B1307BDB20N00000002B0012B0460C008E7F29CFKMOP0051PR(B0460C0180B062CB000AB1014B04C1B0581B10E2B04C1BD0ADB0002B0A32B18017F1B8F KMOP0052R$B0581B06A0C025EC0288B5B60N00260001$0B0002B0281BDEADB1302B0201B00017F205FKMOP00530R(BC181B06A0C012EBC04DB0221B0009BC08CB0222B001DBDC72BCC72BCC52BC08C7F126F KMOP0054RN!B0222B0017BDB72B0008BCC72BC452BC046B0606B16D1B2EC0B0002B01007F2ADFKMOP0055N40000ASSUME40000FMBCLO30148F.MCLOS302BEFMMTBL30006FMOPEN7F200F KMOP0056.J40000FMUPFD3020CKMBTS 500A4KMCLOS302A6KMLOC 50000KMOPEN7F236F KMOP0057JJ30122KMRD 40000KMREL 3013EKMRMD 50184KMRSQ 3005CKMULG 7F2D2F KMOP0058J,30108NFCALR40000NFRTA 40000RTA 40000SPOP, 40000SPUSH 7F330F KMOP0059D:  KMOPCL  01/26/85 05:47:42  SDSMAC 1.2.0 83.138KMOP0060Ded& .SYN $XMA$OPL = "@$XMA$OPL,TUNLST"&  .ENDIF  .ENDIF  .IF "&MUNLST",EQ,Y & .SYN $XMA$OPL = "@$XMA5KMPLG P:1) 4Sw@L000DEKMPLG M0044NFWORD0001M0010NFER000002M0010NFER1000037F277FKMPL0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER5000077F241FKMPL0002NN!M0010NFER600008M0010NFER700009M0010NFER80000AM0010NFER90000B7F213FKMPL0003NM001J0NFERA0000CM0010NFERB0000DM0010NFERC0000EM0010NFERD0000F7F1C9FKMPL0004JR#M0010NFERE00010M0010NFERF00011M0072NFPTR 0012P00000001B0003B00057F189FKMPL0005RR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F KMPL0006R**V@R(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF KMPL0007RR#B0010B0008B0004B0002B0001BFE00P00000002B0001B0203B0405B0607B08097F279FKMPL0008RN#B0A0BB0C0DB0E0FP00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1B9FKMPLN0009R#P00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B30317F245F KMPL0010RR#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B46477F1D6FKMPL0011RD!B4849B4A4BB4C4DB4E4FP00000007B5051B5253B5455B5657B5859B5A5BB5C5D7FD179FKMPL0012R#B5E5FP00000008B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP000000097F1CFF KMPL0013RR#B7071B7273B7475B7677B7879B7A7BB7C7DB7E7FP0000000AB8081B8283B84857F181FKMPL0014R:B8687B8889B8A8BB8C8DB8E8FP0000000BB9091B9293B9495B9697B9:899B9A9B7F132FKMPL0015N!B9C9DB9E9FP0000000CBA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAF7F1AAF KMPL0016NR#P0000000DBB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP0000000EBC0C17F105F KMPL0017R4BC2C3BC4C5BC6C7BC8C9BCACBBCCCDBCECFP0000000FBD0D1B4 D2D3BD4D5BD6D77F066FKMPL0018 R#BD8D9BDADBBDCDDBDEDFP00000010BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECED7F01FFKMPL0019RR#BEEEFP00000011BF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP000000127F0BBF KMPL0020R*P00020012P00040012P00060012P00080012P000**A0012P000C0012P000E00127F2B7F KMPL0021*R#P00100012P00120012P00140012P00160012P00180012P001A0012P001C00127F2C5F KMPL0022RR#P001E0012P00200012P00220012P00240012P00260012P00280012P002A00127F2BDF KMPL0023R P002C0012P002E0012P00300012P00 4320012P00340012P00360012P003800127F2B5F KMPL00244R#P003A0012P003C0012P003E0012P00400012P00420012P00440012P004600127F2A6F KMPL0025RR#P00480012P004A0012P004C0012P004E0012P00500012P00520012P005400127F29EF KMPL0026R P00560012P00580012P0>05A0012P005C0012P005E0012P00600012P006200127F296F KMPL0027>R#P00640012P00660012P00680012P006A0012P006C0012P006E0012P007000127F28EF KMPL0028RR(A0000BCE8BB06A0B0000BC0EFB0182B1337BC18FB0226B0142B0646B0A23BA1837F17AF KMPL0029R BC0D6B06C3 HB0983BCBC3B0184B0223B0007B40E0N00400001BCB03B0022BC04C7F1BEFKMPL0030HR#B0221B0016B882FB0142N00400001B1603BC0AFB017CB1011B06A0B0000C007A7F213FKMPL0031RR(B05C6BC0D6BA0C5BC0AFB017CBC12FB0184BDCB3B0604B16FDBC0AFB017CB02267F0D7F KMPL0032RR(BFFFAB0204B4900BDB04B0002B04C0B06A0B0000B0000B062FB0182B16CFBC04C7F16CF KMPL0033RR(B0221B0016B06A0B0000C00BCBC041B1319B0221BFFFCBC081BC0D1BA043BA9437F169F KMPL0034RN#B0006B1003BCCB1B0643B16FDBC0D1B16FBB04D2B8825B0008N00200001B16047F1C6FKMPLN0035R(B06A0B0000B0000B1003B06A0B0000B0000B0203B4600BDB03B0002BC0CCB02237F203F KMPL0036RJB0016B04F3B04F3B04F3B04F3B04F3B04F3B04C0B064ABC2DAB045B7F377F KMPL0037JJ30044FMBMAP30004FMMTBL30070KMBTD 50000KMPLG 40000KMRD 7F2E4F KMPL0038JL4 30082KMRDK 300B0KMRF 300B8KMRMD 7F816F KMPL00394B:  KMPLG 01/26/85 05:52:33  SDSMAC 1.2.0 83.138KMPL0040B T.DP.KIFMGR.SOURCE.KMOVLYC 55 OBJECT ACCESS NAME = T.DP.KIFMGR.OBJECT.KMOVLYC 56  LISTING ACCESS NAME = T.DPL KMEK P84OwL00076KMEK  M0044NFWORD0001M0010NFER000002M0010NFER1000037F2C6FKMEK0001LR#M0010NFER200004M0010NFER300005P00000001B0003B0005B0006B0007B00097F210FKMEK0002RR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF KMEK0003RT@R(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF KMEK0004RR#B0002B0001BFE00P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F211FKMEK0005RN#P00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B20217F259F KMEKN0006R#B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B3031B3233B3435B36377F1EDFKMEK0007RR(B3839B3A3BB3C3DB3E3FA0000B2F08BC0C1B06A0B0000C0074BD221B0001B09887F175F KMEK0008RD!BCBC8B0184BC108B0224B0007B4120N00400001BCB04B0022BC121B0002BC0437FD201FKMEK0009R#B882FB0142N00400001B1606BC06FB017CBDCB1B0608B16FDB101CBD1B1BD1F17F178FKMEK0010RR#B0986B0A16B130ABD4A0N00000004B0604B1504B1303B0582B0608B130FB06067F216FKMEK0011R:B16F6B0987B0A17B13EEBD4B1B0604B1101B1003B0582B0608B1303B: 0607B16F77F19CF KMEK0012B10E4B2EC87FD79FKMEK0013>50000KMEK 30006KMKDG 40000SPOP 40000SPUSH 7F5C8F KMEK0014>B:  KMEK  01/26/85 05:38:21  SDSMAC 1.2.0 83.138KMEK0015BOV*R2+,*R3+ ! MOV*R2+,*R3+ ! MOV KMKDG P84PwR00016KMKDG A0000BC06FB0182B0601B0A21B0221B0144BA04FB05CBB04C07F222F KMKD0001RBC000B045B7FD97FKMKD0002 50000KMKDG 7FD46F KMKD0003B:  KMKDG 01/26/85 05:44:09  SDSMAC 1.2.0 83.138KMKD0004BB066ABFFF8B05AABFFF8B10047DKMLOC P 8$ 4Q+w@L00196KMLOC M0044NFWORD0001M0010NFER000002M0010NFER1000037F%%295FKMLO0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER5000077F241FKMLO0002NN!M0010NFER600008M0010NFER700009M0010NFER80000AM0010NFER90000B7F213FKMLO0003NM001N!0NFERA0000CM0010NFERB0000DP00000001B0003B0005B0006B0007B00097F1D4FKMLO0004NR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF KMLO0005RR(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF KMLO0006R@R#B0002B0001BFE00P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F211FKMLO0007RR#P00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B20217F259F KMLO0008RN#B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B3031B3233B3435B36377F1EDFKMLON0009R#B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B4647B4849B4A4BB4C4D7F190FKMLO0010RR#B4E4FP00000007B5051B5253B5455B5657B5859B5A5BB5C5DB5E5FP000000087F1E3F KMLO0011RD!B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP00000009B7071B7273B74757FD19FFKMLO0012R#B7677B7879B7A7BB7C7DB7E7FP0000000AB8081B8283B8485B8687B8889B8A8B7F149FKMLO0013RN!B8C8DB8E8FP0000000BB9091B9293B9495B9697B9899B9A9BB9C9DB9E9F7F22FF KMLO0014N>P0000000CBA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP0000000DBB>0B17F119F KMLO0015R(BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFA0000B2F08B0206B0002BC201BC0EF7F095F KMLO0016RR#B01F6B06A0B0000C0176B9825B0011N00010002B163CBD1E5B0010B0987BC0AF7F1E6FKMLO0017R4B01F4BC06CB0020B1605BC06FB01F8BC208B1157B1077B06A04 C0178C005ABC0C17F16CF KMLO0018 R(BC102B8D33B160CB8D33B160AB8513B1608B04C3BC101B612FB01F8B3CECB00227F154F KMLO0019RR(B61C3B102DBC06FB01F8BC0C1BC102B8D33B1604B8D33B1602B8513B1323BA06C7F154F KMLO0020R*B0022B06A0C0178C007CB0607B16F1B0606B1309**BC0EFB01F6BC4E5B0008BC0B37F168F KMLO0021*R(BC4E5B000ABE093B16BBB04C0BD0ACB0002B0982B0222BFFBFB1303B0222BFFFD7F100F KMLO0022RR#B1602B0700B1003BDB20N000D000DB0012B0460C016AB0703BC208B1337B11087F21CFKMLO0023R B0607B1303BA06CB0022B102EB0203 4B000CB100EB982CB0024N00090006B13277F215FKMLO00244R(B8BC1B01F8B1303B606CB0022B1024B0203B0008B04ECB0020BA0C5BC1D3BE1E37F174F KMLO0025RR(B0002B1339BCB33B001CBCB13B001EBC0EFB01F6BC1C2B06A0C000EC0176BC0877F13DF KMLO0026R BC06FB01F8BC208B150C>BD1E5B0010B0987B0607B39ECB0022BA22FB01F8BC0487F135F KMLO0027>N!B06A0C0178C0092BCB01B0020BC0D1BCCB1BE0D1BCCB1BCCB1B882FB01427F229FKMLO0028NR#N00400001B160FB0206B0144BA18FBC06CB0020B0221B0006BC0AFB017CBD1A67F1C8FKMLO0029RB0001B0986BDCBD1B0606B16FDB06A0B0000BC0C3B1609BDB20N0003000DB00127F1C4FKMLO0030DR(B06A0C015EB0201BDEADBCA81BFFFEB2EC8BCE8BBCE81B04C0BC681BA6ACB00227F08AF KMLO0031R@B6685BC06FB003EB6065B0006B805AB1201B0700B2EC17F5ECF KMLO0032@ 3016CFMMTBL40000KMKC4 50000KMLOC 30102KMRD 40000KMREL 7F322F KMLO00334(40000SPOP 40000SPUSH 7FAACFKMLO0034(B:  KMLOC 01/26/85 05:44:32  SDSMAC 1.2.0 83.138KMLO0035BOPTION=(@$OPT),  ERROR=".XMAERR@$$ST"EC.IF @$$CC,GT,0>KMDLSR P9 14Ow@L 00222KMDLSR M0044NFWORD0001M0010NFER000002M0010NFER1000037F268FKMDL0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER5000077F241FKMDL0002NN!M0010NFER600008M0010NFER700009M0010NFER80000AM0010NFER90000B7F213FKMDL0003NM001J0NFERA0000CM0010NFERB0000DM0010NFERC0000EM0010NFERD0000F7F1C9FKMDL0004JR#M0010NFERE00010M0010NFERF00011P00000001B0003B0005B0006B0007B00097F1F0FKMDL0005RR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF KMDL0006RBEV@R(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF KMDL0007RR#B0002B0001BFE00P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F211FKMDL0008RN#P00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B20217F259F KMDLN0009R#B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B3031B3233B3435B36377F1EDFKMDL0010RR#B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B4647B4849B4A4BB4C4D7F190FKMDL0011RD!B4E4FP00000007B5051B5253B5455B5657B5859B5A5BB5C5DB5E5FP000000087F1DE3F KMDL0012R#B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP00000009B7071B7273B74757F19FFKMDL0013RR#B7677B7879B7A7BB7C7DB7E7FP0000000AB8081B8283B8485B8687B8889B8A8B7F149FKMDL0014R:B8C8DB8E8FP0000000BB9091B9293B9495B9697B9899B9A9BB9C9DB9:E9F7F22FF KMDL0015R#P0000000CBA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP0000000DBB0B17F119F KMDL0016RR#BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP0000000EBC0C1BC2C3BC4C5BC6C77F07DFKMDL0017R4BC8C9BCACBBCCCDBCECFP0000000FBD0D1BD2D3BD4D5BD6D7B4 D8D9BDADBBDCDD7F020FKMDL0018 R#BDEDFP00000010BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP000000117F0CFF KMDL0019RR(BF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFA0000BCE8BB04C0BD0ACB00057F018F KMDL0020R*B0A22B171BB06A0B0000C006EB06A0B0000C0154**BC06FB01C4BC0AFB01F4BCCB17F155F KMDL0021*R#BCCB1BCCB1B0221BFFF4BCCB1BCCB1BCCB1BC0C3B1313B1503BD060N0005000D7F110FKMDL0022RR#B1018BD060N0004000DB1015BC02CB0020B1609B04C1B06A0B0000C0154B02817F223FKMDL0023R BDEADB1602B0460C0154BC06FB01F4 0B06A0B0000B0000BC082B1304BD0607F2A5FKMDL00240R#N0007000DB1075B105BB06A0B0000C0154BC041B1603BD060N0005000DB106C7F24AF KMDL0025RR#BCBE0N00400001B0182BC181BCBD5B01D2BCBE5B0002B01D4BCBECB0022B01C87F162FKMDL0026R B05AFB0134B13FDB882FB014:2N00400001B1607B04C1B06A0C004CC0154B02817F1E4FKMDL0027:R(BDEADB1350BC046BC0AFB017CB06A0B0000C0154BC06FB01F4B06A0B0000C01547F158F KMDL0028RR#BC0C3B1307B8BE0N00400001B0182B1603BD020N000E000FB103CBC0EFB01D67F1EDF KMDL0029RB06A0B0000C015D!4B05AFB0182B8BEFB0182B0142B12E1BC046B06A0B0000C01547F1A7F KMDL0030DR(B0221BFFFCBC081BC0D1BA043BA943B0006B1003BCCB1B0643B16FDBC0D1B16FB7F100F KMDL0031RR#B04D2B8825B0008N00200001B1604B06A0B0000C0154B1003B06A0B0000C01547F256FKMDL0032RB04CN&1BCB2FB01C8B0022BC0AFB0200BC0EFB01F4BCCF2BCCF2BCCF2B062EB00067F0C8F KMDL0033NR#B1802B062EB0004BEBE0N00320001B0202B1004B0701B1005BDB01B0012B02017F233FKMDL0034RR(B0001B04C0B2EC0BCE8BB04C0B06A0C000EC021ABD06CB0012B1305B906FB01857F166F KMDL0035R@R#B1A02BDBC1B0185BDB00B0012B9806N00020007B1303B9806N00010006B16087F242F KMDL0036RR#BC06FB017CBA06FB0184B0601BB460N00010002B13FCB06A0C0014C021ABC1EF7F19DFKMDL0037RN#B01C4BC0C3B1308B1104BDB20N0004000DB0012B1003B9806N00000007B13137F25BF KMDLN0038N!B0227BFFFABC0EFB01F6BCCF7BCCF7BCCF7BC0D7BE0E7B0002B160EBDB207F18AFKMDL0039NR#N00080006B0024BC0EFB01F4B04F3B04F3B04F3BDB20N0008000DB0012B04C07F1F9F KMDL0040RH#B0460C0154BC0EFB01F4BCCF7BCCF7BCCF7B9806N00000007B1402B0460C015C7F165FH KMDL0041 R#BC06FB01F4B06A0C0060C0210BC082B1303BDB20N0007000DB0012B0460C015C7F1EBFKMDL0042R& B04C3BDB03B0012B10997FB68FKMDL0043&J30208FMLKCK300C6KMBTD 301A0KMBTS 50000KMDEL 300BCKMEK 7F2CEF KMDL0044J300AAKMLOC 300F6KMLOG 300E2K.MRD 30072KMRDK 40000KMREL 7F2D9F KMDL0045.J30120KMRF 30128KMRMD 50164KMSC 3016AKMSUK 40000SPOP 7F330F KMDL0046J 40000SPUSH 7FD22F KMDL0047D:  KMDLSR  01/26/85 05:35:30  SDSMAC 1.2.0 83.138KMDL0048DENDIF  .KMULG P94Uw@P000F0KMULG M0044NFWORD0001P00000001B0003B0005B0006B0007B00097F244FKMUL0001PR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF KMUL0002RP'B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF KMUL00P03R(B0002B0001BFE00A0000B2F04BC6AFB013AB1152BC0CAB04DAB022AB0004B882F7F167F KMUL0004RR(B013AC00AEB1637B04EFB013ABCAAFB013ABFFFEB06A0B0000C00A4BC125B00047F11BF KMUL0005RF"B1304B8BC4B0134B160AB102FB06A0C00B0B102CBCAAFB013ABFFFEB06A0C00247F1F28F KMUL0006R(C00A4BC095BE0A5B0002BC065B0004BC082B1318B05AFB013AB8101B13EFB062F7F167F KMUL0007RR(B013AB1011BC0CAB0223BFFFCB06A0C0044C00A4BC0C5B06A0B0000C00A4B06A07F15FF KMUL0008R<C00B0BC0CAB0223BFFFCB06A0C00B0B062FB013ABCAAFB013ABFFFEB15< E9B13E87F0B0F KMUL0009R(B06A0B0000B06A0B0000C00A8B04EFB013AB1002B072FB013AB022ABFFFCB2EC47F154F KMUL0010RR(B03E8BCE8BBCBF3B002CBCBD3B002EB06A0B0000BFFFFBC04FB0221B0036B02027F0F9F KMUL0011R2B8000BC0CFB0223B002CB05A0B0000B06A0B0000C00E6BE82" A0N002C0001B00187F1EFFKMUL0012":B06A0B0000B0000B06A0B0000B064ABC2DAB045B7F71BF KMUL0013:J40000ENAB 3009AFMBCLO30096FMMTBL40000INHB 500B0KMDSSB7F2DBF KMUL0014JH 300BCKMMVOL3006CKMRD50000KMULG 30074KMWRN 300E8NFENAB7F265F KMUL00H15J300D2NOSCHD300E2SMDSSB300D6SMFSID40000SPOP 40000SPUSH 7F23BF KMUL0016JB:  KMULG 01/26/85 06:05:38  SDSMAC 1.2.0 83.138KMUL0017B%: 0080 0014 0020 DATA 32 R7 DISPLACEMENT TO STACK:* 0081 0016 2400 SPND KMPAT3 P9  N4RQw@R#000CAKMPAT3 A0000B00CABDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F01EF KMPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEA%%DBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0008RBDEAD7FE79F KMPA0009 50000KMPAT37FD24F KMPA0010D:  KMPAT3  01/26/85 05:51:06  SDSMAC 1.2.0 83.138KMPA0011D0E' 00720058 0446 0266 1304 JEQ RED060  JUMP IF YES0: 0447 02M3M3RTO/2.0 83.138 05:50:28 SATURDAY, JAN 26, 1985. /= KMOVKMLOG P9$ &4QYwL00048KMLOG M0010NFER800001M0010NFER900002M0010NFERA000037F2C0FKMLO0001LR#M0010NFERB00004P00000001B8081B8283B8485B8687B8889B8A8BB8C8DB8E8F7F157FKMLO0002RR#P00000002B9091B9293B9495B9697B9899B9A9BB9C9DB9E9FP00000003BA0A17F1BDF KMLO0003RT@R#BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP00000004BB0B1BB2B3BB4B5BB6B77F0A4FKMLO0004RR(BB8B9BBABBBBCBDBBEBFA0000BCE8BBCE83BCE82BCE81B04C0BC06FB0032B0A217F063F KMLO0005RN&B171AB8BEFB013AB0140B1314BC0CAB04DABCAAFB013AB0002B022AB0004BC96F7F11AF KMLON0006R(B0134B0004B06A0B0000B06A0B0000C003CB05AFB013AB022ABFFFCB1002BD0207F19AF KMLO0007R N000B0004B2EC37FCB6FKMLO0008 J30030FMTSET50000KMLOG 30034KMWRN 40000SPOP 40000SPUSH 7F2ABF KMLO0009J(:  KMLOG 01/26/85 05:46:24  SDS(MAC 1.2.0 83.138KMLO0010**************************************************$@@* STEP 2B - SCAN THE B-TREE BLK FOR THE ENTRY CORRESPONDNG *$@8* TO THE DATA BASE KEY IN THE CURRENCY INFO.,  *$8 *  I.E. THE POINTER TO THE LA KMBTD P9(64MKwL00114KMBTD M0010NFER000001M0010NFER100002M0010NFER2000037F2EDFKMBT0001LR#M0010NFER300004M0044NFWORD0005P00000001B0001B0203B0405B0607B08097F1B7FKMBT0002RR#B0A0BB0C0DB0E0FP00000002B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1BAFKMBT0003RT@R#P00000003B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000004B30317F247F KMBT0004RR#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000005B0003B0005B0006B00077F1FEFKMBT0005RN&B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFF7F169F KMBTN0006R(B8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B00087F27AF KMBT0007RR(B0004B0002B0001BFE00A0000B2F09B072ABFFFAB04C6B04C4B06A0B0000C01127F19CF KMBT0008RD!BC0C3B112FBC1EFB01C4B0227BFFFABC0C7B06A0B0000C0112BC0A7B0004BD0E57DF111F KMBT0009R(B0010B0983B04C8BC242B626FB01F8B3E2CB0022B60C8B8491B1608B88A1B00027F182F KMBT0010RR(B0002B1604B88A1B0004B0004B1312BA0ACB0022B0603B16F2B0704BC5E5B000C7F1C0F KMBT0011R:BC9E5B000EB0002BC9EFB01F8B0004BC097BE0A7B0002B16D5B104FB: 04EABFFFA7F0EEF KMBT0012R(B06A0B0000C0112B9B2FB0183B0013B1618BCBECB0022B01C8BCB15B001CBCB257F168F KMBT0013RR(B0002B001EB8BC2B01F8B1603B04ECB0020B100ABC242B626CB0022BCB09B00207F18FF KMBT0014R0BC06FB0200BCC79BCC79BCC79BC042BA06CB0022B0603B0$1602B0586B1008BC2057F14DF KMBT0015$R#BA22FB003EB6225B0006BCCB1B8201B1AFDBA96CB0022B0006B7960N000100017F1B8FKMBT0016RR(B0010B160DB0706B9B2FB0183B0013B1608BCB25B000CB001CBCB25B000EB001E7F18AF KMBT0017R&B04ECB0020BC186B1304B06A0B0000B0000B&.1005BE7E0N00260005B06A0B00007F21BFKMBT0018.C0112B2EC97FD8DFKMBT0019J 30102KMBDEL3000CKMBS50000KMBTD 3007AKMLOG 30020KMRD 7F322F KMBT0020J>40000KMREL 3010EKMRMD 40000SPOP 40000SPUSH 7F579F KMBT0021>:  KMBTD 01/26/85 , 05:28:29  SDSMAC 1.2.0 83.138KMBT0022,************ 0*  BUFFER MANAGEMENT CALL SUBROUTINES  *0@************************************************************@KMRMD SPUSH 0,S$  MOV*R5,@FWABN(R15)  R11 $ MKMPAT6 P90 N4Ruw@R#000CAKMPAT6 A0000B00CABDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F01BF KMPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0008RBDEAD7FE79F KMPA0009 50000KMPAT67FD21F KMPA0010D:  KMPAT6  01/26/85 05:51:42  SDSMAC 1.2.0 83.138KMPA0011D492  *$ 0493  * SINCE THE RPB ONLY $00860097* KITCMD0134 B00190088  KMLOG DؙVK-RTO MON.NFERF0 $  =>T.DKMWRN P94-4VQwL000CCKMWRN M0044NFWORD0001M0072NFPTR 0002M0192NFDATA00037F212FKMWR0001LR#P00000001B0003B0005B0006B0007B0009B000AB000CB000DB000EB000FB00127F25EFKMWR0002RR(B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B1000B0800B0400B02007F1BBF KMWR0003RTN!B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE00P000000027F399F KMWR0004NR#P00020002P00040002P00060002P00080002P000A0002P000C0002P000E00027F2BEF KMWR0005RR#P00100002P00120002P00140002P00160002P00180002P001A0002P001C00027F2CCF KMWR0006R@R#P001E0002P00200002P00220002P00240002P00260002P00280002P002A00027F2C4F KMWR0007RR#P002C0002P002E0002P00300002P00320002P00340002P00360002P003800027F2BCF KMWR0008RN#P003A0002P003C0002P003E0002P00400002P00420002P00440002P004600027F2ADF KMWRN0009R#P00480002P004A0002P004C0002P004E0002P00500002P00520002P005400027F2A5F KMWR0010RR#P00560002P00580002P005A0002P005C0002P005E0002P00600002P006200027F29DF KMWR0011RD!P00640002P00660002P00680002P006A0002P006C0002P006E0002P007000027F2D95F KMWR0012R#P00000003P00020003P00040003P00060003P00080003P000A0003P000C00037F2CCF KMWR0013RN!P000E0003P00100003B000FP00120003P00160003P00180003P001800037F38DF KMWR0014N>P001A0003P001C0003B0000P001E0003P00200003P00220003P002400037>F38DF KMWR0015R#P00260003P00280003P002A0003P002C0003P00340003P00360003P003800037F2AFF KMWR0016RR#P003A0003P003C0003P003E0003P00400003P00420003P00440003P004600037F2A6F KMWR0017R8P00480003P004A0003P004C0003P004E0003P00500003P005200038P005400037F29EF KMWR0018R#P00560003P00580003P005A0003P005C0003P005E0003P00600003P006200037F296F KMWR0019RR#P00640003P00660003P00680003P006A0003P006C0003P006E0003P007000037F28EF KMWR0020R.P00720003P00740003P00760003P00780003P007A000.& 3P007A0003P007C00037F28AF KMWR0021&R#P007E0003P00800003P00820003P00840003P00860003P00880003P008A00037F293F KMWR0022RR#P008C0003P008E0003P00900003P00920003P00940003P00960003P009800037F28BF KMWR0023R$P009A0003P009C0003P009E0003P00AC00$,03B0080P00AE0003P00B200037F31BF KMWR0024,R#P00B60003P00BA0003P00BE0003P00C00003P00C20003P00C40003P00C600037F24AF KMWR0025RR#P00C80003P00CA0003P00CC0003P00CE0003P00D00003P00D20003P00D400037F235F KMWR0026RP00D60003P00D80003P00DA0003P600DC0003P00DE0003P00E00003P00E800037F227F KMWR00276R#P00F00003P00F80003P00FA0003P00FC0003P00FE0003P01000003P010200037F251F KMWR0028RR#P01040003P01060003P010C0003P010E0003P01160003P01180003P011A00037F2A9F KMWR0029R P011C0003P011E0003@P01200003P01220003P01240003P01280003P012C00037F2A8F KMWR0030@R#P012C0003P012E0003P01300003P01320003P01340003P01880003P018A00037F299F KMWR0031RP"P018C0003P018E0003P01900003A0000B2F05B05A0B0000B06A0B0000B07807F2A6FKMWR0032P BCEA2B0002 H#B0780BCEA2B0004BCBF3B002CBCBD3B002EBC0CFB0223B002CB06A07F10FF KMWR0033HR(B0000BFFFFB07C0BC8AFB002CB0002B07C0BC8AFB002EB0004B0780BC2E2B000E7F11DF KMWR0034RR(B0780BCEABB000CB07C0BCAEFB0038B000CBC101B04C0BC06FB0036BC061B00107F13CF KMWR0035RR#B6060N00980003B0780BCEAEB001CBCE81B07C0BCB8BB001CB06A0B0000B06A07F188FKMWR0036RR(B0000B0000B04C4BD100B064ABC05AB064AB05A0C0004B07C0BCB9AB001CB06A07F181F KMWR0037RN&C0008B064AB0780BC2E2B000EB07C0BCADAB000CB064AB07C0BC89AB0004BCBDA7F10DF KMWRN0038R(B002EB064AB07C0BC89AB0002BCBDAB002CB06A0C006EB06A0C0026BFFFFB04C07F10BF KMWR0039R0BD004B1303B06A0B0000BD004B2EC57F940FKMWR00400J40000ENAB 3008CFMBMID30072FMBW 300C6FMMTBL40000INHB 7F337F KMWR0041J 300BAKMMVOL50000KMWRN 4300B6NFENAB40000NFMAP030082NOSCHD7F232F KMWR004244 40000SMMJCA40000SPOP 40000SPUSH 7F7FDF KMWR00434B:  KMWRN 01/26/85 06:06:32  SDSMAC 1.2.0 83.138KMWR0044B0038R(B0000B0000B0000BKxKxRTOKMRWS P9C74Tw@L002C4KMRWS M0044NFWORD0001M0010NFER000002M0010NFER1000037F26EFKMRW0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER5000077F241FKMRW0002NN!M0010NFER600008M0010NFER700009M0010NFER80000AM0010NFER90000B7F213FKMRW0003NM001J0NFERA0000CM0010NFERB0000DM0010NFERC0000EM0010NFERD0000F7F1C9FKMRW0004JR#M0010NFERE00010M00%%10NFERF00011P00000001B0003B0005B0006B0007B00097F1F0FKMRW0005RR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF KMRW0006R06V@R(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF KMRW0007RR#B0002B0001BFE00P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F211FKMRW0008RN#P00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B20217F259F KMRWN0009R#B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B3031B3233B3435B36377F1EDFKMRW0010RR#B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B4647B4849B4A4BB4C4D7F190FKMRW0011RD!B4E4FP00000007B5051B5253B5455B5657B5859B5A5BB5C5DB5E5FP000000087F1DE3F KMRW0012R#B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP00000009B7071B7273B74757F19FFKMRW0013RR#B7677B7879B7A7BB7C7DB7E7FP0000000AB8081B8283B8485B8687B8889B8A8B7F149FKMRW0014R:B8C8DB8E8FP0000000BB9091B9293B9495B9697B9899B9A9BB9C9DB9:E9F7F22FF KMRW0015R#P0000000CBA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP0000000DBB0B17F119F KMRW0016RR#BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP0000000EBC0C1BC2C3BC4C5BC6C77F07DFKMRW0017R4BC8C9BCACBBCCCDBCECFP0000000FBD0D1BD2D3BD4D5BD6D7B4 D8D9BDADBBDCDD7F020FKMRW0018 R#BDEDFP00000010BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP000000117F0CFF KMRW0019RR(BF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFA0000BCE8BB04C0BC0AFB017E7EFFEF KMRW0020R*B9812N000F0011B1310BD066B0001B0981B9832N**00000004B1603B0601B16FB7F25DF KMRW0021*R#B1007BC06FB01F4BC0AFB017EB06A0B0000C0104BC0AFB017CB9812N000F00117F19EFKMRW0022RN!B135FBD066B0001B0981B9832N00000004B1603B0601B16FBB1056BDB207F307F KMRW0023N$N00060006B0002B06A0B0000C0104BDB20$0N00070006B0002BC0C3B110BBD1267F25FF KMRW00240R#B0000B0A74B1107BDB20N0004000DB0012BDB2FB0183B0013B1047BC12FB01F47F1DCFKMRW0025RR(BC06FB01DCB130ABC12FB01DEBC02FB0182B0201B8000B0901BEBC1B01CAB04C07F12BF KMRW0026R BC06FB017CBC0AFB0180BD0E:6B0001B0983BDCB1B0603B16FDB06A0B0000C01047F14DF KMRW0027:R#B9BECB0013B0183B1620BC0EFB0202B0AA3B1713BDB20N000E0011B0002BC06F7F1A6FKMRW0028RR(B017CBC0AFB0180BD0E6B0001B0983BDC72B0603B16FDB06A0C0052C018ABDB207F141F KMRW0029RN00070006B0002DBC0AFB01C4B0222BFFFABC0EFB01F6BCCF2BCCF2BCCF2BC0CF7F0DAFKMRW0030DR(B0223B01D2B06A0B0000C018AB1043B1042BCE8BB04C0B06A0B0000BC06FB01DE7F187F KMRW0031RR(BC0AFB01CEBCBC3B01CEB06A0B0000C0104BCBC2B01CEBC0A5B000CB0582BCBC27F0E3F KMRW0032RB01DN&CBC085B0222B000EBC052B1302BA081B10FCBCBC2B01CCB06A0B0000C018A7F155F KMRW0033NR(B10D7BCE8BB04C0B06A0C0142C018ABC0EFB01DEB06A0C00FEC018AB05A5B000C7F10CF KMRW0034RR(BC06CB0016BCB2FB01D8B0016BCBC1B01D8BC06CB0018BCB2FB01DAB0018BCBC17F0EBF KMRW0035R@R(B01DABC06CB001ABCB2FB01DCB001ABCBC1B01DCB0460C02C2BCE8BB04C0BCBE07F0BEF KMRW0036RR#N00400001B0182B0206B0144BA18FBCBECB0022B01CEBCBC7B01CCBC06FB01CA7F160FKMRW0037RN&BC02FB0182B0A01B1176B04C0BD066B0001B0981BCBC1B0184B0221B0007B40607F1B2F KMRWN0038R#N00400001BCB01B0022B06A0B0000BFFFFBC06FB01CCBA066B0002BC0AFB017C7F17DFKMRW0039RR#BD0E6B0001B0983BDCB1B0603B15FDB06A0C010CBC0AFB017CB9812N000F00117F181FKMRW0040RD!B1308BD0E6B0001B0983B9832N00000004B1606B0603B15FBBC0A6B0000B0A527FD1F5FKMRW0041R(B1148B06A0C00DAC018ABC0C3B1152BC0EFB01C4B0223BFFFAB06A0C0158C018A7F126F KMRW0042RR(BD1E5B0010B0987BC06FB01F8B0221B0006BC0AFB017CBD0E6B0001B0983BC1037F15EF KMRW0043R:BEBE0N003A0001B0202B06A0B0000BFFFFB0221BFFFABC104B1534B1:115BC0AF7F162FKMRW0044R(B01DEBC0C1B8CF2B1610B8CF2B160EB8CF2B160CB06A0B0000C018ABC0AFB01F47F100F KMRW0045RR(BCC72BCC72BCC72B06A0C014EC018AB100FB0607B1303BA06CB0022B10D3B02037F15FF KMRW0046R0B000CBA0C5BC06FB01C4B0221BFFFABCC73BCC73B10BDB0$04C0B05AFB0182B02267F0F5F KMRW0047$N!B0004B8BEFB0182B0142B1502B0460C01A8BCB2FB01CEB0022B1002BD0207F2A6FKMRW0048N N0009000BB2EC07FCB4FKMRW0049 J301CEFMBMAP301ECFMMTBL3002AKMBTD 300AAKMBTI 30212KMBTS 7F23FF KMRW0050J3011CKMGFB 3>024AKMKC 3026CKMLOG 30224KMRD 40000KMREL 7F32AF KMRW0051>J3027CKMRMD 50000KMRWS050106KMRWS150148KMRWS25018EKMRWS37F203F KMRW0052J(40000SPOP 40000SPUSH 7FAACFKMRW0053(>:  KMRWS 01/26/85 05:59:37  SDSMAC 1.2.0 83.138KMRW>0054  .ENDIF  .ENDIF  .IF "@@$XMA$E",EQ,$XMA$E  .SYN $XMA$E = " "  .ENDIF ) .QBID TASK= >10, PROGRAM FILE=.S$LANG, )7 PARMS = (@&SOURCE ACCESS NAME, @&OBJECT ACCESS NAME, 7 @&LISTING ACCESS NAME, @@$XMA$ KMCNV P9V4Nw@R0003EKMCNV A0000B2F07BC16FB0204B8103B1201BC0C4BC183B04C4BC1C57F1DAF KMCN0001RR(B0603B1108BC037B13FBB9011B1201B10FBB06C0BBC40B10F5B0584B1308BC0427F187F KMCN0002R@BC0C6B0704B10EFB2F07BC16FB0206B10E6B04C0B2EC77F599F KMCN0003@ 50000KMC 6NV 50032KMUCV 40000SPOP 40000SPUSH 7F578F KMCN00046B:  KMCNV 01/26/85 05:35:06  SDSMAC 1.2.0 83.138KMCN0005B*(*  NEIBTS(R15): # ENTRIES IN STACK*(6* BTSPTR POINTS TO THE NEXT (EMPTY) SLOT IN THE %62* STACK.IFKMDUMY P9X l4OHwL 0001AKMACTV M0044NFWORD0001M0010NFERC00002M0010NFERD000037F23DFKMAC0001LR#M0010NFERE00004M0010NFERF00005P00000001B0003B0005B0006B0007B00097F1EAFKMAC0002RR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF KMAC0003RT@R(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF KMAC0004RR#B0002B0001BFE00P00000002BC0C1BC2C3BC4C5BC6C7BC8C9BCACBBCCCDBCECF7F0E1FKMAC0005RN#P00000003BD0D1BD2D3BD4D5BD6D7BD8D9BDADBBDCDDBDEDFP00000004BE0E17F103F KMACN0006R#BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP00000005BF0F1BF2F3BF4F5BF6F77F04BFKMAC0007RN!BF8F9BFAFBBFCFDBFEFFA0000B04C0BD020N00010002BDB00B0001B4B207F243F KMAC0008N>N00220001B0004BEB20N00240001B0004B042FB00287F6C0F KMAC0009>50000KMACTV7FD0EF KMAC0010D:  KMACTV  01/26/85 05:37:32  SDSMAC 1.2.0 83.138KMAC0011D -NO TASK WITH RUN ID GIVEN ***  SVC40 -LUNO ASSIGNED TO A DEVICE *(*  SVC2B -LUNO NOT ASSIGNED TO PF (*  SVC12-SVC13-TKMRR P9\+4Sw@L00196KMRR  M0044NFWORD0001M0010NFER400002M0010NFER5000037F2A7FKMRR0001LN!M0010NFER600004M0010NFER700005M0010NFER800006M0010NFER9000077F231FKMRR0002NR#M0010NFERA00008M0010NFERB00009M0072NFPTR 000AP00000001B0003B00057F175FKMRR0003RR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F KMRR0004RR(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF KMRR0005RN#B0010B0008B0004B0002B0001BFE00P00000002B4041B4243B4445B4647B48497F251FKMRRN0006R#B4A4BB4C4DB4E4FP00000003B5051B5253B5455B5657B5859B5A5BB5C5DB5E5F7F161FKMRR0007RR#P00000004B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP00000005B70717F1FDF KMRR0008RD!B7273B7475B7677B7879B7A7BB7C7DB7E7FP00000006B8081B8283B8485B86877FD17EFKMRR0009R#B8889B8A8BB8C8DB8E8FP00000007B9091B9293B9495B9697B9899B9A9BB9C9D7F121FKMRR0010RR#B9E9FP00000008BA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP000000097F117F KMRR0011R:BB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP0000000AP000200:0A7F233FKMRR0012R#P0004000AP0006000AP0008000AP000A000AP000C000AP000E000AP0010000A7F256F KMRR0013RR#P0012000AP0014000AP0016000AP0018000AP001A000AP001C000AP001E000A7F24EF KMRR0014R6P0020000AP0022000AP0024000AP0026000AP0028000AP002A006 0AP002C000A7F25CF KMRR0015R#P002E000AP0030000AP0032000AP0034000AP0036000AP0038000AP003A000A7F254F KMRR0016RR#P003C000AP003E000AP0040000AP0042000AP0044000AP0046000AP0048000A7F24CF KMRR0017R,P004A000AP004C000AP004E000AP0050000AP00520,(00AP0054000AP0056000A7F23DF KMRR0018(R#P0058000AP005A000AP005C000AP005E000AP0060000AP0062000AP0064000A7F235F KMRR0019RR#P0066000AP0068000AP006A000AP006C000AP006E000AP0070000AA0000BD22C7F1E9FKMRR0020R"B0005B0A28B1718BD0ECB0013B1304B0"2983B8BC3B0142B1204BD020N000F00097F1E5FKMRR00212N!B0460B0000B06A0B0000C001CB06A0B0000C0022BC0C3B132BB1121BDB207F2F1FKMRR0022NR#N00040009B0012B1026B8BE0N00400001B0142B1631BC06FB01F4BC191B16047F249F KMRR0023R B8BA1B0002B004AB1A43B04C1B8982CB0024N00090002B1604BC2ECB0020B16017F1E8FKMRR00248R#B0701B06A0B0000C007CB0281BDEADB161AB0460C0028BDB20N00050009B00127F1EBFKMRR0025RR(B0460B0000B0280BFFFFB132AB10F5BC06FB01C4BC0AFB01F4BCCB1BCCB1BCCB17F0C9F KMRR0026RB0221BFFF4BCB31BB 001CBCB31B001EBCB31B0020BC06FB01F4BC191B1604B8BA17F11EF KMRR0027BR(B0002B004AB1A12BC02EB0016B1612B0202B002ABA08EB0203B0004BC103B4BE07F1B8F KMRR0028RR#N003A0001B0202B06A0B0000C0070BC104B1501B1003BD020N00060009B105A7F284F KMRR0029RB06A0BL 0000C00CEBC181B1604BDB20N00050009B0012B1051BC12CB0008BC1667F1ECFKMRR0030LR#BFFFCB0225BFFFCB61A0N0012000AB0202B0000B06A0B0000BC160N0012000A7F1F3F KMRR0031RR#BA185B06A0B0000BFFFFB882FB0142N00400001B1617B0206B0144BA18FBC06F7F1A4FKMRR0032RT@R(B017CBC1E6B0002B8107B140EBC0C2BA0C7BD1A6B0001B0986BA1C6B8107B12037F161F KMRR0033RR(B61C6BC184B6187BDCF1B0606B16FDBCB04B000ABD1ACB0005B0A86B1709BC1AC7F0FEF KMRR0034RN&B0008B6184B1305BA084BCCA0C0194B0646B15FCB06A0B0000BC06FB01F4B06A07F171F KMRRN%%0035R(B0000C018ABC082B1609BD22CB0005B0A68B1703B06A0B0000C018AB0460C007A7F1B8F KMRR0036R4BDB20N00070009B0012B0460C00E0B20207F892FKMRR00374J3010EFMBMAP30100FMBSRD30104FMCIRD30170FMLKCK30182FMLKON7F236F KMRR0038J 30168FMMTBL30026KM8BTS 30188KMCDN 30192KMERR 300CCKMKC 7F2B9F KMRR00398J30064KMLOC 300DEKMRDK 40000KMREL 50000KMRR 500A2KMRRB 7F2DBF KMRR0040J(50038KMRRC 30020KMSUK 7FA8AFKMRR0041(B:  KMRR  01/26/85 05:55:58  SDSMAC 1.2.0 83.138KMRR0042BD LABEL  VALUE DEFN REFERENCES PAGE 0009 1> $ 0196' 01340135017801840197020002140253> BLANKS0194' 02940262 BTSPTR01C4 D00350166 BYTE490009+ I00770149 CNVKEY000C D0068KMBEG P9kU4Lw@L0039EKMBEG M0044NFWORD0001M0010NFER000002M0010NFER4000037F291FKMBE0001LN!M0010NFER500004M0010NFERB00005M0010NFERC00006M0072NFPTR 00077F1FEFKMBE0002NR#M0192NFDATA0008P00000001B0003B0005B0006B0007B0009B000AB000CB000D7F203FKMBE0003RR(B000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B10007F19BF KMBE0004RR(B0800B0400B0200B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE007F257F KMBE0005RN#P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000003B40417F267F KMBEN0006R#B4243B4445B4647B4849B4A4BB4C4DB4E4FP00000004B5051B5253B5455B56577F1C2FKMBE0007RR#B5859B5A5BB5C5DB5E5FP00000005BB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBD7F0BDFKMBE0008RD!BBEBFP00000006BC0C1BC2C3BC4C5BC6C7BC8C9BCACBBCCCDBCECFP000000077F0DE9F KMBE0009R#P00020007P00040007P00060007P00080007P000A0007P000C0007P000E00077F29BF KMBE0010RR#P00100007P00120007P00140007P00160007P00180007P001A0007P001C00077F2A9F KMBE0011R:P001E0007P00200007P00220007P00240007P00260007P00280007P0:02A00077F2A1F KMBE0012R#P002C0007P002E0007P00300007P00320007P00340007P00360007P003800077F299F KMBE0013RR#P003A0007P003C0007P003E0007P00400007P00420007P00440007P004600077F28AF KMBE0014R0P00480007P004A0007P004C0007P004E0007P00500007P0$ 00520007P005400077F282F KMBE0015$R#P00560007P00580007P005A0007P005C0007P005E0007P00600007P006200077F27AF KMBE0016RR#P00640007P00660007P00680007P006A0007P006C0007P006E0007P007000077F272F KMBE0017R&P00000008P00020008P00040008P00060008&.P00080008P000A0008P000C00087F2A9F KMBE0018.N!P000E0008P00100008B000FP00120008P00160008P00180008P001800087F36FF KMBE0019NN!P001A0008P001C0008B0000P001E0008P00200008P00220008P002400087F36FF KMBE0020N$P00260008P00280008P002A0008P002C00$008P00340008P00360008P003800087F28CF KMBE00210R#P003A0008P003C0008P003E0008P00400008P00420008P00440008P004600087F283F KMBE0022RR#P00480008P004A0008P004C0008P004E0008P00500008P00520008P005400087F27BF KMBE0023R P00560008P00580008P005A0:008P005C0008P005E0008P00600008P006200087F273F KMBE0024:R#P00640008P00660008P00680008P006A0008P006C0008P006E0008P007000087F26BF KMBE0025RR#P00720008P00740008P00760008P00780008P007A0008P007A0008P007C00087F267F KMBE0026RP007E0008P0080D0008P00820008P00840008P00860008P00880008P008A00087F270F KMBE0027DR#P008C0008P008E0008P00900008P00920008P00940008P00960008P009800087F268F KMBE0028RN!P009A0008P009C0008P009E0008P00AC0008B0080P00AE0008P00B200087F2FDF KMBE0029N P00B6000 J8P00BA0008P00BE0008P00C00008P00C20008P00C40008P00C600087F227F KMBE0030JR#P00C80008P00CA0008P00CC0008P00CE0008P00D00008P00D20008P00D400087F212F KMBE0031RR#P00D60008P00D80008P00DA0008P00DC0008P00DE0008P00E00008P00E800087F204F KMBE0032R00V@R#P00F00008P00F80008P00FA0008P00FC0008P00FE0008P01000008P010200087F22EF KMBE0033RR#P01040008P01060008P010C0008P010E0008P01160008P01180008P011A00087F286F KMBE0034RN#P011C0008P011E0008P01200008P01220008P01240008P01280008P012C00087F285F KMBEN0035R#P012C0008P012E0008P01300008P01320008P01340008P01880008P018A00087F276F KMBE0036RP"P018C0008P018E0008P01900008A0000C023AC0234B0000C0004C0234B00007F2C0FKMBE0037PF"C01F0C022EB0000C0228C0240C01E8C01E8C01E8C01E8C01E8C0234C0234C02347F1FB0F KMBE0038R(BCE8BBCBEEB0010B003EBC08FB0222B0136BC18EB0226B0040BCCB6BCCB6BCCB67F0CBF KMBE0039RR#BCCB6BCCB6BCCB6B8DB6B0200B003ABCCB6B0640B16FDB4BE0N00360001B02027F12FFKMBE0040R<BD1ACB0002BCBEEB002EB0134B04C2BDB02B0001BDB06B0025B04EFB01< 3AB98067F136F KMBE0041R#N00030003B1607B0207B0100BDB07B0013BFB20N00000003B0005BC12CB00087F269F KMBE0042RP"B9806N00090002B1327B9806N000A0002B1324B9806N00010003B1137BD1EC7F28AFKMBE0043P4B0013B1604B0207B0100BDB07B0013B0987B8BC7B0142B12044 BD020N000F00057F210FKMBE0044 R#B0460C0260B9806N00060003B1303B9806N00070003B1603BC12CB000AB10037F278F KMBE0045RR#B9806N00090003B1603B06A0B0000C0260B9806N00080003B1507BC16FB003E7F257F KMBE0046R*B06A0B0000C0260BCBC4B0046B9806N00000004B**140EB9806N00010003B130B7F24FF KMBE0047*P"B9806N00040003B1308B9806N00090002B1305B9806N000A0002B1302BDB007F2A6FKMBE0048PR#B0012B0200B0016BA00CBCBC0B01F4B0220B0006BCBC0B01F6BC160N001200077F1DFFKMBE0049R"BC005B0220B0014BCBC0B01F8B4BE0N0"20320001B0202BC00FB0220B0186BCBC07F1C4FKMBE00502R(B01C2B0220B004CBCBC0B01D6B0220B0006BCBC0B01DEB0220B000ABCBC0B01E67F156F KMBE0051RR(B0220B0006BCBC0B01ECB0220B0006BCBC0B01F2B0220B000CBCBC0B0200B4BE07F16DF KMBE0052R N00380001B0202BC060N006FE0008B130FBC001B0221BF700B110BBEBE07F321FKMBE00536R#N00380001B0202B0961B0200B0000BA040BCBF1B0204BCBD1B0206B04C0BD0467F1F5FKMBE0054RR(B1158B0981B0221BFFC0B1104B0A11BC061C0000B0451B0281BFFC0B1344B02817F1ABF KMBE0055R BFFC1B134AB0281BFF@C3B133EB0281BFFC5B1357B0281BFFC6B1345B0281BFFC77F0E0F KMBE0056@R(B1342B0281BFFC9B133FB0281BFFCAB133CB0281BFFCEB1339B0281BFFD1B13357F0F9F KMBE0057RR#BD020N00020002B0460C0260B0209B0000B0699C01FCB06A0B0000BC041B13307F234FKMBE0058R B112FB98 J2CB0002N00010003B130DB982CB0002N00040003B1309B982CB00027F259F KMBE0059JR#N00090002B1305B982CB0002N000A0002B1301B1027B0460B0000B0209B00007F2A8F KMBE0060RR(B10E3B0209B0000B10E0B0209B0000B10DDB0209B0000B10DABC06FB01F4B06A07F1AFF KMBE0061RBLV@R#B0000C0260B1013B0209B0000B10D1B100FBEBE0N00360001B0202B0209B00007F24AFKMBE0062RR(B10CABDB00B0001B06A0B0000C02D6BCBAFB0134B002EB1045B06A0C01FABC06F7F14BF KMBE0063RN&B0202B0A91B172EBC04FB0221B0134BCBB1B002EBCBB1B0040BCBB1B0042BCBB17F136F KMBEN0064R(B0044BCBB1B0046BCBB1B0048BC06FB0032B0A21B171BBC06EB0020B0AF1B17047F15AF KMBE0065RN!B982CB0002N00060003B1313BEBA0C0334B0020B0201B0002BC10EBFBA07F302F KMBE0066NH#N00240001B0015B06A0B0000B4004C02D6BC124B0016B16F6B1002BDB00B00017F22EFH KMBE0067 P"BD06CB0025B9801N00010003B110CB9801N00050003B1303B9801N000800037F2B4FKMBE0068PR#B1604B982CB0024N00030003B1302BDB01B0024BC06FB0202B0AB1B1710BD02C7F1ECFKMBE0069RB B0001B160DBDB2CB0012B0001B1309B982CB0012N00030005B1605BDB00B0001B7F219FKMBE0070R#BEB20C0336B0004B982CB0002N00000003B1B02B072CB000CB04C0B2EC0B00087F1F3FKMBE0071RR(B2000BCE8BBCBD5B002CBCBE5B0002B002EB06A0B0000BFFFFB06A0B0000C03507F131F KMBE0072R8B2EC0BCE8BBCE83BCBD3B002CBCBE3B0002B002EB06A0C0346BFFF8 FBC0CFB02237F0A9F KMBE0073R(B002CB06A0B0000C0372B064ABC0DAB2EC0BCE8BBCE83BCBD3B002CBCBE3B00027F0F4F KMBE0074RR(B002EB06A0C0362BFFFFBC0CFB0223B002CB06A0B0000C0398B064ABC0DAB2EC07F11CF KMBE0075R.40000CTRYCD3036EFMBNEW30394FMBRD 40000FMBRDU. 40000FMBREL7F24EF KMBE0076J 3034CFMBRMD40000FMBW30246FMLKOF30274FMMTBL300E2FMSETR7F249F KMBE0077JJ40000FMUPFD300D2FMWTCK50026KMBEG 50272KMCDN 3024EKMCLOS7F257F KMBE0078J<3022AKMDEL 50260KMERR 301F2KMINSR30388KMMVOL50352KMNEW 7F2<39F KMBE0079J 3023CKMOPEN50378KMRD 50338KMRMD 3000AKMRN 30010KMRP 7F2F7F KMBE0080JJ30006KMRR 30226KMRRC 3025CKMRSQ 30230KMRW 30236KMSC 7F318F KMBE0081JJ3018AKMTAB 30266KMULG 50240KMUNL 302C8NFCALR40000NFMAP07F28EF KMBE0082J4 40000NFPOP040000SPOP 40000SPUSH 7F805F KMBE00834B:  KMBEG 01/26/85 05:24:31  SDSMAC 1.2.0 83.138KMBE0084BSZC @MASTAB+(2*CCFOOP),@CCB`j;hRTO5j;hRTO+ 0165 0012 0228'DATA BKMMVOL P94Qzw@R#00064KMMVOL A0000BCE8BBCE86BCE85BCE84BCE83BCE82BCE81B04C5BC1AF7F0D8F KMMV0001RR(B0048BC12FB0034B0785BC024B0016B1320BC0CFB0223B002CBC013BC063B00027F1A9F KMMV0002RN&B0785B6064B002CB1801B0600B0785B6024B002AB0601B1801B0600BC000B110B7F1F5F KMMVN0003R(B0785BC6A4B0016B1307BC4C0BC8C1B0002B0785BC124B0016B10E5BCBC4B00387F169F KMMV0004RB04C0B2EC67FD7EFKMMV00054 50000KMMVOL40000SPOP 40000SPUSH 7F7E1F KMMV00064B:  KMMVOL  01/26/85 05:47:10  SDSMAC 1.2.0 83.138KMMV00B07(B0134B0004B06A0B0000B06A0B0000C003CB05AFB013AB022ABFFFCB1002BD0207F19AF KMLO0007R N000B0004B2EC37FCB6FKMLO0008 J30030FMTSET50000KMLOG 30034KMWRN 40000SPOP 40000SPUSH 7F2ABF KMLO0009J(:  KMLOG 01/26/85 05:46:24  SDS(KMRW P9;t4TEw@L002A2KMRW  M0044NFWORD0001M0010NFER000002M0010NFER1000037F2A5FKMRW0001LN!M0010NFER200004M0010NFER300005M0010NFER800006M0010NFER9000077F239FKM%%RW0002NN!M0010NFERA00008M0010NFERB00009M0010NFERC0000AM0010NFERD0000B7F1E7FKMRW0003NM001N!0NFERE0000CM0010NFERF0000DM0072NFPTR 000EP00000001B0003B00057F153FKMRW0004NR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F KMRW0005RR(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF KMRW0006R@R#B0010B0008B0004B0002B0001BFE00P00000002B0001B0203B0405B0607B08097F279FKMRW0007RR#B0A0BB0C0DB0E0FP00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1B9FKMRW0008RN#P00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B30317F245F KMRWN0009R#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000006B8081B8283B8485B86877F1B6FKMRW0010RR#B8889B8A8BB8C8DB8E8FP00000007B9091B9293B9495B9697B9899B9A9BB9C9D7F121FKMRW0011RD!B9E9FP00000008BA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP000000097F1D17F KMRW0012R#BB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP0000000ABC0C1BC2C3BC4C57F08FFKMRW0013RR#BC6C7BC8C9BCACBBCCCDBCECFP0000000BBD0D1BD2D3BD4D5BD6D7BD8D9BDADB7F040FKMRW0014R:BDCDDBDEDFP0000000CBE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBE:EEF7F13EF KMRW0015L P0000000DBF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP0000000E7F1EEFKMRW0016LR#P0002000EP0004000EP0006000EP0008000EP000A000EP000C000EP000E000E7F239F KMRW0017R:P0010000EP0012000EP0014000EP0016000EP0018000EP001A000EP0:01C000E7F247F KMRW0018R#P001E000EP0020000EP0022000EP0024000EP0026000EP0028000EP002A000E7F23FF KMRW0019RR#P002C000EP002E000EP0030000EP0032000EP0034000EP0036000EP0038000E7F237F KMRW0020R0P003A000EP003C000EP003E000EP0040000EP0042000EP0$ 0044000EP0046000E7F228F KMRW0021$R#P0048000EP004A000EP004C000EP004E000EP0050000EP0052000EP0054000E7F220F KMRW0022RR#P0056000EP0058000EP005A000EP005C000EP005E000EP0060000EP0062000E7F218F KMRW0023R&P0064000EP0066000EP0068000EP006A000E&.P006C000EP006E000EP0070000E7F210F KMRW0024.R#A0000BCE8BB04C0BC06FB01F4B06A0B0000C0254BC082B1604BD020N000A00097F1C8FKMRW0025RR#B0460C0254BC12CB000AB8B84B004EB1404BD020N0000000AB0460C0254B06A07F1F9FKMRW0026R B0000C0254BC1C2B05AFB0134B813FDB04EFB01D8B04EFB01DAB04EFB01DCB04EF7F0F1F KMRW00278R(B01CAB06A0C0258BC047BC0ECB000AB06A0B0000C0254B0223B0004BCBC3B01D07F17BF KMRW0028RR#B06A0C0282BC0EFB01D0BC12FB003EB0224BFFF0B8103B1204BD020N000200097F1ACFKMRW0029RB0460C0254B882FBB0142N00400001B1609B04C1B06A0B0000C0254B0281BDEAD7F1F7FKMRW0030BR#B1602B0460C0254BC06FB01F4B06A0B0000C0254BC201B1604BD020N000E00097F204FKMRW0031RR(B0460C0254BCBD5B01D2BCBE5B0002B01D4B0228BFFFCB0709BC6A5B0006BA6987F11CF KMRW0032RB8683BH1206B06A0B0000C0254B06A0B0000C0254B0206B0144BA18FBCBE07F2CEFKMRW0033HR#N00400001B0182BCBECB0022B01CEBC048B0221B0004BC0AFB017EB06A0B00007F1C5FKMRW0034RR(C0254B06A0C002EBFFFFBC047BA066B0002BC12FB017CBC0EFB0184BDD31B06037F118F KMRW0035RR#B15FDBC06FB017CBC0AFB017EBC0EFB0184BC103BEBE0N003A0001B0202B06A07F146FKMRW0036RR#B0000B06A0B0000C0254BC104B1312BD126B0000B0A54B1107BD020N000900097F23BFKMRW0037RN#BDB2FB0183B0013B0460C0254B06A0B0000C0254B982CB0012N00040009B13AA7F202FKMRWN0038R(BC06FB01F4B06A0C009EC0254B05AFB0182B0226B0004B8BEFB0182B0142B12BB7F160F KMRW0039RR(BCB2FB01CEB0022B04C9BC0EFB01D0BC183B8606B1319B0709BA958B0006BC0487F135F KMRW0040RD!BA058B1003BCE31B0643B16FDBC0D1B16FBB04D8B8946B0006B1206B06A0B00007DF16BF KMRW0041R(C0254BC22FB01CCB0709BC0EFB01D0B6943B0006BCE03BCE2CB001AB06A0C00F87F120F KMRW0042RR(BFFFFB06A0C0258BC047BC088B6085BC0ECB000ABC12FB01D0B0205B0000B06A07F131F KMRW0043R:B0000BC160N0012000EBA085BA102B06A0C0282BC06FB01F4B06A0C0:15CC02547F1D6FKMRW0044R(BC249B1301B04D4B06A0B0000C0254BC06FB01DAB1307B06A0B0000C0254BC04F7F199F KMRW0045RR(B0221B01D8B1002BC06FB01F4BD12CB0005B0A64B1704B06A0B0000C0240B100E7F1B6F KMRW0046R0BC06FB01DAB130BBC04FB0221B01D8B06A0C021EC0236B0$C06FB01F4B06A0B00007F158F KMRW0047$R#C0254BC06FB013AB1303BEBE0N00320001B0202B0201B0001B04C0B1001B07017F223FKMRW0048RR#B2EC0B0206B0144BA18FB882FB0142N00400001B160DBC047BA066B0002BC0AF7F1B4FKMRW0049R&B017EBD0E6B0001B0983BDC91BDC60N00000&.004B0603B16FBB045BB882FB01427F1A0FKMRW0050.R#N00400001B160BBC047BA066B0002BC0AFB017EBD0E6B0001B0983BDC72B06037F1B6FKMRW0051RB16FDB045B7FD79FKMRW0052J301BCFMBMAP301D4FMBSWT301D8FMCIWT3000AFMLKCK30232FMLKOF7F1CFF KMRW0053J30H23CFMLKON30126FMMTBL30056KMBSC 40000KMCDN 300F2KMEK 7F2B7F KMRW0054HJ3012AKMKC 3008AKMLOC 300CAKMLOG 40000KMRD 301ECKMRDK 7F2F2F KMRW0055JJ 301F8KMRMD 50000KMRW3014AKMRWS0300D0KMRWS1301A2KMRWS27F240F KMRW0056J30204KMRWS340000$SPOP 40000SPUSH 7F7ECF KMRW0057$B:  KMRW  01/26/85 05:57:36  SDSMAC 1.2.0 83.138KMRW0058BRESTORE R3&. MOV@FWAPRS(R15),R4  GET PHYS REC SIZE ." AI R4,-16BUCKET OVERHEAD "" CR3,R4  CHK FOR REC > PHYS""KMBSC P9|4Lw@R0003EKMBSC A0000B2F08B0207B2020B0208B0100B04C5BC0C3B1603BCA857F226F KMBS0001RR(BFFFAB2EC8B04C6B81F1B1606BB188B1304B0643B16FAB05C5B10F4B0641B04C67F11AF KMBS0002R@B05C5B81D1B13F2BB188B13F0B05C1B0643B16F8B10F37F5BEF KMBS0003@ 50000KMB ,SC 40000SPOP 40000SPUSH 7F827F KMBS0004,B:  KMBSC 01/26/85 05:28:13  SDSMAC 1.2.0 83.138KMBS0005BNTRIES AFTER THE R2 ENTRY 9 0030  *, 0031  * ERRORS: NONE GENERATED HERE, 0032  * 0033  * S#KMACTV P9/Z4Kw@L 00172KMACTV M0044NFWORD0001M0010NFER000002M0010NFER1000037F26BFKMAC0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER5000077F241FKMAC0002NN!M0010NFER600008M0010NFER700009M0010NFERC0000AM0010NFERD0000B7F1FDFKMAC0003NM001N!0NFERE0000CM0010NFERF0000DM0072NFPTR 000EP00000001B0003B00057F153FKMAC0004NR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F KMAC0005RR(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF KMAC0006R@R#B0010B0008B0004B0002B0001BFE00P00000002B0001B0203B0405B0607B08097F279FKMAC0007RR#B0A0BB0C0DB0E0FP00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1B9FKMAC0008RN#P00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B30317F245F KMACN0009R#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B46477F1D6FKMAC0010RR#B4849B4A4BB4C4DB4E4FP00000007B5051B5253B5455B5657B5859B5A5BB5C5D7F179FKMAC0011RD!B5E5FP00000008B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP000000097F1DCFF KMAC0012R#B7071B7273B7475B7677B7879B7A7BB7C7DB7E7FP0000000ABC0C1BC2C3BC4C57F13FFKMAC0013RR#BC6C7BC8C9BCACBBCCCDBCECFP0000000BBD0D1BD2D3BD4D5BD6D7BD8D9BDADB7F040FKMAC0014R:BDCDDBDEDFP0000000CBE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBE:EEF7F13EF KMAC0015L P0000000DBF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP0000000E7F1EEFKMAC0016LR#P0002000EP0004000EP0006000EP0008000EP000A000EP000C000EP000E000E7F239F KMAC0017R:P0010000EP0012000EP0014000EP0016000EP0018000EP001A000EP0:01C000E7F247F KMAC0018R#P001E000EP0020000EP0022000EP0024000EP0026000EP0028000EP002A000E7F23FF KMAC0019RR#P002C000EP002E000EP0030000EP0032000EP0034000EP0036000EP0038000E7F237F KMAC0020R0P003A000EP003C000EP003E000EP0040000EP0042000EP0$ 0044000EP0046000E7F228F KMAC0021$R#P0048000EP004A000EP004C000EP004E000EP0050000EP0052000EP0054000E7F220F KMAC0022RR#P0056000EP0058000EP005A000EP005C000EP005E000EP0060000EP0062000E7F218F KMAC0023R&P0064000EP0066000EP0068000EP006A000E&.P006C000EP006E000EP0070000E7F210F KMAC0024.R(A0000BC3AFB0034BCBCEB0038BCBEEB0010B003EB072FB0020B04EFB003ABD06F7F118F KMAC0025RR#B0052B2060N00220001B1607BD06EB003BB160EBBBA0N00010002B003AB101E7F236F KMAC0026R BBBA0N00010002B003BBD06EB0803AB1604B982EB003BN00010002B1314B02017F234F KMAC00278R(B0004B04C2B2E85BFFFFBC88CB0002BC04EB0221B0038B06A0B0000B4016B00007F180F KMAC0028RR#BFBE0N00240001B0052B06A0B0000B1000BC0CDBC120N0018000EB0794BD02D7F20CF KMAC0029RB0002B1302B06A0CB0066B06A0B0000B5B20N000F0009B0004B1008BC06CBFFF07F1EFFKMAC0030BR#B2060N002C0001B1603BD020N00000003B1003B06A0B0000B0000BC2EFB00327F27AF KMAC0031RN!B0ADBB180DBC26DB0004BC120N0018000EB0794BC2E9B0006B07D4B4A607F2A5F KMAC0032N N00360001B H0006B0ABBB1803BD000B1603B1007BD020N000B000BBDB00B00017F243F KMAC0033HR#BEB20N00240001B0004B4B20N00220001B0004B05A0B0000BD2EFB0052B22E07F24FF KMAC0034RP"N00220001B1605B7BA0N00010002B003AB1304B1006B7BA0N00010002B003B7F2AEFKMAC0035PB0P"6A0C0116B0000B06A0B0000B02CBB0A9BB1705BC060N0006000EB06A0B00007F203FKMAC0036PR(BFFFFB042FB0028BCE8BBCE83BCE82BCE81B04C0BC06EB0038B1325BC04EB02217F0CDF KMAC0037RP#B0038B06A0B0000BFFFFBC0A1B0002BC0A2B0010B58A0N00240001B0052BD0E27F1C6FKMAC00P38R#B0052B20E0N00220001B1611BBBA0N00010002B003ABC0D1B130CBC0A3B00027F23BF KMAC0039RR#BC0A2B0010BD0E2B0052B20E0N00220001B1603B2E83BFFFFB10DDB2E83BFFFF7F149FKMAC0040RB2EC37FE9AF KMAC0041* 40000ASSUME40000ENAB 3007EFMRFND3007AFM*" TSET40000GTA0 7F2D3F KMAC0042"J40000INHB 50000KMACTV3009AKMBEG 30058NFCAL03012ENFDQ1 7F30DF KMAC0043JJ30100NFENAB40000NFGTA040000NFQUE140000NFRTA 300DCNOSCHD7F28BF KMAC00%%44J840000RTA 3010ESMMJCA40000SPOP 40000SPUSH 7F5ADF KM8AC0045D:  KMACTV  01/26/85 05:20:51  SDSMAC 1.2.0 83.138KMAC0046D MODULE =.EOD.ENDIF*XMA SOURCE=@VOLSRC.KIFMGR.SOURCE.KMACTV,*&OBJECT=@VOLOBJ.KIFMGR.OBJECT.KMACTV,&"LIST=@VOLLST.KIFMGR.LIST.KMACTV,"OP$KMBDEL P 9 \4L w@L 00192KMBDEL M0010NFER000001M0010NFER100002M0010NFER2000037F2CAFKMBD0001LN!M0010NFER300004M0010NFER800005M0010NFER900006M0010NFERA000077F22AFKMBD0002NR#M0010NFERB00008M0044NFWORD0009P00000001B0001B0203B0405B0607B08097F1A0FKMBD0003RR#B0A0BB0C0DB0E0FP00000002B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1BAFKMBD0004RR#P00000003B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000004B30317F247F KMBD0005RN#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000005B8081B8283B8485B86877F1B7FKMBDN0006R#B8889B8A8BB8C8DB8E8FP00000006B9091B9293B9495B9697B9899B9A9BB9C9D7F122FKMBD0007RR#B9E9FP00000007BA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP000000087F119F KMBD0008RD!BB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP00000009B0003B0005B00067FD10AFKMBD0009R(B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF007F1BAF KMBD0010RR(BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B00107F22AF KMBD0011R:B0008B0004B0002B0001BFE00A0000BCE8BB04C0BC06FB003EBA045B: 6065B00067F1A5F KMBD0012R(B606CB0022B0221B0006BC0AFB017EBC0EFB0184BCCB1B0643B15FDBCBD5B01E27F113F KMBD0013RR(BCBE5B0002B01E4BCBE5B0008B01E8BCBE5B000AB01EABCBE5B000CB01EEBCBE57F0BCF KMBD0014R0B000EB01F0BC186B1107B1306BE7E0N00260009B06A0B00$ 000C0190B103DBC0EF7F1CAFKMBD0015$R(B003EB0223BFFF0BC943B0006B04E5B000CB04E5B000EBC06FB01E6B06A0B00007F15FF KMBD0016RR(C0190BC0EFB01ECBC693BE6A3B0002B1311B06A0B0000C0190B06A0B0000C01907F19DF KMBD0017R&BC96FB01EEB000CBC96FB01F0B000EBE7E0N&.00260009B06A0C0052C0190BC0EF7F161FKMBD0018.R(B01F2BC693BE6A3B0002B1311B06A0C0084C0190B06A0C008AC0190BC96FB01E87F179F KMBD0019RR#B0008BC96FB01EAB000ABE7E0N00260009B06A0C00A0C0190B0227BFFFABC0C77F16CFKMBD0020R B06A0C00B2C0190BC104B1603B8C0A7B0004B101CBC0AFB01F8BD0E5B0010B09837F176F KMBD00218R(B8BD2B01E2B1604B8BE2B0002B01E4B1310BA0ACB0022B0603B16F5BC5E5B000C7F161F KMBD0022RR#BC9E5B000EB0002BC0D7BE0E7B0002B16DEBD020N00000008B1038B06A0C00B87F1ABFKMBD0023RC0190BC186B1112BB C06FB017EB0222B0006BC0EFB0184BCCB1B0643B15FDBC0C57F139F KMBD0024BR(BA0EFB003EB60E5B0006B80C2B161EB0460C0024B04C6BC042BA06CB0022BC0C57F15BF KMBD0025RR(BA0EFB003EB60E5B0006B80C1B1602B0586B1003BCCB1B80C1B16FDBA96CB00227F13CF KMBD0026RB0006BH7960N00010001B0010B1601B0706BC186B1302B0460C0004BE7E07F34BF KMBD0027H0N00260009B06A0C00CEC0190B2EC07F96DF KMBD00280J50000KMBDEL30122KMLOG 300DAKMRD 30072KMREB 40000KMREL 7F2F1F KMBD0029J, 3018CKMRMD 40000SPOP 40000SPUSH 7F802F , KMBD0030 D:  KMBDEL  01/26/85 05:22:55  SDSMAC 1.2.0 83.138KMBD0031D 4ġ` `y %:ef /  `  !"#$%&'(A(=='$KMBIN P94LwL00078KMBIN M0044NFWORD0001M0010NFER800002M0010NFER9000037F28BFKMBI0001LR#M0010NFERA00004M0010NFERB00005P00000001B0003B0005B0006B0007B00097F1F2FKMBI0002RR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF KMBI0003RT@R(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF KMBI0004RR#B0002B0001BFE00P00000002B8081B8283B8485B8687B8889B8A8BB8C8DB8E8F7F191FKMBI0005RN#P00000003B9091B9293B9495B9697B9899B9A9BB9C9DB9E9FP00000004BA0A17F1BBF KMBIN0006R#BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP00000005BB0B1BB2B3BB4B5BB6B77F0A3FKMBI0007RR(BB8B9BBABBBBCBDBBEBFA0000B04C9B2F09B8EBABD1A5B0010B0986BC0EFB01847F08BF KMBI0008RD!BC085B0222B001ABC202BC1C6B0916BCA86BFFFCB131DB61C6BCA87BFFFEB39AC7DF0A9F KMBI0009R#B0022BA087BC242B60ACB0022BC103BEBE0N003A0001B0202B06A0B0000BFFFF7F19DFKMBI0010RR(BC104B1507BAAAABFFFEBFFEABC1AABFFFCBC088B10E2BC1AABFFFEBC089B10DD7EFFDF KMBI0011R:B022ABFFFCBC103BEBE0N003A0001B0202B06A0C003EBFFFFBCA84BF:FF8BCA827F0DFFKMBI0012BFFFCB2EC97FD3DFKMBI0013J 50000KMBIN 3006AKMKC 40000KMRD 40000SPOP 40000SPUSH 7F354F KMBI0014JB:  KMBIN 01/26/85 05:27:09  SDSMAC 1.2.0 83.138KMBI0015B),R1 R130 02FE 0202 < 0#KMPAT1 P9 N4R:w@R#000CAKMPAT1 A0000B00CABDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F020F KMPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0008RBDEAD7FE79F KMPA0009 50000KMPAT17FD26F KMPA0010D:  KMPAT1  01/26/85 05:50:42  SDSMAC 1.2.0 83.138KMPA0011DNTRY POINT DESIGNATION IS PROVIDED FOR EACH =* 0015  * OVERLAY ENTRY DEFINITION.* 0016  *& 0017  * ALGORITHM: TABLE ONLY& 0018  * 'KMBTS P 9 r4Nw@L0012CKMBTS M0010NFER400001M0010NFER500002M0010NFER6000037F2C2FKMBT0001LN!M0010NFER700004M0010NFER800005M0010NFER900006M0010NFERA000077F226FKMBT0002NN!M0010NFERB00008M0010NFERC00009M0010NFERD0000AM0010NFERE0000B7F1E3FKMBT0003NM001N!0NFERF0000CM0044NFWORD000DP00000001B4041B4243B4445B4647B48497F15EFKMBT0004NR#B4A4BB4C4DB4E4FP00000002B5051B5253B5455B5657B5859B5A5BB5C5DB5E5F7F162FKMBT0005RR#P00000003B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP00000004B70717F1FFF KMBT0006R@R#B7273B7475B7677B7879B7A7BB7C7DB7E7FP00000005B8081B8283B8485B86877F17FFKMBT0007RR#B8889B8A8BB8C8DB8E8FP00000006B9091B9293B9495B9697B9899B9A9BB9C9D7F122FKMBT0008RN#B9E9FP00000007BA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP000000087F119F KMBTN0009R#BB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP00000009BC0C1BC2C3BC4C57F097FKMBT0010RR#BC6C7BC8C9BCACBBCCCDBCECFP0000000ABD0D1BD2D3BD4D5BD6D7BD8D9BDADB7F041FKMBT0011RD!BDCDDBDEDFP0000000BBE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEF7F13FF D KMBT0012 R#P0000000CBF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP0000000DB00037F0EBF KMBT0013RR(B0005B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB00647F205F KMBT0014R@B00FDBFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0@ 0407F1D7F KMBT0015R(B0020B0010B0008B0004B0002B0001BFE00A0000B2F09BC042B1003B2F09BC06F7F1E5F KMBT0016RR(B017CBC1EFB01C2B04EFB01C6B04F7BC5EFB0140BA5EFB0182B0637B04C6B07087F105F KMBT0017R6BC0C7B0223BFFFCB06A0B0000C012AB06A0B0000C012ABC5C2BC6104B111EBC2087F154F KMBT0018R#B1602B0206B0001B04C8B982CB0002N00060001B1602B0206B0001B982CB00027F24BFKMBT0019RN!N000E000CB1601BC5C2B0609B110CBA0ACB0022BC0EFB0184BC103BEBE07F28FF KMBT0020N0N003A000DB0202B06A0B0000C012AB10E0B982CB0002N00$ 0060001B1301BC0977F256F KMBT0021$R(B0222BFFFABCDC2BCDF2BCDF2BC5F2B05AFB01C6BCBE5B000CB01E2BCBE5B000E7F068F KMBT0022RR(B01E4BD125B0011BDBC4B0202B06A0B0000B0A19B172CBC208B162AB982CB00027F188F KMBT0023R&N00060001B1306B982CB0002N000E000CB13&.02BD104B13AEBC0EFB01E6BC0937F1F8F KMBT0024.R(BE0A3B0002B131AB06A0C002CC012AB06A0C0032C012ABC104B1303B06A0C00A87F1AAF KMBT0025RR#B100FB0206B0001B982CB0002N000E000CB1304B982CB0002N00060001B16F37F254F KMBT0026R B0227BFFF6BCDF3BCDF3B109FB4D12FB0202B138BBC006B1305B982CB00027F225FKMBT00274R#N00060001B1602B04C8BC008B0227BFFFCBCBC7B01C4BCA80BFFFAB04C0B2EC97F11BFKMBT0028RJ300E4FMMTBL300DAKMBIN 50000KMBS 50006KMBTS 30072KMKC 7F2F2F KMBT0029J300D4KMRD 40000KMREL 40000S" POP 40000SPUSH 7F5A4F KMBT0030"B:  KMBTS 01/26/85 05:33:24  SDSMAC 1.2.0 83.138KMBT0031BEDF KMBT0016RR(BC591B0641B0646B8081B14FBBCCB4BCCB4BCC94BC12FB017CBC0EFB0184BCCB47F0BBF KMBT0017R&B0643B15FDB1303BD8A0N00000004BFFFFBD&$KMPAT4 P9 N4R]w@R#000CAKMPAT4 A0000B00CABDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F01DF KMPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB%%DEADBDEADBDEADBDEAD7EEB9F KMPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0008RBDEAD7FE79F KMPA0009 50000KMPAT47FD23F KMPA0010D:  KMPAT4  01/26/85 05:51:18  SDSMAC 1.2.0 83.138KMPA0011D1 + 0078 END  NO ERRORS, NO WARNINGSC KMOVLY SDSMAC 1.2.0 83.138 05:50:28 SATURDAY, JAN 26, 1985. C1 LABEL  VALUE DEFN REFERENCES PAGE 000%KMPAT7 P9 N4Rw@R#000CAKMPAT7 A0000B00CABDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F01AF KMPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0008RBDEAD7FE79F KMPA0009 50000KMPAT77FD20F KMPA0010D:  KMPAT7  01/26/85 05:51:54  SDSMAC 1.2.0 83.138KMPA0011D 02CA 001D  0506 02CC DC72 MOVB *FFF  R11: MOV@RPBLDT(R13),R11 LDD*R7  R11LLRTO0B0002B0281BDEADB1302B0201B&KMPATCH P94Rw@R#00194KMPATCH A0000B0194B018EBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F042F KMPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F KMPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F KMPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0010RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0011R0BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB0$DEADBDEADBDEADBDEAD7EEB9F KMPA0012$R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0013RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0014R&BDEADBDEADBDEADBDEADBDEADBDEADBDEADB&.DEADBDEADBDEADBDEADBDEADBDEAD7EEB9F KMPA0015.JBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F159F KMPA0016J 50000KMPAT 7FD37F KMPA0017D:  KMPATCH 01/26/85 05:52:18  SDSMAC 1.2.0 83.138KMPA0018D$KMRDK P9~4S2w@R00036KMRDK A0000B2F05B022AB0004BC0C1B06A0B0000C0030BC105B02247F24BF KMRD0001RR(B0010B1008B8854B0004B1604B05C4BCA84BFFFAB1006BA11ABC6A4BFFFEB16F57F10CF KMRD0002R,B04EABFFFAB022ABFFFCB2EC57F9A9F KMRD0003,3000AKMRD 50000KMRDK 40000K.MREL 40000SPOP 40000SPUSH 7F31DF KMRD0004.B:  KMRDK 01/26/85 05:54:44  SDSMAC 1.2.0 83.138KMRD0005BMA$OPL,MUNLST"& .ELSE' .t^^RT6O.ENDIF*XMA SOURCE=@VOLSRC.KIFMGR.SOURCE.KMPAT3,*&,KMBTI P 9! 4Mw@L000D2KMBTI M0044NFWORD0001M0010NFER000002M0010NFER1000037F28EFKMBT0001LN!M0010NFER200004M0010NFER300005M0010NFERC00006M0010NFERD000077F223FKMBT0002NR#M0010NFERE00008M0010NFERF00009M0072NFPTR 000AP00000001B0003B00057F16DFKMBT0003RR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F KMBT0004RR(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF KMBT0005RN#B0010B0008B0004B0002B0001BFE00P00000002B0001B0203B0405B0607B08097F279FKMBTN0006R#B0A0BB0C0DB0E0FP00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1B9FKMBT0007RR#P00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B30317F245F KMBT0008RD!B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000006BC0C1BC2C3BC4C5BC6C77FD15EFKMBT0009R#BC8C9BCACBBCCCDBCECFP00000007BD0D1BD2D3BD4D5BD6D7BD8D9BDADBBDCDD7F02FFKMBT0010RR#BDEDFP00000008BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP000000097F0C1F KMBT0011R:BF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP0000000AP000200:0A7F1F3FKMBT0012R#P0004000AP0006000AP0008000AP000A000AP000C000AP000E000AP0010000A7F256F KMBT0013RR#P0012000AP0014000AP0016000AP0018000AP001A000AP001C000AP001E000A7F24EF KMBT0014R6P0020000AP0022000AP0024000AP0026000AP0028000AP002A006 0AP002C000A7F25CF KMBT0015R#P002E000AP0030000AP0032000AP0034000AP0036000AP0038000AP003A000A7F254F KMBT0016RR#P003C000AP003E000AP0040000AP0042000AP0044000AP0046000AP0048000A7F24CF KMBT0017R,P004A000AP004C000AP004E000AP0050000AP00520,(00AP0054000AP0056000A7F23DF KMBT0018(R#P0058000AP005A000AP005C000AP005E000AP0060000AP0062000AP0064000A7F235F KMBT0019RR#P0066000AP0068000AP006A000AP006C000AP006E000AP0070000AA0000B2F087F1F4FKMBT0020R"B4BE0N00340001B0202BC1EFB01C4B02"227BFFFABCBEFB01C6B01E0BC0C7B06A07F135FKMBT00212R#B0000C00D0B06A0B0000C00D0B896CB0022B0006B1B3AB9825B0010N000F00097F211FKMBT0022RR(B1336BC1A7B0004BC085BA0AFB003EB60A5B0006BC202B6086B04C1B3C6CB00227F16AF KMBT0023R B0A81BD0A5B0012B1602BD<941B0012B9941B0012B1602B0625B0012BC088B06427F1D8F KMBT0024<R(BC042BA06CB0022BC452B0642B0641B8182B14FBBCDB4BCDB4BCDB4BC0EFB01847F0F1F KMBT0025RR#BC22FB017CBCDB8B0643B15FDB1303BD9A0N00000004BFFFFBB960N000100027F1A0F KMBT0026RB0010B696CB0F022B0006B1009BEBE0N00340001B0202B06A0B0000B0000BC0417F231FKMBT0027FR#B1110B13B2BD22FB0144B0A48B1708BC22FB0142B8808N00400001B1603BEBE07F1CFFKMBT0028R4N00240001B0032B06A0B0000C00D0B2EC87F887FKMBT00294"50000KMBTI 300A8KMBTIS30020KMLOG"* 3001AKMRD 300CCKMRMD 7F2B1F KMBT0030*(40000SPOP 40000SPUSH 7FAACFKMBT0031(B:  KMBTI 01/26/85 05:29:52  SDSMAC 1.2.0 83.138KMBT0032BGRTO60122013001550157015801590162016501666(-KMTAB P9n4Uw@R00154KMTAB A0000C0014C0038C005CC0086C00ACC00C0C00D4C00F4C010C7F231F KMTA0001RR(C0136B4100B4F01B5502B5A03B5BE7B5CF5B5DFBB6100B6F01B7302B7503B7A047F15DF KMTA0002RN&B7BE7B7CF5B7DFCB7EF8BFF00B0000B4100B4219B50FFB510BB57FEB5805B5DFD7F0B1F KMTAN0003R(B6100B6219B70FFB710BB75FEB7608B78FDB7904B7EFCBFF00B0000B3F00B40067F11CF KMTA0004RR(B4500B5901B5A02B5B03B5C03B5D00B5EFDB5F01B6006B6500B7901B7A02B7B037F173F KMTA0005RD!B7C03B7D00B7EFDBFE01BFF00B0000B4500B46FAB5AFFB5B03B5CFEB5D00B5EFD7DF0A3F KMTA0006R(B5FFDB60FFB6500B66FAB7AFFB7B03B7CFEB7D00B7EFDB7FFDBFFFFB0000B4E007F03CF KMTA0007RR(B5B01B5CF3B6300B6E01B7B02B7CF4B7DE7BFF00B0000B4E00B4F0DB5CFFB63007F0FBF KMTA0008R:B6419B6FFFB700CB7DFEBFF00B0000B3F00B4022B5B00B5C09B6100B: 6301B65027F150F KMTA0009R(B7504B7A05B7BEDB7CFEB7DECBFD02BFE01BFF00B0000B6100B62DEB64FFB65F77F09EF KMTA0010RR(B67FEB6813B6914B79FCB7A02B7FFBBFFFEB0000B3F00B4022B5A00B5B0EB5C0A7F0D6F KMTA0011R0B5D0DB6100B6302B6503B6F05B7506B7A07B7BE8B7CF9B0$7DFFBFB04BFC03BFD027F0D6F KMTA0012$R(BFE01BFF00B0000B6100B62DEB6318B65FEB66F6B68FDB69F2B6AF3B74FBB75077F0DAF KMTA0013R,B7BFAB7C01B81F9BFFFCB00007F9E7F KMTA0014,J500D4FRBASE50014GEBASE50000KMTAB 500ACSPBASE5005CSWBASE7F23BF KMTA0015JL 5010CSWIBAS7FCF7F KMTA0016B:  KMTAB 01/26/85 06:02:48  SDSMAC 1.2.0 83.138KMTA0017BROR 11 0198 K-GRTO*00000004B1603B0601B16FB7F25DF KMRW0021*R#B1007BC06FB01F4BC0AFB017EB06A0B0000C0104BC0A'KMTASK P9@l4Uw@L 00158KMTASK M0044NFWORD0001M0010NFER000002M0010NFER1000037F262FKMTA0001LN!M0010NFER200004M0010NFER300005M0192NFDATA0006M0072NFPTR 00077F1F5FKMTA0002NR#M00DANFCLKD0008P00000001B0003B0005B0006B0007B0009B000AB000CB000D7F1E6FKMTA0003RR(B000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B10007F19BF KMTA0004RR(B0800B0400B0200B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE007F257F KMTA0005RN#P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000003B10117F26DF KMTAN0006R#B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B2021B2223B2425B26277F204FKMTA0007RR#B2829B2A2BB2C2DB2E2FP00000005B3031B3233B3435B3637B3839B3A3BB3C3D7F1A7FKMTA0008RD!B3E3FP00000006P00020006P00040006P00060006P00080006P000A00067F36DF D KMTA0009 N!P000C0006P000E0006P00100006B000FP00120006P00160006P0%%01800067F371F KMTA0010NN!P00180006P001A0006P001C0006B0000P001E0006P00200006P002200067F378F KMTA0011NH#P00240006P00260006P00280006P002A0006P002C0006P00340006P003600067F29FF H KMTA0012 R#P00380006P003A0006P003C0006P003E0006P00400006P00420006P004400067F290F KMTA0013RR#P00460006P00480006P004A0006P004C0006P004E0006P00500006P005200067F288F KMTA0014R@P00540006P00560006P00580006P005A0006P005C0006P005E0006P0060000@67F280F KMTA0015R#P00620006P00640006P00660006P00680006P006A0006P006C0006P006E00067F278F KMTA0016RR#P00700006P00720006P00740006P00760006P00780006P007A0006P007A00067F288F KMTA0017R6P007C0006P007E0006P00800006P00820006P00840006P0086006 06P008800067F27DF KMTA0018R#P008A0006P008C0006P008E0006P00900006P00920006P00940006P009600067F26EF KMTA0019RN!P00980006P009A0006P009C0006P009E0006P00AC0006B0080P00AE00067F30CF KMTA0020N0P00B20006P00B60006P00BA0006P00BE0006P00C00006P0$ 00C20006P00C400067F23AF KMTA0021$R#P00C60006P00C80006P00CA0006P00CC0006P00CE0006P00D00006P00D200067F21FF KMTA0022RR#P00D40006P00D60006P00D80006P00DA0006P00DC0006P00DE0006P00E000067F217F KMTA0023R&P00E80006P00F00006P00F80006P00FA0006&.P00FC0006P00FE0006P010000067F222F KMTA0024.R#P01020006P01040006P01060006P010C0006P010E0006P01160006P011800067F2A4F KMTA0025RR#P011A0006P011C0006P011E0006P01200006P01220006P01240006P012800067F296F KMTA0026R P012C0006P012C0006P012E00086P01300006P01320006P01340006P018800067F288F KMTA00278R#P018A0006P018C0006P018E0006P01900006P00000007P00020007P000400077F288F KMTA0028RR#P00060007P00080007P000A0007P000C0007P000E0007P00100007P001200077F29DF KMTA0029RP00140007P001600B07P00180007P001A0007P001C0007P001E0007P002000077F295F KMTA0030BR#P00220007P00240007P00260007P00280007P002A0007P002C0007P002E00077F28DF KMTA0031RR#P00300007P00320007P00340007P00360007P00380007P003A0007P003C00077F29BF KMTA0032RP003E0L 007P00400007P00420007P00440007P00460007P00480007P004A00077F293F KMTA0033LR#P004C0007P004E0007P00500007P00520007P00540007P00560007P005800077F28BF KMTA0034RR#P005A0007P005C0007P005E0007P00600007P00620007P00640007P006600077F27CF KMTA0035RT@R#P00680007P006A0007P006C0007P006E0007P00700007P00000008B0007B00007F253FKMTA0036RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF KMTA0037RN&B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF KMTAN0038R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF KMTA0039RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF KMTA0040RD!B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007DF2AFF KMTA0041R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF KMTA0042RR(B0000B0000B0000B0000B003CB0018B016DB0000B0000B0000B0001B0000B00007F274F KMTA0043R:B0000B6800B0000B0000B0000B0000B0006BFE01B7F80B0000B1FE0B: 0000B00007F21EF KMTA0044R(B0000B0000B0000A0000C0006C0026C0152B0000B0000B0000A000CA0010B00007F285F KMTA0045RR(B0000B0020B2400B0000B0000B0000B0000B0000C0040B008FB0300B0002BC3607F263F KMTA0046R0N00120007B022DB012ABC04DBA047BCB41B0014BE3E0N00$ 0380006B0380B03007F223F KMTA0047$R#B000FB04FAB1002B2FE0C0016BC060N00120007B0221B0190B05A0B0000BC0A17F1FFFKMTA0048RR#B0002B13F5BC101B0224B0002BC0E2B0012BD163B0052B2160N00240001B13077F238FKMTA0049R&BC512B1601BC444B7860N00010002B0004B1&.006BC102BC092B16EFB2FE0C014E7F1D2FKMTA0050.R#B10E0BC042BC260N00040007BCA41B0032B04F1B06A0B0000BC261B0010BC3497F1F0FKMTA0051RR(BC3A9B0026B02CFBC329B0034BC1A9B0048BC0A9B0042B1307B05A0C0056BC0697F168F KMTA0052R B0040B06A0B0000BFFFFB02A4B8CA44B0028B0204C00D4BCA44B002AB0380BC06D7F159F KMTA00538L B0018B05A0C00B8B9860N00010002B0002B1602B0620N01200006BC0A07F389FKMTA0054LR#N00040007B04E2B0032B0420B0000B0000BFFFFBC0A9B0042B1314B04C5BC1A97F1D6FKMTA0055R B0040BC1A6B0010B61A0N080980006B0785BC1A2B0010B0606B07C5B58207F312F KMTA00568R#N00260001B0016BC069B0040B06A0B0000BFFFFBC049B2E83BFFFFB06A0C009A7F174FKMTA0057RR#B064ABC0A0N00040007BC0A2B001EBC042B605ABA801N001C0008B1702B05A07F20AF KMTA0058RN001A0008BCE82B04460C004CB0200B0000B0420B0000B00A07F564F KMTA00594J 40000ASSUME40000ENAB40000INHB 50000KMTASK30154NFCRSH7F2E7F KMTA0060JJ40000NFDQH 3012ENFENAB300F4NFEOR 300F2NFMAP040000NFRTA 7F2ACF KMTA0061J& 300DANOSCHD40000RTA 300C0SMLOAD301&22SMUNLD7F526F KMTA0062D:  KMTASK  01/26/85 06:03:08  SDSMAC 1.2.0 83.138KMTA0063D ERROR=".XMAERR@$$ST"EC.IF @$$CC,GT,0>AFINPUT=".XMAERR@$$ST",OUTPUT=@VOLLST.KIFMGR.LIST.ZASMERRS>.ENDIF*XMA SOURCE1KMBTIS P:.4Nw@L 002D4KMBTIS M0044NFWORD0001M0010NFER000002M0010NFER1000037F257FKMBT0001LN!M0010NFER200004M0010NFER300005M0010NFER800006M0010NFER9000077F239FKMBT0002NR#M0010NFERA00008M0010NFERB00009P00000001B0003B0005B0006B0007B00097F1EAFKMBT0003RR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF KMBT0004RR(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF KMBT0005RN#B0002B0001BFE00P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F211FKMBTN0006R#P00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B20217F259F KMBT0007RR#B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B3031B3233B3435B36377F1EDFKMBT0008RD!B3839B3A3BB3C3DB3E3FP00000006B8081B8283B8485B8687B8889B8A8BB8C8D7FD158FKMBT0009R#B8E8FP00000007B9091B9293B9495B9697B9899B9A9BB9C9DB9E9FP000000087F19BF KMBT0010RR#BA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP00000009BB0B1BB2B3BB4B57F0ADFKMBT0011R:BB6B7BB8B9BBABBBBCBDBBEBFA0000BCE8BB04C0BC0CABCEA5B0000B: CEA5B00027F05BF KMBT0012R#B06A0B0000BC06FB01E6B06A0B0000C0210B882FB01C6N00400001B1605BC06F7F1E6FKMBT0013RR(B01ECB06A0C0018C0210B06A0B0000C0210B022ABFFFCBC06CB0022BC085BA0AF7F154F KMBT0014R0B003EB60A5B0006B6081BC0EFB017EBCCF2B0641B16FDB0$C182B60A7B0004B3C6C7F122F KMBT0015$R(B0022B0A81B9941B0012B1602B0625B0012BC046B606CB0022BC0A7B0004B10017F1EDF KMBT0016RR(BC591B0641B0646B8081B14FBBCCB4BCCB4BCC94BC12FB017CBC0EFB0184BCCB47F0BBF KMBT0017R&B0643B15FDB1303BD8A0N00000004BFFFFBD&.1A5B0010BD0A5B0013B1303BD0867F195FKMBT0018.R#B0912B1016BD086B0982B04C1B3C60N000A0001BC041B1601B0581B0A81BD0867F1ECFKMBT0019RN!B7960N00010002B0012B9941B0012B1102B7081B1004B70A5B0012BB0A07F355F KMBT0020N N00010002BD046B7042B0981B0581B 4C941B0012BD942B0010BCBE5B000CB01EE7F1D2FKMBT00214R(BCBE5B000EB01F0BCBE5B0008B01FABCBE5B000AB01FCBC955B000CBC965B00027F0F9F KMBT0022RR(B000EBC06FB01E6BC571BC951B0002BC96FB003EB0006B0982B38ACB0022B02237F168F KMBT0023R B0014B6943B0006BC083>B882FB01C6N00400001B160FB05AFB01E0B882FB01E07F1C2FKMBT0024>R#N00080001B1203BD020N00010009B1069BC06FB01ECBC971B000CBC951B000E7F216F KMBT0025RR(BC0C5B06A0B0000C0214B0222B0006B60ACB0022BC042BA045BC0AFB017CBC0EF7F165F KMBT0026R B0184BCCB1 H#B0643B15FDBC086BC106B71A5B0010BD946B0010B7086BD942B00137F16EF KMBT0027HR(B0986BC086B38ACB0022BC183BC96FB003EB0006B0223B0014B6943B0006BC0857F187F KMBT0028RR(B0222B0014BCCB1B0646B16FDBC1ACB0022BC06FB017EBCCB1B0646B16FDBB9607F107F KMBT0029RR#N00010002B0010B696CB0022B0006BC955B0008BC965B0002B000ABC96FB01EE7F1E4FKMBT0030RR(B000CBC96FB01F0B000EB062FB01C6B131EBC557BC967B0002B0002BC0C5B06A07F153F KMBT0031RN&C0152C0214BC0EFB0200BC06FB01E6B06A0C02A8B160DBC06FB01E6BC12FB02007F14CF KMBTN0032R(BCD31BC511B0644B0227BFFFAB04C1B1003B022ABFFFCB0701B2EC0BC06FB01EC7F0EEF KMBT0033RR(BC571BC951B0002BC0C5B06A0C01E8C0214B0201B0200BC941B0010BC557BC9677F18EF KMBT0034RD!B0002B0002BC0EFB003EB0223BFFECB60ECB0022B60ECB0022BC943B0006B04E57DF14FF KMBT0035R(B000CB04E5B000EB04E5B0008B04E5B000AB0984B0604BC944B0012BC085B02227F1A8F KMBT0036RR(B0014BC06FB01E6BCCB1BCCB1B04F2BC06FB017CBC0EFB0184BCCB1B0643B15FD7F0C6F KMBT0037R:B1303BD8A0N00000004BFFFFBC06FB01ECBCCB1BCCB1B04F2B0701BC:0EFB01847F11CFKMBT0038R(BCC81B0643B15FDB0201B0001B10B7BCE8BBC693BE6A3B0002B130DB06A0C00307F15AF KMBT0039RR(C02CCB06A0B0000C02CCBC971B000CBC971B000EB06A0B0000B0000B064ABC2DA7F16AF KMBT0040RBC000B045B7FD97FKMBT004130010FMMTBL500<00KMBTIS3002AKMGEB 302BAKMLOG 40000KMNEW 7F280F KMBT0042<J302B4KMRD 40000KMREL 302C8KMRMD 30226KMWRN 40000SPOP 7F2F4F KMBT0043J 40000SPUSH 7FD22F KMBT0044D:  KMBTIS  01/26/85 05:31:41  SDSMAC 1.2.0 83.138KMBT0045D2KMINSR P:A4P}w@L 002F6KMINSR M0044NFWORD0001M0010NFER000002M0010NFER1000037F249FKMIN0001LN!M0010NFER200004M0010NFER300005M0010NFER400006M0010NFER5000077F241FKMIN0002NN!M0010NFER600008M0010NFER700009M0010NFER80000AM0010NFER90000B7F213FKMIN0003NM001J0NFERA0000CM0010NFERB0000DM0010NFERC0000EM0010NFERD0000F7F1C9FKMIN0004JR#M0010NFERE00010M0010NFERF00011M0072NFPTR 0012P00000001B0003B00057F189FKMIN0005RR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F KMIN0006R V@R(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF KMIN0007RR#B0010B0008B0004B%%0002B0001BFE00P00000002B0001B0203B0405B0607B08097F279FKMIN0008RN#B0A0BB0C0DB0E0FP00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1B9FKMINN0009R#P00000004B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B30317F245F KMIN0010RR#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000006B4041B4243B4445B46477F1D6FKMIN0011RD!B4849B4A4BB4C4DB4E4FP00000007B5051B5253B5455B5657B5859B5A5BB5C5D7FD179FKMIN0012R#B5E5FP00000008B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP000000097F1CFF KMIN0013RR#B7071B7273B7475B7677B7879B7A7BB7C7DB7E7FP0000000AB8081B8283B84857F181FKMIN0014R:B8687B8889B8A8BB8C8DB8E8FP0000000BB9091B9293B9495B9697B9:899B9A9B7F132FKMIN0015N!B9C9DB9E9FP0000000CBA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAF7F1AAF KMIN0016NR#P0000000DBB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP0000000EBC0C17F105F KMIN0017R4BC2C3BC4C5BC6C7BC8C9BCACBBCCCDBCECFP0000000FBD0D1B4 D2D3BD4D5BD6D77F066FKMIN0018 R#BD8D9BDADBBDCDDBDEDFP00000010BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECED7F01FFKMIN0019RR#BEEEFP00000011BF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP000000127F0BBF KMIN0020R*P00020012P00040012P00060012P00080012P000**A0012P000C0012P000E00127F2B7F KMIN0021*R#P00100012P00120012P00140012P00160012P00180012P001A0012P001C00127F2C5F KMIN0022RR#P001E0012P00200012P00220012P00240012P00260012P00280012P002A00127F2BDF KMIN0023R P002C0012P002E0012P00300012P00 4320012P00340012P00360012P003800127F2B5F KMIN00244R#P003A0012P003C0012P003E0012P00400012P00420012P00440012P004600127F2A6F KMIN0025RR#P00480012P004A0012P004C0012P004E0012P00500012P00520012P005400127F29EF KMIN0026R P00560012P00580012P0>05A0012P005C0012P005E0012P00600012P006200127F296F KMIN0027>R#P00640012P00660012P00680012P006A0012P006C0012P006E0012P007000127F28EF KMIN0028RR(A0000BCE8BB04C0B04EFB01CCB0201B0001BCBC1B0182B0206B0144BA18FB05AF7F14CF KMIN0029R B0134B13FD HBC12CB000AB8B84B004EB1403BD020N0000000EB1036B06A0B00007F1E2FKMIN0030HR#C0098BCBC2B01C8B882FB0142N00400001B160CBA0A6B0002BC06FB017CBD0E67F18CFKMIN0031RR#B0001B0983BDC52BDCA0N00000004B0603B16FBBC06FB01C8BC0C4B06A0B00007F1A2FKMIN0032RR#BFFFFB0223B0004BCBC3B01CEB0223B0010B8BC3B003EB121ABD020N0002000D7F18DFKMIN0033RR#B882FB0142N00400001B160CBC06FB01C8BA066B0002BD0E6B0001B0983BC0AF7F1AFFKMIN0034RN&B017CBDC72B0603B16FDB0460C0212BC040B06A0C002EC0098BC001B10E8B06A07F179F KMINN0035R#B0000BC06FB01D6BC0AFB0144B0A42B1703B4BE0N00240001B0032B06A0B00007F1E8FKMIN0036RR(C009CBCB2FB01D2B0016BCB2FB01D4B0018B05A5B000CBCBE5B000CB01D0BC0857F123F KMIN0037RD!B0222B000EBC052B1302BA081B10FCBCCAFB01CEBC4AFB01D0BCB32B001AB60857DF118F KMIN0038R#B0205B0000BC0ECB000ABC12FB01CEB06A0B0000BC160N00120012BA085BA0847F1CBFKMIN0039RR(B04D2B696FB01CEB0006B896FB01CEB0006B1208BCBE5B0008B013CBCBE5B000A7F126F KMIN0040R:B013EB0725B0008BC06FB0144B0A41B171EBEBE0N00240001B0032BC:045BCEB17F1ABFKMIN0041R#BCE91B06A0C00AABC06EB0020B0AF1B180ABC10EB0201B0004BEBA0N003E00017F186FKMIN0042RR(B0020B06A0B0000B4004C0212BC0CAB0223BFFFCB06A0B0000C0212B022ABFFFC7F16EF KMIN0043R0B06A0B0000C009CB06A0C00A0C0212B882FB0142N004000$ 001B160CBC06FB01C87F1E9FKMIN0044$R(BA066B0002BD0E6B0001B0983BC0AFB017CBDC72B0603B16FDB06A0C017ABFFFF7F104F KMIN0045RR#BC06FB01C8BA066B0002B9811N000F0011B1309BD0E6B0001B0983BC081B98327F1CDFKMIN0046R&N00000004B1606B0603B16FBBC126B0000B0&.A54B115EBD0E6B0001B0983BCBC37F1CBFKMIN0047.R#B0184BC1C3B0227B0007B41E0N00400001BCB07B0022BC0AFB017CBDCB1B06037F1B5FKMIN0048RR(B15FDBC06FB017CB06A0B0000C02C0BC0C3B110CBC126B0000B0A74B1108BCB2F7F14BF KMIN0049R B0182B0012BDB20N0004000DB08012B1057B1064BC12FB0144B0A44B1703B4BE07F1F8FKMIN00508R#N00240001B0032BC12FB01F4BC1EFB01C4B06A0B0000C02C0B9BECB0013B01837F1BBFKMIN0051RR#B1628BC0EFB0202B0AA3B171ABDB20N000E0011B0002B06A0C01A0BFFFFBC06F7F161FKMIN0052RB01C8BA066B0002BB D0E6B0001B0983BC0AFB017CBDCB1B0603B15FDB06A0C01F47F135F KMIN0053BR#C02C0BDB20N00060006B0002BC1EFB01C4B0227BFFFABC0AFB01F6BCCB7BCCB77F10FFKMIN0054RR(BCCB7BCBECB0022B01CAB0226B0004B05AFB0182B8BEFB0182B0142B1201B10027F157F KMIN0055RB0460CL%019EBCB2FB01CAB0022B06A0C0144B05AEB0006B1602B05AEB0004BEBE07F159F KMIN0056LR#N00320001B0202B0201B0001B04C0B100FBC12FB0144B0A44B170ABCEACB00127F1F3FKMIN0057RR#BCE80B06A0B0000B064ABC01AB064ABCB1AB0012B0701BDB20N00060006B00027F1CBFKMIN0058RT@DBC12FB0144B0A44B1703BEBE0N00240001B0032B2EC0B00027F51EF KMIN0059DJ30248FMBMAP300F8FMBSWT30104FMCIWT302A6FMMTBL40000FMUPFD7F1EBF KMIN0060JJ3005EKMBSC 3022CKMBTI 30266KMBTS 300C0KMGFB 50000KMINSR7F293F KMIN0061J 302D0KMPLG 3016AKMRD430174KMRMD 3015CNFCALR40000SPOP 7F2DAF KMIN00624 40000SPUSH 7FD22F KMIN0063D:  KMINSR  01/26/85 05:40:54  SDSMAC 1.2.0 83.138KMIN0064DF SOURCE*0 MOV@TS1L2C(R15),R4  SIZE OF DESTINATION 02 BL @FMCIWT BLANK2KMKC P:,4PwL0005CKMKC  M0010NFER800001M0010NFER900002M0010NFERA000037F2E8FKMKC0001LR#M0010NFERB00004M0044NFWORD0005P00000001B8081B8283B8485B8687B88897F158FKMKC0002RR#B8A8BB8C8DB8E8FP00000002B9091B9293B9495B9697B9899B9A9BB9C9DB9E9F7F10AFKMKC0003RT@R#P00000003BA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP00000004BB0B17F139F KMKC0004RR#BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFP00000005B0003B0005B0006B00077F12CFKMKC0005RN&B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFF7F169F KMKCN0006R(B8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B00087F27AF KMKC0007RR(B0004B0002B0001BFE00A0000B2F04B04EABFFF8BC02FB0202B0AC0B1706B0A107F17BF KMKC0008RD!B1704B06A0B0000B0000BC004B9CB1B1306B1B02B066ABFFF8B05AABFFF8B10047DF14AF KMKC0009R(B0603B1302B0604B16F4BC100BC02FB0202B0AC0B170BB0A10B1709BC06ABFFFE7F150F KMKC0010RR#BC0AABFFFCBC0EABFFFAB06A0B0000B0000B4BE0N003A0005B0202B04C0B2EC47F12BFKMKC0011R:40000ASSUME30014KMCNV 50000KMKC 3004EKMUCV 40000SPOP 7:F2EDF KMKC0012 40000SPUSH 7FD22F KMKC0013B:  KMKC  01/26/85 05:43:30  SDSMAC 1.2.0 83.138KMKC0014B0399$$ BYTE200000+ O004101470314$$ BYTE460006+ R007403980445$ BYTEFE000E+ _010403755KMSUK P8 4UwL0002CKMSUK M0044NFWORD0001M0010NFER000002M0010NFER1000037F27BFKMSU0001LR#M0010NFER200004M0010NFER300005P00000001B0003B0005B0006B0007B00097F210FKMSU0002RR(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF KMSU0003RT@R(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF KMSU0004RR#B0002B0001BFE00P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F211FKMSU0005RN#P00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B20217F259F KMSUN0006R#B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000005B3031B3233B3435B36377F1EDFKMSU0007RR(B3839B3A3BB3C3DB3E3FA0000B2F06B04EFB0182BDBECB0013B0183B06A0B00007F145F KMSU0008RD!C002ABD0A1B0001B0982BC182BCBC2B0184B0222B0007B40A0N00400001BCB027FD1E4FKMSU0009B0022B2EC67FD91FKMSU0010>3000EKMKDG 50000KMSUK 40000SPOP 40000SPUSH 7F576F KMSU0011>B:  KMSUK 01/26/85 06:01:46  SDSMAC 1.2.0 83.138KMSU0012B SEGMENT **  BEYOND 65K LIMIT ERR08 BYTE >0EOD EOD UTCOMN D :?xwOBJECT D &:E&&x(wUTPUSH P:k\4x@R#00016UTPUSH A0000BCE89BCE88BCE87BCE86BCE85BCE84BCE83BCE82BCE817F0B9F UTPU0001RB04C0B045B7FD93FUTPU0002J50010PUSH1 5000EPUSH2 5000CPUSH3 5000APUSH4 50008PUSH5 7F2DFF UTPU0003J650006PUSH6 50004PUSH7 50002PUSH8 50000PUSH9 7F58BF 6 UTPU0004 D:  UTPUSH  01/26/85 15:47:05  SDSMAC 1.2.0 83.138UTPU0005D 0021  * ERRORS: (NONE)  0022  ** 0023  * STACK REQUIREMENTS: 0 WORDS* 0024  *, 0025  * REVISION: 10/10/79 - ORIGINAL,8UTEACT P:m 4Lx@R#0006EUTEACT M002E$DATA 0000S0000B020AT0008B0460C0000B0000T000C7F1FAF UTEA0001RR(B2120B5554B494CB4E41B4D45B3B20B4543B4543B3B20B5750B5750B3B20B50437F1A1F UTEA0002RN&B5043B3B20B5354B5354A0000B0200B2E00B04C2B2FC0B0200B3100B0706BD1817F1DDF UTEAN0003R(B06C6B0201B2000B04C7B2FC0BC22AB0002B05C8BCE02BCE03BCE04BCE05B02007F148F UTEA0004RR(B2F00B2FC0B7000B0280B0010B1312B02A9B05C8B020DB0004B0204B0C00BC0397F1C5F UTEA0005RD!B2FC4BCE05BCE06B05C8B060DB15F9B0204B903FBC0AAB0002B1003B04C2B02047DF144F UTEA0006:B9040B0201BC000B0203B0002BC26AB0000B04197F755F UTEA0007:0X0008S$TERM0000W0000UTEACT00007F89DFUTEA00080D:  UTEACT  01/26/85 15:44:02  SDSMAC 1.2.0 83.138UTEA0009D8BA0C8BA0E1B0002B3CA0C0178BD223C0129BD263C01UTPTCH P:p4x%%@R#00064TSKPAT A0000BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EFE7F TSKP0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F TSKP0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F TSKPN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F TSKP0004RBDEADBDEAD7FD29FTSKP0005 50000TSKPAT7FCFDF TSKP0006D:  TSKPAT  01/26/85 15:46:38  SDSMAC 1.2.0 83.138TSKP0007DOP1 50008POP2 UTVNAM P:r 4ޢx@R#000A4UTVNAM A0000BDFA6B617AB5D5BB415AB3039B2024BCE81BCE83BC0C27F148F UTVN0001RR(B133DB04C2B0283B0008B1B39B9811C000AB132BB9811C0000B1B33B9811C00017F1C8F UTVN0002RN&B1420B9811C0003B1B2DB9811C0002B141AB9811C0004B1B27B9811C0005B14147F1E4F UTVNN0003R(B9811C0007B1B21B9811C0006B140EBC082B131CB9811C0009B1B19B9811C00087F1BFF UTVN0004RR(B1406B9811C000AB1308B9811C000BB1610B0581B0582B0603B15D6B100EB06037F1E0F UTVN0005RD!B1305B0581B9811C000AB13FAB1004BC082B1605BC2DBB1004BC2EBB0002B10017DF19AF UTVN0006:B8EFBBC06ABFFFCBC0EABFFFEB022ABFFFCB045B7F5E0F UTVN0007: 5000CUTVNAM7FCE6F UTVN0008D:  UTVNAM  01/26/85 15:49:43  SDSMAC 1.2.0 83.138UTVN0009DPAGE 0017 -J 0565  *********************************UTGTSB P:u6x@H00048UTGTSB 50000UTGTSBM0072NFPTR 0001M0200TSBLIS00027F2C3FUTGT0001HR#A0000B0004B0024BFFFCB0012B0042B5554B4754B5342N00000002BC041B16057F223FUTGT0002RR#A0016BC320N00120001BC0ACB009EB1001BC081B069BB0000BC082B1309BCF827F1D2FUTGT0003RR(A002CBCFADB0010B069BB0000B1603BC0A2B002AB16F7BC0C2B069BB0000BC0437F161F UTGT0004R" A0044B046BB00007FCA0F UTGT0005">30024PLINHB30032UTTHIS30040PLENAB30046R$RETL7F4E7F UTGT0006>;:  UTGTSB  01/27/85 16:20:00  RIFLE 1.2.0 82.120 ; RIFLE 1.2.082.120 PASCAL SUBSET COMPILER  01/27/85 16:20:00 E UTGTSB  PAGE 4  IDT'UTGTSB ' PSEG  DEFUTGTSB PREAMBLE  UTGTSB ) 0000 0004 DATA >0004  1 PARAMETERS ) 0002 0024 UTSORT P:x84|x@R#006E4UTSORT A0000BCE8BB06A0B0000B04E0C049AB04E0C049CB04E0C049E7F16FF UTSO0001RR(B04C5BCE8EBCE8FBC3C1BD3BFB981FC0490B131BB098EBC20EBC2CFB983BC04907F090F UTSO0002RN&B1315B0608B16FBBA3CEBC10FB0205B8000B100EBC3C4BDFE0C0490B0208B00087F151F UTSON0003R(B020EC06AABDFFEB0608B16FDB63C1B060FB0A8FBD44FB020EB003AB020FB00347F0F7F UTSO0004RR(B04C8BC801C06C8BD820C0488C06B4B0201B2400BC801C06C2B2FE0C06B2BD0607F15FF UTSO0005RD!C06B3B1305B0981B0200B0006B0460C029ABC2E0C06B8B091BB180DB0A15B17087DF19EF UTSO0006R(BC060C06C8BD820C048DC06B4B2FE0C06B2B10CCB0200B0009B1043B020BB04007F17EF UTSO0007RR(B980BC06B8B16F8BD820C048AC06B4B0201B1800BD801C06B7B2FE0C06B2BD0607F142F UTSO0008R:C06B3B1305B0981B0200B0004B0460C029ABD820C048BC06B4B04E0C: 06C0B02037F1B9F UTSO0009R(C04A4BC803C06B8B2FE0C06B2B06A0C02B2C029ABC113B6123B0004B1501BC1137F17CF UTSO0010RR(BC323B0002B05C4BC253B0959BA109B058CBA309BC14EB0915B3944BC145B16037F173F UTSO0011R0B0226B000FB190CBC208B1606B0708B020FB000CB020EB0$000EB10F0B0200B00087F1C1F UTSO0012$R(B0460C029AB0946BC208B1301B0586BC806C06A6BD820C048EC06A4B2FE0C06A47F15CF UTSO0013RR(BD060C06A5B16E6BC809C0492B0205B001ABC2C3BCE7BB0645B15FDB04F9B04F97F118F UTSO0014R&B04F9BCE48BC809C0496BC802C06A8B130CB&.C042BC260C0492B0204C06B2BC0997F142F UTSO0015.R(B06A0B0000C0286B020CB0001B1009BC30CB1602B0460C028CB2FE0C06B2B06A07F1AEF UTSO0016RR(C02B2C0286BC023B0002B11F4B13F3BC123B0010BC2C4B091BB1802B094BB17077F199F UTSO0017R BC020C06A8B13E9BC823B0020C806C0B10E5B060CB0A14B1809B1101B1007B02027F1B1F UTSO00188R(B0000B06A0C0314B0205B001AB1006B0202B0000B06A0C0314B0205B001CBA1607F218F UTSO0019RR(C0492B06A0C02D0C0286BC2E3B001EB13CBBC820C06C0C04A2BC80BC06C0BC8207F141F UTSO0020RC0498C0494BC208BB 1602B04E1B0016B2FE0C06B2B06A0C02B2C0286BC2E3B00107F18BF UTSO0021BR(B091BB1824B0202B0000B06A0C0314BC208B1604BC920C0494B0012B1003BC9207F1E3F UTSO0022RR(C0494B000ABC0A3B0010B0205B001AB0A12B1801B1102B0205B001CBA160C04927F1E6F UTSO0023RB06A0CL%02D0C0286BC823B001EC06C0B16D8BC820C04A2C06C0B0460C018AB02027F185F UTSO0024LR(B0000B06A0C0314BC208B1604BC920C0494B0012B1003BC920C0494B000AB02057F1E8F UTSO0025RR(B001EB10E2BC000B1101B1007B04C0B0720C049AB0720C049CB0720C049EB064A7F1B3F UTSO0026RT@R(BC3DAB064ABC39ABCAA0C0492BFFFCBCAA0C06A6BFFFAB0460B0000BCE8BBD0207F087F UTSO0027RR(C06B3B1303B0200B0002B1006BD020C06B6B0240B2000B1301B0700B0460B00007F22EF UTSO0028RN&BCE8BB06A0B0000BC805C04A0BC155B130EBC060C0498B0203B0008BC103BC0857F176F UTSON0029R(B06A0B0000C02FABA14FBC805C04A0BC155B16F7BC060C0498BCA81BFFFEBC0A07F0F3F UTSO0030RR(C04A0BC2D2BC481BA04FBC44BB04C0B0460B0000BCE8BBC208B1302B0202B00007F16CF UTSO0031RD!BC120C0496BC804C0498BC172B1108BC1B2BC1F2BA143BA184BDDB5B0607B16FD7DF121F UTSO0032R(B10F6BC208B1603B06A0C038CC0344BC160C06C0B0605BC905B0008BC144BA14E7F17AF UTSO0033RR(BC805C0496B064ABC2DAB045BBCE8BBD820C0489C06B4B2FE0C06B2BD2E0C06B37F0E9F UTSO0034R:B1303B0200B0005B100ABD820C048DC06B4B2FE0C06B2BD2E0C06B3B: 1302B02007F19CF UTSO0035R(B0007B0460C02CEBCE8BB06A0B0000B04C5B04C2BC2E3B0010B091BB1811B094B7F171F UTSO0036RR(B180FBC0A3B0016BC063B001CB130AB0206B0010BA043BC2F1B1305BA08BB05857F18AF UTSO0037R0B05C1B0606B15F9BC902B0036BC905B0038B0460B0000B0$CE8BB06A0C0390B02047F19CF UTSO0038$R(B0034BC1A0C0492BC2E6B0020B1302B0204B000CBC041B1306B110AB0205B001E7F1D0F UTSO0039RR(B0203C049EB1009B0203C049CB0205B001CB1004B0203C049AB0205B001ABC0937F1DBF UTSO0040R&B133BB0582B1605BC086BA085BC092B1335B&.0582B0602BA102BC4D4B0203C04A47F199F UTSO0041.R(BC803C06B8BC2CBB132BBC822B0008C06C0BD820C048BC06B4B2FE0C06B2B06A07F124F UTSO0042RR(C02B2C0480B0204C05A4B0201C01DABC2E3B0010B091BB1703B0201C0268B10047F1D2F UTSO0043R B094BB1705B0201C0220BC922B8000AB0012BC0B1B1108BC171BC2F1BA083BA1447F199F UTSO00448R(BDD72B060BB16FDB10F6B06A0C038CC0484BC084BCA82BFFFCB0460C03CAB91017F0F2F UTSO0045RR(B0009B0593B1213B2E00A0492B0000B0000B0000B0000B0000B0000B0000B00007F269F UTSO0046RB0000A04A4A05A4AB 06A4B0000B0000B0000B5643B4154B414CB4F47B0000B00007F203F UTSO0047BR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF UTSO0048RDB0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F5B5FUTSO0049D 3045CALIMT 40000ASSU6ME30452CHANMT5035CCLSSRT301CCDIRMT 7F203F UTSO00506J50492DORBUF30446FILEMT3031CMODMT 503CCNXTENT3038APOP0 7F229F UTSO0051JJ 40000POP2 40000POP4 30312POP5 30486POP6 302B0POP9 7F3E7F UTSO0052J$40000PUSH2 40000PUSH4 302D4PUSH5 3$(03D0PUSH6 30004PUSH9 7F2E9F UTSO0053(> 30180SEARCH50000SORT506B2SRTPRB302ECUTCMPS7F4B5F UTSO0054>D:  UTSORT  01/26/85 15:47:46  SDSMAC 1.2.0 83.138UTSO0055DC06B3B1305B0981B0200B0006B0460C029ABC2E0C06B8B091BB180DB0A15B17087D UTCHEK P:86x @*00024UTCHEK 50000UTCHEK7FA16FUTCH0001*R(A0000B0004B0024B0010B0020B5554B4348B454BB8000BC041B1306BCF81BCFAD7F1B4F UTCH0002R6A0018B000EB04FEB069BB0000B046BB00007F832F UTCH00036(3001EUTPUER30022R$RETM7FA36FUTCH0004(:  UTCHEK - 01/27/85 16:17:10  RIFLE 1.2.0 82.120 - $MEM1 = "" .SYN $MEM2 = "" A=(0,0,0,0,0,0,>6C00) 7.IF @$$CC,EQ,0 .SYN$$CC=@$MFN$CC .ENDIF?.SYN$MFN$CC="", $MFN$K="", $MFN$L="", $MFN$L2="", $MFN$T="" ?.E UTJINT P:6x @:0001EUTJINT 50000UTJINTM0200JSBLIS00017F63BF UTJI0001:R#A0000BFFFFB0003B000AB001CB5554B4A49B4E54B0201N00000001B020CB01007F1F5FUTJI0002R,A0016B04F1B060CB15FDB03807FA4AF UTJI0003,6:  UTJINT  01/27/85 16:21:24  RIFLE 1.2.0 862.120 010B069BB0000B1603BC0A2B002AB16F7BC0C2B069BB0000BC0437F161F UTGT0004R" A0044B046BB00007FCA0F UTGT0005"> ^^RTbO^.ENDIF .IF "&MAP",GE,"Y"  .SYN $XR$1="@$XR$1,MAP" .ENDIF .IF "&NO OPT UTLMSG P:6Ux @*00044UTLMSG 50000UTLMSG7F9E4FUTLM0001*R(A0000B0004B0024B0014B0040B5554B4C4DB5347B0018B0008B2100BC78FBAFAD7F1B0F UTLM0002RR(A0018B000EBCFADB0010B069BB0000BC72DB0012B04ECB0002BC281B058ABCB0A7F14FF UTLM0003R A0030B0004B04ECB0006B2FDCBCF8C ,B069BB0000B04CCB046BB00007F391F UTLM0004,430020R$NEW$3003CR$FREE30042R$RETM7F808F UTLM00054;:  UTLMSG  01/27/85 16:22:22  RIFLE 1.2.0 82.120 ;NDIF?.SYN$MFN$CC="", $MFN$K="", $MFN$L="", $MFN$L2="", $MFN$T="" ?.EUTTHIS P: .6x@*00068UTTHIS_I50000UTTHIS7F96CFUTTH0001*R(A0000B0006B0026B000EB0062B5554%%B5448B4953B04CCB04C3B028CB00FFB15117F1B3F UTTH0002RR(A0018BC28CB0A1ABA282BC25AB130CBC0C3B161AB04CABC24CB0A19BA242B86417F118F UTTH0003R A0030B1601B058ABC0CAB058CB10EC 4BC0C3B160EB028CB0100B1103B0203B00017F199F UTTH00044R(A0048B1001BC0C3B1606B028CB00FFB1503B0A1CBA302BC701B04CCBC0C3B16017F169F UTTH0005R,A0060B058CBC04CB046BB00007FA54F UTTH0006, 30066R$RETM7FD1CF UTTH0007:  UTTHIS_I 01/27/85 # 16:23:32  RIFLE 1.2.0 82.120 #ING_REC;" LONG_STRING_REC = PACKED RECORD" MAXLEN : INTEGER; LENGTH : INTEGER;( CH : PACKED ARRAY [1..512] OF CHAR;( END; ! LONGSTRING = @LONG_STRING_REC; !. BUF1600= PACKUTCVDT P:4=x@R#0018AUTCVDT A0000BCE8BB06A0B0000BC181B2FE0C017CB0201C0180B02057F1BFF UTCV0001RR(C00B0B0207C0132BC221B0004B0695BC221B0006B0695BC221B0008B0695BC2517F1DBF UTCV0002RN&B0289B07B7B1403B0207C0131B1037B0229BF84BBC209B0589BC089B38A0C01767F196F UTCVN0003R(B0928BA0C8BA0E1B0002B3CA0C0178BD223C0129BD263C012AB0988B0228C010C7F179F UTCV0004RR(B0989B0229C010CBDDB8B8248B1AFDBDDB7BDDB7BDDB7BDDB7BDDB7B06A0C00CA7F05EF UTCV0005RD!B0000BC202B0608B3A20C0174B0229C0150BDDB9BDDB9BDDB9BDDB7BC203B06957DF11DF UTCV0006R(BDDB7BDDB7BDDB7BC251B04C8B3E20C017ABC209B0695BCA86BFFFCB04C0B04607F0A4F UTCV0007RR(B0000B3A20C0108B3E20C010ABE209B0228B3030B06C8BDD88B06C8BDD88BDDB77F13DF UTCV0008R:B045BBCE8BB06A0C0004BD820C014FC0143BC251B0AE9B1603BD820C: 014EC01437F15DF UTCV0009R(B04C8BC0E1B0002BD268C0142B0989B80C9B1403B60C9B0588B10F8B0588BCA887F154F UTCV0010RR(BFFFCBCA83BFFFAB04C0B0460C00AEB0100B0A00B5341B5455B5253B554EB4D4F7F0FAF UTCV0011R0B4E54B5545B5357B4544B4E45B5354B4855B5253B4652B0$4900B0508B0B0FB151A7F192F UTCV0012$R(B1D2AB3A3AB2044B4159B2C20B202CB2031B392EB0D0AB1F1CB1F1EB1F1EB1F1F7F113F UTCV0013RR(B1E1FB1E1FB1D1CB4A41B4E46B4542B4D41B5241B5052B4D41B594AB554EB4A557F129F UTCV0014R&B4C41B5547B5345B504FB4354B4E4FB5644B&.4543B0003B016DB0007B0064B03007F1B6F UTCV0015.0C0180B0000B0000B0000B0000B00007F9B3FUTCV00160>50000CVDT 500CACVJDAY30106POP9 300CEPUSH9 7F573F UTCV0017>D:  UTCVDT  01/26/85 15:43:41  SDSMAC 1.2.0 83.138UTCV0018Dy %UTLLWT P:4qx@R#00056UTLLWT A0000B000AB0024B0008B004EB0581BA044B60C4B111FB02077F1F1F UTLL0001RR(B0050B61C2BC203B81C8B120ABC207BC141BA147B9815C0054B1304B0605B06087F1AAF UTLL0002RN&B15FAB1007B06C8BD448B06C8B0420B0000BC000B1608B0420B0000BC000B16047F1C8F UTLLN0003:BA048B60C8B15E5B04C0BC040B046BB0000B20207F70DF UTLL0004:>30052R$RETM30040S$WEOL30038S$WRIT50000UTLLWT7F4E0F UTLL0005>D:  UTLLWT  01/26/85 15:44:36  SDSMAC 1.2.0 83.138UTLL0006D 03  $$UI  RFC019   $$VN UTEXIT P:4_x@R#00134UTEXIT A0000B9055B9056B9057B9058B0000A000AA006EB0064B02017F212F UTEX0001RR(BFF05B1026B04C3B1030BC2C0B72CBB060BB0A1BBC06BC0000B101DB0201B904C7F160F UTEX0002RN&B101AB0201B904DB1017B0201B904EB1014B0201B9050B1011B0201B9051B100E7F208F UTEXN0003R(B0201B904FB100BB0201B9053B1008B0201B9054B1005B04C8B04C7B0703B100F7F1E0F UTEX0004RR(BC040BC201B0201C0008BC460C006EB04C2B0203B0002BC108B04C5B0420B00007F1DFF UTEX0005RD!B0207B8000B0204B1300BC160B0000B1303BC260B0000B2FC4BC0C3B130FBC1207DF1D0F UTEX0006R(B0000B1306B0204B0100BD804B0000B2FE0B0000B0204B9300BD804C00FEB2FE07F1C6F UTEX0007RR(C0102B0420B0000B0288B9053B1601B04C7BC0C3B1305BC008B04C2B0420B00007F1F0F UTEX0008R0B0702B0202C010EB0420B0000B07027F98AFUTEX000905007F0ERR1 5009AERR10 500A6ERR11 500A0ERR12 500A6ERR13 7F398F UTEX0010FJ 500A6ERR14 50076ERR2500ACERR21 500B2ERR22 5007AERR3 7F38EF UTEX0011JJ 5007AERR4 50088ERR5 5008EERR6 50094ERR8 500A6ERR9 7F3BAF UTEX0012J 500B8FINISH300F4OP8EN300E4RDBLK 300EARDBUF 300D8S$CMSG7F283F UTEX00138J 30112S$RTCA500C2STOP500C0STOPS 3012CSVCBLK3010ASVCCOD7F24BF UTEX0014J(30130UTSERR30126UTUERR7FA0AFUTEX0015(D:  UTEXIT  01/26/85 15:44:17  SDSMAC 1.2.0 83.138UTEX0016D38 15:44:17 SATURDAY, JAN 26, 1985. C% UTEXIT - EXIT UTILITYPAGE 0002 % 0002  *E 0003  * (C) COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, 1979. EC 0004  * ALL RIGHTS RESERVED.PROPERTY OF TEXAS INSTRUMENTS CP.HUTTINT P:6x@:0001EUTTINT 50000UTTINTM0200TSBLIS00017F61DF UTTI0001:R#A0000BFFFFB0003B000AB001CB5554B5449B4E54B0201N00000001B020CB01007F201FUTTI0002R,A0016B04F1B060CB15FDB03807FA4AF UTTI0003,6:  UTTINT  01/27/85 16:24:56  RIFLE 1.2.0 862.120 28CB0100B1103B0203B00017F199F UTTH00044R(A0048B1001BC0C3B1606B028CB00FFB1503B0A1CBA302BC701B04CCBC0C3B16017 ^^RTO^ $XR$1="@$XR$1,NO WIDELIST" .ENDIF .IF "&WIDELIST",GE,"Y".SYN $XR$1="@$XRUTACNM P:6x@*000C0UTACNM 50000UTACNM7FA01FUTAC0001*R(A0000B0006B0038B0018B00BAB5554B4143B4E4DB000AB0032B002EB0008B00267F1E6F UTAC0002RR(A0018BCBD1B0022BCBE1B0002B0024BC78FBAFADB000EBCFADB0010B069BB00007F11DF UTAC0003R A0030BCFAFB0022B069BB0000BC0DE 4B163EBC32FB0024BC11CB0224B0066BC2847F14CF UTAC00044R(A0048B022AB0042BCF8ABC78FBAFADB0012BCFADB0014B069BB0000BC12CB00227F11FF UTAC0005RR(A0060BC32CB0024BCF8CB069BC0036BC0DEB1621BC324B0032B1607BC78FBAFAD7F111F UTAC0006R A0078B0012BCF85B04DE>B05BEB1010BC304B022CB001ABCF8CBC78FBAFADB00167F0FBF UTAC0007>R(A0090BCFADB0014B069BC005ABC78FBAFADB0016BCF85B04FEB069BB0000BC3247F0EFF UTAC0008RR(A00A8B0034BC124B0032B16DABCF82B069BB0000BC0DEBC105BC044B046BB00007F165F UTAC0009R 3002ERS$NE H#W30068PLMTBL30096R$MOVN300A4ADD_PN300B4PLMJCA300BER$RETM7EF32FUTAC0010H;:  UTACNM  01/27/85 16:15:42  RIFLE 1.2.0 82.120 ;*000ECADD_PNC 50000ADD_PN7F9CDFADD_0001*@A0000B0008B0024B0014B00E8B4144B445FB504EB0032B002EB0020BC78FBA@ F9D7F198F ADD_0002R(A0018BCFADB000EB069BB0000BC304BDB2DB0001B0001BC1C1BC14CB05C5BC19D7F12AF ADD_0003RR(A0030BDD77B0606B15FDBCF84B069BB0000BD2A2B0001B130EBD2ACB0001B098A7F145F ADD_0004R6A0048BA28CBDAADB0011B0002BD2ACB0001B098AB058AB06CABD6B0AB0001BD2A47F120F ADD_0005R(A0060B0001B098ABD262B0001B0989BA289BD252B0989B824AB1B09BCF82BCF847F150F ADD_0006RR(A0078B069BB0000BCF84BCF82B069BB0000B102DBC0C3B132BBCF82B069BB00007F14BF ADD_0007R,A0090BD324B0001B098CB0207B0001BC14CB1008BC,(284BA287BC242BA247BDA6A7F16FF ADD_0008(R(A00A8B0001B0001B0587B8147B11F6B13F5B058CBC282BA28CBDAADB0011B00017F176F ADD_0009RR(A00C0BC282BA28CBD26AB0002B0989B0289B002EB1305BDAADB0013B0002B058C7F164F ADD_0010R"A00D8B10F3BCF82B069BC003ABC78FBA"*F9DB069BB0000B046BB00007F35CF ADD_0011*R(3001ERS$NEW300DERS$DEB3007ARS$APP30082RS$COP3008ERS$RAD300E6RS$DIS7EF99FADD_0012R 300EAR$RETM7FD02F ADD_0013;:  ADD_PNC 01/27/85 16:15:42  RIFLE 1.2.0 82.120 ;BB`UTMTBL P: 4ݻx@R#0009EUTMTBL A0000B0004B0000B0008B0010B000AB0002B0012B000CB00027F258F UTMT0001RR(B0014B000EB0002B0016B0010B0002B001AB0012B0002B001EB0016B0002B00207F251F UTMT0002RN&B0018B0004B0024B001CB0004B0028B0020B0002B0032B0022B0006B0034B00247F25AF UTMTN0003R(B0002B0036B0026B0006B003CB002CB0006B0042B0032B0001B0043B0033B00017F24BF UTMT0004RR(BFFFFB0004B0000B0008B0010B000AB0002BFFFFB0004B0000B0008B0010B000A7F1C1F UTMT0005RD!B0002B0013B000CB0001B0012B000DB0001B0015B000EB0001B0016B0010B00027DF257F UTMT0006,BFFFFB0004B0000B0008BFFFF7FA03F UTMT0007,J50062ALIMT 40000ASSUME50070CHANMT50000DIRMT 50000FILEMT7F271F UTMT0008J(5009CKDRMT 50096MODMT 7FA71FUTMT0009(<:  UTMTBL  01/26/85 15:45:28  SDSMAC 1.2.0 83.138< UTMT0010  *CALLS TO MSGCC: DATA CORRESPONDS TO R1-R4 FOR S$TERM CALLJ 0110  *F 0111 0084 8000 SVCERR DATA >800013 TERMINATED WITH ERROR MSGF@ 0112 0086 0000 DATA 013 NO VARIABLE TEXT FOR SVC ERRS@C TPMHUTCMPS P : 4)xR#00096UTCMPS M0192NFDATA0001P00000001P00020001P00040001P000600017F1D6FUTCM0001RN!P00080001P000A0001P000C0001P000E0001P00100001B000FP001200017F386F UTCM0002NN!P00160001P00180001P00180001P001A0001P001C0001B0000P001E00017F38CF UTCM0003NR@R#P00200001P00220001P00240001P00260001P00280001P002A0001P002C00017F2CCF UTCM0004RR#P00340001P00360001P00380001P003A0001P003C0001P003E0001P004000017F2B1F UTCM0005RN#P00420001P00440001P00460001P00480001P004A0001P004C0001P004E00017F2A9F UTCMN0006R#P00500001P00520001P00540001P00560001P00580001P005A0001P005C00017F2B7F UTCM0007RR#P005E0001P00600001P00620001P00640001P00660001P00680001P006A00017F2AFF UTCM0008RD!P006C0001P006E%%0001P00700001P00720001P00740001P00760001P007800017F2DA7F UTCM0009R#P007A0001P007A0001P007C0001P007E0001P00800001P00820001P008400017F28EF UTCM0010RR#P00860001P00880001P008A0001P008C0001P008E0001P00900001P009200017F28FF UTCM0011R:P00940001P00960001P00980001P009A0001P009C0001P009E0001P0:0AC00017F26DF UTCM0012N!B0080P00AE0001P00B20001P00B60001P00BA0001P00BE0001P00C000017F32AF UTCM0013NR#P00C20001P00C40001P00C60001P00C80001P00CA0001P00CC0001P00CE00017F240F UTCM0014R4P00D00001P00D20001P00D40001P00D60001P00D80001P00DA4 0001P00DC00017F24EF UTCM0015 R#P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA0001P00FC00017F233F UTCM0016RR#P00FE0001P01000001P01020001P01040001P01060001P010C0001P010E00017F2ADF UTCM0017R*P01160001P01180001P011A0001P011C0001P011**E0001P01200001P012200017F2B9F UTCM0018*R#P01240001P01280001P012C0001P012C0001P012E0001P01300001P013200017F2B2F UTCM0019RR#P01340001P01880001P018A0001P018C0001P018E0001P01900001A0000BCE8B7F227FUTCM0020R B06A0B0000BC144B80C4B1A01BC143 4BC145B131EB2FE0C005EB0209C0080BC2397F17BF UTCM00214R(B1314B8808C0068B1302B05C9B10F9BC219BD1B1B06A0C006CB0000BC1C6BD1B27F16AF UTCM0022RR(B06A0C006CB0000B9187B160BB0605B15F3B1004B9CB1B1606B0605B15FCB81037F19BF UTCM0023R B1203B04C0B1002B1BFD>B0700B0460B0000B3F00B8580B0000B00FEB0000B00007F1E8F UTCM0024>R(B0000BCE8BBC248BC2F9B1304B92C6B1BFCB06CBBB18BB0460B0000B0900B00007F145F UTCM0025R@B0A00B0000B0B00B0000B0C00B0000B0D00B0000B00007F66DF UTCM0026@3008EFRBASE30082GEBASE3007EP.OP0 3005CPOP9 30004PUSH9 7F2F1F UTCM0027.>3008ASPBASE30086SWBASE30092SWIBAS50000UTCMPS7F4A1F UTCM0028>D:  UTCMPS  01/26/85 15:43:06  SDSMAC 1.2.0 83.138UTCM0029D  PARMS @* READS A SPECIFIED (NUMERIC) PARM. IF NON-UTPOP P: 4x@R00076UTPOP A0000B0001B064ABC05AB1029B064ABC05AB064ABC09AB10247F1DDF UTPO0001RR(B022ABFFFABC2CAB101DB022ABFFF8BC2CAB1018B022ABFFF6BC2CAB1013B022A7F0A6F UTPO0002RN&BFFF4BC2CAB100EB022ABFFF2BC2CAB1009B022ABFFF0BC2CAB1004B022ABFFEE7F07EF UTPON0003R(BC2CABC27BBC23BBC1FBBC1BBBC17BBC13BBC0FBBC0BBBC07BB064ABC2DABC0007F04EF UTPO0004RJB1308BC6DBB1305B881BC0000B1301BC2DBB045BBD000B046BB00027F3AEF UTPO0005JJ60001DIE 5005APOP0 50002POP1 50008POP2 50012POP3 7F427F UTPO0006JLJ 5001APOP4 50022POP5 5002APOP6 50032POP7 5003APOP8 7F3C5F UTPO0007J 50042POP9 7FD66F UTPO0008B:  UTPOP 01/26/85 15:46:07  SDSMAC 1.2.0 83.138UTPO0009BPAGE 0003 # 0009 IDT 'UTMTBL'  0010  * TITLE: UTPSER P:4xR#00012UTPSER A0000B0006B0024B0008B000EB0420B0000B0102B046BB00007F252F UTPS0001R430010R$RETM50000UTPSER3000AUTSERR7F766F UTPS00024D:  UTPSER  01/26/85 15:46:22  SDSMAC 1.2.0 83.138UTPS0003D0008 064A DECT R10 RESTORE REGISUTR$ST P:4x@R#00000UTR$ST M014C$DATA 0000S0000T004ET0004B0420T0008T006ET000C7F1BEF UTR$0001RR(BC06DB0002B131CB0202B0008BD8A240000MDNAMEE0000FFFFT0093B0602B15FB7F11EF UTR$0002RN&BC0ADB0004BD0F2B0983BC003B0220B0010B0A80BD800T008EB0201T009FBDC727F150F UTR$N0003R(B0603B15FDB2FE0T0056B0201B0000B1301B0411B2FE0T0054B0000BC000T00EF7F186F UTR$0004RR(B0400B2100B0000T008EB0000B0000B0000B0000B0000B0000B0000B0000B00007F279F UTR$0005RD!S006ES008EB202AB2A2AB2A20B2020B2020B2020B2020B202DB2000S009ES00EE7DF171F UTR$0006R(B0017B4455B4D4DB5920B5324B2052B4F55B5449B4E45B2043B414CB4C45B44187F18CF UTR$0007RR(B494EB5355B4646B4943B4945B4E54B2048B4541B5020B4D41B5247B494EB02097F194F UTR$0008R:B0000B0229B0000B8248B1B03B0209B0000B045BB0201BC000B0202T: 0107B04207F216F UTR$0009:T0008B0201T0122B0202T0126B0222BFFC0B045B7F706F UTR$0010:N!Z0044CLNUP 0000X0144HEPSIZ0000W013ER$GSHP0000W0120R$GSHS00007F174FUTR$0011NL!X012ERSTACK0000W0000S$GTCA0000W0000S$INT 0000W0000S$PARM00007F1CDFUTR$00L12@W0008S$STOP0000W0000SET$NA0000X0140STKSIZ00007F4F2F UTR$0013@D:  UTR$ST  01/26/85 15:47:17  SDSMAC 1.2.0 83.138UTR$0014D 0081 004EFLD FDRCD,SDECD,FDRAPB-FDRCD - *0001 004E 003C DATA FDRCD *0002 0050 002UTLWRT P:4ݔxR#00044UTLWRT A0000B0004B0024B0008B003EB05C1BC0D1B0581BC003B12157F1F4F UTLW0001RR(B0280B0050B1202B0200B0050B06C0BD440B04C2B0420B0000BC000B160AB04207F20FF UTLW0002RN!B0000BC000B1606B0221B0050B0223BFFB0B15E9B04C0BC040B046BB00007F2D4FUTLW0003N>30042R$RETM3002CS$WEOL30024S$WRIT50000UTLWRT7F4CFF UTLW0004>D:  UTLWRT  01/26/85 15:45:12  SDSMAC 1.2.0 83.138UTLW0005D 00  $$SI  RESEARCH   $$ST  03  $$UI  RFC019   $$VN  T  $E$C  0  $E$C2UTLOGN P:04݃x @R#000A4UTLOGN A0000BCE8BBCE81B020BB3030BC80BC0060BC801C0096B020B7F197F UTLO0001RR(C0061BC80BC0098B04E0C009CB04E0C009ABD820C00A2C0095B04C0B2FE0C00927F16DF UTLO0002RN&BD020C0093B130BBD820C00A3C0095B2FE0C0092BD020C0093B1303B04C0B04607F1B0F UTLON0003R(B0000BD020C009DB16FBB020BC0061BD01BB0980B0580BDC7BB0600B16FDB10F27F15BF UTLO0004RJA0060A0092B4300B0000B0000B0000B0000B0000B0000B0000B80907F48CF UTLO0005J(30046POP1 50000UTLOGN7FA9EFUTLO0006( :  UTLOGN  01/26/85 15:44 &:53  SDSMAC 1.2.0 83.138UTLO0007&B4 9054  0103 00B6 1005 JMP STOP C UTEXIT SDSMAC 1.2.0 83.138 15:44:17 SATURDAY, JAN 26, 1985. C% UTEXIT - EXIT UTILITYPAGE 0005 %J 0105  *********************************UTPUER P:4x!@R#0001AUTPUER A0000B0008B0024B0008B0016BC001BC0C3B1301B0583B04207F21AF UTPU0001R& B0000B0203B046BB00007FBA0FUTPU0002&430018R$RETM50000UTPUER30012UTUERR7F768F UTPU00034B:  UTPUER  01/26/85 15:46:49  SDSMAC 1.2.0 83.138UTPU00B04,R1  RESTORE REGISTER R1: 0098  005A' POP0 EQU $ 0099 005A 064A DECT R10= 0100 005C C2DA MOV *R10,R11  RESTORE RETURN ADDRESS =/ 0101 005E C000 MOV R0,R0 IF NO ERRORS / 0102 0060 1308 JEUTGJOB P:n6yx#@H000DEUTGJOB 50000UTGJOBM0012SM_SCB0001M0200JSBLIS00027F2A5FUTGJ0001H" M0072NFPTR 00037FC46F UTGJ0002"N!A0000B000AB002CBFFFCB001CB00DAB5554B474AB4F42N00000002B00087F2D7F UTGJ0003N6A0014N00000001B4000B0002B5800BC041B1603BC160N000C0006 3B1001BC1417F296F UTGJ0004R(A0028B069BB0000BC145B1351BD2A5B0007B098AB028AB0004B1349BCF85BCFAD7F155F UTGJ0005RR(A0040B0010B069BB0000B1343BC0C3B160ABC285B022AB001CBCF8ABCF84BCFAD7F12EF UTGJ0006R,A0058B0012B069BB0000B1637BC082B1337BCBE5B0,(010B0022BCBE5B0012B00247F1B7F UTGJ0007(R(A0070BCFAFB0024B069BB0000B16D9BC32DB0014BCBCCB0026BC72DB0016B04EC7F127F UTGJ0008RR(A0088B0002BCB2DB0018B0004BC2ADB001AB024ABFFFCBEB0AB0004BC2AFB00247F120F UTGJ0009R"A00A0BCB2AB0006B000ABC2AFB0022B0"24ECB0006BCB2AB0006B0008B069BB00007F177F UTGJ00102R(A00B8BC2AFB0026B2FDAB069BC002ABC2AFB0026BD2AAB0001B1303B10AFBC1557F116F UTGJ0011R:A00D0B16AFB069BC00B6BCBC5B0028B046BB00007F6DBF UTGJ0012:0300C0PLINHB30044UTTHIS3005CR$CS 30076PLMTBL300$0D4PLENAB300DCR$RETL7EF84FUTGJ0013$;:  UTGJOB  01/27/85 16:18:25  RIFLE 1.2.0 82.120 ;UTBPAT P:4x$@R#00000UTBPAT M0200$DATA 0000S0000BDEADBDEADBDEADBDEADBDEADBDEAD7F0A9F UTBP0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBPN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F UTBP0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F UTBP0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0010RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0011R0BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB0$DEADBDEADBDEADBDEAD7EEB9F UTBP0012$R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0013RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBD%%EADBDEADBDEAD7EEB9F UTBP0014R&BDEADBDEADBDEADBDEADBDEADBDEADBDEADB&.DEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0015.R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0016RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0017R BDEADBDEADBDEADBDEADBDEADB8DEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP00188R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0019RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F UTBP0020RBDEADBDEADBDEAD7FBD9F UTBP0021" W0000UTBPAT00007FC22F UTBP0022"D:  UTBPAT  01/26/85 15:42:49  SDSMAC 1.2.0 83.138UTBP0023D"UTVERS P:4ޒx%400006UTVERS A0000B312EB332EB2D317F851F UTVE00014 50000UTVERS7FCEBF UTVE0002D:  UTVERS  01/26/85 15:49:33  SDSMAC 1.2.0 83.138UTVE0003D$$CC$ 0023  *2 0024  * RB = ADDR OF VARIABLE TEXT BUFFER2 0#UTSERR P:*4x'@R#00012UTSERR M0004$DATA 0000S0000B0000C0000A0000B06A0B0000BC1027F236F UTSE0001R0B04C2B0203B0001B0420B0000B03807F98DFUTSE00020F30002S$$GRB3000ES$TERMW0000UTSERR0000X0000W$ERRS00007F35CFUTSE0003F&:  UTSERR  01/26/85 15:47:34 & SDSMAC 1.2.0 83.138UTSE0004  LISTING ACCESS NAME = T.DPL.UTCOMN.LIST.UTCVDT 5$  ERROR ACCESS NAME = .XMAERR03$ OPTIONS = B,T,D,RX ) MACRO LIBRARY PATHNAME = ** NULL ** )  PRINT WIDTH (CHARS) = 80   $UTUERR P:~4ވx(@R#00024UTUERR M0024$DATA 0000S0000T0004C0000S0004A0000B06A0B00007F21AF UTUE0001RR(B0203B0002BC11DB1309B0284B8000B1406BC160B0000B1303BC105B0203B00017F211F UTUE0002R" B0420B0000B03807FCB2F UTUE0003"(30002S$$GRB30020S$TERMV0014SVCCB$W0000(,UTUERR0000W0004W$ERRS00007F0BAF UTUE0004,D:  UTUERR  01/26/85 15:49:20  SDSMAC 1.2.0 83.138UTUE0005D% I ASSEMBLR-0001 MACRO ASSEMBLY^^RTO TURDAY, JAN 26, 1985. 1 LABEL  VALUE DEFN REFEREOD EOD %IOMGR D :x+x)OBJECT D &:&&xQx*#IOMISC P 60000COMBSZ50000COMSWS60000COMVEC60000COMXSZ7F4A7F COMS0022>D:  COMSWSS 01/26/85 02:50:36  SDSMAC 1.2.0 83.138COMS0023D FROM JOB PRIORITY. 4*  ALLOWABLE VALUES ARE:<*  0 = MODIFY TASK PRIORITY BY +/- 64 BASED ON J IOCHKX P;;UV4*2x2@L 002E2IOCHKX M00DANFCLKD0001M0010NFER000002M0010NFER1000037F25DFIOCH0001LN!M0010NFER400004M0010NFER500005M0010NFERB00006M0010NFERE000077F21FFIOCH0002NR#M0072NFPTR 0008M0192NFDATA0009M0044NFWORD000AP00000001B0007B00007F11FFIOCH0003RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF IOCH0004RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF IOCH0005RN&B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF IOCHN0006R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF IOCH0007RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF IOCH0008RD!B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007DF2AFF IOCH0009R(B0000B0000B0000B0000B003CB0018B016DB0000B0000B0000B0001B0000B00007F274F IOCH0010RR(B0000B6800B0000B0000B0000B0000B0006BFE01B7F80B0000B1FE0B0000B00007F21EF IOCH0011R:B0000B0000B0000P00000002B0001B0203B0405B0607B0809B0A0BB0:C0DB0E0F7F23FFIOCH0012R#P00000003B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B40417F255F IOCH0013RR#B4243B4445B4647B4849B4A4BB4C4DB4E4FP00000005B5051B5253B5455B56577F1C1FIOCH0014R0B5859B5A5BB5C5DB5E5FP00000006BB0B1BB2B3BB4B5BB0$ 6B7BB8B9BBABBBBCBD7F0BCFIOCH0015$R#BBEBFP00000007BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP000000087F0C7F IOCH0016RR#P00020008P00040008P00060008P00080008P000A0008P000C0008P000E00087F294F IOCH0017R&P00100008P00120008P00140008P00160008&.P00180008P001A0008P001C00087F2A2F IOCH0018.R#P001E0008P00200008P00220008P00240008P00260008P00280008P002A00087F29AF IOCH0019RR#P002C0008P002E0008P00300008P00320008P00340008P00360008P003800087F292F IOCH0020R P003A0008P003C0008P003E00088P00400008P00420008P00440008P004600087F283F IOCH00218R#P00480008P004A0008P004C0008P004E0008P00500008P00520008P005400087F27BF IOCH0022RR#P00560008P00580008P005A0008P005C0008P005E0008P00600008P006200087F273F IOCH0023RP00640008P006600B08P00680008P006A0008P006C0008P006E0008P007000087F26BF IOCH0024BR#P00000009P00020009P00040009P00060009P00080009P000A0009P000C00097F2A2F IOCH0025RN!P000E0009P00100009B000FP00120009P00160009P00180009P001800097F369F IOCH0026N P001A0009P D001C0009B0000P001E0009P00200009P00220009P002400097F369F IOCH0027DR#P00260009P00280009P002A0009P002C0009P00340009P00360009P003800097F285F IOCH0028RR#P003A0009P003C0009P003E0009P00400009P00420009P00440009P004600097F27CF IOCH0029RP004N!80009P004A0009P004C0009P004E0009P00500009P00520009P005400097F274F IOCH0030NR#P00560009P00580009P005A0009P005C0009P005E0009P00600009P006200097F26CF IOCH0031RR#P00640009P00660009P00680009P006A0009P006C0009P006E0009P007000097F264F IOCH0032R@R#P00720009P00740009P00760009P00780009P007A0009P007A0009P007C00097F260F IOCH0033RR#P007E0009P00800009P00820009P00840009P00860009P00880009P008A00097F269F IOCH0034RN#P008C0009P008E0009P00900009P00920009P00940009P00960009P009800097F261F IOCHN0035N!P009A0009P009C0009P009E0009P00AC0009B0080P00AE0009P00B200097F2F7F IOCH0036NR#P00B60009P00BA0009P00BE0009P00C00009P00C20009P00C40009P00C600097F220F IOCH0037RH#P00C80009P00CA0009P00CC0009P00CE0009P00D00009P00D20009P00D400097F20BF H IOCH0038 R#P00D60009P00D80009P00DA0009P00DC0009P00DE0009P00E00009P00E800097F1FDF IOCH0039RR#P00F00009P00F80009P00FA0009P00FC0009P00FE0009P01000009P010200097F227F IOCH0040R@P01040009P01060009P010C0009P010E0009P01160009P01180009P011A000@97F27FF IOCH0041R#P011C0009P011E0009P01200009P01220009P01240009P01280009P012C00097F27EF IOCH0042RR#P012C0009P012E0009P01300009P01320009P01340009P01880009P018A00097F26FF IOCH0043R6P018C0009P018E0009P01900009P0000000AB0003B0005B0006B60007B00097F2F1F IOCH0044R(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF IOCH0045RR(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF IOCH0046R.B0002B0001BFE00A0000B0B0CB1015B4647B5BFFB435.&0B5152BFF00A000EBCA4C7F16AF IOCH0047&L BFFF4BEB20N003A000AB0006BCEA0N003E000ABC149BC0A9BFFF8B22207F283FIOCH0048LR#N0040000AB1609B0203B0010BC06CB0006B0A61B1731BD220N00020002B102E7F266F IOCH0049R*B9A60N00090005B0002B130BB9A60N000B0005B0*(002B1307B9A60N000600037F29EFIOCH0050(R#B0002B1609B0203B0010B1077B5A60N00020004B0005BAAA0N0004000ABFFFE7F22EF IOCH0051RR#B0203B000CB2220N003E000AB166CB0203B0010B9220N00070002B1367B06437F27AF IOCH0052R"B9220N000F0002B1363B0203B0016BC0"269B0004B0921B1805B0203B000CB09517F240FIOCH00532R#B1759B05C3B06A0C02CAB2220N003E000AB1655BC069B0004B0971B1723B9A607F1D2FIOCH0054RR#N000B0002B0002B1304B9A60N000C0002B0002B161BB04F5BD0E9B0005B0A737F23BF IOCH0055R B1703B4A60N003C000AB00<0EB0203B0006BC0A9B000CBCA45B000CB6A49B000C7F1C1FIOCH0056<R(B06A0C02CABC0E5BFFFCBC0A5BFFFAB2E82B0000B2E81C00E6B102EB9829B00027F0E0F IOCH0057RR#N00090002B1304B9829B0002N00070003B1626BD2E9B0005B0A7BB1722BC2E97F22FF IOCH0058RB000EB0AEBB1F"71EBC0A9B000CB0203B0002B2E82C00EAB0796BD0D2B0983B130E7F148F IOCH0059FR(B2E82C0118BC043BC0C2B04C2B2E84B0000BCA42B000CB0796BDCB3B0601B15FC7F140F IOCH0060RR#B1006B4A60N003C000AB000EB1002B06A0C02CAB04C3B2220N0040000AB162A7F22DF IOCH0061RB9P"220N00030002B1302B0460C0216B0203B0014BC0A9B000CB05C5B05EABFFFE7F1D0FIOCH0062PR#BCA45B000CB6A49B000CB9829B0002N00000004B1B06B0729B000CBAA83BFFFE7F18AFIOCH0063RP'B04C3B100DB06A0C02CAB0201C0008B9A71B0002B1341BD2D1B15FBBD2E9B00057F177F IOCH00P64R#B0A2BB183BB0729B0014B1038B2620N000E000AB1630B9A60N00060003B00027F250F IOCH0065RP"B161ABD020N00080007B8829B0008N0038000AB1605B8829B000AN0038000A7F280FIOCH0066PH#B1601B1002B0460C0124B8A60N00A20001B000EB16FABC0A9B0006BC0E9B000A7F1DDFH IOCH0067 R(BCA45B0006B06A0C02CAB1017BC167B0028B0A65B1713BC167B0026B1508B13077F1A0F IOCH0068RN!BC169B0006B1304BD020N00020002B0460C01CCB0203B0000B1005B88077F348F IOCH0069ND!N00120008B1202B0702B1014B2220N0040000AB1610BC0A0N002C0008BA0A27F2ADAFIOCH0070R#B0008B0222B0400B9220N00030002B1602B0222B0400B8802N00120008B1A027F2B3F IOCH0071RR(B0460C012EB04C2B064ABC05AB0221B0012BA043B2E84C023AB6043B0229BFFEE7F165F IOCH0072R<BC149BC242B0229B0012B9825B0014N00060003B1605BC009B0220B001<0BC9407F226FIOCH0073R(B0018BC001B0940B0580B0241B000FB0501B0461C028CBCCB5BCCB5BCCB5BCCB57F138F IOCH0074RR#BCCB5BCCB5BCCB5BCCB5B0600B15F6B04D9BB920N00010002B0019BC0A9BFFEE7F0FBFIO%%CH0075R2B1504B1303B4A60N0032000AB0004BC329BFFF4B2620N0002" C000AB1304B05A07F222F IOCH0076"P"N00800001B0460B0000B2220N0040000AB1604B05A0N007E0001B0460B00007F2DBFIOCH0077PR(B0460B0000BC30BB2E82C0204B2E81C02CEBAA83BFFFEB0796BCD72B0643B15FC7F104F IOCH0078RB045C7FEABF IOCH007940000ASSUME3>0208COMXSZ302C4FMPREP40000GTA  5000EIOCHKX7F250F IOCH0080>J302C8IODEVR3024AIOPDIE302D2IOPERR302B6IPCPR240000NFGTA 7F20FF IOCH0081JJ 40000NFPWOT40000PRCK40000RPBMAP40000RPPRCK40000RPSGCK7F259F IOCH0082J 40000SGCK 7FD6DF IOCH0083D:  IOCHKX  01/26/85 02:57:26  SDSMAC 1.2.0 83.138IOCH0084D 0179 DEF IOCHKX 0180 0000PSEG' 0181  * READ ONLY ACCESS TABLE '1 0182 0000 0B ACSSRO BYTE >0BWRITE ASCII 1, 0183 0001 0IONRCD P;X1X4-x5@L 000DCIONRCD M0192NFDATA0001M0072NFPTR 0002M0010NFER0000037F24DFIONR0001LN!M0010NFER100004M0010NFER200005M0010NFER300006M0044NFWORD00077F1FDFIONR0002NR#P00000001P00020001P00040001P00060001P00080001P000A0001P000C00017F2DAF IONR0003RN!P000E0001P00100001B000FP00120001P00160001P00180001P001800017F399F IONR0004NN!P001A0001P001C0001B0000P001E0001P00200001P00220001P002400017F399F IONR0005NR#P00260001P00280001P002A0001P002C0001P00340001P00360001P003800017F2BDF IONR0006RV@R#P003A0001P003C0001P003E0001P00400001P00420001P00440001P004600017F2B4F IONR0007RR#P00480001P004A0001P004C0001P004E0001P00500001P00520001P005400017F2ACF IONR0008RN#P00560001P00580001P005A0001P005C0001P005E0001P00600001P006200017F2A4F IONRN0009R#P00640001P00660001P00680001P006A0001P006C0001P006E0001P007000017F29CF IONR0010RR#P00720001P00740001P00760001P00780001P007A0001P007A0001P007C00017F298F IONR0011RD!P007E0001P00800001P00820001P00840001P00860001P00880001P008A00017F2DA1F IONR0012R#P008C0001P008E0001P00900001P00920001P00940001P00960001P009800017F299F IONR0013RN!P009A0001P009C0001P009E0001P00AC0001B0080P00AE0001P00B200017F327F IONR0014N>P00B60001P00BA0001P00BE0001P00C00001P00C20001P00C40001P00C60>0017F258F IONR0015R#P00C80001P00CA0001P00CC0001P00CE0001P00D00001P00D20001P00D400017F243F IONR0016RR#P00D60001P00D80001P00DA0001P00DC0001P00DE0001P00E00001P00E800017F235F IONR0017R4P00F00001P00F80001P00FA0001P00FC0001P00FE0001P01004 0001P010200017F25FF IONR0018 R#P01040001P01060001P010C0001P010E0001P01160001P01180001P011A00017F2B7F IONR0019RR#P011C0001P011E0001P01200001P01220001P01240001P01280001P012C00017F2B6F IONR0020R*P012C0001P012E0001P01300001P01320001P013**40001P01880001P018A00017F2A7F IONR0021*R#P018C0001P018E0001P01900001P00000002P00020002P00040002P000600027F2BEF IONR0022RR#P00080002P000A0002P000C0002P000E0002P00100002P00120002P001400027F2C1F IONR0023R P00160002P00180002P001A0002P00 41C0002P001E0002P00200002P002200027F2B9F IONR00244R#P00240002P00260002P00280002P002A0002P002C0002P002E0002P003000027F2B1F IONR0025RR#P00320002P00340002P00360002P00380002P003A0002P003C0002P003E00027F2A9F IONR0026R P00400002P00420002P0>0440002P00460002P00480002P004A0002P004C00027F2B7F IONR0027>R#P004E0002P00500002P00520002P00540002P00560002P00580002P005A00027F2AFF IONR0028RR#P005C0002P005E0002P00600002P00620002P00640002P00660002P006800027F2A7F IONR0029R P006A0002P H#006C0002P006E0002P00700002P00000003B0001B0203B0405B06077F238F IONR0030HR#B0809B0A0BB0C0DB0E0FP00000004B1011B1213B1415B1617B1819B1A1BB1C1D7F1D4FIONR0031RR#B1E1FP00000005B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP000000067F21DF IONR0032RR#B3031B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000007B0003B0005B00067F1FCFIONR0033RR(B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF007F1BAF IONR0034RN&BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B00107F22AF IONRN0035R(B0008B0004B0002B0001BFE00A0000B04CABD021B0002B0980B8EC0B1B12BC28A7F1B0F IONR0036RR#B130ABA280BD29AB1307B098ABA284B059AB1503BD920N00200007B0042BC29B7F1B3FIONR0037RD!B05CBBA2C0BA2C0B86CAB160CBD860N00020003B0001BD920N00020003B00427F2D07F IONR0038R#BF920N00220007B000EBF920N002C0007B000EBC2DBB045BB04CABC224B005E7F1D5F IONR0039RR#B1343BD268B0001B130FB9260N00020003B130CBC28AB130ABD268B0002B09897F1EBFIONR0040R:BA289BD29AB1304B098ABA284B05AAB0006B0648B04E4B005EBC244B: 02CAB03007F156F IONR0041R(B0002BC80AC00D6BC629B0062BCA48B0062BC229B0026B0958B181DB0229B00607F193F IONR0042RR#BC219B160BB0208N00420002BC618B1305B1001BC218B8818N00200007B16FC7F234F IONR0043R0BC609B0719BC229B0002BC260B0000B1609BC260N000600$ 002B1306B9A68BFFF17F1CDFIONR0044$:B0008B1B02B0720B0000B0300B0000BC207B045B7F759F IONR0045:J40000ASSUME50000BRCALL50006BRSALT50002BRSTAT50054ENDCOM7F224F IONR0046JF50080ENDRC25004CENDRCD5004EERSTAT300BENOSCHD300D2RESCHD7F1F6F IONRF0047D:  IONRCD  01/26/85 03:14:22  SDSMAC 1.2.0 83.138IONR0048DLDTRLK0008 C00430198 LDTTYP0004 C00160189 MAPFB2000600530159 MAXIO 0003+ 00520195  NFSRTN R00C4' 00440205 IOGVNT P ;iD4,x6L 00110IOGVNT M0010NFER000001M0010NFER300002M0072NFPTR 00037F285FIOGV0001LR#P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000002B30317F26BF IOGV0002RP"B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000003P00020003P000400037F271FIOGV0003PT@R#P00060003P00080003P000A0003P000C0003P000E0003P00100003P001200037F2B9F IOGV0004RR#P00140003P00160003P00180003P001A0003P001C0003P001E0003P002000037F2B1F IOGV0005RN#P00220003P00240003P00260003P00280003P002A0003P002C0003P002E00037F2A9F IOGVN0006R#P00300003P00320003P00340003P00360003P00380003P003A0003P003C00037F2B7F IOGV0007RR#P003E0003P00400003P00420003P00440003P00460003P00480003P004A00037F2AFF IOGV0008RD!P004C0003P004E0003P00500003P00520003P00540003P00560003P005800037F2DA7F IOGV0009R#P005A0003P005C0003P005E0003P00600003P00620003P00640003P006600037F298F IOGV0010RR(P00680003P006A0003P006C0003P006E0003P00700003A0000BC081BD062B00037F208F IOGV0011R:B9812N00000002B130BBC084B06A0C00F4C00DEBC0E2B0008BC023B0:028B0A507F1D4FIOGV0012R#B175FB100CBC0E0N00080003B1001BC0D3B1359BC023B0028B0A50B17FAB98C17F1B1FIOGV0013RR(B0073B16F7B020BC00D0B0300B0002BC023B0068B1323B04C2BC063B006CB88C17F1B2F IOGV0014R0B006EB1603B6051BC8C1B006CB88C1B006EB1601B6051B0$D091B150DB130CB02827F188F IOGV0015$R(B9F00B1B09B0282B8700B1A11B0282B9600B1A03B0282B9B00B160BB0600B13057F1C6F IOGV0016RR#B0581B10E9BD020N00020001B1002BD020N00010001BC2DBB045BB88C1B006A7F229F IOGV0017R&B1A0BBC023B006CB05A3B006CB6001B130FB&.D461BFFFFB0601B0580B10FAB06237F149F IOGV0018.R(B006ABC023B006AB6001B1304BDC61B0001B0600B10FBB0623B0068B04C0B046B7F1B0F IOGV0019RR#B0002C00E2B07D5BDA42B0002B026FB2000B1004BD020N00030001B024FBDFFF7F1CDFIOGV0020R B0300B000FB07D5BDA40B0001B80460B0000B0222B0036BC092B1306B9881B00037F1EEF IOGV00218>B16FBB04C0B046BB0002BD020N00010001BC2DBB045B7F61BF IOGV0022>J40000ASSUME500F4IOFLDT5003EIOKVNT50000IOLVNT300F2NFTRTN7F196F IOGV0023J 40000TRTN 7FD4DF IOGV0024 :  IOGVN :T  01/26/85 03:09:53  SDSMAC 1.2.0 83.138IOGV0025:00FA C46B  MOV @PDTWQ(R11),*R1 Q REQ TO HEAD OF WAITING Q G 00FC 005C ) 0202 00FE CAC1  MOV R1,@PDTWQ(R11) ) 0100 005C ! 0203 0102 109C JMP PEL010 !IOBM P;r.L4(x8L0017AIOBM  M0192NFDATA0001M0010NFER000002M0010NFER1000037F2D9FIOBM0001LR#M0010NFER200004M0010NFER300005M0044NFWORD0006P00000001P000200017F1BAF IOBM0002RR#P00040001P00060001P00080001P000A0001P000C0001P000E0001P001000017F2C6F IOBM0003RT@R#B000FP00120001P00160001P00180001P00180001P001A0001P001C0001B00007F287FIOBM0004RR#P001E0001P00200001P00220001P00240001P00260001P00280001P002A00017F2CBF IOBM0005RN#P002C0001P00340001P00360001P00380001P003A0001P003C0001P003E00017F2A0F IOBMN0006R#P00400001P00420001P00440001P00460001P00480001P004A0001P004C00017F2BEF IOBM0007RR#P004E0001P00500001P00520001P00540001P00560001P00580001P005A00017F2B6F IOBM0008RD!P005C0001P005E0001P00600001P00620001P00640001P00660001P006800017F2DAEF IOBM0009R#P006A0001P006C0001P006E0001P00700001P00720001P00740001P007600017F29FF IOBM0010RR#P00780001P007A0001P007A0001P007C0001P007E0001P00800001P008200017F28BF IOBM0011R:P00840001P00860001P00880001P008A0001P008C0001P008E0001P0:09000017F28EF IOBM0012R#P00920001P00940001P00960001P00980001P009A0001P009C0001P009E00017F286F IOBM0013RN!P00AC0001B0080P00AE0001P00B20001P00B60001P00BA0001P00BE00017F319F IOBM0014N4P00C00001P00C20001P00C40001P00C60001P00C80001P00CA4 0001P00CC00017F255F IOBM0015 R#P00CE0001P00D00001P00D20001P00D40001P00D60001P00D80001P00DA00017F24DF IOBM0016RR#P00DC0001P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA00017F235F IOBM0017R*P00FC0001P00FE0001P01000001P01020001P010**40001P01060001P010C00017F29AF IOBM0018*R#P010E0001P01160001P01180001P011A0001P011%%C0001P011E0001P012000017F2A8F IOBM0019RR#P01220001P01240001P01280001P012C0001P012C0001P012E0001P013000017F2B3F IOBM0020R P01320001P01340001P01880001P01 48A0001P018C0001P018E0001P019000017F295F IOBM00214R#P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000003B10117F26DF IOBM0022RR#B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000004B2021B2223B2425B26277F204FIOBM0023R B2829B2A2BB2C2DB2E2F>P00000005B3031B3233B3435B3637B3839B3A3BB3C3D7F1A7FIOBM0024>R#B3E3FP00000006B0003B0005B0006B0007B0009B000AB000CB000DB000EB000F7F22BFIOBM0025RR(B0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B1000B0800B04007F1BAF IOBM0026R B0200B0100 H#B0080B0040B0020B0010B0008B0004B0002B0001BFE00A0000BCE8B7F222F IOBM0027HR#BCE84BCE83BCE82BCE81BD020N00010002BC041B1331BD020N000E0002BA0607F1D4F IOBM0028RR#N00380006B0221B001FB0951B02CBB0300B0002BC80BC0124B8801N006A00017F255F IOBM0029RR#B1B79B04C3BC120N00620001BC084BC2C4B0783BC120B0004B8084B136FB07837F1CCFIOBM0030RR#B8053B1AF7BA801N006E0001BCA84BFFFCB0783BC0A0B0004B0783BC013B60017F181FIOBM0031RN&B135DB07C3BC4C1BA101B07C3BC4C0B07C3BC802B0004BC084B1053B1058BCE8B7F13AF IOBMN0032R#BCE84BCE83BCE82BCE81BC102B04C3B8802N00680001B1A65B0781BC053B13627F176FIOBM0033RP"BA101B8804N004C0001B1B5EB0200N00620001BC2E0N00880001B82C4B120F7F265FIOBM0034PF"B0200N00820001B82C2B140BB610BB07CABC4C4B07C1B64C4BC10BB06A0C00767F1AF9FIOBM0035R#BFFFFBC084B10E0B6801N006E0001B02C4B0300B0002BC804C0124BC110BC0047F1BCFIOBM0036RR(BC2C4B0783BC120B0004B8004B130DB8102B1BF8B1337BC002BA001B8100B1A067F1A1F IOBM0037R<B1B32B0783BA053B0783BC120B0004BC004BC102B07C3BC4C1B07C3BC8< 00B00047F18FF IOBM0038R(BC10BB0783BA113B8102B1B04B1A20B07CABA4C1BC080B07CABC802B0004B04C07F159F IOBM0039RR(B0300B0000B022ABFFF8BC2CABC13BBC0FBBC0BBBC07BB064ABC2DABD000B13077F0D9F IOBM0040R2BC6DBB1304BC2DBB058BB1304B045BBD000B046BB0002B042"20B0000B0029B04207F1A2F IOBM0041"R(C0150B0024B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F21EF IOBM0042R,B3333B3333B3333B3333B33337FA83F IOBM0043,J5015AHPGRUB50000IOGUB 50076IORUB 30156NFCRSH40000SCALL 7F281F IOBM0044JF1NB:  IOBM  01/26/85 02:53:21  SDSMAC 1.2.0 83.138IOBM0045B`*ª^[CA/C @u 8AC /C  @NB qMIODTMR P;;4,x:L 001D4IODTMR M0192NFDATA0001M0010NFER000002M0010NFER4000037F26EFIODT0001LR#M0010NFER500004M0072NFPTR 0005M0044NFWORD0006P00000001P000200017F193F IODT0002RR#P00040001P00060001P00080001P000A0001P000C0001P000E0001P001000017F2C6F IODT0003RT@R#B000FP00120001P00160001P00180001P00180001P001A0001P001C0001B00007F287FIODT0004RR#P001E0001P00200001P00220001P00240001P00260001P00280001P002A00017F2CBF IODT0005RN#P002C0001P00340001P00360001P00380001P003A0001P003C0001P003E00017F2A0F IODTN0006R#P00400001P00420001P00440001P00460001P00480001P004A0001P004C00017F2BEF IODT0007RR#P004E0001P00500001P00520001P00540001P00560001P00580001P005A00017F2B6F IODT0008RD!P005C0001P005E0001P00600001P00620001P00640001P00660001P006800017F2DAEF IODT0009R#P006A0001P006C0001P006E0001P00700001P00720001P00740001P007600017F29FF IODT0010RR#P00780001P007A0001P007A0001P007C0001P007E0001P00800001P008200017F28BF IODT0011R:P00840001P00860001P00880001P008A0001P008C0001P008E0001P0:09000017F28EF IODT0012R#P00920001P00940001P00960001P00980001P009A0001P009C0001P009E00017F286F IODT0013RN!P00AC0001B0080P00AE0001P00B20001P00B60001P00BA0001P00BE00017F319F IODT0014N4P00C00001P00C20001P00C40001P00C60001P00C80001P00CA4 0001P00CC00017F255F IODT0015 R#P00CE0001P00D00001P00D20001P00D40001P00D60001P00D80001P00DA00017F24DF IODT0016RR#P00DC0001P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA00017F235F IODT0017R*P00FC0001P00FE0001P01000001P01020001P010**40001P01060001P010C00017F29AF IODT0018*R#P010E0001P01160001P01180001P011A0001P011C0001P011E0001P012000017F2A8F IODT0019RR#P01220001P01240001P01280001P012C0001P012C0001P012E0001P013000017F2B3F IODT0020R P01320001P01340001P01880001P01 48A0001P018C0001P018E0001P019000017F295F IODT00214R#P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000003B40417F267F IODT0022RR#B4243B4445B4647B4849B4A4BB4C4DB4E4FP00000004B5051B5253B5455B56577F1C2FIODT0023R B5859B5A5BB5C5DB5E5F>P00000005P00020005P00040005P00060005P000800057F1D6F IODT0024>R#P000A0005P000C0005P000E0005P00100005P00120005P00140005P001600057F2ADF IODT0025RR#P00180005P001A0005P001C0005P001E0005P00200005P00220005P002400057F2A5F IODT0026R P00260005P H00280005P002A0005P002C0005P002E0005P00300005P003200057F29DF IODT0027HR#P00340005P00360005P00380005P003A0005P003C0005P003E0005P004000057F295F IODT0028RR#P00420005P00440005P00460005P00480005P004A0005P004C0005P004E00057F28DF IODT0029RR#P00500005P00520005P00540005P00560005P00580005P005A0005P005C00057F29BF IODT0030RR#P005E0005P00600005P00620005P00640005P00660005P00680005P006A00057F293F IODT0031RN"P006C0005P006E0005P00700005P00000006B0003B0005B0006B0007B00097F311F IODT00N32R(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF IODT0033RR(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF IODT0034RF!B0002B0001BFE00A0000BFFFFBCE8BBC060N00080005BC0E1B0026B24E07F2AEF F IODT0035 R#N00240006B1626BC803C0018B0300B0000B0243B0400B1306B4843B0026B06A07F256FIODT0036RR(B0000BFFFFB1019BC0A1B005EB1316BC0E1B0028B0A33B1712B6845B0058B150F7F16DF IODT0037R@BD8A0N00060002B0001BD0E1B0042B1606BD860N00060002B0042BF8607F35@6FIODT0038R#N002C0006B000EB06A0B0000BFFFFB0300B000FBC051B16D1B6805C01CEB11027F1B7FIODT0039RR#B0460C01CABC820N010C0001C01CEB020CB1FC0B0206BFB00B0204B8000BC1E07F1B3FIODT0040R<C0000B21C4B1302B0460C01BAB0300B0001BC1D6BC226B0002B3401B04< C0B30007F1ECF IODT0041R#B0300B000FB0A11B1704B4804C0000B0460C01BAB21E0N00000006B1602B04607F23CFIODT0042RR#C01BAB21E0N00400006B1636B25E0N003A0006B1333B0201B001AB04C2B2E847F233F IODT0043R2C01CABC0C2BD8A0N00060002B0002B0223B0012BC2C8BD4E2" 0N00010003B0A2B7F206F IODT0044"P"B1702BD4E0N00020003B0583BD4E0N00070003B0ACBB1802BD4E0N000200037F25BFIODT0045PR#B0583BD4E0N00070003B0A1BB1802BD4E0N00020003B0583B0547BDCC7B05477F202F IODT0046R*BDCE0C01D2BD4E0N00090004B0A1BB1802BD4E0N**000E0003B0583BC4C6B06A07F1C2F IODT0047*R#B0000B0000B0267B0040B25E0N003C0006B1345B0201B001AB04C2B2E84C01CA7F216FIODT0048RR#BC0C2BD8A0N00070002B0002B0223B0012BC2C8B0A2BB092BBC00BB092BB17017F1BEFIODT0049R B0920BD8C0B0001B0AABB093BBD4CB 4B05C3BD4E0N00090004B25E0N003A00067F1C6F IODT00504R#B1302BD4E0N000E0003B0583B0547BDCC7B0547BD4E0C01D2BC2C7B0AEBB096B7F15CFIODT0051RR(BD8CBB0001B1304B028BB0100B1304B04C8B09E8BD4E8C01D0BC8C6B0002B06A07F163F IODT0052R C0122B0000B0208B0100>B25E0N00000006B1305B25E0N00340006B1602B02087F2A3F IODT0053>R(B0140BC588B0248B0040BC588B0914B0226B0004B0286BFB40B1402B0460C00827F1D4F IODT0054R,B04C0B2EC0B04B0B0032B64967FA4AF IODT0055,2 40000ASSUME40000GTA  30026IODREE50002IODTMR30052AIODTO 7F2B6F IODT0056>3019ALGQBLK40000NFGTA 40000SPOP 40000SPUSH 7F55DF IODT0057>D:  IODTMR  01/26/85 03:06:28  SDSMAC 1.2.0 83.138IODT0058D2 = DEFAULT(N)' .SYN $$S = "&SOURCE ACCESS NAME" , ' $XMA$O = "&OBIOBMGT P ;' 4)(x<@P"000A6IOBMGT M0192NFDATA0001M0072NFPTR 0002P00000001P000200017F212F IOBM0001PR#P00040001P00060001P00080001P000A0001P000C0001P000E0001P001000017F2C6F IOBM0002RP#B000FP00120001P00160001P00180001P00180001P001A0001P001C0001B00007F287FIOBM00P03R#P001E0001P00200001P00220001P00240001P00260001P00280001P002A00017F2CBF IOBM0004RR#P002C0001P00340001P00360001P00380001P003A0001P003C0001P003E00017F2A0F IOBM0005RF"P00400001P00420001P00440001P00460001P00480001P004A0001P004C00017F2BEFF IOBM0006R#P004E0001P00500001P00520001P00540001P00560001P00580001P005A00017F2B6F IOBM0007RR#P005C0001P005E0001P00600001P00620001P00640001P00660001P006800017F2AEF IOBM0008R<P006A0001P006C0001P006E0001P00700001P00720001P00740001P007<600017F29FF IOBM0009R#P00780001P007A0001P007A0001P007C0001P007E0001P00800001P008200017F28BF IOBM0010RR#P00840001P00860001P00880001P008A0001P008C0001P008E0001P009000017F28EF IOBM0011R2P00920001P00940001P00960001P00980001P009A0001P002" 9C0001P009E00017F286F IOBM0012"N!P00AC0001B0080P00AE0001P00B20001P00B60001P00BA0001P00BE00017F319F IOBM0013NR#P00C00001P00C20001P00C40001P00C60001P00C80001P00CA0001P00CC00017F255F IOBM0014R,P00CE0001P00D00001P00D20001P00D40001P00D60,(001P00D80001P00DA00017F24DF IOBM0015(R#P00DC0001P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA00017F235F IOBM0016RR#P00FC0001P00FE0001P01000001P01020001P01040001P01060001P010C00017F29AF IOBM0017R"P010E0001P01160001P01180001P011A"20001P011C0001P011E0001P012000017F2A8F IOBM00182R#P01220001P01240001P01280001P012C0001P012C0001P012E0001P013000017F2B3%%F IOBM0019RR#P01320001P01340001P01880001P018A0001P018C0001P018E0001P019000017F295F IOBM0020R P00000002P00020002P000<40002P00060002P00080002P000A0002P000C00027F2D3F IOBM0021<R#P000E0002P00100002P00120002P00140002P00160002P00180002P001A00027F2CBF IOBM0022RR#P001C0002P001E0002P00200002P00220002P00240002P00260002P002800027F2C3F IOBM0023RP002A0002P00F2C0002P002E0002P00300002P00320002P00340002P003600027F2B4F IOBM0024FR#P00380002P003A0002P003C0002P003E0002P00400002P00420002P004400027F2ACF IOBM0025RR#P00460002P00480002P004A0002P004C0002P004E0002P00500002P005200027F2A4F IOBM0026RP0P"0540002P00560002P00580002P005A0002P005C0002P005E0002P006000027F29CF IOBM0027PR#P00620002P00640002P00660002P00680002P006A0002P006C0002P006E00027F294F IOBM0028RP#P00700002A0000B02C0B0300B0002BC800C004EBC00AB020AB0000BCE8BBCE827F1E1FIOBM00P29R(BCE81BC040B06A0B0000B0000B100FB02C0B0300B0002BC800C004EBC00AB020A7F1B3F IOBM0030RR(C000EBCE8BBCE82BCE81BC080B06A0B0000B0000BC682B020AC002EBC2FABC0BA7F102F IOBM0031RF"BC07ABC29AB0300B0000B045BBC021BFFF8B0580B130CBC024B0016B6021BFFF27F1F46F IOBM0032R#BA020N00980001B0A50B6860N00120002B0006BA840B0006B045BBC021BFFF87F223F IOBM0033RR#B0580B1313BC021B0006B0950BA021BFFF2B6020N00980001BC900B0016B48607F1FFFIOBM0034R<C00A4B0006BA860N00120002B0006BC004B0220B0010B0320B045BBFFE<07F324F IOBM0035J30042HPGRUB50000IOGBLK3001AIOGUB 50074IOMPIN50052IOMPOT7F220F IOBM0036J(50020IORBLK3003AIORUB 7FA67FIOBM0037(D:  IOBMGT  01/26/85 02:54:27  SDSMAC 1.2.0 83.138IOBM0038D4B07C1B64C4BC10BB06A0C00767F1AFIOPDSQ P;l4. x>L 0002AIOPDSQ M0010$DATA 0000M0072NFPTR 0001M0044NFWORD00027F262FIOPD0001LR#P00000001P00020001P00040001P00060001P00080001P000A0001P000C00017F2DAF IOPD0002RR#P000E0001P00100001P00120001P00140001P00160001P00180001P001A00017F2D2F IOPD0003RT@R#P001C0001P001E0001P00200001P00220001P00240001P00260001P002800017F2CAF IOPD0004RR#P002A0001P002C0001P002E0001P00300001P00320001P00340001P003600017F2BBF IOPD0005RN#P00380001P003A0001P003C0001P003E0001P00400001P00420001P004400017F2B3F IOPDN0006R#P00460001P00480001P004A0001P004C0001P004E0001P00500001P005200017F2ABF IOPD0007RR#P00540001P00560001P00580001P005A0001P005C0001P005E0001P006000017F2A3F IOPD0008RD!P00620001P00640001P00660001P00680001P006A0001P006C0001P006E00017F2D9BF IOPD0009R#P00700001P00000002B0003B0005B0006B0007B0009B000AB000CB000DB000E7F2A2F IOPD0010RR(B000FB0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B1000B08007F1A8F IOPD0011R:B0400B0200B0100B0080B0040B0020B0010B0008B0004B0002B0001B: FE00S00007F24EF IOPD0012R#TFFF0C0000S0004A0000B0300B0002BC29DB1310B022AB0064B881AN002000027F1FBFIOPD0013RR#B160BB04DAB020BN00660001BC32BB0002B1302BC70AB1001BC6CABCACAB00027F19CFIOPD0014RB03807FEBCF IOPD0015 40000ASSUMEW0000IOPDSQ00007F960FIOPD0016D:  IOPDSQ  01/26/85 03:15:55  SDSMAC 1.2.0 83.138IOPD0017DED190 !? 0364 01DC C043 MOV R3,R1 YES, ALLLRTOES 0014  *0 0015  * ENTRY:  SEE INDIVIOKB P ;" 4-%x?@L001A8IOKB  M0010NFER000001M0072NFPTR 0002M0044NFWORD00037F296FIOKB0001LL P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP000000027F374FIOKB0002LR#P00020002P00040002P00060002P00080002P000A0002P000C0002P000E00027F2BEF IOKB0003RP0P"0100002P00120002P00140002P00160002P00180002P001A0002P001C00027F2CCF IOKB0004PR#P001E0002P00200002P00220002P00240002P00260002P00280002P002A00027F2C4F IOKB0005RP#P002C0002P002E0002P00300002P00320002P00340002P00360002P003800027F2BCF IOKB00P06R#P003A0002P003C0002P003E0002P00400002P00420002P00440002P004600027F2ADF IOKB0007RR#P00480002P004A0002P004C0002P004E0002P00500002P00520002P005400027F2A5F IOKB0008RF"P00560002P00580002P005A0002P005C0002P005E0002P00600002P006200027F29DFF IOKB0009R#P00640002P00660002P00680002P006A0002P006C0002P006E0002P007000027F295F IOKB0010RR#P00000003B0003B0005B0006B0007B0009B000AB000CB000DB000EB000FB00127F25CFIOKB0011R<B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B1000B0800B04< 00B02007F1BBF IOKB0012R(B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE00A0000B21A0C000C7F23EF IOKB0013RR(B1305B96CAB1627B0266B0400B1021B0246BFBFFB0266B0200B9ACAB0001B131A7F188F IOKB0014R2B0246BFDFFBC240B0229B000ABD659B1613BDE4ABC280B022"2AB0020B02C9B03007F150F IOKB0015"R#B0002BC809C0050B04DAB0209N00400002B1001BC259BC659B16FDBC64AB03007F1D1FIOKB0016RR(B0000BC2EBB0004B045BB046BB0006BC145B130BBD94AB0003B05CBBC1C8BC2057F157F IOKB0017R(BC155BC240B0460B0000B026AB8000B8102B1A(,01B6094B8501B1304BDC8AB05817F1B8F IOKB0018,R(B046BB0002BC2DBB045BB0624B0068BC024B0068B1502BC19BB0380BC024B006C7F186F IOKB0019RR(B8900B006EB1A01B6010B04C9BD270BC900B006CBC249B1525B1324B0289B9F007F18CF IOKB0020RB1B21B0289B8700B1A06B0289B96600B1A1BB0289B9B00B13E0BC024B005EB02207F19AF IOKB00216R#BFFF0BC010B0A20B17D9BC024B005EB0220B0004BE420N00280003BC010B09207F1D5FIOKB0022RR(B1803B0624B006CB1002B0624B0068BC2EBB0002B045BB0624B0068B046BB00047F1CEF IOKB0023R B020AB0042B42A1B00@04B1642BC024B0068B133FB04C9BC2A4B006CB890AB006E7F189F IOKB0024@R(B1603B629ABC90AB006CB890AB006EB1601B629ABD27AB150DB130CB0289B9F007F145F IOKB0025RR(B1B09B0289B8700B1A09B0289B9600B1A03B0289B9B00B1603B0600B16EBB10207F1B0F IOKB0026R B060ABD8 J$49B0011B890AB006AB1A0BBC264B006CB05A4B006CB624AB130FBD6AA7F132F IOKB0027JR(BFFFFB060AB0589B10FAB0624B006ABC264B006AB624AB1304BDEAAB0001B06097F129F IOKB0028RR#B10FBB0624B0068BE860N00280003B0004B045BB0249B7F00BC2BBB1305B92897F1C9FIOKB0029RT V@,B16FCB06CAB087ABA2CAB045B7F9F3F IOKB0030,J50194ASCCHK50198ASCCK25005CCMODE 30070ENDRC250090GETC 7F2EDF IOKB0031J>50000IOFCDT50104IOGEC 50076PUTCBF50072PUTEBF7F510F IOKB0032>::  IOKB  01/26/85 03:11:21  SDSMAC 1.2.0 83.138: IOKB0033 L = "@$XMA$OPL,TUNLST"&  .ENDIF  .ENDIF  .IF "&MUNLST",EQ,Y & .SYN $XMA$OPL = "@$XMA$OPL,MUNLST"& .ELSE' .IF "MUNLST",IS,ELEMENT(@@$XMA$OP) '& .SYN $XMA$OPL = "@$XMA$OPL,MUNLST"&  .ENDIF IODEVR P;Z*4+kxA@L 0045EIODEVR M0192NFDATA0001M0010NFER000002M0010NFER1000037F272FIODE0001LN!M0010NFER200004M0010NFER500005M0010NFER700006M0010NFER8000077F239FIODE0002NL M0044NFWORD0008M0072NFPTR 0009P00000001P00020001P000400017F31AF IODE0003LP00060H001P00080001P000A0001P000C0001P000E0001P00100001B000F7F383F IODE0004HN!P00120001P00160001P00180001P00180001P001A0001P001C0001B00007F39FF IODE0005NR#P001E0001P00200001P00220001P00240001P00260001P00280001P002A00017F2CBF IODE0006RP002N!C0001P00340001P00360001P00380001P003A0001P003C0001P003E00017F2A0F IODE0007NR#P00400001P00420001P00440001P00460001P00480001P004A0001P004C00017F2BEF IODE0008RR#P004E0001P00500001P00520001P00540001P00560001P00580001P005A00017F2B6F IODE0009R@R#P005C0001P005E0001P00600001P00620001P00640001P00660001P006800017F2AEF IODE0010RR#P006A0001P006C0001P006E0001P00700001P00720001P00740001P007600017F29FF IODE0011RN#P00780001P007A0001P007A0001P007C0001P007E0001P00800001P008200017F28BF IODEN0012R#P00840001P00860001P00880001P008A0001P008C0001P008E0001P009000017F28EF IODE0013RR#P00920001P00940001P00960001P00980001P009A0001P009C0001P009E00017F286F IODE0014RD!P00AC0001B0080P00AE0001P00B20001P00B60001P00BA0001P00BE00017F319F D IODE0015 R#P00C00001P00C20001P00C40001P00C60001P00C80001P00CA0001P00CC00017F255F IODE0016RR#P00CE0001P00D00001P00D20001P00D40001P00D60001P00D80001P00DA00017F24DF IODE0017R@P00DC0001P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA000@17F235F IODE0018R#P00FC0001P00FE0001P01000001P01020001P01040001P01060001P010C00017F29AF IODE0019RR#P010E0001P01160001P01180001P011A0001P011C0001P011E0001P012000017F2A8F IODE0020R6P01220001P01240001P01280001P012C0001P012C0001P012E006 01P013000017F2B3F IODE0021R#P01320001P01340001P01880001P018A0001P018C0001P018E0001P019000017F295F IODE0022RR#P00000002B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000003B10117F26DF IODE0023R,B1213B1415B1617B1819B1A1BB1C1DB1E1FP000000,(04B2021B2223B2425B26277F204FIODE0024(R#B2829B2A2BB2C2DB2E2FP00000005B5051B5253B5455B5657B5859B5A5BB5C5D7F18BFIODE0025RR#B5E5FP00000006B7071B7273B7475B7677B7879B7A7BB7C7DB7E7FP000000077F1C3F IODE0026R"B8081B8283B8485B8687B8889B8A8BB8"2C8DB8E8FP00000008B0003B0005B00067F1ABFIODE00272R(B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF007F1BAF IODE0028RR(BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B00107F22AF IODE0029R B0008B0004B0002B0001BF:E00P00000009P00020009P00040009P000600097F315F IODE0030:R#P00080009P000A0009P000C0009P000E0009P00100009P00120009P001400097F290F IODE0031RR#P00160009P00180009P001A0009P001C0009P001E0009P00200009P002200097F288F IODE0032RP00240009P0026D0009P00280009P002A00%%09P002C0009P002E0009P003000097F280F IODE0033DR#P00320009P00340009P00360009P00380009P003A0009P003C0009P003E00097F278F IODE0034RR#P00400009P00420009P00440009P00460009P00480009P004A0009P004C00097F286F IODE0035RP004N!E0009P00500009P00520009P00540009P00560009P00580009P005A00097F27EF IODE0036NR#P005C0009P005E0009P00600009P00620009P00640009P00660009P006800097F276F IODE0037RP"P006A0009P006C0009P006E0009P00700009A0000BC067B0026B0A21B17087F2BEF IODE0038PR@R#BEA60N00220008BFFF0BDA67B0025BFFF1BC1E7B002ABCA6CB000EBFFF6B02007F110FIODE0039RR(C003ABC070B1308B9A41B0002B16FBB0241B00FFB0A11B0461C006CB0460C03767F19EF IODE0040RN&B0972B0BCEB0A72B0CCEB0065B0365B0582B0E25B0F28B10CEB1172B1260B59017F15EF IODEN0041R(B5B09B0818B15CEB1634B1772B1844B2072B2172B22CEB23CEB0000B0000B00007F1B0F IODE0042RR#BC067B0028B0A51B1704BD020N00020002B0460C03E8B5A60N00000005B00027F266F IODE0043RD!BFA60N00260008BFFF0BC049BA069BFFECB0221BFFE6B04F1B04F1B04D1B10BE7FD10FFIODE0044R(BC067B0028B0A61B1754BC0E9B000AB1351BC0A9B0006B2E82C03E8B0460C03127F18AF IODE0045RR#B0203B0008B1002B0203B000CB9220N00070002B1643BC0A9B0008B1656B06437F245FIODE0046R:BCA43B0008B1052BD2E9B000DB0A1BB1738BC0A9B0006BC0E2B0008B: C0A2B000A7F159F IODE0047R(B2E82C03E8B2E81C03E8B0460C0312BC0A9B0006BC0E9B0008B2E82B0000B130F7F174F IODE0048RR#B9220N00070002B1610BC2E9B0004B093BB170CBC044B0221B0050BD1A4B00187F1FFFIODE0049R0B0986BA046B1002B2E81C03E8B0460C0312B0460C03E8B0 0203B0004B92207F2E9FIODE0050 N!N00070002B1321BC067B0028B0A51B1707BD069B0005B0A81B1703BEB207F311F IODE0051NR#N00380008B0006B0460C0376BC067B0028B0A51B1705BC060N00580001B0A917F257F IODE0052R.BD901B001ABC06CB0006B0951B1703BEA60N00240008.& BFFF0B04E9B000ABC0E97F189FIODE0053&R(B0008BC0A9B0006BC167B0054B130CBC069BFFF0B0A31B1703BCA45B0008B10057F174F IODE0054RR#B80C5B1403BC0C5BCA43B0008B2E82B0000B1311B9220N00070002B160CBC2E97F1D5FIODE0055R$B0004B093BB1708BC044B0221B0050BD1A$04B0018B0986BA046B1005B0460C03E87F1C2F IODE00560R(BC181B2E81C03E8BC027B0026B0A30B1802B0460C0312B0201B0010B8043B12017F1E6F IODE0057RR#BC043B0221B0000BC301B06A0B0000C03E8BCA42BFFF2B9A60N00070003B00027F1DDFIODE0058R B1604BCE86BC1A9B0008B107:1BCA60N00380008B0006B0460C0376B04E9B00087F1DDFIODE0059:R(BC0E9B000ABC0A9B0006B2E82C03E8BD029B0005B0A20B170BBC02CB0006B09507F16BF IODE0060RR#B1703BEA60N00240008BFFF0BC027B0026B0A30B1804BC027B0026B0A40B176A7F1C1FIODE0061RBCE81BC029B000D!4B0910B171FBA083BC129B000AB131BB0602B0284B0003B1A0F7F18FF IODE0062DR#B07D6B98A0N000F0006BFFFFB160AB07D6B98A0N00000004BFFFEB160BB06427F189F IODE0063RR#B6120N00000008B1307B10EDB07D6B94A0N00000004B1602B0604B16E7BCA447F230F IODE0064RB000N!AB04C4B9829B0002N000B0002B1304B9829B0002N000C0002B1614BD0297F257F IODE0065NR#B0005B0A20B1710BAA49B000CBC129B000CBC520N00380008BAD20N001200097F226F IODE0066RR(B8527B0054B1402BC527B0054B80D4B1201BC0D4B0201B0010B8043B1201BC0437F1DFF IODE0067R@R(BC301B0221C01E0B0221C02CEB06A0C01E6C03E8BCA42BFFF2BC183BC142B064A7F135F IODE0068RR(BC05ABC0A9B0006BC129BFFFAB06A0C03FEB0000BC081B04C1B04C4BC207BC1C67F103F IODE0069RN#B1305BC1A0N00380008B06A0B0000BFFFFBCA46B0006BC1C8B1032B06A0C03FE7F186FIODEN0070R#BFFFFB102EBC120N00040009BB920N00010002B0019B07A4B0050BC26DB00027F20CF IODE0071RR#BDA60N00000007B0004BC0C9B0223BFFF0BC053B04F3BC093B04F3BC1D3B04D37F17DFIODE0072RD!B0643B04C0BC041B1305B60A0N00120009BC061B0010B0780BC4E2B0010B13287FD216FIODE0073L B0613B8813N004C0001B1A05B07E9BFFF0BB820N00010002B0009BAA607F319FIODE0074LR#N00360008B0006B101BB04C0BC069BFFF0B0A31B1716BC049BA069BFFECB02217F182FIODE0075R@BFFE6BC0A9B0006B05E9B0006BA302BCC42BCC42BC44CB9829B0002N000B00@027F174FIODE0076R(B1605BC069BFFF2B0780BCA52B000ABC087B0222B005CBC069BFFFCBD021B00067F11EF IODE0077RR(BC042B0580BC092B1305BC2E2BFFFEB9AC0B0006B14F7BC449B0651BCA42BFFFE7F0D9F IODE0078R6B1303B0580BC092B16FDBC047B06A0B0000BFFFFB0460B0000B56 A60N002600087F1BFFIODE0079R(BFFF0BDA40B0001BC049B06A0B0000BFFFFB0460B0000BC0C4B0503B0223BFFB07F133F IODE0080RR(BA0C1B1307BC0E1BFFFCB0243BFFE0BA083B0503B0953BA0E1B0002BC043B13037F138F IODE0081R,B0601B0222B0020BC0C2B0952BA081BC03BB1315B9,(829B0002N00060003B16057F21FFIODE0082(R#BC229B0006BCA03B000AB1002BCA43B0006BCA41BFFF2B1307B8801N004C00017F1B2FIODE0083R:B1A04B07C0BB820N00010002B0009B04C0B045B7F765F IODE0084::40000ASSUME302D2COMBSZ5031AIODDIO50000IODEVR302D6IOGUB 7:F209F IODE0085J303E0IOPEL 303E6IORTN 503FEIOUTO 303F6NFEOBR303FCNFTRTN7F1CCF IODE0086JJ 30306NFXCPY40000PRCK40000RPPRCK40000RPSGCK40000SGCK 7F2B1F IODE0087J 40000TRTN 7FD4DF IODE0088&:  IODEVR  01/26/85 03:02:39 & SDSMAC 1.2.0 83.138IODE0089 A0001P003C0001P003E00017F2A0F IODE0007NR#P00400001P00420001P00440001P00460001P00480001P004A0001P004C00017F2BEF IODE0008RR#P004E0001P00500001P00520001P00540001P00560001P00580001P005A00017F2B6F IODE0009RIOTBID P;* 4/xC@L 000E2IOTBID M0192NFDATA0001M0072NFPTR 0002M0010NFER5000037F25CFIOTB0001LR#P00000001P00020001P00040001P00060001P00080001P000A0001P000C00017F2DAF IOTB0002RN!P000E0001P00100001B000FP00120001P00160001P00180001P001800017F399F IOTB0003NN!P001A0001P001C0001B0000P001E0001P00200001P00220001P002400017F399F IOTB0004NR#P00260001P00280001P002A0001P002C0001P00340001P00360001P003800017F2BDF IOTB0005RR#P003A0001P003C0001P003E0001P00400001P00420001P00440001P004600017F2B4F IOTB0006R@R#P00480001P004A0001P004C0001P004E0001P00500001P00520001P005400017F2ACF IOTB0007RR#P00560001P00580001P005A0001P005C0001P005E0001P00600001P006200017F2A4F IOTB0008RN#P00640001P00660001P00680001P006A0001P006C0001P006E0001P007000017F29CF IOTBN0009R#P00720001P00740001P00760001P00780001P007A0001P007A0001P007C00017F298F IOTB0010RR#P007E0001P00800001P00820001P00840001P00860001P00880001P008A00017F2A1F IOTB0011RD!P008C0001P008E0001P00900001P00920001P00940001P00960001P009800017F2D99F IOTB0012N!P009A0001P009C0001P009E0001P00AC0001B0080P00AE0001P00B200017F327F IOTB0013NR#P00B60001P00BA0001P00BE0001P00C00001P00C20001P00C40001P00C600017F258F IOTB0014R>P00C80001P00CA0001P00CC0001P00CE0001P00D00001P00D20001P00D40>0017F243F IOTB0015R#P00D60001P00D80001P00DA0001P00DC0001P00DE0001P00E00001P00E800017F235F IOTB0016RR#P00F00001P00F80001P00FA0001P00FC0001P00FE0001P01000001P010200017F25FF IOTB0017R4P01040001P01060001P010C0001P010E0001P01160001P01184 0001P011A00017F2B7F IOTB0018 R#P011C0001P011E0001P01200001P01220001P01240001P01280001P012C00017F2B6F IOTB0019RR#P012C0001P012E0001P01300001P01320001P01340001P01880001P018A00017F2A7F IOTB0020R*P018C0001P018E0001P01900001P00000002P000**20002P00040002P000600027F2BEF IOTB0021*R#P00080002P000A0002P000C0002P000E0002P00100002P00120002P001400027F2C1F IOTB0022RR#P00160002P00180002P001A0002P001C0002P001E0002P00200002P002200027F2B9F IOTB0023R P00240002P00260002P00280002P00 42A0002P002C0002P002E0002P003000027F2B1F IOTB00244R#P00320002P00340002P00360002P00380002P003A0002P003C0002P003E00027F2A9F IOTB0025RR#P00400002P00420002P00440002P00460002P00480002P004A0002P004C00027F2B7F IOTB0026R P004E0002P00500002P0>0520002P00540002P00560002P00580002P005A00027F2AFF IOTB0027>R#P005C0002P005E0002P00600002P00620002P00640002P00660002P006800027F2A7F IOTB0028RR(P006A0002P006C0002P006E0002P00700002P00000003B5051B5253B5455B56577F210F IOTB0029R B5859B5A5B H#B5C5DB5E5FA0000C0006C0068C00DCA0006A0026B3333B3333B33337F194F IOTB0030HR(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F IOTB0031RR(B3333B3333B3333B3333B0400B0000BC700B0000B0000B0000B0000B0000B00007F261F IOTB0032RR#B0000B0000B0000B0000B020AC0026B0720N011E0001B0209C0050B0300B00027F292FIOTB0033RR#BC1E0N00400002B1329BC817N00400002B04D7B0227BFFE0BDA67B000AB00057F201F IOTB0034RN&BCA67B0006B0012BD0E7B000BB1303B79E7B000AB000AB0300B000FB2FD9BD0E97F15EF IOTBN0035R#B0001B13DEB90E0N00030003B13DBB05A0B0000BC80140000SCHDWPE000000027F1BBFIOTB0036RR#B04E0E00000004BC803E00000006B06A0B0000B300EB0000B06A0B0000B10CC7F27FF IOTB0037RDB0300B000FB04E0N011E0001B2FE0C004EB0420B0000B00B27F540F IOTB0038DJ 40000ENAB 40000INHB300C4NFCAL0300DENFCRSH300CCNFENAB7F2E9F IOTB0039J(40000NFQERR300B4NOSCHD7FA3FFIOTB0040(D:  IOTBID  01/26/85 03:22:29  SDSMAC 1.2.0 83.138IOTB0041DOPN410 LDS@RPBMAP  R11 " MOV*R2,R2IOABRT P;84(xD@L 00354IOABRT M0010NFER000001M0010NFER100002M0072NFPTR 00037F293FIOAB0001LR#M0044NFWORD0004P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F19DFIOAB0002RL P00000002B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP000000037F362FIOAB0003LP0P"0020003P00040003P00060003P00080003P000A0003P000C0003P000E00037F2B7F IOAB0004PR#P00100003P00120003P00140003P00160003P00180003P001A0003P001C00037F2C5F IOAB0005RP#P001E0003P00200003P00220003P00240003P00260003P00280003P002A00037F2BDF IOAB00P06R#P002C0003P002E0003P00300003P00320003P00340003P00%%360003P003800037F2B5F IOAB0007RR#P003A0003P003C0003P003E0003P00400003P00420003P00440003P004600037F2A6F IOAB0008RF"P00480003P004A0003P004C0003P004E0003P00500003P00520003P005400037F29EFF IOAB0009R#P00560003P00580003P005A0003P005C0003P005E0003P00600003P006200037F296F IOAB0010RR#P00640003P00660003P00680003P006A0003P006C0003P006E0003P007000037F28EF IOAB0011R<P00000004B0003B0005B0006B0007B0009B000AB000CB000DB000EB000<FB00127F25BFIOAB0012R(B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B1000B0800B0400B02007F1BBF IOAB0013RR(B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE00A0000B1000C00127F261F IOAB0014R2B0000B0008B0800B0000B0003B1213B40FFB04C0B07D5BDA2"40B0001B05C4BCD0D7F1ADF IOAB0015"R#BCD0EBCD0FBC241BC2E0N001C0003BCA6BB0006BFFF2BC060N00060003BC0C17F178F IOAB0016RR#BC0A0N00040003BC102BC2E9B0004B130FBD020N00090001BC062B0010B20607F245F IOAB0017R(N00240004B1302B0460C02C0BC08BBC069B000(,6B06A0B0000C02C0BC141BC1827F1FCFIOAB0018,R(BD069B0003B06A0B0000C02B4BCA42BFFF4BC1E2B0008B1602B0460C02B4BC2227F171F IOAB0019RR#B0004B020CC02D0B2620N000E0004B1641B04C3BC067B0026B0A21B1702BC1E77F1F6FIOAB0020RB002ABC047B0221B005CB0700B0669CC00AEBC491B05C1B06A0B0000BFFFFB10F47F14DF IOAB00216R(BC047B0221B005AB0300B0002B0700B069CC00C2B0583B10FBBC047B0221B005E7F1BCF IOAB0022RR(BC051B1305B0641B06A0C02DAC00D6B0583BC067B0028B0A61B1701B0583BC0C37F194F IOAB0023R B1309BC047BC827B00@26C00EEB0300B0000B06A0B0000BFFFFB0300B000FBC1E97F170F IOAB0024@R#BFFF4BC1E7B0008B0203B0000B0460C0208B2620N00100004B1604B0203B00007F22EFIOAB0025RR(B0460C0208BC047B0221B0016B0700B069CC014ABC491B05C1B06A0C0318BFFFF7F17AF IOAB0026R B0202C00 J0CBD0F2B1106B9843B0002B16FBBB9E0N00010001B0009B06A0C00A87F1E4FIOAB0027JR#BFFFFB10E7B8169BFFFCB1627B81A9BFFFAB1624B2620N00000004B1321B89C57F132FIOAB0028RR#B000EB1603B89C6B000CB131BBD069B0002B1104BB9A0N00010001B006EB10047F1F9FIOAB0029R .V@R#BC2E7B0002B0A6BB1710BEA60N002C0004BFFF0BC047B0221B0018B04C0B069C7F194FIOAB0030RP"C01E4BB9A0N00010001B006EBE860N002C0004BFFF2B10F7BEA60N002600047F217FIOAB0031PP'BFFEEBC047B0221B0018B0700B069CC01E4BC0C2B0201B000AB04C2B2E85BFFFF7F118F IOAB00P32R#BCC86BCC85BC053BC4C2BCC91BD4A0N00200004B05C2BC481B05C1B06A0C03187F161FIOAB0033RR#BFFFFBE860N002E0004BFFF0B06A0C0144BFFFFB10DDB0203B0000BD2E9B00027F130FIOAB0034RF"B0A1BB170CBC2E7B0002B0A6BB1708B89C5B000EB1603B89C6B000CB1302BC3197F1F59F IOAB0035R(B1009BC2E9B0002B1153BC2E9BFFF4BC2EBB000CB134EB04CCBC106B0201B00247F134F IOAB0036RR#B2620N00100004B1607B9220N00030001B1611B0221B0014B04C6B100DBC2E97F275F IOAB0037R<BFFF4BC1ABB000EB2620N000E0004B1606BC0A7B0028B0A62B1702B022<1B00007F1C6FIOAB0038R(B04C2B2E84B0000BDCA9BFFEEBDCA4B0008BCCA9BFFF0B04F2BCCA9BFFF4BCC867F040F IOAB0039RR#B0732BCC84BCC85B04F2BC042BCC8CB160ABDCA0N00010001BDCA9B0003BCCA07F131FIOAB0040R2N00220004BB920N00010001B0019B1003BCCA9B0002B04F22" BCCA9BFFFCBCCA97F1B3F IOAB0041"R#BFFFABCCA9BFFF2B0712BC241BC805N00060003BC804N00040003BC184B05C67F193F IOAB0042RR#BC376BC3B6BC3F6B0453BC2E0N001C0003BCAE9BFFF2B0006B032BBC2E9BFFF87F0F5FIOAB0043R(B07E4B0050BDAC0B0001B0460B0000BC081BC0(,51B1602BC2DBB045BB9821B00027F19DF IOAB0044,R#N00200004B13F7B8A61BFFF6BFFF4B16F3B81A1BFFFCB16F0B8161BFFFEB16ED7F0CCFIOAB0045RR#B2220N003C0004B1607BD0E1BFFF0B0A23B11E6BD0E1B0002B16E3BC000B13037F1B3FIOAB0046RBD860N00000002B0003B046BB00062B2F04BC0C1BC123BFFFCBC063BFFF2B13167F184FIOAB00476R(BC0A1B0002BC051B06A0B0000BFFFFB0622B000AB1603B06A0B0000BFFFFBC0447F151F IOAB0048RDB06A0C005ABFFFFBC063BFFF2B2E83BFFFFB04E3BFFF2B2EC47F3C7FIOAB0049D"40000ASSUME3024CCOMXSZ30112FMPRE"*P40000GTA  40000GTA0 7F2E6F IOAB0050*J300F2IODABT30104IODEVR30068IOFLDT40000IORTN 301E6IPCPR27F228F IOAB0051JJ301DENFEOBR40000NFGTA 40000NFGTA030252NFPWOT40000NFRTA 7F26FF IOAB0052J0302CENFTRTN50000RDBS0F40000RTA 3033ASMDSSB300342SMMJCA7F272F IOAB0053> 3032ESMMTBL40000SPOP 40000SPUSH 40000TRTN7F554F IOAB0054>D:  IOABRT  01/26/85 02:51:05  SDSMAC 1.2.0 83.138IOAB0055D@ JNEABT450NO  R06 4 CZC@TYNCHN,R8FILE OR DEIODBGN P ; 4*xF@L 000E0IODBGN M0072NFPTR 0001M0010NFER000002M0010NFER1000037F298FIODB0001LL M0010NFER200004M0010NFER300005P00000001P00020001P000400017F390F IODB0002LR#P00060001P00080001P000A0001P000C0001P000E0001P00100001P001200017F2C7F IODB0003RP0P"0140001P00160001P00180001P001A0001P001C0001P001E0001P002000017F2BFF IODB0004PR#P00220001P00240001P00260001P00280001P002A0001P002C0001P002E00017F2B7F IODB0005RP#P00300001P00320001P00340001P00360001P00380001P003A0001P003C00017F2C5F IODB00P06R#P003E0001P00400001P00420001P00440001P00460001P00480001P004A00017F2BDF IODB0007RR#P004C0001P004E0001P00500001P00520001P00540001P00560001P005800017F2B5F IODB0008RF"P005A0001P005C0001P005E0001P00600001P00620001P00640001P006600017F2A6FF IODB0009R#P00680001P006A0001P006C0001P006E0001P00700001P00000002B0001B02037F278FIODB0010RR#B0405B0607B0809B0A0BB0C0DB0E0FP00000003B1011B1213B1415B1617B18197F20DFIODB0011R<B1A1BB1C1DB1E1FP00000004B2021B2223B2425B2627B2829B2A2BB2C2<DB2E2F7F1A2FIODB0012R#P00000005B3031B3233B3435B3637B3839B3A3BB3C3DB3E3FA0000BC020C006E7F1DCFIODB0013RR(B100BBC020C0066B1008BC020C0070B1005BC020C006AB1002BC020C006CBC8007F1D4F IODB0014R2C0082BCE8BBCE82BCE81BC6A0N001C0001BC2C1B022BB0012" 0BC821B0026C007E7F173FIODB0015"R#BC80BN001C0001B032BB0221B0022B0202C0072B0401BC2DABC80BN001C00017F22AF IODB0016RR#B032BB04E0N00160001B04C0B064ABC05AB064ABC09AB064ABC2DAB046BB00027F197FIODB0017R(BC000BC004BC008BC00CBC010BC014BC018B03(,00B0000B02A0BC800N001600017F1F9FIODB0018,R#B0300B0000B0460B0000BCE8BB0202N00660001BC052B130FB0300B0002BC4917F22BFIODB0019RR(B1602B04E2B0002B0711B0300B000FB0221BFF9CB06A0C000CBFFFFB10EFB064A7F150F IODB0020RBC2DAB046BB0002BCE8BBC84ABFF6F8B04DAB0420B0000B0000BC2E0N000400017F173FIODB00216R#BC020N00180001B07D0BAAE1B000AB0026B1703B0790B05ABB0024BC01AB06C07F1D3FIODB0022RB2EC07FE9DF IODB0023J40000ASSUME5006ADSRAE 5006EDSRENT50064DSRINT50068DSRPU 7F208F IODB0024J04N@J50066DSRRE 5006CDSRTO 50012IODABT50000IODBGN300C0IODDIO7F25DF IODB0025JJ5000CIODPDS500B4IODRCT50006IODREE50018IODTO 50084IOPDSD7F21AF IODB0026J( 300BENFMAP040000SPOP7FA97FIODB0027(2:  IODBGN  01/26/85 03:01:15  SDSMAC 1.2.20 83.138IODB0028001ABA0E07F171F IOCS00182R#N00120001B07D5BC483BC1C3B0222B000CBC044B0221B0050B0203B0006B07D57F20CFIOCS0019RR(BCCB1B0603B15FCB100FB0200B0100B1005B0200B0B00B1002B0200B0500BC2697F1DCF IOCS0020R BFFF8B07D5BD840B0001B0 IOPOST P";d!4.xH@L 0055EIOPOST M0010NFER000001M0010NFER100002M0010NFER4000037F286FIOPO0001LN!M0010NFER500004M0010NFER900005M0010NFERA00006M0010NFERC000077F21DFIOPO0002NR#M0044NFWORD0008M0192NFDATA0009M0072NFPTR 000AP00000001B0001B02037F120FIOPO0003RR#B0405B0607B0809B0A0BB0C0DB0E0FP00000002B1011B1213B1415B1617B18197F20EFIOPO0004RR#B1A1BB1C1DB1E1FP00000003B4041B4243B4445B4647B4849B4A4BB4C4DB4E4F7F183FIOPO0005RN#P00000004B5051B5253B5455B5657B5859B5A5BB5C5DB5E5FP00000005B90917F209F IOPON0006R#B9293B9495B9697B9899B9A9BB9C9DB9E9FP00000006BA0A1BA2A3BA4A5BA6A77F11AFIOPO0007RR#BA8A9BAAABBACADBAEAFP00000007BC0C1BC2C3BC4C5BC6C7BC8C9BCACBBCCCD7F04DFIOPO0008RD!BCECFP00000008B0003B0005B0006B0007B0009B000AB000CB000DB000EB000F7FD209FIOPO0009R(B0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B1000B0800B04007F1BAF IOPO0010RR#B0200B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE00P000000097F28EFIOPO0011R:P00020009P00040009P00060009P00080009P000A0009P000C0009P0:00E00097F28DF IOPO0012N!P00100009B000FP00120009P00160009P00180009P00180009P001A00097F36CF IOPO0013NN!P001C0009B0000P001E0009P00200009P00220009P00240009P002600097F373F IOPO0014N8P00280009P002A0009P002C0009P00340009P00360009P003800098P003A00097F279F IOPO0015R#P003C0009P003E0009P00400009P00420009P00440009P00460009P004800097F284F IOPO0016RR#P004A0009P004C0009P004E0009P00500009P00520009P00540009P005600097F275F IOPO0017R.P00580009P005A0009P005C0009P005E0009P0060000.& 9P00620009P006400097F26DF IOPO0018&R#P00660009P00680009P006A0009P006C0009P006E0009P00700009P007200097F265F IOPO0019RR#P00740009P00760009P00780009P007A0009P007A0009P007C0009P007E00097F24DF IOPO0020R$P00800009P00820009P00840009P008600$009P00880009P008A0009P008C00097F26AF IOPO00210R#P008E0009P00900009P00920009P00940009P00960009P00980009P009A00097F262F IOPO0022RN!P009C0009P009E0009P00AC0009B0080P00AE0009P00B20009P00B600097F2F9F IOPO0023NP00BA0009P00BE0009P00C00009P600C20009P00C40009P00C60009P00C800097F21DF IOPO00246R#P00CA0009P00CC0009P00CE0009P00D00009P00D20009P00D40009P00D600097F20CF IOPO0025RR#P00D80009P00DA0009P00DC0009P00DE0009P00E00009P00E80009P00F000097F201F IOPO0026R P00F80009P00FA0009@P00FC0009P00FE0009P01000009P01020009P010400097F238F IOPO0027@R#P01060009P010C0009P010E0%%009P01160009P01180009P011A0009P011C00097F26FF IOPO0028RR#P011E0009P01200009P01220009P01240009P01280009P012C0009P012C00097F27DF IOPO0029R P012E000 J9P01300009P01320009P01340009P01880009P018A0009P018C00097F269F IOPO0030JR#P018E0009P01900009P0000000AP0002000AP0004000AP0006000AP0008000A7F276F IOPO0031RR#P000A000AP000C000AP000E000AP0010000AP0012000AP0014000AP0016000A7F259F IOPO0032RV@R#P0018000AP001A000AP001C000AP001E000AP0020000AP0022000AP0024000A7F251F IOPO0033RR#P0026000AP0028000AP002A000AP002C000AP002E000AP0030000AP0032000A7F249F IOPO0034RN#P0034000AP0036000AP0038000AP003A000AP003C000AP003E000AP0040000A7F241F IOPON0035R#P0042000AP0044000AP0046000AP0048000AP004A000AP004C000AP004E000A7F239F IOPO0036RR#P0050000AP0052000AP0054000AP0056000AP0058000AP005A000AP005C000A7F247F IOPO0037RD!P005E000AP0060000AP0062000AP0064000AP0066000AP0068000AP006A000A7F2D3FF IOPO0038P"P006C000AP006E000AP0070000AA0000C0030B0000BE01FB003FB0101B033F7F277FIOPO0039PR(B3F06B0801B0502B0207B073FB0405B0513B3F3FB3F3FB3F3FB3F3FB3F3FB3F3F7F119F IOPO0040R<B3F3FB0000B0000B0000B0000BCE8BBCE82BCE81BC242BC180BC169BFF< F8B02857F125F IOPO0041R#BFFFFB1617B9A60N00010001B0002B1305BD069B0002B111CB0460C017CBC3297F1CFFIOPO0042RR(BFFF4B1602B0460C055ABC22CB0004BC1ECB0008B1602B0460C017CB0460C03167F184F IOPO0043R2BC069BFFFABC061B0010B0A61B1702B0460C055ABD069B002"02B155FB135EBC2D97F141F IOPO0044"P"B1303BEA60N00240008B0004B9801N00080006B1437B9801N000E0005B1B197F294FIOPO0045PR(BC089B0222B0028BC069B0016B1304B8081B1302B2E83BFFFFBC069B0026B13047F187F IOPO0046R*B8081B1302B2E83BFFFFBC069B0018BC0A9B0010**B0A82B1702B2E83BFFFFB02857F117F IOPO0047*R(BFFFFB1352B07D6BD969B0003B0003B07D6BD969B0004B0004B07D6BC969B00067F152F IOPO0048RR(B0006B07D6B4960C0004B0010BC069B0010B0241BE01FB07D6BE941B0010B103A7F1BFF IOPO0049R BC049BC085B0200B0014B07D6BCCB1 4B0640B16FCB9829B0002N00020007B13047F1DBFIOPO00504R#B9829B0002N00060007B162ABC069B0016B1327B0796BC0A5B0016BD011B13227F206FIOPO0051RR(B0980B0580B07D6BDCB1B0600B16FCB101BBC329BFFF4B1318BC22CB0004B26207F140F IOPO0052R N000E0008B1607BC1ECB>0008B1304BC067B0028B0A61B1805BC059B1303BEA607F1CAFIOPO0053>R#N00240008B0004B07D6BD969B0004B0004BC1ECB0008B1602B0460C055AB22207F205FIOPO0054RL N00400008B1629B5A60N00010003B0005BC02CB0006B0A60B1806B92207F379FIOPO0055LN00010001B133EB9B220N00030001B1309B07D6BC969B000CB000CB07D6BC9697F221F IOPO0056BR(B000EB000EB1032BC0A9B000CB0582B132EB0602B0796BC2E5B000CB07D6BCEF27F154F IOPO0057RR#B05C2B05CBB0200B0010B07D6BCEF2B0640B15FCB101FB2220N003E0008B161C7F1ABFIOPO0058RB9829BL 0002N00060002B1608B0796BC2E5B0006BC0A9B0006BC029B0008B10EC7F1E3FIOPO0059LR(BC029B0004B0920B170CB07D6BC969B0010B0010B07D6BC969B0012B0012B07D67F1A6F IOPO0060RR#BC969B0014B0014B8829BFFF2N00680009B1402B04E9BFFF2B0200C024EBC0697F18DFIOPO0061RT@R#BFFF0B0A31B1703BFA60N00000004B0002BC070B1309B9A41B0002B1B06B16FA7F1C1FIOPO0062RR(B0241B00FFB0A11B0461C02AAB0460C054EB000DB0136B0236B030DB0436B05AB7F19BF IOPO0063RN&B06BBB07BBB0804B09D5B0AE1B0BF1B0CF1B0EA4B0FA4B10F0B1201B130DB14367F11CF IOPON0064R(B15F0B17D5B189AB19E1B1AE1B1BF0B1CF0B1DBFB20E1B21E1B22F0B23F0B400D7F0F9F IOPO0065RR(B41E1B42E1B43E1B44E1B45E1B46F0B47F0B48E1B59C1B5BF0B0000B0000B00007F16CF IOPO0066RD!B0000B0000B9220N00070001B1609B9220N00070001B1604B07D6BD969B000E7F2D74F IOPO0067R#B000EB0460C055ABC048B0981BD061C0006B0981B2220N003E0008B130DBC0487F1E8FIOPO0068RR#B0261B00FFB2220N00400008B1307B0201B8001BC2E7B0002B0A3BB09FBB404B7F1E3FIOPO0069R:B07D6BC941B0006BC069B0008B1606B2620N000E0008B1603BCA67B0:054B00087F1F3FIOPO0070N!B07D6BC969B0008B0008BD069B0001B1363B1009BC2D9B1307B8829BFFF87F278FIOPO0071NR#N00200008B1303BC2C8B093BB1859BC2E0N001C000AB0202C0028BCCBBBCCBB7F1B3F IOPO0072R4BCCBBBC49BB2620N00100008B1606BC2D7BC2EBB0010B62E0N4 00980009BC48B7F1AAF IOPO0073 R#B0202B001EB2620N000E0008B1601B1009B0202B000AB2620N00100008B16047F295F IOPO0074RR#BC1E7B0002B0202B0018BA087B2620N00320008B1319BC069BFFFAB0206B000A7F1D3FIOPO0075R*BA18CBC196B130FB8066B0002B16FBBC0C2BC086**B0201B000ABA04CB06A0B00007F164F IOPO0076*R(BFFFFBC042B2E83BFFFFBC083BC06CB000AB161CB04ECB000CB0201B0738B4B017F0E3F IOPO0077RR(B0006B07A0C0028BC092B1312B07E0C0028B888CB0004B16F7B07A0C0028BC0627F1A9F IOPO0078R B0006B1303B8A41BFFFCB16EFB07E0 4C0028B48A0N00240008B0002B0460C055A7F1B9FIOPO00794R#B07D6BC969B000CB000CB07D6BC969B000EB000EB0460C055AB2220N003E00087F1B1FIOPO0080RR#B1618B9220N00070001B1615B1036B04C0BC0E9B000AB80E9B0008B1402BC0E97F1EAFIOPO0081R B0008B2620N00100008B>162EB06A0B0000B3000BFFFFB1004B07D6BC969B000A7F1D8FIOPO0082>R#B000AB0460C055AB2620N000E0008B161DBD069B0001B9801N00020001B16027F25FF IOPO0083RR(B0460C055ABC049BA069BFFECB0221BFFE6B6A71B000ABAA51B000AB100CBD2E97F0F8F IOPO0084R B0005B0A7B H#B1708BC2E9B000EB0AEBB1704BC069B000CB2E83BFFFFB0700BC0E97F0FDF IOPO0085HR(B000AB0796BC0A5B0006B07D6BC943B000ABC000B1329BC029B0008BC2C5B10167F187F IOPO0086RR(B1058BD069B0005B0A21B1754BC2E9B000CBC02BB0002BC0EBB0004B0796BC2E57F162F IOPO0087RR(B000CB022BBFFFAB0796BC0ABB0006B07D6BCAC3B000ABC683B6003B130CBC0697F10FF IOPO0088RR(B0004B0911B1707B07D6BAAC0B000ABA680BCA5AB000AB1001B04C0BC069BFFF27F141F IOPO0089RN&B1340BCE80BCE82BC1C3B1312BC129BFFFAB2E82B0000B06A0B0000B0000BC1837F14BF IOPON0090R#BC141B04C4BC0E0N00380008BC0A9BFFF2B04C1B06A0B0000BFFFFBC129BFFFA7F10CFIOPO0091RR(B064ABC09AB064ABC01AB1314BA087B0224B0050B0201B2020B0600B1308B20A07F1C5F IOPO0092RD!N00400008B1305B07D4BCC81B0640B15FCB1105B07D4BDC81B0600B13FCB15F67FD19EFIOPO0093R(BC129BFFFABC0E9B000ABA903B0026B1702B05A4B0024BC0A9BFFF2B1303B06A07F11DF IOPO0094R& B0000BFFFFB04C0B2EC27FB26FIOPO0095&J40000ASSUME40000FMRDST30556IORUB 304ECIOUTO 30418NFCAL07F23CF IOPO0096J 30390NFDLNK40000NFRTA 430502NFXCPY40000NOSCHD50000RIBS007F274F IOPO00974> 40000RPSGCK40000RTA  40000SGCK 40000SPOP7F5FEF IOPO0098>D:  IOPOST  01/26/85 03:16:29  SDSMAC 1.2.0 83.138IOPO0099DLDD *R6R01 #7 0271 0112 CCB1 MOV *R1+,*R2+"IOBREAK PP00000005P00020005P00040005P00060005P000800057F1EEF IOEO0024>R#P000A0005P000C0005P000E0005P00100005P00120005P00140005P001600057F2ADF IOEO0025RR#P00180005P001A0005P001C0005P001E0005P00200005P00220005P002400057F2A5F IOEO0026R P00260005P H00280005P002A0005P002C0005P002E0005P00300005P003200057F29DF IOEO0027HR#P00340005P00360005P00380005P003A0005P003C0005P003E0005P004000057F295F IOEO0028RR#P00420005P00440005P00460005P00480005P004A0005P004C0005P004E00057F28DF IOEO0029RR#P00500005P00520005P00540005P00560005P00580005P005A0005P005C00057F29BF IOEO0030RR#P005E0005P00600005P00620005P00640005P00660005P00680005P006A00057F293F IOEO0031RN"P006C0005P006E0005P00700005P00000006B0003B0005B0006B0007B00097F311F IOEO00N32R(B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB80007F16AF IOEO0033RR(B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B00047F27EF IOEO0034RF"B0002B0001BFE00A0000BCE8BB0300B0000BC060N00420005B0281BFFFFB130B7F1DF6FIOEO0035R#BC811N00420005B04D1B0300B000FB0221BFFA0B06A0C0036BFFFFB10EEB04E07F18CFIOEO0036RR#N00420005B0300B000FB064ABC2DAB046BB0002BCE8BBCE82BCE81BC06ABFFFE7F128FIOEO0037R<BE860N00380006B0026BD2E1B0042B1307B980BN00000003B1304B06A0<B00007F25DF IOEO0038R(B3004BFFFFB0300B0002BC2C1BC06BB0062B1354BCAD1B0062B0300B000FBD0217F171F IOEO0039RR(BFFF2B0A30B1747B04DABCAA1BFFF4B0002BC081BA0A1BFFEEB0222BFFEABC0127F09AF IOEO0040R2B9860N00090002B0004B1311B079ABA030B0580B0240BFFF2" EBCC80B8480B14317F1CFFIOEO0041"N!BD2E1B0003B162EB079ABC870B000CBC840B0008B1021BC2E1B000CB22E07F28CFIOEO0042NR#N00400006B1607BA2C0B05CBB07DABD6E0N00000004B62C0B060BB07DABCC0B7F1BDF IOEO0043R,BA00BBCC80B04E1B000CBD2E1B0003B1613BC2E1B0,(006B0A3BB180FB110EB05C07F152F IOEO0044(R(BC840B0008BA021B000AB8480B1B07BC2EABFFFEBC46BB005CBCAC1B005CB109C7F0EFF IOEO0045RR(B05C1B06A0B0000BFFFFB1097BC04BBC0A1B005EB1642BC0A1B005CB133FBC8527F125F IOEO0046R"B005CB04D2B05C2BC842B0024BC842B0"205EBC861B0056B0058BC821B0026C013A7F18BF IOEO00472R#B0300B0000B88A0N00200006BFFF8B1324BC2E2BFFF2B1321BC2E2B0006B98227F1A7FIOEO0048RR#B0002N00060003B1606BD162B000DB0A15B1717BC2EBB000AB095BBA2E2BFFF27F19AFIOEO0049R B62E0N00980001BC84BB00<16B9822B0002N00060003B1604BC0A2B0006B02227F257F IOEO0050<R#B0004B48A0C01B8B0006BA8A0N00120005B0006B06A0B0000BFFFFB0300B000F7F1E2FIOEO0051RR#B0460C003CB4860N00380006B0026B0300B000FBC0ABB005EB1605BC0ABB005C7F1D6FIOEO0052RB1302B0460C0$ 03CB04C0B2EC2BFFE07F912FIOEO0053$J3018EIODBGN50000IOEOR 50036IOPEL 40000LGDEV 30054NFCAL07F2C5F IOEO0054J( 30108NFEOBR40000SPOP7FA9BFIOEO0055(B:  IOEOR 01/26/85 03:08:12  SDSMAC 1.2.0 83.138IOEO0056B  $$12  Y$IOPREP P;Rp4/px,@L 003A0IOPREP M0010NFER000001M0010NFER100002M0010NFER3000037F2A1FIOPR0001LN!M0010NFER800004M0010NFERE00005M0072NFPTR 0006M0192NFDATA00077F1DDFIOPR0002NR#M0044NFWORD0008P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F199FIOPR0003RR#P00000002B1011B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000003B30317F259F IOPR0004RR#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000004B8081B8283B8485B86877F1B8FIOPR0005RN#B8889B8A8BB8C8DB8E8FP00000005BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECED7F07BFIOPRN0006N!BEEEFP00000006P00020006P00040006P00060006P00080006P000A00067F349F IOPR0007NR#P000C0006P000E0006P00100006P00120006P00140006P00160006P001800067F2AEF IOPR0008RH#P001A0006P001C0006P001E0006P00200006P00220006P00240006P002600067F29FF H IOPR0009 R#P00280006P002A0006P002C0006P002E0006P00300006P00320006P003400067F297F IOPR0010RR#P00360006P00380006P003A0006P003C0006P003E0006P00400006P004200067F28FF IOPR0011R@P00440006P00460006P00480006P004A0006P004C0006P004E0006P0050000@67F287F IOPR0012R#P00520006P00540006P00560006P00580006P005A0006P005C0006P005E00067F27FF IOPR0013RR#P00600006P00620006P00640006P00660006P00680006P006A0006P006C00067F28DF IOPR0014R6P006E0006P00700006P00000007P00020007P00040007P0006006 07P000800077F2B4F IOPR0015N!P000A0007P000C0007P000E0007P00100007B000FP00120007P001600077F363F IOPR0016NN!P00180007P00180007P001A0007P001C0007B0000P001E0007P002000077F36DF IOPR0017N4P00220007P00240007P00260007P00280007P002A0007P002C4 0007P003400077F29DF IOPR0018 R#P00360007P00380007P003A0007P003C0007P003E0007P00400007P004200077F288F IOPR0019RR#P00440007P00460007P00480007P004A0007P004C0007P004E0007P005000077F280F IOPR0020R*P00520007P00540007P00560007P00580007P005**A0007P005C0007P005E00077F278F IOPR0021*R#P00600007P00620007P00640007P00660007P00680007P006A0007P006C00077F286F IOPR0022RR#P006E0007P00700007P00720007P00740007P00760007P00780007P007A00077F27EF IOPR0023R P007A0007P007C0007P007E0007P00 4800007P00820007P00840007P008600077F26EF IOPR00244R#P00880007P008A0007P008C0007P008E0007P00900007P00920007P009400077F266F IOPR0025RN!P00960007P00980007P009A0007P009C0007P009E0007P00AC0007B00807F31DF IOPR0026N P00AE0007P00B20007P00B60:007P00BA0007P00BE0007P00C00007P00C200077F224%%F IOPR0027:R#P00C40007P00C60007P00C80007P00CA0007P00CC0007P00CE0007P00D000077F217F IOPR0028RR#P00D20007P00D40007P00D60007P00D80007P00DA0007P00DC0007P00DE00077F20FF IOPR0029RP00E00007P00E8D0007P00F00007P00F80007P00FA0007P00FC0007P00FE00077F207F IOPR0030DR#P01000007P01020007P01040007P01060007P010C0007P010E0007P011600077F2A6F IOPR0031RR#P01180007P011A0007P011C0007P011E0007P01200007P01220007P012400077F290F IOPR0032RP012N!80007P012C0007P012C0007P012E0007P01300007P01320007P013400077F287F IOPR0033NR#P01880007P018A0007P018C0007P018E0007P01900007P00000008B0003B00057F243FIOPR0034RR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F IOPR0035R@R(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF IOPR0036RR(B0010B0008B0004B0002B0001BFE00A0000B1100C0046B0000B0054B0C00B00007F24CF IOPR0037RN&B0003B1213B40FFB0100B0203B0100B090AB4142B4445B4859BFF00A0022B020B7F1DBF IOPRN0038R(B0C0DB1046B4749B5BFFB0000B0000B0000C0034B0B0CB1015B4647B5BFFB00007F196F IOPR0039RR#B0000B0000B0000B0018BD920N00590007B001ABC2C9B07D5BDAE0N000000047F23DF IOPR0040RD!B0004B0209N01340007B0795BC06BB0002B1508B1307BB920N00010001B00197F2D79F IOPR0041R(B0229B0012B0460B0000BC185BC14BB0589BDE64B0008B04F9B04F9B04F9B04F97F16DF IOPR0042RR#BCE45BCE44BCE60N00060006B04F9BCA41B0002B06C1BC084B06A0B0000C00D87F18FFIOPR0043R:BC302BC1ECB0008B1627B0202C00BCBC072B1316B9A41B0002B16FBB: 0241B00FF7F16FF IOPR0044R(B0A11B0461C00C4B0007B0307B0901B0A01B0000B0201B2000B0796B04E5B000A7F202F IOPR0045RR(B1004B0796B04E5B0006B04C1BC169BFFF8BDA40B0001B1302B0201B4000B07D67F193F IOPR0046R0BD941B0004B0460B0000B0796BCA65B0004B0004BC22CB0$0004B0201C003CBC2E07F1C0F IOPR0047$R#N001C0006BCC7BBCC7BBCC7BBC45BB2620N00100008B1605BC2D7BC46BB00107F197F IOPR0048RR#B6460N00980007B9A60N00050001B0002B131BB071AB0201C000CBD0B1B9A427F23DF IOPR0049R&B0002B1303BD0B1B15FBB04DABC0E9BFFFCB&.C06CB000CB160EBC69AB1629B22207F0FCF IOPR0050.P"N003E0008B1604B9A60N00080001B0002B1303BD020N00030001B10BEB04607F2A8FIOPR0051PR#B0000B8043B1610B2220N00320008B1304B8B04B000AB130DB1609B020BB000A7F237FIOPR0052RBA2CCBC2DBB1318B8AC4B0002B162FBB1003BD020N000B0001B10A7B9A607F29FF IOPR00532R#N00010002B0002B130DBC69AB160BB0460C034AB2620N00100008B1606BC16C7F242F IOPR0054RR#B0012B1603BD020N000E0005B1096B0288B0501B160EBC164B0010B0245BC0207F225FIOPR0055R B1609BC169B0004B2160C08044B1304BD020N000B0003B0460C00D8B9A607F324F IOPR00568R#N00030002B0002B130EB2620N00100008B160EBC167B0002B07A0C003CBD1657F25AF IOPR0057RR#B001BB0A25B1706BD020N00020001B1034BEB20N002C0008B0006BC169B00047F24EF IOPR0058RB0AB5B09E5B2220NB00320008B1611BC0ACB000CB130EBC0ACB0006B0A62B09E27F1A5FIOPR0059BR(B0282B0001B1305B0285B0001B1304B8142B1502BC142B1059B04C0BC048B02027F207F IOPR0060RR(B000AB0AD1B1850B1119B0A21B1712BC06CB0006B0931B1849B0202B001EBC0677F1B0F IOPR0061RB0028BL 0A41B1714B8920N00240008B0010B1210BD020N00090001B0460C00D87F281F IOPR0062LR(BC0A7B0002B0222B0018B1008B89E9BFFFAB000CB1603B89C3B000EB132FBA0877F153F IOPR0063RR(B07A0C003CBC092B132AB07A0C003CBC062B0002B07A0C003CB8322B0004B160A7F1A5F IOPR0064RTN!B07A0C003CBC6A2B0006B1302B80DAB1603BC002B4060N00240008B20607F314F IOPR0065NR#N00220008B1304B2060N00240008B16E3B1005B07A0C003CB80E2B0006B13DD7F24CF IOPR0066RR#B0241B0300B06C1B9961C0014C0012B1AD6BD020N000B0003B0460C00D8B22207F21AFIOPR0067R@R#N00320008B1621B020BB000ABA2CCBC2DBB1304B8AC4B0002B16FBB101AB02017F1B6FIOPR0068RR#B0004B0702B880CN00120006B1401B04C2B2E84C0312BC884B0002B0201B000A7F226FIOPR0069RN&BA04CB06A0B0000B4016BFFFFB1007B06A0B0000C0318B0460B0000BCB04B000A7F19DF IOPRN0070R#B06C5BCB03B000CB5B20N00030001B0006BEB05B0006BC080B130BB07E0C003C7F1D3FIOPR0071RR#B58A0N00030001B0002B0265B4000B07E0C003CBE885B0002B2620N001000087F274F IOPR0072RD!B1617BC06CB0012B0A11B1806B0202C0018B9A72B0002B130AB1AFCB0A11B180B7DF19EF IOPR0073R#B0202C0022B9A72B0002B1302B1AFCB1004BD020N000E0005B0460C00D8BC06C7F1EEFIOPR0074RR(B0006B0A61B09D1BC061C002CB1602B0460C015EBD0B1B9A42B0002B139ABD0B17F186F IOPR0075R" B15FBB0460C038E7FC6AF IOPR0076" 40000ASSUME40000GT8A 3039EIOCHKX30098IOFLDT50312IOPDIE7F282F IOPR00778J500D8IOPERR50046IOPREP30070IUPREP3030ANFCAL040000NFGTA 7F22BF IOPR0078JJ3031ANFPWOT40000NFQUE150000RDBS0030004RIBS005003CRPBMAP7F26BF IOPR0079J"30314RPDIEC40000RPPRCK300F0RPRTN" 940000RPSGCK7F4BBF IOPR0080D:  IOPREP  01/26/85 03:19:40  SDSMAC 1.2.0 83.138IOPR0081D ) .QBID TASK= >10, PROGRAM FILE=.S$LANG, )7 PARMS = (@&SOURCE ACCESS NAekekRTO7 JEQ PRP020 K 0$IOTILN PB0000B0000BFFFFB0000B0300B0002BC260N001C00017F1FFFXOP10024>R(B02A7BC147B0227B0022BC2A5B0020B1502B06A5B013CBC0C9BC00FB0240B00807F199F XOP10025RR#B130ABC0E0N00040001B0223B0050B1000B1000B1000B1000B1000B0793BC2AE7F244FXOP10026R BFFFEB024A H#B0030B093ABA285B046AB012EB0327BC068B0000BC0A8B0006B07657F15DF XOP10027HR(B0020B1504BC0A8B0002B04E8B0008B0200B0006BC121B0018B0799BCD33B06007F1D8F XOP10028RR(B15FCBC84DB001ABC84EB001CBC84FB001EBC341BC382B024FB0002B1000B10007F14DF XOP10029RR(B1000B1000B1000B0380BC04DBC08EBC0CFBC37BBC3BBBC3DBB022BBFFFCB02067F0F2F XOP10030RR(B00FABA185BC945B00FEBC806B0080B0206B9900BC806B0082B020CB1FE0B03297F15CF XOP10031RN&B1000B1000B1000B1000B1000B03C0B1D0EB0380B03A0B02E0B0000B1000B10007F232F XOP1N0032R(B1000B1000B1000B0327B0206B009ABCEF6BCEF6BC6D6BC341BC382BC3C3B03807F151F XOP10033RR(BC04DB0221B001ABC371BC3B1BC3F1B0329B0380B10A3B10C6B10F5B10F4B007A7F162F XOP10034RD!B0000B0001B020AB013CBA285BCE8BBCEA9B0006BC060N004C0003B0202B80007FD1D1FXOP10035R(B0203B0138BA0C5B06A0B0000BFFFFBC9E2B0010B0006BC222B0016BC008B02207F18DF XOP10036RR(B001FB0950B69C0B0006B0A50B0500B0240BFFE0BC5C0BC022B0012BA008B05007F19DF XOP10037R:B0240BFFE0BC9C0B0004B064ABCA5AB0006B0329B100ABC0E5B0136B: 0201B01387F174F XOP10038@BA045B06A0B0000B0000B6943BFFFEB064ABC2DAB045B7F5A9F XOP10039@J301A2NFRTA 30158SMFSID5002EXOP1PC50000XOP1WP50000XOP1WS7F20EF XOP10040J 601B0XOPSIZ7FCD3F XOP10041(:  XOP1  01/25/85 22:45:15  SDS(MAC 1.2.0 83.138XOP10042,OUTPUT=@VOLLST.DEBUG.LIST.ZASMERRS G <0076> .ENDIF2 <0077> XMA SOURCE=@VOLSRC.DEBUG.SOURCE.T$END,20 <0078> OBJECT=@VOLOBJ.DEBUG.OBJECT.T$END,0, <0079> LIST=@VOLLST.DEBUG.LIST.T$END,,T=0EOD EOD *JOBMGR D <x\xZOBJECT D *<**x]x[JMPREP P<4Jx\@L 0006EJMPREP M0022$DATA 0000M0010NFER000001M0010NFER1000027F2CBFJMPR0001LN!M0010NFER200003M0010NFER300004M0010NFER400005M0010NFER5000067F245FJMPR0002NR#M0010NFER600007M0010NFER700008P00000001B0001B0203B0405B0607B08097F1F3FJMPR0003RR#B0A0BB0C0DB0E0FP00000002B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1BAFJMPR0004RR#P00000003B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000004B30317F247F JMPR0005RN#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000005B4041B4243B4445B46477F1D7FJMPRN0006R#B4849B4A4BB4C4DB4E4FP00000006B5051B5253B5455B5657B5859B5A5BB5C5D7F17AFJMPR0007RR#B5E5FP00000007B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP000000087F1D1F JMPR0008RD!B7071B7273B7475B7677B7879B7A7BB7C7DB7E7FS0000B1800C0000T001CB00107DF15BF JMPR0009R(B1000B0000B9A00B0000B0000B003CB1000B0000B002CB1000C0036B0010B00007F25CF JMPR0010RR#A0000B9821B0002N00010001B1304B9821B0002N00090001B1605B0202T000C7F2A7F JMPR0011R:B06A0B0000B0000BC0A1BFFFABD8A0N00080005B0009BC081B0642B0:201B00007F1E8FJMPR0012R#B06A0B0000BFFFFB0460B0000B9822B0002N00090001B1615BC022BFFFAB02207F1D0FJMPR0013RR(B0050BC0C2B0223B001CBC122BFFF8B07D0BC922B0010B0010B0224B001CB02017F1A9F JMPR0014R0B0010B07D0BCD33B0601B15FCB04C0B046BB00027F705F0 JMPR0015 N!3002AJOBQUE3002ENFQUEH30034NFSRTNW0000RDBS48000030016RPBUF 7F150F JMPR0016N(30018RPRTNE40000SCALL 7FA6FFJMPR0017(D:  JMPREP  01/26/85 05:18:42  SDSMAC 1.2.0 83.138JMPR0018D *JEQ XOP200  NO, GO PROCESS -(EOD EOD 1TEMPLATED <{rx^ATABLE D My|{mINS P Nu2|2D{r@ UNL#@************************************************************ @ *  * **  INSTALL UCB(INS) 9/05/79  * * *  * (* LOCATION: SYSTEM TABLE AREA  * ( *  * @************************************************************ @INS  DORG 0 ! INSOP BSS1 SVC OP CODE  (INSERR BSS1  RETURNED ERROR CODE (&INSPFL BSS1  PROGRAM FILE LUNO &INSID BSS1 ID NUMBER INSNAM BSS8 NAME" DORG INSNAM+8 TASK VARIANT "INSFLG BSS1 FLAGS INTPRI BSS1 PRIORITYINTPR1 BSS1 PROC 1 ID INTPR2 BSS1 PROC 2 ID  INTOBJ BSS1 OBJECT LUNO  INTFL2 BSS1 FLAGS  * SPECIAL FORM EXTENSION INTLOD B SS2 LOAD ADDRESS"INTLNG BSS2 LENGTH (BYTES)"$INTLEN BSS2 TASK ROOT LENGTH$& DORG INSNAM+8 PROCEDURE VARIANT& BSS1 FLAGS  INPOBJ BSS1 OBJECT LUNO   * SPECIAL FORM EXTENSION"INPLOD BSS2  LOAD ADDRESS "$INPLNG BSS2  LENGTH (BYTES) $$ DORG INSNAM+8 SEGMENT VARIANT$ BSS1 FLAGS  INSOBJ BSS1 OBJECT LUNO   * SPECIAL FORM EXTENSION"INSLOD BSS2  LOAD ADDRESS "$INSLNG BSS2  LENGTH (BYTES) $*INSFL2 BSS1  SECOND BYTE OF FLAGS *$ DORG INSNAM+8 OVERLAY VARIANT$ BSS1 FLAGS &INOTID BSS1  ASSOCIATED TASK ID&INOOBJ BSS1 OBJECT  BSS1 !  * SPECIAL FORM EXTENSIONIN OLOD BSS2  LOAD ADDRESS  $INOLNG BSS2  LENGTH (BYTES) $  RORG "  PAGE "  LIST " SECTION OF MODIFIABLE -2 ERR6F: BYTE; "SVC34 -LUNO ASSIGNED TO FILE2END;. ERR70: BYTE; "IOU -DIRECTORY NOT EMPTY.6 ERR71: BYTE; "IOU-INVALID FILE TYPE SPECIFIED64 ERR72: BYTE; "IOU -BAD USAGE FLAGS SPECIFIED4 EROUND (=EOT),4 DIBSUB : BYTE; "*PARITY ERROR SUBSTITUTE (= DDk4`4_/ ERR69: BYTE; "IOU -PRIMARY KEY CAN'T BE /0 ERR6A: BYTE; "IOU -KEN LENGTH IS ZERO OR05 ERR6B: BYTE; "IOU-PHYS REC LNG TOO SMALL FOR 53 ERR6C: BYTE; "IOU -B-TREE PHYS REC SIZE TOO 33 ERR6D: BYTE; "IOU -PHYSICAL RECORD SIZE TOO 3 ERR6EDDB P N~N2E{t@ UNL#@************************************************************ @ *  * 4* DIOU DATA BASE DEFINITION (DDB) 12/01/81* 4 *  * 4* LOCATION: DIOU NAME MANAGER SEGMENTS AND * 4"* RELATIVE RECORD FILE  * "@************************************************************ @ PCKREC DDB *RELREC EQU0  *RELATIVE RECORD FILE*6NAMSEG EQU1  *NAME MANAGER SEGMENTS ORDERED BY 6* DEVICE NAMES6NUMSEG EQU2  *NAME MANAGER SEGMENTS ORDERED BY 6* DEVICE NUMBERSDSKPDT EQU3  *DISK PDT* '&*  RELATIVE RECORD FILE RECORDS &* '  DORG 0 ! DDB0R1 WORD 0  *RESERVED$DDB0RT WORD 0  *RESOURCE TYPE $DDB0DT BYTE 0  *DEVICE TYPE  DDB0CT BYTE 0  *CDT NUMBER DDB0CE WORD 0  *CDE MASK$DDB0WT BYTE 0  *WRITE TASK ID $DDB0R2 BYTE 0  *RESERVED8DDB0VL EQU$  *BEGINNING OF VARIABLE LENGTH PARMS 8(DDB0PD EQU$  *PRINT DEVICE NAME (,DDB0VD EQU$  *VIRTUAL DEVICE SERVER ,&DDB0UP EQU$  *USER PARAMETERS &*DDBNOS EQU$  *NON O.S. PARAMETERS ** '6*  NAME MANAGER SEGMENTS ORDERED BY DEVICE NAMES6* '  DORG 0 ! $DDB1NU WORD 0  *DEVICE NUMBER $,DDB1RR WORD 0  *RELATIVE RECORD NUMBER,"DDB1PA WORD 0  *PDT ADDRESS "DDB1F1 WORD 0  *FL%%AGS DDB1F2 WORD 0  *FLAGS *DDB1LC BYTE 0  *ASSIGNED LUNO COUNT *DDB1TC BYTE 0  *ATTACHED TASK COUNT  DDB1OJ WORD 0  *OWNER JOB  2DDB1LP WORD 0  *LOCKED PARAMETER LIST ANCHOR 2 DDB1RP WORD 0  *RPB ANCHOR DDB1SZ EQU$  *SIZE* ',DDF1DS EQU>1800  *DEVICE STATE MASK ,* '8*  NAME MANAGER SEGMENTS ORDERED BY DEVICE NUMBERS 8* '  DORG 0 ! DDB2R1 BYTE 0  *RESERVED&DDB2NF BYTE 0  *DEVICE NAME FILE&,DDB2RR WORD 0  *RELATIVE RECORD NUMBER,"DDB2NA BYTE 0  *DEVICE NAME "* '8*  O.S. PARAMETER TABLE (INTERNAL DATA STRUCTURE) 8* '  DORG 0 ! &OSPPRM BYTE 0  *PARAMETER NUMBER&*OSPSTR BYTE 0  *STRUCTURE IDENTIFIER*,OSPOFF BYTE 0  *OFFSET INTO STRUCTURE ,$OSPLEN BYTE 0  *LENGTH OF PARAME$TER * '0*  SESSION TABLE (INTERNAL DATA STRUCTURE)0* '  DORG 0 ! STRES BYTE 0  *RESERVED(STID BYTE 0  *SESSION IDENTIFIER(0STFNAS DATA 0  *FIRST NAME SEGMENT RUN ID 02STFNUS DATA 0  *FIRST NUMBER SEGMENT RUN ID 2$ BSS20 *REST OF THE RUN IDS $(STPTNM BSS18 *PATHNAME OF SYSTEM(  ENDREC !  PAGE "  LIST " c ϯ;NNYY«j  ߝߪ"NǍh?YmǍ«J)"ω( ψ#«Ϫ*ωψ+,ω$j «)xωJ)"ωϭ9«Ϫ*Džk ("ψlj:,) i Ǎc«j j «j mk) (xψǏϭ9 ("ψc© kψ*xϊϭ9ǏAǍǏϭ9ψ$«S3F PN" 2F{u UNL#B************************************************************** B *  * 4*  READ SYSTEM DATA BLOCK(S3F) 06/06/80 * 4 *  * B************************************************************** B PCKREC S3F  S3FOPC BYTE 0  OP CODE=#3F S3FERC BYTE 0  ERROR CODE  S3FTYP BYTE 0  DATA TYPE8*------------------------81 =PDT (USE INDEX FIELD) 8.*  82 =TILINE PERIPHERAL CONTROL SPACE .$*  83 =DATA FROM CSEG LGLCOM $$*  84 =DATA FROM CSEG NFCLKD $$*  85 =DATA FROM CSEG NFDATA $"* 86 =DATA FROM CSEG NFPTR"$*  87 =DATA FROM CSEG PMDATA $8*------------------------88 =DATA FROM CSEG NFJOBC 8S3FFLG FLAGS 8 FLAGS* FLAG S3FFSH (1)TRUE=USE SHORT FORM *0 FLAG S3FFIN (1)TRUE=RETURN DATA INDIRECT 0*  AT SPECIFIED ADDRESS 2 FLAG S3FFCS (1)TRUE=RETURN ADDRESS OF CSEG 20S3FIDX WORD  INDEX FOR PDT CHAIN(TYPE 81) 0.S3FOFF WORD  OFFSET INTO DATA STRUCTURE .*S3FBLN WORD  LENGTH OF RESULT BUFFER*.S3FRET WORD  RETURNED DATA OR LENGTH OF .*  RETURNED DATA(S3FBUF WORD  RESULT BUFFER ADDRESS($S3FRES WORD  *** RESERVED *** $  ENDREC !  PAGE "  LIST " DDB1RR WORD 0  *RELATIVE RECORD NUMBER,"DDB1PA WORD 0  *PDT ADDRESS "DDB1F1 WORD 0  *FLAGS DDB1F2 WORD 0  *FLAGS *DDB1LC BYTE 0  *ASSIGNED LUNO COUNT *DDB1TC BYTE 0  *ATTACHDIT P NAP2H{w@J#********************************************************************* J * !*  6*  DISK INFORMATION TABLE(DIT)  09/09/83 * 6 * !*  J#********************************************************************* JF!* THIS TEMPLATE IS USED TO DESCRIBE EACH ENTRY IN THE DITDAT TABLEFF* USED BY THE DISK VOLUME UTILITIES.THERE IS ONE ENTRY IN DITDATF4* FOR EACH DISK TYPE THAT IS SUPPORTED BY DNOS. 4* '* REVISIONS:"@* 01 11/01/84 - ADD FLAG IN DITFLG TO ALERT SCAN DISK THAT @2* CHANGING CYLIDERS WITH OFFSETS ACTIVE FOR 2$* THIS DISK TYPE ISN'T VALID. $ UNL# PCKREC  DIT,DITSR1 DATA 0  DISK STORE REGISTERS 1 ,*DITSR2 DATA 0  DISK STORE REGISTERS 2 *,DITSR3 DATA 0  DISK STORE REGISTERS 3 ,.DITFLG FLAGS 16  DISK INFORMATION FLAGS ., FLAG DIFCBT TRUE=CONTROLLER BAD TRACK, * TABLE IN CONTROLLER RAM & FLAG DIF2DM TRUE=TWO DEFECT MAPS&2 FLAG DIFVIFTRUE=VARIABLE INTERLEAVE FACTOR 2. FLAG DIFSAATRUE=SURFACE ANALYSIS ASSIST .( FLAG DIFTI  TRUE=TRANSFER INHIBIT (, FLAG DIFDC  TRUE=DIAGNOSTIC CYLINDERS ,( FLAG DIFBTM TRUE=BAD TRACK MAPPING($ FLAG DIFSPL TRUE=DISK IS SPLIT$0 FLAG DIFNWFTRUE=NO WRITE FORMAT AFTER SAA 0 BITS 1UNUSED* FLAG DIFNRO TRUE=NOMINAL READS ONLY *4 FLAG DIFISTTRUE=ISSUE SELF-TEST TO DETERMINE 4"* IF SA ASSIST IS SUPPORTED "$ FLAG DIFANO TRUE=ALLOW NO OFFSET$S FOR THE SD R01 * UTILITY  R01  BITS 3 SPARE FLAGS 4DITPRL DATA 0  PHYSICAL RECORD LENGTH-DEFAULT 44DITNVE DATA 0  NUMBER VCATALOG ENTRIES-DEFAULT 4DITNAM CHAR 16 DISK NAME,DITNSC BYTE 0  NUMBER SPARE CYLINDERS ,0DITSCM BYTE 0  SPARE CYLINDERS FOR MAPPING08DITHIF DATA 0  HARDWARE INTERLEAVE FACTOR-DEFAULT 8*DITTPP DATA 0  TEST PATTERNS POINTER*0DITDSP DATA 0  DIAGNOSTIC SECTORS POINTER 02DITNDS BYTE 0  NUMBER OF DIAGNOSTIC SECTORS 2$ BYTE 0  SPARE BYTE - NOT USED$<DITRTF FLAGS 16  READ TYPES FLAGS FOR SURFACE ANALYSIS <  FLAG DIFOF OFFSET FORWARD  FLAG DIFOR OFFSET REVERSE  FLAG DIFSE STROBE EARLY FLAG DIFSL STROBE LATE  FLAG DIFNOMNOMINAL 2 FLAG DIFEF STROBE EARLY and OFFSET FORWARD 22 FLAG DIFER STROBE EARLY and OFFSET REVERSE 22 FLAG DIFLF STROBE LATE and OFFSET FORWARD 22 FLAG DIFLR STROBE LATE and OFFSET REVERSE 2$ BITS 7  SPARE READ TYPE FLAGS $4DITCRL DATA 0  DISK CONTROLLER REVISION LEVEL 4  BYTE 0  SPARE - NOT USED  2DIT2DH BYTE 0  SECOND DEFECT MAP HEAD NUMBER 2  ENDREC ! .DITNLB EQU16 DISK NAME LENGTH IN BYTES.2DITDRT EQU9  NUMBER OF DEFINED READ TYPES 2  LIST " lj:,) i Ǎc«j j «j mk) (xψǏϭ9 ("ψc© kψ*xϊϭ9ǏAǍǏϭ9ψ$« SOV PN2I{y UNL#@************************************************************ @ *  * 4* SYSTEM OVERLAY LOAD TABLE (SOV)09/09/83 * 4 *  * "*  LOCATION: SYSTEM ROOT  * "@************************************************************ @>* THE SOV IS BUILT DURING SYSTEM GENERATION AS PART OF THE >>* MODULE SOVT, DEPENDING ON THE OPTIONS CHOSEN DURING THE >@* GENERATION. THE FORMAT OF EACH ENTRY IS SHOWN IN THE OVT. @ PCKREC SOV 6 CFDFOV DATA 0,0,0  IU CREATE/DELETE FILE OVERLAY 64 OTHOV1 DATA 0,0,0  IU OTHER FUNCTIONS OVERLAY 48 OTHOV2 DATA 0,0,0  IU RF, AA, DA, CIC, DIC OVERLAY 84 SECMGR DATA 0,0,0  IU SECURITY MANAGER OVERLAY4  ENDREC !  PAGE "  LIST " ********************************************************************* J * !*  6*  DISK INFORMATION TABLE(DIT)  09/09/83 * 6 * !*  J#********************************************************************* JF!* THIS TEMPLATE IS USED TO DESCRIBE EACH ENTRY IN THE DITDAT TABLEFF* USED BY THE DISK VOLUME UTILITIES.THERE IS ONE ENTRY IN DITDATF4* FOR EACH DISK TYPE THAT IS SUPPORTED BY DNOS. 4* '* REVISIONS:"@* 01 11/01/84 - ADD FLAG IN DITFLG TO ALERT SCAN DISK THAT @2* CHANGING CYLIDERS WITH OFFSETS ACTIVE FOR 2$* THIS DISK TYPE ISN'T VALID. $ UNL# PCKREC  DIT,DITSR1 DATA 0  DISK STORE REGISTERS 1 ,*DITSR2 DATA 0  DISK STORE REGISTERS 2 * KIT NN2J{z@ UNL=@************************************************************$@ *  *$ ** KIF TASK AREA (KIT)  05/10/84 *$* *  *$ (* LOCATION: SYSTEM TABLE AREA  *$(2* (USED ONLY BY ASSEMBLY LANGUAGE CODE)  *$2@************************************************************$@@* THE KIT IS ATTACHED TO THE FILE MANAGEMENT WORK AREA (FWA)$@<* FOR ADDITIONAL WORKING STORAGE FOR KIF PROCESSING.IT&<@* INCLUDES INFORMATION ABOUT THE CURRENT REQUEST, THE STATE $@<* OF THE FILE, AND SEVERAL FIELDS OF THE FCB TO MINIMIZE&< * MAPPING DURING PROCESSING.4 " COPY DSC.TEMPLATE.ATABLE.FWA 0" UNL=4 DORG FWASTKTEMPORARY KIF STORAGE IN TASK AREA%4 BSS110*2 KIF STACK .KI.TBKM LONG 0 LOGICAL BLOCK END OF MEDIUM %.*KITCMD DATA 0  CURRENT COMMAND NUMBER(**KITEBQ LONG 0  EMPTY BLOCK QUEUE HEAD(*&KITCLB DATA 0  CURRENT LOG BLOCK *&*KITFBQ LONG 0  FREE BLOCK QUEUE HEAD (* KITBTR DATA 0 B-TREE ROOTS- *KITKDB BSS58 KDB OF CURRENT REQUEST(*0KBUF1A DATA 0 ADDRESS OF FIRST KEY BUFFER %00KBUF2A DATA 0 ADDRESS OF SECOND KEY BUFFER%00KBUF3A DATA 0 ADDRESS OF THIRD KEY B%%UFFER %0* A0KEYNUM DATA 0 KEY # OF KEY CURRENTLY USING%0,KEYSZ DATA 0  SIZE (CHARS) OF THIS KEY',* A BTSTK BSS60B-TREE STACK- 2BTSTKA DATA 0 ADDR 1ST ENTRY OF B-TREE STACK$20MAXSSZ EQU9 ONLY 9 STACK ENTRIES ALLOWED%0 BTSPTR DATA 0 ADDR 1ST UNUSE  D B-T STACK ENTRY #2NEIBTS DATA 0 NUMBER ENTRIES IN B-TREE STACK$2* A2TS1L2 DATA 0 1 WORD OF LEVEL 1 TEMP STORAGE$22TS1L2A DATA 0 1 WORD OF LEVEL 1 TEMP STORAGE$22TS1L2B DATA 0 1 WORD OF LEVEL 1 TEMP STORAGE$22TS1L2C DATA 0 1 WORD OF LEVEL 1 TEMP STORAGE$22TS1L2D DATA 0 1 WORD OF LEVEL 1 TEMP STORAGE$26TS1L4 DATA 0,0 2 WORDS OF LEVEL 1 TEMP STORAGE #6$T1L4A DATA 0 ADDRESS OF TS1L4+$6 RWNID DATA 0,0,0 LEVEL 1 TS (NEW DATA BASE KEY)$6$RWNIDA DATA 0 ADDRESS OF RWNID+$* A8BTLEVL DATA 0 LEVEL 2 TS (B-TREE LEVELS ON STACK) !86TS2L4 DATA 0,0 2 WORDS OF LEVEL 2 TEMP STORAGE #6$T2L4A DATA 0 ADDRESS OF TS2L4+$&TS2L4A DATA 0,0  2 WORDS OF LEVEL 2& TEMP STORAGE #&T2L4AA DATA 0  ADDRESS OF TS2L4A *&6TS2L4B DATA 0,0 2 WORDS OF LEVEL 2 TEMP STORAGE #6&T2L4BA DATA 0  ADDRESS OF TS2L4B *&* A&RQDBKA DATA 0  ADDRESS OF KCBDBK *&&RQBTPA DATA 0  ADDRESS OF KCBBTP *&&BTDBKA DATA 0  ADDRESS OF BTBDBK *&,TDBK BSS6  TEMPORARY DATA BASE KEY ',2ATDBK DATA 0 ADR OF TEMPORARY DATA BASE KEY$2$KITFLG FLAGS 16 KIF FLAG WORD ,$LEAFFL EQUKITFLG9$ BITS LEAFBT,8SAVED LEAF FLAG +$" FLAG FDRCFGFDR CHANGE FLAG +"$ FLAG BTSPLT B-TREE SPLIT FLAG *$" FLAG PASREQPASSIVE REQUEST +", FLAG ALTSEQ ALTERNATE SEQ (INT'L KIF) &," FLAG CNVKEYCONVERT REQ FLAG+",CWSR4 DATA 0  KMCNV BASE DATA ADDRESS ',CW*SR5 DATA 0  KMUCV BASE DATA ADDRESS '*,KITSIZ EQU$  SIZE INCLUDING WORKSPACE',(*KBUF1BSS 102 FIRST KEY BUFFER *((*KBUF2BSS 102 SECOND KEY BUFFER*((*KBUF3BSS 102 THIRD KEY BUFFER *(  RORG <  PAGE <  LIST < RIMARY KEY CAN'T BE /0 ERR6A: BYTE; "IOU -KEN LENGTH IS ZERO OR05 ERR6B: BYTE; "IOU-PHYS REC LNG TOO SMALL FOR 53 ERR6C: BYTE; "IOU -B-TREE PHYS REC SIZE TOO 33 ERR6D: BYTE; "IOU -PHYSICAL RECORD SIZE TOO 35 ERR6E: BYTE; "IOU-INTERSECTION OF MODIFIABLE 52 ERR6F: BYTE; "SVC34 -LUNO ASSIGNED TO FILE2END;. ERR70: BYTE; "IOU -DIRECTORY NOT EMPTY.6 ERR71: BYTE; "IOU-INVALID FILE TYPE !!k4F`4 OAD PN2L{|@ UNL#@************************************************************ @ *  * 4 * OVERLAY AREA DESCRIPTOR(OAD)  12/07/79 * 4 *  * 0* LOCATION: WITH SYSTEM OVERLAY AREAS  * 0@************************************************************ @>* THE OAD PRECEDES A SYSTEM OVERLAY AND DESCRIBES ITS SIZE >* AND LOCATION.  DORG -16 0OADSZ EQU$  SIZE OF OVERLAY DESCRIPTOR 0:OADSMT PTRSSB  SMT ADDRESS OF OVERLAY AREA SEGMENT ::OADSSB PTRSSB  SSB ADDRESS OF OVERLAY AREA SEGMENT :8OADOFF DATA 0  OFFSET INTO SEGMENT OF OVERLAY CODE 8,OADBSZ DATA 0  NUMBER OF BYTES TO READ,*OADSIZ DATA 0  SIZE OF OVERLAY AREA *(OADOVN DATA -1 CURRENT OVERLAY IN AR(EA -1=NONE 6OADUSE DATA 0  NUMBER OF TASKS USING THE OVERLAY 64OADOAD PTROAD  POINTER TO NEXT OVERLAY AREA 4(OADCOD EVEN  AREA FOR OVERLAY CODE(  RORG "  PAGE "  LIST " VC25 -PF LUNO NOT A PROG FILE  ERR5A: BYTE; " . ERR5B: BYTE; "SVC25 -LUNO NOT ASSIGNED.1 ERR5C: BYTE; "SVC2A -INVALID OVERLAY LINK 17 ERR5D: BYTE; "SVC28-ID NOT PROVIDED AS REQUIRD 77 ERR5E: BYTE; "SVC31"¢k4F`4 D B-T STACK ENTRY #2NEIBTS DATA 0 NUMBER ENTRIES IN B-TREE STACK$2* A2TS1L2 DATA 0 1 WORD OF LEVEL 1 TEMP STORAGE$22TS1L2A DATA 0 1 WORD OF LEVEL 1 TEMP STORAGE$22TS1L2B DATA 0 1 WORD OF LEVEL 1 TEMP STORAGE$22 AKE P N=2M{~@@************************************************************ @ *  * 4*  ARABIC KSB EXTENSION (AKE) 12/06/82 * 4 *  * "*  LOCATION: SYSTEM AREA  * "@************************************************************ @ DORG KSBSIZ(AKEXUF WORD 0  EXTENDED USER FLAGS($AKEFC WORD 0  FILL CHARACTER $AKEEOF WORD 0  END FIELD AKEBOF WORD 0  BEGIN FIELD AKESCR WORD 0  SCREEN SIZE AKEMFL WORD 0  MODE FLAGS  AKEMXF WORD 0  MAX FIELD*AKEBFO WORD 0  BEGIN FIELD OVERRIDE *(AKEEFO WORD 0  END FIELD OVERRIDE ($AKEAST BYTE 0  AUTOMATA STATE $ AKEINF BYTE 0  INSERT FLAG &AKECTL BYTE 0  CONTROL KEY FLAG &AKEMSC BYTE 0  MISCELLEANOUS USAGEAKESCH BYTE 0  SAVE CHAR*AKEACT BYTE 0  TO SEE IF ACTION DONE*&AKETAD WORD 0  TEMPORARY ADDRESS&$AKEICT WORD 0  INSERT COUNTER $AKESTK BSS12 6 LEVELS 4AKEEF0 FLAGS 16  EXTENDED EDIT FLAGS - WORD 0 4  BITS 1  PASS-THROUGH MODE 0 BITS 1  940-IN PTM, TERMINATE READ ON ETX 02 BITS 1  940-IN PTM, TERMINATE READ ON ESC-) 2, FLAG EDFEXE USED, BUT NOT DOCUMENTED ,2 BITS 1  940-DISABLE USE OF BIT 0 FOR INTEN 26 BITS 1  940-ALLOW ESC & SOH IN WRITE ASCII BUF 62 BITS 1  940-IGNORE DISPLAY CHARACTERS, ETC. 20 BITS 1  940-1=132 COL MODE; 0=80 COL MOD 0. FLAG MDTCHK POST DATA MODIFIED ON READ . FLAG EXVAL  EXTENDE D CHAR VALIDATION . FLAG NULFLG NULL CHARACTER SUPPRESSION .( FLAG CNBFLG CONVERT NULL TO BLANK( BITS 1  KANJI BITS 3  RESERVED 2AKEEF1 FLAGS 16  EXTENDED EDIT FLAG - WORD 12, BITS 1  TERMINATE READ ON ERASE FIELD ,, BITS 1  TERMINATE READ ON RIGHT FIELD ,0 FLAG LEFARO TERMINATE READ ON LEFT ARROW 0$ BITS 1  TERMINATE READ ON TAB$* BITS 1  TERMINATE READ ON UP ARROW *& BITS 1  TERMINATE READ ON SKIP && BITS 1  TERMINATE READ ON HOME &( BITS 1  TERMINATE READ ON RETURN (, BITS 1  TERMINATE READ ON ERASE INPUT ,, BITS 1  TERMINATE READ ON BLANK GRAY ,, BITS 1  TERMINATE READ ON DELETE CHAR , BITS 1  TERMINATE READ ON INSERT CHAR 0 FLAG RITARO TERMINATE READ ON RIGHT ARROW 0& BITS 1  TERMINATE READ ON ENTER&, BITS 1  TERMINATE READ ON LEFT FIELD ,, BITS 1  TERMINATE READ ON DOWN ARROW ,* 'AKESIZ EQU$ !  RORG "  FLAG DIFOF OFFSET FORWARD  FLAG DIFOR OFFSET REVERSE  FLAG DIFSE STROBE EARLY FLAG DIFSL STROBE LATE  FLAG DIFNOMNOMINAL 2 FLAG DIFEF STROBE EARLY and OFFSET FORWARD 22 FLAG DIFER STROBE EARLY and OFFSET REVERSE 22 FLAG DIFLF STROBE LATE and OFFSET FORWARD 22 FLAG DIFLR STROBE LATE and OFFSET REVERSE 2 BITS 7 SPARE READ: BYTE; " 5 ERR7F: BYTE; "IOU-INVALID OPER. ON .V" k4`4 DMR PN'2N{@ UNL#F!***************************************************************** F8* DISC MANAGER REQUEST BLOCK  (DMR)06/25/79* 8 * *  **  LOCATION: SYSTEM TABLE AREA * *F!***************************************************************** F  DORG 0 ! "DMRSVC BYTE 0 SVC CODE = >22""DMRERR BYTE 0 SVC ERROR CODE"DMROP BYTE 0 OP CODE *  0=DEALLOCATE (*  1=ALLOCATE ALL OF THE REQUESTED ( *  BLOCK, BUT NO SECONDARY "*  ALLOCATIONS ARE ACCEPTABLE "&*  2=ALLOCATE ALL OR PART OF THE &"*  REQUESTED BLOCK; SECONDARY ""*  ALLOCATIONS ARE ACCEPTABLE "(*  3=SAME AS OP CODE 2, EXCEPT THE ("*  ALLOCATION REQUEST IS FOR "* A SPECIF IC LOCATION ON DISC; "*  ALLOCATE AT THAT LOCATION "*  OR REJECT THE REQUEST  BSS1 RESERVED"DMRPDT PTRPDT PDT ADDRESS "(DMRBSZ DATA 0  BLOCK SIZE IN BYTES ("*  ( PHYSICAL RECORD SIZE ) ""DMRBCT DATA 0,0 BLOCK COUNT ".DMRUBK EQUDMRBCT ADU'S PER BLOCK (BYTE).0DMRBKU EQUDMRUBK+1 BLOCKS PER ADU (BYTE) 04DMRUCT EQUDMRBKU+1 NUMBER OF ADU'S ALLOCATED 4.DMRADU DATA 0  NUMBER OF FIRST ALLOCATED .* * ADU DMRALC EQUDMRADU* '2DMRSIZ EQU$  SIZE OF DISC MANAGER REQUEST 2  RORG "  PAGE "  LIST " 1  940-1=132 COL MODE; 0=80 COL MOD 0. FLAG MDTCHK POST DATA MODIFIED ON READ . FLAG EXVAL  EXTENDEPIB PNJ2O{ UNL#@************************************************************ @* '4* PATHNAME INFORMATION BLOCK (PIB)  05/25/84 4* '4* LOCATION: BDDATA,CDDATA,RDDATA,VBDATA,VCDATA 4@**************************************************%%********** @  DORG 0 ! (PIBPN BSS50 PATHNAME WITH LENGTH(*PIBFLG FLAGS 16  PATHNAME TYPE FLAGS *  BITS 14! & FLAG PIFDSC HAS DISK NAME IN IT &. FLAG PIFFILHAS FILE NAME WITH DISK NAME .(PIBSIZ EQU$  SIZE IN BYTES OF FDR(  RORG "  PAGE "  LIST " HE &"*  REQUESTED BLOCK; SECONDARY ""*  ALLOCATIONS ARE ACCEPTABLE "(*  3=SAME AS OP CODE 2, EXCEPT THE ("*  ALLOCATION REQUEST IS FOR "* A SPECIFMRB P!N 2R{@ UNL#@************************************************************ @ *  * <* MASTER READ/MASTER WRITE BUFFER(MRB)  04/04/83 * < *  * *  LOCATION: TASK AREA  * *  * @************************************************************ @@* THE MRB IS A DESCRIPTION OF THE DATA BUFFER RETURNED TO A @>* CHANNEL OWNER TASK IN ITS MASTER READ BUFFER. THIS SAME >@* BUFFER STRUCTURE IS USED IN THE MASTER WRITE OPERATION OF @:* THE OWNER TASK. ALL BUFFER POINTERS IN THE MRB ARE :<* RELATIVE OFFSETS FROM THE BEGINNING OF THE MRB, RATHER <$* THAN BEING ABSOLUTE ADDRESSES.$@* MRB VARIANTS ARE PROVIDED FOR THE MAJOR TYPES OF I/O CALL @$* BLOCKS: BASIC FILE I/O, I/O WITH$ REPLY INFORMATION, I/O >* WITH VALIDATION, VDT EXTENSIONS, AND UTILITY OPERATIONS. >2* THERE IS ALSO A VARIANT FOR ABORT I/O CALLS.2* ' PCKREC MRB 6MRBSID WORD 0 SECURITY INFORMATION (SESSION ID) 60MRBRCB WORD 0 REQUESTOR CALL BLOCK ADDRESS0,MRBTSB PTRTSB  REQUESTOR TSB ADDRESS ,,MRBJSB PTRJSB  REQUESTOR JSB ADDRESS ,6MRBSSI WORD 0 SECURITY INFORMATION (QUEUE ADDR) 6&MRBSOC BYTE 0  SVC OPERATION CODE&,MRBEC BYTE 0  SVC RETURN (ERROR) CODE ,VARN0 EQU$ !$ VARNT VARN0 ABORT I/O VARIANT$MRBABF FLAGS 8FLAGS  FLAG MRFDNCDO NOT CLOSE BITS 7 RESERVED(MRBABL BYTE 0  LOGICAL UNIT NUMBER (MRBASZ EQU$ ABORT I/O MR B SIZE * '  VARNT VARN0 I/O VARIANTS  &MRBOC BYTE 0  SUB-OPERATION CODE&(MRBLUN BYTE 0  LOGICAL UNIT NUMBER ( MRBSFL FLAGS 8SYSTEM FLAGS  FLAG MRFBSYBUSY FLAG MRFERRERROR  FLAG MRFEOFEND OF FILE  FLAG MRFVNTEVENT CHAR*MRBUFL FLAGS 8 REQUESTOR (USER) FLAGS*" FLAG MRFINTINITIATE REQUEST"$ FLAG MRFRPY OUTPUT WITH REPLY $,MRFVAL EQUMRFRPY READ WITH VALIDATION, FLAG MRFRESRESERVED& BITS MRFACC,2 ACCESS PRIVILEGES & FLAG MRFLOCLOCK/UNLOCK .MRFMDS EQUMRFLOC MASTER DO NOT SUSPEND .$ BITS MRFOWN,2OWNERSHIP LEVEL $(MRFEXR EQUMRFOWNEXTENDED REQUEST(0MRFBAD EQUMRFOWN+1 BLANK ADJ/SET EVENT MODE0 .MRFWPM EQUMRFOWN+1 WORD PROCESSING MODE.MRB0SZ EQU$ !" VARNT MRB0SZ  DIOU VARIANT ".MRBCDE EQUMRBUFL CDE NUMBER WITHIN CDT .  BYTE 0  **** RESERVED **** &MRBSEG BYTE 0  SEGMENT IDENTIFIER& MRBNAM CHAR 8 DEVICE NAME   DATA 0 RESERVED"MRBNUM DATA 0 DEVICE NUMBER " MRBDFL FLAGS 16 DIOU FLAGS  FLAG MRFLCKLOCK/UNLOCK   FLAG MRFNAMNAME SPECIFIED  FLAG MRFVRDVIRTUAL DEVICE ( FLAG MRFWCH WHICH RELATIVE DEVICE ( FLAG MRFREPREPLACE 0MRBBUF PTRSTRING PARAMETER BUFFER ADDRESS0(MRBSZD EQU$  SIZE OF DIOU VARIANT(* VARNT MRB0SZ  I/O AND IOU VARIANTS *2MRBDBA WORD 0 BUFFER ADDR (OFFSET TO BUFFER) 2MRBI0CC WORD 0 INPUT CHAR COUNT / ACTUAL OUTPUT 04MRBOCC WORD 0 OUTPUT CHAR COUNT / ACTUAL INPUT 4&MRBISZ EQU$  BASIC I/O MRB SIZE&* '& VARNT MRBISZ  DISK I/O VARIANTS&"MRBTRK WORD 0 TRACK ADDRESS "&MRBSPR BYTE 0  SECTORS PER RECORD&"MRBSCT BYTE 0 SECTOR NUMBER "&MRBDSZ EQU$  DISK I/O MRB SIZE &* ' VARNT MRBISZ MRBADU WORD 0 ADU NUMBER*MRBOFF WORD 0  SECTOR OFFSET INTO ADU** '2 VARNT MRBISZ  TERMINAL I/O BLOCK WITH REPLY20MRBRPY WORD 0 REPLY BLOCK ADDRESS (OFFSET)0*MRBRES WORD 0  (EXTRA WORD BUFFERED) *.MRBRPA WORD 0  REPLY BUFFER ADDR (OFFSET).4MRBRIC WORD 0 REPLY INPUT COUNT FROM REQUESTOR 4MRBROC WORD 0 RE"PLY OUTPUT COUNT FOR REQUESTOR "(MRBRSZ EQU$  BASIC REPLY MRB SIZE(* '6 VARNT MRBISZ  VDT READ BLOCK WITH VDT EXTENSION 66MRBROV WORD 0 ZERO, REPLY PTR, OR VALIDATION PTR 6MRBVAL EQUMRBROV,MRBXFL FLAGS 16  EXTENDED REQUEST FLAGS,, FLAG MRFCSF CURSOR START OF FIELD DEFN , FLAG MRFNTNINTENSITY , FLAG MRFFKR BLINKING CURSOR (FLICKER) ,0 FLAG MRFGRAGRAPHICS DISPLAY (CHAR LT >20) 0 FLAG MRFEBA8-BIT ASCII . FLAG MRFTERENABLE TASK EDIT CHAR RETURN . FLAG MRFBP BEEP. FLAG MRFRDBRIGHT DISPLAY EDGE BOUNDARY .* FLAG MRFCIF CURSOR IN-FIELD DEFINED *$ FLAG MRFFC  FILL CHAR DEFINED $" FLAG MRFIF INITIALIZE FIELD" FLAG MRFRFF REMAIN IN FULL FIELD FLAG MRFECOECHO& FLAG MRFVRQ VALIDATION REQUIRED &$ FLAG MRFVER VERIFICATION ERROR$ FLAG MRFWBPWARNING BEEP&MRBFCH BYTE 0  VDT FILL CHARACTER&"MRBEVT BYTE 0 VDT EVENT BYTE",MRBCRO BYTE 0  VDT CURSOR IN FIELD ROW ,.MRBCCO BYTE 0  VDT CURSOR IN FIELD COLUMN.,MRBFRO BYTE 0  VDT FIELD BEGINNING ROW ,.MRBFCO BYTE 0  VDT FIELD BEGINNING COLUMN.*MRBXSZ EQU$  VDT EXTENSION MRB SIZE** '8 VARNT MRBXSZ  READ WITH VDT EXTN WITH VALIDATION 8"MRBRS2 EQU$ NO LONGER USED"6MRBVXS EQU$ READ WITH EXTN/VALIDATION MRB SIZE 6* '4 VARNT MRBXSZ  WRITE WITH VDT EXTN WITH REPLY 4&MRBRS3 WORD 0  (EXTRA WORD BUFFERED&) 2MRBRY2 WORD 0 REPLY BUFFER POINTER (OFFSET) 24MRBRI2 WORD 0 REPLY INPUT COUNT FROM REQUESTOR 44MRBRO2 WORD 0 REPLY OUTPUT COUNT FOR REQUESTOR 42MRBXRS EQU$ WRITE WITH EXTN/REPLY MRB SIZE 2* '* VARNT MRBISZ  BASIC FILE I/O BLOCK *8MRBRN1 LONG 0 RECORD NUMBER FOR REL REC (2 WORDS) 8.MRBFSZ EQU$  SIZE OF BASIC FILE I/O MRB.* '" VARNT MRBISZ  KIF I/O BLOCK"*MRBCBA WORD 0  CURRENCY BLOCK ADDRESS*MRBRS0 LONG 0 RESERVED"MRBCUR BSS20CURRENCY BLOCK"$MRBKSZ EQU$ SIZE OF KIF MRB $* '( VARNT MRB0SZ  I/O UTILITY VARIANT ("MRBTYP BYTE 0 RESOURCE TYPE "(MRBTFL FLAGS 8 RESOURCE TYPE FLAGS ( BITS 3 RESERVED@  FLAG MRFVD VIRTUAL DEVICE " FLAG MRFREMREMOTE RESOURCE " FLAG MRFCHNCHANNEL  FLAG MRFDEVDEVICE FLAG MRFFILFILE WORD 0 RESERVED WORD 0 RESERVED8MRBKDB WORD 0 KEY INDEX DEFINITION BLOCK (OFFSET) 8MRBRS4 WORD 0 RESERVED.MRBFLG FLAGS 16  UTILITY FLAGS (2 BYTES).( FLAG MRFFCA FILE CREATED BY ASSIGN($ BITS MRFFUS,2FILE USAGE FLAGS$*  00=NO SPECIAL USAGE *  01=DIRECTORY FILE * 10=PROGRAM FILE * 11=IMAGE FILE  BITS MRFSCP,2LUNO SCOPE* 00=TASK LOCAL * 01=JOB LOCAL* 10=GLOBAL * 11=RESERVED $ FLAG MRFGEN AUTOGENERATE LUNO $( FLAG MRFACR REQUEST AUTOCREATE FILE ( 0 FLAG MRFPRM1=MRBPRM VALID (PARMS PRESENT) 00 FLAG MRFLRLUSE LOGICAL REC. LENGTH GIVEN 0* FLAG MRFTMP FILE IS TO BE TEMPORARY *, FLAG MRFIMW IMMEDIATE WRITE DISK FILES ,  BITS MRFDFT,2DATA FORMAT  *  00=NORMAL RECORD IMAGE *  01=BLANK SUPPRESSED * 10,11 RESERVED& FLAG MRFALL ALLOCATION MAY GROW & BITS MRFFTP,2FILE TYPE * 00=RESERVED *  01=SEQUENTIAL FILE *  10=RELATIVE RECORD FILE *  11=KEY INDEXED FILE 4MRBDLL WORD 0  DEFINED LOGICALRECORD LENGTH 44MRBDPL WORD 0  DEFINED PHYSICAL RECORD LENGTH 4,MRBPNA WORD 0  PATHNAME ADDR (OFFSET) ,,MRBPRM WORD 0  PARAMETER PTR (OFFSET) ,MRBRS5 WORD 0  RESERVED 6MRBIFA LONG 0  INITIAL FILE ALLOCATION (2 WORDS) 68MRBSFA LONG 0  SECONDARY FILE ALLOCATION (2 WORDS) 8,MRBUSZ EQU$  SIZE OF IOU CALL BLOCK ,  ENDREC !  PAGE "  LIST " <INTERN = #92E2; "INTERNAL DATA STRUCTURE INCONSISTENCY<H" "------------------------------------------------------------------HH" "------------------------------------------------------------------H( (*$ RESUME LIST *)MM24REQVDT : BOOLEAN;  "MESSAGE REQUIRES VDT? 4(0SENDID : BYTE; "SEND ID FOR TASK COMM 0@SFT  : SKIP_FILE_ARRAY;  "IF SYSTEM VOLUME, SKIP THESE@8SMGFBN : MESSAGE;  "VOLUME STATISTICS MESSAGE 8$SMGFBL : MESSAGE;  "VOLUME S$S39 PN 2S{ UNL#B************************************************************** B *  * <*  GET EVENT KEY BY LUNO SVC BLOCK (S39) 06/09/80  * < *  * B************************************************************** B PCKREC S39 4S39SVC BYTE 0  GET EVENT KEY BY LUNO CODE=#39 46S39ERC BYTE 0  GET EVE%%NT KEY BY LUNO ERROR CODE 6(S39KEY BYTE 0  EVENT KEY RETURNED (.S39LUN BYTE 0  LUNO ASSIGNED TO STATION .  ENDREC !  PAGE "  LIST " ROR) CODE ,VARN0 EQU$ !$ VARNT VARN0 ABORT I/O VARIANT$MRBABF FLAGS 8FLAGS  FLAG MRFDNCDO NOT CLOSE BITS 7 RESERVED(MRBABL BYTE 0  LOGICAL UNIT NUMBER (MRBASZ EQU$ ABORT I/O MRDS403REXPN*2T{@B************************************************************** B* '** REMOTE DEVICE EXTENSIONS FOR HSR403*&*  LENGTH IS NO LONGER THAN >20 &* ' *  ORIGINAL:PDW 1/27/83  * 'B************************************************************** B DORG HSRBGN*EXTTMR DATA 0  TIMER DURATION VALUE **EXTRG3 DATA 0  ACE REGISTER 3 IMAGE **EXTRG4 DATA 0  ACE REGISTER 4 IMAGE **EXTRG7 DATA 0  ACE REGISTER 7 IMAGE *&EXTSPD BYTE >00  SPEED CODE COPY&:EXTSDC BYTE >00  DATA BYTE TO SAVE SDCD STATUSR08 :$EXTR0 DATA 0  01R0 TEMP SAVE $$EXTR7 DATA 0  01R7 TEMP SAVE $$EXTR11 DATA 0  01R11 TEMP SAVE$(EXTCNT DATA 0  06TEMP SAVE FOR 1/4 S(EC DELAY LOOP   RORG " CESSING MODE.MRB0SZ EQU$ !" VARNT MRB0SZ  DIOU VARIANT ".MRBCDE EQUMRBUFL CDE NUMBER WITHIN CDT .  BYTE 0  **** RESERVED **** &MRBSEG BYTE 0  SEGMENT IDENTIFIER& MRBNAM CHAR 8 DEVICE NAME   DATA 0 RESERVED"MRBNUM DATA 0 DEVICE NUMBER " MRBDFL FLAGS 16 DIOU FLAGS  FLAG MRFLCKLOCK/UNLOCK   FLAG MRFNAMNAME SPECIFIED  FLAG MRFVRDVIRTUAL DEVICE ( FLAG MRFWCH WHICH RELATIVE DEVICE ( FLAG MRFREPREPLACE 0MRBBUF PTRSTRING PARAMETER BUFFER ADDRESS0(MRBSZD EQU$  SIZE OF DIOU VARIANT(* VARNT MRB0SZ  I/O AND IOU VARIANTS *2MRBDBA WORD 0 BUFFER ADDR (OFFSET TO BUFFER) 2MRBIKIB PN$2U{@ UNL#@************************************************************ @ *  * 2 * KIF INFORMATION BLOCK (KIB) 02/26/80 * 2 *  * .* LOCATION: DISK AND BUFFER SEGMENT  * .@************************************************************ @6* THE KIB DESCRIBES A KEY INDEXED FILE DATA BLOCK.6* ' * SPECIAL FIELD COMMENTS: @* KIBBLK -THE PHYSICAL RECORD NUMBER OF THIS BLOCK. THIS @6* FIELD IS MAINTAINED SO THAT IF A SYSTEM CRASH 66* OCCURS WHILE THIS BLOCK IS BEING MODIFIED, THE 68* LOGGED IMAGE CAN BE RESTORED TO THE CORRECT FILE 8* RECORD. <* KIBCMD -THE OPCODE OF THE CURRENT COMMAND.THIS IS <(* MAINTAINED FOR LOGGING PURPOSES.(* KIBS8R -THE NUMBER OF BYTES REMAINING IN THE PHYSICAL 8* RECORD. @* KIBFCB -THIS FIELD IS USED TO LINK THE BLOCK ON THE FREE @* BLOCK CHAIN.>* KIBRSZ -THE SIZE IN BYTES OF THE FIRST LOGICAL RECORD >*  INCLUDING THIS WORD.  DORG 0 ! KIBBLK LONG 0 BLOCK NUMBER "KIBCMD WORD 0 COMMAND NUMBER",KIBSR WORD 0  SPACE REMAINING IN BYTES ,*KIBOFB EQU$  OVERFLOW BLOCK POINTER*&KIBFCB LONG 0  FREE CHAIN POINTER&2KIBHID WORD 0 HIGHEST LOGICAL RECORD ID USED 2.KIBRSZ WORD 0  RECORD SIZE OF 1ST RECORD ..KIBRID WORD 0  ID OF FIRST LOGICAL RECORD .  RORG "  PAGE "  LIST " WAITING FOR BID TASK SVC COMPLETIONJSB PN%2V{ UNL#@************************************************************ @ *  * . * JOB STATUS BLOCK  (JSB)09/09/83 * . *  * "*  LOCATION: SYSTEM AREA  * "@************************************************************ @<* THE JSB PROVIDES THE INFORMATION ABOUT A JOB WHICH IS <@* NEEDED BY DNOS WHETHER OR NOT THE JOB COMMUNICATION AREA @<* IS IN MEMORY.THIS INFORMATION INCLUDES FLAGS, QUEUE <8* LINKS, STATUS INFORMATION, AND JCA LOCATION DATA.8  DORG 0 ! *JSBJSB PTRJSB  POINTER TO NEXT JSB *,JSBJID DATA 0  JOB ID (UNIQUE TO SITE) ,JSBFLG FLAGS 8JOB FLAGS . FLAG JSFVERBY-PASS VERIFICATION CHECKS ., FLAG JSFACC ACCOUNTING STARTED FOR JOB ,BS0  FLAG JSFBACBACKGROUND JOB "JSBTCT BYTE 0 JOB TASK COUNT" JSBPRI BYTE 0 JOB PRIORITY JSBSTA BYTE 0 JOB STATE .JSBAPR BYTE 0  ACTIVE PRIORITY (HIGHEST) .2JSBWPR BYTE 0 WAITING ON MEMORY PRI(HIGHEST) 2(JSBQL PTRJSB  ACTIVE QUEUE LINK (4JSBWOM PTRJSB LINK FOR WAITING MEMORY QUEUE 44JSBEOR DATA 0 END OF REQUEST PROCESSING ANCHOR 4*JSBJCA PTRSSB  SSB ADDRESS FOR JCA *2JSBSMT PTRSSB SM TABLE SSB ADDRESS FOR JCA 2JSBNAM CHAR 8 JOB NAME"JSBUID CHAR 8 USER ID OF JOB"4JSBWOT PTRJSB TABLE AREA JSB WAIT QUEUE LINK 42JSBVER PTRJSB PTR TO SELF FOR VERIFICATION 2JSBSIZ EQU$ !  RORG "  PAGE "  LIST " COMPLETIONLPD PO""2W{@ UNL#@************************************************************ @ *  * 4* LINE PRINTER PDT EXTENSION (LPD) 04/21/82 * 4 *  * "*  LOCATION: SYSTEM AREA  * "@************************************************************ @@* THE LPD IS AN EXTENSION TO THE PHYSICAL DEVICE TABLE (PDT) @>* FOR A LINE PRINTER. IT CONTAINS POINTERS AND FLAGS USED >8* BY THE LINE PRINTER DEVICE SERVICE ROUTINE (DSR). 8 DORG LPDBGN&LPDIFF FLAGS 16  INTERFACE FLAGS&, FLAG LPFIF INTERFACE(0<=DM; 0>EIA),0 FLAG LPFUC UPPERCASE ONLY (0=YES; 1=NO) 04 FLAG LPFBSY  "RO" TERMINAL BUSY(0=NO ,1=YES) 4( FLAG LPF902  9902 INTERFACE FLAG($ FLAG LPFEOR  END-OF-RECORD FLA$G "* 1 = SAFE TO ISSUE ENDRCD " * 0 = DON'T ISSUE ENDRCD   BITS 11  RESERVED *LPDQCC WORD 0  QUEUE CHARACTER COUNT**LPDQIP WORD $+6  QUEUE INPUT POINTER*,LPDQOP WORD $+4  QUEUE OUTPUT POINTER ,* LPDQEP WORD $+2+4  QUEUE END POINTER*&LPDBUF BSS4  CHARACTER BUFFER &*LPDQSZ DATA 4  CHARACTER QUEUE SIZE *$LPDSPX BYTE 0  TRANSMIT SPEED $"LPDSPR BYTE 0  RECEIVE SPEED"* 'LPDSIZ EQU$ !  RORG "  PAGE "  LIST " EPREPLACE 0MRBBUF PTRSTRING PARAMETER BUFFER ADDRESS0(MRBSZD EQU$  SIZE OF DIOU VARIANT(* VARNT MRB0SZ  I/O AND IOU VARIANTS *2MRBDBA WORD 0 BUFFER ADDR (OFFSET TO BUFFER) 2MRBI QHR PO2X{@ UNL#@************************************************************ @ *  * ** QUEUE HEADER (QHR) 09/06/79 * * *  * &*  LOCATION: SYSTEM ROOT, JCA  * &@************************************************************ @<* QUEUE HEADERS FOR SYSTEM QUEUE SERVERS THAT RUN IN THE <:* SYSTEM JOB ARE BUILT DURING SYSTEM GENERATION IN THE ::* SYSTEM ROOT.QUEUE HEADERS FOR SYSTEM QUEUE SERVERS :<* THAT RUN IN A USER'S JOB ARE BUILD IN THE JCA WHEN THE <>* JOB IS CREATED. EACH QUEUE HEADER FOLLOWS THE QHR FORM. >  DORG 0 ! ,QHRNEW DATA 0  ADDRESS OF NEWEST ENTRY ,,QHROLD DATA 0  ADDRESS OF OLDEST ENTRY ,.QHRCNT BYTE 0  NUMBER OF ENTRIES ON QUEUE .QHRTID BYTE 0 SERVER TASK ID.QHRTSB DATA 0  TSB ADDRESS OF SERVER TASK ..QHRJSB DATA 0  JSB ADDRESS OF SERVER TASK .0QHRLUN BYTE 0 PROGRAM FILE LUNO FOR SERVER 0 BYTE 0 RESERVEDQHRSIZ EQU$ !  RORG "  PAGE "  LIST " @@* THE LPD IS AN EXTENSION TO THE PHYSICAL DEVICE TABLE (PDT) @>* FOR A LINE PRINTER. IT CONTAINS POINTERS AND FLAGS USED >8* BY THE LINE PRINTER DEVICE SERVICE ROUTINE (DSR). 8 DORG LPDBGN&LPDIFF FLAGS 16  INTERFACE FLAGS&, FLAG LPFIF INTERFACE(0<=DM; 0>EIA),0 FLAG LPFUC UPPERCASE ONLY (0=YES; 1=NO) 04 FLAG LPFBSY  "RO" TERMINAL BUSY(0=NO ,1=YES) 4( FLAG LPF902  9902 INTERFACE FLAG($ FLAG LPFEOR  END-OF-RECORD FLA$S21 PO2Y{ UNL#B************************************************************** B *  * 8*  SYSTEM LOG MESSAGE BLOCK (S21) 04/22/80 * 8 *  * B************************************************************** B PCKREC S21 (S21SVC BYTE 0  SYS LOG OP CODE=#21((S21ERC BYTE 0  SYS LOG ERROR CODE ($S21UNU DATA 0  *** UNUSED *** $.S21MSG DATA 0  ADDRESS OF MESSAGE STRING.&S21RES DATA 0  *** RESERVED *** &  ENDREC !  PAGE "  LIST " FLAG LPFIF INTERFACE(0<=DM; 0>EIA),0 FLAG LPFUC UPPERCASE ONLY (0=YES; 1=NO) 04 FLAG LPFBSY  "RO" %%TERMINAL BUSY(0=NO ,1=YES) 4( FLAG LPF902  9902 INTERFACE FLAG($ FLAG LPFEOR  END-OF-RECORD FLA$"DOR PO2[{@ UNL#@************************************************************ @ *  * 6* DIRECTORY OVERHEAD RECORD(DOR)  01/31/79 * 6 *  * * LOCATION: DISK  * @************************************************************ @@* THE DOR IS THE FIRST RECORD (RECORD 0) OF A DIRECTORY FILE @@* AND SHOWS THE MAXIMUM SIZE AND CURRENT USE OF A DIRECTORY. @  DORG 0 ! *DORNRC DATA 0  # RECORDS IN DIRECTORY*2DORNFL DATA 0 # FILES CURRENTLY IN DIRECTORY 2*DORNAR DATA 0  # OF AVAILABLE RECORDS*.DORTFC DATA 0  NUMBER OF TEMPORARY FILES .(DORDNM BSS8  DIRECTORY FILE NAME ((DORLVL DATA 0  LEVEL # OF DIRECTORY((DORPNM BSS8  NAME OF PARENT FILE (DORPRS DATA 0 "DEFAULT PHYSICAL RECORD LENGTH ""*  (USED FOR FILE CREATION) "DORSIZ EQU$ !  RORG "  PAGE "  LIST " 2/80 * 8 *  * B************************************************************** B PCKREC S21 (S21SVC BYTE 0  SYS LOG OP CODE=#21((S21ERC BYTE 0  SYS LOG ERROR CODE ($S21UNU DATA 0  *** UNUSED *** $.S21MSG DATA 0  ADDRESS OF MESSAGE STRING.&S21RES DATA 0  *** RESERVED *** &  ENDREC !  PAGE "  LIST " FLAG LPFIF INTERFACE(0<=DM; 0>EIA),0 FLAG LPFUC UPPERCASE ONLY (0=YES; 1=NO) 04 FLAG LPFBSY  "RO" TERMINAL BUSY(0=NO ,1=YES) 4( FLAG LPF902  9902 INTERFACE FLAG($ FLAG LPFEOR  END-OF-RECORD FLA$#BTB POA`2\{@ UNL#@************************************************************ @ *  * , * B - TREE BLOCK (BTB)  09/07/79 * , *  * .* LOCATION: DISK AND BUFFER SEGMENTS * .@************************************************************ @B* THE BTB DESCRIBES THE OVERHEAD INFORMATION REQUIRED TO SORT BB* THE LOGICAL RECORDS OF A KEY INDEXED FILE.THE BTB RESIDES B>* ON DISK AND IS READ INTO MEMORY WHEN USING A RECORD THAT >* IT DESCRIBES. * ' * SPECIAL FIELD COMMENTS: B* BTBPPT - IF THIS BLOCK IS BEING USED AS A B-TREE NODE, THIS B4*  FIELD IS THE PHYSICAL RECORD NUMBER OF THE 4:*  PRECEDING NODE ON THE SAME LEVEL (ZERO IF THIS IS :*  THE LEFTMOST NODE). IF THIS BLOCK IS AVAILABLE :*  FOR USE, THIS FIELD POINTS TO THE NEXT AVAILABLE :*  BLOCK. :* BTBNIE - NUMBER OF POINTER/KEY VALUE PAIRS CURRENTLY :"*  CONTAINED IN THIS BLOCK. ">* BTBNEA - THIS BYTE IS ZERO WHEN THE BLOCK IS INITIALIZED >:*  BECAUSE OF A B-TREE SPLIT. WHEN THE FIRST ENTRY :6*  IS MADE TO THE BLOCK, THIS BYTE CONTAINS THE 68*  NUMBER OF ENTRIES IN THE BLOCK THAT ARE GREATER 8*  THAN THE NEW ENTRY.<* BTBNEC - WHEN THE BLOCK IS INITIALIZED DUE TO A B-TREE <:*  SPLIT, THIS VALUE IS THE MAXIMUM ENTRIES THAT MAY :8*  BE INSERTED INTO THE BLOCK, PLUS ONE.FOR EACH 8:*  SUBSEQUENT ENTRY TO THIS BLOCK, IF THE NUMBER OF :*  ENTRIES IN TH*E BLOCK THAT ARE GREATER THAN THE NEW *6*  ENTRY EQUALS THE NUMBER IN BTBNEA, BTBNEC IS 64*  DECREMENTED BY ONE. WHEN THIS B-TREE BLOCK 4<*  IS ABOUT TO SPLIT, IF BTBNEC IS ZERO, THE SPLIT IS <:*  AT A RATIO OF THE LOWER 90% OF THE ENTRIES ARE IN :>*  ONE BLOCK AND THE UPPER 10% IN THE OTHER.OTHERWISE,>"*  THE SPLIT IS 50% TO EACH."@* BTBDBK - IF THIS IS A NON-LEAF NODE, THE FIRST FOUR BYTES @>*  CARRY THE RECORD NUMBER OF A BRANCH OR LEAF NODE AND >>*  THE LAST TWO BYTES ARE NOT MEANINGFUL. IF THIS IS A >@*  LEAF NODE, THE FIRST FOUR BYTES CONTAIN A RECORD NUMBER@<*  OF A DATA RECORD AND THE LAST TWO BYTES CONTAIN THE <(*  ID OF THE LOGICAL RECORD WITHIN T(HE DATA RECORD. H"* BTBCMD - THIS FIELD IS USED WHEN THIS RECORD HAS TO BE PRELOGGED. HB*  IT IDENTIFIES ALL THE RECORDS PRELOGGED BY THE OPERATION.B(  DORG 0 ! 2BTBBLK LONG 0 BLOCK NUMBER (2 WORD PHYSICAL 2$*  RECORD NUMBER OF THIS BTB) $"BTBCMD WORD 0 PRELOG NUMBER "2BTBSR WORD 0 SPACE REMAINING (BYTES) IN BTB 20BTBPPT LONG 0 PREDECESSOR OR FREE POINTER 0&BTBSPT LONG 0  SUCCESSOR POINTER &,BTBNIE BSS1  NUMBER OF INDEX ENTRIES ,6BTBLE BSS1 LEAF ENTRY FLAG(1=THIS IS A LEAF) 60BTBNEA BSS1 # OF ENT. AFTER LAST INSERT 0,BTBNEC BSS1  COUNT OF # SEQ. INSERTS ,*BTBDBK BSS6  B-BLOCK DATA BASE KEY *&BTBKVL WORD 0  FIRST POINTER/KEY VA& LUE PAIR * 'BTBSIZ EQU$ !  RORG "  PAGE "  LIST " <* MASTER READ/MASTER WRITE BUFFER(MRB)  04/04/83 * < *  * *  LOCATION: TASK AREA  * *  * @************************************************************ @@* THE MRB IS A DESCRIPTION OF THE DATA BUFFER RETURNED TO A @>* CHANNEL OWNER TASK IN ITS MASTER READ BUFFER. THIS SAME >@* BUFFER STRUCTURE IS USED IN THE MASTER WRITE OPERATION OF @:* THE OWNER TASK. ALL BUFFER POINTERS IN THE MRB ARE :<* RELATIVE OFFSETS FROM THE BEGINNING OF THE MRB, RATHER <$* THAN BEING ABSOLUTE ADDRESSES.$@* MRB VARIANTS ARE PROVIDED FOR THE MAJOR TYPES OF I/O CALL @>* BLOCKS: BASIC FILE I/O, I/O WITH R"S17 PO&2]{ UNL#B************************************************************** B *  * :* TASK GET PARAMETERS SVC BLOCK (S17) 05/13/80 * : *  * B************************************************************** B PCKREC S17 *S17SVC BYTE 0  GET PARMS OP CODE=#17**S17ERC BYTE 0  GET PARMS ERROR CODE *. VARNT S17ERC+1  WORD DEFINITION VARIANT.&S17PW1 DATA 0  1ST WORD OF PARMS&&S17PW2 DATA 0  2ND WORD OF PARMS&. VARNT S17ERC+1  BYTE DEFINITION VARIANT.&S17PB1 BYTE 0  1ST BYTE OF PARMS&&S17PB2 BYTE 0  2ND BYTE OF PARMS&&S17PB3 BYTE 0  3RD BYTE OF PARMS&&S17PB4 BYTE 0  4TH BYTE OF PARMS&  ENDREC !  PAGE "  LIST " T NODE). FDP O)p2^{ UNL>************************************************************>*  *2 * FILE DESCRIPTOR PACKET (FDP)  06/22/81 *2*  *** LOCATION: ALWAYS A SUB-STRUCTURE **>************************************************************>9* THE FDP IS A TWO WORD ADDRESS OF A FILE CONTROL BLOCK9<* (FCB). THE FIRST WORD IS THE SSB ADDRESS OF THE TABLE IN<1* WHICH THE SECOND WORD IS THE LOGICAL ADDRESS.1  DORG 0 6FDPFMT PTRSSB  SSB ADDRESS OF FILE MANAGER TABLE6 FDPFCB PTRFSC  FCB ADDRESS *FDPSIZ EQU$ RORG PAGE LIST&&S17PB3 BYTE 0  3RD BYTE OF PARMS&&S17PB4 BYTE 0  4TH BYTE OF PARMS&  ENDREC !  PAGE "  LIST " T NODE).#SCB P O,@82`{@ UNL#@************************************************************ @ *  * 2*  S$SPLR CONTROL BLOCK (SCB)  01/26/84 * 2 *  * @************************************************************ @>* THE SCB TEMPLATE IS THE CONTROL BLOCK FILLED BY THE USER >@* TO PASS A REQUEST TO THE SPOOLER. THE USER LINKABLE ROUTNE @>* S$SPLR RE-FORMATS THIS INFORMATION INTO A MESSAGE PASSED > * OVER THE SPOOLER CHANNEL.  * ' PCKREC SCB SCBOP BYTE 0  OP CODE* 01 = PRINT* 02 = HALT * 03 = RESUME * 04 = KILL *  05 = MODIFY OUTPUT*  06 = MODIFY DEVICE* 07 = VERIFY SCBFL0 FLAGS 8 FLAGS FLAG SCFDVPTRUE=USE SCBDV P INSTEAD OF SCBDEV 4 FLAG SCFODVTRUE=PTR SCBODV IS VALID (FOR MO) 4 BITS 6*** RESERVED ***$SCBFLG FLAGS 16  STATUS FLAGS $* FLAG SCFUSE TRUE=DELETE DEVICE ENTRY *0 FLAG SCFAVLTRUE=NOT AVAILABLE TO SPOOLER 06 FLAG SCFPGDTRUE=REVERSE PAGING (RESUME OUTPUT) 6" FLAG SCFR1 *** RESERVED ***"" FLAG SCFR2 *** RESERVED ***"  FLAG SCFANSTRUE=ANSI FILE . FLAG SCFBNRTRUE=NO BANNER SHEET DESIRED .2 FLAG SCFDAPTRUE=DELETE FILE AFTER PRINTING 20 FLAG SCFIMMTRUE=HALT IMMEDIATELY INSTEAD 0*  OF HALT AT EOF " FLAG SCFR3 *** RESERVED ***"" FLAG SCFR4 *** RESERVED ***"" FLAG SCFR5 *** RESERVED ***"& FLAG SCFSHR TRUE=REMOTE/SHARED DEV&ICE . FLAG SCFDALTRUE=DELETE ALWAYS (EVEN ON .*  KILL OUTPUT) , FLAG SCFNPJ TRUE=NO PAGE EJECT BEFORE ,*  PRINTING 2SCBSID CHAR 6  SPOOL ID (RETURNED ON PRINT) 2*SCBDEV CHAR 8  DEVICE OR CLASS NAME *0SCBUSR WORD  ADDRESS OF USER ID SCI STRING 02SCBJNM W%%ORD  ADDRESS OF JOB NAME SCI STRING 26SCBPTH WORD  PRINT PATHNAME ADDRESS (SCI STRING) 6.SCBFRM WORD  ADDRESS OF FORMS SCI STRING.0SCBPAG WORD  FORWARD / REVERSE PAGE COUNT 0,SCBCOP BYTE 0  NUMBER OF COPIES COUNT ,.SCBLPP BYTE 0  NUMBER OF LINES PER PAGE ."SCBPRI BYTE 0  NEW PRIORITY "@* NOTE: FOR MODIFY OUTPUT COMMANDS, THE USER SHOULD SPECIFY @"* THE SCBPRI FIELD TO BE >FF I" F HE DOES NOT WANT THE *  PRIORITY TO CHANGE. &SCBXXX BYTE 0  *** RESERVED *** &6SCBDVP WORD  ADDRESS OF DEVICE/CLASS SCI STRING 62SCBODV WORD  ADDRESS OF OLD DEVICE/CLASS SCI 2**  STRING (FOR 'ALL' OPTION OF 'MO') *  ENDREC !  PAGE "  LIST " BTBCMD - THIS FIELD IS USED WHEN THIS RECORD HAS TO BE PRELOGGED. HB*  IT IDENTIFIES ALL THE RECORDS PRELOGGED BY THE OPERATION.B(  DORG 0 ! 2BTBBLK LONG 0 BLOCK NUMBER (2 WORD PHYSICAL 2$*  RECORD NUMBER OF THIS BTB) $BT FLAG MRFFC  FILL CHAR DEFINED $" FLAG MRFIF INITIALI 22k4`4 @*  BLOCK. :* BTBNIE - NUMBER OF POINTER/KEY VALUE PAIRS CURRENTLY :"*  CON#VRB PO8~2a{@ UNL#F!***************************************************************** F * *  4*  VIRTUAL REQUEST BLOCK  (VRB) 8/22/83* 4 * *  0* LOCATION: SYSTEM TABLE AREA AND JCA * 0 * *  F!***************************************************************** FD * DEFINITIONS OF FIELDS IN DSR CALL BLOCK (DATA BUFFER FOR I/O D4* SVC SUBOPCODE >17) FOR VIRTUAL TERMINAL DSR. 4* ' PCKREC VRB&VRBOC BYTE 0  VTDSR REQUEST CODE&&VRBEC BYTE 0  VTDSR RETURN CODE &2VRBVT DATA 0 VIRTUAL TERMINAL NUMBER (HEX) 2VRBCHR BYTE 0 BID CHAR"VRBLC BYTE 0 LUNO USE COUNT"VRBJOB DATA 0 PDTJOB*VRBRDN ARRAY 7,WORD REMOTE DEVICE NAME* VRBJID D ATA 0  REAL TERM JOB I.D.&VRBIPC ARRAY 6,WORD OWNER IPC NAME&  ENDREC !  PAGE "  LIST " D ON PRINT) (*SCBDEV CHAR 8  DEVICE OR CLASS NAME *0SCBUSR WORD  ADDRESS OF USER ID SCI STRING 02SCBJNM WORD  ADDRESS OF JOB NAME SCI STRING 26SCBPTH WORD  PRINT PATHNAME ADDRESS (SCI STRING) 6SCBFRM WORD  ADDRESS OF ACH."@* BTBDBK - IF THIS IS A NON-LEAF NODE, THE FIRST FOU"Y k4`4ICE . FLAG SCFDALTRUE=DELETE ALWAYS (EVEN ON .*  KILL OUTPUT) , FLAG SCFNPJ TRUE=NO PAGE EJECT BEFORE ,*  PRINTING 2SCBSID CHAR 6  SPOOL ID (RETURNED ON PRINT) 2*SCBDEV CHAR 8  DEVICE OR CLASS NAME *0SCBUSR WORD  ADDRESS O*LSE PO>2b{ UNL#@************************************************************ @ *  * 0 * LOAD SEGMENT ENTRY (LSE) 04/04/79 * 0 *  * * LOCATION: JCA  * @************************************************************ @>* THE LSE DESCRIBES A SEGMENT WHICH IS LOADED INTO MEMORY >B* WHILE THIS TASK IS RUNNING, BUT MAY NOT CURRENTLY BE MAPPED B0* IN TO THE TASK. IT IS LINKED TO THE TSB. 0  DORG 0 ! 6LSELSE PTRLSE  LINK TO NEXT LOAD SEGMENT ENTRY 64LSESSB PTRSSB  SSB ADDRESS OF LOADED SEGMENT 4.LSESMT PTRSSB  SM TABLE AREA SSB ADDR..LSESIZ EQU$ !  RORG "  PAGE "  LIST " PDTJOB*VRBRDN ARRAY 7,WORD REMOTE DEVICE NAME* VRBJID D *XTK POAJ2d{@ UNL#@************************************************************ @ *  * 6* EXTENTION FOR A TERMINAL (XTK)  02/12/82 * 6* WITH A KEYBOARD  *  *  * "*  LOCATION: SYSTEM AREA  * "@************************************************************ @<* THE XTK IS AN EXTENSION TO THE PDT USED TO DESCRIBE A <<* DEVICE WITH A KEYBOARD. IT IS USED AS A WORK AREA BY <* THE DSR.# DORG XTKBGN2XTKXUF WORD 0 EXTENDED USER FLAGS FROM BRB 2&XTKFLG FLAGS 8 XTK GENERAL FLAGS&* FLAG KSFHNG HANG UP CONDITION ON 745 ** FLAG KSFTMS TIME-OUT SWITCH FOR 745 *, FLAG KSFSCI SCI ACTIVE DURING HANG UP ,, FLAG KSFDCD DATA CARRIER DROP DETECTED , FLAG &KSFSIO SHIFT IN/SHIFT OUT JISCII &. FLAG KSFDIFDIRECT CHAR INPUT REQUESTED .4XTKSCH BYTE 0  SAVED CHAR FOR JISCII TERMINAL 4(XTKFIL EQUXTKFLG FILL CHARACTER(*XTKEVT EQUXTKFLG+1 EVENT CHARACTER*0XTKCRD WORD 0  CARRIAGE RETURN DELAY COUNT08XTKPOS EQUXTKCRD WITHIN  FIELD CURSOR POSITION 80XTKICD WORD 0  INTER-CHARACTER DELAY COUNT08XTKDEF EQUXTKICD START OF FIELD CURSOR POSITION 8,*XTKVTA WORD 0 VALIDATION TABLE ADDRESS,.XTKSSC WORD 0  SAVED STATUS OF CASSETTES.4XTKJIN EQUXTKSSC ASCII/JISCII INTENSITY MASK42XTKABT WORD 0  CODE ADDRESS TO PERFORM ABORT 2$XTKSC1 EQUXTKABT SCRATCH # 1$4XTKTMO WORD 0  TIME-OUT COUNT FOR HANG CONDITION4 $XTKSC2 EQUXTKTMO SCRATCH # 2$0XTKPFR WORD 0  POWER FAIL FLAG/BUFFER BIAS04EDTFL0 FLAGS 16  EXTENDED EDIT FLAGS - WORD 0 4  BITS 1  PASS-THROUGH MODE 0 BITS 1  940-IN PTM, TERMINATE READ ON ETX 02 BITS 1  940-IN PTM, TERMINATE READ ON ESC-) 2( BITS 1  USED, BUT NOT DOCUMENTED (2 BITS 1  940-DISABLE USE OF BIT 0 FOR INTEN 26 BITS 1  940-ALLOW ESC & SOH IN WRITE ASCII BUF 62 BITS 1  940-IGNORE DISPLAY CHARACTERS, ETC. 20 BITS 1  940-1=132 COL MODE; 0=80 COL MOD 0. FLAG MDTCHK POST DATA MODIFIED ON READ ., FLAG EXVAL  EXTENDED CHAR VALIDATION ,. FLAG NULFLG NULL CHARACTER SUPPRESSION .( FLAG CNBFLG CONVERT NULL TO BLANK(  BITS 1    KANJI  BITS 3  RESERVED 2EDTFL1 FLAGS 16  EXTENDED EDIT FLAG - WORD 12, BITS 1  TERMINATE READ ON ERASE FIELD ,, BITS 1  TERMINATE READ ON RIGHT FIELD ,0 FLAG LEFARO TERMINATE READ ON LEFT ARROW 0$ BITS 1  TERMINATE READ ON TAB$* BITS 1  TERMINATE READ ON UP ARROW *& BITS 1  TERMINATE READ ON SKIP && BITS 1  TERMINATE READ ON HOME &( BITS 1  TERMINATE READ ON RETURN (, BITS 1  TERMINATE READ ON ERASE INPUT ,, BITS 1  TERMINATE READ ON BLANK GRAY ,, BITS 1  TERMINATE READ ON DELETE CHAR ,, BITS 1  TERMINATE READ ON INSERT CHAR ,0 FLAG RITARO TERMINATE READ ON RIGHT ARROW 0& BITS 1  TERMINATE READ ON ENTER& BITS 1  TERMI NATE READ ON LEFT FIELD , BITS 1  TERMINATE READ ON DOWN ARROW ,* 'XTKSIZ EQU$ !*XTKBUF EQUXTKSIZ CHARACTER BUFFER *  RORG "  PAGE "  LIST " *  * @************************************************************ @@* THE MRB IS A DESCRIPTION OF THE DATA BUFFER RETURNED TO A @>* CHANNEL OWNER TASK IN ITS MASTER READ BUFFER. THIS SAME >@* BUFFER STRUCTURE IS USED IN THE MASTER WRITE OPERATION OF @:* THE OWNER TASK. ALL BUFFER POINTERS IN THE MRB ARE :<* RELATIVE OFFSETS FROM THE BEGINNING OF THE MRB, RATHER <$* THAN BEING ABSOLUTE ADDRESSES.$@* MRB VARIANTS ARE PROVIDED FOR THE MAJOR TYPES OF I/O CALL @>* BLOCKS: BASIC FILE I/O, I/O WITH R,DDR POP2e{ UNL#@*********************************************************** @ * * 6* DIRECTORY DESCRIPTOR RECORD (DDR) 06/05/79 * 6 * * (* LOCATION: SYSTEM TABLE AREA * (@*********************************************************** @:* THE DDR IS AN IN-MEMORY STRUCTURE USED FOR LOCKING A :>* DIRECTORY SO THAT ONLY ONE TASK CAN ACCESS IT AT A TIME. >0* IT IS ATTACHED TO THE DIRECTORY STRUCTURE.0  DORG 0 ! 0DDROWP PTRDDP  OLDEST WAITING DDP ADDRESS 0 DDRLKT DATA 0 LOCKING FLAG * 'DDRSIZ EQU$ DDR SIZE  RORG "  PAGE "  LIST " 745 *, FLAG KSFSCI SCI ACTIVE DURING HANG UP ,, FLAG KSFDCD DATA CARRIER DROP DETECTED , FLAG -KIL POS"2f{ UNL#@************************************************************ @* '* * KILL QUEUE ENTRY (KIL) 2/06/79 ** '$* LOCATION: SYSTEM TABLE AREA$@************************************************************ @  DORG 0 ! &KILLNK PTRKIL KILL QUEUE LINK &KILCDE BYTE 0 KILL CODE  BYTE 0 RESERVED0KILJSB PTRJSB  PTR TO JSB OF KILLED TASK 00KILTSB PTRTSB  PTR TO TSB OF KILLED TASK 0KILSIZ EQU$ !  RORG "  PAGE "  LIST " T " L  1`  #  1   1   W   1 %% .KDB POV2g{@ UNL#@************************************************************ @ *  * 0* KEY DESCRIPTOR BLOCK (KDB)  09/10/79 * 0 *  * (* LOCATION: STA (PART OF IRB)  * (@************************************************************ @>* THE KDB IS PART OF A CREATE KEY INDEXED FILE I/O REQUEST >2* BRB WHICH DESCRIBES THE KEYS TO BE CREATED. 2  DORG 0 ! KDBOVH DATA 0 OVERHEAD0KDBMLR DATA 0,0  MAX NUMBER LOGICAL RECORDS 0"KDBNKY DATA 0 NUMBER OF KEYS".KDBOFF BSS4*14 SPACE FOR MAXIMUM # KEYS ..KDBMKY EQU14 MAXIMUM # OF KEYS IN FILE .&KDBMSZ EQU100 MAXIMUM KEY SIZE&$ DORG 0  DESCRIPTION OF ONE KEY$KDBFGS FLAGS 8FLAGS  BITS 3 *** RESE RVED *** . FLAG KDBPLGBIT 3 SET IF PARTIAL LOGGING .. FLAG KDB33 BIT 4 SET IF SEQUENTIAL KIF .. FLAG KDBOFGBIT 5 SET IF KEY IS OPTIONAL .0 FLAG KDBSFGBIT 6 SET IF SEQUENTIAL CMNDS 0, FLAG KDBDFG BIT 7 SET IF DUPLICATES OK ,0KDBSIZ BYTE 0 NUMBER OF CHARACTERS IN KEY 0(KDBO DATA 0  KEY OFFSET IN RECORD(*KDBNXT EQU$  SIZE OF KEY DESCRIPTOR*  RORG "  PAGE "  LIST " 0  DORG 0 ! 0DDROWP PTRDDP  OLDEST WAITING DDP ADDRESS 0 DDRLKT DATA 0 LOCKING FLAG * 'DDRSIZ EQU$ DDR SIZE  RORG "  PAGE "  LIST " 745 *, FLAG KSFSCI SCI ACTIVE DURING HANG UP ,, FLAG KSFDCD DATA CARRIER DROP DETECTED , FLAG 0SOB PO\82h{ UNL#@************************************************************ @ *  * 0 * SEGMENT OWNER BLOCK(SOB) 09/23/81 * 0 *  * * LOCATION: SMT  * @************************************************************ @>* THE SOB IS USED TO IDENTIFY THE TASK WHICH HAS EXCLUSIVE >2* USE OF A SEGMENT. IT IS LINKED TO THE SSB. 2  DORG 0 ! 0SOBJSB PTRJSB  JSB ADDRESS OF SSB OWNER 00SOBTSB PTRTSB  TSB ADDRESS OF SSB OWNER 0SOBSIZ EQU$ !  RORG "  PAGE "  LIST " MUM # KEYS ..KDBMKY EQU14 MAXIMUM # OF KEYS IN FILE .&KDBMSZ EQU100 MAXIMUM KEY SIZE&$ DORG 0  DESCRIPTION OF ONE KEY$KDBFGS FLAGS 8FLAGS  BITS 3 *** RESE0IOUOP PO_;22i{@P UNL PP************************************************************ PP* * PP* IOU SUBOPCODES (IOUOP) 08/31/83 * PP* * PP************************************************************ PP* THIS TABLE CONTAINS ALL IOU SUBOPCODES. PP* THE FORMAT OF EACH ENTRY IN THE TABLE IS: PP* DATA 00+VAL P* WHEJRE THE VAL IS A SYMBOL DEFINED BY THE MODULE JP* COPYING THIS FILE; THUS, EACH OPCODE ENTRY IN THIS TABLE PP* CAN CONTAIN MODULE-SPECIFIC DATA. ALSO, IF A NEW ENTRY PP* IS DEFINED IN THIS TABLE, THE SYMBOL "VAL" WILL PP* BE UNDEFINED, MAKING MODULES WHICH MUST UNDERSTAND ALL PP* IOU OPCODES EASY TO FIND AND MODIFY TO COMPREHEND NEW PP* OPCODES. PP* PP PSEG P LIST D DPIOUOP EVEN OPCODES IN ASCENDING ORDER PP DATA >9000+VAL90 CREATE FILE PP DATA >9100+VAL91 ASSIGN LUNO PP DATA >9200+VAL92 DELETE FILE PP DATA >9300+VAL93 RELEASE LUNO PP DATA >9400+VAL94 DIAGNOSTIC ASSIGN LUNO PP DATA >9500+VAL95 RENAME FILE PP DATA >9600+VAL96 UNPROTECT FILE P DATA >9700+>VAL97 WRITE PROTECT FILE >P DATA >9800+VAL98 DELETE PROTECT FILE PP DATA >9900+VAL99 VERIFY PATHNAME SYNTAX PP DATA >9A00+VAL9A ADD ALIAS PP DATA >9B00+VAL9B DELETE ALIAS PP DATA >9C00+VAL9C SET FORCE WRITE FLAG PP DATA >9D00+VAL9D CREATE IPC CHANNEL PP DATA >9E00+VAL9E DELETE IPC CHANNEL PP DATA >9F00+VAL9F MODIFY SECURITY ATTRIBUTE P DATA >A000+VALA0 8 ATTACH RESOURCE 8P DATA >A100+VALA1 DETACH RESOURCE PP DATA >A200+VALA2 ATTACH BY NUMBER PP DATA >A300+VALA3 DETACH BY NUMBER PP DATA >A400+VALA4 MODIFY TEMPORARY BIT PP DATA >A500+VALA5 RELEASE IN ANOTHER JOB PP DATA >A600+VALA6 ASSIGN LUNO >FF PP DATA >A700+VALA7 PURGE FDB TREE PP* DATA >C000+VALC0 DEFINE DEVICE P* DATA >C100+VALC1 2 REMOVE DEVICE 2P* DATA >C200+VALC2 GET DEVICE PARMS PP* DATA >C300+VALC3 SET DEVICE PARMS PP* DATA >C400+VALC4 ADD CDE TO CDT PP* DATA >C500+VALC5 REMOVE CDE FROM CDT PP* DATA >C600+VALC6 GET CDE FROM CDT PP* DATA >C700+VALC7 PROCESS DEVICE TASK BID PP* DATA >C800+VALC8 UNLOCK PARAMETERS PP* DATA >C900+VALC9 UNLOCK ALL TASK'S PARMS P$* DATA >CA00+VALCA BEG$,IN SESSION ,P* DATA >CB00+VALCB END SESSION PP DATA >FFFF TABLE TERMINATOR PP PEND PPUT COUNT FROM REQUESTOR 44MRBROC WORD 0 REPLY OUTPUT COUNT FOR REQUESTOR 4(MRBRSZ EQU$  BASIC REPLY MRB SIZE(* '6 VARNT MRBISZ  VDT READ BLOCK WITH VDT EXTENSION 66MRBROV WORD 0 ZERO, REPLY PTR, OR VALIDATION PTR 6MRBVAL EQUMRBROV,MRBXFL FLAGS 16  EXTENDED REQUEST FLAGS,, FLAG MRFCSF CURSOR START OF FIELD DEFN , FLAG MRFNTNINTENSITY , FLAG MRFFKR BLINKING CURSOR (FLICKER) ,0 F2KCB POt(2k{@ UNL#@************************************************************ @ *  * 0 * KIF CURRENCY BLOCK  (KCB)  01/22/82 * 0 *  * (* LOCATION: SYSTEM TABLE AREA  * ( *  * @************************************************************ @>* THE KCB IS USED TO MAINTAIN CURRENCY INFORMATION ABOUT A >> * KEY INDEXED FILE IN USE.THE KCB IS BUFFERED ALONG WITH >** THE IRB DESCRIBING THE I/O REQUEST. ** ' * SPECIAL FIELD COMMENTS:@* KCBKAD - FIRST TWO WORDS GIVE THE PHYSICAL RECORD NUMBER @6*  OF THE LOGICAL RECORD. THE THIRD WORD IS THE 6"*  ID OF THE LOGICAL RECORD. "@* KCBBTP - FIRST TWO WORDS GIVE THE PHYSICAL RECORD NUMBER @* OF THE KEY FROM $WHICH THE CURRENCY WAS CREATED. $8* THE THIRD WORD IS THE LOGICAL ADDRESS OF THE KEY 84* WHEN THE PHYSICAL RECORD IS MAPPED INTO KIF 4* PROCESSING CODE.( DORG IRBFWA+2.KCBINF BYTE 0  CURRENCY INFORMATION CODE. KCBKNM BYTE 0  KEY NUMBER  KCBKAD WORD 0  KEY ADDRESS ,KCBDBK WORD 0  DATA BASE KEY (3 WORDS),  WORD 0 !  WORD 0 ! .KCBBTP WORD 0  B-TREE POINTER (3 WORDS) .  WORD 0 !  WORD 0 ! &KCBBES WORD 0  B-TREE ENTRY SIZE&&KCBLOC BYTE 0  LAST OPCODE%% USED &$KCBCOC BYTE 0  CURRENT OPCODE $KCBSIZ EQU$-KCBINF  RORG "  PAGE "  LIST " 00+VAL P* WHE5UCBPRB POz^82m{ UNL#F!***************************************************************** F2*  SVC INTERPRETER DESCRIPTOR BLOCK FOR * 22*  I/O SUPERVISOR UTILITY CALL BLOCK AND * 2D*  I/O SUPERVISOR CALL BLOCK AND PRB (UCBPRB) 10/30/79* DF!***************************************************************** F* '@*  ******************************************************* @>*  * WD DISPLACEMENT * SLA COUNT * FIELD BIT SIZE * >@*  ******************************************************* @* 'UCPRSZ EQU3 !* '* '  EVEN " UCBPRB EQU$ !&UCSVCD EQU$-UCBPRB * SVC CODE &  BYTE 0,8,8  WORD 0,BYTE 0 (UCSTAT EQU$-UCBPRB * STATUS CODE(M ,@  BYTE 0,0,8  WORD 0,BYTE 1 ,UCOPCD EQU$-UCBPRB * UTILITY OP CODE,  BYTE 1,8,8  WORD 1,BYTE 0 "UCLUNO EQU$-UCBPRB * LUNO "  BYTE 1,0,8  WORD 1,BYTE 1 2UCSYFG EQU$-UCBPRB * PRB SYSTEM FLAG BYTE 2  BYTE 2,8,8  WORD 2,BYTE 0 2UCSBSY EQU$-UCBPRB * SYSTEM FLAG BUSY BIT 2  BYTE 2,15,1 WORD 2,BIT 0  2UCSERR EQU$-UCBPRB * SYSTEM FLAG ERROR BIT2  BYTE 2,14,1 WORD 2,BIT 1  0UCSEOF EQU$-UCBPRB * SYSTEM FLAG EOF BIT0  BYTE 2,13,1 WORD 2,BIT 2  .UCUFLG EQU$-UCBPRB * GLOBAL USER FLAG .  BYTE 2,0,8  WORD 2,BYTE 1 6UCUINT EQU$-UCBPRB * GLOBAL FLAG INITIATE BIT 6  BYTE 2,7,1  WORD 2,BIT 8  UCUDNR EQU$-UCBPRB * GLOBAL FLAGDO NOT REPLACE   BYTE 2,2,1  WORD 2,BIT 13 0UCDBAD EQU$-UCBPRB * DATA BUFFER ADDRESS0 BYTE 3,0,16 WORD 3 8UCRCSZ EQU$-UCBPRB * RECORD LENGTH (PRB FORMAT) 8 BYTE 4,0,16 WORD 4 ,UCHARC EQU$-UCBPRB * CHARACTER COUNT, BYTE 5,0,16 WORD 5 .UCKEYB EQU$-UCBPRB * KEY BLOCK ADDRESS. BYTE 6,0,16 WORD 6 4UCMAXT EQU$-UCBPRB * MAXIMUM NUMBER OF TASKS4" BYTE 6,0,8  WORD 6, BYTE 1 ":UCMAXP EQU$-UCBPRB * MAXIMUM NUMBER OF PROCEDURES :" BYTE 7,8,8  WORD 7, BYTE 0 "8UCMAXO EQU$-UCBPRB * MAXIMUM NUMBER OF OVERLAYS 8" BYTE 7,0,8  WORD 7, BYTE 1 "8UCRPCN EQU$-UCBPRB * PRB RELATIVE RECORD NUMBER 8  BYTE 6,0, 32 WORDS 6 AND 70UCUTIL EQU$-UCBPRB * UTILITY FLAGS WORD 0 BYTE 8,0,16 WORD 8 <UCUTCA EQU$-UCBPRB * UTILITY FLAG CREATED BY ASSIGN <  BYTE 8,15,1 WORD 8,BIT 0  :UCUTFG EQU$-UCBPRB * UTILITY FLAG FILE USAGE FLAGS :& BYTE 8,13,2 WORD 8,BITS 1 AND 2&4UCUTLA EQU$-UCBPRB * UTILITY FLAG LUNO SCOPE4& BYTE 8,11,2 WORD 8,BITS 3 AND 4&<UCUTGL EQU$-UCBPRB * UTILITY FLAG GENERATE LUNO BIT <  BYTE 8,10,1 WORD 8,BIT 5  :UCUTAC EQU$-UCBPRB * UTILITY FLAG AUTO CREATE BIT :  BYTE 8,9,1  WORD 8,BIT 6  2UCUTLR EQU$-UCBPRB * UTILITY FLAG LRL FLAG2  BYTE 8,7,1  WORD 8,BIT 8  8UCUTTF EQU$-UCBPRB * UTILITY FLAG TEMP FILE BIT 8 BYTE 8,6,1  WORD 8,BIT 9 :UCUTFW EQU$-UCBPRB * UTILITY FLAG FORCED WRITE BIT :  BYTE 8,5,1  WORD 8, BIT 9 :UCUTDF EQU$-UCBPRB * UTILITY FLAG DATA FORMAT BIT :( BYTE 8,3,2  WORD 8,BIT 11 AND 12 (:UCUTAF EQU$-UCBPRB * UTILITY FLAG ALLOCATION FLAG :  BYTE 8,2,1  WORD 8,BIT 13 4UCUTTY EQU$-UCBPRB * UTILITY FLAG TYPE BITS 4( BYTE 8,0,2  WORD 8,BITS 14 AND 15(2UCLRLH EQU$-UCBPRB * LOGICAL RECORD LENGTH2 BYTE 9,0,16 WORD 9 4UCPHLH EQU$-UCBPRB * PHYSICAL RECORD LENGTH 4 BYTE 10,0,16  WORD 10.UCPATH EQU$-UCBPRB * PATHNAME POINTER . BYTE 11,0,16  WORD 11.UCPASS EQU$-UCBPRB * PASSCODE POINTER . BYTE 12,0,16  WORD 124UCINAL EQU$-UCBPRB * INITIAL FILE ALLOCATION4$ BYTE 14,0,32  WORDS 14 AND 15$2UCMXDR EQU$-UCBPRB * MAX DIRECTORY ENTRIES2 BYTE 15,0,16  WORD 156UCSCAL EQU$-UCBPRB * SECONDARY FILE ALLOCATION6$ BYTE 16,0,32  WORDS 16 AND 17$  LIST " ATA >C500+VALC5 REMOVE CDE FROM CDT PP* DATA >C600+VALC6 GET CDE FROM CDT P*  ED PRI 4 % FILL1B : BYTE;  "INSTALLED PRI B1 %% F";k4`48 ATTACH RESOURCE 8P DATA >A100+VALA1 DETACH RESOURCE PP DATA >A200+VALA2 ATTACH BY N6AGR PO 2n{@P UNL PP*********************************************************** PP* * PP* ACCESS GROUP NAME RECORD (AGR) 11/24/82 * PP* * PP* LOCATION: DISK * PP*********************************************************** PP* THE AGR IS USED BY TASKS WHICH CREATE, DELETE, AND MODIFY PP* ACCESS GROUP NAMES. IT IS A VARIANT OF THE CAPABILITIES P* LISTJ FILE RECORD (CLR). FOR DETAILS SEE CLR. JP PAGE PP LIST P BYTE 2,8,8  WORD 2,BYTE 0 2UCSBSY EQU$-UCBPRB * SYSTEM FLAG BUSY BIT 2  BYTE 2,15,1 WORD 2,BIT 0  2UCSERR EQU$-UCBPRB * SYSTEM FLAG ERROR BIT2  BYTE 2,14,1 WORD 2,BIT 1  0UCSEOF EQU$-UCBPRB * SYSTEM FLAG EOF BIT0  BYTE 2,13,1 WORD 2,BIT 2  .UCUFLG EQU$-UCBPRB * GLOBAL USER FLAG .  BYTE 2,0,8  WORD 2,BYTE 1 6UCUINT EQU$-UCBPRB * GLOBAL FLAG INITIATE BIT 6  BYTE 2,7,1  WORD 2,BIT 8  UCUDNR EQU$-UCBPRB * GLO9SDB POp2o{ UNL#@************************************************************ @ *  * 4*  STAGE DESCRIPTOR BLOCK (SDB) 07/16/81 * 4 *  * 2*  LOCATION: A NAME DEFINITION SEGMENT  * 2@************************************************************ @  DORG 0 ! SDBSDB PTRSDB FIXED LINK $SDBCID BYTE 0 CREATOR TASK ID $ SDBSNO BYTE 0 STAGE NUMBER SDBTCT BYTE 0 TASK COUNTSDBRES BYTE 0 RESERVED,SDBPAR PTRSDB  POINTER TO PARENT SDB ,2SDBDEL PTRDEL DESCENDANT ERROR LIST ANCHOR 2SDBSIZ EQU$ !  LIST " ORD 2,BYTE 1 6UCUINT EQU$-UCBPRB * GLOBAL FLAG INITIATE BIT 6  BYTE 2,7,1  WORD 2,BIT 8  UCUDNR EQU$-UCBPRB * GLO=RPB PO(T2p{@ UNL#@************************************************************ @ *  * 4* RESOURCE PRIVILEGE BLOCK (RPB) 08/30/83 * 4 *  * (* LOCATION: SYSTEM AREA OR JCA  * (@************************************************************ @B* AN RPB IS BUILT FOR AN I/O RESOURCE WHEN A LUNO IS ASSIGNED. B@* IT IS ATTACHED TO THE APPROPRIATE RESOURCE STRUCTURE: CCB, @* FCB, OR PDT.!  DORG 0 ! (RPBRPB PTRRPB  LINK TO NEXT RPB (RPBFLG FLAGS 8 FLAG BYTE  FLAG RPFATT 1 = ATTACHED   FLAG RPFOPN 1 = LUNO OPEN , FLAG RPFFBS 1 = FORWARD OR BACK SPACE , BITS 3  RESERVED . BITS RPFACU,2 ACCESS PRIVILEGES IN USE .*  00 = EXCLUSIVE WRITE *  01 = EXCLUSIVE ALL* 10 = SHARED * 11 = READ ONLY4RPBACM EQU>0300  ACCESS PRIVILEGES BIT MASK 48RPBCFI BYTE 0  CURRENT FILE INDEX (CONCAT. FILES) 8"RPBLDT PTRLDT  LDT ADDRESS""RPBJSB PTRJSB  JSB ADDRESS"* '"RPBMSZ EQU$  MINIMUM SIZE "* '*  OPTIONAL INFORMATION* '*RPBLRN LONG 0  LOGICAL RECORD NUMBER*"RPBBN LONG 0  BLOCK NUMBER ",RPBOCB DATA 0  OFFSET IN CURRENT BLOCK,* 'RPBSIZ EQU$  RPB SIZE   RORG "  PAGE "  LIST " QU$ !  LIST " ORD 2,BYTE 1 6UCUINT EQU$-UCBPRB * GLOBAL FLAG INITIATE BIT 6  BYTE 2,7,1  WORD 2,BIT 8  UCUDNR EQU$-UCBPRB * GLO=SLE PO+2q{@ UNL#  ECHO " @************************************************************ @* ',* SYSTEM LOADER EQUATES (SLE) 03/14/79,* '@************************************************************ @* '%% *-------$  * SLLMOD CALL EQUATES  *-------$ "OVLY EQU>800OVERLAY TYPE"TASK EQU0 TASK TYPE $PROC EQU>400PROCEDURE TYPE$ OVBREQ EQU1 OVB REQUIRED "RLOCAT EQU2 RELOCATE FLAG "0PFONLY EQU4 RETURN ONLY PFI INFORMATION 0(ALOCAT EQU8  ALLOCATE FREE SPACE (2ROOT EQU>10 ROOT SEGMENT IS BEING LOADED 2 *-------$  * MAP FILE EQUATES *-------$ L1 EQU0 !B1 EQU2 !L2 EQU4 !B2  EQU6 ! L3 EQU8 !B3 EQU10! *-------$  * DISK I/O COMMANDS  *-------$ STOREG EQU0 !READ EQU>200 WRITE EQU>300 RESTOR EQU>700  *-------$  * MISCELLANEOUS EQUATES  *-------$ PATERN EQU>F00D 2NDXSIZ EQU256 PROG. FILE INDEX RECORD SIZE 2  PAGE "  LIST " ALL PP* IOU OPCODES EASY TO FIND AN 33k4`4_0 EQU$-UCBPRB * GLOBAL FLAG INITIATE BIT 0  BYTE 2,7,1  WORD 2,BIT 8  8UCUDNR EQU$-UCBPRB * GLOBAL FLAGDO NOT REPLACE 8  BYTE 2,2,1  WORD 2,BIT 13 0UCDBAD EQU$-UCBPRB * DATA BUFFER ADDRESS0 BYTE 3,0,16 WORD 3 UCRCSZ EQU$->DS401CP1P-O"h2t{>********************************************************** >$ * ASYNC PDT EXTENSION 12/17/82 $*  HSR401 * '>********************************************************** ><PDXMAP EQUPDXSMB MAP BIAS - LONG DISTANCE EXTENSION <.PDXFL1 EQUPDXCHN 2ND BYTE OF HSR FLAGS.8PDXFIP EQUPDXCP1 SOFTWARE FIFO INSERTION POINTER 86PDXFRP EQUPDXCP2 SOFTWARE FIFO REMOVAL POINTER 60PDXWRQ EQUPDXCP3 TRANSMIT STATE VARIABLE0B************************************************************** B" * DEVICE EXTENSIONS 12/22/82"B************************************************************** B DORG HSRBGN*EXTTMR DATA 0  TIMER DURATION COUNT *EXTFLG DATA 0  HSR FLAGS @$EXTTMP DATA 0  TEMPORARY CELL $0EXTSPD DATA 0  SAVED SPEED SELECTION CODE 00EXTPSL DATA 0  SAVED PARITY SELECTION CODE0"EXTFL1 DATA 0  RCV DATA MASK"*EXTFL2 DATA 0  SAVED RETURN ADDRESS *EXTFL3 DATA 0 !* '*  ERROR COUNTERS * ',EXTOVR DATA 0  RECEIVER OVERRUN ERRORS,,EXTFER DATA 0  RECEIVE FRAMING ERRORS ,*EXTPER DATA 0  RECEIVE PARITY ERRORS** '  RORG "  PAGE " * '<*  THIS TEMPLATE IS USED FOR REFERENCING HSR INTERRUPT <*  RETURN VECTORS * '  DORG 0 ! ,RCVRTN DATA 0  RCV CHAR RETURN VECTOR ,0XMTRTN DATA 0  TRANSMIT CHAR RETURN VECTOR0.SIGRTN DATA 0  SIGNAL/FUNC CHANGE VECTOR.TIMR,TN DATA 0  TIMER EXPIRED RETURN VECTOR,4ILLRTN DATA 0  ILLEGAL INTERRUPT RETURN VECTOR 4  RORG " * '&*  TEMPLATE HSR ROUTINE RETURNS &* '  DORG 0 ! ,PWRF EQU$  POWER UP FAILURE RETURN,2NSRTN EQU$  FUNCTION NOT SUPPORTED RETURN 2(CKBRTN EQU$  CKBUSY FAIL RETURN (,XCFAIL DATA 0  (FAIL) FIFO FULL RETURN,2RDFRTN EQU$  READ CONTROLLER FAILED RETURN 22SPDRTN EQU$  SPEED SELECTION 'GOOD' RETURN 24SOPRTN EQU$  SET OP PARAMETERS 'GOOD' RETURN 4.NORMRT EQU$  NORMAL/GOOD RETURN INDEX .(NHESRT EQU$  HES___ GOOD RETURN (.NOUTRT EQU$  HOUTP4/HOUTP7 GOOD RETURN.(NCKBRT EQU$  CKBUSY GOOD RETURN (  DATA 0 ! RD*0RTN EQU$  READ SIGNAL = 0 RETURN *  DATA 0 ! ,RD1RTN EQU$  READ SIGNAL = 1 RETURN ,  RORG " * '6*  THIS COPY MODULE DEFINES SOME WORD CONSTANTS.68*  IT IS INTENDED TO BE USED NO ONLY TO BE FOR ITS 88*  CONSTANT VALUES ONLY, BUT ALSO TO DEFINE OTHER 86*  SECONDARY SYMBOLS USED FOR BIT MANIPULATION. 6* ' WDF040 DATA >F040  WD8000 DATA >8000  WD40E0 DATA >40E0  WD4000 DATA >4000  WD3000 DATA >3000  WD2000 DATA >2000  WD1000 DATA >1000  WD0E04 DATA >0E04  WD0C00 DATA >0C00  WD0800 DATA >0800  WD040F DATA >040F  WD0400 DATA >0400  WD020F DATA >020F  WD0200 DATA >0200 WD0100 DATA >0100  WD00C0 DATA >00C0  WD0080 DATA >0080  WD0040 DATA >0040  WD0030 DATA >0030  WD0020 DATA >0020  WD0010 DATA >0010  WD0008 DATA >0008  WD0004 DATA >0004  WD0002 DATA >0002  WD0001 DATA >0001  WD0000 DATA >0000  TITL 'FLAG DEFINITIONS'  PAGE " * '*  (PDXFLG) 8*  THIS WORD CONTAINS BIT FLAGS. THE FLAGS IN BYTE 88*  PDXFL1 AND BITS 1&5 OF BYTE PDXFLG ARE USED FOR 88*  SAVED MODEM SIGNAL STATUS AND REQUESTS FOR TSR 88*  NOTIFICATION UPON SIGNAL STATUS CHANGES. THESE 88*  FLAGS ARE PAIRED, THE FLAGS IN THE LEFT NIBBLE 84*  (4 BITS) INDICATE CURRENT SIGNAL STATUS FOR4 *  SIGNALS (SDCD,DCD,RI,DSR,  CTS). THIS FLAG IS 1 WHEN 6*  THE SIGNAL IS 1 (ON,HIGH,TRUE) AND 0 WHEN THE6<*  SIGNAL IS 0 (OFF,LOW,FALSE). THE CORRESPONDING BIT <8*  IN THE RIGHT NIBBLE INDICATES THE TSR REQUESTS 88*  NOTIFICATION WHEN THE SIGNAL CHANGES IF THE BIT 8*  FLAG IS 1. * '8*  THE 'PUF' FLAG INDICATES THE CONTROLLER DID NOT 88*  SUCCESSFULLY PASS SELF TEST/MASTER RESET.THIS 86*  FLAG IS SET TO 1 AT THE START OF THE POWER UP66*  ROUTINE AND CLEAR UPON SUCCESSFUL COMPLETION.66*  IF AN ERROR EXIT IS TAKEN DURING THE POWER UP68*  ROUTINE THIS BIT REMAINS 1. INTERRUPT SERVICE 84*  IS NOT PERFORMED IF THIS BIT IS 1. THIS BIT4**  IS SET/RESET BY THE ROUTINES 'HRSET*','HMRST' *  AND 'HSWPWR'.* '&*  01  23  45  67 &2* +----+----+----+----+----+----+----+----+ 26* PDXFLG! PUF!SDCD!  !!  !SDCD!  !! 62* +----+----+----+----+----+----+----+----+ 2* '0*  BIT 0 - CONTROLLER MASTER RESET FAILED 04*  BIT 1 - SECONDARY DATA CARRIER DETECT STATE4*  BIT 2 - RESERVED *  BIT 3 - RESERVED * '*  BIT 4 - RESERVED 4*  BIT 5 - SEC DATA CARRIER DETECT NOTIFY FLAG4*  BIT 6 - RESERVED *  BIT 7 - RESERVED * '* '&*  01  23  45  67 &2* +----+----+----+----+----+----+----+----+ 22* PDXFL1! DCD! RI! DSR! CTS! DCD!RI! DSR!2  CTS! 2* +----+----+----+----+----+----+----+----+ 2* '**  BIT 0 - DATA CARRIER DETECT ---+ *.*  BIT 1 - RING INDICATOR !___ SIGNAL ..*  BIT 2 - DATA SET READY !  STATES .**  BIT 3 - CLEAR TO SEND ---------+ ** '**  BIT 4 - DATA CARRIER DETECT ---+ *.*  BIT 5 - RING INDICATOR !___ NOTIFY .,*  BIT 6 - DATA SET READY !  FLAGS,**  BIT 7 - CLEAR TO SEND ---------+ ** '*  NOTIFICATION FLAGS * '0PUFLAG EQUWD8000 CONTROLLER FAILURE FLAG06NKSDCD EQUWD0400 SECONDARY DATA CARRIER DETECT 6,NKDCD EQUWD0008 DATA CARRIER DETECT,(NKRING EQUWD0004 RING INDICATOR (&NKDSR EQUWD0002 DATA SET READY &&NKCTS EQUWD0001 CLEAR TO SEND&* ' *  SAVED SIGNAL STATE FLAGS * '6NSSDCD EQUWD4000 SECONDARY DATA CARRIER DETECT 6,NSDCD EQUWD0080 DATA CARRIER DETECT,(NSRING EQUWD0040 RING INDICATOR ((NSDSR EQUWD0020 DATA SET READY (&NSCTS EQUWD0010 CLEAR TO SEND&* '.NOTIFF EQUWD040F ALL NOTIFY FLAGS MASK.:SIGNSF EQUWD40E0 NSF MODEM SIGNAL FLAGS ONLY MASK :* '.*  RECEIVE CHARACTER STATUS FLAGS MASKS .* '*RSFFER EQUWD0008 RCV FRAMING ERROR**RSFPER EQUWD0004 RCV PARITY ERROR *$RSFOVR EQUWD0002 RCV OVERRUN$* '"*  HSPPSL ROUTINE BIT MASKS "* '(PSLENP EQUWD0800 ENABLE PARITY BIT(,PSLSBS EQUWD00C0 STOP BIT SELECTION ,4PSLMSP EQUWD2000 MARK/SPACE PARITY SELECTION42PSLODD EQUWD1000 ODD/EVEN PARITY SELECTION2EQ00C0 EQU>00C0 8PSLRES EQUWD0080 UNSUPPORTED STOP BIT SELECTION 8.PSLOSB EQUWD0040 ONE STOP BIT SELECTED.*EQ0030 EQU>0030  CHAR LENGTH MASK *4CL8BIT EQU>0003  8 BIT CHAR LENGTH SELECTION42SCNTCL EQU4  SHIFT COUNT FOR CHAR LEN BITS 2* '&*  TRANSMIT PROCESSING CONSTANTS&* '0ZERO EQUWD0000 ZERO DATA WORD CONSTANT02 FFULL DATA SWFEND-SWFBGN  SIZE OF XMIT FIFO 2* '$*  EXTFLG - FLAGWORD BIT MASKS$* '4EFLCTH EQUWD8000 CHANNEL TRANSMIT HALT FLAG 4EFLCR EQUWD4000$ CHANNEL RESET MODE ENABLED FLAG $"*  =1 ==> INTERRUPTS ENABLED ""*  =0 ==> INTERRUPTS DISABLED "* '* '0HWTYPE EQU>0001  CI401 HARDWARE TYPE CODE 0* ' *  HSR401 GLOBAL CONSTANTS * '0BSYCNT EQU10CHECK 'RWBUSY' SIGNAL COUNT 0* TITL 'CI401 (COMMIF) CRU DEFINITIONS'*  PAGE " &*  CI401 (COMMIF) CRU DEFINITION&* '.*  INPUT STATUS REGISTER-ADDR=1,STROBE=0.%%* '"DSR  EQU0 DATA SET READY""CTS  EQU1 CLEAR TO SEND "2SDCD EQU2 SECONDARY DATA CARRIER DETECT 20RESIN EQU3 RESERVED INCOMING MODEM LEAD 0RING EQU4 RING(DCD  EQU5  DATA CARRIER DETECT ( RRQ  EQU8 READ REQUEST SY6NCM EQU9 READABLE COPY OF SYNC SELECTION BIT 6,TUNDER EQU10 SYNC TRANSMIT UNDERRUN ,RWBUSY EQU11SCAN BUSY 0NSF  EQU12NEW STATUS FLAG-MODEM CHANGE 0$TIMER EQU13TIMER EXPIRATION$8INTSUM EQU14INTERRUPT SUMMARY-NSF/RRQ/WRQ/TIMER 8"WRQ  EQU15WRITE REQUEST "*  6,7,9 UNUSED* '** INPUT DATA REGISTER-ADDR=0,STROBE=1 *** RDATA BITS 0-7 RECEIVE DATA BYTE *"PARERR EQU12**PARITY ERROR".FRMERR EQU13 ASYNCFRAMING ERROR(BREAK)..ROVER EQU14 RECEIVE OVERRUN-DATA LOST .*RCVERR EQU15 RECEIVE ERROR SUMMARY **  8,9,10 UNUSED*  11 BUSY  PAGE " * '&* OUTPUT DATA WORD-ADDR=0,STROBE=0&* (XDATA BITS 0-7 TRANSMIT DATA BYTE(* '6* OUTPUT STATUS REGISTER-ALL ADDRESSES-ALL STROBES6,ADD0 EQU8  ADDRESS SELECTION BIT 0 ,,ADD1 EQU9  ADDRESS SELECTION BIT 1 ,,ADD2 EQU10 ADDRESS SELECTION BIT 2 , STROBE EQU11STROBE DATA  *ENNSF EQU12 ENABLE NSF INTERRUPTS * ENTIME EQU13ENABLE TIMER &INTE EQU14 ENABLE INTERRUPTS &(ENWRQ EQU15 ENABLE WRITE REQUEST(* '<* OUTPUT WORD TWO-ADDR=1,STROBE=0 (ASTRO CNTROL REG 1) < * AND % $* INPUT WORD TWO-ADDR=1,STROBE=1$* '(DTR  EQU0  DATA TERMINAL READY ($RTS  EQU1 REQUEST TO SEND $$ENRRQ EQU2 RECEIVER ENABLE $"PAREN EQU3 PARITY ENABLE ".ECHO EQU4  **ECHO ENABLE- ASYNC ONLY .0STOPBS EQU5 **STOP BIT SELECT-ASYNC ONLY 0,BREAK EQU6  **XMIT BREAK-ASYNC ONLY ,"TEST EQU7 SELF TEST MODE"* ':* OUTPUT WORD 3-ADDR=4,STROBE=0 (ASTRO CONTROL REG 2) :$CLKA0 EQU0 CLOCK SELECT A0 $$CLKA1 EQU1 CLOCK SELECT A1 $$CLKA2 EQU2 CLOCK SELECT A2 $2ALTCLK EQU3 **ALTERNATE CLOCK SELECT-ASYNC 2&STRSYN EQU3  **STRIP SYNC-SYNC &&PARODD EQU4  ODD PARITY SELECT &(SYNC EQU5  SYNC MODE SELECTION (.CHARL0 EQU6  CHARACTER LENGTH SELECT 0 ..CHARL1 EQU7  CHARACTER LENGTH SELECT 1 .4CLCRU EQUCHARL0*2 CRU BASE ADJ FOR CHAR LEN 4* '"* OUTPUT WORD 4-ADDR=5,STROBE=0 "$CLKB0 EQU0 CLOCK SELECT B0 $$CLKB1 EQU1 CLOCK SELECT B1 $.SRTS EQU2  SECONDARY REQUEST TO SEND .,RESOUT EQU3  RESERVED MODEM LEAD OUT ,*PLSOUT EQU4  PULSED MODEM LEAD OUT *MR EQU5 MASTER RESET HDUX EQU6 HALF DUPLEX  $ANLOOP EQU7 ANALOG LOOPBACK $  PAGE " T32; "dst secs in this alc.*AFRDST: SAT_TBL; "dst sec alc table *END;(: AFR_ARRAY= PACKED ARRAY[1..MAXAFI] OF AFR_REC_DEFN;:L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L"  Buffer definition 6"---------------------------------------------------6ACCB P O@h2v{@ UNL#@*********************************************************** @ * * 2 * CHANNEL CONTROL BLOCK (CCB) 06/09/83 * 2 * * ** LOCATION: SYSTEM AREA AND JCA * *@*********************************************************** @@* THE CCB IS THE IN-MEMORY REPRESENTATION OF A CHANNEL. IT @>* RESIDES IN SYSTEM TABLE AREA FOR GLOBAL CHANNELS, IN THE >>* JCA FOR JOB-LOCAL OR TASK-LOCAL CHANNELS. MOST OF THIS >>* STRUCTURE IS BUILT FROM THE CHANNEL DESCRIPTOR RECORD ON > * DISK. $  DORG 0 ! (CCBCCB PTRCCB  NEXT CCB ADDRESS ($CCBFLG FLAGS 16  CHANNEL FLAGS$, BITS CCFSC1,2 SCOPE - GLOBAL,JOB,TASK ,CCFSC2 EQUCCFSC1+1* 00=TASK-LOCAL * 01=JOB-LOCAL* 10=GLOBAL * 11=RESERVED ,CCFSCM EQU>C000  CHANNEL SCOPE MASK ,( FLAG CCFSHR SHARED(1)/NOT SHARED (0 FLAG CCFTYP SYMMETRIC(1) OR MASTER/SLAVE 00 FLAG CCFASG OWNER DOES(1) / NOT DO ASSIGN 00 FLAG CCFABT OWNER DOES(1) / NOT DO ABORTS 02 FLAG CCFIOU OWNER DOES(1) / NOT DO IOU OPS 20 BITS 1  RESERVED (AS IN CREATE CHAN RCB) 04 FLAG CCFBSY CCB IS BUSY (IN USE BY IPC TASK) 4. FLAG CCFOOP OWNER TASK HAS ISSUED OPEN .4 FLAG CCFOCL OWNER TASK HAS CLOSED OR ABORTED 4" FLAG CCFDED CHANNEL IS DEAD"4 FLAG CCFRCL NON-SH SYMMETRIC REQUESTER CLOSED 46 FLAG CCFRAB NON-SH SYMMETRIC REQUESTER ABORTED 6 BITS 2  RESERVED @* '**  NOTE: CCBTF=CCBTYP+1 MUST BE TRUE **CCBTYP BYTE 0  DEFAULT RESOURCE TYPE*(CCBTF BYTE 0  RESOURCE TYPE FLAGS(*  BITS 5 RESERVEDCCFCHN EQU13CHANNEL CCFDEV EQU14DEVICECCFFIL EQU15FILE2CCFREM EQU>0007  RESOURCE TYPE FLAGS MASK 2,CCBMXL DATA 0  MAXIMUM MESSAGE LENGTH ,.CCBASG BYTE 0  NUMBER OF CURRENT ASSIGNS.,CCBOPN BYTE 0  NUMBER OF CURRENT OPENS, CCBRPB DATA 0  RPB POINTER .CCBTSB PTRTSB  OWNER TASK TSB ADDRESS ..CCBJSB PTRJSB  OWNER TASK JSB ADDRESS .8CCBPFL BYTE 0  OWNER TASK PROG FILE LUNO (DPOS/M) 8,CCBIID BYTE 0  OWNER TASK INSTALLED ID,4CCBFMT PTRSSB  OWNER TASK PROGRAM FILE FDP (D)4 CCBFCB PTRFSC 0CCBPBQ PTRBRO  PENDING BRB QUEUE HEADER 0:CCBABQ PTRBRO  ALREADY BEING PROCESSED QUEUE HEAD :&CCBDSZ EQU$+8  DPOS/D CCB SIZE&6CCBNAM BSS50 CHANNEL NAME LENGTH AND NAME (M). 6*  8 CHAR PNC (D) $CCBCSZ EQU$  DPOS/M CCB SIZE$  RORG "  PAGE "  LIST " LATION. 6* ' WDF040 DATA >F040  WD8000 DATA >8000  WD40E0 DATA >40E0  WD4000 DATA >4000  WD3000 DATA >3000  WD2000 DATA >2000  WD1000 DATA >1000  WD0E04 DATA >0E04  WD0C00 DATA >0C00  WD0800 DATA >0800  WD040F DATA >040F  WD0400 DATA >0400  WD020F DATA >020F  WD0200 DATA >0200 WD0100 DATA >010FUIP PO2w{@ UNL#@************************************************************ @ *  * * * USER ID PARAMETER (UIP) 12/01/82 * * *  * 2*  LOCATION: POINTED TO BY IRBPRM FIELD  * 2 *  * @************************************************************ @* '6*  THE USER ID PARAMETER IS CHECKED BY SECURITY 62*  MANAGER AND WILL BE USED IN PLACE OF THE 20*  ISSUER'S USER ID IF A VALID PASSCODE IS02*  SUPPLIED OR THE TASK HAS SECURITY BYPASS.20*  THIS PARM MAY BE SUPPLIED BY A USER, OR02*  MAY BE CREATED BY IOU TO PASS INFO ACROSS2*  THE NETWORK. * '  DORG 0 ! *UIPSLN BYTE 0  SUBLIST NUMBER (>02) *(UIPLEN BYTE 0  LENGTH OF PARM-2 IN B(YTES (>10) UIPUID BSS8  USER IDUIPPWD BSS8  PASSWORD (UIPSIZ EQU$  TOTAL LENGTH OF UIP(  RORG "  PAGE "  LIST " FTYP SYMMETRIC(1) OR MASTER/SLAVE 00 FLAG CCFASG OWNER DOES(1) / NOT DO ASSIGN 00 FLAG CCFABT OWNER DOES(1) / NOT DO ABORTS 02 FLAG CCFIOU OWNER DOES(1) / NOT DO IOU OPS 20 BITS 1  RESERVED (AS IN CREATE CHAN RCB) 04 FLAG CCFBSY CCB IS BUSY (IN USE BY IPC TASK) 4. FLAG CCFOOP OWNER TASK HAS ISSUED OPEN .4 FLAG CCFOCL OWNER TASK HAS CLOSED OR ABORTED 4" FLAG CCFDED CHANNEL IS DEAD"4 FLAG CCFRCL NON-SH SYMMETRIC REQUESTER CLOSED 46 FLAG CCFRAB NON-SH SYMMETRIC REQUESTER ABORTED 6 BITS 2  RESERVED LFSC !O 2z{@ UNL=@************************************************************$@ *  *$ 0 * FILE STRUCTURE COMMON(FSC) 02/23/82 *$0 *  *$ 0* LOCATION: FILE MANAGEMENT TABLE AREA *$0 *  *$ @************************************************************$@>* THE FSC IS COMPOSED OF A COMMON FIRST STRUCTURE THAT IS %>>* SHARED BY BOTH THE FILE CONTROL BLOCK (FCB) AND THE FILE%><* DIRECTORY BLOCK (FDB) VARIANTS OF THE REMAINDER OF THE&<* STRUCTURE.<>* THE FCB IS AN IN-MEMORY REPRESENTATION THAT IS USED TO %>@* TRACK THE CHARACTERISTICS OF A FILE THAT IS IN USE. AN FCB$@:* REPRESENTS THE LAST COMPONENT OF THE FILE PATHNAME. ':8* THE FDB IS AN IN-MEMORY STRUCTURE REPRESENTING ONE 8NODE%>* OF THE PATHNAME OF A FILE.IT PROVIDES TREE LINKAGE FOR%> * THE ENTIRE FILE PATHNAME. 4  DORG 0 ; "FSCPDT PTRPDT PDT POINTER -"4FSCPDR PTRDDR PTR TO PARENT'S DIRECTORY DOOR$40FSCEOM LONG 0 END OF MEDIUM LOGICAL REC # %0"FSCAPB BYTE 0 ADUS PER BLOCK,""FSCBPA BYTE 0 BLOCKS PER ADU,",FSCPAS DATA 0  PRIMARY ALLOCATION SIZE ',.FSCP%%AA DATA 0  PRIMARY ALLOCATION ADDRESS&. FSCSAA DATA 0 SAT ADDRESS - (FSCPRS DATA 0  PHYSICAL RECORD SIZE)((FSCADU DATA 0  FDR ADU OF THIS FILE)(*FSCOFF BYTE 0  FDR OFFSET WITHIN ADU (**FSCMFG FLAGS8  MODIFIED ONLY FLAGS )*0 FLAG FSCMEC 1 = END OF MEDIUM HAS CHANGED$0, FLAG FSCMWT 1 = FILE HAS BEEN WRITTEN I,N $( BITS FSCFU1,2 FILE USAGE BIT ONE )(.FSCFU2 EQUFSCFU1+1 FILE USAGE BIT TWO ).(FSCFUM EQU>3000  FILE USAGE MASK+(. FLAG FSCDEL FDB DELETE PROTECTION FLAG %.* AFSCSIZ EQU$ FSC SIZE/* A2 DORG FSCSIZFCB - FILE CONTROL BLOCK VARIANT%22FCBFCB PTRFCB LINK FOR CONCATENATED FILES %2(FCBRPB PTRRPB  START OF RPB CHAIN*(0FCBCCT BYTE 0COUNT OF CONCATENATED FILES %0FCBFLB FLAGS 8FLAGS BYTE.. FLAG FCBFCC  FILE IS IN CONCATENATION %., FLAG FCBFUB  OPEN MUST BE UNBLOCKED &,  FLAG FCBBSY  FCB IS BUSY, , FLAG FCBFSE  SUPPRESS EOF BEFORE EOM&,"FCBSGB PTRSGB SGB ADDRESS -".FCBSMT PTRSSB  SM TABLE AREA SSB OF SGB'.FCBFLG FLAGS 16 FILE FLAGS.$ BITS FCBFFU,2FILE USAGE FLAGS+$*  00 = NO SPECIAL USAGE &* 01 = DIRECTORY** 10 = PROGRAM+* 11 = IMAGE,.FCBFFM EQU>C000  FILE USAGE FLAGS MASK (.  BITS FCBFDF,2DATA FORMAT - "*  00 = NON-BLANK SUPPRESSED $"*  01 = BLANK SUPPRESSED &*  10 & 11 = RESERVED(.FCBFAM EQU>3000  FILE FORMAT FLAGS MASK(." FLAG FCBFATEXPANDABLE IF ON+" BITS FCBFFT,2FILE TYPE ."*  00 = RESERVED (FOR DEVICE)$"* 01 = SEQUENTIAL )*  10 = RELATIVE RECORD'* 11 = KEY INDEXED),FCBFTM EQU>0600  FILE TYPE FLAGS MASK),( FLAG FCBFWP WRITE PROTECTED IF ON ((( FLAG FCBFDP DELETE PROTECTED IF ON((  FLAG FC BFTF TEMPORARY FILE IF ON)& FLAG FCBFBF BLOCKED FILE IF OFF )&$ FLAG FCBFAF ALIAS ENTRY IF ON *$$ FLAG FCBFFW FORCED WRITE IF ON*$  FLAG FCBFSCFILE SECURITY , 0 FLAG FCBPLGFILE MARKED AS PARTIAL LOGGING$0 FLAG RESER RESERVED/0FCBFDB PTRFSC  POINTER TO DIRECTORY ENTRY&0,FCBSFD PTRSSB  SSB OF DIRECTORY ENTRY(,(FCBLRS DATA 0  LOGICAL RECORD SIZE )(.FCBSAS DATA 0  SECONDARY ALLOCATION SIZE &.*FCBBKM LONG 0  END OF MEDIUM BLOCK # (*(FCBOFM DATA 0  END OF MEDIUM OFFSET)(,FCBLRL DATA 0  LOCKED RECORD LIST HEAD ',0FCBEXT LONG 0 BLOCK COUNT FOR FILE EXTENT %0(FCBXCT BSS1  FILE EXTENSION COUNT)(2FCBCLA BSS1 COUNT OF THINGS POINTING HERE $2FCBR$LA DATA 0  REQUEST LIST ANCHOR )$0FCBCPO BYTE 0 COUNT OF PASSIVE OPERATIONS %0,FCBCAW BYTE 0  COUNT OF ACTIVE WAITERS ',0FCBRED DATA 0 COUNT OF READS ON THIS FILE %00FCBWRT DATA 0 COUNT OF WRITES TO THIS FILE%0* A FCBMSZ EQU$ MIN FCB SIZE- * A * KIF EXTENSION DATA 7* A DORG FCBMSZ9&FCBEBQ LONG 0  EMPTY BLOCK QUEUE *&(FCBCLB DATA 0  CURRENT LOG BLOCK # )(*FCBFBQ BSS4  FREE BLOCK QUEUE HEAD (*(FCBBTR DATA 0  B-TREE ROOTS BLOCK #)(,FCBSBB DATA 0  STARTING BUCKET BLOCK # ',,FCBMRS DATA 0  MINIMUM KIF RECORD SIZE ',*FCBKDB BSS58 KEY DESCRIPTIONS BLOCK(** A FCBSIZ EQU$ MAX FCB SIZE- * A*  PROGRAM FILE EXTENSION5* A DORG FCBMSZ9,FCBMNT BYTE 0  MAXIMUM NUMBER OF TASKS(,0FCBTO BYTE 0  TASK DIRECTORY ENTRY OFFSET&02FCBTR DATA 0  TASK DIRECTORY ENTRY RECORD #%22FCBMNP BYTE 0  MAXIMUM NUMBER OF PROCEDURES %20FCBPO BYTE 0  PROC DIRECTORY ENTRY OFFSET&02FCBPR DATA 0  PROC DIRECTORY ENTRY RECORD #%20FCBMNO BYTE 0  MAXIMUM NUMBER OF OVERLAYS &04FCBOO BYTE 0  OVERLAY DIRECTORY ENTRY OFFSET $44FCBOR DATA 0  OVERLAY DIRECTORY ENTRY RECORD $4* A*FCBPSZ EQU$  PROGRAM FILE FCB SIZE)** A * FCB EQUATES FOR FSC FIELDS4 * A$FCBPDT EQUFSCPDTPDT ADDRESS -$6FCBPDR EQUFSCPDRPTR TO PARENT'S DIRECTORY DOOR$6&FCBEOM EQUFSCEOMEND OF MEDIUM LO&GICAL REC. #%&FCBAPB EQUFSCAPBADUS PER BLOCK,&&FCBBPA EQUFSCBPABLOCKS PER ADU,&0FCBPAS EQUFSCPAS PRIMARY ALLOCATION SIZE '02FCBPAA EQUFSCPAA PRIMARY ALLOCATION ADDRESS&2$FCBSAA EQUFSCSAASAT ADDRESS -$,FCBPRS EQUFSCPRS PHYSICAL RECORD SIZE),.FCBADU EQUFSCADU FDR ADU FOR THIS FILE (..FCBOFF EQUFSCOFF FDR OFFSET WITHIN ADU (.,FCBMFG EQUFSCMFG MODIFIED ONLY FLAGS ),,FCBMEC EQUFSCMEC 1= EOM HAS CHANGED (,0FCBMWT EQUFSCMWT 1= FILE WAS WRITTEN IN &0* A6 DORG FSCSIZ FDB - FILE DIRECTORY BLOCK VARIANT $6(FDBRNM DATA 0  RECORD NUMBER OF FDR)(6FDBDDR PTRDDR ADDRESS OF DIRECTORY DOOR (DDR) #6FDBFNM BSS8 FILE NAME . FDBFCB PTR  FSC  ADDRESS OF FCB ANCHOR ( (FDBCDF BYTE 0  COUNT OF DESCENDANTS)( BYTE 0 RESERVED/8FDBAFD PTRFSC ADDRESS OF FIRST DESCENDANT (AFD) "8*FDBSAF PTRSSB  SSB ADDRESS FOR AFD )*4FDBALS PTRFSC ADDRESS OF LAST SIBLING (ALS) $4*FDBSAL PTRSSB  SSB ADDRESS FOR ALS )*4FDBANS PTRFSC ADDRESS OF NEXT SIBLING (ANS) $4*FDBSAN PTRSSB  SSB ADDRESS FOR ANS )*2FDBAPF PTRFSC ADDRESS OF PARENT FILE (APF)%2*FDBSAP PTRSSB  SSB ADDRESS FOR APF )*.FDBFMT PTRSSB  SSB ADDRESS FOR THIS FDB'.FDBMSZ EQU$ FDB SIZE/* A"* FDB EQUATES FOR FSC FIELDS 3"* A$FDBPDT EQUFSCPDTPDT ADDRESS -$6FDBPDR EQUFSCPDRPTR TO PARENT'S DIRECTORY DOOR$6FDBEOM. EQUFSCEOMEND OF MEDIUM LOGICAL REC. #%.&FDBAPB EQUFSCAPBADUS PER BLOCK,&&FDBBPA EQUFSCBPABLOCKS PER ADU,&0FDBPAS EQUFSCPAS PRIMARY ALLOCATION SIZE '02FDBPAA EQUFSCPAA PRIMARY ALLOCATION ADDRESS&2$FDBSAA EQUFSCSAASAT ADDRESS -$,FDBPRS EQUFSCPRS PHYSICAL RECORD SIZE),.FDBADU EQUFSCADU FDR ADU FOR THIS FILE (.0FDBOFF EQUFSCOFF FDR SECTOR OFFSET IN ADU'0,FDBMFG EQUFSCMFG MODIFIED ONLY FLAGS ),,FDBMEC EQUFSCMEC 1 = EOM HAS CHANGED(,0FDBMWT EQUFSCMWT 1 = FILE WAS WRITTEN IN&0*FDBFU1 EQUFSCFU1 FILE USAGE BIT ONE***FDBFU2 EQUFSCFU2 FILE USAGE BIT TWO**2FDBFDL EQUFSCDEL FDB DELETE PROTECTION FLAG&2* A  RORG <  PAGE < NN  LIST < MODE ENABLED FLAG $"*  =1 ==> INTERRUPTS ENABLED ""*  =0 ==> INTERRUPTS DISABLED "* '* '0HWTYPE EQU>0001  CI401 HARDWARE TYPE CODE 0* ' *  HSR401 GLOBAL CONSTANTS * '0BSYCNT EQU10CHECK 'RWBUSY' SIGNAL COUNT 0* TITL 'CI401 (COMMIF) CRU DEFINITIONS'*  PAGE " &*  CI401 (COMMIF) CRU DEFINITION&* '.*  INPUT STATUS REGISTER-ADDR=1,STROBE=0.* '"DSR  EQU0 DATA SET READY""CTS  EQU1 CLEAR TO SEND "2SDCD EQU2 SECONDARY DATA CARRIER DETECT 20RESIN EQU3 RESERVED INCOMING MODEM LEAD 0RING EQU4 RING(DCD  EQU5  DATA CARRIER DETECT ( RRQ  EQU8 READ REQUEST SYPPBM P P'2{{@ UNL#@************************************************************ @ *  * , * PARTIAL BIT MAP (PBM)03/06/80 * , *  * 2* LOCATION: DISK, PARTIAL BIT MAP TABLE  * 2@************************************************************ @>* THE PBM DESCRIBES THE CURRENT ALLOCATION OF A DISK. THE >>* IN-MEMORY PBM IS IN THE PARTIAL BIT MAP TABLE SET ASIDE >: * FOR ONLY PBM TABLES.EACH TIME A FILE IS CREATED OR ::* EXTENDED, THE PBM ISUPDATED IN BOTH MEMORY AND DISK : * REPRESENTATIONS.  DORG 0 ! *PBMMAX BYTE 0  NUMBER OF PARTIAL MAPS*0PBMNUM BYTE 0 PARTIAL MAP NUMBER IN BUFFER 00PBMFAU DATA 0 FIRST AVAILABLE ADU ON DISK 0$PBMLRC DATA 0  LRC CHECKSUM OF ME$ MORY PBM 2PBMLCB DATA 0 ADU OF LARGEST CONTIGUOUS BLK 20PBMBLK EQU256  PARTIAL BIT MAP BLOCK SIZE 08PBMLEN EQUPBMBLK/2-1*16  ADU'S IN PARTIAL BIT MAP 8*PBMMAP BSSPBMLEN/8PARTIAL BIT MAP **PBMTAB EQU$  START OF BIT MAP TABLE**PBMSIZ EQU$  PBM BUFFER/TABLE SIZE *  DORG 0 ! * '@* THIS SECTION MAPS EACH PBM; THE DISK MANAGER CAN EXAMINE @@* THIS "MAP" TO DETERMINE ON A FIRST-FIT BASIS THE PARTIAL @:* BIT MAP FROM WHICH TO ALLOCATE WITHOUT SEQUENTIALLY :<* SEARCHING THE DISK-RESIDENT BIT MAPS.THE FOLLOWING <B* STRUCTURE IS REPEATED AS REQUIRED FOR EACH PARTIAL BIT MAP: B* '2PBMBIG DATA 0 LARGEST CONTIGUOUS BLK IN PBM 2PBMBGN DATA 0 CO NTIGUOUS BLK AT START *PBMEND DATA 0  CONTIGUOUS BLK AT END *,PBMTES EQU$  SIZE OF EACH TABLE ENTRY ,  RORG "  PAGE "  LIST " S EOF BEFORE EOM&,"FCBSGB PTRSGB SGB ADDRESS -".FCBSMT PTRSSB  SM TABLE AREA SSB OF SGB'.FC, BYTE 5,0,16 WORD 5 .UCKEYB EQU$-UCBPRB * KEY"$$k4F`4NODE%>* OF THE PATHNAME OF A FILE.IT PROVIDES TREE LINKAGE FOR%> * THE ENTIRE FILE PATHNAME. 4  DORG 0 ; "FSCPDT PTRPDT PDT POINTER -"4FSCPDR PTRDDR PTR TO PARENT'S DIRECTORY DOOR$40FSCEOM LONG 0 EN%%D OF MEDIUM LOGICAL REC # %0"FSCAPB BYTE 0 ADUS PER BLOCK,""FSCBPA BYTE 0 BLOCKS PER ADU,",FSCPAS DATA 0  PRIMARY ALQS42 PP "2|{@ UNL#B************************************************************** B *  * 6*  WAIT FOR EVENT(S) BLOCK(S42) 03/02/82 * 6 *  * B************************************************************** B PCKREC S42 ,S42SVC BYTE 0  EVENT WAIT OP CODE=#42 ,*S42ERC BYTE 0  EVENT WAIT ERROR CODE*,S42TIM DATA 0  MAXIMUM EVENT WAIT TIME,,S42RTF FLAGS 16  COMPLETED EVENT FLAGS, FLAG S42R00EVENT 00 FLAG S42R01EVENT 01 FLAG S42R02EVENT 02 FLAG S42R03EVENT 03 FLAG S42R04EVENT 04, BITS 11*** RESERVED UNTIL NEEDED *** ,2S42RT2 FLAGS 16  SECOND WORD OF RETURN FLAGS2, BITS 16*** RESERVED UNTIL NEEDED *** , S42WTF FLA GS 16  EVENT WAIT FLAGS  FLAG S42W00EVENT 00 FLAG S42W01EVENT 01 FLAG S42W02EVENT 02 FLAG S42W03EVENT 03 FLAG S42W04EVENT 04, BITS 11*** RESERVED UNTIL NEEDED *** ,2S42WT2 FLAGS 16  SECOND WORD OF RETURN FLAGS2, BITS 16*** RESERVED UNTIL NEEDED *** ,&S42RES DATA 0  *** RESERVED *** &< S42RID EQU S42RES  RUN ID, ONE BYTE. ONLY IF BRFTID=1 <  ENDREC !  PAGE "  LIST " UOUS BLK AT START *PBMEND DATA 0  CONTIGUOUS BLK AT END *,PBMTES EQU$  SIZE OF EACH TABLE ENTRY ,  RORG "  PAGE "  LIST " S EOF BEFORE EOM&,"FCBSGB PTRSGB SGB ADDRESS -".FCBSMT PTRSSB  SM TABLE AREA SSB OF SGB'.FCUIUD PP2}{@ UNL#@*********************************************************** @0*  INSTALL / UNLOAD / INITIALIZE DISC * 0 * * * (IUD) 08/27/79* @*********************************************************** @  DORG 0 ! ,IUDSOC BYTE 0  SUPERVISOR CALL OPCODE , IUDEC BYTE 0  ERROR CODE  &IUDDNM BSS4  DISC DEVICE NAME &&IUDVOL BSS8  DISC VOLUME NAME &0IUDNME DATA 0  NUMBER OF DIRECTORY ENTRIES0&IUDBAL BYTE 0  BAD ADU LIST LUNO&IUDFLG FLAGS 8 FLAGS  FLAG IUDEXTIUD EXTENSION  , FLAG IULDR  TRACK ONE LOADER OPTIONAL , BITS 6 *** RESERVED ***2IUDPRS DATA 0  DEFAULT PHYSICAL RECORD SIZE 2&IUDINT DATA 0  HARDWARE INTERLEAVI&NG FACTOR *IUDLDR BYTE 0  TRACK ONE LOADER LUNO* BYTE 0  *** UNUSED *** * '&IUDSIZ EQU$  SIZE OF IUD TABLE &* '  RORG "  PAGE "  LIST " **************************** B PCKREC S42 ,S42SVC BYTE 0  EVENT WAIT OP CODE=#42 ,*S42ERC BYTE 0  EVENT WAIT ERROR CODE*,S42TIM DATA 0  MAXIMUM EVENT WAIT TIME,,S42RTF FLAGS 16  COMPLETED EVENT FLAGS, FLAG S42R00EVENT 00 FLAG S42R01EVENT 01 FLAG S42R02EVENT 02 FLAG S42R03EVENT 03 FLAG S42R04EVENT 04, BITS 11*** RESERVED UNTIL NEEDED *** ,2S42RT2 FLAGS 16  SECOND WORD OF RETURN FLAGS2, BITS 16*** RESERVED UNTIL NEEDED *** , S42WTF FLA UPFI P P;2{@ UNL#@************************************************************ @ *  * >* PROGRAM FILE DIRECTORY INDEX ENTRY (PFI) 04/20/79 * > *  * * LOCATION: DISK * @************************************************************ @>* THE PFI IS USED TO DESCRIBE AN ENTRY IN A PROGRAM FILE. >@* ENTRIES CAN BE TASK SEGMENTS, PROCEDURE SEGMENTS, PROGRAM @<* SEGMENTS, AND OVERLAYS. IN ADDITION TO A COMMON FIRST <<* PORTION, THERE IS A SEPARATE VARIANT FOR EACH TYPE OF <B* ENTRY. IN THE FLAG COMMENTS, T INDICATES THE COMMENT APPLIES B>* TO A TASK ENTRY, P TO A PROCEDURE ENTRY, S TO A PROGRAM >.* SEGMENT ENTRY AND O TO AN OVERLAY ENTRY..  DORG 0 ! PFILEN DATA 0  SEGMENT LENGTH (BYTES) PFIFLG FLAGS 16  FLAGS  FLAG PFFPRIPRIVILEGED (T) $PFFRED EQUPFFPRIREADABLE (P)$ FLAG PFFSYSSYSTEM (T,S)* FLAG PFFRES MEMORY RESIDENT (T,P,S) *, FLAG PFFDEL DELETE PROTECTED(T,P,S,O) ,$ FLAG PFFREP REPLICATABLE (T,S)$0 FLAG PFFSG1PROC 1 IS ON THE PROG FILE (T) 04PFFSHR EQUPFFSG1SEG. IS SHARE PROTECTED (S) 40 FLAG PFFSG2PROC 2 IS ON THE PROG FILE (T) 00 FLAG PFFUSEPFI ENTRY IS IN USE (T,P,S,O) 0 FLAG PFFOVFOVERFLOW (T)2 FLAG PFFWCSWRITEABLE CONTROL STORE (T,P,S) 2, FLAG PFFEXP EXECUTE PROTECTED (T,P,S) ,( FLAG PFFWRP WRITE PROTECTED (P,S) (0PFFSPR EQUPFFWRP SOFTWARE PRIVILEGED (T) 0 FLAG PFFUPDUPDATABLE (T,S)   FLAG PFFREUREUSABLE (T,S)  FLAG PFFCPYCOPYABLE (T,S) & FLAG PFFSEC SECURITY BYPASS (T) &* '4PFIREC DATA 0  RECORD NUMBER OF START OF IMAGE 44PFIDAT DATA 0  DATE INSTALLED IN JULIAN FORMAT 4*PFILOD DATA 0  LOAD ADDRESS IN TASK *2 DORG PFILOD+2 TYPE DEPENDENT DATA (ANY SET) 2,PFIVAR BSS6  SINGLE PORTION OF DATA ,PFISIZ EQU$ !, DORG PFILOD+2 TASK ENTRY DESCRIPTION ,"PFIOVL BYTE 0  OVERLAY LINK ""PFIPRI BYTE 0  TASK PRIORITY"0PFISG1 BYTE 0  ID OF PROCEDURE 1 FOR TASK 00PFISG2 BYTE 0  ID OF PROCEDURE 2 FOR TASK 0 PFITND DATA 0  TASK LENGTH . DORG PFILOD+2 OVERLAY ENTRY DESCRIPTION.PFIOV2 BYTE 0  OVERLAY LINK *PFITID BYTE 0  ID OF ASSOCIATED TASK*,PFIOND DATA 0  RESERVED (SET TO ZERO) ,8 DORG PFILOD+2 PROCEDURE/PROGRAM ENTRY DESCRIPTION 8,PFIPND DATA 0  RESERVED (SET TO ZERO) ,  RORG "  PAGE "  LIST " *  00 = NON-BLANK SUPPRESSED $"*  01 = BLANK SUPPRESSED &*  10 & 11 = RESERVED(.FCBFAM EQU>3000  FILE FORMAT FLAGS MASK(." FLAG FCBFATEXPANDABLE IF ON+" BITS FCBFFT,2FILE TYPE ."*  00 = RESERVED (FOR DEVICE)$"* 01 = SEQUENTIAL )*  10 = RELATIVE RECORD'* 11 = KEY INDEXED),FCBFTM EQU>0600  FILE TYPE FLAGS MASK),( FLAG FCBFWP WRITE PROTECTED IF ON ((( FLAG FCBFDP DELETE PROTECTED IF ON((  FLAG FC WRDB P P"92ڀ{ UNL#@************************************************************ @ *  * 6* REQUEST DESCRIPTION BLOCK(RDB)  05/21/79 * 6 *  * 6*  LOCATION: RPSDAT AND SOME SVC PROCESSORS  * 6@************************************************************ @@* THE RDB FOR A GIVEN SVC SPECIFIES HOW TO BUFFER THE USER'S @>* REQUEST FOR PROCESSING BY THE SVC PROCESSOR.THE RDB IS >B* LOCATED IN THE MODULE RPSDAT BUILT DURING SYSTEM GENERATION BB* IF THE SVC IS AN OPTIONAL SVC OR IF THE SVC IS PROCESSED BY B< * A QUEUE SERVER TASK.OTHERWISE, THE RDB IS LOCATED IN <@* THE FIRST PROCESSOR MODULE FOR THE SVC PROCESSOR. AN RDB @<* EXISTS FOR A GIVEN SVC ONLY IF THE CALL BLOCK MUST BE 3000  FILE FORMAT FLAGS MASK(." FLAG FCBFATEX%%PANDABLE IF ON+" BITS FCBFFT,2FILE TYPE ."*  00 = RESERVED (FOR DEVICE)$"* 01 = SEQUENTIAL )*  10 = RELATIVE RECORD'* 11 = KEY INDEXED),FCBFTM EQU>0600  FILE TYPE FLAGS MASK),( FLAG FCBFWP WRITE PROTECTED IF ON ((( FLAG FCBFDP DELETE PROTECTED IF ON((  FLAG FC XOVB  P.702ځ{@ UNL#@************************************************************ @ *  * ** OVERHEAD BEET (OVB)  10/04/83 * * *  * "*  LOCATION: USER MEMORY  * "@************************************************************ @@* THE OVB IS THE 32 BYTES PRECEDING A SEGMENT WHEN IT IS IN @:* MEMORY. THE OVB INCLUDES LINKAGE, TYPE, AND STATUS :$* INFORMATION ABOUT THE SEGMENT.$* '>* THE OVFROL FLAG ALSO HAS THE MEANING "SEGMENT LOGICALLY > * NOT IN MEMORY". 2* THE OVBTIM IS THE COUNT OF TASKS WHICH BOTH:24* A) HAVE THE SEGMENT MAPPED IN OR LOADED, AND 4>* B) HAVE ALL THEIR MAPPED OR LOADED SEGMENTS PHYSICALLY >* IN MEMORY.  * AN OVERRUN BEET IS ALLOCATED  AT THE END OF THE SEGMENT >* TO PREVENT PROBLEMS WHICH COULD OCCUR BECAUSE OF /12 CPU > * PRE-FETCH OR CACHE FLUSH.  * '  DORG 0 ! 6OVBLEN DATA 0  LENGTH OF SEGMENT + OVERHEAD BEET 6*  + OVERRUN BEET (BEETS)6OVBPTR DATA 0  TSB ADDRESS WHEN BLOCK IS ON TOL 6&*  LDT ADDRESS IF BUFFER SEGMENT &0OVBFLK DATA 0  FORWARD LINK TO NEXT BLOCK 00OVBBLK DATA 0  BACKWARD LINK TO NEXT BLOCK0"OVBTYP BYTE 0  SEGMENT TYPE "&OVSHDR EQU>FF LIST HEADER = -1&,OVSDAT EQU>00  DATA FILE SEGMENT = 0 ,.OVSPRO EQU>01  PROGRAM FILE SEGMENT = 1..OVSMEM EQU>02  MEMORY BASED SEGMENT = 2.$OVSFRE EQU>03 FREE BLOCK = 3$$OVSDEL EQU>04 DEALLOCATE QUEUE$ SEGMENT = 4 4OVBIOC BYTE 0  TILINE AND 911 I/O OUTSTANDING 48OVBJSB DATA 0  JSB POINTER CORRESPONDING TO OVBPTR 82OVBSSB DATA 0  SEGMENT STATUS BLOCK POINTER 2,OVBSMT DATA 0  TABLE AREA SSB ADDRESS ,4OVBQLK DATA 0  QUEUE LINK (DEALLOCATE/WRITE Q) 40OVBBRB DATA 0  POINTER TO FORCE WRITE BRB 0 BSS2  RESERVED 6OVBSTS FLAGS 8 SEGMENT STATUS (IN MEMORY STATUS) 6( FLAG OVFWRT SEGMENT ON WRITE QUEUE(* FLAG OVFROL FORCE ROLL THIS SEGMENT *. FLAG OVFUBSUSER SEG USED AS FILE BUFFER . BYTE 0  RESERVED .OVBEXC DATA 0  EXECUTION TIME SINCE LOAD.& BSS4  RESERVED FOR FUTURE USE&*OVBTIM DATA 0  TASK IN MEMORY COUNT *OVBSIZ EQU$ !  RORG "  PAGE "  LIST " BUFFER 0*RDBCOF BYTE 0  OFFSET IN CALL BLOCK *:RDBBOF BYTE 0  OFFSET IN BRB (0=CONTINUE FROM LAST) :RDBSIZ EQU$ !  RORG "  PAGE "  LIST "  PAGE "  LIST " *  00 = NON-BLANK SUPPRESSED $"*  01 = BLANK SUPPRESSED &*  10 & 11 = RESERVED(.FCBFAM EQU>3000  FILE FORMAT FLAGS MASK(." FLAG FCBFATEXPANDABLE IF ON+" BITS FCBFFT,2FILE TYPE ."*  00 = RESERVED (FOR DEVICE)$"* 01 = SEQUENTIAL )*  10 = RELATIVE RECORD'* 11 = KEY INDEXED),FCBFTM EQU>0600  FILE TYPE FLAGS MASK),( FLAG FCBFWP WRITE PROTECTED IF ON ((( FLAG FCBFDP DELETE PROTECTED IF ON((  FLAG FC [OPCODE PP:U 2ڃ{@P UNL PP************************************************************ PP* * PP* I/O SUBOPCODES (OPCODE) 9/03/81 * PP* * PP************************************************************ PP* THIS TABLE CONTAINS ALL I/O SUBOPCODES EXCEPT FOR UTILITY PP* OPCODES. THE FORMAT OF EACH ENTRY IN THE TABLE IS: PP* DATA 00+VAL P* WHEJRE THE VAL IS A SYMBOL DEFINED BY THE MODULE JP* COPYING THIS FILE; THUS, EACH OPCODE ENTRY IN THIS TABLE PP* CAN CONTAIN MODULE-SPECIFIC DATA. ALSO, IF A NEW ENTRY PP* IS DEFINED IN THIS TABLE, THE SYMBOL "VAL" WILL PP* BE UNDEFINED, MAKING MODULES WHICH MUST UNDERSTAND ALL PP* I/O OPCODES EASY TO FIND AND MODIFY TO COMPREHEND NEW PP* OPCODES. PP* PP* DIRECT DISK I/O OPCODES ARE NOTED AS COMMENTS, WHERE THEY P * DIFFER IN D MEANING FROM I/O TO OTHER DEVICES OR FILES. DP* PP PSEG PP LIST PPOPCODE EVEN OPCODES IN ASCENDING ORDER PP DATA >0000+VAL00 OPEN PP DATA >0100+VAL01 CLOSE PP DATA >0200+VAL02 CLOSE W/EOF PP DATA >0300+VAL03 OPEN REWIND P DATA >0400+>VAL04 CLOSE UNLOAD >P DATA >0500+VAL05 READ STATUS PP DATA >0600+VAL06 FORWARD SPACE PP DATA >0700+VAL07 BACK SPACE/ PP* RESTORE PP DATA >0800+VAL08 COMM SPECIAL/TPD SPECIAL PP* WRITE FORMAT PP DATA >0900+VAL09 READ ASCII/ PP* READ BY ADU P DATA >0A00+VAL0A 8 READ DIRECT/ 8P* READ BY TRACK PP DATA >0B00+VAL0B WRITE ASCII/ PP* WRITE BY ADU PP DATA >0C00+VAL0C WRITE DIRECT/ PP* WRITE BY TRACK PP DATA >0D00+VAL0D WRITE END OF FILE PP DATA >0E00+VAL0E REWIND/ PP* STORE REGISTERS P DATA >0F00+VAL0F 2 UNLOAD/ 2P* READ FORMAT PP DATA >1000+VAL10 REWRITE/ PP* WRITE DELETED SECTOR PP DATA >1100+VAL11 MOD. ACCESS PRIVILEGES PP* READ DELETED SECTOR PP DATA >1200+VAL12 OPEN EXTEND/OPEN WP MODE PP* FORMAT W/ INTERLEAVING PP DATA >1300+VAL13 OPEN UNBLOCKED P$ DATA >1400+VAL14 CLO$,SE W/OUT FDR UPDATE ,P DATA >1500+VAL15 SET DEVICE CHARACTERISTICS PP DATA >1600+VAL16 DIAGNOSTIC PORT PP DATA >1700+VAL17 READ W/ INITIAL VALUE PP DATA >1900+VAL19 MASTER READ PP DATA >1A00+VAL1A MASTER READ-CALL-BLOCK PP DATA >1B00+VAL1B MASTER WRITE PP DATA >1C00+VAL1C REDIRECT ASSIGN LUNO PP DATA >2000+VAL20 READ 32 BITS (INDUSTRIAL) P* DATA >2100+VAL21 READ INT *&BIT (INDUSTRIAL) &P DATA >2200+VAL22 WRITE SEQUENTIAL (INDUST.) PP DATA >2300+VAL23 WRITE RANDOM (INDUSTRIAL) PP DATA >4000+VAL40 OPEN RANDOM PP DATA >4100+VAL41 READ GREATER PP DATA >4200+VAL42 READ BY KEY PP DATA >4300+VAL43 READ BY PRIMARY KEY %% PP DATA >4400+VAL44 READ GREATER OR EQUAL PP DATA >4500+VAL45 READ NEXT P0 DATA >4600+VAL46 INSERT 0 P DATA >4700+VAL47 REWRITE PP DATA >4800+VAL48 READ PREVIOUS PP DATA >4900+VAL49 DELETE BY KEY PP DATA >4A00+VAL4A UNLOCK PP DATA >5000+VAL50 SET CURRENCY EQUAL PP DATA >5100+VAL51 SET CURRENCY EQUAL/GREATER PP DATA >5200+VAL52 SET CURRENCY GREATER PP DATA >5900+VAL59 MULTI-RECORD READ P6 DATA >5B00+VAL5B MULTI-RECORD WRITE 6 P DATA >FFFF TABLE TERMINATOR PP PEND PFSCPAA PRIMARY ALLOCATION ADDRESS&2$FDBSAA EQUFSCSAASAT ADDRESS -$,FDBPRS EQUFSCPRS PHYSICAL RECORD SIZE),.FDBADU EQUFSCADU FDR ADU FOR THIS FILE (.0FDBOFF EQUFSCOFF FDR SECTOR OFFSET IN ADU'0,FDBMFG EQUFSCMFG MODIFIED ONLY FLAGS ),,FDBMEC EQUFSCMEC 1 = EOM HAS CHANGED(,0FDBMWT EQUFSCMWT 1 = FILE WAS WRITTEN IN&0*FDBFU1 EQUFSCFU1 FILE USAGE BIT ONE***FDBFU2 EQUFSCFU2 FILE USAGE BIT TWO**2FDBFDL EQUFSCDEL FDB DELETE PROTECTION FLAG&2* A  RORG <  PAGE < NN\TSB PPXv2څ{ UNL#@************************************************************ @ *  * . * TASK STATUS BLOCK(TSB) 05/22/84 * . *  * * LOCATION: JCA * @************************************************************ @>* EACH TASK WHICH HAS BEEN BID IS REPRESENTED BY A TSB IN >@* ITS JOB'S JCA.THE TSB INCLUDES STATE INFORMATION, LINKS @>* TO VARIOUS QUEUES, CHARACTERISTICS OF THE TASK, LOCATION >@* INFORMATION, MAPPING INFORMATION, AND STATISTICS COUNTERS. @* '&* DETAILS ABOUT PARTICULAR FIELDS:&@* TSBTSK - OFFSET INTO MAP FILE AND SSB ADDRESSES FOR THE @<*  SEGMENT THAT IS THE TASK SEGMENT (0=FIRST SEGMENT, <,*  4=SECOND SEGMENT, 8=THIRD SEGMENT) ,* '@@* TSBIOI - I/O BOUND INDICATOR, MODIFIED BY THE SCHEDULER @* 'B* TSBGEN - GENERATION NUMBER IS ONE GREATER THAN THAT OF THE B<*  PARENT OF THIS TASK. IF THE PARENT TASK DIES, THE <8*  GENERATION NUMBER OF THIS TASK IS REDUCED BY 1, 8:*  AS ARE THE GENERATION NUMBERS OF ANY DESCENDENTS ::*  OF THIS TASK.THIS VALUE IS 0 FOR QUEUE SERVERS. :* 'D* TSBSBN - SMT AND SSB PAIR FOR THE NEW SEGMENT WHEN A CHANGE D<* TSBSTN SEGMENT OPERATION IS ISSUED. TSBPSN IS THE <@* TSPPSN POSITION OF THE SEGMENT (0,4, OR 8). THESE ARE @8*  USED ONLY WHEN THE SSB FOR THE NEW SEGMENT MUST 8*  BE INITIALIZED.* '6* TSBLSE - LOAD SEGMENT ENTRIES INCLUDE THE JCA AN6D ANY OTHER 8*  SEGMENTS THAT NEED TO BE LOADED IN MEMORY WHEN 8:*  THIS TASK EXECUTES, THOUGH THEY MAY NOT BE MAPPED :*  IN TO THE TASK.* '@* TSBOSE - OWNED SEGMENTS ARE TEMPORARILY SHARE-PROTECTED @* ' PCKREC TSB 6TSBQL PTRTSB QUEUEING LINK FOR DYNAMIC QUEUES 6,TSBWP ADDR 0  ACTIVE WORKSPACE POINTER ,*TSBPC ADDR 0  ACTIVE PROGRAM COUNTER*"TSBST WORD 0 ACTIVE STATUS ",TSBPRI BYTE 0  TASK PRIORITY (RUN TIME) ,TSBSTA BYTE 0 TASK STATE*TSBIPR BYTE 0  INITIAL TASK PRIORITY *,TSBINP BYTE 0  INSTALLED TASK PRIORITY ,.TSBIID BYTE 0  INSTALLED TASK IDENTIFIER .,TSBRID BYTE 0  RUN TIME TASK IDENTIFIER ,TSBSTG BYTE 0 TASK STAGE NUMBER *TSBIEC BYTE 0  INITIATED EVENT COUNT *0TSBFL1 FLAGS 16  TASK FLAGS - SYSTEM FLAGS 0 FLAG TSFSYS SYSTEM TASK" FLAG TSFPRI PRIVILEGED TASK"0 FLAG TSFMEM CURRENT SEGMENT SET IN MEMORY0, FLAG TSFENA TAKE END ACTION ON ERROR ,0 FLAG TSFIOA I/O HAS BEEN ABORTED FOR TASK0& FLAG TSFABT TASK BEING ABORTED &" FLAG TSFSEC BYPASS SECURITY"$ FLAG TSFQSR QUEUE SERVER TASK$, FLAG TSFACT ACTIVATE TASK OUTSTANDING ,$ FLAG TSFBID INITIAL TASK BID $& FLAG TSFSPR SOFTWARE PRIVILEGE && FLAG TSFTOA ABORT TIMEOUT FLAG &* FLAG TSFIOE I/O EVENT PEND. UNBUFF * *  RESERVED - BITS 13 - 15 *TSBFL2 FLAGS 16  TASK FLAGS - CONTROL F*LAGS ( FLAG TSFCNT TASK BEING CONTROLLED (( FLAG TSFSSC STOPPED BY SCHEDULER (( FLAG TSFSBK STOPPED BY BREAKPOINT ($ FLAG TSFHLT TASK TO BE HALTED$* FLAG TSFRST RESTART PARENT ON TERM * FLAG TSFRBD RBID TASK FLAG TSFXOP REISSUE XOP* FLAG TSFCHO JOB-LOCAL CHANNEL OWNER * *  RESERVED - BITS 8 - 15 "TSBJSB PTRJSB JSB ADDRESS "*TSBXOP ADDR 0  EFFECTIVE XOP ADDRESS *2TSBTSK BYTE 0 2 WORD OFFSET TO TASK (0,4,8) 2&TSBIO BYTE 0  GENERAL I/O COUNT &(TSBIOI BYTE 0  I/O BOUND INDICATOR ((TSBPSN BYTE 0  POSITION OF NEW SSB (.TSBCPT LONG 0  CPU EXECUTION TIME (TICKS) .0TSBRPC LONG 0 NUMBER SERVICE CALLS ISSUED 0TSBBY1 DATA $0 NUMBER I/O BYTES TRANSFERRED $4TSBBY2 DATA 0  I/O BYTES TRANSFERRED - WORD 2 42TSBSPN DATA 0 TICK COUNTER AT TIME SUSPENDED 24TSBTSB PTRTSB TSB FIXED LINK IN SET FOR JOB 4.TSBSTI BYTE 0  STATION ID (FF=NO STATION) .&TSBGEN BYTE 0  GENERATION NUMBER & TSBPM1 WORD 0 PARAMETER 1  TSBPM2 WORD 0 PARAMETER 2  2TSBIN1 WORD 0 COMPLETED EVENT FLAGS - WORD 1 22TSBIN2 WORD 0 COMPLETED EVENT FLAGS - WORD 1 2.TSBLDT PTRLDT  LDT LIST HEADER POINTER .0TSBEOR PTRBRO  END OF REQUEST PROCESSING 0*  LIST HEADER.TSBEAP ADDR 0  END ACTION PROGRAM COUNTER .(TSBEAW ADDR 0  END ACTION WORKSPACE(4TSBDIA PTRDIA END ACTION STATUS INFORMATION 4* (D IAGNOSTIC DATA ADDRESS) (TSBSBN PTRSSB  ADDRESS OF NEW SSB(2TSBSTN PTRSSB SM TABLE SSB FOR NEW SEGMENT 22TSBSB1 PTRSSB SSB ADDRESS FOR 1ST SEGMEMT 22TSBST1 PTRSSB SM TABLE SSB FOR 1ST SEGMENT 22TSBSB2 PTRSSB SSB ADDRESS FOR 2ND SEGMEMT 22TSBST2 PTRSSB SM TABLE SSB FOR 2ND SEGMENT 22TSBSB3 PTRSSB SSB ADDRESS FOR 3RD SEGMENT 22TSBST3 PTRSSB SM TABLE SSB FOR 3RD SEGMENT 2*TSBML1 WORD 0  MAP LIMIT ONE REGISTER**TSBMB1 WORD 0  MAP BIAS ONE REGISTER **TSBML2 WORD 0  MAP LIMIT TWO REGISTER**TSBMB2 WORD 0  MAP BIAS TWO REGISTER *,TSBML3 WORD 0  MAP LIMIT THREE REGISTER ,,TSBMB3 WORD 0  MAP BIAS THREE REGISTER ,TSBBLN POSINT 0LENGTH O F MAPPED SEGMENTS (BEETS) 4TSBTLM POSINT 0TOTAL ROLLABLE MEMORY (BEETS) 4*TSBMXM POSINT 0 MAX VALUE OF TSBTLM *4TSBLSE PTRLSE LOAD SEGMENT ENTRY LIST HEADER 46TSBOSE PTROSE OWNED SEGMENT ENTRY LIST HEADER 62TSBSRT LONG 0 TICK COUNTER WHEN TASK STARTED 22TSBFMT PTRSSB THE FDP OF PROGRAM FILE FOR 2(TSBFCB PTRFSC  THE TASK SEGMENT (&TSBAIC BYTE 0  ABORTING I/O COUNT&TSBRES BYTE 0 RESERVED0TSBSVB DATA 0 SAVED MB3 WHEN OVLY ENTERED 00TSBSVL DATA 0 SAVED ML3 WHEN OVLY ENTERED 0  ENDREC !  PAGE "  LIST " ENABLED 9 k4`49 P DATA >FFFF TABLE TERMINATOR ]BAP PPpL2چ{@P UNL PP************************************************************ PP* * PP* BUFFER ADDRESS PACKET (BAP) 9/30/81 * PP* * PP* LOCATION: SYSTEM AREA * PP************************************************************ PP* THE BAP IS THE ADDRESS OF AN I/O BUFFER WHICH IPC APPENDS PP* TO A BUFFERED I/O REQUEST. P J PCKREC BAP JPBAPSMT PTR SSB POINTER TO SMT SSB PPBAPSSB PTR SSB POINTER TO BUFFER SEG. SSB PPBAPOFF WORD 0 OFFSET TO BUFFER WITHIN SEG. PP ENDREC PP PAGE PP LIST PORITY *,TSBINP%% BYTE 0  INSTALLED TASK PRIORITY ,.TSBIID BYTE 0  INSTALLED TASK IDENTIFIER .,TSBRID BYTE 0  RUN TIME TASK IDENTIFIER ,TSBSTG BYTE 0 TA\DS923CP1P`Pv:2ڍ{@* '* 'B************************************************************** B0* 9902/9903 INTERFACE EXTENSIONS 02/11/830B************************************************************** B DORG HSRBGN(EXTTMR DATA 0 TIMER DURATION COUNT ((EXTCDY DATA 0 DYNAMIC "CLICK" COUNT((EXTCST DATA 0 STATIC "CLICK" COUNT (* ' EXTFLG DATA 0 HSR FLAGS4EFLCTH EQUWD8000 CHANNEL TRANSMIT HALT FLAG 48EFLCR EQUWD4000 CHANNEL RESET MODE ENABLED FLAG 88EFLUIL EQUWD2000 UART INTERNAL LOOPBACK ENABLED 80EFLTB EQUWD1000 TRANSMIT BREAK ENABLED 0* '"EXTTMP DATA 0 TEMPORARY CELL ""EXTTM1 DATA 0 TEMPORARY CELL "*EXTSPD DATA 0 SAVED SPEED SELECTION COD*E .EXTPSL DATA 0 SAVED PARITY SELECTION CODE.6EXTLDC DATA 0 LOAD CRU INSTRUCTION FOR 9902/9903 6* ' EXTTYP DATA 0 HARDWARE TYPE ,CH210A EQU0  990/10A 9902 PORT EQUATE,IS210A EQUWD0000,CH2402 EQU2  CI-402 9902 PORT EQUATE ,IS2402 EQUWD0002,CH2421 EQU4  CI-421 9902 PORT EQUATE ,IS2421 EQUWD0004,CH2422 EQU6  CI-422 9902 PORT EQUATE ,IS2422 EQUWD00066CH2VDT EQU8 S300 INTERNAL VDT 9902 PORT EQUATE 6IS2VDT EQUWD0008,CH3421 EQU>A CI-421 9903 PORT EQUATE ,IS3421 EQUWD000A* '*  ERROR COUNTERS * '*EXTOVR DATA 0 RECEIVER OVERRUN ERRORS**EXTFER DATA 0 RECEIVE FRAMING ERRORS *EX&TPER DATA 0 RECEIVE PARITY ERRORS&* '  RORG "  PAGE " * 1  CC  CC  S * 0  II  II  3 * /  44  44  0 * A  02  22  0 "* 1  2 21  12 EVDT " * 8  5$ * 9  99  99  9 $* P  P 9  99  99  9 $$* I  I 0  00  00  0 $2* N  NDESCRIPTION 2  22  32  2 2@************************************************************ @@*CON *1 * PROTECTIVE GROUND * Y * Y *Y * Y *Y * Y * @>* 1 * 2 * TRANSMIT DATA * Y * Y *Y * Y *Y * Y * >>* 2 * 3 * RECEIVE DATA * Y * Y *Y * Y *Y * Y * >8* 3 * 4 * REQUEST TO SEND * Y * Y *Y * Y *Y 8 * Y * >* 4 * 5 * CLEAR TO SEND * Y * Y *Y * Y *Y * Y * >@************************************************************ @* '@************************************************************ @>* 5 * 6 * DATA SET READY* Y$* Y *Y * Y *Y * Y * >>* 16 * 7 * SIGNAL GROUND * Y * Y *Y * Y *Y * Y * >@* 6 *8 * DATA CARRIER DETEC* N$* Y *Y * Y *Y * N * @:* -- *9 * + VOLTAGE * N * N *N * N *N * N * :: * -- * 10 * - VOLTAGE * N * N *N * N *N * N * :@************************************************************ @* '@************************************************************ @: * -- * 11 * UNASSIGNED* N * N *N * N *N * N * :* > 8 * 12 * SDCD (OR SPEED I)* N * Y *Y * Y *Y * Y * >@* 15 * 13 * ANALOG LOOPBACK * Y * Y *N * N *N * N * @> * 9 * 14 * SEC XMIT DATA * N * N *N * N *N * N * >> * 10 * 15 * DCE XMIT CLOCK* N * N *N * Y *N * N * >@************************************************************ @* '@************************************************************ @< * -- * 16 * SEC RCV DATA* N * N *N * N *N * N * <> * 11 * 17 * DCE RCV CLOCK * N * N *N * Y *N * N * >: * -- * 18 * UNASSIGNED* N * N *N * N *N * N * :@* 7 * 19 * SEC REQUEST TO SND* N * Y *Y * Y *N * N * @@* 12 * 20 * DATA TERM READY * Y * Y *Y * Y *Y * N * @ ********************,**************************************** ,* '@************************************************************ @@* -- * 21 * SIGNAL QUAL DETECT* N * N *N * N *N * N * @> * 13 * 22 * RING INDICATOR* Y * Y *Y * Y *Y * N * >4* -- * 23 * DSRS* N * N *N * N *N * N * 4> * 14 * 24 * DTE XMIT CLOCK* N * N *N * Y *N * N * >: * -- * 25 * UNASSIGNED* N * N *N * N *N * N * :@************************************************************ @* '>* $ - DCD IS NOT IMPLEMENTED ON THIS INTERFACE. DCD OR DSR ><* MAY BE JUMPERED AS SOURCE FOR DSR CHIP INPUT ON THE <* 9902. "  PAGE " * 1  CC  CC  S * 0  II  II  3  * /   44  44  0 * A  02  22  0 "* 1  2 21  12 EVDT " * 8  5$ * 9  99  99  9 $* P  P 9  99  99  9 $$* I  I 0  00  00  0 $2* N  NDESCRIPTION 2  22  32  2 2@************************************************************ @@*CON *1 * PROTECTIVE GROUND * Y * Y *Y * Y *Y * Y * @>* 1 * 2 * TRANSMIT DATA * Y * Y *Y * Y *Y * Y * >>* 2 * 3 * RECEIVE DATA * Y * Y *Y * Y *Y * Y * >@* 3 * 4 * REQUEST TO SEND * Y * Y *Y * Y *Y * Y * @>* 4 * 5 * CLEAR TO SEND * Y * Y *Y * Y *Y * Y * >>* 5 * 6 * DATA SET READY* Y$* Y *Y * Y *Y * Y * > ********** 6************************************************** 6* '@************************************************************ @@* 6 *8 * DATA CARRIER DETEC* N$* Y *Y * Y *Y * N * @@* 7 * 19 * SEC REQUEST TO SND* N * Y *Y * Y *N * N * @@* 8 * 12 * SDCD (OR SPEED I)* N * Y *Y * Y *Y * Y * @> * 9 * 14 * SEC XMIT DATA * N * N *N * N *N * N * >> * 10 * 15 * DCE XMIT CLOCK* N * N *N * Y *N * N * >@************************************************************ @* '@************************************************************ @> * 11 * 17 * DCE RCV CLOCK * N * N *N * Y *N * N * >@* 12 * 20 * DATA TERM READY * Y * Y *Y * Y *Y * N * @ * 13 * 2 6 2 * RING INDICATOR* Y * Y *Y * Y *Y * N * 6> * 14 * 24 * DTE XMIT CLOCK* N * N *N * Y *N * N * >@* 15 * 13 * ANALOG LOOPBACK * Y * Y *N * N *N * N * @@************************************************************ @* '@************************************************************ @>* 16 * 7 * SIGNAL GROUND * Y * Y *Y * Y *Y * Y * >: * 17 * -- * KEYING PIN* Y * Y *Y * N *N * N * :: * 18 * -- * KEYING PIN* Y * Y *Y * N *N * N * :@************************************************************ @* '>* $ - DCD IS NOT IMPLEMENTED ON THIS INTERFACE. DCD OR DSR ><* MAY BE JUMPERED AS SOURCE FOR DSR CHIP INPUT ON THE <* 9902. " PAGE "*  1C C C C S *  0I I I I 3 *  /4 4 4 4 0 *  A0 2 2 2 0 * 2 1 1 2 * '*  99 9 9 9 9 *  99 9 9 9 9 *  00 0 0 0 0 ,* FUNCTION NAME 22 2 3 2 2 ,:****************************************************** :* OUTPUT BITS * ':****************************************************** ::* ENBCOM 39 *Y *Y *Y *Y *Y *Y * ::* ENBINT 38 *Y *Y *Y *Y *Y *Y * ::* ENBHDP 37 *N *Y *N *N *Y *N * :8* SRTS 34 *N *Y *Y *Y *N *N * 8* AL 33 *Y *Y *N *N *N *N * 8* DTR  32 *Y *Y *Y *Y *Y *$ * 8:****************************************************** :* '* INPUT BITS:****************************************************** ::* REDCOM 39 *N *Y *N *N *Y *Y * ::* REDINT 38 *N *Y *N *N *Y * $$ * ::* REDHDP 37 *N *Y *N *N *Y *N * ::* CLOCK  36 *Y *Y *Y *Y *Y *Y * ::* CRU902 35 *Y *Y *Y *Y *Y *Y * :8* SDCD 34 *N *Y *Y *Y *Y * $$ * 88* RING 33 *Y *Y *Y *Y *Y *N * 88* DCD  32 *N *Y *Y *Y *Y *N * 8 ************************"****************************** "* '8* $ - ENBCOM IS CONNECTED TO DTR ON THIS INTERFACE.8* '6* $$ - SDCD IS SENSED ON BIT 38 ON THIS INTERFACE.6$*  REDINT IS NOT IMPLEMENTED. $  PAGE # * '* '.* OUTPUT BIT DEFINITION, EXTERNAL TO 9903 .*ENBCKL EQU47 ENABLE CLOCK LOOPBACK *8RCCINT EQU46RECEIVER CLOCK SELECT (0=EXT, 1=INT) 88XMCINT EQU45TRANSMIT CLOCK SELECT (0=EXT, 1=INT) 86LODRAT EQU44LOAD BAUD RATE SET IN BITS (40-43)6$RAT0 EQU43MSB OF BIT RATE $&RAT1 EQU42 MSB-1 OF BIT RATE &&RAT2 EQU41 MSB-2 OF BIT RATE &$RAT3 EQU40LSB OF BIT RATE $* '* '2* OUTPUT BIT DEFINITION, EXTERNAL TO 9902/990326@*ENBCOM EQU39 ENABLE COMMUNICATIONS *&ENBINT E%%QU38 ENABLE INTERRUPTS &0ENBHDP EQU37ENABLE HALF DUPLEX OPERATION0.SRTS EQU34 SECONDARY REQUEST TO SEND ."AL EQU33ANALOG LOOPBACK "(DTR  EQU32 DATA TERMINAL READY (  PAGE " * '* '.* OUTPUT BIT DEFINITION, INTERNAL TO 9903 .4RESETC EQU31RESET (REQUIRES 11 CLOCK DELAY) 46CLRXFR EQU30ONE (TRANSMITTER), ZERO (RECEIVER)66CLRCRC EQU29ONE (TRASNMITTER), ZERO (RECEIVE) 64LXBC EQU25LOAD XMT BUFFER AND CRC REGISTER4(LXCRC EQU24 LOAD XMT CRC BUFFER ($BRKON3 EQU23BREAK ON - 9903 $4DSCENB EQU21DATA SET CHANGE INTERRUPT ENABLE4&TIMENB EQU20 TIMER INTERRUPT ENAB&LE4XBIENB EQU19TRANSMIT BUFFER INTERRUPT ENABLE4.RIENB EQU18 RECEIVER INTERRUPT ENABLE .*RTSON3 EQU17 REQUEST TO SEND - 9903*"XMTON EQU16TRANSMITTER ON"TSTMD EQU15TEST MODE *LDCTRL EQU14 LOAD CONTROL REGISTER **LDIR EQU13 LOAD INTERVAL REGISTER*.LRCRC EQU12 LOAD RECEIVE CRC REGISTER .* '$DRCK32 EQU1132X CLOCK SELECT$,CRC1 EQU10 CRC POLYNOMIAL SELECT 1 ,,CRC0 EQU09 CRC POLYNOMIAL SELECT 0 ,"MDSL2 EQU8 MODE SELECT 2 "4MDSL1 EQU7 MODE SELECT 1  (101=ASYNC 2SB)44MDSL0 EQU6 MODE SELECT 0  (110=ASYNC 1SB)46CLS1 EQU5  CONFIGURATION SELECT 1(00=NOPAR) 6 CLS0 EQU4 CONFIGURATION  SELECT 0 (CLK4M EQU3  CLOCK DIVIDE SELECT (2RCL23 EQU2 CHARACTER LENGTH SELECT MSB ( 2:RCL13 EQU1  CHARACTER LENGTH SELECT (00=5,10=7) ::RCL03 EQU0 CHARACTER LENGTH SELECT LSB (01=6,11=8 :* '* ' *  9903 PARAMETER EQUATES  *PS3CLK EQUWD0800 32X CLOCK SELECT **PS3PR0 EQUWD0010 PARITY TYPE BIT 0**PS3ENP EQUWD0020 ENABLE PARITY BIT*2PS3SB2 EQUWD0100 STOP BIT SELECTION BIT 2 22PS3SB1 EQUWD0080 STOP BIT SELECTION BIT 1 22PS3SB0 EQUWD0040 STOP BIT SELECTION BIT 0 20PS3RAT EQUWD0008 DIVIDE BY FOUR RATE BIT04PS3CH2 EQUWD0004 CHAR LENGTH SELECTION BIT 244PS3CH1 EQUWD0002 CHAR LENGTH SELECTION BIT 14PS23CH0 EQUWD0001 CHAR LENGTH SELECTION BIT 02  PAGE " * '* '.* OUTPUT BIT DEFINITION, INTERNAL TO 9902 .2*  EQU31RESET (REQUIRES 11 CLOCK DELAY) 22*  EQU21DATA SET CHANGE INTERRUPT ENABLE2(*  EQU20 TIMER INTERRUPT ENABLE(2*  EQU19TRANSMIT BUFFER INTERRUPT ENABLE2,*  EQU18 RECEIVER INTERRUPT ENABLE ,$BRKON2 EQU17BREAK ON - 9902 $*RTSON2 EQU16 REQUEST TO SEND - 9902**  EQU15TEST MODE (*  EQU14 LOAD CONTROL REGISTER ((*  EQU13 LOAD INTERVAL REGISTER(4LRDR EQU12LOAD RECEIVE DATA RATE REGISTER 44LXDR EQU11LOAD TRANSMIT DATA RATE REGISTER4* '*SBS1 EQU7  STOP BIT SELECT (00=1 1/* 2 BIT, 01= 2 BIT) <SBS2 EQU6  STOP BIT SELECT (10=1 BIT, 11= 1 BIT) <:PENB EQU5 PARITY ENABLE BIT (0=NONE, 1=ENABLED) :6PODD EQU4 ODD PARITY SELECT (0=EVEN, 1=ODD) 6&*  EQU3  CLOCK DIVIDE SELECT &*  EQU2 NOT USED:RCL12 EQU1  CHARACTER LENGTH SELECT (00=5,10=7) ::RCL02 EQU0 CHARACTER LENGTH SELECT LSB (01=6,11=8 :* '* ' *  9902 PARAMETER EQUATES  *PS2PR0 EQUWD1000 PARITY TYPE BIT 0**PS2ENP EQUWD2000 ENABLE PARITY BIT*2PS2SB1 EQUWD8000 STOP BIT SELECTION BIT 1 22PS2SB0 EQUWD4000 STOP BIT SELECTION BIT 0 20PS2RAT EQUWD0800 DIVIDE BY FOUR RATE BIT00PS2CH1 EQUWD0200 CHAR LENGTH SELECTION BIT0 14PS2CH0 EQUWD0100 CHAR LENGTH SELECTION BIT 04* '  PAGE # * '2* INPUT BIT DEFINITION, EXTERNAL TO 9902/9903 2* '2REDCOM EQU39READ IF COMMUNICATION ENABLED 20REDINT EQU38 READ IF INTERRUPTSENABLED 02SDCVDT EQU38SDCD (FOR S300 EVT PORT ONLY) 22REDHDP EQU37READ IF HALF DUPLEX OPERATION 26CLOCK EQU36 CRU BIT TO DETERMINE 4 OR 2.5 MHZ6*  0 = 4 MHZ*  1 = 2.5 MHZ6CRU902 EQU35 CRU BIT TO DETERMINE 9902 OR 99036*  0 = 9903 *  1 = 9902 8SDCD EQU34 SDCD (SPEED INDICATION/REV CHANNEL) 8$RING EQU33 RING INDICATOR $(DCD  EQU32 DATA CARRIER DETECT(* '* '* INPUT BIT  DEFINITION, INTERNAL TO 9903 :INT  EQU31INTERRUPT (DSCINT!TIMINT!XBINT!RBINT) :6FLAG EQU30FLAG (LDCTRL!LDIR!LRDR!LXDR!BRKON)6*DSCH EQU29 DATA SET CHANGE ENABLE*"CTS  EQU28CLEAR TO SEND ""DSR  EQU27DATA SET READY".RTSAUT EQU26 REQUEST TO SEND AUTOMATIC ."TIMELP EQU25TIMER ELAPSED " TIMERR EQU24TIMER ERROR  2XBRE EQU22TRANSMIT BUFFER REGISTER EMPTY2*RBRL EQU21 RECEIVE BUFFER LOADED *>DSCINT EQU20DATA SET CHANGE INTERRUPT (DSCH & DSCENB) >6TIMINT EQU19TIMER INTERRUPT (TIMELP & TIMENB) 62DEVPRS EQU189903 PRESENT = 0 (ASYNC ONLY) 26XBINT EQU17XMITTER INTERRUPT (XBRE & XBIENT) 6RINT EQU16RECEIV ER INTERRUPT (RBRL & RIENB)  "RIN  EQU15RECEIVE INPUT ",RSBD EQU14 RECEIVE START BIT DETECT,,RFBD EQU13 RECEIVE FULL BIT DETECT ,*RFER EQU12 RECEIVE FRAMING ERROR *$ROVER EQU11RECEIVE OVERRUN $(RPER EQU10 RECEIVE PARITY ERROR(8RCVERR EQU9 RECEIVE ERROR (RFER ! ROVER ! RPER) 8&* 0-8  RECEIVE BUFFER REGISTER &  PAGE " * ',* INPUT BIT DEFINITION, INTERNAL TO 9902,8*  EQU31INTERRUPT (DSCINT!TIMINT!XBINT!RBINT) 84*  EQU30FLAG (LDCTRL!LDIR!LRDR!LXDR!BRKON)4(*  EQU29 DATA SET CHANGE ENABLE( *  EQU28CLEAR TO SEND  *  EQU27DATA SET READY $RTS  EQU26REQUEST TO SEND $*  EQU25TIMER ELAPSED *  EQU24TIMER ERROR 2XSRE EQU23TRANSMIT SHIFT REGISTER EMPTY 20*  EQU22TRANSMIT BUFFER REGISTER EMPTY0(*  EQU21 RECEIVE BUFFER LOADED (<*  EQU20DATA SET CHANGE INTERRUPT (DSCH & DSCENB) <4*  EQU19TIMER INTERRUPT (TIMELP & TIMENB) 4"*  EQU189902 PRESENT = 0"4*  EQU17XMITTER INTERRUPT (XBRE & XBIENT) 44*  EQU16RECEIVER INTERRUPT (RBRL & RIENB) 4 *  EQU15RECEIVE INPUT  **  EQU14 RECEIVE START BIT DETECT***  EQU13 RECEIVE FULL BIT DETECT *(*  EQU12 RECEIVE FRAMING ERROR ("*  EQU11RECEIVE OVERRUN "&*  EQU10 RECEIVE PARITY ERROR&"*  EQU9  RECEIVE ERROR (RFE" R ! ROVER ! RPER) &* 0-8  RECEIVE BUFFER REGISTER &* '* '.*  RECEIVE CHARACTER STATUS FLAGS MASKS .* '*RSFFER EQUWD0008 RCV FRAMING ERROR**RSFPER EQUWD0004 RCV PARITY ERROR *$RSFOVR EQUWD0002 RCV OVERRUN$(  PAGE " * '6*  THIS COPY MODULE DEFINES SOME WORD CONSTANTS.68*  IT IS INTENDED TO BE USED NO ONLY TO BE FOR ITS 88*  CONSTANT VALUES ONLY, BUT ALSO TO DEFINE OTHER 86*  SECONDARY SYMBOLS USED FOR BIT MANIPULATION. 6* ' WDF060 DATA >F060  WDC060 DATA >C060  WD8000 DATA >8000  WD4000 DATA >4000  WD3000 DATA >3000  WD2000 DATA >2000  WD1000 DATA >1000  WD0F06 DATA >0F06 @ WD0C06 DATA >0C06  WD0800 DATA >0800  WD0400 DATA >0400  WD0300 DATA >0300  WD0200 DATA >0200  WD0100 DATA >0100  WD0080 DATA >0080  WD0040 DATA >0040  WD0020 DATA >0020  WD0010 DATA >0010  WD000A DATA >000A  WD0008 DATA >0008  WD0006 DATA >0006  WD0004 DATA >0004  WD0002 DATA >0002  WD0001 DATA >0001  WD0000 DATA >0000   PAGE " * '"*  HSPPSL ROUTINE BIT MASKS "* '*PSLPR1 EQUWD2000 PARITY TYPE BIT 1**PSLPR0 EQUWD1000 PARITY TYPE BIT 0**PSLENP EQUWD0800 ENABLE PARITY BIT*2PSLSB1 EQUWD0080 STOP BIT SELECTION BIT 1 22PSLSB0 EQUWD0040 STOP BIT SELECTION BIT 0 24PSLCH1 EQUWD0020 CHAR LENGTH SELECTION BIT 144PSLCH0 EQUWD0010 CHAR LENGTH SELECTION BIT 04* '* '&*  TRANSMIT PROCESSING CONSTANTS&* '0ZERO EQUWD0000 ZERO DATA WORD CONSTANT02 FFULL DATA SWFEND-SWFBGN  SIZE OF XMIT FIFO 2* '* ',*  INTERFACE CONSTANTS/DEFAULT VALUES ,* '2CRU422 EQU>0580  PORT 3 CI-422 CRU ADDRESS 26CRU10A EQU>1700 990/10A 9902 PORT CRU ADDRESS 6* '* '6TIMRAT EQU >FFFF9902/9903 INTERNAL CLOCK COUNT66DEFPRM EQU >0820INITIAL POWER UP DEFAULT VALUE64DEFSPD EQU >0E0EINITIAL SPEED DEFAULT VALUE 4* '* '<CLK25S EQU13STATIC CLICK COUNT FOR 2.5 MHZ 250MS CLK <CLK480S EQU15STATIC CLICK COUNT FOR 4.0 MHZ 250MS CL 8* '* '(*  DEFAULT OPERATIONAL PARMS ARE: (2*  ONE STOP BIT, ODD PARITY, SEVEN BIT DATA 2* '>CTL252 EQU>B200 DEFAULT CONTROL WORD FOR 2.5 MHZ 9902 >>CTL402 EQU>BA00 DEFAULT CONTROL WORD FOR 4.0 MHZ 9902 >>CTL253 EQU>09B2 DEFAULT CONTROL WORD FOR 2.5 MHZ 9903 >* '* '(*  DEF%%AULT BAUD RATE IS 9600 BAUD (* ':RAT252 EQU>002B DEFAULT BAUD RATE FOR 2.5 MHZ 9902 ::RAT402 EQU>0034 DEFAULT BAUD RATE FOR 4.0 MHZ 9902 ::RAT253 EQU>0E00 DEFAULT BAUD RATE FOR 2.5 MHZ 9903 :* '* '  PAGE " * '* 'DBGINS $MACRO !( DATA >1000  MACRO DEBUG INSTRUCTION( $END DBGINS* ',*  DATA >2C40  GARY THOMAS DEBUGGER ,"*  DATA >1000  NO DEBUGGER",*  DATA >10FF  NO DEBUGGER AND JMP $,* '* '<*  THIS TEMPLATE IS USED FOR REFERENCING HSR INTERRUPT <*  RETURN VECTORS * '  DORG 0 ! ,RCVRTN DATA 0  RCV CHAR RETURN VECTOR ,0XMTRTN DATA 0  TRANSMIT CHAR RETURN VECTOR0.SIGRTN DATA 0  SIGNAL/FUNC CHANGE VECTOR.0TIMRTN DATA 0  TIMER EXPIRED RETURN VECTOR04ILLRTN DATA 0  ILLEGAL INTERRUPT RETURN VECTOR 4* '0*  TEMPLATE XMIT CHARACTER ROUTINE RETURNS0* '  DORG 0 ! 4NSRTN EQU$ 0 FUNCTION NOT SUPPORTED RETURN 4.XCFAIL EQU$  0 (FAIL) FIFO FULL RETURN.* '  DATA 0 ! 4SPDRTN EQU$ 2 SPEED SELECTION 'GOOD' RETURN 46SOPRTN EQU$ 2 SET OP PARAMETERS 'GOOD' RETURN 60NORMRT EQU$ 2 NORMAL/GOOD RETURN INDEX 0*NHESRT EQU$  2 HES___ GOOD RETURN *0NOUTRT EQU$ 2 HOUTP4/HOUTP7 GOOD RETURN0* '  DATA 0 ! .RD0RTN EQU$  4 READ SIGNAL = 0 RETURN .* '  DATA 0 ! .RD1RTN EQU$  6 READ SIGNAL = 1 RETURN .  RORG "  PAGE " * '*  (PDXFLG) <*  FLAG BYTE IN THE LOCAL PDT EXTENSION CONTAINS FLAGS <:*  INDICATING THE EIA RS232C SIGNALS FOR WHICH THERE ::*  HAS BEEN A STATUS CHANGE NOTIFICATION REQUESTED. :6*  IF THERE HAS BEEN A REQUEST FOR STATUS CHANGE6*  NOTIFIC.ATION ON SIGNAL "X" THEN THE BIT POSITION .6*  CORRESPONDING TO SIGNAL "X" WILL CONTAIN A 1.6* '<*  FOR TWO SIGNALS (TSRE AND RI), THERE WILL A STATUS <:*  CHANGE NOTIFICATION ONLY WHEN THE SIGNAL CHANGES :4*  FROM 0 TO 1 (OFF TO ON). WHEN ENABLED THE 48*  NOTIFICATION FOR ALL OTHER SIGNALS WILL BE MADE 84*  FOR ANY STATUS CHANGE (0 --> 1 OR 1 -->0). 4* '&*  01  23  45  67 &2* +----+----+----+----+----+----+----+----+ 2:* PDXFLG! DCD! RI! DSR! CTS! DCD!RI! DSR! CTS! :2* +----+----+----+----+----+----+----+----+ 2* '**  BIT 0 - DATA CARRIER DETECT ---+ *.*  BIT 1 - RING INDICATOR !___ SIGNAL .*  BIT 2 - DATA SET READY !  STATES **  BIT 3 - CLEAR TO SEND ---------+ ** '**  BIT 4 - DATA CARRIER DETECT ---+ *.*  BIT 5 - RING INDICATOR !___ NOTIFY .,*  BIT 6 - DATA SET READY !  FLAGS,**  BIT 7 - CLEAR TO SEND ---------+ ** '*  (PDXSIG) :*  THIS BYTE IN THE LOCAL PDT EXTENSION CONTAINS THE :8*  CURRENT STATE (0 OR 1) OF SEVEN SIGNALS. THESE 8>*  ARE THE SIGNALS FOR WHICH STATUS CHANGE NOTIFICATION >6*  CAN BE REQUESTED. A VALUE OF 1 INDICATES THE6:*  CORRESPONDING SIGNAL IS 1 (ON,SET,POSITIVE,LOGIC ::*  FALSE).A VALUE OF 0 INDICATES THE CORRESPONDING :6*  SIGNAL IS 0 (OFF,RESET,NEGATIVE,LOGIC FALSE) 6* '* ',*  89 10 11 12 13 14 15 ,2* +----+----+----+----+----+----+----+----+ 26* PDXFL1!  !SDCD!TSRE!!  !SDCD!TSRE!! 62* +----+----+----+----+----+----+----+----+ 2* '*  BIT8 - RESERVED6*  BIT9 - SECONDARY DATA CARRIER DETECT STATE 60*  BIT 10 - TRANSMIT SHIFT REGISTER EMPTY 0*  BIT 11 - RESERVED* '*  BIT 12 - RESERVED6*  BIT 13 - SEC DATA CARRIER DETECT NOTIFY FLAG 6<*  BIT 14 - TRANSMIT SHIFT REGISTER EMPTY NOTIFY FLAG <*  BIT 15 - RESERVED  PAGE " "*  PDXFLG - FLAG DEFINITIONS".* THESE FLAGS INDICATE IF STATUS CHANGE .(* NOTIFICATION HAS BEEN REQUESTED (* 'NKSCTS EQUWD0008 SECONDARY CLEAR TO SEND6NKSDCD EQUWD0004 SECONDARY DATA CARRIER DETECT 66NKTSRE EQUWD0002 TRANSMIT SHIFT REGISTER EMPTY 6,NKDCD EQUWD0800 DATA CARRIER DETECT,(NKRING EQUWD0400 RING INDICATOR ((NKDSR EQUWD0200 DATA SET READY (&NKCTS EQUWD0100 CLEAR TO SEND&* '.NOTIFF EQUWD0F06 ALL NOTIFY FLAGS MASK.:NOTIFI EQUWD0300 INTR SUPPORTED NOTIFY FLAGS MASK :2NOTIFP EQUWD0C06 POLLED NOTIFY FLAGS MASK 26SIGFLG EQUWDF060 MODEM SIGNAL FLAGS ONLY MASK 6:SIGDSC EQUWD3000 DSC MODEM SIGNAL FLAGS ONLY MASK :<SIGTIM EQUWDC060 POLLED MODEM SIGNAL FLAGS ONLY MASK <* ':*  PDXFLG - FLAG DEFINITIONS USED TO REFERENCE SAVED :* SIGNAL VALUES * '0NSSCTS EQUWD0080 SECONDARY CLEAR TO SEND06NSSDCD EQUWD0040 SECONDARY DATA CARRIER DETECT 66NSTSRE EQUWD0020 TRANSMIT SHIFT REGISTER EMPTY 6,NSDCD EQUWD8000 DATA CARRIER DETECT,(NSRING EQUWD4000 RING INDICATOR ((NSDSR EQUWD2000 DATA SET READY (&NSCTS EQUWD1000 CLEAR TO SEND&L j`4@ATCH PREVENTS THE EMULATOR TASK FROM HANGING IN AN INFINITE @J#* LOOP AFTER LOGGING MESSAGES TO A KEYBOARD DEVICE. THIS HANG USUALLY JH"* OCCURRED FOLLOWING THE RECEPTION OF A RECEIVE PATHAME AND A SINGLEH* DATA RECORD.!* '* '.EVAL STR=@STR+1 .DATA @TEMP" DXOP SVC,15 REFCSMSAF,CMDSC`RLT PL2ڎ{@ UNL#D *************************************************************** D. * RECORD LOCK TABLE(RLT) 05/09/79* . * *  4*  LOCATION: SYSTEM TABLE AREA OR USER JCA* 4&* (WHEREVER FCB IS LOCATED)* &D *************************************************************** D@* FOR A FILE WHICH HAS LOCKED RECORDS, EACH LOCKED RECORD IS @@* REPRESENTED BY A RLT CHAINED TO THE FILE CONTROL BLOCK OF @* THAT FILE."  DORG 0 ! .RLTRLT PTRRLT  NEXT TABLE ENTRY ADDRESS .*RLTLDT PTRLDT  LOCKING LDT ADDRESS **RLTTSB PTRTSB  LOCKING TSB ADDRESS *(RLTJSB PTRJSB  OWNER JSB ADDRESS ((RLTBN LONG 0  LOCKED BLOCK NUMBER ("RLTOFF DATA 0 LOCKED OFFSET "* 'RLTSIZ EQU$ !  RORG "  PAGE "  LIST " QU>0174 BUSY EQU>0002 * ' NEXT2 CB @OPCODE(R6),@H09  JEQREAD  MOV@SYSTF(R6),R1  COC@DNOPIF+BUSY,R1  JNENEXT4   RTWP " READ MOV@CHRCNT(R6),R1 JEQNEXT4  B@DNOPIF+WR0850NEXT4 EQU$ ! END#.EOD&@CPLINK MAP=@$CLST.MAP.TASK@$PROT,  ASSEMBLER INPUT=@TEMP,@@PROG FILE=@$$DSC$.S$COMMDN, MODULE=DNOPIF,OFFSET=>0064, @*PATCH TYPE=RE,#WORDS=17,PNUM=@STR,*" PATCH AREA=CCPAT1, VD=>C066 "EC'.DATA @TEMP" REFCMDDEV,DNOPIF BUSY EQU>0002 SYSTF EQU4 !* '. MOV@CMDDEV,R1 IS IT A KEYB`SMR  P-2ڏ{@ UNL#@*********************************************************** @8* SEGMENT MANAGEMENT REQUEST (SMR) 11/05/81* 8 * * (*  LOCATION: SYSTEM TABLE AREA * (@*********************************************************** @<* THE SMR IS A SEGMENT MANAGEMENT SVC BLOCK WITH SEVERAL <:* ADDITIONAL FIELDS DEFINED FOR USE BY SEGMENT MANAGER :$* DURING PROCESSING OF THE SVC. $  DORG 0 ! SMRSVC BYTE 0 SVC CODESMRERR BYTE 0 ERROR CODE.SMROP BYTE 0  SEGMENT MANAGER SUB-OPCODE . SMRLUN BYTE 0 LOGICAL UNIT SMRFLG FLAGS 16 FLAGS " FLAG SMFINS  INSTALLED ID "" FLAG SMFNMD  NOT MODIFIED "  FLAG SMFREL  RELEASABLE   FLAG SMFMBS  MEMORY BASED 4 FLAG SMFPOS  0 IF POSITION NUMBER SPECIFIED 4&*  FOR OLD SEGMENT. 1 IF RUNTIME&*  ID SPECIFIED." FLAG SMFTSK  TASK SEGMENT "0 FLAG SMFVLD  VERIFY PROG. FILE LOAD ADDR 0* FLAG SMFSRE  SET/RESET FLAG ENABLE *$ FLAG SMFSEU  SET/RESET FLAG $*  1=>SET EXCLUSIVE USE  *  0=>RESET EXCLUSIVE USE  FLAG SMFSYS  SYSTEM TASK  BITS 4  ***RESERVED*** 2 BITS SMFPSN,2  POSITION NUMBER(1,2, OR 3) 2*SMRNS1 DATA 0  NEW SEGMENT ID WORD 1 **SMRNS2 DATA 0  NEW SEGMENT ID WORD 2 *"SMROSG DATA 0 OLD SEGMENT ID"$SMRADR DATA 0 SEGMENT ADDRESS $"SMRLEN DATA 0 SEGMENT LENGTH"&SMRATR DATA 0  SEGMENT ATTRIBUTE (A&S IN SSB) "SMRFMT PTRSSB FDP ADDRESS "SMRFCB PTRFSC * 'SMRSIZ EQU$ !  RORG "  PAGE "  LIST " **NFCRSHWAS CONVERTED **FDP WAS CONVERTED **DMR WAS CONVERTED **SGB WAS CONVERTED **SGCONSWAS CONVERTED **FCA WAS CONVERTED **SISTYPESWAS CONVERTED **JDBCONS WAS CONVERTED **LNB WAS CONVERTED **NMCOMMWAS CONVERTED **NFERR3WAS CONVERTED %%**FIT WAS CONVERTED **CROSSFILWAS CONVERTED **CVCONSWAS CONVERTED **LGACOMWAS CONVERTED **IUD WAS CONVERTED **SPLPCMWAS CONVERTED **NFER10WAS CONVERTED **SLH WAS CONVERTED **XR`CNT PP2ڐ{ UNL#@************************************************************ @ *  * 2*  CLASS NAME TABLE ENTRY (CNT)09/09/83 * 2 *  * .* LOCATION: .S$SDTQUE.(SYSNAME) AND  * .**  SPOOLER TASK COMMON (SPCOMN)  * *@************************************************************ @8* THE CNT IS USED BY THE SPOOLER TO SAVE CLASS NAME 8* INFORMATION.! PCKREC CNTCNTFLG FLAGS 8!& FLAG CNFDEL TRUE=DELETED ENTRY &  BITS 1 ! ( FLAG CNFHLT TRUE=CLASS IS HALTED (,CNTPRI BYTE 0  QUEUE ELEMENT PRIORITY ,6CNTDEV WORD 0  COUNT OF DEVICES USING CLASS NAME 60CNTRN WORD 0  QUEUE ELEMENT RECORD NUMBER00CNTOFF BYTE 0  QUEUE ELEMENT RECORD OFFSET04&CNTRES BYTE 0  *** RESERVED *** & CNTNAM CHAR 8  CLASS NAME  * '*CNTNUM EQU48 NUMBER OF CNT ENTRIES** '  ENDREC !  PAGE "  LIST " G SMFVLD  VERIFY PROG. FILE LOAD ADDR 0* FLAG SMFSRE  SET/RESET FLAG ENABLE *$ FLAG SMFSEU  SET/RESET FLAG $*  1=>SET EXCLUSIVE USE  *  0=>RESET EXCLUSIVE USE  FLAG SMFSYS  SYSTEM TASK  BITS 4  ***RESERVED*** 2 BITS SMFPSN,2  POSITION NUMBER(1,2, OR 3) 2*SMRNS1 DATA 0  NEW SEGMENT ID WORD 1 **SMRNS2 DATA 0  NEW SEGMENT ID WORD 2 *"SMROSG DATA 0 OLD SEGMENT ID"$SMRADR DATA 0 SEGMENT ADDRESS $"SMRLEN DATA 0 SEGMENT LENGTH"&SMRATR DATA 0  SEGMENT ATTRIBUTE (A&cDMT PPF2ڑ{ UNL#@*********************************************************** @6* DISC MANAGER TASK WORK AREA (DMT)06/26/79* 6 * * "*  LOCATION: TASK AREA * "@*********************************************************** @  DORG 0 ! DMTAPB DATA 0 ADU'S/BLOCK  DMTBPA DATA 0 BLOCKS/ADU"DMTPBM DATA 0 STARTING PBM #"&DMTBIT DATA 0  STARTING PBM BIT #&0DMTSPM DATA 0 LARGEST BLOCK STARTING PBM # 0DMTSBT DATA 0 BIT # DMTSLB DATA 0 SIZE  RORG "  PAGE "  LIST " ****************************** @8* THE CNT IS USED BY THE SPOOLER TO SAVE CLASS NAME 8* INFORMATION.! PCKREC CNTCNTFLG FLAGS 8!& FLAG CNFDEL TRUE=DELEbS02 PP2ڒ{ UNL#B************************************************************** B *  * 4*  DELAY TASK SVC BLOCK (S02) 05/14/80 * 4 *  * B************************************************************** B PCKREC S02 ,S02SVC BYTE 0  DELAY TASK OP CODE=#02 ,*S02ERC BYTE 0  DELAY TASK ERROR CODE*8S02ICT DATA 0  INTERVAL COUNT FOR DELAY(50 MS INT) 8  ENDREC !  PAGE "  LIST "  PAGE " PBTED ENTRY &  BITS 1 ! ( FLAG CNFHLT TRUE=CLASS IS H"Lk4L`4 UNL#@*********************************************************** @6* DISC MANAGER TASK WORK AREA (DMT)06/26/79* 6 * * "*  LOCATION: TASK AREA * "gNIP PP2ڔ{@ UNL#@************************************************************ @ *  * .* NETWORK I/O PARAMETER (NIP) 03/30/83 * . *  * 2*  LOCATION: POINTED TO BY IRBPRM FIELD  * 2 *  * @************************************************************ @* '6*  THE NETWORK I/O PARAMETER IS GENERATED BY IOU62*  FOR ANY UTILITY OPERATION TO BE PERFORMED26*  ACROSS THE NETWORK. IT CONTAINS INFORMATION 64*  PERTAINING TO THE LOCAL ISSUER OF THE SVC. 4* '  DORG 0 ! *NIPSLN BYTE 0  SUBLIST NUMBER (>03) *4NIPLEN BYTE 0  LENGTH OF PARM-2 IN BYTES (>14) 4$NIPACT BSS16 ACCOUNT NUMBER $(NIPTSF DATA 0  TASK FLAGS (TSBFL1)(NIPJPR BYTE 0  JOB PRIORITY  NIPTID BYTE 0  TASK RUN ID NIPJID DATA 0  JOB ID "NIPRES DATA 0  RESERVED WORD"2NIPSIZ EQU$  TOTAL LENGTH OF NIO PARAMETER 2  RORG "  PAGE "  LIST " D ADDR 0* FLAG SMFSRE  SET/RESET FLAG ENABLE *$ FLAG SMFSEU  SET/RESET FLAG $*  1=>SET EXCLUSIVE USE  *  0=>RESET EXCLUSIVE USE  FLAG SMFSYS  SYSTEM TASK  BITS 4  *** g,$$f`4SCIQUE 5530000000012/22/8215:33:430000000000iROB PP2ڔ{ UNL#@************************************************************ @ *  * 4* RESOURCE OWNERSHIP BLOCK (ROB) 08/29/83 * 4 *  * * LOCATION: JCA  * @************************************************************ @B* AN ROB IS BUILT FOR AN I/O RESOURCE WHEN AN ATTACH RESOURCE B>* OPERATION IS PERFORMED. THE ROB IS LINKED INTO THE ROB > * LIST ANCHORED IN THE JCA.   DORG 0 ! (ROBROB PTRROB  NEXT ROB ADDRESS ($ROBACT BYTE 0  ATTACHED COUNT $"ROBATN BYTE 0  ATTACH NUMBER"ROBFMT PTRSSB ROBFCB PTRFSC ROBSIZ EQU$ !  RORG "  PAGE "  LIST " UMBER $(NIPTSF DATA 0  TASK FLAGS (TSBFL1)(NIPJPR BYTE 0  JiCDE PP2ږ{@ UNL#@************************************************************ @ *  * 6* COMMAND DEFINITION ENTRY (CDE)  04/02/82 * 6 *  * @************************************************************ @<* THE CDE DESCRIBES ONE ENTRY IN THE COMMAND DEFINITION <>* TABLE FOR A DEVICE. THE ENTRY SHOWS WHAT TASK IS TO BE >,* BID WHEN A KEYBOARD TASK BID IS DONE. ,  DORG 0! 4CDECHR CHAR 1 ENTRY IDENTIFICATION CHARACTER 4CDEFLG FLAGS 8 BID FLAGS2 FLAG CDFBCJ BID DEST. TASK IN CURRENT JOB 22 FLAG CDFPEA PASS THE CDE ADDRESS TO LOGIN 2$ FLAG CDFELB EVEN LOADING BID$, FLAG CDFDUI  DEFAULT USER ID FOR ELB , BITS 4* RESERVED *CDELL BYTE 0" LUNO WITH WHICH TO BID LOGIN ""CDELID BYTE 0 LOGIN TASK ID"2CDEDL BYTE 0 LUNO TO BID DESTINATION TASK 2(CDEDID BYTE 0 DESTINATION TASK ID(6CDEPV1 WORD 2 PARAMETER VALUE 1 FOR DEST. TASK 66CDEPV2 WORD 2 PARAMETER VALUE 2 FOR DEST. TASK 6$CDEUID CHAR 8 DEFAULT USER ID$* '2CDESIZ EQU $ COMMAND DEFINITION ENTRY SIZE 2  RORG "  PAGE "  LIST "  *** g,$$f`4SCIQUE 5530000000012/22/8215:33:430000000000kSDEMD P Q7r2ڗ{@ UNL#:****************************************************** :,* SORTED DIRECTORY FILE ENTRIES (SDEMD),(*  FOR MAP DISC AND LIST DIRECTORY(* 09/25/79:****************************************************** :  DORG 0 ! SDEFNM BSS8 FILE NAME &SDEREC DATA 0  FDR RECORD NUMBER &SDEFLG DATA 0 FLAGS (SDEPRS DATA 0  PHYSICAL RECORD SIZE(0SDEIID EQUSDEPRS OWNER TASK INSTALLED ID 0(SDECFL EQUSDEIID+1CHANNEL FLAGS ((SDELRS DATA 0  LOGICAL RECORD SIZE (.SDETF EQUSDELRS CHANNEL RESOURCE FLAGS .,SDEPAS DATA 0  PRIMARY ALLOCATION SIZE ,.SDEMXL EQUSDEPAS CHANNEL MAX MSG LENGTH .,SDERAF EQU$  RECORD # OF ACTUAL FILE, SDESAS DAT $A 0  SECONDARY ALLOCATION SIZE $,SDESAA DATA 0  OFFSET OF SCONDARY TABLE ,,SDERNA EQU$  RECORD # OF NEXT ALIAS ,,SDERFA DATA 0  RECORD # OF FIRST ALIAS ,*SDEEOM BSS4  END OF MEDIUM RECORD #**SDEBKM BSS4  END OF MEDIUM BLOCK # *(SDEOFM DATA 0  END OF MEDIUM OFFSET(&SDETNB DATA 0  TOTAL # OF BLOCKS &.SDEKDR DATA 0  KEY DESCRIPTIONS RECORD # .$SDEUD BSS6 LAST UPDATE DATE$"SDECD BSS6 CREATION DATE "$SDEAPB BSS1 ADU'S PER BLOCK $$SDEBPA BSS1 BLOCK'S PER ADU $(SDELNK DATA 0  LINK TO NEXT ENTRY (2SDEALO DATA 0  TOTAL FILE ALLOCATION IN ADUS %%20SDEUSE DATA 0  # OF USED SECONDARY ENTRIES0* ' SDESIZ EQU$ SIZE IN BYTES  OF FDR  RORG " * '* '* '@************************************************************ @<*  MODIFIED SORTED DIRECTORY ENTRY(MOD) 09/25/79 * <@************************************************************ @  DORG 0 ! MODFNM BSS8  FILE NAME$MODFLG EQU$ FILE TYPE FLAGS $*MODREC DATA 0  RECORD NUMBER OF FILE*&MODFSZ EQU$  FILE SIZE IN ADUS &0MODRAF DATA 0  POINTER TO ACTUAL FILE NAME00MODLNK DATA 0  LINK TO NEXT MODIFIED ENTRY0"MODSIZ EQU$  SIZE IN BYTES"  RORG "  PAGE "  LIST " NVERTED **SGB WAS CONVERTED **SGCONSWAS CONVERTED **FCA WAS CONVERTED **SISTYPESWAS CONVERTED **lPFZ P Q $L2ژ{@ UNL#@************************************************************ @ *  * 6*  PROGRAM FILE RECORD ZERO  (PFZ)3/7/78 * 6 *  * * LOCATION: DISK * @************************************************************ @:* THE PFZ DESCRIBES THE FIRST RECORD (RECORD 0) OF THE :>* PROGRAM FILE. IT INCLUDES BIT MAPS FOR ALL ELEMENTS IN ><* THE PROGRAM FILE AS WELL AS DATA ABOUT CURRENT USE OF <* THE FILE. "  DORG 0 ! PFZRES BSS20RESERVED4PFZMRT BSS32BIT MAP - MEMORY-RESIDENT TASKS 48PFZMRP BSS32BIT MAP - MEMORY-RESIDENT PROCEDURES 8(PFZTSK BSS32 BIT MAP - ALL TASKS (,PFZPRC BSS32 BIT MAP - ALL PROCEDURES,PFZNRT BSS32BIT MAP - NO NREPLICATABLE TASKS *PFZOVL BSS32 BIT MAP - ALL OVERLAYS*,PFZMNT BSS1  MAXIMUM NUMBER OF TASKS ,6PFZTO BSS1 FIRST TASK DIRECTORY ENTRY OFFSET 64PFZTR WORD 0 FIRST TASK DIRECTORY ENTRY REC # 40PFZMNP BSS1 MAXIMUM NUMBER OF PROCEDURES06PFZPO BSS1 FIRST PROC DIRECTORY ENTRY OFFSET 64PFZPR WORD 0 FIRST PROC DIRECTORY ENTRY REC # 4.PFZMNO BSS1  MAXIMUM NUMBER OF OVERLAYS.6PFZOO BSS1 FIRST OVLY DIRECTORY ENTRY OFFSET 64PFZOR WORD 0 FIRST OVLY DIRECTORY ENTRY REC # 4,PFZMNH WORD 0  MAXIMUM NUMBER OF HOLES ,6PFZHO WORD 0 FIRST AVAILABLE SPACE LIST OFFSET 64PFZHR WORD 0 FIRST AVAILABLE SPACE LIST REC # 4"PFZSIZ EQU$ SIZE OF INFORMAT" ION SECTION OF REC 0   RORG "  PAGE "  LIST " OINTER TO ACTUAL FILE NAME00MODLNK DATA 0  LINK TO NEXT MODIFIED ENTRY0"MODSIZ EQU$  SIZE IN BYTES"  RORG "  PAGE "  LIST " NVERTED **SGB WAS CONVERTED **SGCONSWAS CONVERTED **FCA WAS CONVERTED **SISTYPESWAS CONVERTED **JDBCONS WAS CONVERTED **LNB WAS CONVERTED ** k4*`4 ALLOCATION IN ADUS 0SDEUSE DATA 0  # OF USED SECONDARY ENTRIES0* '(SDESIZ EQU$  SIZE IN BYTES OF FDR(  RORG " * '* '* '@************************************************************ @&*  MODIFIED SORTED DIRECTORY ENTRY&kTDL PQN2ڙ{ UNL#B************************************************************** B *  * 4*  TIME DELAY LIST ENTRY(TDL) 03/15/78 * 4 *  * (* LOCATION: SYSTEM TABLE AREA  * (B************************************************************** B6* A TDL DESCRIBES AN ENTRY ON THE TIME DELAY LIST.6  DORG 0 ! $TDLSVC DATA >200OP CODE (200) $$TDLVAL EQU$ TIME DELAY VALUE$,TDLTM1 DATA 0  REACTIVATION TIME (WD 1) ,TDLTM2 DATA 0 !"TDLSIZ EQU$ SIZE OF BLOCK "  RORG "  PAGE "  LIST " CORD (RECORD 0) OF THE :>* PROGRAM FILE. IT INCLUDES BIT MAPS FOR ALL ELEMENTS IN ><* THE PROGRAM FILE AS WELL AS DATA ABOUT CURRENT USE OF <* THE FILE. " mFID PQ:2ښ{ UNL#@************************************************************ @ *  * 0 * FILE IDENTIFICATION(FID)  02/22/80 * 0 *  * * LOCATION: FILES * @************************************************************ @<* THE FID IS USED TO IDENTIFY WITHIN A FILE ITS NAME AND <<* VERSION NUMBER. THIS IS USED FOR SYSTEM FILES SUCH AS < * S$CLF AND S$SDTQUE. * ' PCKREC FIDFIDNAM CHAR 8 FILE NAME "FIDVER CHAR 6 VERSION NUMBER"  ENDREC !  PAGE "  LIST "  UNL#B************************************************************** B *  * 4*  TIME DELAY LIST ENTRY(TDL) 03/15/78 * 4 *  * (* LOCATION: SYSTEpAJMPMAC P'Q 2ڝ{@  LIST " @************************************************************ @ *  * **  TITLE: ASYNC MUX JUMP TABLE  * * *  * ,*  REVISION: 25 JAN 1983 ORIGINAL  * ,>*  REVISION: 22 FEB 1983 ADD DIAGNOSTIC ENTRY POINTS * ><*  REVISION: 28 FEB 1983 USE COMMON 'JMPHSR' LABEL * <4*  REVISION: 23 MAR 1983 DROP JUMP TABLES  * 4:*  05  12/21/83 - ADD VARIABLE TO TOGGLE BETWEEN * :&* FULL AND REDUCED SIZED HSR * &2*  06 9/20/84 - ALWAYS ASSEMBLE HRDDSR * 2,*  COMPUTER: 990/10A 990/10 990/12  * ,>*  ABSTRACT:THIS COPY MEMBER PRODUCES A TEMPLATE OR * ><*  TABLE FOR INTERFACE BETWEEN A TSR AND HSR. THE * <$*  TSR TABLE PRODUCES FIXED OFFS$ ET INTO A TABLE WHOSE * >*  ADDRESS IS CONTAINED IN A REGISTER.THE HSR TABLE * >>*  PRODUCES A TABLE OF BRANCH INSTRUCTIONS FOR ACCESS * >,*  TO THE HSR SUBROUTINE MODULES.  * , *  * 8*  SET TT VARIABLE BEFORE TABLE COPY STATEMENT * 8 *  TT = 0 TSR TEMPLATE * &*  = 1 HSR SUBROUTINE ENTRIES  * & *  * :*  SET RED VARIABLE BEFORE TABLE COPY STATEMENT  * :"*  RED = 0 FULL SIZE HSR  * "* = 1 REDUCED HSR  *  *  * *  * @************************************************************ @ UNL# ASMIF TT   LIST " 8 DEF HRESET NORMAL POWER UP/RECOVERY SUBROUTINE 84 DEF HMRSTDIAGNOSTIC POWER UP/RECOVERY SUBROUT4INE > DEF HSWPWR NORMAL SOFTWARE INITIALIZATION SUBROUTINE >4 DEF HNOTIF HSR INTERRUPT DECODER SUBROUTINE 44 DEF HOUTP4 HSR OUTPUT CHARACTER SUBROUTINE 44 DEF HOUTP7 HSR OUTPUT CHARACTER SUBROUTINE 46 DEF HTIMER HSR SET TIMER DURATION SUBROUTINE 6* '4 DEF HSTDTR HSR DTR SIGNAL SET SUBROUTINE 44 DEF HRTDTR HSR DTR SIGNAL RESET SUBROUTINE 44 DEF HSTRTS HSR RTS SIGNAL SET SUBROUTINE 44 DEF HRTRTS HSR RTS SIGNAL RESET SUBROUTINE 4 UNL# ASMIF RED=0 R05   LIST " 4 DEF HSTSRT HSR SRTS SIGNAL SET SUBROUTINE 44 DEF HRTSRT HSR SRTS SIGNAL RESET SUBROUTINE 44 DEF HSTSRS HSR DSRS SIGNAL SET SUBROUTINE 4 D2EF HRTSRS HSR DSRS SIGNAL RESET SUBROUTINE 22 DEF HSTALHSR AL SIGNAL SET SUBROUTINE 22 DEF HRTALHSR AL SIGNAL RESET SUBROUTINE 22 DEF HSTRSHSR RS FUNCT. SET SUBROUTINE 22 DEF HRTRSHSR RS FUNCT. RESET SUBROUTINE 24 DEF HSTUIL HSR UIL FUNCT. SET SUBROUTINE 44 DEF HRTUIL HSR UIL FUNCT. RESET SUBROUTINE 4 UNL# ASMEND  R05   LIST " 4 DEF HSTCTH HSR CTH FUNCT. SET SUBROUTINE 44 DEF HRTCTH HSR CTH FUNCT. RESET SUBROUTINE 42 DEF HSTCRHSR CR FUNCT. SET SUBROUTINE 22 DEF HRTCRHSR CR FUNCT. RESET SUBROUTINE 2 UNL# ASMIF RED=0 R05   LIST " 4 DEF HSTBIL HSR BIL FUNCT. SET SUBROUTINE 4 D2EF HRTBIL HSR BIL FUNCT. RESET SUBROUTINE 22 DEF HSTTBHSR TB FUNCT. SET SUBROUTINE 22 DEF HRTTBHSR TB FUNCT. RESET SUBROUTINE 2* '4 DEF HRDCTS  HSR CTS SIGNAL READSUBROUTINE 46 DEF HRDSCT  HSR SCTS SIGNAL READ SUBROUTINE 6 UNL# ASMEND  R05   LIST " 8 DEF HRDDSR HSR DSR SIGNAL READ SUBROUTINE R06 84 DEF HRDDCD  HSR DCD SIGNAL READSUBROUTINE 4 UNL# ASMIF RED=0 R05   LIST " 4 DEF HRDSDC  HSR SDCD SIGNAL READSUBROUTINE 42 DEF HRDRIHSR RI SIGNAL READSUBROUTINE 24 DEF HRDUIL  HSR UIL FUNCT. READSUBROUTINE 44 DEF HRDCTH  HSR CTH FUNCT. READSUBROUTINE 4& DEF HRDCRHSR CR FUNCT. READ&SUBROUTINE 4 DEF HRDBIL  HSR BIL FUNCT. READSUBROUTINE 42 DEF HRDTBHSR TB FUNCT. READSUBROUTINE 24 DEF HRDSSS  HSR SSS FUNCT. READSUBROUTINE 4 UNL# ASMEND  R05   LIST " * '8 DEF HESDSR HSR DSR SIGNAL CHANGE NOTIFY ENABLE 8: DEF HDSDSR HSR DSR SIGNAL CHANGE NOTIFY DISABLE : UNL# ASMIF RED=0 R05   LIST " 8 DEF HESCTS HSR CTS SIGNAL CHANGE NOTIFY ENABLE %%8: DEF HDSCTS HSR CTS SIGNAL CHANGE NOTIFY DISABLE :8 DEF HESSCT HSR SCTS SIGNAL CHANGE NOTIFY ENABLE 8: DEF HDSSCT HSR SCTS SIGNAL CHANGE NOTIFY DISABLE : UNL# ASMEND  R05   LIST " 6 DEF HESDCD HSR DCD SIGNAL CHANGE NOTIFY ENABLE6 : DEF HDSDCD HSR DCD SIGNAL CHANGE NOTIFY DISABLE : UNL# ASMIF RED=0 R05   LIST " 8 DEF HESSDC HSR SDCD SIGNAL CHANGE NOTIFY ENABLE 8: DEF HDSSDC HSR SDCD SIGNAL CHANGE NOTIFY DISABLE : UNL# ASMEND  R05   LIST " 6 DEF HESRIHSR RI SIGNAL CHANGE NOTIFY ENABLE 68 DEF HDSRIHSR RI SIGNAL CHANGE NOTIFY DISABLE 8 UNL# ASMIF RED=0 R05   LIST " 8 DEF HESTSR HSR TSRE FUNCT. CHANGE NOTIFY ENABLE 8: DEF HDSTSR HSR TSRE FUNCT. CHANGE NOTIFY DISABLE :* ' UNL# ASMEND  R05   LIST " 0 DEF HSPSPD HSR SET BAUD RATE SUBROUTINE0: DEF HSPPSL HSR SET PARITY, CHAR LENGTH, STOP BITS : UNL#@ ASMIF RED=0 R05   LIST " * '* DEF HRPDAT  HSR READ HSR MODULE ID*2 DEF HRPSPD HSR READ BAUD RATE SUBROUTINE 2* '< DEF HRPPSL HSR READ PARITY, CHAR LENGTH, STOP BITS < UNL# ASMEND  R05   LIST " 4 DEF HRPTYP HSR READ HARDWARE INTERFACE TYPE 44 DEF HWUART HSR TILINE UART WRITE SUBROUTINE 44 DEF HRUART HSR TILINE UART READ SUBROUTINE 4 UNL#  ASMELS !  LIST " 8 REF HRESET NORMAL POWER UP/RECOVERY SUBROUTINE 8: REF HMRSTDIAGNOSTIC POWER UP/RECOVERY SUBROUTINE :> REF HSWPWR NORMAL SOFTWARE INITIALIZATION SUBROUTINE >4 REF HNOTIF HSR INTERRUPT DECODER SUBROUTINE 4$ REF HOUTP4  HSR OUTPUT CHARACT$ER SUBROUTINE 4 REF HOUTP7 HSR OUTPUT CHARACTER SUBROUTINE 46 REF HTIMER HSR SET TIMER DURATION SUBROUTINE 6* '4 REF HSTDTR HSR DTR SIGNAL SET SUBROUTINE 44 REF HRTDTR HSR DTR SIGNAL RESET SUBROUTINE 44 REF HSTRTS HSR RTS SIGNAL SET SUBROUTINE 44 REF HRTRTS HSR RTS SIGNAL RESET SUBROUTINE 44 REF HSTSRT HSR SRTS SIGNAL SET SUBROUTINE 44 REF HRTSRT HSR SRTS SIGNAL RESET SUBROUTINE 44 REF HSTSRS HSR DSRS SIGNAL SET SUBROUTINE 44 REF HRTSRS HSR DSRS SIGNAL RESET SUBROUTINE 42 REF HSTALHSR AL SIGNAL SET SUBROUTINE 22 REF HRTALHSR AL SIGNAL RESET SUBROUTINE 22 REF HSTRSHSR RS FUNCT. SET SUBROUTINE 2 REF, HRTRSHSR RS FUNCT. RESET SUBROUTINE ,4 REF HSTUIL HSR UIL FUNCT. SET SUBROUTINE 44 REF HRTUIL HSR UIL FUNCT. RESET SUBROUTINE 44 REF HSTCTH HSR CTH FUNCT. SET SUBROUTINE 44 REF HRTCTH HSR CTH FUNCT. RESET SUBROUTINE 42 REF HSTCRHSR CR FUNCT. SET SUBROUTINE 22 REF HRTCRHSR CR FUNCT. RESET SUBROUTINE 24 REF HSTBIL HSR BIL FUNCT. SET SUBROUTINE 44 REF HRTBIL HSR BIL FUNCT. RESET SUBROUTINE 42 REF HSTTBHSR TB FUNCT. SET SUBROUTINE 22 REF HRTTBHSR TB FUNCT. RESET SUBROUTINE 2* '4 REF HRDDSR  HSR DSR SIGNAL READSUBROUTINE 44 REF HRDCTS  HSR CTS SIGNAL READSUBROUTINE 4( REF HRDSCT  HSR SCTS SIGNAL READ ( SUBROUTINE 4 REF HRDDCD  HSR DCD SIGNAL READSUBROUTINE 44 REF HRDSDC  HSR SDCD SIGNAL READSUBROUTINE 42 REF HRDRIHSR RI SIGNAL READSUBROUTINE 24 REF HRDUIL  HSR UIL FUNCT. READSUBROUTINE 44 REF HRDCTH  HSR CTH FUNCT. READSUBROUTINE 42 REF HRDCRHSR CR FUNCT. READSUBROUTINE 24 REF HRDBIL  HSR BIL FUNCT. READSUBROUTINE 42 REF HRDTBHSR TB FUNCT. READSUBROUTINE 24 REF HRDSSS  HSR SSS FUNCT. READSUBROUTINE 4* '8 REF HESDSR HSR DSR SIGNAL CHANGE NOTIFY ENABLE 8: REF HDSDSR HSR DSR SIGNAL CHANGE NOTIFY DISABLE :8 REF HESCTS HSR CTS SIGNAL CHANGE NOTIFY ENABLE 84 REF HDSCTS HSR CTS SIGNAL CHANGE NOTIFY DISA4BLE 8 REF HESSCT HSR SCTS SIGNAL CHANGE NOTIFY ENABLE 8: REF HDSSCT HSR SCTS SIGNAL CHANGE NOTIFY DISABLE :8 REF HESDCD HSR DCD SIGNAL CHANGE NOTIFY ENABLE 8: REF HDSDCD HSR DCD SIGNAL CHANGE NOTIFY DISABLE :8 REF HESSDC HSR SDCD SIGNAL CHANGE NOTIFY ENABLE 8: REF HDSSDC HSR SDCD SIGNAL CHANGE NOTIFY DISABLE :6 REF HESRIHSR RI SIGNAL CHANGE NOTIFY ENABLE 68 REF HDSRIHSR RI SIGNAL CHANGE NOTIFY DISABLE 88 REF HESTSR HSR TSRE FUNCT. CHANGE NOTIFY ENABLE 8: REF HDSTSR HSR TSRE FUNCT. CHANGE NOTIFY DISABLE :* '0 REF HSPSPD HSR SET BAUD RATE SUBROUTINE0: REF HSPPSL HSR SET PARITY, CHAR LENGTH, STOP BITS :* '  REF H *RPSPD HSR READ BAUD RATE SUBROUTINE *< REF HRPPSL HSR READ PARITY, CHAR LENGTH, STOP BITS <* '* REF HRPDAT  HSR READ HSR MODULE ID*4 REF HRPTYP HSR READ HARDWARE INTERFACE TYPE 44 REF HWUART HSR TILINE UART WRITE SUBROUTINE 44 REF HRUART HSR TILINE UART READ SUBROUTINE 4 UNL#  ASMEND !  LIST "  PAGE " *N * N * @> * 9 * 14 * SEC XMIT DATA * N * N *N * N *N * N * >> * 10 * 15 * DCE XMIT CLOCK* N * N *N * Y *N * N * >@************************************************************ @* '.********************************************. ED PRI 4 % FILL1B : BYTE;  "INSTALLED PRI B1 %% FT"ttk4`4qS4F PQ?2ڞ{ UNL#B************************************************************** B *  * <*  POST EVENT FOR SPECIFIED TASK (S4F) 09/30/81  * < *  * B************************************************************** B PCKREC S4F ,S4FSVC BYTE 0  POST EVENT OP CODE=>4F ,*S4FERC BYTE 0  POST EVENT ERROR CODE*0S4FRID BYTE 0  RUN ID OF TASK TO BE POSTED0&S4FFLG FLAGS 8 POST EVENT FLAGS &2 BITS 3  *** NOT CURRENTLY USED - SET TO 0** 2* BITS S4FNUM,5 EVENT NUMBER TO POST *0S4FJID DATA 0  JOB ID OF TASK TO BE POSTED0&S4FRES DATA 0  *** RESERVED *** &  ENDREC !  PAGE "  LIST " EN A TSR AND HSR. THE * <$*  TSR TABLE PRODUCES FIXED OFFS$tDSVDTREXPQB]2ڠ{@>********************************************************** >8* 931/940 REMOTE EXTENSION TO KSB (VDT) 01/07/83 8>********************************************************** >* ' DORG TSRBGN$VDTFIL BSS1  FILL CHARACTER $$VDTEVT BSS1  EVENT CHARACTER$.VDTDEF BSS2  DEFINE BEGINNING OF FIELD..VDTPSR BSS2  R11 PRINTER REGISTER SAVE."VDTPTP BSS1  PRINTER TYPE "* 0 - 150 CPS * 1 - 75 CPS * 2 - 40 CPS * 3 - 20 CPS * 4 - 300 CPS TPP931 BSS1  931 TYPE *  0 - 931 OR EM931 1.0* 1 - EM931 2.0 4VDTSPD BSS2  SPEED OF CARD AND SWITCHED FLAG 40SPDMSK EQU>1F1F  MASK TO GET ONLY SPEED 0:SPDMSB EQU>001F  MASK TO GET SPEED RIGHT BYTE ONLY :.SYSUP BSS2  MASK FOR CONNECT SIGNALS .$SIGDCR EQU>A000  DCD AND DSR$"SIGDSR EQU>2000  DSR ONLY "&VDTRFL BSS2  REMOTE FLAG WORD &* 0 UNUSED8VDFBNK EQU1  BLINKING CURSOR ALLOWED (940 ONLY) 8* 0 = NO BLINKING *  1 = BLINKING ALLOWEDDBLKMSK EQU>C000  MASK TO SAVE TERMINAL TYPE AND BLINK CURSORD4VDFWPF EQU2  WAITING FOR POSITIVE FEED BACK 44VDFSPF EQU3  SCHEDULE ON POSITIVE FEED BACK 42SWPUP EQU4  SOFTWARE POWERUP IN PROGRESS 22IMOPCT EQU5  IMMEDIATE OPEN OCCURED ON CRT 26IMOPPR EQU6  IMMEDIATE OPEN OCCURED ON PRINTER 6* 7 UNUSED* 8 UNUSED* 9 UNUSED* 10UNUSED* 11UNUSED* 12UNUSED* 13UNUSED<ES2FOU EQU14 FLAG TO SAY FOUND SECOND ESC IN STRING <* 15UNUSED2VDTERR BSS2  ERROR PASSING FROM ISR TO TSR 2(VDTOVR BSS2  OVERRUN ERROR COUNT((VDTPAR BSS2  PARITY ERROR COUNT ((VDTFRM BSS2  FRAMING ERROR COUNT(*OVERUN EQU6  OVER RUN ERROR R01 *(PARITY EQU5  PARITY ERROR R01 ((FRAMIN EQU4  FRAMING ERRORR01 ((BREAK EQU3  BRAKE ERRORR01 (4VDTPTR BSS2  POINTER TO PDT REG 0 OF PRINTER 4"*  = 0 IF NO ATTACHED PRINTER "8PRTTIM BSS2  TIMER FOR PRINTER DELAY (940 ONLY) 8(FIRST BSS2  FLAG FOR POWER FAIL(*@4VDTEDL BSS2  OP CODE 15 SUB OP 0 EDIT FLAGS 42VFERFC EQU0 ERASE FIELD IS PURE EVENT CHAR 2** 1 RIGHT FIELD IS PURE EVENT CHAR *>VFCRLC EQU2 CURSOR LEFT OUT OF FLD IS PURE EVENT CHAR >"* 3  TAB IS PURE EVENT CHAR"* 4 RESERVED$* 5  SKIP IS PURE EVENT CHAR $$* 6  HOME IS PURE EVENT CHAR $&* 7  RETURN IS PURE EVENT CHAR &** 8 ERASE INPUT IS PURE EVENT CHAR ** 9 RESERVED0* 10DELETE CHARACTER IS PURE EVENT CHAR 00* 11INSERT CHARACTER I%%S PURE EVENT CHAR 0>VFCRRC EQU12CURSOR RIGHT OUT OF FLD IS PURE EVENT CHAR>$* 13 ENTER IS PURE EVENT CHAR $** 14LEFT FIELD IS PURE EVENT CHAR ** 15RESERVEDSTAT$BD DATA 0  STATE OF THE BOARD $&* 0 - BOARD DISCONNECTED STATE &"*  4 - BOARD CONNECTED STATE ",* 8 - BOARD WAITING ON TIMEOUT STATE ,(* 12 - BOARD WAITING ON RING STATE (.* 16 - BOARD IS IN DSR DIAGNOSTIC STATE .0STATGR DATA 0  STATE OF THE INPUT GRAPHICS0"*  0 - INPUT IS NOT GRAPHICS "*  4 - INPUT IS GRAPHICS2STATFN DATA 0  STATE OF THE FUNCTION MAPPING 2*  0 - REGULAR KEYS *  4 - ESC WAS RECEIVED *  8 - AID WAS RECEIVED * 12 - MODE TWO "*  16 - DSR DIAGNOSTIC STATE "*  20 - READ STATUS MODE 2BUFPTR EQUSIBUFF POINTER TO SCREEN BUFFER 2  RORG "  PAGE " 4& DEF HRDCRHSR CR FUNCT. READ&uSC0  QQ:"2ڡ{@ UNL=@************************************************************$@ *  *$ .*  TRACK 0, SECTOR 0 (SC0) 09/09/83 *$. *  *$ 4*  LOCATION: TRACK 0, SECTOR 0 OF EACH DISK *$4@************************************************************$@  DORG 0 ; SC0VNM BSS8 VOLUME NAME - *SC0TNA DATA 0  TOTAL SC0 ADU ON DISK (*0SC0SBM BYTE 0 STARTING SECTOR OF BIT MAPS %0&SC0TBM BYTE 0  TOTAL SC0 BIT MAPS*&*SC0RL DATA 0  TRACK 0 RECORD LENGTH (*0SC0SLT DATA 0 SYSTEM LOADER TRACK ADDRESS %0 BSS6 * * RESERVED * *+.SC0NBA DATA 0  TOTAL SC0 BAD ADU ON DISK &..SC0SLE DATA 0  SYSTEM LOADER ENTRY POINT &.(SC0SLL DATA 0  SYSTEM LOADER LENGTH)(  BSS8  * * RESERVED * *+0SC0LT1 DATA 0 SYSTEM LOADER TRACK (COPY 2)%0 BSS8 * * RESERVED * *+,SC0PI1 BSS8  PRIMARY SYSTEM FILE NAME',.SC0PI2 BSS8  SECONDARY SYSTEM FILE NAME&.$SC0PIF DATA 0 SYSTEM SELECTOR +$,SC0VDA DATA 0  VOLUME DIRECTORY ADU SC0',4SC0VPL DATA 0 VCATALOG PHYSICAL RECORD LENGTH #4 SC0SPA DATA 0 SECTORS/ADU - &SC0DCD BSS4  DISK CREATION DATE*&(SC0PF1 BSS8  PRIMARY PROGRAM FILE)(*SC0PF2 BSS8  SECONDARY PROGRAM FILE(*(SC0PFF DATA 0  PROGRAM FILE SWITCH )((SC0OF1 BSS8  PRIMARY OVERLAY FILE)(*SC0OF2 BSS8  SECONDARY OVERLAY FILE(*(SC0OFF DATA 0  OVERLAY FILE SWITCH )(0SC0IL1 BSS8 PRIMARY INTERMEDIATE LOADER %0 SC0IL2 BSS &8 SECONDARY INTERMEDIATE LOADER $&,SC0ILF DATA 0  INTERMEDIATE LOADER FLAG',(SC0DIN BSS8  DIAGNOSTIC FILE NAME)($SC0DIF DATA 0 DIAGNOSTIC FLAG +$2SC0DRS DATA 0 DBUILD DETERMINES DEFAULT PRS $24SC0BAL DATA 0 STARTING SECTOR OF BAD ADU LIST #4.SC0SPR DATA 0  TRACK 0 SECTORS PER RECORD&..SC0WF1 BSS8  WCS PRIMARY MICROCODE FILE&.0SC0WF2 BSS8 WCS SECONDARY MICROCODE FILE%0$SC0WFF DATA 0 WCS FLAG SWITCH +$(SC0VIF DATA 0  TRACK 1 SELECT FLAG )("SC0STA DATA 0 STATE OF DISK ,"* 1 - NOT ANALYZED(* 2 - ANALYZED** 3 - INTIALIZED)* A&SC0DCT DATA 0  DISK CREATION TIME*&$SC0FSF DATA 0 * * RESERVED * *+$SC0SIZ EQU$ ;  RORG <   PAGE <  LIST < k4x`4 : BOOLEAN; "CHARACTER M"k4`4@(*$ NO LIST *)?"***** k4`4@ UNL#@**********************************************6 k4`4@4VDTEDL BSS2  OP CODE 15 SUB OP 0 EDIT FLAGS 42VFERFC EQU0 ERASE FIELD IS PURE EVENT CHAR 2** 1 RIGHT FIELD IS PURE EVENT CHAR *>VFCRLC EQU2 CURSOR LEFT OUT OF FLD IS PURE EVENT CHAR >"* 3  TAB IS PURE EVENT CHAR"* 4 RESERVED$* 5  SKIP IS PURE EVENT CHAR $$* 6  HOME IS PURE EVENT CHAR $&* 7  RETURN IS PURE EVENT CHAR &** 8 ERASE INPUT IS PURE EVENT CHAR ** 9 RESERVED0vRIB PQ]j2ڢ{@UNL "@************************************************************ @ *  * 6* RETURN INFORMATION BLOCK (RIB)  02/08/79 * 6 *  * 0* LOCATION: RPSDAT AND SVC PROCESSORS  * 0@************************************************************ @:* THE RIB FOR A GIVEN SVC TELLS HOW MUCH AND WHERE TO :<* RETURN INFORMATION FROM A BUFFERED CALL BLOCK THAT WAS <:* USED BY THE SVC PROCESSOR. THE RIB IS IN THE MODULE :<* RPSDAT BUILT DURING SYSTEM GENERATION IF THE SVC IS AN <>* OPTIONAL SVC OR IS ONE PROCESSED BY A QUEUE SERVER TASK. >@* OTHERWISE THE RIB IS IN ONE OF THE SVC PROCESSOR MODULES. @@* THE RIB FOR A PARTICULAR SVC IS ACTUALLY SPECIFIED AS ONE @ * FIELD FOR RIBPRO, *THEN ANY NUMBER OF PAIRS OF VALUES FOR *B* OFFSET AND LENGTH, THEN A WORD OF ZERO TO TERMINATE THE RIB. B  DORG 0 ! 4RIBPRO DATA 0  POSTPROCESSOR (IF SPECIAL ONE) 4&RIBOFF BYTE 0  CALL BLOCK OFFSET&0RIBLEN BYTE 0  LENGTH TO UNBUFFER (BYTES) 0* 'RIBSIZ EQU$ !  RORG "  PAGE "  LIST " BSS8  SECONDARY SYSTEM FILE NAME&.$SC0PIF DATA 0 SYSTEM SELECTOR +$,SC0VDA DATA 0  VOLUME DIRECTORY ADU SC0',4SC0VPL DATA 0 VCATALOG PHYSICAL RECORD LENGTH #4 SC0SPA DATA 0 SECTORS/ADU - &SC0DCD BSS4  DISK CREATION DATE*&(SC0PF1 BSS8  PRIMARY PROGRAM FILE)(*SC0PF2 BSS8  SECONDARY PROGRAM FILE(*(SC0PFF DATA 0  PROGRAM FILE SWITCH )((SC0OF1vMTX PQc&d2ڤ{ UNL#@*********************************************+************** @ *  * 6* EXTENTION FOR A MAGNETIC (MTX)  04/13/83 * 6* TAPE DEVICE  * *  REV 05/10/83 * *  REV 10/30/84 * "*  LOCATION: SYSTEM AREA  * "@************************************************************ @<* THE MTX IS AN EXTENSION TO THE PDT USED TO DESCRIBE A <:* MAGNETIC TAPE DEVICE. IT IS USED AS A WORK AREA BY :* THE DSR.# DORG PDTSIZ"MTXTIL BSS 16 TILINE IMAGE"2MTXSLG BSS 16 TILINE IMAGE FOR SYSTEM LOG 2&MTXMAJ WORD 0 MAJOR ERROR COUNT &,MTXSVS WORD 0 TILINE UNIT ERROR COUNT ,&MTXMIN WORD 0 MINOR ERROR COUNT &MTXFLG FLAGS 16 FLAGS  $ FLAG MTFEOT END-OF-TAPE FLAG$ BITS 3RESERVED( FLAG MTFODI  ON-LINE-DIAGNOSTICS ( BITS 4RESERVED$ FLAG MTFIWS ISSUE WRITE SYNC$& FLAG MTFAIE  ALREADY ISSUED EOF&  BITS 5! * '$MTXBMP WORD 0BUFFER MAP FILE $  WORD 0! ,MTXCQF WORD 0 COMPLETED QUEUE (FIRST) ,*MTXCQL WORD 0 COMPLETED QUEUE (LAST)*,MTXSIZ EQU$  MT PDT + EXTENSION SIZE ,4MTXCNT EQU MTXTIL+>0008  BYTE TRANSFER COUNT 4>MTXCMD EQU MTXTIL+>000C TRANSPORT SELECT/COMMAND/ADDR >  RORG "  PAGE "  LIST " LUES FOR *B* OFFSET AND LENGTH, THEN A WORD OF ZERO TO TERMINATE THE RIB. B  DORG 0 ! 4RIBPRO DATA 0  POSTPROCESSOR (IF SPECIAL ONE) 4&xSTR PQij2ڥ{@ UNL#@************************************************************ @ *  * 6*  STATUS REGISTER EQUATES (STR) 09/22/81 * 6 *  * "*  LOCATION:A REGISTER * "@************************************************************ @  DORG 0 ! &STRFLG FLAGS 16 STATUS REGISTER && FLAG STFLGT LOGICAL GREATER THAN&* FLAG STFAGT ARITHMETIC GREATER THAN * FLAG STFEQUEQUAL  FLAG STFCARCARRY  FLAG STFOVFOVERFLOW" FLAG STFODDODD PARITY BYTE "" FLAG STFXOPXOP IN PROGRESS "  FLAG STFPRVPRIVILEGED = 0  FLAG STFMP1MAP ONE ( FLAG STFMPE MEMORY PROTECT ENABLE (, FLAG STFOIE OVERFLOW INTERRUPT ENABLE , FLAG STFCSECONTROL STORE ENABLE" BITS STFINT,4INTERRUPT MASK"  PAGE "  RORG "  LIST " G MTFEOT END-OF-TAPE FLAG$ BITS 3RESERVED( FLAG MTFODI  ON-LINE-DIAGNOSTICS ( BITS 4RESERVED$ FLAG MTFIWS ISSUE WRITE SYNC$& FLAG MTFAIE  ALREADY ISSUED EOF&  BITS 5! * '$MTXBMP WORD 0BUFFER MAP FILE $  WORD 0! ,MTXCQF WORD 0 COMPLETED QUEUE (FIRST) ,*MTXCQL WORD 0 COMPLETED QUEUE (LAST)*,MTXSIZ EQU$  MT PDT + EXTENSION SIZE ,4MTXCNT EQU MTXTIL+>0008  BYTE TRANSFER COUNT 4>MTXCMD EQU MTXTIL+>000C TRANSPORT SELECT/COMMAND/ADDR >  RORG "  PAGE "  LIST " {SGB QoB2ڦ{ UNL#@************************************************************ @ *  * 0 * SEGMENT GROUP BLOCK (SGB)  04/09/81 * 0 *  * 0* LOCATION: SEGMENT MANAGER TABLE AREA * 0@************%%************************************************ @<* THE SGB IS AN ANCHOR FOR SSBS OF SEGMENTS WHICH FORM A <:* LOGICAL SET.IT IS USED TO ACCESS SSBS FOR SEGMENT :"* MANAGER CALLS MADE BY LUNO. "  DORG 0 ! 4SGBSGB PTRSGB  POINTER TO NEXT SGB IN TABLE 48SGBOMT PTRSSB  SMT SSB POINTER FOR OVERFLOW SGB 8SGBOSB EQUSGBOMT8SGBOGB PTRSGB  SGB SSB POINTER FOR OVERFLOW SGB 8SGBOLK EQUSGBOGB&SGBSSB PTRSSB  SSB LIST HEADER&SGBFLG FLAGS 16  FLAGSL , FLAG SGFPFL PROGRAM FILE SEGMENT GROUP ,* FLAG SGFDFL DATA FILE SEGMENT GROUP *, FLAG SGFMBS MEMORY-BASED SEGMENT GROUP , BITS SGFRES,13 RESERVED0SGBFMT PTRSSB  FDP FOR THE SEGMENT GROUP0SGBFCB PTRFSC SGBSIZ EQU$ !  RORG "  PAGE "  LIST " ITS 5! * '$MTXBMP WORD 0BUFFER MAP FILE $  WORD 0! ,MTXCQF WORD 0 COMPLETED QUEUE (FIRST) ,*MTXCQL WORD 0 COMPLETED QUEUE (LAST)*,MTXSIZ EQU$  MT PDT + EXTENSION SIZE ,4MTXCNT EQU MTXTIL+>0008  BYTE TRANSFER COUNT 4>MTXCMD EQU MTXTIL+>000C TRANSPORT SELECT/COMMAND/ADDR >  RORG "  PAGE "  LIST " BRO P Qu)2ڧ{@ UNL#@************************************************************ @ *  * 6* BUFFERED REQUEST OVERHEAD(BRO)  09/09/83 * 6 *  * 0* LOCATION: SYSTEM TABLE AREA AND JCA  * 0@************************************************************ @>* THE BRO APPEARS AT THE HEAD OF EACH BUFFERED SVC REQUEST >:* BLOCK WHILE BEING PROCESSED BY DNOS.THE REQUEST IS :$* QUEUED USING THE BROBRO FIELD.$ DORG -18 $BROOFL FLAGS 8 OVERHEAD FLAGS $* FLAG BRFINR  INITIATE EVENT REQUEST*0 FLAG BRFARS ANOTHER ROUTINE HAS SEEN REQ 0. FLAG BRFA5>A5 CALL GIVEN TO IPC (IURL) .6BRFEOR EQU BRFA5END OF RECORD DONE IMMEDIATELY 6, BITS BRFERN,5  INITIATE REQUEST NUMBER , "BROPRI BYTE 0 TASK PRIORITY"*BROOF2 FLAGS 8 OVERHEAD FLAGS PART 2*2 FLAG BRFAPI ALTERNATE REQUEST ID SPECIFIED 2. FLAG BRFRAV  REQUEST ACCEPTS EVENT KEYS .4 FLAG BRFMRO MULTI-RECORD READ/WRITE REQUEST 40 FLAG BRFTID TASK ID SPECIFIED IN BROTSB 0" FLAG BRFSBSECURITY BYPASS "$ FLAG BRFSAB SUSPENDING ABORT$,BRFABT EQU BRFSAB  ABORTED OPERATION ,* FLAG BRFDNR  DO NOT RELEASE MEMORY * BITS 1UNUSED6BROAID BYTE 0 ALTERNATE REQUEST ID FOR M/D DSR 6(BROBBA WORD 0 BUFFER BEET ADDRESS("BROLDT PTR LDT LDT ADDRESS"&BROSID WORD 0 SESSION/DEVICE ID&2BRORCB WORD 0 REQUESTOR CALL BLOCK ADDRESS 2BROTSB PTR TSB TSB ADDRESS"BROJSB PTR JSB JSB ADDRESS"(BROBRO WORD 0 QUEUE LINK ADDRESS (BROSIZ EQU $-BROOFL   RORG "  PAGE "  LIST " +$2SC0DRS DATA 0 DBUILD DETERMINES DEFAULT PRS $24SC0BAL DATA 0 STARTING SECTOR OF BAD ADU LIST #4.SC0SPR DATA 0  TRACK 0 SECTORS PER RECORD&..SC0WF1 BSS8  WCS PRIMARY MICROCODE FILE&.0SC0WF2 BSS8 WCS SECONDARY MICROCODE FILE%0$SC0WFF DATA 0 WCS FLAG SWITCH +$(SC0VIF DATA 0  TRACK 1 SELECT FLAG )("SC0STA DATA 0 STATE OF DISK ,"* 1 - NOT ANALYZED(* 2 - ANALYZED** 3 - INTIALIZED)* A&SC0DCT DATA 0  DISK CREATION TIME*&$SC0FSF DATA 0 * * RESERVED * *+$SC0SIZ EQU$ ;  RORG < LFD PQ~"2ڨ|@ UNL#@************************************************************ @ *  * 0 * LOG FILE DEFINITION(LFD)  04/26/82 * 0 *  * "*  LOCATION: SYSTEM ROOT  * "@************************************************************ @>* THE LFD IS BUILT DURING SYSTEM GENERATION AND IS USED TO >8* KEEP TRACK OF THE STATE OF THE SYSTEM LOG OPTIONS.8  DORG 0 ! LFDFLG FLAGS8 FLAGS   FLAG LDFFDSFILES DISABLED " FLAG LDFDDSDEVICE DISABLED "* FLAG LDF2ND CURRENTLY USING 2ND FILE *& FLAG LDFCSH CRASH FILE PROCESSED&  FLAG LDFRCRRECREATE FILES , FLAG LDFIMW FILES ARE IMMEDIATE WRITE ,, FLAG LDFSBE SUPPRESS BID ERROR LOGGING ,LFDERR BYTE 0 ERROR BYTE FOR RECREATE TASK 0LFDMAX DATA 0 MAX MESSAGE COUNT (0 = NONE) 02LFDTID BYTE 0 TASK ID TO BID FOR FULL FILES 20LFDTDU BYTE 0 USER TASK ID TO BID ON FULL 00LFDDNM CHAR 4 LOG DEVICE NAME (' '= NONE) 0LFDFN1 CHAR 8 FILENAME 1LFDFN2 CHAR 8 FILENAME 2(LFDALC DATA 0  LOG FILE ALLOCATION (* '0* LET THE BSS HERE - GENERATES PASCAL ARRAY 0LFDLUN BSS2 LUNOS LFDSIZ EQU$ !  RORG "  PAGE "  LIST " BYTE 0 ALTERNATE REQUEST ID FOR M/D DSR 6(BROBBA WORD 0 BUFFER BEET ADDRESS("BROLDT PTR LDT LDT ADDRESS"&BROSID WORD 0 SESSION/DEVICE ID&2BRORCB WORD 0 REQUESTOR CALL BLOCK ADDRESS 2BROTSB PTR TSB TSB ADDSBR PQB2ک| UNL#B************************************************************** B *  * 4*  STATIC BUFFER REQUEST(SBR) 07/13/78 * 4 *  * (* LOCATION: SYSTEM TABLE AREA  * (B************************************************************** B  DORG 0 ! SBRSVC BYTE 0 OP CODE (4A) SBRERR BYTE 0 ERROR CODE"SBROP BYTE 0 SVC SUB OPCODE"  BYTE 0 ! SBRBET DATA 0 # OF BEETS"SBRSEG DATA 0 SEGMEND RUN ID""SBRSIZ EQU$ SIZE OF BLOCK "  RORG "  PAGE "  LIST " DURING SYSTEM GENERATION AND IS USED TO >8* KEEP TRACK OF THE STATE OF THE SYSTEM LOG OPTIONS.8  DORG 0 ! LFDFLG FLAGS8 FLAGS   FLAG LDFFDSFILES DISABLED "MPF PQ2ڪ| UNL#  ECHO " >********************************************************* >* ', * OFFSETS FOR MAP FILE(MPF)  4/21/80,* '>********************************************************* >MAPFL1 EQU0 !MAPFB1 EQU2 !MAPFL2 EQU4 !MAPFB2 EQU6 !MAPFL3 EQU8 !MAPFB3 EQU10!* '.FRMBAS EQU>9000  BIASES USED BY NFCOPY.TOOBAS EQU>C000 * '  PAGE "  LIST " LDFDDSDEVICE DISABLED "* FLAG LDF2ND CURRENTLY "Lk4L`4 UNL#B************************************************************** B *  * 4*  STATIC BUFFER REQUEST(SBR) 07/13/78 * 4 *  * (* LOCATION: SYSTESTA PQ2ګ|@ UNL#@************************************************************ @ *  * 4* SYSTEM TABLE AREA OVERHEAD (STA)01/20/79 * 4 *  * .* LOCATION: START OF ALL TABLE AREAS * .@************************************************************ @<* THE STA DESCRIBES OVERHEAD INFORMATION AT THE START OF <@* EACH OF THE SYSTEM TABLE AREAS: THE FILE MANAGEMENT TABLE @@* AREA, THE BUFFER TABLE AREA, THE SEGMENT MANAGEMENT TABLE @0* AREAS, AND THE STANDARD SYSTEM TABLE AREA.0  DORG 0 ! 2STAHED DATA 0 FIRST ENTRY ON FREE MEMORY LST 20STALNK DATA 0 POINTER TO FREE MEMORY CHAIN 00STARES DATA 0 RESERVED TABLE AREA BOUNDRY 00STAEND DATA 0 ENDING ADDRES OF TABLE AREA 0(STAUSE DATA 0  CURRENT TABLE USAGE (.STAHI DATA 0  HIGHEST MEMORY ALLOCATION .2STAPTR DATA 0 POINTER TO TABLE OWNER(JSB IF 2$* JCA OR SSB IF SPECIAL TABLE) $STASIZ EQU$ !  RORG "  PAGE "  LIST " (0 = NONE) 02LFDTID BYTE 0 TASK ID TO BID FOR FULL FILES 20LFDTDU BYTE 0 USER TASK ID TO BID ON FULL 00LFDDNM CHAR 4 LOG DEVICE NAME (' '= NONE) 0LFDFN1 CHAR 8 FILENAME 1LFDFN2 CHAR 8 FILENAME 2(LFDALC DATA 0  LOG FILE ALLOCATION (* '0* LET THE BSS HERE - GENERATES PASCAL ARRAY 0LFDLUN BSS2 LUNOS LFDSIZ EQU$ !  RORG "  PAGE "  LIST " BYTE 0 ALTERNATE REQUEST ID FOR M/D DSR 6(BROBBA WORD 0ADR Q2ڭ|@ UNL#@************************************************************ @ *  * 4 * ALIAS DESCRIPTOR RECORD(ADR)  02/28/79 * 4 *  * * LOCATION: DISK * @************************************************************ @>* THE ADR IS A VARIANT OF A FILE DESCRIPTOR RECORD (FDR), ><* USED TO DESCRIBE AN ALIAS FOR A FILE NAME.THE FIELDS <>* MARKED HERE WITH *** ARE IN THE ADR TEMPLATE TO MAINTAIN >** COMPATABILITY WITH THE FDR TEMPLATE.*  DORG 0 ! "ADRHKC%% DATA 0 HASH KEY COUNT""ADRHKV DATA 0 HASH KEY VALUE"ADRFNM BSS8 FILE NAME ADRPSW BSS4 PASSWORD0ADRFLG DATA 0 FLAGS(SAME AS FDRFLG FLAGS) 0( DATA 0  *** PHYSICAL RECORD SIZE( D&ATA 0  *** LOGICAL RECORD SIZE &, DATA 0  *** PRIMARY ALLOCATION SIZE ,. DATA 0  *** PRIMARY ALLOCATION ADDRESS .. DATA 0  *** SECONDARY ALLOCATION SIZE .0 DATA 0  ***SECONDARY ALLOCATION ADDRESS 0.ADRRNA DATA 0  RECORD NUMBER OF NEXT ADR .*ADRRAF DATA 0  RECORD # OF ACTUAL FDR*  RORG "  PAGE "  LIST " ENERATES PASCAL ARRAY 0LFDLUN BSS2 LUNOS LFDSIZ EQU$ !  RORG "  PAGE "  LIST " BYTE 0 ALTERNATE REQUEST ID FOR M/D DSR 6(BROBBA WORD 0 BUFFER BEET ADDRESS("BROLDT PTR LDT LDT ADDRESS" **k4D`46&0 FIRST ENTRY ON FREE MEMORY LST &0STALNK DATA 0 POINTER TO FREE MEMORY CHAIN 0S31 PQ2ڮ| @ UNL#B************************************************************** B *  * 8*  MAP NAME TO ID SVC BLOCK (S31) 09/30/81 * 8 *  * B************************************************************** B PCKREC S31 0S31SVC BYTE 0  MAP NAME TO ID OP CODE=#31 0.S31ERC BYTE 0  MAP NAME TO ID ERROR CODE.*S31FLG FLAGS 8 MAP NAME TO ID FLAGS *& BITS S31FTY,2 TYPE 00 = TASK ID &*  TYPE 01 = PROC ID *  TYPE 10 = OVLY ID * TYPE 11 = UNUSED( FLAG S31FID 1 = PROG NAME REQUEST (*  0 = PROG ID REQUEST $ BITS 4  *** RESERVED BITS *** $, FLAG S31FLU 1 = PROG FILE LUNO IS OPEN ,*  0 = LUNO NOT OPEN S31UNU BYTE 0  *** UNUSE D ***  S31TSK CHAR 8  TASK NAME$S31LUN BYTE 0  PROG FILE LUNO $ * * 0 => SYSTEM PROG FILE *S31IID BYTE 0  INSTALLED ID OF TASK *&S31RES DATA 0  *** RESERVED *** &  ENDREC !  PAGE "  LIST "  RECORD NUMBER OF NEXT ADR .*ADRRAF DATA 0  RECORD # OF ACTUAL FDR*  RORG "  PAGE "  LIST " ENERATES PASCAL ARRAY 0LFDLUN BSS2 LUNOS LFDSIZ EQU$ !  RORG "  PAGE "  LIST " BYTE 0 ALTERNATE REQUEST ID FOR M/D DSR 6(BROBBA WORD 0 BUFFER BEET ADDRESS("BROLDT PTR LDT LDT ADDRESS" **k4D`46&0 FIRST ENTRY ON FREE MEMORY LST &0STALNK DATA 0 POINTER TO FREE MEMORY CHAIN 0DSTJMP PQB2گ| @P LIST PP************************************************************ PP* * PP* TITLE: TPD JUMP TABLE * PP* REVISION: 19 MAY 1980 ORIGINAL * PP* 03 NOV 1981 PDW NEED ENTRY SO THAT NO * PP* DELAY BEFORE DROPPING RTS * PP* COMPUTER: DX10 * PP* ABSTRACT: THIS COPY MEMBER PRODUCES A TEMPLATE OR * P* J TABLE FOR INTERFACE BETWEEN TPD DSR AND COMISR OR * JP* TTYISR. FIXED OFFSETS IN TABLE CONTAIN VARIABLE * PP* JUMPS TO ACTUAL CODE. CLUMSY, BUT EFFECTIVE. * PP* * PP************************************************************ PP UNL PP* PP* VECTOR MACRO PP* P VECTOR $MACR DO VC,IS DP $IF IS.V PP LIST PP B @:VC.S: TABLE ENTRY PP UNL PP $ELSE PP LIST PP:VC.S: DATA 0 TEMPLATE PP DATA 0 P UNL > >P $ENDIF PP $END PP LIST PP* PP* START TABLE PP* PP UNL PP ASMIF ISRTIM P LIST 8 8P RORG $ PP UNL PP ASMELS PP LIST PP DORG 0 PP UNL PP ASMEND PP* P VECTOR INTHAN,ISRTIM 2 2P VECTOR PWRISR,ISRTIM PP VECTOR HANGUP,ISRTIM PP VECTOR RTSOFF,ISRTIM PP VECTOR SETSPD,ISRTIM PP VECTOR PUT,ISRTIM PP VECTOR CDDSRS,ISRTIM PP VECTOR READIF,ISRTIM PP VECTOR WRITIF,ISRTIM P$ VECTOR TIME,ISRTIM $, ,P VECTOR TIMHAN,ISRTIM PP VECTOR MONCAL,ISRTIM PP VECTOR ASSERT,ISRTIM PP VECTOR RASRTS,ISRTIM PP VECTOR CHKSCF,ISRTIM PP VECTOR BEL212,ISRTIM PP VECTOR RTSDRP,ISRTIM PP* P* LIST *& &P RORG PT " * '* DEF HRPDAT  HSR READ HSR MODULE ID*2 DEF HRPSPD HSR READ BAUD RATE SUBROUTINE 2* '< DEF HRPPSL HSR READ PARITY, CHAR LENGTH, STOP BITS < UNL# ASMEND  R05   LIST " 4 DEF HRPTYP HSR READ HARDWARE INTERFACE TYPE 44 DEF HWUART HSR TILINE UART WRITE SUBROUTINE 44 DEF HRUART HSR TILINE UART READ SUBROUTINE 4 UNL#  ASMELS !  LIST " 8 REF HRESET NORMAL POWER UP/RECOVERY SUBROUTINE 8: REF HMRSTDIAGNOSTIC POWER UP/RECOVERY SUBROUTINE :> REF HSWPWR NORMAL SOFTWARE INITIALIZATION SUBROUTINE >SSB PQT2ڱ| @ UNL#@************************************************************ @ *  * 2*  SEGMENT STATUS BLOCK (SSB)  10/03/84 * 2 *  * 8* LOCATION: ROOT AND SEGMENT MANAGER TABLE AREA * 8@************************************************************ @>* EACH SEGMENT WHICH IS IN MEMORY IS DESCRIBED BY AN SSB. >@* THE SSB INCLUDES CHARACTERISTICS OF THE SEGMENT, LOCATION, @ * AND USE INFORMATION.* ' * SPECIA%%L FIELD COMMENTS: * '>* SSBWCT -THIS FIELD IS USED TO KEEP TRACK OF THE AMOUNT >6* OF FREE AREA IN A SPECIAL TABLE AREA. APPLIES 6&* TO SSB'S FOR SMT'S AND FMT'S. &* '<* SSBID1/2 - THIS FIELD CONTAINS THE BLOCK NUMBER FOR A <*  SEGMENT* WHICH IS ASSOCIATED WITH A DATA FILE. ** '  DORG 0 ! SSBSSB PTRSSB  SSB LINK  4SSBID1 WORD 0  SEGMENT INSTALLED ID FIRST WORD 4<SSBWCT EQUSSBID1 UNALLOCATED WORDS IN SPECIAL TABLE <6SSBID2 WORD 0  SEGMENT INSTALLED ID SECOND WORD 6(SSBRID WORD 0  SEGMENT RUN-TIME ID(*SSBATR FLAGS 16  SEGMENT ATTRIBUTES *$ FLAG SSFRED READABLE (NONTASK)$*SSFPRI EQUSSFRED PRIVILEGED (TASK) *  FLAG SSFSYSSYSTEM (BOTH)  ( FLAG SSFRES MEMORY RESIDENT (BOTH)( BITS 1 RESERVED& FLAG SSFREP REPLICATABLE (BOTH) &* FLAG SSFSHR SHARE PROTECT (NONTASK) *0SSFPR1 EQUSSFSHR PROC 1 ON SYS P.F.(TASK)0* FLAG SSFPR2 PROC 2 ON SYS P.F.(TASK)* BITS 1 RESERVED" FLAG SSFOVFOVERFLOW (TASK) "0 FLAG SSFWCSWRITEABLE CONTROL STORE (BOTH) 04SSFROV EQUSSFWCSRELOCATABLE OVERLAY SEGMENT 4( FLAG SSFEXC EXECUTE PROTECT (BOTH)(* FLAG SSFWRT WRITE PROTECT (NONTASK) *2SSFSPR EQUSSFWRT SOFTWARE PRIVILEGED (TASK) 2$ FLAG SSFUPD UPDATEABLE (BOTH) $" FLAG SSFREUREUSEABLE (BOTH)"" FLAG SSFCPYCOPYABLE (BOTH) "( FLAG SSFSEC SECURITY BYPASS (TASK)(*SSBRCT INT0  SEGMENT RESERVE COUNT*&SSBUCT INT0  SEGMENT USE COUNT&2SSBSGB PTRSGB  SEGMENT GROUP BLOCK POINTER28SSBADR WORD 0  SEGMENT BEET ADDRESS (PTS TO OVB+1) 80SSBLEN POSINT 0  LENGTH OF SEGMENT (BYTES)0&SSBREC INT0  REC. # OF PF SEG. O&N HOME FILE 8SSBLOD ADDR 0  LOAD ADDRESS OF SEGMENT (FROM P.F.) 8$SSBFLG FLAGS 16  SEGMENT FLAGS$ FLAG SSFTSKTASK SEGMENT. FLAG SSFEMPEMPTY SEGMENT (DO NOT LOAD) .& FLAG SSFHOM LOAD FROM HOME FILE &0 FLAG SSFINIINITIAL LOAD SEGMENT (SSB NOT 0* INITIALIZED)0 FLAG SSFNRPDO NOT REPLICATE SSB (SINCE A 0*  GET MEMORY WAS DONE) FLAG SSFRELRELEASABLE FLAG SSFMODMODIFIED FLAG SSFMEMIN MEMORY & FLAG SSFLLM LOGICALLY IN MEMORY &. FLAG SSFERRDISK ERROR OCCURRED ON READ .6SSBOVL BYTE 0  LAST OVERLAY NUMBER LOADED IN SEG 64SSBPRI BYTE 0  INSTALLED PRIORITY (TASKS ONLY) 42SSBSTE PTRSTE  POINTER TO SWAP TABLE ENTRY26SSBSOB PTRSOB  POINTER TO SEGMENT OWNER BLOCK 6$SSBSIZ EQU$  BASIC SSB SIZE $* '"*  EXTENSION FOR TASK SEGMENT"* '6SSBPRC BYTE 0  THE ID'S OF PROCEDURES ASSOCIATED 62SSBPR2 BYTE 0  WITH THE TASK (TASK SEG ONLY) 2>SSBOLT EQUSSBPRC OVERLAY LENGTH(SSBLEN-RELOCATION BM) >.SSBNAM CHAR 8  TASK NAME (TASK SEG ONLY).*SSBTSZ EQU$  TASK SEGMENT SSB SIZE*  RORG "  PAGE "  LIST " PP VECTOR PWRISR,ISRTIM PP VECTOR HANGUP,ISRTIM PP VECTOR RTSOFF,ISRTIM SLH PQ2ڲ|@ UNL#@************************************************************ @ *  * 2 * SEMAPHORE LIST HEADER(SLH) 03/15/79 * 2 *  * * LOCATION: JCA  * @************************************************************ @@* THE SLH IS USED TO DESCRIBE SEMAPHORES USED IN JOBS.FOR @@* EACH SEMAPHORE IN USE, THERE IS A LIST HEADER SHOWING THE @B* NUMBER OF THE SEMAPHORE, ITS VALUE, AND THE ENTRIES WAITING B * FOR SEMAPHORE ACTION.   DORG 0 ! *SLHSLH PTRSLH  NEXT SEMAPHORE ENTRY*$SLHVAL BYTE 0 SEMAPHORE VALUE $$SLHNUM BYTE 0 SEMAPHORE NUMBER$,SLHNEW DATA 0  ADDRESS OF NEWEST ENTRY ,,SLHOLD DATA 0  ADDRESS OF OLDEST ENTRY ,SLHCNT BYTE 0 NUMBER O F ENTRIES ON QUEUE 0SLHTID BYTE 0 SERVER TASK ID (NOT USED) 02SLHTSB DATA 0 TSB ADDRESS OF SERVER TASK(NU) 2SLHSIZ EQU$ !  RORG "  PAGE "  LIST " WORDS IN SPECIAL TABLE <6SSBID2 WORD 0  SEGMENT INSTALLED ID SECOND WORD 6(SSBRID WORD 0  SEGMENT RUN-TIME ID(*SSBATR FLAGS 16  SEGMENT ATTRIBUTES *$ FLAG SSFRED READABLE (NONTASK)$*SSFPRI EQUSSFRED PRIVILEGED (TASK) *  FLAG SSFSYSSYSTEM (BOTH)  ( FLAG SSFRES MEMORY RESIDENT (BOTH)( BITS 1 RESERVED& FLAG SSFREP REPLICATABLE (BOTH) &* FLAG SSFSHR SHARE PROTECT (NONTASK) *0SSFPR1 EQUSSFSHR PROC 1 ON SYS P.F.(TASK)0* FLAG SSFPR2 PROC 2 ON SYS P.F.(TASK)* BITS ORS PQ2ڳ| UNL#@************************************************************ @ *  * 4* OFFSETS FOR REGISTER STACK(ORS) 06/21/79 * 4,*  FOR ASSEMBLY LANGUAGE USE ONLY  * ,@************************************************************ @ DORG -18 OR9  WORD 0 !OR8  WORD 0 !OR7  WORD 0 !OR6  WORD 0 !OR5  WORD 0 !OR4  WORD 0 !OR3  WORD 0 !OR2  WORD 0 !OR1  WORD 0 !  RORG "  PAGE "  LIST " OPPING RTS "Lk4L`4@ UNL#@************************************************************ @ *  * 2 * SEMAPHORE LIST HEADER(SLH) 03/15/79 * 2 *  * * LOCATION: JCA  * FIR PQ 2ڴ| UNL#@*********************************************************** @ * * 4 * FILE INFORMATION RECORD (FIR)11/24/82* 4 * * * LOCATION: DISK* @*********************************************************** @>* THE FIR IS USED BY THE TASKS WHICH ASSIGN, MODIFY, LIST, >@ * AND DELETE USER IDS.IT IS A VARIANT OF THE CAPABILITIES @4* LIST FILE RECORD (CLR). FOR DETAILS SEE CLR. 4  PAGE "  LIST " UNL#@************************************************************ @ *  * 2 * SEMAPHORE LIST HEADER(SLH) 03/15/79 * 2 *  * * LOCATION: JCA  * @********************************************************** KKk4P`4SAT PQ2ڵ| UNL#@************************************************************ @ *  * 6* SECONDARY ALLOCATION TABLE (SAT)  01/25/77 * 6 *  * 2* LOCATION:JCA OR SYSTEM AREA, WITH FCB  * 2@************************************************************ @>* THE SAT SHOWS THE NUMBER AND LOCATION OF SECONDARY FILE >* ALLOCATIONS.!  DORG 0 ! (SATNSA EQU16 COUNT OF SAT ENTRIES($SATASZ DATA 0 ALLOCATION SIZE $$SATADU DATA 0 ALLOCATION START$( BSSSATNSA-1*4 REMAINDER OF BLOCK(* 'SATSIZ EQU$ !  RORG "  PAGE "  LIST " *** @>* THE FIR IS USED BY THE TASKS WHICH ASSIGN, MODIFY, LIST, >@ * AND DELETE USER IDS.IT IS A VARIANT OF THE CAPDSALLLEXP QN2ڷ|>********************************************************** > *  * (* LOCAL ASYNC EXTENSION TO PDT  * ( *  * 2* CREATED BY: PATTY WILLIAMS 1/27/83  * 2"* REVISION DCG 3/2/83  * "* MODIFIED FOR DNOS  *  *  * >********************************************************** > DORG KSBSIZ"PDXSMB WORD 0  SAVE MAP BIAS"&PDXSMP WORD 0  SAVE MAP POINTER &PDXFLG BYTE 0  HSR FLAGS.PDXCHN BYTE 0  HSR CHANNEL NUMBER/FLAGS .2PDXFCT WORD 0  HARDWARE SOFTWARE FIFO COUNT 2&PDXCP1 WORD 0  HSR SCRATCH COPY &&PDXCP2 WORD 0  HSR SCRATCH COPY &&PDXCP3 WORD 0  HSR SCRATCH COPY &2PDXCP4 WORD 0  TSR SCRATCH/SYSGEN PARAMETERS 2**62PDXCP5 FLAGS 8 TSR SCRATCH/SYSGEN PARAMETERS 2, FLAG XSFSWH SWITCHED CONNECTION FLAG ,( BITS XSFSPD,7 TRANSMIT SPEED CODE(*  00 = 50 BAUD *  01 = 75*  02 = 110 *  03 = 134.5 *  04 = 150 *  05 = 200 *  06 = 300 *  07 = 600 *  08 = 1200*  09 = 1800*  0A = 2400*  0B = 3600*  0C = 4800*  0D = 7200*  0E = 9600*  0F = 14.4K *  10 = 19.2K *  11 = 28.8K *  12 = 38.4K (PDXP5A FLAGS 8 RECEIVE SPEED CODE ( FLAG XRFRS1 RESERVED ( BITS XRFSPD,7 RECEIVE SPEED CODE (*  00 = 50 BAUD *  01 = 75*  02 = 110 @*  03 = 134.5 *  04 = 150 *  05 = 200 *  06 = 300 *  07 = 600 *  08 = 1200*  09 %%= 1800*  0A = 2400*  0B = 3600*  0C = 4800*  0D = 7200*  0E = 9600*  0F = 14.4K *  10 = 19.2K *  11 = 28.8K *  12 = 38.4K 2PDXCP6 WORD 0  TSR SCRATCH/SYSGEN PARAMETERS 26PDXCP7 WORD 0  TSR JUMP TABLE @ FOR HSR ROUTINES 6* ' *  ADDITIONAL WORDS FOR TSR * '4PDXCP8 WORD 0 1 TSR SCRATCH/SYSGEN PARAMETERS 44PDXCP9 WORD 0 2 TSR SCRATCH/SYSGEN PARAMETERS 44PDXCPA WORD 0 3 TSR SCRATCH/SYSGEN PARAMETERS 44PDXCPB WORD 0 4 TSR SCRATCH/SYSGEN PARAMETERS 4PDXCPC. WORD 0 5 TSR SCRATCH/SYSGEN PARAMETERS .4PDXCPD WORD 0 6 TSR SCRATCH/SYSGEN PARAMETERS 44PDXCPE WORD 0 7 TSR SCRATCH/SYSGEN PARAMETERS 44PDXCPF WORD 0 8 TSR SCRATCH/SYSGEN PARAMETERS 4  RORG " FILE &0 FLAG SSFINIINITIAL LOAD SEGMENT (SSB NOT 0* INITIALIZED)0 FLAG SSFNRPDO NOT REPLICATE SSB (SINCE A 0*  GET MEMORY WAS DONE) FLAG SSFRELRELEASABLE FLAG SSFMODMODIFIED FLAG SSFMEMIN MEMORY & FLAG SSFLLM LOGICALLY IN MEMORY &. FLAG SSFERRDISK ERROR OCCURRED ON READ .6SSBOVL BYTE 0  LAST OVERLAY NUMBER LOADED IN SEG 64SSBPRI BYTE 0  INSTALLED PRIORITY (TASKS ONLY) 42SSBSTE PTRSTE  POINTER TO SWAP TABLE ENTRY2FDR PQU<2ڹ|@ UNL#@************************************************************ @ *  * 4 * FILE DESCRIPTION RECORD(FDR)  09/09/83 * 4 *  * * LOCATION: DISK * @************************************************************ @@* THE FDR IS THE DISK-RESIDENT FILE DESCRIPTOR TELLING WHERE @@* THE FILE RESIDES, ITS CHARACTERISTICS, AND SECURITY DATA. @>* SECURITY DATA IS STORED IN ACCESS CONTROL ENTRIES (ACEs) >* ' PCKREC  ACE&ACEAGN CHAR 8  ACCESS GROUP NAME &ACEFLG FLAGS 16 FLAGS $ FLAG ACERDF READ ACCESS FLAG $$ FLAG ACEWRF WRITE ACCESS FLAG$& FLAG ACEDLF DELETE ACCESS FLAG && FLAG ACEEXF EXECUTE ACCESS FLAG& FLAG ACECTF CONTROL ACC ESS FLAG  ENDREC ! * '  DORG 0 ! "FDRHKC DATA 0 HASH KEY COUNT""FDRHKV DATA 0 HASH KEY VALUE"FDRFNM BSS8 FILE NAME FDRRSV BSS2 RESERVED"FDRFL1 FLAGS 16 FLAGS WORD 1"$ FLAG FDFSEC FILE SECURED BIT $ BITS 15 RESERVED "FDRFLG FLAGS 16 FLAGS WORD 2"$ BITS FDFFU,2  FILE USAGE BITS$(FDFFUM EQU>C000  FILE USAGE MASK(& BITS FDFFMT,2 FILE FORMAT BITS &.FDFFMM EQU>3000  FILE FORMAT BITS MASK.( FLAG FDFALL EXTENDABLE FILE FLAG ($ BITS FDFFT,2  FILE TYPE BITS $(FDFFTM EQU>0600  FILE TYPE MASK ($ FLAG FDFWPB WRITE PROTECT BIT$& FLAG FDFDPB DELETE PROTECT BIT & FDFUPM EQU>0180  WRITE AND  DELETE PROTECT MASK & FLAG FDFTMP TEMPORARY FILE FLAG&$ FLAG FDFBLB BLOCKED FILE FLAG$" FLAG FDFALI ALIAS FLAG BIT "0 FLAG FDFFWT FORCED WRITE/PARTIAL LOGGING 0 BITS 2  RESERVED   FLAG FDFCDR RECORD IS CDR (FDRPRS DATA 0  PHYSICAL RECORD SIZE((FDRLRS DATA 0  LOGICAL RECORD SIZE (,FDRPAS DATA 0  PRIMARY ALLOCATION SIZE ,.FDRPAA DATA 0  PRIMARY ALLOCATION ADDRESS ..FDRSAS DATA 0  SECONDARY ALLOCATION SIZE .,FDRSAA DATA 0  OFFSET OF SCONDARY TABLE ,0FDRRFA DATA 0 RECORD NUMBER OF FIRST ALIAS 00FDREOM BSS4 END OF MEDIUM RECORD NUMBER 0.FDRBKM BSS4  END OF MEDIUM BLOCK NUMBER .*FDROFM DATA 0  END OF MEDIUM OFFSET/ ** PRELOG NUMBER FOR KIF .FDRMNT EQU$  MAX NUMBER OF TASKS IN PF ..FDRMNP EQU$+1  MAX NUMBER OF PROCEDURES .,FDRMNO EQU$+2  MAX NUMBER OF OVERLAYS,*FDRFBQ BSS4  FREE BLOCK QUEUE HEAD *(FDRBTR DATA 0  B-TREE ROOTS BLOCK #(&FDREBQ BSS4  EMPTY BLOCK QUEUE &.FDRKDR DATA 0  KEY DESCRIPTIONS RECORD # .$FDRUD BSS6 LAST UPDATE DATE$"FDRCD BSS6 CREATION DATE "$FDRAPB BSS1 ADU'S PER BLOCK $"FDRBPA BSS1 BLOCKS PER ADU",FDRMRS DATA 0  MINIMUM KIF RECORD SIZE ,.FDRSAT BSS64 SECONDARY ALLOCATION TABLE .FDRRES BSS10RESERVED* '"* START OF ACCESS GROUP DATA "* ',FDRUID BSS8  USER ID OF FILE CREATOR ,FDRPSA DATA 0  PUBLIC SECURITY ATTRIBUTES 0 FDRACE ARRAY 9,ACE 9 ACCESS CONTROL ENTRIES 0FDRFIL BSS12NOT USED(FDRSIZ EQU$  SIZE IN BYTES OF FDR(2FDRMAG EQU9 MAXIMUM ACCESS GROUPS ALLOWED 20FDRMNR EQU5 MAXIMUM # OF RIGHTS DEFINED 0  RORG "  PAGE "  LIST " 64SSBPRI BYTE 0  INSTALLED PRIORITY (TASKS ONLY) 42SSBSTE PTRSTE  POINTER TO SWAP TABLE ENTRY20SSBSOB PTRSOB  POINTER TO SEGMENT OWNER BL0PP UNL ' --k4\`40 FLAG SSFINIINITIAL LOAD SEGMENT (SSB NOT 0* INITIALIZED)0 FLAG SSFNRPDO NOT REPLICATE SSB (SINCE A 0*  GET MEMORY WAS DONE) FLAG SSFRELRELEASABLEJIT PQe2ں|@ UNL#@************************************************************ @ *  * 2 * JOB INFORMATION TABLE (JIT)01/23/80 * 2 *  * * LOCATION: JCA  * @************************************************************ @B* THE JIT DESCRIBES THE JOB COMMUNICATION AREA (JCA) CONTENTS B<* AND IS FOUND AT THE ADDRESS JCASTR (FOUND IN NFPTR) IN <>* EACH JOB. IT INCLUDES DESCRIPTIVE INFORMATION ABOUT THE >@* JOB AND POINTERS TO MANY JOB-LOCAL STRUCTURES IN THE JCA. @4* (NOTE THAT JITOVB MUST BE ON A BEET BOUNDARY.)4  DORG 0 ! .JITHED DATA 0  SYSTEM TABLE AREA OVERHEAD ..JITLNK DATA 0 STA - LINK TO FIRST BLOCK .(JITRES DATA 0 STA - RESERVE LIMIT (JITEND DATA 0  STA - END OF AREA *JITUSE DATA 0 STA - TOTAL BYTES USED *,JITHI DATA 0 STA - HIGHEST ADDR USED ,2JITPTR PTRJSB POINTER TO JSB OF JCA OWNER 20JITCAP PTRCAP  POINTER TO CAPABILITY LIST 00JITSEM PTRSLH  POINTER TO SEMAPHORE LIST 0.JITLDT PTRLDT  JOB LOCAL LDT - LDT LINK .,JITIOC BYTE 0 LDT - INITIATE I/O COUNT ,JITLUN BYTE 0 LDT - LUNO(JITTYP BYTE 0 LDT - RESOURCE TYPE ((JITTF BYTE 0 LDT - RESOURCE FLAGS($JITFLG DATA 0 LDT - LDT FLAGS $*JITRLK PTRPDT  LDT - RESOURCE LINK *&JITOTS PTRTSB LDT - OWNER TSB &&JITJSB PTRJSB LDT - OWNER JSB &(JITPRM DATA 0 LDT - PARAMETER LIST(2JITROB PTRROB POINTER TO RESOURCE OWNER BLK 2 4JITCCB PTRCCB POINTER TO CHANNEL CONTROL BLK 4(JITPAS CHAR 8  PASSWORD FOR USER ID(JITACC CHAR 16ACCOUNT ID(JITPVL BYTE 0  USER PRIVILEGE LEVEL(&JITLID BYTE 0  LAST TASK ID GIVEN&,JITTID BSS32 TSB RUN TIME ID BIT MAPS ,@* NOTE: FOLLOWING FIELD MUST BE ALIGNED ON A BEET BOUNDARY. @8* IT IS THE BEGINNING OF THE DUMMY FILE MANAGEMENT 8* OVERHEAD BEET.JITOVB EQU$ !&JITJBI DATA 0  SEGMENT ID OF JCA &(JITFTB PTRTSB  POINTER TO FM TSB (.JITFLK PTROVB  FORWARD TOL LINK FOR FM ..JITBLK PTROVB  BACKWARD TOL LINK FOR FM .(JITFTP DATA 0  FM TASK TYPE (>0100)((JITFJB PTRJSB  POINTER TO FM JSB (" BSS20 FILLER FOR DUMY OVB "LO&$JITFMQ BSS12FM QUEUE FOR JOB$.JITEXC LONG 0  EXECUTION TIME SINCE LOAD . DATA 0 CURRENTLY UNUSED,JITWOT PTRTSB  TABLE AREA WAIT QUEUE ," DATA 0  RESERVED AT PRESENT "*JITSSI DATA 0  SYNONYM SEGMENT RUN ID*2JITSSS PTRSSB SYNONYM SEGMGR TAB AREA SSB 2*JITSSB PTRSSB  SYNONYM SSB ADDRESS *2JITRST PTRRST PTR TO RESERVE SEGMENT TABLE 2*JITTSB PTRTSB  POINTER TO TSB TREE *,JITACT PTRTSB  POINTER TO ACTIVE TSBS,*JITWOM PTRTSB  POINTER TO WOM TSBS *4JITFMW BSS32+30 FILE MGR WORKING WP & STACK 4 *------ $ :* NOTE: THE FOLLOWING FIELDS ARE THE QUEUE HEADERS FOR ::*  QUEUE SERVER SVC PROCESSORS WHICH RUN IN THE USER :*  JOB. " *------ $ .JITINS BSS12 INSTALL TASK QUEUE HEADER .,JITDEL BSS12 DELETE TASK QUEUE HEADER ,.JITASP BSS12 ASSIGN SPACE QUEUE HEADER .0JITMAP BSS12MAP NAME TO ID QUEUE HEADER 00JITINV BSS12INITIALIZE NEW VOLUME QUEUE 00JITRCP BSS12RETURN CODE PROCESSOR QUEUE 0JITVNT EQU$ ! VARNT JITVNT "JITSIZ EQU$ BASIC JIT SIZE" VARNT JITVNT  *------ $ ,* EXTENSION FOR KIFMGR IF KIF IS GENNED, *------ $ 0JITKMW BSS32+38  KIF WORKING WP AND STACK 0 *------ $ @* NOTE: FOLLOWING FIELD MUST BE ALIGNED ON A BEET BOUNDARY. @8* IT IS THE BEGINNING OF THE DUMMY KIFMANAGEMENT 8* OVERHEAD BEET. *------ $ JITKOV EQU$ !&JITKJI DATA 0  SEGMENT ID OF JCA &(JITKTB PTRTSB  POINTER TO KM TSB (.JITKFL PTROVB  FORWARD TOL LINK FOR KM ..JITKBL PTROVB  BACKWARD TOL LINK FOR KM .(JITKTP DATA 0  KM TASK TYPE (>0100)(%%(JITKJB PTRJSB  POINTER TO KM JSB (" BSS20 FILLER FOR DUMY OVB "&JITKMQ BSS12 KIF QUEUE FOR JOB &(JITKSZ EQU$  KIF SUPPORT JIT SIZE(  RORG "  PAGE "  LIST " PP VECTOR BEL212,ISRTIM P VECTOR RTSDRP,ISRCHANGE NOTIFY ENABLE 8: DEF HDSSCT HSR SCTS SIGNAL CHAN"k4`42 2P VECTOR PWRISR,ISRTIM NFCRSH P$Q @2ھ|@ UNL#  ECHO " @************************************************************ @ *  * 8* SYSTEM CRASH CODE EQUATES (NFCRSH) 07/19/84 * 8 *  * @************************************************************ @@* NFCRSH LISTS ALL POSSIBLE SYSTEM CRASH CODES GENERATED BY @>* DNOS. SOME CODES ARE ALSO RESERVED AS THEY ARE USED BY ><* DX10 AND USE OF THOSE BY DNOS WOULD NOT BE DESIRABLE. <* '6CSH00E EQU>000E PMTLDR - CANNOT ASSIGN TO ROLL 6*  FILE 0 *CSH010 THRU CSH012  RESERVED-USED BY DX10 0> * CSH013 THRU CSH01FILLEGAL INTERRUPT AT LEVEL 3 THRU F >,*CSH020 RESERVED-DX10-ILLEGAL INTERNAL ,*  INTERRUPT(CSH021 EQU>0021  PMUMGR - INCONSIST(ENT STRUCTURE 8CSH022 EQU>0022 NFTMGR - INCONSISTENT STRUCTURE 8.CSH023 EQU>0023  NFSCHD - QUEUING ERROR.8CSH024 EQU>0024 IOBM - INCONSISTENT STRUCTURE 8*CSH025 EQU>0025  ILLEGAL SYSTEM XOP*8CSH026 EQU>0026 PMROLL - CANNOT EXTEND SWAP FILE 86CSH027 EQU>0027 PMROLL - SWAP FILE WRITE ERROR 66CSH028 EQU>0028 PMLDSG - SWAP FILE READ ERROR 6:CSH029 EQU>0029 NFPOP - UNEXPECTED ERROR RETURNED :8CSH02A EQU>002A NUCLEUS - INCONSISTENT STRUCTURE 8,*CSH02B RESERVED-DX10-ERR IN LDT BUILT ,*  FOR PROG. FILE 8CSH02C EQU>002C NFENAB - SCHEDULER INHIBIT NEG. 8,*CSH02D RESERVED-DX10-TM$LDR TOOK END ,*  ACTION *CSH02E RESERVED-DX10-SO$CPR ERROR 2CSH02F EQU>002F  SYSTEM OVERLAY LOAD ERROR 26CSH030 EQU>0030 NFTMGR - NO SYSTEM TABLE AREA 6,*CSH031 RESERVED-DX10-UNEXP ERR RETURN ,*  IN RM$REL,*CSH032 RESERVED-DX10-UNEXP ERR RETURN ,*  IN BM$TRW,*CSH033 RESERVED-DX10-UNEXP ERR RETURN ,*  IN BM$W,*CSH034 RESERVED-DX10-UNEXP ERR RETURN ,*  IN BM$CLO,*CSH035 RESERVED-DX10-UNEXP ERR RETURN ,*  IN BM$FLS,*CSH036 RESERVED-DX10-UNEXP ERR RETURN ,*  IN BM$SCH( *CSH040 THRU CSH045 RESERVED-DX10-(8CSH046 EQU>0046 SEGMGR - INCONSISTENT STRUCTURE 82CSH048 EQU>0048  JOBMGR - END ACTION TAKEN 22CSH04A EQU>004A JOBMGR - TASK QUEUING ERROR 2 4CSH04B EQU>004B JOBMGR - ERROR FROM SEG MGR 40CSH04C EQU>004C  JOBMGR - ERROR FROM IOU 06CSH04D EQU>004D JOBMGR - CANNOT GET TABLE AREA 6*CSH050 RESERVED-DX10-,CSH051 EQU>0051  PROGRAM FILE SVC'S -,*  INCONSISTENT LDT LIST 4CSH060 EQU>0060 NFINT2 - INTERNAL INTERRUPT 4 *  60 THRU 6F RESERVED FOR "*  INTERNAL INTERRUPTS 0 - F "(* 60 - INVALID INTERNAL INTERRUPT (*  61 - MEMORY PARITY *  62 - ILLEGAL INSTRUCTION *  63 - TILINE TIMEOUT $* 64 - ILLEGAL SUPERVISOR CALL $&*  (RESERVED,SOFTWARE DETECTED) &*  65 - MAPPING ERROR*  66 - PRIVILEGED OPCODE"*  67 - TASK IS BEING KILLED "*  (RESERVED,SOFTWARE DETECTED) &* 68 - NOT ENOUGH USER TASK AREA &*  SOFTWARE DETECTED  *  69 - SEGMENT NOT PRESENT &* 6A - EXECUTE PROTECT VIOLATION &$* 6B - WRITE PROTECT VIOLATION $*  6C - STACK OVERFLOW  *  6D - HARDWARE BREAKPOINT *  6E - 12 MS CLOCK EXPIRED *  6F - ARITHMETIC OVERFLOW * DISK SPACE( *CSH070 THRU CSH076 RESERVED-DX10-(:CSH077 EQU>0077 MEDIA CHANGE OCCURRED ON SYS DISK :2CSH080 EQU>0080  DSKMGR - END ACTION TAKEN 2*CSH081 RESERVED-DX10-2CSH082 EQU>0082  DSKMGR - UNDEFINED OP CODE 2<CSH083 EQU>0083 DSKMGR - ADU ALLOCATED ALREADY USED <4CSH084 EQU>0084 DSKMGR - FIRST AVAILABLE ADU 4*  OUT OF RANGE 8CSH085 EQU>0085 DSKMGR - ILLEGAL PARTIAL BIT MAP 8*  NUMBER REQUESTED 4CSH086 EQU>0086 DSKMGR - CACHED BIT MAP HAS 4*  BEEN MODIFIED4CSH087 EQU>0087 DSKMGR - READ AFTER WRITE OF 4(* PARTIAL BIT MAP DOES NOT VERIFY (( *CSH088 THRU CSH089 RESERVED-DX10-(,CSH090 EQU>0090  INVALID USE OF VT01 ,<CSH094 EQU>0094 DSR940 - CAN'T GET BUFFER TABLE AREA<2CSH0A0 EQU>00A0  FILMGR - END ACTION TAKEN 2:CSH0A1 EQU>00A1 FILMGR - ERROR LOADING FM OVERLAY :6CSH0A2 EQU>00A2 FILMGR-INCONSISTENT STRUCTURE 6( *CSH0A3 THRU CSH0A4 RESERVED-DX10-(*CSH0AF RESERVED-DX10-2CSH0B0 EQU>00B0  NAMMGR - END ACTION TAKEN 2CSH0B1 EQU>00B1 NA MMGR - PASCAL RUN-TIME ABORT 2CSH0B2 EQU>00B2  IOTBID - END ACTION TAKEN 22CSH0B3 EQU>00B3  IPCTSK - END ACTION TAKEN 22CSH0B5 EQU>00B5  PMOVYL - END ACTION TAKEN 22CSH0B6 EQU>00B6  PMTBID - END ACTION TAKEN 22CSH0B7 EQU>00B7  PMWRIT - END ACTION TAKEN 22CSH0B8 EQU>00B8  PMTLDR - END ACTION TAKEN 22CSH0B9 EQU>00B9  PMTERM - END ACTION TAKEN 22CSH0BA EQU>00BA  PMSBUF - END ACTION TAKEN 22CSH0BB EQU>00BB  PMRWTK - END ACTION TAKEN 22CSH0BD EQU>00BD  PMSBID - END ACTION TAKEN 2.CSH0BE EQU>00BE  RCP - END ACTION TAKEN.:CSH0C0 EQU>00C0 NFEOBR - TSBIO HAS BECOME NEGATIVE:( *CSH0E0 THRU CSH0E5 RESERVED-DX10-(CSH100 EQU>0100 IOU - END ACTION TAKEN2CSH101 EQU>0101  IOU - WRONG SEGMENT MAPPED 26CSH102 EQU>0102 IOU - LOOKUP, DE-LINK FAILURE 6( *CSH103 THRU CSH106 RESERVED-DX10-(0CSH107 EQU>0107  IOU - BAD FILE LDT LIST 0( *CSH108 THRU CSH109 RESERVED-DX10-(2CSH10A EQU>010A  IOU - ERROR RETURNING ADU 2* JUST OBTAINED ( *CSH10B THRU CSH10D RESERVED-DX10-(6CSH10E EQU>010E IOU - FCB BLOCK COUNT OVERFLOW 6( *CSH120 THRU CSH123 RESERVED-DX10-(( *CSH130 THRU CSH131 RESERVED-DX10-(2CSH132 EQU>0132  RPUTIL - END ACTION TAKEN 2( *CSH133 THRU CSH137 RESERVED-DX10-(2CSH138 EQU>0138  RPIV -BIT MAP TABLE ERROR 28CSH139 EQU>0139 RPINV2 - DISK ALLOCATION FAILURE 8CSH103A EQU>013A RPINV2 - BAD BIT MAP NUMBER 0<CSH13B EQU>013B RPINV2 - BAD ADU LIST RANGE OVERLAP <8CSH13C EQU>013C NFPWUP - NO POWER DOWN INTERRUPT 8:CSH13D EQU>013D NFPWUP - CANNOT FIND RTWP CONTEXT :6CSH13E EQU>013E NFPWUP - INVALID RTWP CONTEXT 6*CSH13F RESERVED-DX10-*CSH140 RESERVED-DX10-4CSH141 EQU>0141 RESERVED-DX7 -NO POWER FAIL 4*  RECOVERY SUPPORT 8CSH142 EQU>0142 UNIV BLD -NO TERMINAL AVAILABLE 88CSH143 EQU>0143 UNIV BLD -I/O ERROR TO TERMINAL 8*  WHILE BUILDING DISK 8CSH144 EQU>0144 UNIV BLD -NO RESPONSE TO INITIAL 8* MESSAGE :CSH145 EQU>0145 IPC - INCONSISTENT DATA STRUCTURES:CSH146 EQU>0146  DIOU TOOK END ACTION,*CSH147 RESERVED-DX10-PDT'S POINTER TO ,*  PRB IS INVALID .*CSH150 RESERVED-DX7 -DISK CHANGED WITH . *  NO UNLOAD (UV) COMMAND :CSH160 EQU>0160 (RESERVED DX10-TM$BID END ACTION) :6CSH161 EQU>0161 IOU (SECMGR) - UNABLE TO OPEN 6* LUNO TO .S$CLF8CSH162 EQU>0162 IOU (SECMGR) - UNABLE TO CREATE 8"*  OR MAP SPECIAL SEGMENT FOR " *  BUILDING CAPABILITY LIST 6CSH163 EQU>0163 RESTART - JUST MADE CRASH FILE 6"*  BIGGER, SO WE FORCED CRASH "4CSH164 EQU>0164 NFCALR - MEMRES OVLY ROUTINE 4 *  CALLED WHEN ALREADY IN A *  MEMRES OVLY ROUTINE 6CSH177 EQU>0177 CV,CVD,DCOPY-IPL NOW REQUIRED 6************4************************************************ 4 *  * ,*  SYSTEM LOADER FLASH CRASH CODES  * , *  * @************************************************************ @.FLSH01 EQU>0001  LOAD DEVICE I/O ERROR .2FLSH02 EQU>0002  NOT ENOUGH PHYSICAL MEMORY 22FLSH03 EQU>0003  CAN'T FIND SYSTEM DISK PDT 24FLSH04 EQU>0004 ERROR IN PROG FILE DIRECTORY 44FLSH05 EQU>0005 S$IPL INCONSISTENT WITH REV. 4 *  LEVEL OF CURRENT SYSTEM 4FLSH06 EQU>0006 ERROR IN DM BIT MAP ROUTINE 46FLSH08 EQU>0008 CAN'T FIND SYSTEM LOADER FILE 66FLSH09 EQU>0009 CAN'T FIND KERNEL PROGRAM FILE 64FLSH0A EQU>000A CAN'T FIND A SYSTEM SEGMENT 4FLSH0B EQU>000B NO PAT CHES APPLIED TO SYSTEM 0FLSH0C EQU>000C  SOFTWARE VERSION TOO OLD 06FLSH0D EQU>000D CAN'T FIND UTILITIES PROG FILE 64FLSH0E EQUCSH00ECAN'T FIND SYSTEM ROLL FILE 46FLSH0F EQU>000F KERNEL FILE LEVEL INCONSISTENT 6*  WITH UTILITY FILE4FLSH11 EQU>0011 CAN'T GET SYSTEM TABLE AREA 40FLSH13 EQU>0013  LOGICAL ADDRESS OVERFLOW 0,FLSH14 EQU>0014  CAN'T LOAD WCS FILE ,:*FLSH60-%%6FEQU >60->6FINTERNAL INTERRUPT (LEVEL 2) :2FLSH68 EQU>0068  NOT ENOUGH USER TASK AREA 2  LIST " OUTINE0: REF HSPPSL HSR SET PARITY, CHAR LENGTH, STOP BITS :* '  REF H ED SEGMENTS ARE TEMPORARILY SHARE-PROTECTED @* ' P k4`45DSTDIB PR#]t2ڿ|@************************************************************ @ *  * 8*  DIB - DEVICE INFORMATION BLOCK FOR T&PD DSR * 8*  (820) *  *  * 4*  LOCATION - SYSTEM TABLE AREA 12/01/80 * 4 *  * 6*  '*' DENOTES FIELDS INITIALIZED BY SYSGEN  * 6 *  * @************************************************************ @ DORG DIBBGN4DIBACR DATA 0  *ACU CRU ADDRESS(>FFFF IF NONE) 4$DIBHWR BYTE 0  *INTERFACE TYPE$*  1=COMM/IF*  2=FCCC *  3=BCAIM*  4=HSCC *  5=TTY/EIA*  6=9902  BYTE 0 RESERVED4DIBRTO DATA 0  *READ TIMEOUT (IN 1/4 SECONDS) 44DIBWTO DATA 0  *WRITE TIMEOUT(IN 1/4 SECONDS) 4@4DIBDT1 DATA 0  *FIRST DIRECT TIMEOUT(1/4 SEC) 44DIBDT2 DATA 0  *SECOND DIRECT TIMEOUT(1/4 SEC 44DIBGFL FLAGS 8 *SYSGEN FLAGS (SAME AS DIBTFL) 4& FLAG GFLECO  *ECHO (1=NO ECHO) & BITS 1  UNUSED ( FLAG GFLXPE  *XMIT PARITY ENABLED(  BITS 2 XMIT PARITY TYPE  *  00=EVEN*  01=ODD *  10=MARK*  11=SPACE , FLAG GFLRPE  RECEIVE PARITY ENABLED ," BITS 2 RECEIVE PARITY TYPE"*  00=EVEN*  01=ODD *  10=MARK*  11=SPACE  DIBSTF FLAGS 8STATE FLAGS   FLAG STFONL  ONLINE ( FLAG STFCIP  CONNECT IN PROGRESS( FLAG STFOPN  OPEN " FLAG STFDLE  DLE RECEIVED " FLAG STFHDX   HDUX LINE BELONGS TO REMOTE  FLAG STFRSD  RESEND FLAG DIBLNF FLAGS 8 *LINE FLAGS 0 FLAG LNFHDX *HALF DUPLEX (1=HALF DUPLEX) 00 FLAG LNFSWT *SWITCHED LINE (1=SWITCHED) 0  FLAG LNFRCL  REFUSE CALL , FLAG LNFADE  *AUTO-DISCONNECT ENABLED ,, FLAG LNFDLE  *DLE/EOT FOR DISCONNECT ,, FLAG LNFSCF  SCF READY/BUSY MONITOR ,0 FLAG LNFEXC  FILE XFER EXCLUSIVE ACCESS 0, FLAG LNFHDL  HALF DUPLEX LTA ENABLE ,*DIBTFL FLAGS 8 TEMPORARY ACCESS FLAGS*& FLAG TFLECO  ECHO (1=NO ECHO) & BITS 1  UNUSED ( FLAG TFLXPE  XMIT PARITY ENABLED( BITS 2  UNUSED , FLAG TFLRPE  RECEIVE PARITY ENABLED ,&DIBSPD BYTE 0  *BAUD RATE (SPEED) &"*  -1=300 OR 1200 SELECTED BY "*  212 MODEM*  0=110*  1=300*  2=600*  3=1200 *  4=2400 *  5=4800 *  6=9600 *DIBEOR BYTE 0  *END OF RECORD (=CR) **DIBEOF BYTE 0  *END OF MEDIUM (=EM) *,DIBLTA BYTE 0  *LINE TURNAROUND (=EOT),4DIBSUB BYTE 0  *PARITY ERROR SUBSTITUTE (='?') 42DIBDLA BYTE 0 CARRIAGE RETURN DELAY INTERVAL 20DIBPCR DATA 0 PARITY CHECK ROUTINE ADDRESS 0.DIBPSR DATA 0  PARITY SET ROUTINE ADDRESS .0DIBMXC DATA 0 MAXIMUM CHARACTERS BUFFERED 00DIBTRM BYTE 0  *TERMINAL TYPE (TYPE - 700) 0,DIBLCR BYTE 0  LAST CHARACTER RECEIVED ,*DIBXFL FLAGS 16  SAVED EXTENDED FLAGS* DIBSVE BYT $E 0  SAVED ERROR CODE FROM DSR $4DIBGSP BYTE 0  *CURRENT SPEED (SAME AS DIBSPD) 4DIBISR DATA 0 RESERVED4DIBGTO DATA 0  *GENNED TIMEOUT(IN 1/4 SECONDS) 4,DIBPEC DATA 0  NUMBER OF PARITY ERRORS ,.DIBLCC DATA 0  NUMBER OF LOST CHARACTERS .&DIBSIZ EQU$-DIBBGNSIZE OF DIB &  RORG "  PAGE "  LIST " "*  67 - TASK IS BEING KILLED "&*  (RESERVED,SOFTWARE DETECTED) &*  68 - NOT ENOUGH USBASIC JIT SIZE" VARNT JITVNT  *------ $ ,* ' --k4\`4 -*  INCONSISTENT LDT LIST 4CSH060 EQU>0060 NFINT2 - INTERNAL INTERRUPT 4 *  60 THRU 6F RESERVED FOR "*  INTERNAL INTERRUPTS 0 - F "(* 60 - INVOSE PR2v2| UNL#@************************************************************ @ *  * 0 * OWNED SEGMENT ENTRY(OSE) 09/23/81 * 0 *  * * LOCATION: JCA  * @************************************************************ @@* THE OSE DESCRIBES A SEGMENT WHICH IS EXCLUSIVELY USED BY A @&* TASK. IT IS LINKED TO THE TSB. &  DORG 0 ! 8OSEOSE PTROSE  LINK TO NEXT OWNED SEGMENT ENTRY 84OSESSB PTRSSB  SSB ADDRESS OF OWNED SEGMENT 48OSESMT PTRSSB  SSB ADDRESS OF SEGMGR TABLE AREA 8OSESIZ EQU$ !  RORG "  PAGE "  LIST " OPN  OPEN " FLAG STFDLE  DLE RECEIVED " FLAG STFHDX *CSH020 RESERVED-DX10-ILLEGAL INTERNAL ,*  INTERRUPTLDT XR5k2|!@ UNL#@************************************************************ @ *  * 0 * LOGICAL DEVICE TABLE (LDT) 01/27/83 * 0 *  * ** LOCATION: SYSTEM AREA AND JCA  * *@************************************************************ @@* THE LDT CONTAINS INFORMATION DESCRIBING AN I/O RESOURCE TO @@* WHICH A LOGICAL UNIT NUMBER (LUNO) HAS BEEN ASSIGNED. IT @<* INCLUDES TYPE FLAGS, OWNERSHIP, AND STATE INFORMATION. < PCKREC LDT (LDTLDT PTRLDT  LINK TO NEXT LDT ((LDTIOC BYTE 0  INITIATE I/O COUNT ((LDTLUN BYTE 0  LOGICAL UNIT NUMBER( VARNT LDTIOC+2 &LDTTYP BYTE 0  I/O RESOURCE TYPE&4LDTTF BYTE 0  FLAGS FOR LDT TYPE (SEE LDTXFL) 4LDTFLG FLAGS 16  FLAGS* FLAG LDFDEL LDT IS DELETE PROTECTED *. FLAG LDFFWTFORCED (IMMEDIATE) WRITE BIT .( FLAG LDFCBA CREATED BY ASSIGN BIT (. FLAG LDFNUSLDT IS CURRENTLY NON-USABLE .( FLAG LDFPRM PARAMETERS ARE PRESENT(. FLAG LDFUBIUNBLOCKED(1)/BLOCKED(0) OPEN .( BITS LDFACU,2 ACCESS PRIV. IN USE (*  00 = EXCLUSIVE WRITE*  01 = EXCLUSIVE ALL* 10 = SHARED * 11 = READ ONLY.LDFACM EQU>0300  ACCESS PRIV. BIT MASK .2 BITS LDFSC1,2LDT SCOPE (TASK, JOB, GLOBAL) 2* 00 = TASK-LOCAL * 01 = JOB-LOCAL* 10 = GLOBAL * 11 = SHARED &LDFSCM EQU>00C0 SCOPE BIT MASK&& FLAG LDFDWE DEFERRED WRITE ERROR& LDFMM EQU  LDFDWE MAGIC MODE FOR EVDT  0 FLAG LDFVNTEVENTS REQUESTED (KB DEVICES) 0$ FLAG LDFUSD LDT HAS BEEN USED $" FLAG LDFDIADIAGNOSTIC STATE" BITS 2 *** RESERVED ***6LDTRLK PTRPDT  RESOURCE LINK: FCA, PDT OR CCB 6,LDTTSB PTRTSB  OWNER TSB LIST ANCHOR,(LDTJSB PTRJSB  OWNER JSB ADDRESS(LDTSZ1 EQU$ !& DORG LDTSZ1 DEVICE, CHANNEL LDT& LDTSID DATA 0  SESSION ID  .LDTSZ2 EQU$  DEVICE, CHANNEL LDT SIZE . DORG LDTSZ1 FILE LDT &LDTFMT PTRSSB  SSB FOR THE FMT&.LDTFCB PTRFSC  FCB ADDRESS IN THE FMT ..LDTCAR FLAGS 16  COMPOSITE ACCESS RIGHTS.$ FLAG LDFRDF READ ACCESS FLAG $$ FLAG LDFWRF WRITE ACCESS FLAG$ FLAG  LDFDLF DELETE ACCESS FLAG  & FLAG LDFEXF EXECUTE ACCESS FLAG&& FLAG LDFCTF CONTROL ACCESS FLAG& BITS 11 **RESERVED** "LDTFSZ EQU$  FILE LDT SIZE" VARNT LDTIOC+2 ,LDTXFL FLAGS 16  RESOURCE TYPE / FLAGS,* BITS 8  ** ACTUALLY LDTTYP FIELD ***$ FLAG LDFJLO 1=JOB LEVEL OPEN $ BITS 2  **RESERVED** , FLAG LDFVD  LDT FOR A VIRTUAL DEVICE ,* FLAG LDFREM LDT FOR REMOTE RESOURCE*" FLAG LDFCHN LDT FOR CHANNEL"" FLAG LDFDEV LDT FOR DEVICE "  FLAG LDFFIL LDT FOR FILE  *------ $ 2* VALUES FOR I/O RESOURCE TYPE (FIELD LDTTYP) 2 *------ $ LDTRES EQU0  RESERVED  LDTSEQ EQU1  SEQUENTIAL  LDTRR EQU2  RELATIVE RECORDLDTKIF EQU3  KEY INDEXLDTDIR EQU4  DIRECTORYLDTPRG EQU5  PROGRAMLDTIMG EQU6  IMAGE* 'LDTDMY EQU0  DUMY $LDTSD EQU1  SPECIAL DEVICES$LDTKSR EQU2  KSRLDTASR EQU3  ASRLDTCS EQU4  CASSETTE LDTRS2 EQU5  RESERVED ,LDTDK EQU6  SINGLE DENSITY DISKETTE,LDTDS EQU7  DISK .LDTMT EQU8  MAG TAPE (979,CARTRIDGE) .LDTTPD EQU9  820LDTV11 EQU>A 911 VDT*LDTLPS EQU>B LINE PRINTER (SERIAL)*,LDTLPP EQU>C LINE PRINTER (PARALLEL),&LDTC3Q EQU>D COMM 9903 (FCCC) &LDTCOM EQU>E COMM I/F (LDTIND EQU>F INDUSTRIAL DEVICES (LD TCR EQU>10  CARD READER LDT940 EQU>11  940 EVTLDT931 EQU>12  931 EVT LDTEN EQU>13  ETHERNET  LDTBCM EQU>14  BCAIM,LDTVT EQU>15  VIRTUAL TERMINAL BASE,  ENDREC !  PAGE "  LIST " >00B7  PMWRIT - END ACTION TAKEN 22CSH0B8 EQU>00B8  PMTLDR - END ACTION TAKEN 22CSH0B9 EQU>00B9  PMTERM - END A%%CTION TAKEN 22CSH0BA EQU>00BA  PMSBUF - END ACTION TAKEN 22CSH0BB EQU>00BB  PMRWTK - END ACTION TAKEN 22CSH0BD EQU>00BD  PMSBID - END ACTION TAKEN 2.CSH0BE EQU>00BE  RCP - END ACTION TAKEN.:CSH0C0 EQU>00C0 NFEOBR - TSBIO HAS BECOME NEGATIVE:( *CSH0E0 THRU CSH0E5 RESERVED-DX10-(CSH100 EQU>0100 IOU - ENSDEDOR PRG2|#@ UNL#D *************************************************************** D** DIRECTORY OVERHEAD RECORD(SDEDOR)** '4* MEMORY RESIDENT TABLE FORM OF DOR 09/25/79 4D *************************************************************** D  DORG 0 ! *SDONRC DATA 0  # RECORDS IN DIRECTORY*2SDONFL DATA 0 # FILES CURRENTLY IN DIRECTORY 2*SDONAR DATA 0  # OF AVAILABLE RECORDS*.SDOTFC DATA 0  NUMBER OF TEMPORARY FILES .(SDODNM BSS8  DIRECTORY FILE NAME ((SDOLVL DATA 0  LEVEL # OF DIRECTORY("SDOPNM BSS8 PARENT'S NAME "* 'SDOSIZ EQU$ !* '0SDORDH DATA 0  DIRECTORY ENTRY LIST HEADER0,SDORFH DATA 0  FILE ENTRY LIST HEADER ,SDORCH DATA "0  CHANNEL ENTRY LIST HEADER"*SDOFLG DATA 0  MODIFIED FORMAT FLAG ** 0=NORMAL FORMAT * -1=MODIFIED FORMAT   RORG "  PAGE "  LIST "  UNL#@************************************************************ @ *  * 0 * LOGICAL DEVICE TABLE (LDT) 01/27/83 * 0 *  * ** LOCATION: SYSTEM AREA AND JCA  * *@************************************************************ @@* THE LDT CONTAINS INFORMATION DESCRIBING AN I/O RESOURCE TO @@* WHICH A LOGICAL UNIT NUMBER (LUNO) HAS BEEN ASSIGNED. IT @<* INCLUDES TYPE FLAGS, OWNERSHIP, AND STATE INFORMATION. < PCKREC LDT (LDTLDT PTRLDT  LINK TO NEXT LDT ((LDTIOC BYTE 0  INITIATE I/O COSDQ P RMC2|$@ UNL# LIBIN DSC.MACROS.TEMPLATE LIBIN DSC.MACROS.FUNC8****************************************************8.*  SDQ -- SPOOLER DEVICE QUEUE ENTRY *.* 01/25/84 *8****************************************************8* '6SDQNUM EQU6  NUMBER OF SDQ ENTRIES PER RECORD 6* ' PCKREC SDQ$SDQFLG FLAGS 16  STATUS FLAGS $& FLAG SQFUSE TRUE=DELETED ENTRY &* FLAG SQFCON TRUE=CONCATENATED FILE *" FLAG SQFANS TRUE=ANSI FILE "0 FLAG SQFBNR TRUE=NO BANNER SHEET PROVIDED 0* FLAG SQFDEV TRUE=QUEUED FOR DEVICE ** FLAG SQFDAP TRUE=DELETE AFTER PRINT*. FLAG SQFCFR TRUE=CONCAT FILENAME RECORD." FLAG SQFDAL TRUE=DELETE ALWAY"S (EVEN ON* KILL OUTPUT), FLAG SQFNPJ TRUE=NO PAGE EJECT BEFORE,* PRINTING.SDQRN WORD 0  NEXT ENTRY RECORD NUMBER .0SDQOFF BYTE 0  NEXT ELEMENT RECORD OFFSET 00SDQCOF BYTE 0  NEXT FILENAME RECORD OFFSET0*SDQCRN WORD 0  NEXT FILENAME RECORD *SDQVR1 EQU$ ! VARNTSDQVR1&SDQULN CHAR 8  USER LOGICAL NAME&$SDQFRM CHAR 8  REQUESTED FORM $SDQUID CHAR 8  USER IDSDQJID WORD 0  JOB ID SDQJOB CHAR 8  JOB NAME SDQVR2 EQU$ ! VARNTSDQVR2 SDQCLN CHAR 8  CLASS NAME  &SDQCOP BYTE 0  NUMBER OF COPIES &$SDQLPP BYTE 0  LINES PER PAGE $"SDQJPR BYTE 0  JOB PRIORITY "SDQNPR BYTE 0  NEXT ENTRY PRIORITY(SDQSID CHAR 6  ASSIGNED SPOOLER ID("SDQPNL BSS50 FILE PATHNAME" VARNTSDQVR2 SDQDVN CHAR 8  DEVICE NAME * '**--DEFINE CONCATENATED FILENAME RECORD** ' VARNT SDQVR1 0SDQFNM WORD  NUMBER OF FILENAMES IN RECORD 0:SDQNAM BSS>72->A AREA RESERVED FOR FILE PATHNAMES :*--AREA FORMAT!$*  L1 BYTE PATHNAME LENGTH$,*  T1 L1 CHARACTERS (PATHNAME TEXT) ,$*  L2 BYTE PATHNAME LENGTH$,*  T2 L2 CHARACTERS (PATHNAME TEXT) , *  .$ *  .$ *  .$ *  LN # *  TN # * '  ENDREC !  ASSUME SDQSIZ=>72   PAGE "  LIST " ARE PRESENT(. FLAG LDFUBIUNBLOCKED(1)/BNRB  RV.2|& UNL=@*********************************************************** $@ * * $ 0*  NAME REQUEST BLOCK (NRB)  09/09/83 * $0 * * $ **  LOCATION: SYSTEM TABLE AREA * $*@*********************************************************** $@$ DORG 0  NAME MGR REQUEST BLOCK($NRBSOC BYTE 0 SVC CODE/NRBEC BYTE 0 ERROR CODE.NRBOC BYTE 0 SUBOPCODE ."NRBFLG FLAGS 8USER SET FLAGS,". FLAG NRFLOGLOG = 1, ELSE SYN OPERATION %.. FLAG NRFINTINITIAL TASK IN JOB IF TRUE %.* FLAG NRFBID BID = 1, TERMINATION = 0'*$ FLAG NRFGLO GLOBAL REQUEST = 1*$& FLAG NRFRID RUN ID SPECIFIED = 1)&, FLAG NRFNMX NAME SEGMENT CANNOT EXPAND&, FLAG NRFPROPROTECT NAME-"@& BITS NRF007,1 FLAG BIT 7 UNUSED *&2NRBNAM PTRVSTGPTR TO "NAME" (OR NAME LIST)%20NRBVAL PTRVSTG PTR TO "VALUE" OR PATHNAME&0*NRBPRM PTRVSTG PTR TO "PARMS" LIST )*NRBVAR EQU$ ; VARNT NRBVAR 8$NRBPNO WORD 0 PATHNAME NUMBER +$NRBSID EQU$ SEGMENT ID.NRBRSV WORD 0 RESERVED/NRBTSK BYTE 0 TASK ID / NRBSTG BYTE 0 STAGE NUMBER- *NRBSMT PTRSSB  SMT FOR NAME SEGMENT)**NRBSSB PTRSSB  SSB FOR NAME SEGMENT)*(NRBVBL BYTE 0  VALUE BUFFER LENGTH )((NRBPBL BYTE 0  PARMS BUFFER LENGTH )(4NRBLNA PTRVSTGNAME POINTER -LOGICAL ADDRESS $44NRBLVA PTRVSTGVALUE POINTER-LOGICAL ADDRESS $44NRBLPA PTRVSTGPARMS POINTER-LOGICAL ADDRESS $42NRBSIZ EQU$ SIZE OF BASIC BLOCK TO BUFFER $2 VARNT NRBVAR 8 NRBSSZ WORD 0 SEGMENT SIZE-  VARNT NRBVAR 8.NRBSPF WORD 0  SUCCESSOR/PREDECESSOR FLAG&.  RORG <  PAGE <  LIST < # *  TN # * '  ENDREC !  ASSUME SDQSIZ=>72   PAGE "  LIST " ARE PRESENT(. FLAG LDFUBIUNBLOCKED(1)/BLOCKED(0) OPEN .( BITS LDFACU,2 ACCESS PRIV. IN USE ( k4x`4  COPIES  $SDQLPP BYTE 0  LINES PER PAGE $"SDQJPR BYTE 0  JOB PRIORITY "(SDQNPR BYTE 0  NEXT ENTRY PRIORITY((SDQSID CHAR 6  ASSIGNED SPOOLER ID("SDQPNL BSS50 FILE PATHNAME" VARNTSDQVR2 SDQDVN CHAR 8  DEVICE NAME * ACC  R_O2|(@ UNL=@************************************************************$@ *  *$ 6* ACCOUNTING RECORD CONTENTS (ACC)  09/09/83 *$6 *  *$ 0* LOCATION: SYSTEM TABLE AREA OR DISK *$0@************************************************************$@>* THE ACC DESCRIBES THE FORMAT OF ENTRIES ON THE QUEUE FOR%><* PROCESSING BY THE ACCOUNTING FORMATTING TASK (LGACCT).&<<* WITH THE EXCEPTION OF THE QUEUE LINK, THE ENTRIES ARE &<@* EXACTLY THE SAME WHEN ON DISK IN THE ACCOUNTING LOG FILE. $@>* EACH BLOCK TYPE HAS ITS OWN SET OF INFORMATION FOLLOWING%>@ * A STANDARD HEADER.THE EXCEPTION IS IPL (RECORD TYPE 6), $@.* WHICH USES ONLY THE HEADER INFORMATION. -. DORG 0 FIXED PART.ACCLNK DATA 0 QUEUE LINK.ACCVNT EQU$ ;* DORG ACCVNT FIELD DESCRIPTOR VARIANT'* ACCTYP BYTE 0 RECORD TYPE - (ACTJIT EQU1 JOB INITIALIZATION ((&ACTTTM EQU2 TASK TERMINATION )&$ACTJTM EQU3  JOB TERMINATION*$"ACTDET EQU4  DEVICE ENTRY +" ACTUET EQU5  USER ENTRY , ACTIPL EQU6  IPL ENTRY-$ACCLEN BYTE 0 LENGTH OF RECORD+$ACCYRD FLAGS 16 YEAR/DAY/" BITS ACCYER,7YEAR (7 BITS) ,"  BITS ACCDAY,9DAY (9 BITS)- ACCHOU BYTE 0 HOUR1ACCMIN BYTE 0 MINUTE0ACCSEC BYTE 0 SECOND0ACCPRI BYTE 0 PRIORITY/ACCJID DATA 0 JOB ID0$ACCOHD EQU$ END OF OVERHEAD +$. DORG ACCOHDTYPE 1 - JOB INITIALIZATION %. ACCAID CHAR 16  ACCOUNT ID , ACCUID CHAR 8  USER ID.ACCJNM CHAR 8  JOB NAME -ACCJIZ EQU$ ;, DORG ACCOHD TYPE 2 - TASK TERMINATION &,ACCTID BYTE 0  TASK ID.$ACCTCD BYTE 0  TASK TERM CODE *$0ACCCPU LONG 0  TASK CPU TIME (CLOCK TICKS)$0(ACCSVC LONG 0 NUMBER SVC'S ISSUED((0ACCIOB LONG 0  NUMBER I/O BYTES TRANFERED $00ACCMEM DATA 0  MAX MEMORY ALLOCATED(BEETS)$0.ACCWAL LONG 0 WALL CLOCK EXECUTION TIME%.&ACCIID BYTE 0 INSTALLED TASK ID)& ACCSTN BYTE 0  STATION ID , $ACCATR DATA 0  TASK ATTRIBUTES*$ACCTNM CHAR 8  TASK NAME-ACCTTZ EQU$ ;* DORG ACCOHD TYPE 3 - JOB TERMINATION'*"ACCJUD DATA 0  JCA AREA USED+" ACCJSZ D ATA 0  JCA TOTAL SIZE *(ACCJEX LONG 0 JOB EXECUTION TIME ((ACCJTZ EQU$ ;( DORG ACCOHD TYPE 4 - DEVICE ENTRY ((&ACCTPF BYTE 0 DEVICE TYPE FLAGS)& ACCDTP BYTE 0  D%%EVICE TYPE, ACCNAM CHAR 4  DEVICE NAME, (ACCNRQ LONG 0 NUMBER I/O REQUESTS((0ACCTMU DATA 0  RESERVED-TIME USED(MINUTES)$0ACCDSZ EQU$ ;& DORG ACCOHD TYPE 5 - USER ENTRY )&& ACCCHR CHAR 82-ACCOHD  USER DATA-&ACCUSZ EQU$ ; DORG ACCOHDTYPE 6 - IPL-ACCISZ EQU$ ;& DORG ACCOHD TYPE 7 - COMM ENTRY )&& ACCCOM CHAR 82-ACCOHD  COMM DATA-&ACCCTZ EQU$ ;( DORG ACCVNT SINGLE ENTITY VARIANT ((ACCTXT CHAR 80;  RORG <  PAGE <  LIST < *------ $PDT PRkf$2|*@ UNL#@************************************************************ @ *  * 0 * PHYSICAL DEVICE TABLE(PDT) 06/22/83 * 0 *  * "*  LOCATION: SYSTEM AREA  * "@************************************************************ @>* EACH DEVICE GENERATED INTO A SYSTEM IS REPRESENTED BY A >B* PDT.THE PDT IS USED AS A WORK AREA FOR THE DEVICE SERVICE BB* ROUTINE WHILE PROCESSING REQUESTS FOR THE PARTICULAR DEVICE. BB************************************************************* B  DORG 0 ! 2PDTPDT PTR PDT FORWARD LINKAGE TO NEXT PDT2 PDTNAM CHAR 4 DEVICE NAME "PDTNUM DATA 0 DEVICE NUMBER"*PDTLC BYTE 0 LUNOS ASSIGNED COUNT *PDTIL BYTE 0 INITIATE REQUEST LIMIT "PDTCHR BYTE 0 BID CHARACTER" PDTCDT BYTE 0 CDT NUMBER  $PDTCDE DATA 0 DEVICE CDE MASK$4PDTFLG FLAGS 16  DEVICE STATUS FLAGS EXTENSION 4, FLAG DFGIRB  COPY IRB TO SYSTEM LOG , BITS 2 RESERVED $ BITS PDFSTA,2  DEVICE STATE $*PDFDSM EQU >1800 DEVICE STATE MASK* * 00 ONLINE  01 OFFLINE "*  10 DIAGNOSTIC 11 SPOOLER ", FLAG DFGOPF  DEVICE OPERATION FAILED, BITS 1 RESERVED ( FLAG DFGVRT  VIRTUAL DEVICE FLAG(2 BITS 8 NIO-KEYBOARD BID OWNER TASK RUN ID 2( PDTMAP ARRAY 6,WORD  DSR MAP FILE (@PDTOCN EQU PDTMAP  VIRT PDTS ONLY-OWNER CHANNEL LEN/NAME @&* LENGTH BYTE, 11 BYTES OF CHAR &PDTJOB& PTR JSB JSB ADDRESS OWNER JOB&8PDTRPB PTR RPB RESOURCE PRIVILEGE BLOCK POINTER 8&PDTBQ WORD 0 BID REQUEST QUEUE&&PDTR0 WORD 0 R0 - DSR SCRATCH&.PDTPRB WORD 0 R1 - QUEUED PRB ADDRESS .0PDTDSF FLAGS 16  R2 - DEVICE STATUS FLAGS00 FLAG DSFCMO OPENED WITH COMM OPEN (>4E) 0& FLAG DSFAID  USE ALTERNATE PDT &( FLAG DSFBIBUFFER INPUT(1=YES) (( FLAG DSFBO BUFFER OUTPUT (1=YES) (* FLAG DSFJIS  JISCII FLAG(KATAKANA) *  FLAG DSFREN RE-ENTER-ME  ( FLAG DSFJAR JISCII RECEIVEMODE(( FLAG DSFJAT  JISCII TRANSMIT MODE( BITS 2RESERVED( FLAG DSFWPM  WORD PROCESSING MODE(* FLAG DSFIRE  INITIAL REQUEST ENTRY * BIT.S DSFINT,4 DEVICE INTERRUPT LEVEL MASK .,PDTDTF FLAGS 8 R3 - DEVICE TYPE FLAGS," FLAG DTFFIL FILE ORIENTED "" FLAG DTFTIL TILINE DEVICE "$ FLAG DTFTIM ENABLE TIME-OUT $& FLAG DTFPRI  PRIVILEDGED DEVICE&( FLAG DTFKSB  TERMINAL WITH A KSB (  FLAG DTFCOM COMM DEVICE   FLAG DTFSYD SYSTEM DISC   BITS 1RESERVED"PDTTYP BYTE 0- DEVICE TYPE "6PDTDIB PTR PDT R4 - DEVICE INFO BLOCK ADDRESS 6&PDTR5 WORD 0 R5 - DSR SCRATCH&>PDTRDN EQU PDTR5 VIRT PDTS ONLY-REMOTE DEVICE LEN/NAME >&* LENGTH BYTE, 13 BYTES OF CHAR &&PDTR6 WORD 0 R6 - DSR SCRATCH&&PDTR7 WORD 0 R7 - DSR SCRATCH&"PDTR8 WORD 0 R8 - DSR SCRAT"CH&PDTR9 WORD 0 R9 - DSR SCRATCH&&PDTR10 WORD 0 R10 - DSR SCRATCH&&PDTR11 WORD 0 R11 - DSR SCRATCH&0PDTCRU WORD 0 R12 - CRU OR TILINE ADDRESS0>PDTRDJ EQU PDTCRU  VIRT PDTS ONLY-REMOTE DEVICE JOB ID >$PDTR13 WORD 0 R13 - SAVED WP $$PDTR14 WORD 0 R14 - SAVED PC $$PDTR15 WORD 0 R15 - SAVED ST $2PDTERR BYTE 0 SAVED ERROR CODE FOR SYS LOG 2,PDTRTY BYTE 0 RETRIES ATTEMPTED COUNT,(PDTRC WORD 0 READ REQUEST COUNT((PDTWC WORD 0 WRITE REQUEST COUNT((PDTMC WORD 0 MISC REQUEST COUNT(&PDTREC WORD 0 READ ERROR COUNT&&PDTWEC WORD 0 WRITE ERROR COUNT&&PDTMEC WORD 0 MISC ERROR COUNT&PDTSL1 WORD 0 SYSTEM LO G INFO $PDTSL2 WORD 0 SYSTEM LOG INFO$*PDTBLN WORD 0 MAXIMUM BUFFER LENGTH*$PDTTM1 WORD 0 TIME OUT COUNT $(PDTTM2 WORD 0 TIME OUT COUNT DOWN(*PDTHRQ WORD 0 HIDDEN REQUEST QUEUE **PDTWQ WORD 0 WAITING REQUEST QUEUE**PDTSRB WORD 0 SAVED REQUEST ADDRESS**PDTERQ WORD 0 END -OF-RECORD QUEUE*(PDTSRQ WORD 0 SPENT REQUEST QUEUE(4PDTPDS WORD 0 PRIORITY DSR SCHEDULER QUE LINK 4* 'PDTSIZ EQU$ !  RORG "  PAGE "  LIST " ,LDTDK EQU6  SINGLE DENSITY DISKETTE,LDTDS EQU7  DISK .LDTMT EQU8  MAG TAPE (979,CARTRIDGE) .LDTTPD EQU9  820LDTV11 EQU>A 911 VDT*LDTLPS EQU>B LINE PRINS2B PR}Z2|,@ UNL#B************************************************************** B *  * 4*  TASK BID REQUEST BLOCK(S2B) 04/22/80 * 4 *  * B************************************************************** B PCKREC S2B *S2BSVC BYTE 0  TASK BID OP CODE=#2B *(S2BERC BYTE 0  TASK BID ERROR CODE(&S2BIID BYTE 0  TASK INSTALLED ID&$S2BFLG FLAGS 8 TASK BID FLAGS $" FLAG S2BJBSJOB ID SPECIFIED"& FLAG S2BRES *** RESERVED BIT ***&& FLAG S2BRBD TASK TO BID IS RBID &, FLAG S2BBAC TASK TO BID IS BACKGROUND ," FLAG S2BFTCTERMINATE CALLER", FLAG S2BFCT TASK TO BID IS CONTROLLED ,* FLAG S2BFSU TASK TO BID IS SUSPENDED * FLAG S2BFSCSUSPEND CALLER  UNTIL *  * BID TASK COMPLETES(S2BPRM BSS 4 TASK BID PARAMETERS((S2BSTA BYTE 0  ASSOCIATED STATION (* * #FF => NO STATION$S2BLUN BYTE 0  PROG FILE LUNO $ * * 0 => SYSTEM PROG FILE 2S2BJID DATA 0  JOB ID OF JOB TO BID TASK IN 2  ENDREC !  PAGE "  LIST " MASK* * 00 ONLINE  01 OFFLINE "*  10 DIAGNOSTIC 11 SPOOLER ", FLAG DFGOPF  DEVICE OPERATION FAILED, BITS 1 RESERVED ( FLAG DFGVRT  VIRTUAL DEVICE FLAG(2 BITS 8 NIO-KEYBOARD BID OWNER TASK RUN ID 2( PDTMAP ARRAY 6,WORD  DSR MAP FILE (@PDTOCN EQU PDTMAP  VIRT PDTS ONLY-OWNER CHANNEL LEN/NAME @&* LENGTH BYTE, 11 BYTES OF CHAR &PDTJOBOSP PR 2|. UNL#@************************************************************ @ *  * 0 * OPERATING SYSTEM PARMS(OSP) 04/02/82 * 0 *  * @************************************************************ @  DORG 0 ! *OSPOFF BYTE 0  OFFSET INTO STRUCTURE *(OSPLEN BYTE 0  LENGTH OF PARAMETER ($OSPSIZ EQU$ SIZE OF AN ENTRY$  PAGE "  LIST " 8 TASK BID FLAGS $" FLAG S2BJBSJOB ID SPECIFIED"& FLAG S2BRES *** RESERVED BIT ***&& FLAG S2BRBD TASK TO BID IS RBID &, FLAG S2BBAC TASK TO BID IS BACKGROUND ," FLAG S2BFTCTERMINATE CALLER", FLAG S2BFCT TASK TO BID IS CONTROLLED ,* FLAG S2BFSU TASK TO BID IS SUSPENDED * FLAG S2BFSCSUSPEND CALLERDIA PR:2|/@ UNL#@*********************************************************** @ * * . * DIAGNOSTIC STATUS(DIA) 05/16/79* . * * * LOCATION: JCA* @*********************************************************** @@* THE DIA DESCRIBES A TASK WHICH IS TERMINATING ABNORMALLY. @>* IT IS USED TO PROVIDE END ACTION STATUS TO A TASK AND TO >6* BUILD A TERMINATION MESSAGE FOR THE SYSTEM LOG. 6  DORG 0 ! $DIAEC BYTE 0 TASK ERROR CODE $ BYTE 0 RESERVED*DIAWP DATA 0  TASK WORKSPACE POINTER*(DIAPC DATA 0  TASK PROGRAM COUNTER( DIAST DATA 0 TASK STATUS  4DIALM1 DATA 0 END ACTION TIME LIMIT(1ST WORD) 4"DIALM2 DATA 0 (SECOND WORD) " DIASIZ EQU $ !  RORG "  PAGE "  LIST " WHILE NOT FOUND AND INDEX <= 5 DO$&* PRINTING.SDQRN WORD 0  NEXT ENTRY RECORD NUMBER 6"Lk4D`4  UNTIL *  * BID TASK COMPLETES(S2BPRM BSS 4 TASK BID PARAMETERS((S2BSTA BYTE 0  ASSOCIATED STATION (* * #FF => NO STATION$S2BLUN BYTE 0  PROG FILE LUNO $ * * 0 => SYSTEM PROG FILE 2S2BJID DATA 0  JOB ID OF JOB TO BID TASK IN 2  ENDREC !  PAGE "  LIST " MASK* * 00 ONLINE  01 OFFLINE "*  10 DIAGNOSTIC 11 SPOOLER ", FLAG DFGOPF  DEVICE OPERATION FAILED, BITS 1 RESERVED ( FLAG DFGVRT  VIRTUAL DEVICE FLAG(2 BITS 8 NIO-KEYBOARD DPR %%PR[2|1@ UNL#@*********************************************************** @ * * 6*  DUTIL DEVICE PARAMETERS(DPR) 10/04/83* 6 * * <*  CHANGES TO THIS TEMPLATE REQUIRE CORRESPONDING * <6*  CHANGES TO THE PASCAL TEMPLATE "DPRPAS". * 6@*********************************************************** @@* THE DPR TEMPLATE DESCRIBES THE DEVICE PARAMETERS MANAGED @B* BY THE DEVICE I/O UTILITY (DUTIL). IT INCLUDES PARAMETERS B * IN THE FOLLOWING RANGES:  * '**  PARAMETER RANGEPARAMETER USAGE ***  ------------------------------ *.* >01 - >5F  OPERATING SYSTEM RESERVED ."* >60 - >FF NOT SUPPORTED "* ' * IN THE FIELD COMMENTS, RO I  NDICATES THAT A PARAMETER IS (* READ ONLY AND CANNOT BE MODIFIED.(* ' * SPECIAL FIELD COMMENTS:B* DPRNAM - ONE TO EIGHT ALPHANUMERIC CHARACTERS WITH A LETTER B *  AS THE FIRST CHARACTER.  B* DPRNUM - ONE WORD NUMBER BETWEEN >0001 AND >07FF, EXCLUDING B** 100 THROUGH 255 (>64 THROUGH >FF).*D* DPRTYP - LIKE THE PDTTYP FIELD.ON AN ASSIGN LUNO, THE VALUED:* OF THIS FIELD IS PUT INTO THE LDTTYP FIELD OF THE ::* LDT AND IS RETURNED TO THE CALL BLOCK IN THE UPPER :&* BYTE OF THE DATA BUFFER FIELD.&D * DPRJOB - JSB OF THE FIRST JOB TO ASSIGN A LUNO TO A TERMINAL.D* '(DPRNAM EQU>01 RO *DEVICE NAME (*DPRNUM EQU>02 RO *DEVICE NUMBER *DPRF"LG EQU>03  *WORD OF FLAGS "&DPRDSF EQU>04  *DEVICE STATUS &(DPRTYP EQU>05 RO *DEVICE TYPE (&DPRJOB EQU>06 RO *OWNER JOB &,DPRRPB EQU>07 RO *RPB LIST HEADER ,&DPRLC EQU>08 RO *LUNO COUNT&"DPRCDT EQU>09  *CDT NUMBER" DPRCDE EQU>0A  *CDE MASK (DPRPDT EQU>0B RO *PDT ADDRESS (.DPRDTF EQU>0C RO *DEVICE TYPE FLAGS .*DPRSTK EQU>0D  *SECTORS PER TRACK *,DPROHD EQU>0E  *OVERHEAD PER RECORD ,(DPRWTK EQU>0F  *WORDS PER TRACK (4DPRDRS EQU>10  *DEFAULT PHYSICAL RECORD SIZE 48DPRFMS EQU>11  *VCAT FD SPECIAL AREA SSB ADDRESS 8,DPRFDB EQU>12  *VCATALOG FDB ADDRESS,$DPRTFL EQU>13  *TEMPORARY FILE$ NAME SEED$DPRECT EQU>14  *RETRY COUNT $$DPRVNM EQU>15  *VOLUME NAME $&DPRCHR EQU>16  *BID CHARACTER &6DPRBLN EQU>17  *BUFFER LEN OR # VIRT TERMINALS 68DPRMAX EQU>18  * THE LIMIT FOR CURRENT OS PARMS 8.DPROSM EQU>5F  *MAXIMUM O.S. PARAMETER. * EQUATES FOR DPRFLG0DP1IRB EQU0 RO *COPY IRB TO SYSTEM LOG0"DP1RS1 EQU1 RO *RESERVED""DP1RS2 EQU2 RO *RESERVED"$DP1STA EQU3  * DEVICE STATE $*  00 - ONLINE*  01 - OFFLINE *  10 - DIAGNOSTIC*  11 - SPOOLER &DP1OPF EQU5 RO *OPEN FAILED & * EQUATE FOR DPRDSF "DP2RS1 EQU0 RO *RESERVED"(DP2AID EQU1 RO *ALTERNATE PDT (&DP2BI EQU2 RO *BUFFER INPUT&(DP2BO EQU3 RO *BUFFER OUTPUT (.DP2JIS EQU4  *JISCII, 8-BIT ASCII MODE.&DP2REN EQU5 RO *RE ENTER ME &(DP2JAR EQU6 RO *JISCII RECEIVE(*DP2JAT EQU7 RO *JISCII TRANSMIT *"DP2RS2 EQU8 RO *RESERVED""DP2RS3 EQU9 RO *RESERVED".DP2WPM EQU>ARO *WORD PROCESSING MODE.*DP2IRE EQU>BRO *INITIAL REQUEST *4DP2INT EQU>CRO *DEVICE INTERUPT LEVEL MASK4,* EQUATES FOR DPRDTF - DEVICE TYPE FLAGS,(DP3FIL EQU0 RO *FILE ORIENTED ((DP3TIL EQU1 RO *TILINE DEVICE (*DP3TIM EQU2 RO *ENABLE TIME-OUT *,DP3PRI EQU3 RO *PRIVILEDGED DEVICE,$DP3KSB EQU4 RO *TERMINAL WIT$ H A KSB  &DP3COM EQU5 RO *COMM DEVICE &&DP3SYD EQU6 RO *SYSTEM DISC &"DP3RES EQU7 RO *RESERVED"  LIST " 2CSH0B9 EQU>00B9  PMTERM - END ACTION TAKEN 22CSH0BA EQU>00BA  PMSBUF - END ACTION TAKEN 2CSH0BB EQU>00B" 6 DEF HESRIHSR RI SIGNAL CHANGE NOTIFY ENABLE 68 k4`42CSH0B0 EQU>00B0  NAMMGR - END ACTION TAKEN 26CSH0B1 EQU>00B1 NAMMGR - PASCAL RUN-TIME ABORT 62CSH0B2 EQU>00B2  IOTBID - END ACTION TA"k4F`4 G INFO $PDTSL2 WORD 0 SYSTEM LOG INFO$*PDTBLN WORD 0 MAXIMUM BUFFER LENGTH*$PDTTM1 WORD 0 TIME OUT COUNT $(PDTTM2 WORD 0 TIME OUT COUNT DOWN(*PDKDR PR%2|3 UNL#>********************************************************** > *  * >* KEY INDEXED FILE KEY DESCRIPTOR RECORD(KDR) 09/09/83 * > *  * .* LOCATION: DISK RESIDENT STRUCTURE  * .>********************************************************** ><* THE KDR DESCRIBES THE KEYS OF A KEY INDEXED FILE. THE <8* FIELD AT KDROFF IS ONE OR MORE REPLICATIONS OF THE8"* FIELDS BEGINNING AT KDRFGS. "  DORG 0 ! "KDRHKC DATA 0 HASH KEY COUNT""KDRHKV DATA 0 HASH KEY VALUE"$ DATA 0  (WORD COPIED FROM KDB)$"KDRNKY DATA 0 NUMBER OF KEYS".KDROFF BSS4*14 SPACE FOR MAXIMUM # KEYS .0KDRCD BSS6 CREATION DATE AND TIME USED 0&* TO IDENTIFY CONCATENATED SETS. &(2KDRSEQ BYTE 0 CONCATENATED SET SEQUENCE NUM. 2.KDRCCT BYTE 0  TOTAL CONCAT. FILES IN SET .*KDRMKY EQU14 MAX # OF KEYS IN FILE *"KDRMSZ EQU100 MAX KEY SIZE"0 DORG 0 FLAGS DESCRIPTION (NOT A VARIANT) 0KDRFGS FLAGS 8FLAGS  BITS 3 *** RESERVED ***. FLAG KDRPFGBIT 3 SET IF PARTIAL LOGGING .. FLAG KDR33 BIT 4 SET IF SEQUENTIAL KIF .. FLAG KDROFGBIT 5 SET IF KEY IS OPTIONAL .0 FLAG KDRSFGBIT 6 SET IF SEQUENTIAL CMNDS 0, FLAG KDRDFG BIT 7 SET IF DUPLICATES OK ,"KDRSIZ BYTE 0 # CHARS IN KEY"(KDRO DATA 0  KEY OFFSET IN RECORD(*KDRNXT EQU$  SIZE OF KEY DESCRIPTOR*  RORG "  PAGE "  LIST " LUNO TO A TERMINAL.D* '(CLR PR2|5@ UNL#@************************************************************ @ *  * :*  CAPABILITIES LIST FILE RECORD (CLR)01/21/83 * : *  * $*  LOCATION .S$CLF ON DISK  * $ *  * @************************************************************ @<* THE CLR IS USED BY TASKS WHICH ADD, DELETE, OR MODIFY <>* USER IDS OR ACCESS GROUPS.IT HAS 5 VARIANTS: FIR, AGR, >D * UDR, UDO, AND VFY.THE STRUCTURE AND PURPOSE OF EACH VARIANT D * IS DESCRIBED BELOW. * '* '<* THIS PACKED RECORD IS USED FOR USER ID ENTRIES IN FIR <* ' PCKREC  UIDFIRID CHAR 8  USER ID.FIRRN WORD 0  USER'S UDR RECORD NUMBER .  ENDREC ! * '* THIS PACK2ED RECORD IS USED FOR ACCESS GROUP ENTRIES IN 2B* USER DESCRIPTOR RECORDS (UDR) AND USER DESCRIPTOR OVERFLOW B * RECORDS (UDO). * '( PCKREC  AGE ACCESS GROUP ENTRY (0AGERN WORD 0  ACCESS GROUP RECORD NUMBER 04AGEOFF BYTE 0  OFFSET INTO ACCESS GROUP RECORD 4.AGEFLG FLAGS 8 ACCESS GROUP ENTRY FLAGS .8 FLAG AGELDR  TRUE=USER IS LEADER OF ACCESS GROUP 84 FLAG AGEFCG  TRUE=FILE CREATION ACCESS GROUP 4  ENDREC ! * '<* THIS PACKED RECORD IS USED FOR ACCESS GROUP NAMES IN <"* ACCESS GROUP RECORDS (AGR) "* ' PCKREC  AGN&AGNNAM CHAR 8  ACCESS GROUP NAME&AGNRSV WORD 0  RESERVED   ENDREC ! * ' PCKREC  CLR@FIR  EQU$ !AGR  EQU$ !UDR  EQU$ !UDO  EQU$ !VFY  EQU$ !* '* ' VARNT FIR* '&*  FILE INFORMATION RECORD (FIR)&* '>* THIS VARIANT IS USED TO STORE USER IDs.IT CONTAINS A >>* FLAG WORD, A POINTER TO ANOTHER FIR, AND 5 UID ENTRIES. >>* EACH UID ENTRY CONTAINS A USER ID AND THE RECORD NUMBER >,* OF ITS USER DESCRIPTOR RECORD (UDR). ,* '* '0FIRFIR WORD 0 CONTINUATION RECORD NUMBER 0.FIRRSV FLAGS 16  FIR USED/AVAILABLE FLAG.* FLAG FIRFRE  TRUE=AVAILABLE RECORD*& FIRENT ARRAY 5,UID 5 UID ENTRIES&FIRSIZ EQU $!* '* '* '* '* ' VARNTAGR * '&* ACCESS GROUP NAME RECORD (AGR)&* '8* THIS VARIANT IS USED TO STORE ACCESS GROUP NAMES.8>* IT CONTAINS A FLAG WORD, A POINTER TO THE NEXT AGR, AND >>* 5 AGN ENTRIES. EACH AGN ENTRY CONTAINS AN ACCESS GROUP >(* NAME AND A WORD OF UNUSED FLAGS. (* '0AGRAGR WORD 0 CONTINUATION RECORD NUMBER 0.AGRRSV FLAGS 16  AGR USED/AVAILABLE FLAG.* FLAG AGRFRE  TRUE=AVAILABLE RECORD*& AGRAGN ARRAY 5,AGN 5 AGN ENTRIES&AGRSIZ EQU $!* '* '* '* '* ' VARNTUDR * '$* USER DESCRIPTOR RECORD (UDR)$* 'D * THIS VARIANT CONTAINS INFORMATION ASSOCIATED WITH A USER ID. D(* T%%HIS INFORMATION INCLUDES THE ENCRY( PTED PASSCODE, DESCRIPTION,  B* AND UP TO 5 ACCESS GROUP ENTRIES. EACH ACCESS GROUP ENTRY B@* CONTAINS A RECORD NUMBER OF AN ACCESS GROUP RECORD (AGR) @>* AND THE OFFSET INTO THE AGR FOR AN ACCESS GROUP NAME OF >$* WHICH THIS USER IS A MEMBER. $* '(UDRUDO WORD 0 POINTER TO OVERFLOW(.UDRRSV FLAGS 16  UDR USED/AVAILABLE FLAG.* FLAG UDRFRE  TRUE=AVAILABLE RECORD*(UDRPWD CHAR 8 ENCRYPTED PASSCODE ($UDRFLG FLAGS 16  UDR FLAG WORD$, BITS UDRPVL,5  USER PRIVELEDGE LEVEL,* BITS UDRAGC,11 ACCESS GROUP COUNT **UDRDES CHAR 20  DESCRIPTION OF USER*6 UDRAGE ARRAY 5,AGE 5 ACCESS GROUP ENTRIES (AGE) 6UDRSIZ EQU $!* '* '* '* '* ' VARNTUDO * '.*  USER DESCRIPTOR OVERFLOW RECORD (UDO).* '@* THIS VARIANT IS USED ONLY USED IN THE CASE THAT A USER IS @@* A MEMBER OF MORE ACCESS GROUPS THAN WILL FIT IN HIS UDR. @2* IT CONTAINS UP TO 12 ACCESS GROUP ENTRIES. 2* '(UDOUDO WORD 0 POINTER TO NEXT UDO(.UDORSV FLAGS 16  UDO USED/AVAILABLE FLAG.* FLAG UDOFRE  TRUE=AVAILABLE ENTRY *UDOFIL WORD 0 NOT USED 8 UDOAGE ARRAY 12,AGE  12 ACCESS GROUP ENTRIES (AGE) 8UDOSIZ EQU $!* '* '* '* '* ' VARNTVFY * '"*  VERIFICATION RECORD (VFY)"* '@* THIS VARIANT IS USED BY THE SYSTEM RESTART TASK TO VERIFY @END@* THE EXISTENCE OF .S$CLF. IT IS ALSO USED BY TASKS WHICH @<* CREATE AND MODIFY ACCESS GROUPS BECAUSE IT CONTAINS A <0* POINTER TO THE FIRST ACCESS GROUP RECORD.0* '"VFYNAM CHAR 8 NAME OF S$CLF",VFYBLK WORD 0 POINTER TO FIRST AGRBLK,6VFYFIL CHAR 44  NOT USED, INITIALIZED TO BLANKS 6VFYSIZ EQU $!  ENDREC !  PAGE "  LIST " TILINE UART READ SUBROUTINE 4 U' ))k4`4"B  PMRWTK - END ACTION TAKEN "2CSH0BD EQU>00BD  PMSBID - END ACTION TAKEN 2.CSH0BE EQU>00BE  RCP - END ACTION TAKEN.:CSH0C0 EQU>00C0 NFEOBR - TSBIO HAS BECOME NEGATIVE:( *CSH0E0 THRU CSH0E5 RESERVED-DX10-("CS 22k4`4SCA PR%2|7@ UNL#  EVEN " D ****************************************************************D0* SYSTEMS COMMUNICATION AREA (SCA) 1/09/800* '.* TERMINAL ENTRY DEFINITION ON FILE .S$SCA.* 'D ****************************************************************D  DORG 0 ! &SCADN CHAR 4  SCA DEVICE NUMBER&  CHAR 1 ! $SCAUID CHAR 8  DEFAULT USER ID$  CHAR 1 ! ,SCACCD CHAR 16 DEFAULT ACCOUNT NUMBER ,  CHAR 1 ! &SCAPSD CHAR 8  DEFAULT PASSCODE &  CHAR 1 ! &SCAJND CHAR 8  DEFAULT JOB NAME &  CHAR 1 ! SCADFS EQU$-SCADN $SCAFLG EQU8  NUMBER OF FLAGS$ BSS80-SCAFLG-SCADFS*  FLAGS$SCALG CHAR 1  LOGIN REQUIRED $SCAMD CHAR 1  VDT MODE ,SCAJN CHAR 1  DON'T SOLICIT JOB NAME ,(SCARC CHAR 1  RECONNECT DISABLED (,SCAAC CHAR 1  SOLICIT ACCOUNT NUMBER ,0SCASL CHAR 1  SOLICIT NAME MANAGER FILES 0"SCAOFF CHAR 1  TERMINAL OFF "&SCADFM CHAR 1  VDT MODE DEFAULT &SCASIZ EQU80!* '  RORG "  PAGE "  LIST " ROUPS.IT HAS 5 VARIANTS: FIR, AGR, >D * UDR, UDO, AND VFY.THE STRUCTURE AND PURPOSE OF EACH VARIANT D * IS DESCRIBED BELOW. * '* '<* THIS PACKED RECORD IS USED FOR USER ID ENTRIES IN FIR <* ' PCKREC  UIDFIRID CHAR 8  USER ID.FIRRN WORD 0  USER'S UDR RECORD NUMBER .  ENDREC ! * '>* THIS PACKEDOTI PR2|8 UNL#@*********************************************************** @ * * 4 * OPENING TASK IDENTIFIER (OTI)08/25/81* 4 * * "*  LOCATION:JCA OR STA * "@*********************************************************** @@* THE OTI IS AN ELEMENT OF A SINGLY LINKED LIST CONTAINING @:* TSBADDRESSES OF TASKS WHICH HAVE OPENED THE LUNO :&* ASSOCIATED WITH THE PARENT LDT.&  DORG 0 ! &OTIOTI DATA 0  LINK TO NEXT OTI &0OTITSB DATA 0  TSB ADDRESS OF OPENING TASK0&OTISIZ EQU$-OTIOTI SIZE OF OTI&  RORG "  PAGE "  LIST " EQU8  NUMBER OF FLAGS$ BSS80-SCAFLG-SCADFS*  FLAGS$SCALG CHAR 1  LOGIN REQUIRED $SCS43 R2|: UNL=@*********************************************************** $@4*  S43 - NAME MANAGER REQUEST BLOCK 02/07/82%4@*********************************************************** $@( PCKREC S43  NAME MGR REQUEST BLOCK((S43SOC BYTE 0 SVC CODE/S43EC BYTE 0 ERROR CODE.S43OC BYTE 0 SUBOPCODE ."S43FLG FLAGS 8USER SET FLAGS,"" FLAG S43FSLLN = 1, SYN = 0 +"& FLAG S43FIT INITIAL TASK IN JOB )&$ FLAG S43BID BID = 1, TERM = 0 *$$ FLAG S43GLO GLOBAL REQUEST = 1*$& FLAG S43RID RUN ID SPECIFIED = 1)&( FLAG S43NMX NO MORE EXPANSIONS = 1(( FLAG S43PROPROTECT NAME-. BITS S43UNF,1 FLAG BIT 7 UNUSED 02/07/82&..S43NAM WORD PTR TO "NAME" (OR NAME LIST)%.,S43VAL WORD PTR TO "VALUE" OR PATHNAME&,&S43PRM WORD PTR TO "PARMS" LIST )&&S43SSP WORD SEG SIZE/PN NUM/FLAG)&S43SID EQU$ SEGMENT ID.S43RES WORD RESERVED/  ENDREC ;  PAGE <  LIST < NUMBER 04AGEOFF BYTE 0  OFFSET INTO ACCESS GROUP RECORD 4.AGEFLG FLAGS 8 ACCESS GROUP ENTRY FLAGS .8 FLAG AGELDR  TRUE=USER IS LEADER OF ACCESS GROUP 84 FLAG AGEFCG  TRUE=FILE CREATION ACCESS GROUP 4  ENDREC ! * '<* THIS PACKED RECORD IS USED FOR ACCESS GROUP NAMES IN <"* ACCESS GROUP RECORDS (AGR) "* ' PCKREC  AGN&AGNNAM CHAR 8  ACCESS GROUP NAME&AGNRSV WORD 0  RESERVED   ENDREC ! T ̤k4`4 DPD P R:"2|<@ UNL#@************************************************************ @ *  * . * DISK PDT EXTENSION (DPD) 01/17/83 * . *  * (* LOCATION: SYSTEM TABLE AREA  * (@************************************************************ @>* THE DPD APPEARS AFTER THE STANDARD PDT INFORMATION FOR A >>* DISK DEVICE. IT IS USED AS A WORK AREA BY THE DSR AND BY > * THE DISK MANAGER TASK. DORG PDTSIZ"DPDTIL BSS16 TILINE IMAGE "0DPDSLG BSS16 TILINE IMAGE FOR SYSTEM LOG0,DPDECT DATA 0  TILINE UNIT ERROR COUNT,$DPDWTK DATA 0  WORDS PER TRACK$&DPDSTK BYTE 0  SECTORS PER TRACK&(DPDOHD BYTE 0  OVERHEAD PER RECORD(&DPDCYL DATA 0  HEADS & CYLINDERS&(DPDSRD BYTE 0  SECTORS PER RECORD (&DPDRTK BYTE 0  RECORDS PER TRACK&&DPDWRD DATA 0  WORDS PER RECORD &(DPDILF DATA 0  INTERLEAVING FACTOR(0DPDMAD DATA 0  MAX NUMBER OFADUS ON DISK0$DPDSAD DATA 0  SECTORS PER ADU$2DPDDRS DATA 0  DEFAULT PHYSICAL RECORD SIZE 2DPDFLG FLAGS 16  FLAGS  BITS 1 ! ( FLAG DPFRAW DISK READ AFTER WRITE (* FLAG DPFBRW BIT MAP READ AFTER WRITE * FLAG DPFRSTRESTORE FLAG0 FLAG DPFSTRSTORE REGISTER FLAG (1= STORE 0&* REG COMMAND WAS ISSUED BY DSR &$* TO DETERMINE IF >1B ERROR IS $"*  AN UNSAFE OR MEDIA CHANGE "0 FLAG DPFODI1 = ONLINE DIAGNOSTIC REQUEST 0. FLAG DPFWRPSOFTWARE WRITE PROTECT FLAG .0@$ FLAG DPFBLF BUFFER LOCK FLAG. $"*  1 = THIS DRIVE LOCKED THE ""*  NON-RE ENTRANT BUFFER USED ""*  BY MEDIA CHANGE VALIDATION "* PROCESS.( FLAG DPFDTN DIRECT TILINE I/O FLAG(  BITS 7 ! *DPDIBF BSS6  INITIALIZATION BUFFER*8DPDFMS PTRSSB  VCAT FD SPECIAL AREA SSB ADDRESS 8.DPDFDB PTRFDB  POINTER TO VCATALOG FCB.6DPDPBM PTRPBM  DISK MANAGER TABLE/BUFFER ADDR 6$* (NON-ZERO = DISK INSTALLED) $ DPDVNM CHAR 8  VOLUME NAME .DPDTFL CHAR 8  TEMPORARY FILE NAME SEED .4DPDIVD DATA 0  INSTALLED VOLUME CREATION DATE 44DPDIVT DATA 0  INSTALLED VOLUME CREATION TIME 4* '.DPDSIZ EQU$  DISK PDT + EXTENSION SIZE.  RORG "   PAGE "  LIST " AME RECORD (AGR)&* '8* THIS VARIANT IS USED TO STORE ACCESS GROUP NAMES.8>* IT CONTAINS A FLAG WORD, A POINTER TO THE NEXT AGR, AND >>* 5 AGN ENTRIES. EACH AGN ENTRY CONTAINS AN ACCESS GROUP >(* NAME AND A WORD OF UNUSED FLAGS. (* '0AGRAGR WORD 0 CONTINUATION RECORD NUMBER 0.AGRRSV FLAGS 16  AGR USED/AVAILABLE FLAG.* FLAG AGRFRE  TRUE=AVAILABLE RECORD*& AGRAGN ARRAY 5,AGN 5 AGN ENTRIES&AGRSIZ EQU $!* '* '%%* '* '* ' VARNTUDR * '$* USER DESCRIPTOR RECORD (UDR)$* 'D * THIS VARIANT CONTAINS INFORMATION ASSOCIATED WITH A USER ID. D(* THIS INFORMATION INCLUDES THE ENCRY(NDS PR2|>@ UNL#@************************************************************ @ *  * >*  NAME DEFINITION SEGMENT OVERHEAD (NDS) 12/16/81 * > *  * 2*  LOCATION: A NAME DEFINITION SEGMENT  * 2@************************************************************ @  DORG 0 ! 2NDSHED DATA 0 1ST ENTRY ON FREE MEMORY LIST 2.NDSLNK PTRBUF  PTR TO FREE MEMORY CHAIN .0NDSRES DATA 0 RESERVED TABLE AREA BOUNDRY 00NDSEND DATA 0 ACTUAL ADDRESS OF END OF SEG 0(NDSUSE DATA 0  CURRENT MEMORY USAGE(.NDSHI DATA 0  HIGHEST MEMORY ALLOCATION ..NDSJSB DATA 0  PTR TO JSB OR SSB OF OWNER .&NDSNUL BYTE 0  HANDY NULL STRING &.NDSOWN BYTE 0  SEGMENT IN USE IF NON-ZERO .NDSS*TR PTRNDB  PTR TO ROOT OF SYN TREE *.NDSLTR PTRNDB  PTR TO ROOT OF LGN TREE .0NDSSDB PTRSDB  PTR TO 1ST SDB FOR THE JOB 00NDSSYN PTRNDB  FIXED LINK OF SYNONYM NDBS 0.NDSLGN PTRNDB  FIXED LINK OF NAME NDBS .,NDSTMP DATA 0  TEMPORARY PACKET ADDRESS ,*NDSVAL TEXT '  ' SEGMENT VALIDATION**NDSSIZ EQU$  LENGTH OF NDS OVERHEAD*  RORG "  PAGE "  LIST "  DORG PDTSIZ"DPDTIL BSS16 TILINE IMAGE "0DPDSLG BSS16 TILINE IMAGE FOR SYSTEM LOG0,DPDECT DATA 0  TILINE UNIT ERROR COUNT,$DPDWTK DATA 0  WORDS PER TRACK$&DPDSTK BYTE 0  SECTORS PER TRACK&(DPDOHD BYTE 0  OVERHEAD PER RECORD(&DPDCYL DATA 0  HEADS & CYLINDERS&(DPOAW PRr2|@@ UNL#@************************************************************ @ *  * 4 * OVERLAY AREA WAIT BLOCK(OAW)  11/08/79 * 4 *  * (* LOCATION: SYSTEM TABLE AREA  * (@************************************************************ @<* THE OAW IS USED TO REPRESENT THE TASK WAITING FOR ONE <>* SYSTEM OVERLAY OF A POOL OF OVERLAYS. THE POOL MANAGER ><* MAINTAINS A LIST OF OAW ENTRIES AND WHEN AN OVERLAY IS <@* FREE, CHECKS TO SEE IF ANY TASK IS WAITING FOR IT.IF SO, @6* THE OVERLAY IS LOADED AND TH TASK IS ACTIVATED. 6  DORG 0 ! &OAWOAW PTROAW  NEXT WAIT BLOCK&*OAWJSB PTRJSB  JSB OF WAITING TASK**OAWTSB PTRTSB  TSB OF WAITING TASK*OAWOVN DATA 0 ( NUMBER OF OV AREA BEING WAITED FOR (OAWSIZ EQU$ !  RORG "  PAGE "  LIST " RO *DEVICE NAME (*DPRNUM EQU>02 RO6"Lk4D`4*TR PTRNDB  PTR TO ROOT OF SYN TREE *.NDSLTR PTRNDB  PTR TO ROOT OF LGN TREE .0NDSSDB PTRSDB  PTR TO 1ST SDB FOR THE JOB 00NDSSYN PTRNDB  FIXED LINK OF SYNONYM NDBS 0.NDSLGN PTRNDB  FIXED LINK OF NAME NDBS .,NDSTMP DATA 0  TEMPORARY PACKET ADDRESS ,*NDSVAL TEXT '  ' SEGMENT VALIDATION**NDSSIZ EQU$  LENGTH OF NDS OVERHEAD*  RORG "  PAGE "  LIST "  DORG PDTSIZ"DPDTIL BSS16 TILINE IMAGE "0DPDSLG BSS16 TILINE IMAGE FOR SYSTEM LOG0,DPDECT DATA 0  TILINE UNS0F PR2|A UNL#D ****************************************************************D *  * :*  ABORT I/O BY LUNO SVC BLOCK(S0F) 07/07/80 *: *  * D ****************************************************************D PCKREC S0F 8S0FSVC BYTE 0 ABORT I/O BY LUNO SVC OPCODE (#0F) 86S0FERC BYTE 0 ABORT I/O BY LUNO SVC ERROR CODE 60S0FFLG FLAGS 8 ABORT I/O BY LUNO SVC FLAGS0& FLAG S0FDNC  DO NOT CLOSE FLAG&& BITS S0FRES,7  RESERVED FLAGS &"S0FLUN BYTE 0 LUNO TO ABORT"&S0FTSB WORD 0 TSB OF OWNER TASK&&S0FJSB WORD 0 JSB OF OWNER TASK&  ENDREC !  PAGE "  LIST " IT BLOCK(OAW)  11/08/79 * 4 *  * (* LOCATION: SYSTEM TSVCDES P'R 2|C@ UNL#@*********************************************************** @.*  SVC INTERPRETER DESCRIPTOR BLOCK * .**  FOR SUPERVISOR CALL BLOCK FOR * *@*  INSTALL TASK, INSTALL PROCEDURE, AND INSTALL OVERLAY * @ *  (SVCDES) 10/30/79 * @*********************************************************** @* '8*  *WORD DISP * SLA COUNT *BIT LENGTH* 8>*  **************************************************** >* 'ITPSIZ EQU3 !* '* '  EVEN " ITPOBK EQU$ !&ITPSCD EQU$-ITPOBK * SVC CODE &  BYTE 0,8,8  WORD 0,BYTE 0 (ITPERC EQU$-ITPOBK * ERROR CODE (  BYTE 0,0,8  WORD 0,BYTE 1 ITPPRG EQU$-ITPOBK * PROGR AM FILE LUNO  BYTE 1,8,8  WORD 1,BYTE 0 $ITPTID EQU$-ITPOBK * TASK ID$*ITPPID EQU$-ITPOBK * PROCEDURE ID *(ITSSID EQU$-ITPOBK * SEGMENT ID ((ITPOID EQU$-ITPOBK * OVERLAY ID (  BYTE 1,0,8  WORD 1,BYTE 1 FITPNAM EQU$-ITPOBK * TASK, PROCEDURE, SEGMENT AND OVERLAY NAMEF$ BYTE 2,0,64 WORDS 2,3,4 AND 5$(ITPFLG EQU$-ITPOBK * FLAGS BYTE (  BYTE 6,8,8  WORD 6,BYTE 0 >ITPORE EQU$-ITPOBK * INSTALL OVERLAY RELOCATEABLE FLAG >>ITPTPR EQU$-ITPOBK * INSTALL TASK PRIVELEGED TASK FLAG >@ITSSEG EQU$-ITPOBK * INSTALL SEGMENT-SEGMENT DESIGNATOR @  BYTE 6,15,1 WORD 6,BIT 0  :ITPTST EQU$-ITPOBK * INSTALL TASK SYSTEM TASK FLAG :IT>SSYS EQU$-ITPOBK * INSTALL PROGRAM SEGMENT SYSTEM FLAG >  BYTE 6,14,1 WORD 6,BIT 1  >ITPMEM EQU$-ITPOBK * INSTALL VERB MEMORY RESIDENT FLAG >  BYTE 6,13,1 WORD 6,BIT 2  >ITPDEL EQU$-ITPOBK * INSTALL VERB DELETE PROTECT FLAG >  BYTE 6,12,1 WORD 6,BIT 3  8ITPREP EQU$-ITPOBK * INSTALL TASK SPAWNABLE FLAG 88ITPWCS EQU$-ITPOBK * INSTALL PROCEDURE WCS FLAG 8DITSREP EQU$-ITPOBK * INSTALL PROG SEGMENT REPLICATABLE FLAG D  BYTE 6,11,1 WORD 6, BIT 4 :ITP1PG EQU$-ITPOBK * INSTALL TASK PROC1 WHERE FLAG :DITPEXP EQU$-ITPOBK * INSTALL PROCEDURE EXECUTE PROTECT FLAG D@ITSSHR EQU$-ITPOBK * INSTALL PROG SEGMENT SHAREABLE FLAG @ BYTE 6,10,1 WORD 6, BIT 5:ITP2PG EQU$-ITPOBK * INSTALL TASK PROC2 WHERE FLAG :BITPWTP EQU$-ITPOBK * INSTALL PROCEDURE WRITE PROTECT FLAG BFITOSEG EQU$-ITPOBK * INSTALL OVERLAY ASSOC WITH PROG SEG FLAG F  BYTE 6,9,1  WORD 6, BIT 6 2ITPPRI EQU$-ITPOBK * INSTALL TASK PRIORITY2>ITPATD EQU$-ITPOBK * INSTALL OVERLAY ASSOCIATED SEG ID ><ITPOJL EQU$-ITPOBK * INSTALL PROCEDURE OBJ MOD LUNO <:ITSOJL EQU$-ITPOBK * INSTALL PROG SEG OBJ MOD LUNO :" BYTE 6,0,8  WORD 6, BYTE 1 "HITPPOR EQU$-ITPOBK * INSTALL PROCEDURE AND OVERLAY RESERVED WORDH BYTE 7,0,16 WORD 7 <ITOOJL EQU$-ITPOBK * INSTALL OVERLAY OBJ MODULE LUNO <6ITPPR1 EQU$-ITPOBK * INSTALL TASK PROCEDURE 1 ID6   BYTE 7,8,8  WORD 7,BYTE 0 8ITPPR2 EQU$-ITPOBK * INSTALL TASK PROCEDURE 2 ID 8  BYTE 7,0,8  WORD 7,BYTE 1 :ITTOJL EQU$-ITPOBK * INSTALL TASK OBJECT FILE LUNO :" BYTE 8,8,8  WORD 8, BYTE 0 "8ITFLG2 EQU$-ITPOBK * ITSTALL TASK 2ND FLAG WORD 8" BYTE 8,0,8  WORD 8, BYTE 1 "8ITTOVF EQU$-ITPOBK * ITSTALL TASK OVERFLOW FLAG 8  BYTE 8,7,1  WORD 8, BIT 8 2ITTWCS EQU$-ITPOBK * ITSTALL TASK WCS FLAG2  BYTE 8,6,1  WORD 8, BIT 9 >ITTEXP EQU$-ITPOBK * INSTALL TASK EXECUTE PROTECT FLAG >" BYTE 8,5,1  WORD 8, BIT 10 "<ITTSWP EQU$-ITPOBK * INSTALL TASK SOFTWARE PRIV FLAG <" BYTE 8,4,1  WORD 8, BIT 11 ""ITTUPD EQU$-ITPOBK * INSTALL" TASK UPDATEABLE FLAG " BYTE 8,3,1  WORD 8, BIT 12 "8ITTREU EQU$-ITPOBK * INSTALL TASK REUSEABLE FLAG 8" BYTE 8,2,1  WORD 8, BIT 13 "8ITTCPY EQU$-ITPOBK * INSTALL TASK COPYABLE FLAG 8" BYTE 8,1,1  WORD 8, BIT 14 ">ITTSBY EQU$-ITPOBK * INSTALL TASK SECURITY BYPASS FLAG >" BYTE 8,0,1  WORD 8, BIT 15 ":ITSFL2 EQU$-ITPOBK * INSTALL PROG SEG FLAG WORD 2 :  BYTE 9,8,8  WORD 9,BYTE 0 6ITSWCS EQU$-ITPOBK * INSTALL PROG SEG WCS FLAG6  BYTE 9,14,1 WORD 9,BIT 1  @ITSEXP EQU$-ITPOBK * INSTALL PROG SEG EXEC PROTECT FLAG @  BYTE 9,13,1 WORD 9,BIT 2  @ITSWRP EQU$-ITPOBK * INSTALL PROG SEG WRITE PROTECT FLAG @ BYTE 9,12,1 WORD 9,BIT 3 >ITSUPD EQU$-ITPOBK * INSTALL PROG SEG UPDATEABLE FLAG >  BYTE 9,11,1 WORD 9,BIT 4  <ITSREU EQU$-ITPOBK * INSTALL PROG SEG REUSEABLE FLAG <  BYTE 9,10,1 WORD 9,BIT 5  <ITSCOP EQU$-ITPOBK * INSTALL PROG SEG COPYABLE FLAG <  BYTE 9,9,1  WORD 9,BIT 6   PAGE " * '**  SVC I%%NTERPRETER DESCRIPTOR BLOCK ** '&*  FOR SUPERVISOR CALL BLOCK FOR&* '6*  DELETE TASK, DELETE PROCEDURE, DELETE OVERLAY6* 'DTPSIZ EQU3 !* '* '  EVEN " DTPOBK EQU$ !&DTPSCD EQU$-DTPOBK * SVC CODE &  BYTE 0,8,8  WORD 0,BYTE 0 (DTPERC EQU$-DTPOBK * ERROR CODE (  BYTE 0,0,8  WORD 0,BYTE 1 DTPPRG EQU$-DTPOBK * PROGRAM FILE LUNO  BYTE 1,8,8  WORD 1,BYTE 0 $DTPTID EQU$-DTPOBK * TASK ID$  BYTE 1,0,8  WORD 1,BYTE 1 4DTPRS1 EQU$-DTPOBK * RESERVED FOR FUTURE USE4 BYTE 2,0,16 WORD 2   PAGE " * '**  SVC INTERPRETER DESCRIPTOR BLOCK ** '"*  FOR ACTIVATE TASK COMMAND"* 'ACSVSZ EQU3 !* '  EVEN " ACSVCB EQU$ !&ACSCOD EQU$-ACSVCB * SVC CODE &  BYTE 0,8,8  WORD 0,BYTE 0 (ACSERC EQU$-ACSVCB * ERROR CODE (  BYTE 0,0,8  WORD 0,BYTE 1 $ACSTID EQU$-ACSVCB * TASK ID$  BYTE 1,8,8  WORD 1,BYTE 0  PAGE " * '**  SVC INTERPRETER DESCRIPTOR BLOCK ** '*  FOR THE EXECUTE TASK COMMAND * '* 'EXSVCZ EQU3 !* '  EVEN " EXSVCB EQU$ !&EXSCOD EQU$-EXSVCB * SVC CODE &  BYTE 0,8,8  WORD 0,BYTE 0 (EXSERC EQU$-EXSVCB * ERROR CODE (  BYTE 0,0,8  WORD 0,BYTE 1 :EXSTID EQU$-EXSVCB * TASK ID(RUN-TIME ID RETURNED) :  BYTE 1,8,8  WORD 1,BYTE 0 (EXSFLG EQU$-EXSVCB * FLAGS BYTE (  BYTE 1,0,8  WORD 1,BYTE 1 6EXSUSS EQU$-EXSVCB * FLAG TO MAKE CALLED TASK 6 * BE STARTED AS SUSPENDED  BYTE 1,1,1  WORD 1,BIT 14 6EXSUSP EQU$-EXSVCB * FLAG TO MAKE CALLER TASK 6(*  SUSPENDED UNTIL CALLEE IS DONE (" BYTE 1,0,1  WORD 1, BIT 15 ",ESSREP EQU$-EXSVCB * REPLICATE OPTION ,BIT   BYTE 1,0,1  WORD 1,BIT 15 2EXSPR1 EQU$-EXSVCB * TASK PARAMETER NO. 1 2 BYTE 2,0,16 WORD 2 2EXSPR2 EQU$-EXSVCB * TASK PARAMETER NO. 2 2 BYTE 3,0,16 WORD 3 (EXSTAT EQU$-EXSVCB * STATION ID (  BYTE 4,8,8  WORD 4,BYTE 0 .EXSPRG EQU$-EXSVCB * PROGRAM FILE LUNO.  BYTE 4,0,8  WORD 4,BYTE 1 &EXSRS2 EQU$-EXSVCB * RESERVED & BYTE 5,0,16 WORD 5   PAGE " * ' * SVC DESCRIPTOR BLOCK  * FOR THE KILL TASK SVC* 'KTSVCZ EQU3 !* '  EVEN " KTSVCB EQU$ !6KTSCOD EQU$-KTSVCB * SVC OPCODE FOR KILL TASK 6" BYTE 0,8,8  WORD 0, BYTE 0 ".KTSERC EQU$-KTSVCB * RETURNED ERROR CODE." BYTE 0,0,8  WORD 0, BYTE 1 "0KTSRID EQU$-KTSVCB * RUN TIME ID OF TASK0" BYTE 1,8,8  WORD 1, BYTE 0 "4KTSSID EQU$-KTSVCB * STATION ID OR QUALIFIER4" BYTE 1,0,8  WORD 1, BYTE 1 "4KTSTAT EQU$-KTSVCB * RETURNED STATE OF TASK 4" BYTE 2,8,8  WORD 2, BYTE 0 "* '**  SVC INTERPRETER DESCRIPTOR BLOCK ** ',*  FOR INSTALL AND UNLOAD DISC VOLUME ,* 'DSSVCZ EQU3 !* '  EVEN " DSCBLK EQU$ !&DSCSVC EQU$-DSCBLK * SVC CODE &  BYTE 0,8,8  WORD 0,BYTE 0 (DSCERC EQU$-DSCBLK * ERROR CODE (  BYTE 0,0,8  WORK 0,BYTE 1 &DSCDNM EQU$-DSCBLK * DISC NAME&  BYTE 1,0,33 WORDS 1 AND 2 DSCVOL EQU $-DSCBLK * VOLUME NAME$ BYTE 3,0,64 WORDS 3,4,5, & 6 $2DSCMFD EQU$-DSCBLK * NUMBER OF MFD ENTRIES2 BYTE 7,0,16 WORD 7 4DSCBDT EQU$-DSCBLK * LUNO FOR BAD TRACK FILE4  BYTE 8,8,8  WORD 8,BYTE 0 "DSCFLG EQU$-DSCBLK * FLAGS"  BYTE 8,0,8  WORD 8,BYTE 1 0DSCEXT EQU$-DSCBLK * IUD EXTENSION FLAG 0  BYTE 8,7,1  WORD 8,BIT 8  :DSCLDO EQU$-DSCBLK * OPTIONAL TRACK #1 LOADER FLAG :  BYTE 8,6,1  WORD 8,BIT 9  :DSCPRS EQU$-DSCBLK * DEFAULT PHYSICAL RECORD SIZE : BYTE 9,0,16 WORD 9 :DSCINT EQU$-DSCBLK * HARDWARE INTERLEAVING FACTOR : BYTE 10,0,16  WORD 10<DSCLDR EQU$-DSCBLK * LUNO FOR ALTERNATE LOADER FILE < B YTE 11,8,8 WORD 11,BYTE 0  *DSCRES EQU$-DSCBLK * RESERVED (=0)*" BYTE 11,0,8 WORD 11,BYTE 1 "* '6* THE FIELD WIDTH OF 33 FOR THE FIELD, DSCDNM, IS6<* NECESSARY TO MAKE THE FIELD A TEXT FIELD.THE EXTRA <>* BIT IS IGNORED BY THE ROUTINES THAT MANAGE THE FIELDS, >:* AND THE FIELD MUST BE LONGER THAN 32 BITS FOR IT TO :<* BE A TEXT FIELD. THE DISC NAME MUST BE A TEXT FIELD. <  LIST " N * N * <> * 11 * 17 * DCE RCV CLOCK * N * N *N * Y *N * N * >: * -- * 18 * UNASSIGNED* N * N *N * N *N * N * :@* 7 * 19 * SEC REQUEST TO SND* N * Y *Y * Y *N * N * @@* 12 * 20 * DATA TERM READY * Y * Y *Y * Y *Y * N * @ ********************IOC XS 2|E@ UNL#@************************************************************ @ *  * :*  IPC OPCODE CHARACTERISTICS (IOC) 01/15/82  * : *  * @************************************************************ @* I/O OPCODES 0BUFFER EQU>80  OPCODE REQUIRES A BUFFER 0(READ EQU>40  OPCODE IS A READ (2REPLY EQU>20  OPCODE MAY HAVE REPLY BUFFR 24VALID EQUREPLY  OPCODE MAY HAVE VALIDATION 4(OPEN EQU>10  OPCODE IS AN OPEN((CLOSE EQU>08  OPCODE IS A CLOSE(.DSKBUF EQU>04  BUFFER NEEDED FOR DISKS .,CURREN EQU>02  KIF CURRENCY REQUIRED ,0MATCH EQU>01  OPCODE REQUIRES MATCHING 0* IOU OPCODES  PATHNM EQU>80  PATHNAME PO  SSIBLE &KDBPOS EQU>40  KDB IS POSSIBLE&*PARMS EQU>20  PARMS ARE POSSIBLE *2UNBUF EQU>10  PATHNAME NEEDS UNBUFFERING 20NOSID EQU>08  SESSION ID NOT SPECIFIED 0  LIST " (  BYTE 1,0,8  WORD 1,BYTE 1 FITPNAM EQU$-ITPOBK * TASK, PROCEDURE, SEGMENT AND OVERLAY NAMEF$ BYTE 2,0,64 WORDS 2,3,4 AND 5$(ITPFLG EQU$-ITPOBK * FLAGS BYTE (  BYTE 6,8,8  WORD 6,BYTE 0 >ITPORE EQU$-ITPOBK * INSTALL OVERLAY RELOCATEABLE FLAG >>ITPTPR EQU$-ITPOBK * INSTALL TASK PRIVELEGED TASK FLAG >@ITSSEG EQU$-ITPOBK * INSTALL SEGMENT-SEGMENT DESIGNATOR @  BYTE 6,15,1 WORD 6,BIT 0  :ITPTST EQU$-ITPOBK * INSTALL TASK SYSTEM TASK FLAG :ITPET PS2|G@ UNL#  ECHO " >********************************************************** >,*  PARMS LIST EQUATE TABLE (PET) * ,*  10/30/79  * >********************************************************** >* '>********************************************************** >0* THESE EQUATES COVER THE FOLLOWING VERBS:06*  ASSIGN LUNO,RENAME FILE,DELETE FILE,BACKSPACE6:*  LUNO,FORWARD SPACE LUNO,RELEASE LUNO,CREATE FILE :<*  (SEQUENTIAL,KEY INDEXED,RELATIVE RECORD,DIRECTORY, <4*  PROGRAM AND IMAGE), REWIND LUNO, ADD ALIAS,4*  DELETE ALIAS * 'LUNO EQU2  &LUNOFILE EQU2  &FILE*DALIAS EQU2  &ALIAS FOR DA COMMAND*NFILE EQU3  &$NEW FILE NAME FOR RENAME COMMAND $*AALIAS EQU3  &ALIAS FOR AA COMMAND*.ALPATH EQU3  &PATHNAME FOR AL COMMAND .COUNT EQU3  &COUNT ,LRECL EQU3  &LOGICAL RECORD LENGTH ,>DIRECL EQU3  &PHYSICAL RECORD LENGTH FOR CFDIR COMMAND>4DONTRP EQU4  &DO NOT REPLACE FOR MFN COMMAND 42GENLUN EQU4  AUTO GENERATE LUNO FOR ASSIGN 2,PRECL EQU4  &PHYSICAL RECORD LENGTH,4DRMXEN EQU4  &MAX ENTRIES FOR CFDIR COMMAND 46LUNSYN EQU5  LUNO SYSNONYM FOR AUTO GEN ASSIGN 6INITIA EQU5  &INITIAL ,MAXT EQU5  MAXIMUM NUMBER OF TASKS,2DEFPRS EQU5  DEFAULT RECORD SIZE IN CFDIR 22MAXP EQU6  MAXIMUM NUMBER OF PROCEDURES 2SECOND EQU6  &SECONDARY 2SFILE EQU6  &SPECIAL FILE FOR ASSIGN LUNO 20MAXO EQU7  MAXIMUM NUMBER OF OVERLAYS 0 EXPAND EQU7  &EXPANDABLE 2ALDISP EQU7  &DISPLAY FOR AL/AGL COMMANDS 24PFINIT EQU8  PROGRAM FILE INITIAL ALLOCATION 4ASCII EQU8  &ASCII?,FWRTR EQU8  &FORCED WRITE FOR CFREL,MAXSIZ EQU9  MAX SIZE ,FWRTS EQU9  &FORCED WRITE FOR CFSEQ,6PFSCND EQU9  PROGRAM FILE SECONDARY ALLOCATION 6,PFEXPN EQU10 PROGRAM FILE EXPANDABLE,KEYLST EQU10 (@CFK$$$).ALRECL EQU11 ALLOCATION LRL FOR CFKEY .B************************************************************* B0* THESE EQUATES COVER THE FOLLOWING VERBS:0*  ACTIVATE ,TASK,DELETE TASK,DELETE PROCEDURE,DELETE ,6*  OVERLAY,EXECUTE TASK,INSTALL OVERLAY,INSTALL 66*  PROCEDURE,INSTALL TASK,KILL TASK,INSTALL DISC6<*  VOLUME,UNLOAD DISC VOLUME,INSTALL NEW DISC VOLUME. <* '8UVVOL EQU2  &VOLUME NAME FOR UNLOAD DISC VOLUME 8"PRGFIL EQU2  &PROGRAM FILE"RUNID EQU2  &RUN ID DSCUNT EQU2  &DISC UNIT  ,KTRID EQU2  &RUN %%ID FOR KT COMMAND ,0KTION EQU3  &STATION ID FOR KT COMMAND 0TASK EQU3  &TASK PROCED EQU3  &PROCEDURE  OVERLY EQU3  &OVERLAY "OVLYNM EQU3  &OVERLAY NAME"$PRONAM EQU3  &PROCEDURE NAME$"SEGNAM EQU3  $SEGMENT NAME" TSKNAM EQU3  &TASK NAME  VOLU4ME EQU3 &VOLUME NAME FOR INSTALL DISC VOLUME 4,MFDENT EQU4  &NUMBER OF MFD ENTRIES ,0EXION EQU4  &STATION ID FOR XT COMMAND 0 OVLYID EQU4  &OVERLAY ID "PROID EQU4  &PROCEDURE ID" SEGID EQU4  &SEGMENT ID TSKID EQU4  &TASK ID "OBJPTH EQU5  &OBJECT FILE "*EXPRM1 EQU5  &PARM1 FOR XT COMMAND*6INVBDT EQU5  &BAD TRACK FILE PATHNAME FOR INV 6$RELOCT EQU6  &RELOCATEABLE? $6IPMEMR EQU6  &MEMORY RESIDENT? FOR IP COMMAND 64IPSSYS EQU6  &SYSTEM SEGMENT FOR IPS COMMAND 4$PRIORY EQU6  &TASK PRIORITY $*EXPRM2 EQU6  &PARM2 FOR XT COMMAND*:INVPRS EQU6  &DEFAULT PHYSICAL RECORD SIZE FOR INV :EXCSUS EQU7 & &SUSPEND CALLER UNTIL DONE FOR XT &"PRIVIL EQU7  &PRIVILEGED? "2INVINT EQU7  &HARDWARE INTERLEAVING FACTOR 26IPDEL EQU7  &INSTALL PROCEDURE DELETE PROTECT 66IPSMEM EQU7  &MEMORY RESIDENT FOR IPS COMMAND 64IODEL EQU7  &INSTALL OVERLAY DELETE PROTECT 42EXESUS EQU8  &EXECUTE AS SUSPENDED FOR XT 2,ITSYS EQU8  &SYSTEM? FOR IT COMMAND,4INVLDO EQU8  &OPTIONAL TRACK #1 LOADER FLAG 48IPEXP EQU8  &INSTALL PROCEDURE EXECUTE PROTECT 84IPSDEL EQU8  &DELETE PROTECT FOR IPS COMMAND 4*IOTASK EQU8  &TASK FOR IO COMMAND *6ITMEMR EQU9  &MEMORY RESIDENT? FOR IT COMMAND 62EXRSYN EQU9  SYNONYM FOR RUNTIME ID FOR XT 2INVLDR EQU9  &TRAC K #1 LOADER PATHNAME6IPWTP EQU9  &INSTALL PROCEDURE WRITE PROTECT 66IPSEXP EQU9  &EXECUTE PROTECT FOR IPS COMMAND 68IOSEGT EQU9  &ASSOCIATED SEGMENT TYPE FOR IO CMD 8 REUSE EQU10 &REUSEABLE? ,IPWCS EQU10 &INSTALL PROCEDURE WCS ,4IPSWTP EQU10 &WRITE PROTECT FOR IPS COMMAND 40IONO EQU10 CONSTANT NO FOR JUMP OPCODE02ITDEL EQU10 &INSTALL TASK DELETE PROTECT 2,ITCPY EQU11 &INSTALL TASK COPYABLE , SPAWN EQU11 &SPAWNABLE  0IPSUPD EQU11 &UPDATEABLE FOR IPS COMMAND0,ITREU EQU12 &INSTALL TASK REUSEABLE,0IPSSHR EQU12 &SHAREABLE FOR IPS COMMAND 0.ITUPD EQU13 &INSTALL TASK UPDATEABLE .IPSREP EQU13 &REPLIC ATABLE FOR IPS COMMAND 0ITREP EQU14 &INSTALL TASK REPLICATABLE 00IPSREU EQU14 &REUSEABLE FOR IPS COMMAND 02ITEXP EQU15 &INSTALL TASK EXECUTE PROTECT 2.IPSCOP EQU15 ©ABLE FOR IPS COMMAND.,ITOVF EQU16 &INSTALL TASK OVERFLOW ,>IPSWCS EQU16 &WRITEABLE CONTROL STORE FOR IPS COMMAND >2ITSBY EQU17 &INSTALL TASK SECURITY BYPASS 26ITSWP EQU18 &INSTALL TASK SOFTWARE PRIVILEGED 6&ITWCS EQU19 &INSTALL TASK WCS&ITPRC1 EQU20 &PROC1 ITPRC2 EQU21 &PROC2 6PC1TPR EQU22 &PROC1 FROM PROGRAM FILE OF TASK 66PC2TPR EQU23 &PROC2 FROM PROGRAM FILE OF TASK 6  LIST " PRETER DESCRIPTOR BLOCK ** '*  FOR THE EXECUS48 PS(b2|I@ UNL#@*********************************************************** @2*  S48 - JOB MANAGER REQUEST BLOCK07/16/80 2@*********************************************************** @( PCKREC S48 JOB MGR REQUEST BLOCK ("S48SOC BYTE 0 SVC CODE = >48"S48EC BYTE 0 ERROR CODES48OC BYTE 0 SUBOPCODE  S48JPR BYTE 0 JOB PRIORITY S48JFL FLAGS 16 FLAGS WORD $ FLAG S48FNU NEW USER ID FLAG $" FLAG S48FNV NO VERIFY FLAG " FLAG S48FBT BATCH FLAG  BITS S48RES,8 RESERVED   BITS S48PVL,5 PRIV LEVEL  S48JID WORD JOB IDS48JNM CHAR 8 JOB NAME$S48IID BYTE 0 INITIAL TASK ID $$S48JCA BYTE 0 INITIAL JCA SIZE$S48BPM BSS4 BID PARAMETERS$S48SID BYTE 0 TASK STATION ID $*S48PFL BYTE 0  TASK PROGRAM FILE LUNO*$S48SSI WORD SYNONYM SEGMENT ID$*S48LNI WORD LOGICAL NAME SEGMENT ID *S48UID CHAR 8 USER ID "S48PWD CHAR 8 USER PASSWORD "$S48ACT CHAR 16USER ACCOUNT ID $  ENDREC !  PAGE "  LIST " 4  AUTO GENERATE LUNO FOR ASSIGN 2,PRECL EQU4  &PHYSICAL RECORD LENGTH,4DRMXEN EQU4  &MAX ENTRIES FOR CFDIR COMMAND 46LUNSYN EQU5  LUNO SYSNONYM FOR AUTO GEN ASSIGN 6INITIA EQU5  &INITIAL ,MAXT EQU5  MAXIMUM NUMBER OF TASKS,2DEFPRS EQU5  DEFAULT RECORD SIZE IN CFDIR 22MAXP EQU6  MAXIMUM NUMBER OF PROCEDURES 2SECOND EQU6 DUS PS.2|K UNL#@************************************************************ @ *  * 6* DEVICE UTILITY SESSION TABLE (DUS)09/09/83 * 6 *  * *  LOCATION: IN DUDATA * *  * @************************************************************ @  DORG 0 ! (DUSRES BYTE 0  RESERVED AT PRESENT ((DUSLUN BYTE 0  LUNO OF ACTIVE FILE (.MAXSEG EQU3  MAXIMUM NUMBER OF SEGMENTS .0 DUSNAM DATA 0,0,0  NAME MANAGER SEGMENT IDS 0.DUSVOL BSS8  VOLUME NAME OF SYSTEM DISK . DUSSYS BSS8 SYSTEM NAME  0DUSDTB BSS14TABLE OF DEVICE TYPE COUNTS 0DUSSIZ EQU$ !  PAGE "  LIST " 0 INITIAL TASK ID $$S48JCA BYTE 0 INITIAL JCA SIZE$S48BPM BSS4 DSVDTLEXPS1^2|L@>********************************************************** >8 * 931/940 LOCAL EXTENSION  REUSES APDTXA 01/14/83 8>********************************************************** >* '>********************************************************** >8* THESE ARE THE REDIFINITIONS OF THE LOCAL EXTENSION8>********************************************************** >,VDTEUF EQUPDXCP4 EXTENDED USER FLAGS,<GENPTR EQUPDXCP4 SYSGEN LOCATION FOR PRINTER ADDRESS <2VDTPOS EQUPDXCP5 SEQUENTAL POSITION CURSOR2<GENSPD EQUPDXCP5 SPEED/SWITCHED LOCATION FOR SYSGEN <"VDTSC1 EQUPDXCP6 FLAG WORD":GENTTP EQUPDXCP6 SYSGEN LOCATION FOR TERMINAL TYPE :&VDTDBA EQUPDXCP7 DATA BUFFER ADD&RESS4VDTSC3 EQUPDXCP8 LINK REGISTER SAVE LOCATION4@VDTSC4 EQUPDXCP9 LINK REGISTER SAVE LOCATION FOR OUTCHR @6VDTSC5 EQUPDXCPA LINK REGISTER FOR ERASE FIELD 64VDTATT EQUPDXCPB ATTRIBUTE SENT TO TERMINAL 4<VDTTIM EQUPDXCPC NUMBER OF CHARS EXAMINED IN CHECKIT <8VDTCNT EQUPDXCPD CHAR COUNT FOR READS AND WRITES 88VDTMFL EQUPDXCPE OP CODE 15 SUB OP 0 MODE FLAGS 8 VFMOD2 EQU0 MODE 2 FLAG  0VFETXT EQU1 TERMINATE ON RECEIPT OF ETX 00VFESCT EQU2 TERMINATE ON RECEIPT OF ESC 0.VFMEVT EQU3  EXTENDED EVENT CHARACTERS . * 4 ! :VFMESC EQU5 ALLOW ESC 4, SI AND SO ON WRITE ASCII :(VFMNOA EQU6  DON'T SET ATTRIBUTES(* 7 UNUSED@,VFMODF EQU8  MODIFIED DATA TO CALLER ,8IRFMOD EQU7 FLAG IN IRB TO SPECIFY DATA MODIFIED82VFXVAL EQU9 EXTENDED CHARACTER VALIDATION 2(NULFLG EQU10 RBS NULL CHARS STUFF(0CNBFLG EQU11RBS CONVERT NULLS TO BLANKS 0,STATIG EQUPDXCPF STATE OF THE INPUT ,.* 0 - IGNORE INPUT AND DO NOT DO OUTPUT.(* 4 - ACCEPT INPUT AND DO OUTPUT ((>********************************************************** >0* THESE ARE THE FLAG DEFINITIONS FOR VDTSC1 0>********************************************************** >"VDFTTP EQU0  TYPE TERMINAL"* 0 - 940 * 1 - 931 0SETRER EQU1  SET FAST RESCHEDULE ON READ0*PTHCHN EQU2  PRINTER HAS CONTROL OF *THE CHANNEL :PTWCHN EQU3  PRINTER WANTS CONTROL OF THE CHANNEL :4CRHCHN EQU4  CRT HAS CONTROL OF THE CHANNEL 46CRWCHN EQU5  CRT WANTS CONTROL OF THE CHANNEL 6&CURBTO EQU6  CURSOR IS ON BIT &,CURWNG EQU7  CURSOR IS NOT AT VDTPOS,.SC2MOD EQU8  GRAPHICS SET IN TERMINAL .*SC2INP EQU9  GRAPHICS SET ON INPUT**BLNKOP EQU10 OPTIMIZE BLANKS R10 *0CLRFLG EQU11 THE SCREEN HAS BEEN CLEARED0 *  THIS IS FOR OPTIMIZATION (CURBNK EQU12 CURSOR IS BLINKING (6INTERM EQU13 HAS THE TERMINAL BEEN INITILIZED 66VDFEXT EQU14 HAS EXTENT BEEN SET FOR INS & DEL 6&INSMOD EQU15 INSERT MODE FLAG &* '* ' **********************(************************************ ($* THIS IS THE LAYOUT OF GENSPD $>********************************************************** >* '* BITUSAGE * 0 SWITCHED* 0 - NOT SWITCHED* 1 - SWITCHED* 1-2 UNUSED* 3-7 SPEED * 8-10UNUSED* 11-15 SPEED * '>******%%**************************************************** >$* THIS IS THE LAYOUT OF GENTTP $>********************************************************** >* '* BITUSAGE * 0-7 TYPE OF TERMINAL*  >01 - 931*  >02 - 940* ' TYP931 EQU>01  931 TYPE  TYP940 EQU>02  940 TYPE  * '* 9-14UNUSED&* 15 ALLOW BLINKING (940 ONLY) &* '.GENBNK EQU15 ALLOW BLINKING (940 ONLY).* '  PAGE " RVED"  LIST " 2CSH0B9 EQU>00B9  PMTERM - END ACTION TAKEN 22CSH0BA EQU>00BA  PMSBUF - END ACTION TAKEN 2CSH0BB EQU>00B" 6 DEF HESRIHSR RI SIGNAL CHANGE NOTIFY ENABLE 68 k4`42CSH0B0 EQU>00B0  NAMMGR - END ACTION TAKEN 26CSH0B1 EQU>00B1 NAMMGR - PASCAL RUN-TIME ABORT 62CSH0B2 EQU>00B2  IOTBID - END ACTION TA"k4F`4& &SUSPEND CALLER UNTIL DONE FOR XT &"PRIVIL EQU7  &PRIVILEGED? "2INVINT EQU7  &HARDWARE INTERLEAVING FACTOR 26IPDEL EQU7  &INSTALL PROCEDURE DELETE PROTECT DDP PSCj2|O UNL#@************************************************************ @ *  * 6* DIRECTORY DESCRIPTOR PACKET (DDP)04/08/80 * 6 *  * (* LOCATION: SYSTEM TABLE AREA  * (@************************************************************ @>* THE DDP IS USED TO INDICATE WHAT TASK TO ACTIVATE WHEN A >"* DIRECTORY BECOMES AVAILABLE."  DORG 0 ! .DDPOWP PTRDDP  NEXT WAITING DDP ADDRESS .$DDPTSB PTRTSB TSB OF WAITER $$DDPJSB PTRJSB JSB OF WAITER $* 'DDPSIZ EQU$ DDP SIZE  RORG "  PAGE "  LIST " PDXCP5 SEQUENTAL POSITION CURSOR2<GENSPD EQUPDXCP5 SPEED/SWITCHED LOCATION FOR SYSGEN <"VDTSC1 EQUPDXCP6 FLAG WORD":GENTKEY PSF2|P@ UNL#@************************************************************ @ *  * 0 * KEY DESCRIPTOR BLOCK KEY  09/07/79 * 0 *  * "*  LOCATION: PART OF FCB  * "@************************************************************ @@* THE KEY DESCRIBES ONE OF THE KEYS FOUND IN THE KDR OR KDB. @0* IT INCLUDES FLAGS AND LOCATION OF THE KEY.0  DORG 0 ! "KEYNKY DATA 0 NUMBER OF KEYS"  DORG 0 ! KEYFGS FLAGS 8FLAGS  BITS 3 RESERVED. FLAG KEYPLGBIT 3 SET IF PARTIAL LOGGING ., FLAG KEY33  BIT4 SET IF 3.3 FILE TYPE ,. FLAG KEYOFGBIT 5 SET IF KEY IS OPTIONAL .0 FLAG KEYSFGBIT 6 SET IF SEQUENTIAL CMNDS 0, FLAG KEYDFG BIT 7 SET IF DUPLICATES OK ,0KEYSIZ BYTE 0 NUMBER OF CHARACTERS IN KEY 0(KEYO DATA 0  KEY OFFSET IN RECORD(* '  RORG "  PAGE "  LIST " T ATTRIBUTES(* 7 UNUSEDBID PARAMETERS$S48SID BYTE 0 TASK STATION ID $6 k4D`4#RESS4VDTSC3 EQUPDXCP8 LINK REGISTER SAVE LOCATION4@VDTSC4 EQUPDXCP9 LINK REGISTER SAVE LOCATION FOR OUTCHR @6VDTSC5 EQUPDXCPA LINK REGISTER FOR ERASE FIELD 64VDTATT EQUPDXCPB ATTRIBUTE SENT TO TERMINAL 4<VDTTIM EQUPDXCPC NUMBER OF CHARS EXAMINED IN CHECKIT <8VDTCNT EQUPDXCPD CHAR COUNT FOR READS AND WRITES 88VDTMFL EQUPDXCPE OP CODE 15 SUB OP 0 MODE FLAGS 8 VFMOD2 EQU0 MODE 2 FLAG  0VFETSVB PSL2|R UNL#@*********************************************************** @.*  STAGE VALUE BLOCK (SVB)  02/07/82 * . * * 0*  LOCATION: NAME DEFINITION SEGMENT * 0@*********************************************************** @  DORG 0 ! &SVBSVB PTRSVB LINK TO NEXT SVB&0SVBSNO BYTE 0 STAGE NUMBER WITH THIS VALUE 0&SVBFLG FLAGS 8 VALUE BLOCK FLAGS && FLAG SVFPRM PARMS ARE IN 1ST VCB&( FLAG SVFBSY IOU IS GENERATING NAME($ FLAG SVFAGN IOU GENERATED NAME$$ FLAG SVFPRO NAME IS PROTECTED $( BITS SVF004,4 FLAG BITS 4-7 UNUSED(2SVBVDB PTRVDB VALUE DEFINITION BLOCK ADDR 2SVBSIZ EQU$ !  RORG "  PAGE "  LIST " TION: PART OF FCB OVT PSO2|T UNL#@************************************************************ @ *  * 0 * OVERLAY TABLE ENTRY(OVT)  05/10/79 * 0 *  * *  LOCATION: IN RPSDAT  * @************************************************************ @>* THE SYSTEM OVERLAY TABLE (SOV) CONSISTS OF A NUMBER OF >>* OVERLAY TABLE ENTRIES (OVT). IT IS BUILT DURING SYSTEM >8* GENERATION, BASED ON THE CHOICES REQUESTED THEN. 8  DORG 0 ! 4OVTREC DATA 0  RECORD NUMBER OF OVERLAY IMAGE 4*OVTSIZ DATA 0  SIZE OF OVERLAY CODE *4OVTLOD DATA 0  NATURAL LOAD ADDRESS OF OVERLAY 4  RORG "  PAGE "  LIST " GS 8 VALUE BLOCK FLAGS && FLAG SVFPRM PARMS ARE IN 1ST VCB&( FLAG SVFBSY IORST SRZ2|V@ UNL#@************************************************************ @ *  * 4*  RESERVE SEGMENT TABLE(RST) 09/21/81 * 4 *  * * LOCATION: JCA * @************************************************************ @:* THE RST DESCRIBES ALL OF THE SEGMENTS THAT A JOB HAS :0* RESERVED WITH A RESERVE SEGMENT SVC CALL. 0* EACH ENTRY IS:  * SEGMENT SSB ADDRESS  * SEGMENT SMT ADDRESS   DORG 0 ! 2RSTCNT EQU8  MAX NUMBER OF ENTRIES IN RST 2(RSTRST PTRRST  LINK TO NEXT RST (< RSTSID ARRAY 16,WORD ID'S OF RESERVED SEGMENTS (MAX 8) <$*  (ZERO IF ENTRY NOT IN USE) $& BYTE 0  RESERVED FOR FUTURE USE&*RSTALC BYTE 0  NUMBER OF ALLOCATED ENT*RIES (MAX 8) RSTSIZ EQU$ !  RORG "  PAGE "  LIST " P9 LINK REGISTER SAVE LOCATION FOR OUTCHR @6VDTSC5 EQUPDXCPA' ؤk4`4 RECORD * '  RORG "  PAGE "  LIST " 5 SET IF KEY IS OPTIONAL .0 FLAG KEYSFGBIT 6 SET IF SEQUENTIAL CMNDS 0, FLAG KEYDFG BIT 7 SET IF DUPLICATES OK ,0KEYSIZ BYTE 0 NUMBER OF CHARACTERS IN KEY 0 KEYO DATA 0 KEY OFFSET IN XT EQU1 TERMINATE ON RECEIPT OF ETX 00VFESCT EQU2 "k4`40KEYSIZ BYTE 0 NUMBER OF CHARACTERS IN KEY 0(KEYO DATA 0  KEY OFFSET IN RECORD(* '  RORG "  PAGE "  LIST " T ATTRIBUTES(* 7 UNUSEDNDB PSX"2|W UNL#@*********************************************************** @4*  NAME DEFINITION BLOCK(NDB) 07/16/81* 4 * * 2*  LOCATION: A NAME DEFINITION SEGMENT * 2@*********************************************************** @  DORG 0 ! 2NDBNDB PTRNDB FIXED LINK - SEQ PROCESSING 2,NDBPAR PTRNDB  POINTER TO PARENT NDB ,*NDBLLL PTRNDB  POINTER TO LEFT SON **NDBRRR PTRNDB  POINTER TO RIGHT SON*&NDBNAM PTRVSTGPTR TO THE NAME &,NDBSVB PTRSVB  ANCHOR OF STAGE VALUES,"NDBBAL BYTE 0 BALANCE FACTOR"&*  >FF HEAVY LEFT, 1 HEAVY RIGHT&"NDBWAT BYTE 0 SON INDICATOR "*  LEFT = >FF, RIGHT = 1NDBSIZ EQU$ !  RORG 0 ! IN  PAGE "  LIST " BYTE 0 TASK STATION ID $6 k4D`4#RIES (MAX 8) RSTSIZ EQU$ !  RORG "  PAGE "  LIST " E: .GRABER.SRC .ORIGINAL DESTINATION: SS4.DP.JOBMGR.PSOURCE.; ORIGINAL OPTIONS:  ADD, ALIASES, NODATE, NOSPRL, NORPRL ;CONTROL FILE:  ST03  LIST FILE:  IN JMDRST,JMCJCA,JMCLNB ** DIRECTORY.GRABER.SRC  **JMCLNB **JMCJCA **JMDRST END !****** COPY DIRECTORY COMPLETED !' ELAPSED TIME = 0 MINUTES 20 SECONDS ' SIZE OF INPUT = 24 ADU'S:36:39 BS N SEQ YES88SMPREP *465 09/21/8118:26:34 BS N SEQ YES88SMRLSE *129 09/21/8118:36:27 BS N SEQ YES88SMRSSPM P S^C2|Y@ UNL#@************************************************************ @ *  * 2* SPOOLER MESSAGE FORMAT (SPM) 09/09/83 * 2 *  * 8* LOCATION: .S$DSTCHN CHANNEL COMMUNICATION TO * 8* SPOOLER  * @************************************************************ @>* THE SPM TEMPLATE IS USED TO DECODE INFORMATION PASSED TO >(* THE SPOOLER TASK FROM THE PF TASK.( PCKREC SPM(SPMOPC BYTE 0  DST MESSAGE OP CODE(,SPMERC BYTE 0  DST RETURNED ERROR CODE,%%SPMUSR CHAR 8  USER IDSPMJOB CHAR 8  JOB NAME SPMJID WORD 0  JOB ID $SPMFLG FLAGS 16  STATUS FLAGS $& FLAG SPFUSE TRUE=DELETED ENTRY &. FLAG SPFAVL TRUE=NOT AVAILABLE TO SPOOLER. & FLAG SPFPGD TRUE=REVERSE PAGING&* FLAG SPFCON TRUE=CONCATENATED FILE *( FLAG SPFSOP TRUE=SYSTEM OPERATOR ($ FLAG SPFANS TRUE=ANSI FORMAT $0 FLAG SPFBNR TRUE=NO BANNER SHEET DESIRED 0* FLAG SPFDAP TRUE=DELETE AFTER PRINT*( FLAG SPFIMM TRUE=HALT IMMEDIATELY(*  INSTEAD OF HALT AT EOF. FLAG SPFABE TRUE=LPWRITER TASK ABENDED .. FLAG SPFDVE TRUE=DEVICE ERROR OCCURRED .( FLAG SPFPFE TRUE=PRINT FILE ERROR(0 FLAG SPFSHR TRUE=REMOTE OR SHARED DEVICE 0. FLAG SPFDAL TRUE=DELETE ALWAYS (EVEN IF.*  KILL OUTPUT DONE) , FLAG SPFNPJ TRUE=NO PAGE EJECT BEFORE,* PRINTINGNVRNT EQUSPMFLG+2* ' VARNT NVRNT DEVICE NAME VARIANT(SPMDVN CHAR 8  OUTPUT DEVICE NAME (* '& VARNT NVRNT CLASS NAME VARIANT &&SPMCLN CHAR 8  OUTPUT CLASS NAME&* 'SPMVR2 EQU$ ! VARNT SPMVR2 &SPMULN CHAR 8  USER LOGICAL NAME& VARNT SPMVR2 0SPMODV CHAR 8  OLD DEV/CLASS NAME (FOR MO)02SPMSLN CHAR 6  DST LOGICAL NAME (SPOOLER ID) 2"SPMFRM CHAR 8  DESIRED FORM "&SPMCPY BYTE 0  NUMBER OF COPIES &$SPMLPP BYTE 0  LINES PER PAGE $"SPMJPR BYTE 0  JOB PRIORITY " BSS1  RESERVED 0SPMPAG WORD 0  FORWARD/REVERSE PAGE COUNT 0PNVRNT EQUSPMJPR+4* '& VARNT PNVRNT  PATHNAME VARIANT &"SPMPTH BSS 256 PATHNAME(S)"* ' VARNT PNVRNT  DEVICE USE VARIANT &SPMIOC LONG 0  DEVICE I/O COUNT &*SPMTIM WORD 0  TIME DEVICE WAS USED *  ENDREC !  PAGE "  LIST " **********************,TASK,DELETE TASK,DELETE PROCEDURE,DELETE ,6*  OVERL6 k4*`4THE CHANNEL :PTWCHN EQU3  PRINTER WANTS CONTROL OF THE CHANNEL :4CRHCHN EQU4  CRT HAS CONTROL OF THE CHANNEL 46CRWCHN EQU5  CRT WANTS CONTROL OF THE CHANNEL 6&CURBTO EQU6  CURSOR IS ON BIT &,CURWNG EQU7  CURSOR IS NOT AT VDTPOS,.SC2MOD EQU8  GRAPHICS SET IN TERMINAL .*SC2INP EQU9  GRAPHICS SET ON INPUT**BLNKOP EQU10 OPTIMIZE BLANKS R10 *0CLRFLG EQU11 THE SCREEN HAS BEEN CLEAREDUDR PSjP2|[@P UNL PP*********************************************************** PP* * PP* USER DESCRIPTOR RECORD (UDR) 11/24/82 * PP* * PP* LOCATION: DISK * PP*********************************************************** PP* THE UDR DESCRIBES THE DISK STRUCTURES THAT REPRESENTS A PP* GIVEN USER OF THE SYSTEM. IT INCLUDES LOGON INFORMATION P* AND JSECURITY INFORMATION. IT IS A VARIANT OF THE CAPABILITIES JP* LIST FILE RECORD (CLR). FOR DETAILS SEE CLR. PP PAGE PP LIST PTE OR SHARED DEVICE 0. FLAG SPFDAL TRUE=DELETE ALWAYS (EVEN IF.*  KILL OUTPUT DONE) , FLAG SPFNPJ TRUE=NO PAGE EJECT BEFORE,* PRINTINGNVRNT EQUSPMFLG+2* ' VARNT NVRNT DEVICE NACONDS ' SIZE OF INPUT = 24 ADU'S:36:39 BS N SEQ YES8 k4`4 SPMJOB CHAR 8  JOB NAME SPMJID WORD 0  JOB ID $SPMFLG FLAGS 16 IRB P$Sp ^2|]@ UNL#@************************************************************ @ *  * , * I/O REQUEST BLOCK (IRB)  09/09/83* , *  * 0* LOCATION: SYSTEM TABLE AREA AND JCA  * 0 *  * @************************************************************ @@* THE IRB TEMPLATE HAS FOUR MAJOR VARIANTS. ONE OF THESE IS @>* THE SIMPLE CALL BLOCK FOR RESOURCE INDEPENDENT I/O. ONE >:* HAS EXTENSIONS FOR VDT DEVICES. ANOTHER IS THE CALL :>* BLOCK USED FOR I/O UTILITY CALLS. IT INCLUDES INTERNAL ><* VARIANTS FOR REMOTE I/O HANDLING AND FOR LOGICAL NAME <@* SEGMENT HANDLING. THERE IS ALSO A SET OF EQUATES USED BY @@* THE CODE WHICH CREATES PROGRAM FILES. EQUATES FOR SPECIAL @ * PURPOS 6ES IN CREATING KEY INDEXED FILES AND FOR REFERENCE 6B* TO SPECIAL APPLICATIONS OF THE BASIC I/O BLOCK ARE IMBEDDED B<* IN THE TEMPLATE WHERE THE ORIGINAL FIELDS ARE DEFINED. <8* A FINAL VARIANT IS USED FOR FILE I/O CALL BLOCKS. 8 *------ $ <* NOTE THAT FOR DUPLICATE LABELS, THE PREFERRED USAGE IS <&* STARRED IN THE COMMENT COLUMNS. & PCKREC IRB ,IRBSOC BYTE 0  SUPERVISOR REQUEST CODE,(IRBEC BYTE 0  *REQUEST ERROR CODE (,IRBERR EQUIRBEC  REQUEST ERROR CODE ,(IRBOC BYTE 0  *SUB-OPERATION CODE (,IRBOP EQUIRBOC  SUB-OPERATION CODE ,"IRBLUN BYTE 0  LOGICAL UNIT ""IRBSFL FLAGS 8*SYSTEM FLAGS "&IRBSFG EQUIRBSFL SYSTEM FLAGS & FLAG IRFBSYBUSY FLAG IRFERRERROR  FLAG IRFEOFEND OF FILE  FLAG IRFVNTEVENT CHAR  BITS 3 ! 0 FLAG IRFMDTMODIFIED DATA TAG (OPCODE >17) 0,IRBUFL FLAGS 8 REQUESTOR (USER) FLAGS ," FLAG IRFINTINITIATE REQUEST"$ FLAG IRFRPY OUTPUT WITH REPLY $,IRFVAL EQUIRFRPY READ WITH VALIDATION,*IRFKFG EQUIRFRPY KEY SPECIFIES FLAG*6IRFBFI EQUIRFRPYBUFF HAS WRITE INTERLEAVED FMT 64 FLAG IRFSARSECURITY ACCESS RIGHTS (OPCODE >5)4IRFRES EQUIRFSAR& BITS IRFACC,2 ACCESS PRIVILEGES &,IRFAC1 EQUIRFACC+1 ACCESS PRIVILEGES ,4IRFRLN EQUIRFACCMASTER RESOLVE LOGICAL NAMES 4.IRFACM EQU>0018  ACCESS PRIV. BIT MASK .*  00=EXCLUSIVE WRITE* 01=EXCLUSIVE ALL* 10=SHARED * 11=READ ONLY4IRFOS EQUIRFACCREAD BY TRACK/OFFSET ENABLED 46IRFOSF EQUIRFACC+1READ BY TRACK/OFFSET FORWARD 6  FLAG IRFLOC *LOCK/UNLOCK  .IRFMDS EQUIRFLOC MASTER DO NOT SUSPEND .$IRFLFG EQUIRFLOCLOCK/UNLOCK $6IRFTIH EQUIRFLOCREAD BY TRACK/TRANSFER INHIBIT 64IRFIMO EQUIRFLOCIMMEDIATE OPEN FLAG FOR TPD 44IRFPAS EQUIRFLOCPASS THRU MODE FOR COMM DSRS 4$ BITS IRFOWN,2OWNERSHIP LEVEL $(IRFEXR EQUIRFOWNEXTENDED REQUEST(4IRFBAD EQUIRFOWN+1 *BLANK ADJ/SET EVENT MODE 40IRFBFG EQUIRFBAD BLANK ADJ/SET EVENT MODE 0.IRFWPM EQUIRFOWN+1 WORD PROCESSING MODE.(IRFRTY EQUIRFOWN+1READ BY TRACK WI(TH NO RETRIES VARNT1 EQU$ !6 VARNT VARNT1  RESOURCE-INDEPENDENT I/O VARIANT 6(IRBDBA WORD 0  *DATA BUFFER ADDRESS(6IRBICC WORD 0 *INPUT CHAR COUNT / ACTUAL OUTPUT 6&IRBRLN EQUIRBICC RECORD LENGTH&.IRBLRL EQUIRBICC LOGICAL RECORD LENGTH.6IRBOCC WORD 0 *OUTPUT CHAR COUNT / ACTUAL INPUT 60IRBCHT EQUIRBOCC OUTPUT CHARACTER COUNT 02IRBCMD EQUIRBOCC COMMAND FOR SUBOPCODE >1824IRBHD EQUIRBOCC+1 HEAD # FOR SUBOPCODE >18 4VARNT2 EQU$ !& VARNT VARNT2  FILE I/O VARIANTS&,IRBCBA WORD 0  CURRENCY BLOCK ADDRESS , VARNT VARNT2 ,IRBRN1 LONG 0  RELATIVE RECORD NUMBER ,8IRBCYL EQUIRBRN1 CYLINDER ADDRESS FOR SUBOP >18 8IR6BRN2 EQUIRBRN1+2 SECOND WORD OF RECORD NUMBER 6.IRBFWA EQU$  POINTER TO FILE WORK AREA.* PTR FWA   ADDR 0 ! , VARNT VARNT2  DIAGNOSTIC PORT VARIANT,(IRBVRS BYTE 0  OS VERSION/RELEASE ("IRBOLF FLAGS 8 ONLINE FLAGS "* FLAG OLDBFR BUFFER ADDRESS SPECIFIED *"*  0=NO BUFFER IN TIL. IMAGE " *  1=BUFFER IN TILINE IMAGE " BITS 7  RESERVED (SET TO 0) "&IRBPCD WORD 0  DYNAMIC PASSCODE &$ VARNT VARNT2  DIRECT DISK I/O$ IRBADU WORD 0  ADU ADDRESS "IRBOFF WORD 0  SECTOR OFFSET" VARNT VARNT2 "IRBTRK WORD 0  TRACK ADDRESS"(IRBSPR BYTE 0  SECTORS PER RECORD (IRBSCT BYTE 0  SECTOR & VARNT VARNT2  SUBOPCODE >18 VARIA&NT2IRBDKS WORD 0  TPCS (R0) DISK STATUS FOR >18 26IRBCRS WORD 0  TPCS (R7) CONTROLLER STAT FOR >18 62 VARNT VARNT2  TERMINAL DEVICE I/O VARIANTS 2(IRBRPY WORD 0  REPLY BLOCK ADDRESS(.IRBXFL FLAGS 16  EXTENDED REQUEST FLAGS ., FLAG IRFCSF CURSOR START OF FIELD DEFN , FLAG IRFNTNINTENSITY , FLAG IRFFKR BLINKING CURSOR (FLICKER) ,0 FLAG IRFGRAGRAPHICS DISPLAY(CHAR LT >20) 0 FLAG IRFEBA8-BIT ASCII . FLAG IRFTERENABLE TASK EDIT CHAR RETURN . FLAG IRFBP BEEP. FLAG IRFRDBRIGHT DISPLAY EDGE BOUNDARY .* FLAG IRFC%%IF CURSOR IN-FIELD DEFINED *$ FLAG IRFFC  FILL CHAR DEFINED $" FLAG IRFIF INITIALIZE FIELD" FLAG IRFRFFREMAIN IN FU LL FIELD  FLAG IRFECOECHO& FLAG IRFVRQ VALIDATION REQUIRED &$ FLAG IRFVER VERIFICATION ERROR$ FLAG IRFWBPWARNING BEEP8IRBRT EQUIRBXFL RESOURCE TYPE/TYPE FLAGS FOR CC 8(IRBFCH BYTE 0  VDT FILL CHARACTER ($IRBEVT BYTE 0  VDT EVENT BYTE $,IRBCRO BYTE 0  VDT CURSOR IN FIELD ROW,0IRBCCO BYTE 0  VDT CURSOR IN FIELD COLUMN 0,IRBFRO BYTE 0  VDT FIELD BEGINNING ROW,0IRBFCO BYTE 0  VDT FIELD BEGINNING COLUMN 0* ' VARNT VARNT2 0IRBVTA PTRPATH VALIDATION TABLE ADDRESS 0* '( VARNT VARNT1  I/O UTILITY VARIANT("IRBTYP BYTE 0  RESOURCE TYPE"(IRBTFL FLAGS 8 RESOURCE TYPE FLAGS( BITS 3  RESERVED   FLAG IRFV D  VIRTUAL DEVICE " FLAG IRFREM REMOTE CHANNEL " FLAG IRFCHN CHANNEL FLAG IRFDEV DEVICE  FLAG IRFFIL FILE 4IRBJSB WORD 0  OWNER JSB ADDRESS (IOU SVC >A5) 44IRBTSB WORD 0  OWNER TSB ADDRESS (IOU SVC >A5) 4<IRBKDB ADDR 0  KEY DESCRIPTOR ADDRESS/OVERLAYS IRBADU <.IRBLRN EQUIRBKDB LOGICAL RECORD NUMBER.:IRBPRS EQUIRBKDB PHYSICAL RECORD SIZE (DIR OVHD.) : WORD 0  OVERLAYS IRBOFF.IRBFLG FLAGS 16  UTILITY FLAGS (2 BYTES).( FLAG IRFFCA FILE CREATED BY ASSIGN($ BITS IRFFU1,2FILE USAGE FLAGS$*IRFFU2 EQUIRFFU1+1FILE USAGE FLAGS*,IRFFUM EQU>6000  FILE USAGE BIT MASK ,*  00=NO SPECIAL USAGE *  01=DIRECTORY FILE @* 10=PROGRAM FILE * 11=IMAGE FILE  BITS IRFSC1,2LUNO SCOPE$IRFSC2 EQUIRFSC1+1LUNO SCOPE$,IRFSCM EQU>1800  LUNO SCOPE BIT MASK ,* 00=TASK LOCAL * 01=JOB LOCAL* 10=GLOBAL * 11=SHARED $ FLAG IRFGEN AUTOGENERATE LUNO $* FLAG IRFACR REQUEST AUTOCREATE FILE *0 FLAG IRFPRM1=IRBPRM VALID (PARMS PRESENT) 00 FLAG IRFLRL1=VALID LOGICAL RECORD LENGTH 0* FLAG IRFTMP FILE IS TO BE TEMPORARY *, FLAG IRFIMW IMMEDIATE WRITE DISK FILES ,  BITS IRFDF1,2DATA FORMAT  &IRFDF2 EQUIRFDF1+1DATA FORMAT &,IRFDFM EQU>0018  DATA FORMAT BIT MASK,*  00=NORMAL RECORD IMAGE *  01=BLANK SUPPRESSED * 10,11 RESERVED& FLAG IRFALL ALLOCATION MAY GROW & BITS IRFFT1,2FILE TYPE $IRFFT2 EQUIRFFT1+1FILE TYPE $*IRFFTM EQU>0003  FILE TYPE BIT MASK** 00=RESERVED *  01=SEQUENTIAL FILE *  10=RELATIVE RECORD FILE *  11=KEY INDEXED FILE 4IRBDLL WORD 0  DEFINED LOGICALRECORD LENGTH 44IRBDPL WORD 0  DEFINED PHYSICAL RECORD LENGTH 4(IRBPNA PTRPATH PATHNAME ADDRESS ((IRBPRM PTRPATH PARAMETER POINTER(IRBRES WORD 0  RESERVED 6IRBIFA LONG 0  INITIAL FILE ALLOCATION (2 WORDS) 6>IRBIF2 EQUIRBIFA+2 INITIAL FILE ALLOCATION (2ND WORD) >8IRBSFA LONG 0  SECONDARY FILE ALLOCATION (2 WORDS) 8.IRBRCS EQU$  REQUESTOR CALL BLOCK SIZE.0* 'VARNT3 EQU$ !8VARNT VARNT3 IOU VARIANT FOR LOGICAL NAME SEGMENT 8&IRBSTG BYTE 0  TASK STAGE NUMBER&(IRBNMF FLAGS 8 NAME MANAGER FLAGS (( FLAG IRFRID USE SPECIFIED RUN ID (( BITS IRFNM1,7 RESERVED AT PRESENT(2IRBRPN WORD 0  REDIRECTED RESOLVED PATHNAME 2.* EQUATES FOR CREATE PROGRAM FILE VARIANT .<IRBMXT EQUIRBRPY+1 MAXIMUM NUMBER TASKS IN PROG FILE <6IRBMXP EQUIRBXFL MAX NUMBER PROCS IN PROG FILE 6<IRBMXO EQUIRBXFL+1 MAX NUMBER OVERLAYS IN PROG FILE <  ENDREC !  PAGE "  LIST " CLDR EQU$-DSCBLK * LUNO FOR ALTERNATE LOADER FILE < B******************************** @* '.**************9 qqk4`4NFSTAT SD2|_ UNL#  ECHO " @************************************************************ @ *  * 0 * TASK STATE CODES (NFSTAT)09/20/83 * 0 *  * * NOTES:  * :*  1) THIS MODULE REQUIRES NFER00 THRU NFER40 BE * :* COPIED ALSO. *  *  * <*  2) CHANGES TO THIS MODULE REQUIRE CORRESPONDING * <:* CHANGES IN 3 OF THE MESSAGES IN THE SVC MESSAGES * :2* FILE. (SVC >35, SVC >07, AND SVC 0E) * 2@************************************************************ @@* THESE EQUATES DESCRIBE ALL THE LEGAL TASK STATE CODES AND @&* JOB STATE CODES USED BY THE OS. &0TSTACT EQUBYTE00 TASK IS ON ACTIVE LIST 02TSTWOM EQUBYTE01 TASK IS WAITING ON MEMORY 24@6TSTJWT EQUBYTE02 JOB IN A NONEXECUTABLE STATE 6.TSTLIP EQUBYTE03 TASK LOAD IN PROGRESS.,TSTTRM EQUBYTE04 TASK HAS TERMINATED,0TSTDLY EQUBYTE05 TASK IS IN A TIME DELAY08TSTSUS EQUBYTE06 TASK UNCONDITIONALLY SUSPENDED 84TSTENX EQUBYTE07 WAITING FOR TEN X PROCESSOR 4*  COMPLETION 0TSTSIO EQUBYTE09 TASK SUSPENDED FOR I/O 04TSTSAI EQUBYTE0F SUSPENDING FOR ABORTING I/O 46TSTOVL EQUBYTE14 WAITING FOR OVERLAY LOAD SVC 64TSTCOA EQUBYTE17 TASK AWAITING COROUTINE ACT 42TSTWIO EQUBYTE19 WAITING FOR INITIATED I/O 22TSTDOR EQUBYTE1E WAITING FOR DOOR TO OPEN 26TSTSBT EQUBYTE1F WAITING FOR SCHD TASK BID SVC 6TSTIV EQUBYTE20 WAI TING FOR INSTALL VOLUME SVC 2TSTDMG EQUBYTE22 WAITING FOR DISK MGR SVC 2.TSTQIN EQUBYTE24 AWAITING QUEUE INPUT .6TSTIT EQUBYTE25 WAITING FOR INSTALL TASK SVC 66TSTIP EQUBYTE26 WAITING FOR INSTALL PROC SVC 66TSTIO EQUBYTE27 WAITING FOR INSTALL OVLY SVC 64TSTDT EQUBYTE28 WAITING FOR DELETE TASK SVC 44TSTDP EQUBYTE29 WAITING FOR DELETE PROC SVC 44TSTDO EQUBYTE2A WAITING FOR DELETE OVLY SVC 44TSTBID EQUBYTE2B TASK SUSPENDED FOR BID SVC 48TSTRWT EQUBYTE2D WAITING FOR READ/WRITE TSK SVC 86TSTWOT EQUBYTE30 WAITING FOR SYSTEM TABLE AREA 68TSTMNI EQUBYTE31 WAITING FOR MAP PROG NAME TO ID 8.TSTUV EQUBYTE34 WAITING FOR UNLOAD VOLU. ME SVC ,TSTAIO EQUBYTE36 WAITING FOR ANY I/O,8TSTAPS EQUBYTE37 WAITING FOR ASG PROG FILE SPACE 86TSTINV EQUBYTE38 WAITING FOR INIT NEW VOL SVC 66TSTSEM EQUBYTE3D TASK SUSPENDED FOR SEMAPHORE 68TSTSEG EQUBYTE40 TASK AWAITING SEG MGR SERVICES 86TSTEWT EQUBYTE42 WAITING FOR EVENT COMPLETION 62TSTNMG EQUBYTE43 WAITING FOR NAME MGR SVC 24TSTJMR EQUBYTE48 TASK WAITING ON JOB MGR SVC 44TSTFRL EQUBYTE4A WAITING FOR FORCED ROLL SVC 46TSTRCP EQUBYTE4C WAITING FOR RETURN CODE PROC 6@************************************************************ @ *  * *  JOB STATE CODES *  *  * 6****************************************************6 ******** .JSTCRE EQUBYTE01 JOB IS BEING CREATED .6JSTEXC EQUBYTE02 JOB IS IN A EXECUTABLE STATE 6&JSTHLT EQUBYTE03 JOB IS HALTED&,JSTTRM EQUBYTE04 JOB IS TERMINATING ,.JSTEXP EQUBYTE05 JCA IS BEING EXPANDED.  LIST " (IRBVRS BYTE 0  OS VERSION/RELEASE ("IRBOLF FLAGS 8 ONLINE FLAGS "* FLAG OLDBFR BUFFER ADDRESS SPECIFIED *"*  0=NO BUFFER IN TIL. IMAGE " *  1=BUFFER IN TILINE IMAGE " BITS 7  RESERVED (SET TO 0) "&IRBPCD WORD 0  DYNAMIC PASSCODE & VAR* 0-7 TYPE OF TERMINAL*  >01 - 931*  >02"k4`4TH NO RETRIES VARNT1 EQU$ !6 VARNT VARNT1  RESOURCE-INDEPENDENT I/O VARIDSALLREXPS2|aB************************************************************** B* ' * REMOTE DEVICE EXTENSIONS  * ' *  ORIGINAL:PDW 1/17/83  * 'B************************************************************** B  DORG 0 ! 4HSRBGN EQU$ HSR PORTION OF DEVICE EXTENSIONS 4 BSS>20 HSREND EQU$ !* 'DSWFBGN EQUHSRENDSOFTWARE FIFO PORTION OF DEVICE EXT ENSIONS D BSS>70 SWFEND EQU$ !* '8TSRBGN EQUSWFENDTSR PORTION OF DEVICE EXTENSIONS 8  BSS >30! TSREND EQU$ !* ',SIBUFF EQUTSREND SCREEN IMAGE BUFFER ,. BSS>7801920 BYTE SCREEN IMAGE BUFFER .SIEND EQU$ !  RORG 0 ! TASK IS WAITING ON MEMORY 24VDB PS2|c UNL#@*********************************************************** @0*  VALUE DEFINITION BLOCK (VDB)07/21/81 0* ',*  LOCATION: NAME DEFINITION SEGMENT ,@*********************************************************** @  DORG 0 ! 2VDBVCB PTRVCB NEXT NAME CONTINUATION BLOCK 22VDBUSE BYTE 0 NUMBER OF USERS OF THIS VALUE 2,VDBSIZ EQU$  SIZE OF THE VDB OVERHEAD ,  RORG "  PAGE "  LIST " HSRENDSOFTWARE FIFO PORTION OF DEVICE EXT ENSIONS D BSS>70 SWFEND EQU$ !%%* '8TSRBGN EQUSWFENDTSR PORTION OF DEVICE EXTENSIONS 8  BSS >30! TSREND EQU$ !* ',SIBUFF EQUTSREND SCREEN IMAGE BUFFER ,. BSS>7801920 BYTE SCS36 PS 2|d UNL#D ****************************************************************D *  * B*  WAIT ON MULTIPLE INITIATE I/O SVC BLOCK (S36) 07/07/80 *B *  * D ****************************************************************D PCKREC S36 :S36SVC BYTE 0  WAIT ON MULTIPLE INITIATE I/O OPCODE ::S36ERC BYTE 0  WAIT ON MULTIPLE INITIATE ERROR CODE :  ENDREC !  PAGE "  LIST " PAGE "  LIST " HSRENDSOFTWARE FIFO PORTION OF DEVICE EXT ENSIONS D BSS>70 SWFEND EQU$ !* '8TSRBGN EQUSWFENDTSR PORTION OF DEVICE EXTENSIONS 8  BSS >30! TSREND EQU$ !* ',SIBUFF EQUTSREND SCREEN IMAGE BUFFER ,. BSS>7801920 BYTE SCS3D PS2|f UNL#B************************************************************** B *  * :*  SEMAPHORE OPERATIONS BLOCK (S3D) 04/22/80 * : *  * B************************************************************** B PCKREC S3D *S3DSVC BYTE 0  SEMAPHORE OP CODE=#3D**S3DERC BYTE 0  SEMAPHORE ERROR CODE *.S3DOPC BYTE 0  SEMAPHORE OPERATION CODE .* 0 = SIGNAL* 1 = WAIT* 2 = TEST* 3 = INITIALIZE* 4 = MODIFY&S3DNUM BYTE 0  SEMAPHORE NUMBER &8S3DVAL DATA 0  SEMAPHORE INITIAL OR RETURNED VALUE 8  ENDREC !  PAGE "  LIST " ND EQU$ !* ',SIBUFF EQUTSREND SCREEN IMAGE BUFFER ,. BSS>7801920 BYTE SCFWA X S-f2|h@ UNL#@************************************************************ @ *  * 4 * FILE MANAGER WORK AREA (FWA)  01/21/82 * 4 *  * "*  LOCATION: SYSTEM AREA  * "@************************************************************ @@* THE FWA IS USED BY FILE MANAGEMENT AND BY KIF MANAGEMENT @6 * AS A GENERAL WORK AREA. R15 POINTS TO THE FWA.6  DORG 0 ! (FWAWP BSS32 WORKSPACE USED BY FM((FWAFLG DATA 0  MIDDLE SEGMENT FLAGS(2FWATCT DATA 0 MULTIRECORD CHARS TRANSFERRED 22FWAOAD PTROAD CURRENT OVERLAY AREA ADDRESS 2*FWAPC DATA 0  SAVED PROGRAM COUNTER *.FWAXWP DATA 0  BLWP VECTOR FOR RETURNING .FWAXPC DATA 0 !$FWABN DATA 0,0 SAVED RPBBN (2 W$ ORDS)  FWAOCB DATA 0 SAVED RPBOCB $FWALFG DATA 0 SAVED LDT FLAGS $,FWAFFC PTRFSC  FIRST FCB FOR CC FILES,2FWAFMT PTRSSB SSB FOR THE FMT WITH THE FCB 2,FWAFCB PTRFSC  FCB ADDRESS IN THE FMT,.FWABST PTRSSB  SMT SSB ADDR FOR BUFFER .*FWABSB PTRSSB  SSB ADDR FOR BUFFER *(FWAPRS DATA 0  PHYSICAL RECORD SIZE(.FWAUBT PTRSSB  USER BUFFER SMT SSB ADDR ..FWAUBS PTRSSB  USER BUFFER SSB ADDRESS .&FWAUBO DATA 0  USER BUFFER OFFSET&&FWAUBL DATA 0  USER BUFFER LENGTH&FWAFMB DATA 0 FMT BIAS0FWARN1 DATA 0 RECORD # RELATIVE TO CURRENT 0,FWARN2 DATA 0  FILE OF CONCATENATED SET ,.FWAOOB DATA 0  OLD OFFSET IN USER BUFFER .FWAUBR DATA 0  BUFFER LENGTH REMAINING $FWAFFG FLAGS16FILE MGR FLAGS$( FLAG FWAPOP PASSIVE OPERATION FLAG(0 FLAG FWAQW QUEUED TO WAITING QUEUE IN FCB 04 FLAG FWAKIFKIF REQUEST(1) NOT KIF REQUEST(0) 4 FWASTK BSS80*2STACK AREA .FWASIZ EQU$  SIZE OF FWA INCLUDING WSP .  RORG "  PAGE "  LIST " E TASK SVC 44TSTDP EQUBYTE29 WAITING FOR DELETE PROC SVC 44TSTDO EQUBYTE2A WAITING FOR DELETE OVLY SVC 44TSTBID EQUBYTE2B TASK SUSPENDED FOR BID SVC 48TSTRWT EQUBYTE2D WAITING FOR READ/WRITE TSK SVC 86TSTWOT EQUBYTE30 WAITING FOR SYSTEM TABLE AREA 68TSTMNI EQUBYTE31 WAITING FOR MAP PROG NAME TO ID 8.TSTUV EQUBYTE34 WAITING FOR UNLOAD VOLU.DCB PS#2|j@ UNL#@************************************************************ @ *  * * * DIOU CALL BLOCK (DCB)  03/30/82* * *  * 0* LOCATION: SYSTEM TABLE AREA AND JCA  * 0 *  * @************************************************************ @ PCKREC DCB ,DCBSOC BYTE 0  *SUPERVISOR REQUEST CODE,(DCBEC BYTE 0  *REQUEST ERROR CODE ((DCBOC BYTE 0  *SUB-OPERATION CODE ("DCBLUN BYTE 0  LOGICAL UNIT ""DCBSFL FLAGS 8*SYSTEM FLAGS " FLAG DCFBSYBUSY FLAG DCFERRERROR *DCBCDE BYTE 0  *CDE NUMBER WITHIN CDT*&DCBCHR EQUDCBCDE*BID CHARACTER& WORD 0 *RESERVED  DCBNAM BSS8 *DEVICE NAME DCBRES WORD 0 *RESERVED &DCBNUM WORD 0  *DEVICE/CDT NUMBER&&DCBUFL FLAGS 16 *REQUESTOR FLAGS&" FLAG DCFCONCONDITIONAL SET "  FLAG DCFNAMNAME SPECIFIED  FLAG DCFRESRESERVED FLAG  * BITS DCFWCH,2 WHICH RELATIVE DEVICE * FLAG DCFREPREPLACE & FLAG DCFVOL VOLUME NAME PROVIDED&" FLAG DCFSDKUSE SYSTEM DISK "6DCBBUF PTRPATH*BUFFER ADDRESS (LENGTH/VALUES) 6  ENDREC !  PAGE "  LIST " (FWAFLG DATA 0  MIDDLE SEGMENT FLAGS(2FWATCT DATA 0 MULTIRECORD CHARS TRANSFERRED 22FWAOAD PTROAD CURRENT OVERLAY AREA ADDRESS 2*FWAPC DATA 0  SAVED PROGRAM COUNTER *.FWAXWP DATA 0  BLWP VECTOR FOR RETURNING .FWAXPC DATA 0 !,FWABN DATA 0,0  SAVED RPBBN (2 WORS41 PSL2|l UNL#B************************************************************** B *  * 8*  INITIATE EVENT SVC BLOCK (S41) 12/17/81 * 8 *  * B************************************************************** B PCKREC S41 0S41SVC BYTE 0  INITIATE EVENT OP CODE=>41 0.S41ERC BYTE 0  INITIATE EVENT ERROR CODE.&S41FLG BYTE 0  *** RESERVED *** &"S41NUM BYTE 0  EVENT NUMBER "0S41BLK DATA 0  EVENT REQUEST BLOCK ADDRESS0&S41RES DATA 0  *** RESERVED *** &  ENDREC !  PAGE "  LIST " FRESRESERVED FLAG  * BITS DCFWCH,2 WHICH RELATIVE DEVICE * FLAG DCFREPREPLACE & FLAG DCFVOL VOLUME NAME PROVIDED&" FLAG DCFSDKUSE SYSTEM DISK "QIR PS2|m@P UNL PP************************************************************ PP* * PP* QUEUED IPC REQUEST (QIR) 8/15/81 * PP* * PP* LOCATION: SYSTEM AREA * PP************************************************************ PP* THE QIR IS PUT ON THE IPC TASK QUEUE WHEN AN IPC REQUEST PP* CANNOT BE PROCESSED IN FAST TRANSFER IPC. P J PCKREC QIR JPQIRQIR PTR QIR POINTER TO NEXT QIR PPQIRJSB PTR JSB JSB ADDRESS OF OWNER PP* (0 IF GLOBAL CHANNEL) PPQIRCCB PTR CCB ADDRESS OF CCB TO BE PROCESSED PP ENDREC PP PAGE PP LIST PDCBBUF PTRPATH*BUFFER ADDRESS (LENGTH/VALUES) 6  ENDREC !  PAGE "  LIST SDT P S;l2|o@ UNL#@************************************************************ @ *  * 8*  SPOOLER DEVICE TABLE ENTRY (SDT) 09/09/83 * 8 *  * .* LOCATION: .S$SDTQUE.(SYSNAME) AND  * .**  SPOOLER TASK COMMON (SPCOMN)  * * *  * @************************************************************ @@* THE SDT IS USED BY THE SPOOLER TO SAVE DEVICE INFORMATION. @<* ALL OF THE SPOOLER DEVICES ARE STORED ON DISK IN FILE <<* .S$SDTQUE.(SYSNAME) WHERE (SYSNAME) IS THE NAME OF THE <>* OS KERNAL. SPOOL DEVICE INFORMATION IN THE SDT INCLUDES ><* STATUS FLAGS, CLASS NAME INFORMATION, FORM INFORMATION <.* QUEUE INFORMATION AND PAGE INFORMATION. .(SDTNUM E%%QU12 NUMBER OF SDT ENTRIES( PER RECORD * ' PCKREC  DC SDTCN WORD 0!SDTCNR WORD 0!  ENDREC ! * ' PCKREC SDT SDTFLG FLAGS 8STATUS FLAGS & FLAG SDFDEL TRUE=DELETED ENTRY &0 FLAG SDFAVB TRUE=NOT AVAILABLE TO SPOOLER 0& FLAG SDFHLT TRUE=DEVICE HALTED &$ FLAG SDFBSY TRUE=DEVICE BUSY $2 FLAG SDFFRM TRUE=DEVICE DOES NOT USE FORMS 2, FLAG SDFKIL TRUE=KILL OUTPUT REQUEST ,"*  [WRITER SENDS 'I AM DONE'] "( FLAG SDFTRM TRUE=WRITER TERMINATE( *  [NO WRITER MESSAGE SENT] 0 FLAG SDFSHR TRUE=REMOTE OR SHARED DEVICE 0,SDTLUN BYTE 0  ASSIGNED JOB-LOCAL LUNO,6* NOTE: SDTLUN VALUE IS ALSO THE SEMAPHORE NUMBER 6*  USED BY SP$DST TO SIGNAL THE DEVICE (* WRITER TASK AT HO/KO/RO/MO TIME ( SDTDNM CHAR 8  DEVICE NAME ,SDTAPR BYTE 0  ACTIVE REQUEST PRIORITY,,SDTQPR BYTE 0  QUEUED REQUEST PRIORITY,*SDTARN WORD 0  ACTIVE REQUEST RECORD**SDTQRN WORD 0  QUEUED REQUEST RECORD*2SDTAOF BYTE 0  ACTIVE REQUEST RECORD OFFSET 22SDTQOF BYTE 0  QUEUED REQUEST RECORD OFFSET 2,SDTAID CHAR 6  ACTIVE REQUEST SPOOL ID,, SDTCLS ARRAY 6,DC  CLASS NAME INDEXES ,.* MUST BE A PACKED ARRAY(1..6) OF DCLASS .&SDTDTF BYTE 0  DEVICE TYPE FLAGS&&SDTTYP BYTE 0  DEVICE TYPE VALUE&.SDTPAG DATA 0  PAGES TO FORWARD/REVERSE .(* NOTE: SDTPAG SIGN BIT 0 => FORWARD($* SDTPAG SIGN BIT 1 => REVERSE$,SDTFRM CHAR 8  FORM MOUNTED ON DEVICE ,* '  ENDREC !  PAGE "  LIST " IMMEDIATE OPEN FLAG FOR TPD 44IRFPAS EQUIRFL"9k4x`4 ME SVC ,TSTAIO EQUBYTE36 WAITING FOR ANY I/O,8TSTAPS EQUBYTE37 WAITING FOR ASG PROG FILE SPACE 86TSTINV EQUBYTE38 WAITING FOR INIT NEW VOL SVC 66TSTSEM EQUBYTE3D TASK SUSPENDED FOR SEMAPHORE 68TSTSEG EQUBYTE40 TASK AWAITING SEG MGR SERVICES 86TSTEWT EQUBYTE42 WAITING FOR EVENT COMPLETION 62TSTNMG EQUBYTE43 WAITING FOR NAME MGR SVC 24TSTJMR EQUBYTE48 TASK WAITING ON JOB MGR SVC 44TSTFRL EQUBYTE4A WAITING FOR FORCED ROLL SVC 46TSTRCP EQUBYTE4C WAITING FOR RETURN CODE PROSLB SR2|q@ UNL#@************************************************************ @ *  * 4*  SYSTEM LOG BLOCK FORMATS (SLB)02/08/82 * 4 *  * "*  LOCATION: SYSTEM AREA  * "@************************************************************ @B* THIS TEMPLATE INCLUDES FORMATS FOR SEVERAL TYPES OF SYSTEM B>* LOG MESSAGES.EACH FORMAT INCLUDES THE SAME QUEUE LINK >B* FIELD AND FLAGS FIELD. EACH ALSO HAS A 4 BYTE TYPE FIELD. B@* OTHER FIELDS ARE PARTICULAR TO A TYPE OF LOG BLOCK BEING @* BUILT. #, DORG 0  COMMON PORTION FOR ALL TYPES ,SLBSLB WORD 0 QUEUE LINKSLBFLG BYTE 0 BLOCK TYPE*SLBCNT BYTE 0  COUNT OF LOST MESSAGES*SLBDAY INT0 BINARY DAYSLBHR INT0 BINARY HOUR "SLBMIN INT0 BINARY MINUTES""SLBTYP BSS8 LOG BLOCK TYPE"SLBVR1 EQU$ !4 DORG SLBVR1 TYPE 1 - DEVICE ERROR WITH IMAGE 4SLBEC BYTE 0 ERROR CODESLBSTI BYTE 0 STATION IDSLBJOB WORD 0 JOB ID&SLBIID BYTE 0  TASK INSTALLED ID & SLBRID BYTE 0 TASK RUN ID  SLBVR2 EQU$ ! DORG SLBVR2SLBLUN BYTE 0 LUNO SLBRTY BYTE 0 RETRY COUNT  0SLBRSF BYTE 0 RETRY SUCCESS(0)/FAILURE(1) 0$SLBACT BYTE 0 IMAGE WORD COUNT$SLBVR3 EQU$ ! DORG SLBVR3& SLBAIM ARRAY 8,WORD AFTER IMAGE && SLBBIM ARRAY 8,WORD BEFORE IMAGE&.SLBSZ1 EQU$-SLBSLB DEVICE MESSAGE SIZE . DORG SLBVR3 TYPE 2 "- DEVICE ERROR WITH CALL BLOCK "8 SLBIRB ARRAY 6,WORD SPACE FOR 12 BYTES OF CALL BLK 8SLBSZ2 EQU$-SLBSLB6 DORG SLBVR2 TYPE 3 - ABNORMAL TASK TERMINATION 6.SLBWP WORD 0  WORKSPACE POINTER AT ERROR .$SLBPC WORD 0 PROGRAM COUNTER $$SLBST WORD 0 STATUS AT ERROR $SLBSZ3 EQU$-SLBSLB2 DORG SLBVR1 TYPE 4 - STATISTICS FROM A DSR 2(SLBRDG WORD 0  NUMBER OF GOOD READS(*SLBWRG WORD 0  NUMBER OF GOOD WRITES *,SLBOTG WORD 0  NUMBER OF GOOD OTHER OPS ,(SLBRDB WORD 0  NUMBER OF BAD READS ((SLBWRB WORD 0  NUMBER OF BAD WRITES(,SLBOTB WORD 0  NUMBER OF BAD OTHER OPS ,SLBSZ4 EQU$-SLBSLB6 DORG SLBVR1 TYPE 5 - USER ISSUED SYSTEM LOG SVC 6SLBL&EN BYTE 0  LENGTH OF USER MESSAGE& BYTE 0 RESERVED&SLBMXL EQU255 MAX USER LENGTH &.SLBUMS BSS255  USER MESSAGE BEGINS HERE .SLBSZ5 EQU$-SLBSLB0 DORG SLBVR1 TYPE 6 - MEMORY CACHE ERRORS 0"SLBANK BYTE 0 BANK (A OR B) "2SLBPRA BYTE 0 ADDRESS PARITY IN BANK A (G/B) 22SLBPRB BYTE 0 ADDRESS PARITY IN BANK B (G/B) 2.SLBBA6 BYTE 0  BASE ADDRESS OF CONTROLLER .$SLBME6 BYTE 0 AMOUNT OF MEMORY$,SLBEVN BYTE 0  ERROR ON EVEN WORD (Y/N) , SLBAD6 WORD 0 TPCS ADDRESS SLBSZ6 EQU$-SLBSLB0 DORG SLBVR1 TYPE 7 - MEMORY PARITY ERRORS 0 SLBBIT BYTE 0 BIT IN ERROR SLBROW BYTE 0 ROW IN ERROR &SLBCOR BYTE 0  CORRECTABLE? (Y/N)&SLBBA7( BYTE 0  BASE ADDRESS OF CONTROLLER ($SLBME7 BYTE 0 AMOUNT OF MEMORY$$SLBCTY BYTE 0 CONTROLLER TYPE $ SLBAD7 WORD 0 TPCS ADDRESS SLBSZ7 EQU$-SLBSLB  RORG "  PAGE "  LIST " ) "&IRBPCD WORD 0  DYNAMIC PASSCODE &$ VARNT VARNT2  DIRECT DISK I/O$ IRBADU WORD 0  ADU ADDRESS "IRBOFF WORD 0  SECTOR OFFSET" VARNT VARNT2 "IRBTRK WORD 0  TRACK ADDRESS"(IRBSPR BYTE 0  SECTORS PER RECORD (IRBSCT BYTE 0  SECTOR & VARNT VARNT2  SUBOPCODE >18 VARIA&RSTU9 ģk4`4CHARACTER COUNT 2IRBCMD EQUIRBOCC COMMAND FOR SUBOPCODE >1824IRBHD EQUSMT S2|s UNL#@************************************************************ @ *  * 4*  SEGMENT MANAGER TABLE(SMT)  1/30/79 * 4 *  * "*  LOCATION: USER MEMORY * "@************************************************************ @<* THE SMT IS THE TEMPLATE FOR THE STATIC DEFINITIONS IN <.* THE SEGMENT MANAGER SPECIAL TABLE AREAS..* DORG STASIZ STARTS AFTER MM OVERHEAD *$SMTSGB DATA 0  SGB LIST HEADER$*SMTRID DATA 0  LAST RUN ID ALLOCATED*2SMTMAP BSS>200/8 ALLOCATED RUN ID BIT MAP 2* 'SMTSIZ EVEN "  RORG "  PAGE "  LIST " ****** @ *  * 4*  SYSTEM LOG BLOCK FORMATS (SLB)02/08/82 * 4 *  * "*  LOCATION: SYSTEM ARWT PSX2|u@ UNL#@*********************************************************** @ * * 4 * READ/WRITE TASK REQUEST (RWT) 02/29/80 * 4**  LOCATION: SYSTEM TABLE AREA * * * * @*********************************************************** @  DORG 0 ! "RWTSVC BYTE 0 SVC CODE(2D)"RWTERR BYTE 0 ERROR CODE&RWTID BYTE 0  TASK OR OVERLAY ID&RWTFLG FLAGS 8FLAGS " FLAG RWFWRT1=WRITE; 0=READ "0 FLAG RWFSOV1=SYSTEM OVLY ID; 0=USER TASK 0 BITS 2 RESERVED2 BITS RWFNOW,4NUMBER OF WORDS TO READ/WRITE 20RWTADD DATA 0 LOGICAL ADDR. TO READ/WRITE 0(RWTDAT BSS16*2 DATA TO READ/WRITE(,RWTRES DATA 0  RESERVED (INIT. TO ZERO) , RWTSIZ E $QU$  SIZE OF BASIC CALL BLOCK $  RORG "  LIST "  PAGE " 8 LOG BLOCK TYPE"SLBVR1 EQU$ !4 DORG SLBVR1 TYPE 1 - DEVICE ERROR WITH IMAGE 4SLBEC BYTE 0 ERROR CODESLBSTI BYTE 0 STATION IDSLBJOB WORD 0 JOB ID&SLBIID BYTE 0  TASK INSTALLED ID & SLBRID BYTE 0 TASK RUN ID  SLBVR2 EQU$ ! DORG SLBVR2SLBLUN BYTE 0 LUNO SLBRTY BYTE 0 RETRY COUNT  0SLBRSF BYTE 0 RETRY SUCCESS(0)/FAILURE(1) 0$SLBACT BYTE 0 IMAGE WORD COUNT$SLBVR3 EQU$ ! DORG SLBVR3& SLBAIM ARRAY 8,WORD AFTER IMAGE && SLBBIM ARRAY 8,WORD BEFORE IMAGE&.SLBSZ1 EQU$-SLBSLB DEVICE MESSAGE SIZE . DORG SLBVR3 TYPE 2 UDO PSP2|w@P UNL PP*********************************************************** PP* * PP* USER DESCRIPTOR OVERFLOW RECORD (UDO) 11/24/82 * PP* * PP* LOCATION: S$CLF ON DISK * PP************************************%%*********************** PP* THE UDO IS USED ONLY IN THE CASE THAT A USER IS A MEMBER PP* OF MORE ACCESS GROUPS THAN WILL FIT IN HIS UDR. IT CONTAINS P* ACCEJSS GROUP INFORMATION. IT IS A VARIANT OF THE CAPABILITIES JP* LIST FILE RECORD (CLR). FOR DETAILS SEE CLR. PP PAGE PP LIST PSLBACT BYTE 0 IMAGE WORD COUNT$SLBVR3 EQU$ ! DORG SLBVR3& SLBAIM ARRAY 8,WORD AFTER IMAGE && SLBBIM ARRAY 8,WORD BEFORE IMAGE&.SLBSZ1 EQU$-SLBSLB DEVICE MESSAGE SIZE . DORG SLBVR3 TYPE 2 0 FLAG SDFSHR TRUE=REMOTE OR SHARED DEVICE 0,SDTLUN B Ԥk4`4,RWFNOW,4NUMBER OF WORDS TO READ/WRITE ,0RWTADD DATA 0 LOGICAL ADDR. TO READ/WRITKSB P S+2|y@ UNL#@************************************************************ @ *  * 2 * KEYBOARD STATUS BLOCK(KSB)  09/28/79 * 2 *  * "*  LOCATION: SYSTEM AREA  * "@************************************************************ @>* THE KSB IS APPENDED TO A PHYSICAL DEVICE TABLE (PDT) FOR >: * A KEYBOARD DEVICE.IT IS USED BY THE DEVICE SERVICE :@* ROUTINE (DSR) AS A WORKSPACE WHILE HANDLING THE KEYBOARD. @ DORG KSBBGN,KSBCBL EQU6  CHARACTER BUFFER LENGTH,&KSBPDT DATA 0  R0 - PDT POINTER&.KSBQOC DATA 0  R1 - QUEUE OUTPUT COUNT ..KSBQIP DATA 0  R2 - QUEUE INPUT POINTER .0KSBQOP DATA 0  R3 - QUEUE OUTPUT POINTER 0$KSBQEP DATA 0  R4 - QUEUE END P$ OINTER 2KSBCRQ DATA 0  R5 - GET CHAR REQUEST QUEUE 2$KSBFL FLAGS 8 R6 - KSB FLAGS$  FLAG KSBCHM CHARACTER MODE  FLAG KSBCIE SCI ENABLED  FLAG KSBRCM RECORD MODE $ FLAG KSBCIB SCI BID IN PROCESS $ FLAG KSBICP SCI ACTIVE" FLAG KSBSET COMMAND I/O HOLD "$ FLAG KSBKIO COMMAND I/O ABORT $& FLAG KSBBRK DEACTIVATE BREAK KEY &$KSBSN BYTE 0 - STATION NUMBER$"KSBR7 DATA 0  R7 - SCRATCH"4KSBTSB DATA 0  R8 - TSB ADDRESS OF CHAR OWNER 4"KSBR9 DATA 0  R9 - SCRATCH""KSBR10 DATA 0  R10 - SCRATCH""KSBR11 DATA 0  R11 - SCRATCH"$KSBCRU DATA 0  R12 - CRU BASE $2KSBR13 DATA 0  R13 - SAVED WORKSPACE POINTER 2KSBR14 DATA 0   R14 - SAVED PROGRAM COUNTER (KSBR15 DATA 0  R15 - SAVED STATUS (* 'KSBSIZ EQU$ !  RORG "  PAGE "  LIST " BYTE 0  QUEUED REQUEST PRIORITY,*SDTARN WORD 0  ACTIVE REQUEST RECORD**SDTQRN W' k4*`4JMRSYN DATA 0  SYNONYM SEGMENT SEGMENT ID .2JMRLNM DATA 0 LOGICAL NAME BLOCK SEGMENT ID 2"JMRUID CHAR 8 OWNERS USER ID""JMRPWD CHAR 8 USER PASS WORD"(JMRACC CHAR 16 USERS ACCOUNT NUMBER(&JMRSZ2 EQU$  JMR SIZ FOR CREATE&  RORG "  FLAGS&&SDTTYP BYTE 0  DEVICE TYPE VALUE&.SDTPAG D"줢k4`4$QU$  SIZE OF BASIC CALL BLOCK $  RORG "  LIST "  PAGE " 8 LOCDR PS<2|z@P UNL PP************************************************************ PP* * PP* CHANNEL DESCRIPTOR RECORD (CDR) 08/14/81 * PP* * PP* LOCATION: DISK * PP************************************************************ PP* THE CDR IS THE PERMANENT RECORD OF A CHANNEL. IT IS PP* CARRIED AS AN ALIAS OF THE PROGRAM FILE IN WHICH THE P* CHANJNEL OWNER TASK RESIDES. JP DORG 0 PPCDRHKC DATA 0 HASH KEY COUNT PPCDRHKV DATA 0 HASH KEY VALUE PPCDRNAM BSS 8 CHANNEL NAME PP DATA 0 RESERVED PP DATA 0 RESERVED PPCDRFDF FLAGS 16 FLAGS PP BITS 15 STANDARD FDR FLAGS P FLAG DCDFCDR CDR(1) OR NOT(0) DPCDRDPM EQU >0080 DELETE-PROTECT MASK PPCDRCDM EQU >0001 CDR FLAG MASK PPCDRFLG FLAGS 8 CHANNEL FLAGS PP BITS CDFSC1,2 SCOPE - GLOBAL, JOB, TASK PPCDFSC2 EQU CDFSC1+1 PP* 00=TASK-LOCAL PP* 01=JOB-LOCAL PP* 10=GLOBAL P* > 11=RESERVED >PCDFSCM EQU >C000 MASK FOR CHANNEL SCOPE PP FLAG CDFSHR SHARED(1) OR NOT SHARED PP FLAG CDFTYP SYMMETRIC(1) OR MASTER/SLAVE PP FLAG CDFASG OWNER DOES(1) / NOT DO ASSIGN PP FLAG CDFABT OWNER DOES(1) / NOT DO ABORTS PP FLAG CDFIOU OWNER DOES(1) / NOT DO IOU OPS PP BITS 1 RESERVED (AS CREATE CHANNEL) PPCDFRM1 EQU >FE00 MASK TO ZERO RESERVED BITS PCDRIID BYTE 0 8 OWNER TASK INSTALLED ID 8PCDRTYP BYTE 0 DEFAULT RESOURCE TYPE PPCDRTF BYTE 0 RESOURCE TYPE FLAGS PP* BITS 5 RESERVED PPCDFCHN EQU 13 CHANNEL PPCDFDEV EQU 14 DEVICE PPCDFFIL EQU 15 FILE PPCDFRM2 EQU >FF07 MASK TO ZERO RESERVED TYPE FLAGS PPCDRMXL DATA 0 MAXIMUM MESSAGE LENGTH P BSS 6 RESER2VED 2PCDRRNA DATA 0 RECORD NUMBER OF NEXT CDR OR ADR PPCDRRAF DATA 0 RECORD NUMBER OF ACTUAL FDR PP BSS 110 RESERVED PPCDRUID BSS 8 USER ID OF CHANNEL CREATOR PPCDRPSA DATA 0 PUBLIC SECURITY ATTRIBUTES PPCDRSCG BSS 9*10+4 SDT WITH 9 CONTROL GROUPS PP BSS 8 RESERVED PP* P$CDRSIZ EQU $ $, ,PCDRMAX EQU >3000 MAXIMUM VALUE FOR CDRMXL PP RORG PP PAGE PP LIST P$,IRBCRO BYTE 0  VDT CURSOR IN FIELD ROW,0IRBCCO BYTE 0  VDT CURSOR IN FIELD COLUMN 0,IRBFRO BYTE 0  VDT FIELD BEGINNING ROW,0IRBFCO BYTE 0  VDT FIELD BEGINNING COLUMN 0* ' VARNT VARNT2 0IRBVTA PTRPATH VALIDATION TABLE ADDRESS 0* '( VARNT VARNT1  I/O UTILITY VARIANT( IRBTYP BYTE 0  RESOURCE TYPE STE PT2|| UNL#@************************************************************ @ *  * . * SWAP TABLE ENTRY (STE) 11/05/81 * . *  * *  LOCATION: SYSTEM JCA  * @************************************************************ @<* FOR EACH SEGMENT ON THE SWAP FILE, THERE EXISTS AN STE <>* IN MEMORY, LINKED IN FILE RECORD ORDER ON THE FILE. THE >** ANCHOR OF STES IS ROLDIR IN PMDATA. *  DORG 0 ! $STERDT DATA 0 LINK TO NEXT S%%TE$2STEPRC DATA 0 ROLL FILE PHYS. RECORD NUMBER 20STERRL DATA 0 NUMBER RECORDS IN ROLL FILE 0&STELDT DATA 0  CONTENTS OF OVBPTR&STESIZ EQU$ !  RORG "  PAGE "  LIST " * LOCATION: DISK RLQ PT2|~ UNL#@************************************************************ @2 * REQUEST LIST QUEUE  (RLQ) 12/01/82  * 2 *  * (*  LOCATION: SYSTEM TABLE AREA  * (@************************************************************ @>* THIS IS THE ENTRY OF REQUEST LIST IN FCB, FCBRLA IS THE >@* QUEUE HEADER. FOR FILE MANAGEMENT PARALLELISM, THE REQUEST @>* WHICH CAN NOT ACCESS FILE IMMEDIATELY IS QUEUED TO FCB. >  DORG 0 ! *RLQRLQ PTRRLQ  NEXT ENTRY ADDRESS *"RLQIRB PTRIRB  IRB ADDRESS"* 'RLQSIZ EQU$ !  RORG "  PAGE "  LIST " PP* 10=GLOBAL P* JMR P T(P2|@ UNL#@*********************************************************** @ * * 4 * JOB MANAGEMENT REQUEST  (JMR) 04/28/79 * 4**  LOCATION: SYSTEM TABLE AREA * * * * @*********************************************************** @>* THE JMR IS A DESCRIPTION OF A JOB MANAGEMENT SVC BLOCK. ><* IT IS USED WITHIN JOB MANAGMENT TO SCAN THE USER'S SVC <* REQUEST.#  DORG 0 ! "JMRSVC BYTE 0 SVC CODE(48)"JMRERR BYTE 0 ERROR CODE*JMROP BYTE 0  JOB MANAGER SUBOPCODE * JMRPRI BYTE 0 JOB PRIORITY 0JMRFLG FLAGS 16  JOB MANAGER CONTROL FLAGS 00 FLAG JMFNIDNEW USED ID SPECIFIED (CREATE) 0, FLAG JMFVER BYPASS VERFY CHECKS IN JM , FLAG JMFBCHBATCH JOB . BITS JMFRES,8 FLAG BITS 3 - 10 RESERVED .$ BITS JMFPVL,5PRIVILEGE LEVEL $JMRJID DATA 0 JOB ID,JMRNAM CHAR 8  USER SPECIFIED JOB NAME ,,JMRSIZ EQU$  SIZE OF BASIC CALL BLOCK ,@*************** REMANDER OF BLOCK FOR CREATE ONLY ********** @,JMRTID BYTE 0  TASK ID OF INITIAL TASK ,&JMRSSZ BYTE 0  SIZE OF JCA 1,2,3&(JMRPRM BSS4  TASK BID PARAMETERS (,JMRSID BYTE 0  STATION ID OF TASK (JOB) ,.JMRPFL BYTE 0  PROGRAM FILE LUNO OF TASK ..JMRSYN DATA 0  SYNONYM SEGMENT SEGMENT ID .2JMRLNM DATA 0 LOGICAL NAME BLOCK SEGMENT ID 2JMRUID CHAR 8 USER ID JMRPWD CHAR 8 PASSWORD"JMRACC CHAR 16ACCOUNT NUMBER"JMRSZ2 EQU$ JMR  SIZ FOR CREATE OPERATION   RORG "  LIST "  PAGE " @2 * REQUEST LIST QUEUE  (RLQ) 12/01/82  * 2 *  * (*  LOCATION: SYSTEM TABLE AREA  * (@************************************************************ @>* THIS IS THE ENTRY OF REQUEST LIST IN FCB, FCBRLA IS THE >@* QUEUE HEADER. FOR FILE MANAGEMENT PARALLELISM, THE REQUEST @>* WHICH CAN NOT ACCESS FILE IMMEDIATELY IS QUEUED TO FCB. >  DORG 0 ! *RLQRLQ PTRRLQ  NEXT ENTRY ADDRESS *"RLQIRB PTRIRB  IRB ADDRESS"* 'RLQSIZ EQU$ !  RORG "  PAGE "  LIST " PP* 10=GLOBAL P* ENF PT2| UNL#@************************************************************ @ *  * 2*  EXTERNAL NAME FLAG  (ENF) 08/24/81 * 2 *  * @*  LOCATION:A SEQUENTIAL FILE HOLDING NAME DEFINITIONS * @@************************************************************ @  DORG 0 ! .ENDFLG FLAGS 16  EXT NAME DEFN FLAG WORD ., FLAG ENFLOG LOGICAL NAME = 1, SYN = 0 ,& FLAG ENFNAMTHIS IS A NAME= 1 && FLAG ENFVAL THIS IS A VALUE = 1 &$ FLAG ENFPRM THIS IS A PARM = 1$, FLAG ENFEXT THIS IS AN EXTRA VALUE = 1 ,( FLAG ENFPPF PARMS ARE PRESENT = 1 (* BITS ENFRES,10  RESERVED AT PRESENT *  PAGE "  RORG "  LIST " PASS VERFY CHECKS IN JM , FLAG JMFBCHVCB PT! 2| UNL#@************************************************************ @8*  VALUE CONTINUATION BLOCK (VCB)  07/16/81 * 8 *  * 2*  LOCATION: A NAME DEFINITION SEGMENT  * 2@************************************************************ @  DORG 0 ! *VCBVCB PTRVCB  POINTER TO NEXT NCB **VCBSIZ EQU$  LENGTH OF NCB OVERHEAD*  RORG "  PAGE "  LIST " * 2 *  * @*  LOCATION:A SEQUENTIAL FILE HOLDING NAME DEFINITIONS * @@************************************************************ @  DORG 0 ! .ENDFLG FLAGS 16  EXT NAME DEFN FLAG WORD ., FLAG ENFLOG LOGICAL NAME = 1, SYN = 0 ,& FLAG ENFNAMTHIS IS A NAME= 1 && FLAG ENFVAL THIS IEOD DECLARE D f<ffxx_YUTTINT P?:*2gx PROCEDURE UTTINT; EXTERNAL;  );FORWARD; PPPROCEDURE MCINEW(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIASG(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCILOG(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIDEL(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIMOD(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIFND(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCISFND(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIEFND(VAR ERROR: BOOLEAN);FORWARD; PPROCEDURE MCIIDE(VUTGTSB P=H:2xc8FUNCTION UTGTSB( START : TSBPTR): TSBPTR; EXTERNAL; 8(*$NO LIST*)":" START IS EITHER A TSB ADDRESS OR NIL - IF IT IS NIL ::"  THE SEARCH FOR THE NEXT TSB WILL START AT JITTSB; :<"  OTHERWISE THE SEARCH STARTS WITH THE TSB POINTED TO <"  BY START (*$LIST*) # POINTER TO NEXT NCB **VCBSIZ E"k4D`4L$C***********************************************************************LC '6C PATCH SYNONYM GENERATOR ERROR DETECTION COMMON6C 'C '"INTEGER ERRSEV, ERROR, ERRORL "C ',COMMON /PSTERR/ ERRSEV, ERROR(3), ERRORL,C 'L$C***********************************************************************LKEN(10), CHAR, VALUE, MTSPCONS P=KZ p2xd@P(*$ NO LIST *) PP"************************************************* PP" SPCONS - SPOOLER CONSTANTS * PP" 06/08/83 * PP"************************************************* PP" PP" --- MISCELLANEOUS CONSTANTS PP" PP MINUTES_PER_DAY = 24*60; P J DEVICE = TRUE; JP CLASS = FALSE; PP" PP"-- DEVICE TABLE AND QUEUE FILE (.S$SDTQUE) CONSTANTS PP" PP RECSIZ=3*256; "PHYSICAL RECORD SIZE PP CNTNUM=48; "NUMBER OF CNT ENTRIES IN RECORD PP SDQNUM=6; "NUMBER OF SDQ ENTRIES IN RECORD PP SDTNUM=12; "NUMBER OF SDT ENTRIES IN RECORD P " D DP"---- SYSTEM LOG MESSAGE PARAMETERS PP" PP MSGLNG=50; "SPOOLER ERROR MESSAGE TEXT LENGTH PP MAXMSG=20; "MAXIMUM SPOOLER ERROR MESSAGES PP" PP"-- SYSTEM LOG M%%ESSAGE NUMBERS PP" PP LG_MAPID =01; "CANNOT MAP TO INSTALLED ID OF TASK P LG_BID >=02; "CANNOT BID TASK >P LG_CHAN =03; "CANNOT CREATE SPOOLER CHANNEL PP " (.S$DSTCHN) PP LG_CH_ASG =04; "CANNOT ASSIGN SPOOLER CHANNEL PP LG_CH_OPEN =05; "CANNOT OPEN SPOOLER CHANNEL PP LG_F_ASG =06; "CANNOT ASSIGN SPOOLER FILE PP " (.S$SDTQUE) PP LG_F_OPEN =07; "CANNOT OPEN SPOOLER FILE PP LG_IO =08; "SPOOLER FILE I/O ERROR; P LG_ACCMSG =09; 8 "SPOOLER ACCOUNTING DISABLED 8P LG_MWRT =#0A; ".S$DSTCHN IPC I/O ERROR PP LG_QFULL =#0B; ".S$SDTQUE FILE IS FULL PP LG_DEVIO =#0C; "CANNOT CREATE .S$SPLR DIRECTORY PP LG_FILE =#0D; "CANNOT DELETE QUEUE FILE PP LG_S$SPOOL =#0E; "CANNOT CREATE .S$SPOOL CHANNEL PP LG_ACC =#0F; "CANNOT CREATE .S$ACCCHN CHANNEL PP LG_MAXDEV =#10; "DEVICE TABLE IS FULL PP LG_MAXCLASS=#11; "CLASS NAME TABLE IS FULL P LG_ABEND =#12; "LPWR2ITER: ABNORMAL TERMINATION 2P LG_QFILE =#13; ".S$SDTQUE DIRECTORY IS FULL PP LG_SEMA =#14; "OS DOES NOT SUPPORT SEMAPHORE PP " SVC OPERATIONS PP" PP"-- ERROR CODES THAT ARE RETURNED TO USER PP" PP NAME_ERR =01; "INVALID DEVICE OR CLASS NAME PP CODE_ERR =02; "INVALID MESSAGE CODE RECEIVED P$ FULL_ERR =03; "NO ROOM IN$, QUEUE FILE (.S$SDTQUE) ,P LOGN_ERR =04; "CANNOT CREATE SPOOL ID LOG NAME PP PATH_ERR =05; "INVALID PATHNAME RECEIVED PP CONCAT_ERR =06; "INVALID CONCATENATED PATHNAME SYNTAX PP SPLID_ERR =07; "CANNOT FIND SPOOL ID YOU REQUESTED PP PRIV_ERR =08; "MUST BE ENTRY OWNER OR PP " SYSTEM OPERATOR PP PRIORITY_ERR=09; "INVALID PRIORITY SPECIFIED PP ACTIVE_ERR =10; "ACTIVE QUEUE ENTRIES: DEVICE OR P* " ITS CLASS NA*&MES CANNOT BE &P " DELETED PP MAX_DEVICE =11; "DEVICE TABLE IS FULL PP MAX_CLASS =12; "CLASS NAME TABLE IS FULL PP DEV_NOT_AVB =13; "DEVICE IS NOT AVAILABLE TO THE SPOOLER PP " SUBSYSTEM AT THIS TIME PP USE_CONFLICT=14; "DEVICE CANNOT BE AVAILABLE AND REMOTE/SHARED PP " SIMULTANEOUSLY PP USER_ERR =#E5; "INVALID REQUEST (USER ERROR) P0" 0 P"-- SPOOLER MESSAGE CODES PP" PP DONE =00; "WRITER TASK HAS COMPLETED PP PRINT =01; "PRINT FILE MESSAGE PP HALT =02; "HALT OUTPUT MESSAGE PP RESUME =03; "RESUME OUTPUT MESSAGE PP KILL =04; "KILL OUTPUT MESSAGE PP MODIFY =05; "MODIFY OUTPUT MESSAGE P6 MOD_DEV =06; "MODIFY SPOOLER DEVICE MESSAG6E P VFY_DEV =07; "VERIFY DEVICE OR CLASS NAME PP FIND_FILE_NAME=08;"FIND FILE NAME-GIVEN SPOOL ID *1.2* PP" PP COPY_CNT =20; "PERFORM COPY COUNT MAINTENANCE *1.1* PP FAKE_MOD_DEV=21; "FAKE MSD MESSAGE FROM LPWRITER *1.2* PP FAKE_MODIFY =22; "FAKE MO MESSAGE FROM LPWRITER *1.2* PP(*$RESUME LIST*) P6"*  BIGGER, SO WE FORCED CRASH "4CSH164 EQU>0164 NFCALR - MEMRES OVLY ROUTINE 4 *  CALLED W !!k4`4YLOG P ?=%2hx@(*$NO LIST*)"@"*********************************************************** @2" DECLARATIONS FOR LGFORM,LGACCT AND LOG * 2" 19 AUGUST 1980 * @"*********************************************************** @" '@" LGFORM FORMATS THE MESSAGES TO SYSTEM LOG - NO PARAMETERS @ PROCEDURE LGFORM; FORWARD;" '>" LGCHEK TRIES TO WRITE TO THE LOG, TIME DELAYS IF CANNOT >H"PROCEDURE LGCHEK( VAR REC_BLK : LOG_REC; VAR FILE_NAME : LOG_FILE );H FORWARD; " '0" LGSWTH SWITCHES FROM ONE FILE TO THE OTHER0>FUNCTION LGSWTH ( VAR LFD_BLK : LFD ) : INTEGER;FORWARD; >" 'N%" LGWLOG WRITES A MESSAGE TO THE LOG DEVICE AND/OR FILE WITH ERROR CHECKS N PROCEDURE LGWLOG ( V6AR REC_BLK : LOG_REC; VAR FILE_NAME : LOG_FILE ); 6 FORWARD; " '6" LGATTN OUTPUTS A MESSAGE TO THE ATTENTION DEVICE6@PROCEDURE LGATTN ( MSG_TYPE : ATTN_TYPE; ERR_CODE : INTEGER; @"VAR REC : LOG_REC ); FORWARD; "" '4" LGALUN ASSIGNS A LUNO TO THE CURRENT LOG FILE 4D FUNCTION LGALUN ( VAR LFD_BLK : LFD; VAR FILE_NAME : LOG_FILE ) D : INTEGER; FORWARD; " '*" LGWDEV WRITES A MESSAGE TO A DEVICE *BFUNCTION LGWDEV ( VAR MESSAGE : LOG_REC; DEV_NAME : PATHNAME ) B : INTEGER; FORWARD; " '@" LGWACC WRITES A ACCOUNTING RECORD TO THE ACCOUNTING FILES. @H"PROCEDURE LGWACC ( VAR REC_BLK : LOG_REC; VAR FILE_NAME : LOG_FILE ;H$ DATE_BUF : LOG_REC ); FORWARD; $TY((*$RESUME LIST*) INTEGER; FORWARD; DPFUNCTION SPTIME : INTEGER; FORWARD; PP6 k4x`4 var KEY: boolean; var ADRNUM : WORD; $ var KDRNUM : WORD);  forward; $(" procedure BDVECT;  forward; "(" procedure BDVERF;  forward; "($procedure BDWDSK(WICH : ZERONE; $. var WRITE_STARTED : g,fx`4SCIQUE 5530000000012/22/8215:33:430000000000PLINHB P=l,2xg"PROCEDURE PLINHB ; FORWARD; "B: JSB): STRING; FORWARD; D PP"---- SYSTEM LOG MESSAGE PARAMETERS PP" PP MSGLNG=50; "SPOOLER ERROR MESSAGE TEXT LENGTH PP MAXMSG=20; "MAXIMUM SPOOLER ERROR MESSAGES PP" PP"-- SYSTEM LOG MESSAGE NUMBERS PP" PP LG_MAPID =0\XOITSK  ?F;2 x@"***********************************************************$@:"  XOIPRC - OPERATOR INTERFACE TASK DECLARATIONS *$:" 03 MARCH1981 *$@"***********************************************************$@" A" PROCEDURE XOIINT;  FORWARD; 1"" PROCEDURE XOISET;  FORWARD; 1"" PROCEDURE XOIROM;  FORWARD; 1"" PROCEDURE XOIKOM;  FORWARD; 1"" PROCEDURE XOILOM;  FORWARD; 1"" PROCEDURE XOIXOI;  FOR%%WARD; 1"" PROCEDURE XOIQOI;  FORWARD; 1"" PROCEDURE XOICRM;  FORWARD; 1"PROCEDURE XOIROI:0 (CALLR$PARM : BOOLEAN);" CALL R$PARM FLAG(0  FORWARD; 1PROCEDURE XOIDSP:8 (SUSPEND : BOOLEAN); " SUSPEND FOR READING FLAG $8  FORWARD; 1PROCEDURE XOISVC:@2 ( BLOCKADDR : ADDRESS); " SVC BLOCK ADDRESS (2  FORWARD; 1PROCEDURE XOIKEY:: ( VAR STAYACTIVE : BOOLEAN);" TERMINATE XOI LOOP FLAG$:  FORWARD; 1PROCEDURE XOISIO:: ( HDRSTRING : STRING; " HEADER STRING FOR SCREEN #:. VAR PROMPTCOUNT : INTEGER;" PROMPT COUNT ).8 PRSTRING1 : PRPTR;  " POINTER TO PROMPT 1 STRING "82 PRTYPE1 : INTEGER;  " TYPE OF REPLY DESIRED%2> IVSTRING1 : IVPTR;  " POINTER TO INIT VAL/RETURNED VAL > " STRING FOR PROMPT 1 $8 PRSTRING2 : PRPTR;  " POINTER TO PROMPT 2 STRING "82 PRTYPE2 : INTEGER;  " TYPE OF REPLY DESIRED%2> IVSTRING2 : IVPTR;); " POINTER TO INIT VAL/RETURNED VAL > " STRING FOR PROMPT 2 $  FORWARD; 1FUNCTION XOIVAL :, (PRTYPE : INTEGER; " TYPE FOR PROMPT *,4IVSTRING : IVPTR; " POINTER TO VALUE TO VALIDATE$44VAR ERRMSG : ADDRESS) "POINTER TO ERROR MESSAGE $4: BOOLEAN; FORWARD; 1 PROCEDURE SET$ACNM9 ( VAR F : TEXT;" FILE0( VAR ACNM : STRING09);" ACCESS NAME ,(  EXTERNAL;1FUNCTION R$FMT;D (PARM1 : INTEGER; PARM2 : STRING; PARM3,PARM4,PARM5 : ADDRESS; D(PARM6 : INTEGER): INTEGER; EXTERNAL;*(FUNCTION R$GKEY :H"( VAR PARM1 : INTEGER; PARM2 : ADDRESS; VAR PARM3 : WORD): INTEGER; H  EXTERNAL;1" A$?COPY DSC.TEMPLATE.DECLARE.SVC$ 2$(?COPY DSC.TEMPLATE.DECLARE.R$ROUTIN 0(&?COPY DSC.TEMPLATE.DECLARE.UTCHEK 1&&?COPY DSC.TEMPLATE.DECLARE.UTLMSG 1&*" AEDURE LIST2; FORWARD;  PROCEDURE LOOK; FORWARD; PROCEDURE MTBUF; FORWARD;  PROCEDURE SHOWDV; FORWARD;,PROCEDURE FORMDV(X : INTEGER); FORWARD; ,,PROCEDURE LONGPR(X : INTEGER); FORWARD; ,,PROCEDURE PRINT(LEN : INTEGER); FORWARD;, PROCEDURE PUNT; FORWARD;  PROCEDURE RENAME; FORWARD;.PROCEDURE RSET( LUNO : INTEGER ); FORWARD;.0PROCEDURE REWRIT( LUNO : INTEGER ); FORWARD;00PROCEDURE RWSEQ( LUNO : INTEGER ); FORWARD; 0PROCEDURE SETUP;FORWARD; PROCEDURE STOP; FORWARD; MUST BE ENTRY OWNER OR PP "k4x`4@2PROCEDURE FILLTB(USERANS : BOOLEAN); FORWARD; 2(PROCEDURE GJ(X : INTEGER); FORWARD; \LNROUTINP?R 2#x@" '8" ASSIGN LOGICAL NAME UTILITY PROCEDURE DECLARATIONS8" '8PROCEDURE LNAFP;FORWARD; "ASSIGN FILE PARAMETERS 84PROCEDURE LNALN;FORWARD; "ASSIGN LOGICAL NAME48PROCEDURE LNCFP;FORWARD; "CREATE FILE PARAMETERS 8H PROCEDURE LNCSVC(MULTI: INTEGER); FORWARD;"DO CREATE LOG. NAME SVCH8PROCEDURE LNDIR;FORWARD; "ASSIGN DIRECTORY PARMS 8BPROCEDURE LNGPRM(PARMNO : INTEGER; "GET PARM FROM PARMS LIST B  PARM : STRING);FORWARD; 4PROCEDURE LNIMG;FORWARD; "ASSIGN IMAGE PARMS 42PROCEDURE LNKEY;FORWARD; "ASSIGN KIF PARMS 24PROCEDURE LNLLN;FORWARD; "LIST LOGICAL NAMES 4>FUNCTIONLNMAPL(NAME,VALUE : STRING;  "MAP LOGICAL NAME > VAR MORE : INTEGER) : INTEGER;  FORWARD; 8PROCEDURE LNPRO;FORWARD; "ASSIGN PROG. FILE PARMS8:PROCEDURE LNREL;FORWARD; "ASSIGN RELATIVE REC PARMS:8PROCEDURE LNSEQ;FORWARD; "ASSIGN SEQUENTIAL PARMS86PROCEDURE LNRLN;FORWARD; "RELEASE LOGICAL NAME 6( VAR ACNM : STRING09);" ACCESS NAME ,(  EXTERNAL;1FUNCTION R$FMT;D (PARM1 : INTEGER; PARM2 : STRING; PARM3,PARM4,PARM5 : ADDRESS; D(PARM6 : INTEGER): INTEGER; EXTERNAL;*(FUNCTION R$GKEY :H"( VAR PARM1 : INTEGER; PARM2 : ADDRESS; VAR PARM3 : WORD): INTEGER; H  EXTERNAL;1" A$?COPY DSC.TEMPLATE.DECLARE.SVC$ 2$(?COPY DSC.TEMPLATE.DECLARE.R$ROUTIN 0(&?COPY DSC.TEMPLATE.DECLARE.UTCHEK 1&&?COPY DSC.TEMPLATE.DECLARE.UTLMSG 1& :*PLENAB P=u,2xk"PROCEDURE PLENAB ; FORWARD; "ORWARD; (0PROCEDURE UTPSER(P1,P2 : INTEGER); EXTERNAL;02PROCEDURE RS$APPEND(X,Y : INTEGER); EXTERNAL; 2 PROCEDURE OVLY$(LOAD : IERS PP"  k4`4@(*$NO LIST*)"(FUNCTION MATCH : BOOLEAN; FORWARD; (8FUNCTIONMEOF( LUNO : INTEGER) : BOOLEAN; FORWARD; 8(FUNCTION ASKNMB : INTEGER; FORWARD;((FUNCTION ASKYN : BOOLEAN; FORWARD;(>FUNCTIONFNDQST(SYSTEMQST : BOOLEAN) : BOOLEAN; FORWARD; >:FUNCTIONFNDANS(START : INTEGER) : BOOLEAN; FORWARD; :<FUNCTIONTILDEV(VAR XDEV : DEVICE) : BOOLEAN; FORWARD; <<FUNCTIONATLDEV(VAR XDEV : DEVICE) : BOOLEAN; FORWARD; <6FUNCTIRSLGST P=xJ2xl@FUNCTIONRSLGST ( VAR LFD_BLK : LFD ) : INTEGER ; FORWARD ; @TIONMEOF( LUNO : INTEGER) : BOOLEAN; FORWARD; 8(FUNCTION ASKNMB : INTEGER; FORWARD;((FUNCTION ASKYN : BOOLEAN; FORWARD;(>FUNCTIONFNDQST(SYSTEMQST : BOOLEAN) : BOOLEAN; FORWARD; >:FUNCTIONFNDANS(START : INTEGER) : BOOLEAN; FORWARD; :<FUNCTIONTILDEV(VAR XDEV : DEVICE) : BOOLEAN; FORWARD; <<FUNCTIONATLDEV(VAR XDEV : DEVICE) : BOOLEAN; FORWARD; <6FUNCTIONR$MAPS(X,Y : INTEGER):INTEGER; EXTERNAL;68FUNCTIONAD"k4D`4"PROCEDURE PLENAB ; FORWARD; "ORWARD; (0PROCEDURE UTPSER(P1,P2 : INTEGER); EXTERNAL;02PROCEDURE RS$APPEND(X,Y : INTEGER); EXTERNAL; 2 PROCEDURE OVLY$(LOAD : I CSMPROCSP={2xn@(*$ NO LIST *)!L$"********************************************************************** L" 'B"  PROCEDURE DECLARATIONS FOR COPY SEQUENTIAL MEDIA UTILITY B" 'L$"********************************************************************** L" ' PROCEDURE CSMGBF; FORWARD; PROCEDURE CSMOPN; FORWARD; PROCEDURE CSMRWT; FORWARD; PROCEDURE CSMCLS; FORWARD; PROCEDURE CSMWRR; FORWARD; PROCEDURE CSMWRE; FORWARD; PROCEDURE CSMEND; FORWARD; PROCEDURE CSMST ; FORWARD; 6PROCEDURE CSMCPY(DUAL_PROCESS : BOOLEAN); FORWARD;66PROCEDURE CSMVER(DUAL_PROCESS : BOOLEAN); FORWARD;6.PROCEDURE CSMRDR(DEVICE : BYTE); FORWARD; . PROCEDURE CSMINT(VAR_NUM4 : LONGINT; VAR VAR_MSG_PTR : STRING); FORWARD; 4:PROCEDURE CSMCHK(VAR DEVICE_TYPE : BOOLEAN); FORWARD; :4PROCEDURE CSMUPD(MASTER_STATE,COPY_STATE : BYTE;4& DUAL_PROCESS : BOOLEAN); FORWARD;&@PROCEDURE CSMIRB(IRBADR : PTRIRB; PPTR : PATHNAME); FORWARD; @>PROCEDURE CSMLST(MSG_NUM : INTEGER; VAR_MSG_PTR : STRING; >0 LINE_CNTRL : BYTE; ERR_SRC_FLAG : INTEGER; 0& ERR_SEV_FLAG : BOOLEAN); FORWARD;& (*$ RESUME LIST *): INTEGER); J FORWARD; ,PROCEDURE ADDNMB(X : INTEGER); FORWARD; ,(PROCEDURE ADDPAT(X : PPTH); FORWARD;( PROCEDURE ADDXOP; FORWARD; PROCEDURE ASKELM; FORWARD;,PROCEDURE ASKGEN(X : INTEGER); FORWARD; , PROCEDURE ASKNAM; FORWARD;PROCEDURE AS PLQUEH P=h2xo2PROCEDURE PLQUEH(  QUE_HEAD  : ADDRESS; 2(  SVC_PTR : ADDRESS ) ; FORWARD; (ˊˎhN ˊ  ` ˊ ˎa a  h:./ˌˎC ˊ  Zˆa .NK :   ??LSCTSK P=f2xq@"*********************************************************** @6"  LSCPRC - LSC TASK PROCEDURE DECLARATIONS  * 6" 23 OCT 1980  * @"*********************************************************** @" '" PROCEDURE LSCINT;  FORWARD; "PROCEDURE LSCSAV 2 ( SPTR : STRING); " PROCESS HISTORY RECORDS 2  FORWARD; PROCEDURE LSCFMT 2 ( TXPTR : STRING);  " RETURN SUMMARY RECORDS 2  FORWARD; " '$?COPY DSC.TEMPLATE.DECLARE.SVC$ $(?COPY DSC.TEMPLATE.DECLARE.R$ROUTIN (&?COPY DSC.TEMPLATE.DECLARE.UTCHEK &" ' : ADDRESS; 2(  SVC_PTR : ADDRESS ) ; FORWARD; (ˊˎhN ˊ  ` ˊ ˎa a  h:./ˌ%%ˎC\CV P?X2jx@L$(*$NO LIST*)"************Begin FORWARDs for Copy Volume*****************L(0PROCEDURE CVCMPB ( VAR IO_BUF : BUFFER  ; 0 VAR VR_BUF : BUFFER  ; NUMWRD : WORD  ; & VAR ERRFLG : INT16); EXTERNAL;&(0PROCEDURE CVDMVB ( VAR SRCBUF : BUFFER  ; 0 VAR DSTBUF : BUFFER  ; "NUMWRD : WORD ); EXTERNAL;"($PROCEDURE CVEACT ; EXTERNAL;$($PROCEDURE CVENDC ; EXTERNAL;$(($PROCEDURE CVLCOM ; EXTERNAL;$(0PROCEDURE CVMOVB ( VAR SRCBUF : BUFFER  ; 0SRCIDX : WORD  ;  VAR DSTBUF : BUFFER  ; DSTIDX : WORD  ; "NUMWRD : WORD ); EXTERNAL;"(($PROCEDURE CVMSGM ; EXTERNAL;$(PROCEDURE CV&PMSG ( VAR MSGARR : MSG_ARRAY ; &MSGROW : WORD  ; "MSGCOL : WORD ); EXTERNAL;"($PROCEDURE CVRRTE ; EXTERNAL;$(:PROCEDURE CVSTRT( DIRSIZ  : INT16); EXTERNAL;:(0 PROCEDURE INIT$BLOCK( LOC  : INT16 ; 0LEN  : INT16 ; "VAL  : INT16); EXTERNAL;"(6PROCEDURE SVC$ ( VAR IRBREC : IRB); EXTERNAL;6((0PROCEDURE BADSTF(ADU,NUM:WORD;ENDIDX:INT16; 0"VAR ERRLOC:WORD;ERRCOD:WORD); " FORWARD;$ ($PROCEDURE CVALCA ; FORWARD; $(0PROCEDURE CVALCD ( VAR SATTBL : SAT_TBL ; 0 VAR ALCPAA : WORD  ;  VAR ALCPAS : WORD  ; & VAR ALCSTI : WORD ); FORWARD; &(PROCEDURE CVBIAS( VAR &MSG  : MSG_ARRAY); FORWARD; &((,PROCEDURE CVCDEV ( VAR IRBREC : IRB ; ,  VAR DEVNAM : DEVICE_NAME ;  VAR VOLNAM : VOLUME_NAME ; * VAR DSKMSG : MSG_ARRAY); FORWARD; *(@PROCEDURE CVCDIO( VAR CORREC : COR_REC_DEFN ); FORWARD; @(4PROCEDURE CVCFLE( VAR BARREC : BAR_REC_DEFN ; 4$FORMAT : BOOLEAN); FORWARD; $(@PROCEDURE CVCPRM( VAR AFRREC : AFR_REC_DEFN ); FORWARD; @(,FUNCTIONCVCSCY( ADUADR : WORD  ; ,SECOFF : WORD  ; SECADU : WORD  ; SECCYL : WORD ): WORD; FORWARD; (4PROCEDURE CVCSNW( VAR BARREC : BAR_REC_DEFN ; 4 VAR AFRREC : AFR_REC_DEFN ; $ VAR SRCNWM : WORD ); FORWARD; $(@PROCEDURE CVCSRD( VAR CORREC : COR_REC_DEFN ); FORWARD; @(,PROCEDURE CVCSVC( IRRIDX : INT16 ; , VAR XBDADU : BAD_ADU_ARRAY ;  VAR XBDIDX : INT16 ;  VAR DSKMSG : MSG_ARRAY ;  VAR ERRSVC : INT16 ; "SECSIZ : WORD ); FORWARD; "(@PROCEDURE CVCVER( VAR CORREC : COR_REC_DEFN ); FORWARD; @($PROCEDURE CVCVOL ; FORWARD; $($PROCEDURE CVENDR ; FORWARD; $(@PROCEDURE CVFFOR( VAR BARREC : BAR_REC_DEFN ); FORWARD; @(,FUNCTIONCVFNC1( OP1  : WORD  ; ,OP2  : WORD  ; TYP  : INT16): WORD; FORWARD; (,FUNCTIONCVFNC2( OP1  : WORD  ; ,OP2  : WORD  ; OP3  : WORD  ; TYP  : INT16): WORD; FORWARD; (.PROCEDURE CVFNC3( VAR OP1: INT32  ; . OP2: WORD ; &VAR RET1: INT32 ); FORWARD; &(8PROCEDURE CVFSRD( AFRIDX : INT16); FORWARD; 8(4PROCEDURE CVGIOB( VAR AFRREC: AFR_REC_DEFN ; 4&VAR TMPDSA: WORD); FORWARD; &(4PROCEDURE CVLAFR( VAR AFRREC : AFR_REC_DEFN ; 4 VAR APRREC : APR_REC_DEFN ; $VAR PFIREC : PFI); FORWARD; $(@PROCEDURE CVPDIR( VAR CORREC : COR_REC_DEFN ); FORWARD; @(,PROCEDURE CVPERM( ERRCOD : WORD  ; ,ERRIDX : INT16 ;  VAR ERRMSG : MSG_ARRAY ; * VAR MSGARR : MSG_ARRAY); FORWARD; *(PROCEDURE CVPHDR ; FORWARD; ($PROCEDURE CVPPGF ; FORWARD; $(:PROCEDURE CVPSTA( INITIO : BOOLEAN); FORWARD; :(8PROCEDURE CVPSVC ( VAR IRBREC : IRB); FORWARD; 8(,PROCEDURE CVRWVR ( VAR IOIRB : IRB ; ,VAR VERIRB : IRB ; VERIO : BOOLEAN ; * VAR DSKMSG : MSG_ARRAY); FORWARD; *($PROCEDURE CVSMAP ; FORWARD; $($PROCEDURE CVSTR1 ; FORWARD; $(0PROCEDURE CVSTR2 ( VAR SRCBUF : BUFFER  ; 0( VAR DSTBUF : BUFFER ); FORWARD; ((4PROCEDURE CVTRCP( VAR BADADU : BAD_ADU_ARRAY ; 4  VAR VOLNAM : VOLUME_NAME ; DSKLUN : INT16 ; VCTADU : WORD  ; SECSIZ : INT16 ; SECADU : INT16 ; VAR DS$KMSG : MSG_ARRAY); FORWARD; $(L(*$RESUME LIST*)"********End FORWARDs*********************************L OFF  : INTEGER; " VAR DST  : WORD); FORWARD; ":PROCEDURE RVSLUF( VAR SCIBNM : LONG_STRING);FORWARD; :(4 PROCEDURE RVSMDB( VAR DBK  : WORD); FORWARD; 44 PROCEDURE RVSMFB( VAR FBK  : WORD); FORWARD; 4 PROCEDURE RVSMFL; FORWARD; PROCEDURE RVSMFS; FORWARD; PROCEDURE RVSMMF; FORWARD; PROCEDURE RVSMMS; FORWARD; , PROCEDURE RVSMSG( VAR MSG  : MESSAGE; , SKIP : INTEGER);FORWARD; (& PROCEDURE RVSMVA( DBA  : WORD;& FBA  : WORD; MBS  : WORD); FORWARD; & PROCEDURE RVSMVB( SRC  : WORD;& DST  : WORD;UTCHEK P=>2!xt4PROCEDURE UTCHEK(ERROR_CODE : INTEGER); FORWARD;4"PROCEDURE XOIROI:0 (CALLR$PARM : BOOLEAN);" CALL R$PARM FLAG(0  FORWARD; 1PROCEDURE XOIDSP:8 (SUSPEND : BOOLEAN); " SUSPEND FOR READING FLAG $8  FORWARD; 1PROCEDURE XOISVC:@"********************************************************* k4`4@"***********************************************************$@:"  XOIPRC - OPERATOR INTERFACE TASK DECLARATIONS *$:" 03 MARCH1981 *$@"***********************************************************$@" A" PROCEDURE XOIINT;  FORWARD; 1"" PROCEDURE XOISET;  FORWARD; 1"" PROCEDURE XOIROM;  FORWARD; 1"" PROCEDURE XOIKOM;  FORWAPLACTQ P=J2"xv@PROCEDURE PLACTQ(  QUE_HEAD  : ADDRESS ) ; FORWARD; @URE XOIROI:0 (CALLR$PARM : BOOLEAN);" CALL R$PARM FLAG(0  FORWARD; 1PROCEDURE XOIDSP:8 (SUSPEND : BOOLEAN); " SUSPEND FOR READING FLAG $8  FORWARD; 1PROCEDURE XOISVC:@"********************************************************* k4`4@"***********************************************************$@:"  XOIPRC - OPERATOR INTERFACE TASK DECLARATIONS *$:" 03 MARCH1981 *$@"***********************************************************$@" A" PROCEDURE XOIINT;  FORWARD; 1"" PROCEDURE XOISET;  FORWARD; 1"" PROCEDURE XOIROM;  FORWARD; 1"" PROCEDURE XOIKOM;  FORWAdUTLLWT P?m2xx(FUNCTION UTLLWT ( BUFFER : BUF1600 ;( START_COL : INTEGER ;  BUF_SIZE: INTEGER ; . KEYLEN : INTEGER) : INTEGER;  EXTERNAL;. PER RECORD 6* ' PCKREC SDT SDTFLG FLAGS 8STATUS FLAGS & FLAG SDFDEL TRUE=DELETED ENTRY &0 FLAG SDFAVB TRUE=NOT AVAILABLE TO SPOOLER 0& FLAG SDFHLT TRUE=DEVICE HALTED &$ FLAG SDFBSY TRUE=DEVICE BUSY $2 FLAG SDFFRM TRUE=DEVICE DOES NOT USE FORMS 2,SDTLUN BYTE 0  ASSIGNED JOB-LOCAL LUNO,,SDTAPR BYTE 0  ACTIVE REQUEST PRIORITY,,SDTQPR BYTE 0  QUEUED REQUEST PRIORITY,2SDTARN BYTE 0  ACTIVE REQUEST RECORD NUMBER 22SDTQRN BYTE 0  QUEUED REQUEST RECORD NUMBER 2(SDTAOF BYTE 0  ACTIVE REQUEST RECORD(eSIS P?p2yx@(*$NO LIST*)"L$"-----------------------------------------------------------------------L" '." DECLARATIONS FOR SIS UTILITY 8/19/80 ." 'L$"-----------------------------------------------------------------------L(F!PROCEDURE SIGLOB(LUNO : INTEGER;ONLY_ONE_LUNO:BOOLEAN); FORWARD; F(6PROCEDURE SIJOB(CURJSB : JSBPTR; LUNO : INTEGER; 6$ONLY_ONE_LUNO:BOOLEAN); FORWARD; $(>PROCEDURE SITASK(CURJSB : JSBPTR; TASKID,LUNO : INTEGER; >$ONLY_ONE_LUNO:BOOLEAN);FORWARD; $(8PROCEDURE SIWRIT(VAR CURLDT: LDT; CURJSB : JSBPTR; 8  CURTSB : TSBPTR); FORWARD; (&FUNCTION SIACNM(VAR CURLDT: LDT;&&CURJSB : JSBPTR): STRING; FORWARD;&(FUNCTION SINLD( T(ANCHOR : LDTPTR;LUNO : INTEGER; (4 START,ONLY_ONE_LUNO: BOOLEAN): LDTPTR; FORWARD; 4(*$RESUME LIST*) ; 8(.PROCEDURE CPGETA(VAR PFILE : PROGRAMFILE; . ALFA; VAR NAME : ALFA); FORWARD; @" ' " DELETE AN "k4`4UENTIALFILE; START : INTEGER;  VAR SIZE : INTEGER;  RELOCATE : WORD); FORWARD;(.PROCEDURE CPGBUF(VAR P%%FILE : PROGRAMFILE; . VAR ID : PHASE_ID; VAR ADDRES : LONGINT; $ VERIFYING : BOOLEAN); FORWARD; $(.PROCEDURE SETBIT(VAR PFILE : PROGRAMFILE; . VAR ID : PHASE_ID; ADDRES : WORD; BIT : BOOLEAN); FORWARD; (.PROCEDURE GETBIT(VAR PFILE : PROGRAMFILE; . VAR ID : PHASE_ID;PLRLSE P=Z2%xzPFUNCTION PLRLSE(PARM1,PARM2: STRING): INTEGER; EXTERNAL; P8:O PROMPT 1 STRING "82 PRTYPE1 : INTEGER;  " TYPE OF REPLY' k4`40: INTEGER); FORWARD;"DO CREATE LOG. NAME SVC08PROCEDURE LNDIR;FORWARD; "ASSIGN DIRECTORY PARMS 8BPROCEDURE LNGPRM(PARMNO : INTEGER; "GET PARM FROM PARMS LIST B  PARM : STRING);FORWARD; 4PROCEDURE LNIMG;FORWARD; "ASSIGN IMAGE PARMS 4PROCED  FORWARD; 1FUNCTI(*$ NO LIST *)!L$"***"k4`42FUNCTIONPLHASH(  FILE_NAME : ALFA ; 20  DIRSIZ  : INTEGER) : INTEGER ; FORWARD; 0 "ASSIGN FILE PARAMETERS 84PROCEDURE LNALN;FORWARD; "ASSIGN LOGICAL NAPLUNLD P=b2%x|,PROCEDURE PLUNLD(VAR SSB1  : SSB; ,(  VAR SSB2  : SSB ) ; FORWARD; (WARD; 0 "ASSIGN FILE PARAMETERS 84PROCEDURE LNALN;FORWARD; "ASSIGN LOGICAL NAME48PROCEDURE LNCFP;FORWARD; "CREATE FILE PARAMETERS  ʤk4D`4PFUNCTION PLRLSE(PARM1,PARM2: STRING): INTEGER; EXTERNAL; PPLRTA P=H2&x}>PROCEDURE PLRTA (  MEM_BLK : ADDRESS ) ; FORWARD; > ) ; FORWARD; (WARD; 0 "ASSIGN FILE PARAMETERS 84PROCEDURE LNALN;FORWARD; "ASSIGN LOGICAL NAME48PROCEDURE LNCFP;FORWARD; "CREATE FILE PARAMETERS  ʤk4D`4PFUNCTION PLRLSE(PARM1,PARM2: STRING): INTEGER; EXTERNAL; PBMF P=2'x@FPROCEDURE BMERR( ERRCOD : INTEGER; "ERROR MSG WRITING ROUTINE F VAR $OUTPUT : TEXT); FORWARD; JPROCEDURE BMGTES(VAR CHRCNT : INTEGER; "GET ERROR SOURCE INDICATORS J VAR $INPUT : TEXT;  VAR $OUTPUT : TEXT);  FORWARD; J#PROCEDURE BMLIMT(VAR $INDEX : INDEX_FILE;"DETERMINE LIMITS OF MESSAGEJ6 VARLLIMIT : WORD;"NUMBERS & INITIALIZE INDEX 6 VARULIMIT : WORD; VAR NDXSIZ : INTEGER;  VAR $INPUT : TEXT); FORWARD; H"PROCEDURE BMMNOS(VAR $INDEX : INDEX_FILE;"PROCESS INTERNAL MSG NOS. H  LLIMIT : WORD;   ULIMIT : WORD;   MFLNUM : WORD ; VAR $INPUT : TEXT;  VAR $OUTPUT : TEXT);  FORWARD;  PROCEDURE BMWMSG(VAR $6MSGFIL : MSG_FILE ; "FORMAT & WRITE MSG TO MSGFIL6 VAR CHRCNT : INTEGER ; VAR MFLNUM : WORD ; VAR $INPUT : TEXT;  VAR $OUTPUT : TEXT);  FORWARD; ARMS86PROCEDURE LNRLN;FORWARD; "RELEASE LOGICAL NAME 6( VAR ACNM : STRING09);" ACCESS NAME ,(  EXTERNAL;1FUNCTION R$FMT;D (PARM1 : INTEGER; PARM2 : STRING; PARM3,PARM4,PARM5 : ADDRESS; D(PARM6 : INTEGER): INTEGER; EXTERNAL;*(FUNCTION R$GKEY :H"( VAR PARM1 : INTEGER; PARM2 : ADDRESS; VAR PARM3 : WORD): INTEGER; H  EXTERNAL;1" A$?COPY DSC.TEMPLATE.DECLARE.SVC$ 2$(?COPY DSC.TEMPLATE.DECLARE.R$ROUTIN 0(&?COPY DSC.TEMPLATE.DECLARE.UTCHEK 1&&?COPY DSC.TEMPLATE.DECLARE.UTLMSG 1& :*JENED  =,2(x@(*$NO LIST*)"6 PROCEDURE JEALUN; FORWARD; " ASSIGN LUNO FOR TUBE 6 PROCEDURE CLEARS; FORWARD;2PROCEDURE DISPLA ( LINE , COLUMN : INTEGER; 20 VAR BUFFER  : PACKED ARRAY[1..?] OF CHAR;0&  LENGTH  : INTEGER ); FORWARD;&(2PROCEDURE ACCEPT( LINE, COLUMN  : INTEGER; 20  VAR BUFFER  : PACKED ARRAY[1..?] OF CHAR;0  LENGTH  : INTEGER; (  POSITION_CURSOR_IN_FIELD : BOOLEAN; ( VAR LINE_POSITION, "  COLUMN_POSITION : INTEGER; "0 VAR TERMINATION_CHARACTER: CHAR);FORWARD; 0(2PROCEDURE SETFIL (C  : CHAR ); FORWARD; 2((L$PROCEDURE SVC$ (VAR SUPERVISOR_CONTROL_BLOCK: I_O_CALL_BLOCK); EXTERNAL;L.PROCEDURE FIND$SYN( VAR SYN,SYNVAL : SCISTR).; EXTERNAL; H"PROCEDURE SET$ACNM(VAR INFILE:TEXT; VAR SYNVAL : SCISTR); EXTERNAL; H PROCEDURE OPENTE; FORWARD;  PROCEDURE BLINKE; FORWARD;  PROCEDURE UNBLIN; FORWARD;  PROCEDURE QUIT; FORWARD;PROCEDURE MOVE; FORWARD; PROCEDURE VERSIO; FORWARD; PROCEDURE ADJTAB; FORWARD;H"PROCEDURE GETREC(AR,AC : INTEGER; BOUNDS_CHECK : BOOLEAN); FORWARD; H PROCEDURE GETDAT; FORWARD; PROCEDURE DOREAD; FORWARD; PROCEDURE SEARCH; FORWARD; PROCEDURE ADDBAN; FORWARD; PROCEDURE EDITIN; FORWARD; PROCEDURE PRINT; FORWARD;  PROCEDURE NEWREC; FORWARD;  PROCEDURE UPDATE; FORWARD;  PROCEDURE REMOVE; FORWARD;  PROCEDURE ZAPMSG; FORWARD;   PROCEDURE SHOW;  FORWARD;  PROCEDURE EDIT;  FORWARD;   PROCEDURE INITME; FORWARD;(*$RESUME LIST*) S  NORMAL TERMINATION%STACK USED = 5718 HEAP USED = 1186 % zg ^"Y"  .EVAL $XR$2=@$XR$2+1.ENDIF!.IF "&NO PREPROCESSOR", GE, "Y" ! .EVAL $XR$2=@$XR$2+4.SYN $XR$1 = ""  .SYN INPUT = "@PREIN" .ENDIF0** DIRECTORYPAE73.TP$SYS.DEMO.EMPDATAP.OBJ0 **T$END  DATA UPF100 zg^t $2+60 .ENDIF .EVAL $XR$2=256*@$XR$2 .IF "&USAGE XREFERENCE",GE,"Y"  .EVAL $XR$2=@$XR$2+8.ENDIFMBROUTIN P= 2)xP(*$ NO LIST *) PPPROCEDURE MBCLS(MBRBPTR : PTRMBRB; VAR STATUS: BOOLEAN); FORWARD; PPPROCEDURE MBMSG(MBRBPTR : PTRMBRB; VAR STATUS: BOOLEAN); FORWARD; PPPROCEDURE MBMW (MBRBPTR : PTRMBRB); FORWARD; PPPROCEDURE MBREQ(MBRBPTR : PTRMBRB; VAR STATUS: BOOLEAN); FORWARD; PPPROCEDURE MBSET(MBRBPTR1: PTRMBRB; REQPTR : PTRREQ; PP MSGPTR : PTRMSG; MBRBPTR2 : PTRMBRB; PP RETURN : WORD ; VAR STATUS : BOOLEAN); FORWARD; PP(*$ RESUME LIST *) PSTR).SCU  =>2+x@(*$NO LIST*)"L$"***********************************************************************L" '8" PROCEDURE DECLARATIONS FOR CONFIGURATION UTILITY 8" 'L$"***********************************************************************L" '8PROCEDURE CULDC; FORWARD;"LIST DEVICE CONFIGURATION 8&?COPY DSC.TEMPLATE.DECLARE.UTCHEK &8FUNCTION IN_USE(CURPDT : PDT_PTR): BOOLEAN; FORWARD;8$ "DETERMINE IF DEVICE IS IN USE $BPROCEDURE CUSETN(VAR DEV : DEVICE; VALUE : BOOLEAN); FORWARD; B "SET NAME IN DATA BASE JPROCEDURE CUGETN(VAR DEV : DEVICE); FORWARD; "GET NAME FROM DATA BASEJ6 PROCEDURE CUCLRN; FORWARD; "CLEAR NAME DATA BASE 6* PROCEDURE CUAD; FORWARD; "ADD DEVICE*PROC* EDURE CUDD; FORWARD; "DELETE DEVICE *0 PROCEDURE CUMD; FORWARD ;  "MODIFY DEVICE 0< PROCEDURE CURDP; FORWARD ; "REQUEST DEVICE PARAMETERS <6 PROCEDURE CUMDS; FORWARD ; "MODIFY DEVICE STATE 6(@ PROCEDURE CURISL; FORWARD; "REQUEST SYSTEM LOG PARAMETERS @> PROCEDURE CUISL; FORWARD;  "MODIFY SYSTEM LOG PARAMETERS>(J#PROCEDURE CUMSP1(OPCODE : INTEGER); FORWARD ; "MODIFY SCHEDULER PARMS JJ#PROCEDURE CUMSP2(OPCODE : INTEGER); FORWARD ; "MODIFY SCHEDULER PARMS JJ#PROCEDURE CUMSP3(OPCODE : INTEGER); FORWARD ; "MODIFY SCHEDULER PA%%RMS JJ#PROCEDURE CUMSP4(OPCODE : INTEGER); FORWARD ; "MODIFY SCHEDULER PARMS J(4 PROCEDURE CUSCC; FORWARD ; "SHOW COUNTRY CODE 4PROCEDURE CUMCC;FO$RWARD ;  "MODIFY COUNTRY CODE $(>PROCEDURE CURSTS; FORWARD ;  "REQUEST SYSTEM TABLE SIZES>>PROCEDURE CUMSTS; FORWARD ;  "MODIFY SYSTEM TABLE SIZES >(8PROCEDURE CUDATA; FORWARD ;  "INITIALIZE DATA BASE 8@PROCEDURE CUINIT; FORWARD ;  "LOAD PROPER SYSTEM SEGMENTS @8PROCEDURE CUQUIT; FORWARD ;  "TERMINATION ROUTINE 8(H"PROCEDURE CULIMI( INTERRUPT : INTEGER); FORWARD ; "MASK INTERRUPTS H(:FUNCTION CUGETO:INTEGER; FORWARD;  " OP CODE FOR SCU :(0PROCEDURE CUDINT(VAR DEV : DEVICE); FORWARD;0 "DELETE INTERRUPT; 0PROCEDURE CUAINT(VAR DEV : DEVICE); FORWARD;0 "ADD INTERRUPT; 0PROCEDURE CUAEXP(VAR DEV : DEVICE); FORWARD;0 "ADD EXP INTERRUPT; 0PROCEDURE CUAMUX(VAR DEV : DEVICE); FORWARD;0 "ADD MUX INTERRUPT; 0PROCEDURE CUPDT(VAR DEV : DEVICE); FORWARD; 0 "BUILD PDT'S 0PROCEDURE CUDSR(VAR DEV : DEVICE); FORWARD; 0 "INSTALL DSR 2FUNCTIONCUGTA0(  BLK_SIZE  : WORD ; 2 TABLE_TYPE : INTEGER; 4  VAR BLK_ADDRESS : ADDRESS ): WORD ; FORWARD; 4>PROCEDURE CURTA (  MEM_BLK : ADDRESS ) ; FORWARD; >@PROCEDURE CUGALP(MAP : ADDRESS; VAR VALUE : WORD); FORWARD; @(*$RESUME LIST*) OCEDURE BLDSSB; FORWARD; PROCEDURE BLDWSR; FORWARD;*PROCEDURE COPY(X : INTEGER); FORWARD; * PROCEDURE COPY0; FORWARD PP " SVC OPERATIONS 9 ߣk4`4OISTSK P =.2,x@6"*************************************************64"  OISPRC - SYSTEM OPERATOR TASK PROCEDURES *4" 28 MAY 1980  *6"*************************************************6" 'PROCEDURE OISINT @ (VAR ABORT : BOOLEAN);" INDICATES IF PROGRAM SHOULD ABORT @  FORWARD; " PROCEDURE OISPIO;  FORWARD; "PROCEDURE OISGRQ @ (VAR REPLY : BOOLEAN);" INDICATES IF REPLY SHOULD BE SENT @  FORWARD; " PROCEDURE OISROM;  FORWARD; "" PROCEDURE OISKOM;  FORWARD; "" PROCEDURE OISLOM;  FORWARD; "" PROCEDURE OISXOI;  FORWARD; "" PROCEDURE OISQOI;  FORWARD; "" PROCEDURE OISPOR;  FORWARD; "" PROCEDURE OISROR;  FORWARD; "PROCEDURE OISRD @ (VAR REPLY : BOOLEAN);" INDICATES IF REPLY SHOULD BE SENT @  FORWARD; PROCEDURE OISRPL 6 (VAR REQPTR : ORTPTR;  " POINTER TO REQUEST ENTRY 6: REPLTYPE : INTEGER);" CODE DESCRIBING NATURE OF REPLY:  FORWARD; PROCEDURE OISMBX 2 (REQPTR : ORTPTR;  " POINTER TO REQUEST ENTRY 24 TOWHOM : UIDPTR);" POINTER TO ROM TO SEND TO 4$" NIL => ALL INTERESTED ROM'S $  FORWARD; PROCEDURE OISFMS 2 (REQPTR : ORTPTR); " POINTER TO REQUEST ENTRY 2  FORWARD; " PROCEDURE OISERR;  FORWARD; " PROCEDURE SET$ACNM$(VAR F : TEXT;" FILE VARIABLE $: VAR ACNM : PACKED ARRAY [0..9] OF CHAR);" ACCESS NAME :  EXTERNAL;" ' ?COPY DSC.TEMPLATE.DECLARE.SVC $ $?COPY DSC.TEMPLATE.DECLARE.NEW$ $&?COPY DSC.TEMPLATE.DECLARE.PLSEND & (*$ RESUME WARNINGS *)" 'RWARD ;  "MODIFY SYSTEM TABLE SIZES >(8PROCEDURE CUDATA; FORWARD ;  "INITIALIZE DATA BASE 8@PROCEDURE CUINIT; FORWARD ;  "LOAD PROPER SYSTEM SEGMENTS @8PROCEDURE CUQUIT; FORWARD ;  "TERMINATION ROUTINE 8(H"PROCEDURE CULIMI( INTERRUPT : INTEGER); FORWARD ; "MASK INTERRUPTS H(:FUNCTION CUGETO:INTEGER; FORWARD;  " OP CODE FOR SCU :(0PROCEDURE CUDINT(VAR DEV : DEVICE); FORWARD;0 "DELETE INTERRUPT; 0PROCEDURE CUAINT(VAR DEV : DEVICE); FORWARD;0 "ADD INTERRUPT; 0PROCEDURE CUAEXP(VAR DEV : DEVICE); FORWARD;0 "ADD EXP INTERRUPT;  UTLMSH P=>2-x4PROCEDURE UTLMSG ( MSG_PTR : STRING ); FORWARD; 4"  OISPRC - SYSTEM OPERATOR TASK PROCEDURES *4" 28 MAY 1980  *6"*************************************************6" 'PROCEDURE OISINT @ (VAR ABORT : BOOLEAN);" INDICATES IF PROGRAM SHOULD ABORT @  FORWARD; " PROCEDURE OISPIO;  FORWARD; "PROCEDURE OISGRQ @ (VAR REPLY : BOOLEAN);" INDICATES IF REPLY SHOULD BE SENT @  FORWARD; " PROCEDURE OISROM;  FORWARD; "" PROCEDURE OISKOM;  FORWARD; "" PROCEDURE OISLOM;  FORWARD; "" PROCEDURE OISXOI;  FORWARD; "" PROCEDURE OISQOI;  FORWARD; "" PROCEDURE OISPOR;  FORWARD; "" PROCEDURE OISROR;  FORWARD; "PROCEDURE OISRD  PLCRYT P=2.x(*$NO LIST*)"" '"" PASSWORD ENCRYPTION ROUTINE "" '(*$LIST*) #4PROCEDURE PLCRYT (VAR PASSWORD:ALFA); EXTERNAL; 4"PROCEDURE OISRD ORS J VAR $INPUT : TEXT;  VAR $OUTPUT : TEXT);  ʤk4D`44PROCEDURE UTLMSG ( MSG_PTR : STRING ); FORWARD; 4CAN, AND2"*  RETURN WITHOUT DELETING ANY"$*  FILES; ALSO, PRINT MESSAGE ON$6 MOV@PASSCT,R0 ERROR CONSOLE, INCLUDING PASS NO.6 *  R0 IS NOW THE PASS NUMBER.  *:::::::::::::::::::: 0 SVC@BINHEX CONVERT PASS NO. TO HEX ASCII.0 *::::::::::::::::::::  BLWP @CHKSV DATA BINERR  DATA ERR4  DATA LSTRET* , LI R1,HXBUF TRANSFER ASCII PASS NO. TO,* PICT P=t2/x@B"************************************************************ B6" PROCEDURE DECLARATIONS FOR THE PICTURE PROGRAM. 6B"************************************************************ B4PROCEDURE ADDACNM ( VALUE : INTEGER ); FORWARD; 42PROCEDURE BLANKLN ( NUMB : INTEGER); FORWARD; 2 PROCEDURE COPY; FORWARD; PROCEDURE DRIVER; FORWARD; PROCEDURE ELEMENTS; FORWARD; PROCEDURE EQUATES; FORWARD;  *FUNCTION FINDSIZE : INTEGER; FORWARD; * PROCEDURE FLAGER; FORWARD; PROCEDURE FLAGOUT; FORWARD;  "PROCEDURE FORCEWORD; FORWARD; " PROCEDURE GETACNM; FORWARD;   PROCEDURE INIT; FORWARD;"PROCEDURE LINECHECK; FORWARD; " PROCEDURE PACKER; FORWARD; PROCEDURE PREDATA; F ORWARD;   PROCEDURE SCAN; FORWARD; PROCEDURE SCAN2; FORWARD;  PROCEDURE STFIELD; FORWARD;   PROCEDURE VALUE; FORWARD;  PROCEDURE WBYTE; FORWARD;  PROCEDURE WORDS; FORWARD;  PROCEDURE WREC; FORWARD;LPROCEDURE WSKIP (SIZE : INTEGER); FORWARD;"SKIP SIZE WORDS OF PICTURE L PROCEDURE WWORD; FORWARD; SEND TO 4$" NIL => ALL INTERESTED ROM'S $  FORWARD; PROCEDURE OISFMS 2 (REQPTR : ORTPTR); " POINTER TO REQUEST ENTRY 2  FORWARD; " PROCEDURE OISERR;  FORWARD; " PROCEDURE SET$ACNM$(VAR F : TEXT;" FILE VARIABLE $: VAR ACNM : PACKED ARRAY [0..9] OF CHAR);" ACCESS NAME :  EXTERNAL;" ' ?COPY DSC.TEMPLATE.DECLARE.SVC #NEW$ P=X20x&PROCEDURE NEW$(VAR P: ADDRESS;&$ LENGTH : INTEGER); EXTERNAL ; $D;"PROCEDURE LINECHECK; FORWARD; " PROCEDURE PACKER; FORWARD; PROCEDURE PREDATA; FORS J VAR $INPUT : TEXT;  VAR $OUTPUT : TEXT);  ʤk4D`4@B"************************************************************ B6" PROCEDURE DECLARATIONS FOR THE PICTURE PROGRAM. 6B"************************************************************ B4PROCEDURE ADDACNM ( VALUE : INTEGER ); FORWARD; 42PROCEDURE BLANKLN ( NUMB : INTEGER); FORWARD; 2 PROCEDURE COPY; FORWARD; PROCEDURE DRIVER; FORWARD; PROCEDURE ELEMENTS; FORWARD; PROCEDURE EQUATES; FORWARD;  *FUNCTION FINDSIZE : INTEGER;$CROSSREF P=/<21x@P(*$NO LIST*) PP"----------------------------------------------------------------------- PP" PP" GLOBAL PROCEDURE DECLARATIONS FOR OBJECT CROSS REFERENCE PROGRAM PP" PP"----------------------------------------------------------------------- PPPROCEDURE A$N$HEAD; FORWARD; PPPROCEDURE ACC$NAMES; FORWARD; PPPROCEDURE ADD$REF$NODE; FORWARD; PPROCEDJURE D$S$HEAD; FORWARD; JPPROCEDURE DBLDEFS; %% FORWARD; PPPROCEDURE DEF$SYMBOLS; FORWARD; PPPROCEDURE DUP$REFS; FORWARD; PPPROCEDURE END$MODULE; FORWARD; PPPROCEDURE FIND$DEF$NODE( VAR FIRST_NODE: DEFPOINT; PP DEF_NAME: CHAR6 ); FORWARD; PPPROCEDURE FIND$ROOTS; FORWARD; PPPROCEDURE LOCATE$FILE; FORWARD; P PROCEDURE M$ DI$HEAD; FORWARD; DPPROCEDURE M$R$HEAD; FORWARD; PPPROCEDURE MOD$REFS; FORWARD; PPPROCEDURE MODINDEX; FORWARD; PPPROCEDURE NEW$MODULE; FORWARD; PPPROCEDURE NEWPAGE; FORWARD; PPPROCEDURE NO$GRAPHS; FORWARD; PPPROCEDURE ORINIT; FORWARD; PPPROCEDURE P$F$HEAD; FORWARD; PPROCEDURE P$R$HEAD>( FIRST_NODE: DEFPOINT ); FORWARD; >PPROCEDURE PAGE$HEADING; FORWARD; PPPROCEDURE PICK6( VAR NAME: CHAR6 ); FORWARD; PPPROCEDURE PICKWORD( VAR X: CHAR4 ); FORWARD; PPPROCEDURE PRINT$REF$TABLE( FIRST_NODE: DEFPOINT ); FORWARD; PPPROCEDURE PROCESS$FILE; FORWARD; PPPROCEDURE R$M$HEAD; FORWARD; PPPROCEDURE R$S$HEAD; FORWARD; PPPROCEDURE READ$CTL; FORWARD; PPROCEDURE READWORD( VAR 8N: BIT16 ); FORWARD; 8PPROCEDURE REF$MODS; FORWARD; PPPROCEDURE REF$SYMBOLS; FORWARD; PPPROCEDURE S$S$HEAD; FORWARD; PPPROCEDURE SEQLIB; FORWARD; PPPROCEDURE SETOPTIONS; FORWARD; PPPROCEDURE SHOWTREE; FORWARD; PPPROCEDURE SHOWSUBTREE( CALLER: MODPOINT ); FORWARD; PPPROCEDURE SKIPWORD; FORWARD; P(*$RESUME LIST*) 2 2D; PROCEDURE CHANRT; FORWARD; PROCEDURE CHADEV; FORWARD; PROCEDURE CSYQST; FORWARD;PROCEDURE DELRT;FORWARD;.PROCEDURE DELDEV(TDEV : DEVPTR); FORWARD; . PROCEDURE FNDDEV; FORWARD; PROCEDURE FNDXOP; FORWARD;,PROCEDURE UNANSW(X : INTEGER); FORWARD; ,.PROCEDURE YESNO(TRVTH : BOOLEAN); FORWARD;.(*$RESUME LIST*)  PP " SYSTEM OPERATOR PP PRIORITY_ERR=09; "INVALID PRIORITY SPECIFIED PP ACTIVE_ERR =10; "ACTIVE QUEUE ENTRIES: DEVICE OR P* " ITS CLASS NA* PLPWUP P>22x0PROCEDURE PLPWUP(VAR CURPDT: PDT); FORWARD; 0(*$NO LIST*)"" 'B" PASCAL INTERFACE TO IOPWUP, WHICH IS CALLED THROUGH NFMAP0 B" '(*$RESUME LIST*)  PP" GLOBAL PROCEDURE DECLARATIONS FOR OBJECT CROSS REFERENCE PROGRAM PP" PP"----------------------------------------------------------------------- PPPROCEDURE A$N$HEAD; FORWARD; PPPROCEDURE ACC$NAMES; FORWARD; PPPROCEDURE ADD$REF$NODE; FORWARD; PPROCED$CVINIT P >A24x@L$(*********************** BEGIN CVINIT FORWARD DECLARATIONS************) L(*$NO LIST*)"."  FORWARD DECLARATIONS FOR INITIAL TASK." ' PROCEDURE CVIBID; FORWARD; " PROCEDURE CVICLS(SCB : IRB; "USERFLG : BYTE; UTILFLG : WORD; LUNO: BYTE;   CLOSE_OP: BYTE;); FORWARD; *?IF DX10 = TRUE  **** DX10 ONLY **** *0PROCEDURE CVIDXM(VAR MESSG : MSG);FORWARD;0 ?ENDIF **** DX10 ONLY ****  PROCEDURE CVIEND; FORWARD; FPROCEDURE CVIERR(CC:INTEGER; V:ADDRESS; ES, MN:INTEGER);FORWARD;F PROCEDURE CVIGET; FORWARD; 2PROCEDURE CVISLF(VAR ST : ST_NAME); FORWARD;20PROCEDURE CVIIMP(WICH : INTEGER); FORWARD;0$?IF DNOS = TRUE  **** DNOS ONLY $**** PROCEDURE CVILJB; FORWARD; HPROCEDURE CVIMAP(VAR ACNM : ADDRESS; VAR ERROR : S43PTR); FORWARD;H PROCEDURE CVINAM; FORWARD; ?ENDIF **** DNOS ONLY **** *?IF DX10 = TRUE  **** DX10 ONLY ***** PROCEDURE CVILSC; FORWARD; ?ENDIF **** DX10 ONLY **** 0PROCEDURE CVISYN(INDEX : INTEGER);FORWARD;0(PROCEDURE CVIMSG(VAR MESSAGE : MSG; ( VAR REPLY : YESNO;  ROW, COL  : BYTE;* BEEP, INTENSITY : BOOLEAN); FORWARD;**?IF DNOS = TRUE  **** DNOS ONLY *****4PROCEDURE CVINJB(VAR JOBS : INTEGER); FORWARD;4 ?ENDIF **** DNOS ONLY **** *?IF DX10 = TRUE  **** DX10 ONLY *****4PROCEDURE CVINSC(VAR SCIS : INTEGER); FORWARD;4?ENDIF **** DX10 ONLY ****$PROCEDURE CVIOPN(ACNM : ADDRESS;$ VAR SCB: IRB; USERFLG : BYTE; UTILFLG : WORD; LRL,PRL : INTEGER;  ALLOC : BYTE; OPENTYPE: BYTE;  VAR LUNO: BYTE;);FORWARD; PROCEDURE CVIPRT; FORWARD; PROCEDURE CVIQUI; FORWARD; PROCEDURE CVISDF; FORWARD; HPROCEDURE CVILUN(VAR LUNOS : PACKED ARRAY[1..4] OF BYTE); FORWARD;H PROCEDURE CVISYS; FORWARD; PROCEDURE CVIPDT; FORWARD; PROCEDURE CVITRM; FORWARD; PROCEDURE CVIUNL; FORWARD; HPROCEDURE CVIDEV(ACCESS_NAME : PATH; VAR ERROR : IRBPTR); FORWARD;H PROCEDURE CVIVER; FORWARD; BPROCEDURE CVIFIL(DBA : WORD; LENGTH, REC : INTEGER);FORWARD;BADF PROCEDURE CVIHDR; FORWARD; PROCEDURE CVIWRT; FORWARD; @PROCEDURE INIT$BLOCK(LOC, SIZE, VAL : INTEGER);  EXTERNAL;@BPROCEDURE ONEXCEPTION(HANDLER_LOCATION : INTEGER); EXTERNAL;BHPROCEDURE R$TERM(CC:INTEGER; VT:STRING; ES,MN: INTEGER); EXTERNAL;H.PROCEDURE SVC$(VAR SCB : IRB); EXTERNAL;.(*$LIST*) #L$(************************* END CVINIT FORWARD DECLARATIONS************) L FORWARD; PPPROCEDURE R$M$HEAD; FORWARD; PPPROCEDURE R$S$HEAD; FORWARD; PPPROCEDURE READ$CTL; FORWARD; PPROCEDURE READWORD( VAR 'SPTYPE >Y26x@(*$ NO LIST *)!2"******************************************** 2."  SPTYPE - SPOOLER TYPE DEFINITIONS* ."" 03/26/83**DNOS 1.2*** "2"******************************************** 2$?COPY DSC.TEMPLATE.PTABLE.TYPES$(*$ NO LIST *)!" '," -- DEFINE DUMMY TSB AND JSB RECORDS TO,."  RESOLVE POINTERS USED IN MRB TEMPLATE." ', TSB = PACKED RECORD  "DUMMY TSB RECORD,END;#, JSB = PACKED RECORD  "DUMMY JSB RECORD,END;#" '" ' (*$ RESUME LIST *)"?COPY DSC.TEMPLATE.PTABLE.CNT""?COPY DSC.TEMPLATE.PTABLE.SDQ""?COPY DSC.TEMPLATE.PTABLE.SDT""?COPY DSC.TEMPLATE.PTABLE.SPM""?COPY DSC.TEMPLATE.PTABLE.S31"?COPY  DSC.TEMPLATE.PTABLE.S42"?COPY DSC.TEMPLATE.PTABLE.S3D""?COPY DSC.TEMPLATE.PTABLE.S21""?COPY DSC.TEMPLATE.PTABLE.S2B""?COPY DSC.TEMPLATE.PTABLE.S41""?COPY DSC.TEMPLATE.PTABLE.MRB""?COPY DSC.TEMPLATE.PTABLE.IRB""?COPY DSC.TEMPLATE.PTABLE.FID""?COPY DSC.TEMPLATE.PTABLE.S43""?COPY DSC.TEMPLATE.PTABLE.S3F"(*$ NO LIST *)!" '" ':"---------------------------------------------------- :&"  BUFFER AND RECORD DEFINITIONS&:"---------------------------------------------------- :" '. MRA = PACKED RECORD  "MASTER READ BUFFER . MRHDR:MRB;  "IPC HEADER MRMSG:SPM;  "DST MSG   END; " " ' SID = PACKED RECORD "SPOOL ID CREATION AREA 4 SPLLNG:INTEGER; "LENGTH OF NAME (ALWA%%YS SIX) 4< SPLRID:PACKED ARRAY[1..6] OF CHAR; "SPOOL ID NAME TEXT <  END; " " '0HR = PACKED RECORD ".S$SDTQUE FILE HEADER0 HDRNAM:FID;  "FILE NAME . HDRCLS:INTEGER; "MAX CLASS NAME RECORDS .0 HDRDEV:INTEGER; "MAX DEVICE TABLE RECORDS0  END; " " 'D DCLASS = PACKED RECORD; "DEVICE'S ASSOCIATED CLASS NAME ENTRY D* SDTCN:INTEGER;  "INDEX INTO RECORD *0 SDTCNR:INTEGER; "CLASS NAME RECORD NUMBER0  END; " " '8QR = ARRAY[1..SDQNUM] OF SDQ; "QUEUE ENTRY RECORD 8:CNR  = ARRAY[1..CNTNUM] OF CNT; "CLASS NAME RECORD :<SDTRCD = ARRAY[1..SDTNUM] OF SDT; "DEVICE TABLE RECORD 127x@" ' " FIND ACCESS GROUP IN UDR@PROCEDURE AGCHKA (AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER; @, UDR_RECNO : INTEGER; VAR CLF_BUF : CLF; ,0 VAR RECNO : INTEGER; VAR UDO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); FORWARD; 4" '" '" READ THE CLF!8PROCEDURE AGREAD(CLF_BUF : CLF; RECORD_NO : INTEGER;8 VAR EOF : BOOLEAN); FORWARD; " '" ' " VERIFY ACCESS GROUP IN AGR D PROCEDURE AGVFYA (ACCESS_GROUP : ALFA; VAR AGR_RECNO : INTEGER; D0 VAR AGR_OFFSET : INTEGER; VAR CLF_BUF : CLF; 0 VAR RC : INTEGER); FORWARD;  " '" VERIFY USER ID >PROCEDURE AGVFYU (USERID : ALFA; VAR UDR_RECNO : INTEGER; > VAR RC : INTEGER); FORWARD;  " '2" SEARCH THE DIRECTORY STRUCTURE RECURSIVELY 2"PROCEDURE LASRCH (); FORWARD; "" '8" CHECK AN FDR FOR THE PRESENCE OF AN ACCESS GROUP 8BPROCEDURE LACHKF (VAR AG_FOUND : BOOLEAN; VAR ACEFLG :RIGHTS); B FORWARD; " '" ':" FIND THE PARENT DIRECTORY AND PROCCESS FDR FOR FILE : PROCEDURE LAFILE();FORWARD;  " '2" FORMAT AND WRITE A LINE TO THE LISTING FILE2.PROCEDURE LAFRMT ( RTS : RIGHTS); FORWARD;." '"" ALLOCATE A BLOCK OF MEMORY "@PROCEDURE GETMEM ( VAR ELEMENT : ELEMENT_POINTER); FORWARD; @" '," WRITE A MESSAGE WHEN MEMORY IS USED UP, PROCEDURE LAMERR();FORWARD;  " '"" FREE A LIST OF MEMORY BLOCKS"PROCEDURE FREMEM0 ( VAR ELEMENT : ELEMENT_POINTER); FORWARD; 0" '8" INSERT A BLOCK INTO A LINKED LIST IN SORTED ORDER 86PROCEDURE LAINSR( VAR HEAD : ELEMENT_POINTER ; 6, VAR ELEMENT : ELEMENT_POINTER); FORWARD; ,M:FID;  "FILE NAME . HDRCLS:INTEGER; "MAX CLASS NAME RECORDS .0 HDRDEV:INTEGER; "MAX DEVICE TABLE RECORDS0  END; " " 'D DCLASS = PACKED RECORD; "DEVICE'S ASSOCIATED CLASS NAME ENTRY D* SDTCN:INTEGER;  "INDEX INTO RECORD *0 SDTCNR:INTEGER; "CLASS NAME RECORD NUMBER0  END; " " '8QR = ARRAY[1..SDQNUM] OF SDQ; "QUEUE ENTRY RECORD 8:CNR  = ARRAY[1..CNTNUM] OF CNT; "CLASS NAME RECORD :<SDTRCD = ARRAY[1..SDTNUM] OF SDT; "DEVICE TABLE RECORD )28x2FUNCTIONPLGTA0(  BLK_SIZE  : WORD ; 2 TABLE_TYPE : INTEGER; 4  VAR BLK_ADDRESS : ADDRESS ): WORD ; FORWARD; 4UF : CLF; ,0 VAR RECNO : INTEGER; VAR UDO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); FORWARD; 4" '" '" READ THE CLF!8PROCEDURE AGREAD(CLF_BUF : CLF; RECORD_NO : INTEGER;8 VAR EOF : BOOLEAN); FORWARD; " '" ' " VERIFY ACCESS GROUP IN AGR D PROCEDURE AGVFYA (ACCESS_GROUP : ALFA; VAR AGR_RECNO : INTEGER; D0 VAR AGR_OFFSET : INTEGER; VAR CLF_BUF : CLF; 0 VAR RC : INTEGER); FORWARD;  " '" VERIFY USER ID >PROCEDURE AGVFYU (USERID : ALFA; VAR UDR_RECNO : INTEGER; > VAR RC : INTEGER); FORWARD;  " *JOBMGR P >,(29x@(*$NO LIST*)" PROCEDURE JMC$ ; FORWARD;  "PROCEDURE JMCABT ; FORWARD; ",FUNCTIONJMCBID : BOOLEAN ; FORWARD; ,0FUNCTIONJMCFID(  IRB_BLK : ADDRESS; 04  VAR REC_NUM : WORD  ): BOOLEAN ; FORWARD; 4,FUNCTIONJMCJCA : BOOLEAN ; FORWARD; ,"PROCEDURE JMCJID ; FORWARD; ",FUNCTIONJMCJSB : BOOLEAN ; FORWARD; ,,FUNCTIONJMCLNB : BOOLEAN ; FORWARD; ,2PROCEDURE JMCLR (  BLOCK_PTR : ADDR_PTR;2* BUFFER_SIZE : INTEGER ) ; FORWARD; *>PROCEDURE JMCPCL(  IRB_BLK : ADDRESS ) ; FORWARD; >0FUNCTIONJMCPOP(  IRB_BLK : ADDRESS; 02  OPN_CODE  : INTEGER ): BOOLEAN ; FORWARD; 20FUNCTIONJMCPRD(  IRB_BLK : ADDRESS; 0  BUFFER  : ADDRESS; 0  REC_NUM : WORD  ): BOOLEAN ; FORWARD; 00FUNCTIONJMCPWD(  IRB_BLK : ADDRESS; 04  VAR REC_NUM : WORD  ): BOOLEAN ; FORWARD; 40FUNCTIONJMCSEC(  IRB_BLK : ADDRESS; 04  VAR REC_NUM : WORD  ): BOOLEAN ; FORWARD; 4,FUNCTIONJMCSTA : BOOLEAN ; FORWARD; ,,FUNCTIONJMCUID : BOOLEAN ; FORWARD; ,"PROCEDURE JMCXFR ; FORWARD; " PROCEDURE JMD$ ; FORWARD;  "PROCEDURE JMDIOU ; FORWARD; ""PROCEDURE JMDJSB ; FORWARD; ""PROCEDURE JMDRST ; FORWARD; ""PROCEDURE JMEXP  ; FORWARD; ""PROCEDURE JMEXP2 ; FORWARD; ""PROCEDURE JMHALT ; FORWARD; ""PROCEDURE JMINFO ; FORWARD; " PROCEDURE JMKILL ; FORWARD; "PROCEDURE JMMAP  ; FORWARD; ""PROCEDURE JMPRIO ; FORWARD; ""PROCEDURE JMRESU ; FORWARD; ",FUNCTIONJMVRFY : BOOLEAN ; FORWARD; ,(*$RESUME LIST*) LASS = PACKED RECORD; "DEVICE'S ASSOCIATED CLASS NAME ENTRY D* SDTCN:INTEGER;  "INDEX INTO RECORD *0 SDTCNR:INTEGER; "CLASS NAME RECORD NUMBER0  END; " " '8QR = ARRAY[1..SDQNUM] OF SDQ; "QUEUE ENTRY RECORD 8:CNR  = ARRAY[1..CNTNUM] OF CNT; "CLASS NAME RECORD :<SDTRCD = ARRAY[1..SDTNUM] OF SDT; "DEVICE TABLE RECORD 5h2:x,FUNCTIONPLLOAD(VAR SSB1  : SSB; ,.  VAR SSB2  : SSB ): WORD ; FORWARD; .: BOOLEAN ; FORWARD; 20FUNCTIONJMCPRD(  IRB_BLK : ADDRESS; 0  BUFDO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); ʤk4D`4@(*$NO LIST*)" PROCEDURE JMC$ ; FORWARD;  "PROCEDURE JMCABT ; FORWARD; ",FUNCTIONJMCBID : BOOLEAN ; FORWARD; ,0FUNCTIONJMCFID(  IRB_BLK : ADDRESS; 04  VAR REC_NUM : WORD  ): BOOLEAN ; FORWARD; 4,FUNCTIONJMCJCA : BOOLEAN ; FORWARD; ,"PROCEDURE JMCJID ; FORWARD; ",FUNCTIONJMCJSB : BOOLEAN ; FORWARD; ,,FUNCTIONJMCLNB : BOOLEAN ; FORWARD; ,2PROCEDURE JMCLR (  BLOCK_PTR : ADDR_.PLMPRI P>8F2;x<PROCEDURE PLMPRI(VAR TSB_PTR : TSB ) ; FORWARD; <SB ): WORD ; FORWARD; .: BOOLEAN ; FORWARD; 20FUNCTIONJMCPRD(  IRB_BLK : ADDRESS; 0  BUFDO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); ʤk4D`4@(*$NO LIST*)" PROCEDURE JMC$ ; FORWARD;  "PROCEDURE JMCABT ; FORWARD; ",FUNCTIONJMCBID : BOOLEAN ; FORWARD; ,0FUNCTIONJMCFID(  IRB_BLK : ADDRESS; 04  VAR REC_NUM : WORD  %% ): BOOLEAN ; FORWARD; 4,FUNCTIONJMCJCA : BOOLEAN ; FORWARD; ,"PROCEDURE JMCJID ; FORWARD; ",FUNCTIONJMCJSB : BOOLEAN ; FORWARD; ,,FUNCTIONJMCLNB : BOOLEAN ; FORWARD; ,2PROCEDURE JMCLR (  BLOCK_PTR : ADDR_/UTLMSG P>;>2<x4PROCEDURE UTLMSG ( MSG_PTR : STRING ); FORWARD; 4PROCEDURE JMCABT ; FORWARD; ",FUNCTIONJMCBID : BOOLEAN ; FORWARD; ,0FUNCTIONJMCFID(  IRB_BLK : ADDRESS; 04  VAR REC_NUM : WORD  ): BOOLEAN ; FORWARD; 4,FUNCTIONJMCJCA : BOOLEAN ; FORWARD; ,"PROCEDURE JMCJID ; FORWARD; ",FUNCTIONJMCJSB : BOOLEAN ; FORWARD; ,,FUNCTIONJMCLNB : BOOLEAN ; FORWARD; ,2PROCEDURE JMCLR (  BLOCK_PTR : ADDR_PTR;2* BUFFER_SIZE : INTEGER ) ; FORWARD; *>PROCED"k4`4<PROCEDURE PLMPRI(VAR TSB_PTR : TSB ) ; FORWARD; <SB ): WORD ; FORWARD; .: BOOLEAN ; FORWARD; 20FUNCTIONJMCPRD(  IRB_BLK : ADDRESS; 0  BUF/BEMPRC P>> f2=x" '2" PROCEDURE DECLARATIONS FOR THE BEMF UTILITY 2" '2PROCEDURE BEMERR(ERRNO : INTEGER); FORWARD; 22PROCEDURE BEMGEU(LC_UC : STRING);  FORWARD; 2" PROCEDURE BEMGKY ; FORWARD; "2PROCEDURE BEWMSG(LC_UC : STRING);  FORWARD; 2JPROCEDURE BEWPAR( RECORD_NO : INTEGER; CHARCT : INTEGER);  FORWARD; J : BOOLEAN ; FORWARD; ,,FUNCTIONJMCLNB : BOOLEAN ; FORWARD; ,2PROCEDURE JMCLR (  BLOCK_PTR : ADDR_PTR;2* BUFFER_SIZE : INTEGER ) ; FORWARD; *>PROCED"k4`4<PROCEDURE PLMPRI(VAR TSB_PTR : TSB ) ; FORWARD; <SB ): WORD ; FORWARD; .: BOOLEAN ; FORWARD; 20FUNCTIONJMCPRD(  IRB_BLK : ADDRESS; 0  BUF/PLRCVE P>AZ2>xPFUNCTION PLRCVE(PARM1,PARM2,PARM3: STRING): INTEGER; EXTERNAL; PBEMERR(ERRNO : INTEGER); FORWARD; 22PROCEDURE BEMGEU(LC_UC : STRING);  FORWARD; 2" PROCEDURE BEMGKY ; FORWARD; "2PROCEDURE BEWMSG(LC_UC : STRING);  FORWARD; 2JPROCEDURE BEWPAR( RECORD_NO : INTEGER; CHARCT : INTEGER);  FORWARD; J : BOOLEAN ; FORWARD; ,,FUNCTIONJMCLNB : BOOLEAN ; FORWARD; ,2PROCEDURE JMCLR (  BLOCK_PTR : ADDR_PTR;2* BUFFER_SIZE : INTEGER ) ; FORWARD; *>PROCED"k4`4<PROCEDURE PLMPRI(VAR TSB_PTR : TSB ) ; FORWARD; <SB ): WORD ; FORWARD; .: BOOLEAN ; FORWARD; 20FUNCTIONJMCPRD(  IRB_BLK : ADDRESS; 0  BUF/R$ROUTINP>Dmn2@x(*$ NO LIST *)!L$"***********************************************************************L" ' " R$ ROUTINE DECLARATIONS" 'L$"***********************************************************************L" '8FUNCTION R$IASC(VAR PARM1 : LONGINT; PARM2: STRING; 8( PARM3 : INTEGER): INTEGER; EXTERNAL; ((6FUNCTION R$INT(PARM1: STRING; VAR PARM2: LONGINT; 6( PARM3: INTEGER): INTEGER; EXTERNAL;((<FUNCTION R$SCOM(PARM1,PARM2: STRING): INTEGER; EXTERNAL; <(<FUNCTION R$SCPY(PARM1,PARM2: STRING): INTEGER; EXTERNAL; <(6FUNCTION R$TAD(PARM1: STRING): INTEGER; EXTERNAL; 6((FUNCTION R$GTCA: INTEGER; EXTERNAL; (((FUNCTION R$PTCA: INTEGER; EXTERNAL; (UF,@((FUNCTION R$RTCA: INTEGER; EXTERNAL; ((&FUNCTION R$NEW: INTEGER; EXTERNAL;&(F!FUNCTION R$PARM(PARM1: INTEGER; PARM2: STRING): INTEGER; EXTERNAL;F(<FUNCTION R$SETS(PARM1,PARM2: STRING): INTEGER; EXTERNAL; <(<FUNCTION R$MAPS(PARM1,PARM2: STRING): INTEGER; EXTERNAL; <(L$FUNCTION R$SNCT(PARM1,PARM2: STRING; PARM3: INTEGER): INTEGER; EXTERNAL;L(:FUNCTION R$STAT(VAR PARM: LONGINT): INTEGER; EXTERNAL; :(BFUNCTION R$SPLT(PARM1,PARM2,PARM3: STRING): INTEGER; EXTERNAL; B(>PROCEDURE R$STOP(PARM1: INTEGER; PARM2: STRING); EXTERNAL; >(4PROCEDURE R$TERM(PARM1: INTEGER; PARM2: STRING; 4& PARM3,PARM4: INTEGER); EXTERNAL; &( FUNCTION R$WAIT(PARM1: INTEGER ; PARM2: STRING;.PARM3,PARM4: INTEGER): INTEGER; EXTERNAL; .(4FUNCTION R$OPEN(PAR: STRING): INTEGER; EXTERNAL;4(4FUNCTION R$OPNX(PAR: STRING): INTEGER; EXTERNAL;4(2FUNCTION R$OPNS(PARM1 : STRING; PARM2 : ALFA; 2&PARM3 : ALFA): INTEGER; EXTERNAL; &(F!FUNCTION R$WRIT(PARM1: STRING; PARM2: INTEGER): INTEGER; EXTERNAL;F((FUNCTION R$WEOL: INTEGER; EXTERNAL; ((6FUNCTION R$CLOS(PARM: INTEGER): INTEGER; EXTERNAL;6(6FUNCTION R$CMSG(PARM1: LONGSTRING; PARM2: STRING; 6 PARM3,PARM4: INTEGER; ,PARM5,PARM6: STRING):INTEGER; EXTERNAL; ,(<PROCEDURE RS$ACNM(VAR F:TEXT; ACNM : STRING); EXTERNAL; <(2FUNCTION RS$COMPARE(PARM1,PARM2: STRING): INTEGE2R; EXTERNAL; (6PROCEDURE RS$DISPOSE(VAR PARM: STRING); EXTERNAL; 6(@PROCEDURE RS$NEW(VAR PARM1: STRING; PARM2: BYTE); EXTERNAL; @(.PROCEDURE RS$NIL(PARM: STRING); EXTERNAL; .(8PROCEDURE RS$APPEND(PARM1,PARM2 : STRING); EXTERNAL;8(>PROCEDURE RS$B2S(PARM1: BOOLEAN; PARM2: STRING); EXTERNAL; >(6PROCEDURE RS$COPY(PARM1,PARM2: STRING); EXTERNAL; 6(2PROCEDURE RS$DEBLANK(PAMR: STRING); EXTERNAL; 2(4PROCEDURE RS$I2H(PARM1: INTEGER; PARM2: STRING; 4  PARM3: INTEGER); EXTERNAL;  (>PROCEDURE RS$I2S(PARM1: INTEGER; PARM2: STRING); EXTERNAL; >(8PROCEDURE RS$L2H(VAR PARM1: LONGINT; PARM2: STRING; 8  PARM3: INTEGER); EXTERNAL;  (PROCED<URE RS$L2S(VAR PARM1: LONGINT; PARM2: STRING); EXTERNAL; <(2PROCEDURE RS$LADJUST(PAMR: STRING); EXTERNAL; 2(.PROCEDURE RS$PAD(PARM: STRING); EXTERNAL; .(2PROCEDURE RS$RADJUST(PARM: STRING); EXTERNAL; 2(BPROCEDURE RS$S2B(PARM1: STRING; VAR PARM2: BOOLEAN); EXTERNAL; B(BPROCEDURE RS$S2I(PARM1: STRING; VAR PARM2: INTEGER); EXTERNAL; B(BPROCEDURE RS$S2L(PARM1: STRING; VAR PARM2: LONGINT); EXTERNAL; B(.PROCEDURE RS$TRIM(PAMR: STRING); EXTERNAL;.(>PROCEDURE RS$TRUNC(PAMR1: STRING; PARM2: BYTE); EXTERNAL; >(*$ LIST *) " FORWARD; PPPROCEDURE SKIPWORD; FORWARD; P(*$RESUME LIST*) 3PLSEND P>SZ2AxPFUNCTION PLSEND(PARM1,PARM2: STRING): INTEGER; EXTERNAL; P**********L" ' " R$ ROUTINE DECLARATIONS" 'L$"***********************************************************************L" '8FUNCTION R$IASC(VAR PARM1 : LONGINT; PARM2: STRING; 8( PARM3 : INTEGER): INTEGER; EXTERNAL; ((6FUNCTION R$INT(PARM1: STRING; VAR PARM2: LONGINT; 6( PARM3: INTEGER): INTEGER; EXTERNAL;((<FUNCTION R$SCOM(PARM1,PARM2: STRING): INTEGER; EXTERNAL; <(<FUNCTION R$SCPY(PARM1,PARM2: STRING): INTEGER; EXTERNAL; <(6FUNCTION R$TAD(PARM1: STRING): INTEGER; EXTERNAL; 6((FUNCTION R$GTCA: INTEGER; EXTERNAL; (((FUNCTION R$PTCA: INTEGER; EXTERNAL; (UF,1PLDQH P>Vr2Ax2FUNCTIONPLDQH (  QUE_HEAD  : ADDRESS; 22  VAR SVC_PTR : ADDRESS ): WORD ; FORWARD; 2 INTEGER; EXTERNAL; (((FUNCTION R$PTCA: INTEGER; EXTERNAL; (UF,DO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); ʤk4D`4PFUNCTION PLSEND(PARM1,PARM2: STRING): INTEGER; EXTERNAL; P2PLTERM P>Y2Bx.PROCEDURE PLTERM(VAR JSB_PTR : JSB; .  VAR TSB_PTR : TSB; *  TERM_CODE : WORD  ) ; FORWARD; *(((FUNCTION R$PTCA: INTEGER; EXTERNAL; (UF,DO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); ʤk4D`4PFUNCTION PLSEND(PARM1,PARM2: STRING): INTEGER; EXTERNAL; P%%6PLMJC1 P>\2Cx.FUNCTIONPLMJC1(VAR JSB_PTR : JSB; .  MODIFY  : WORD ; .  RELEASE : WORD  ): WORD ; FORWARD; .(((FUNCTION R$PTCA: INTEGER; EXTERNAL; (UF,DO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); ʤk4D`4PFUNCTION PLSEND(PARM1,PARM2: STRING): INTEGER; EXTERNAL; P5UTTHIS P>_|2Dx,FUNCTION UTTHIS_IS_A_NEW(ITEM : ADDRESS;,0  VAR LIST: ARRAY[BYTE] OF ADDRESS): BOOLEAN;0  EXTERNAL;RD; .(((FUNCTION R$PTCA: INTEGER; EXTERNAL; (UF,DO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); ʤk4D`4PFUNCTION PLSEND(PARM1,PARM2: STRING): INTEGER; EXTERNAL; P6PLMTBL P>bN2ExDFUNCTIONPLMTBL (VAR SM_SSB_PTR : SSB ): WORD ; FORWARD; DF ADDRESS): BOOLEAN;0  EXTERNAL;RD; .(((FUNCTION R$PTCA: INTEGER; EXTERNAL; (UF,DO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); ʤk4D`4PFUNCTION PLSEND(PARM1,PARM2: STRING): INTEGER; EXTERNAL; P9PLEOBR P>eH2Fx>PROCEDURE PLEOBR(  SVC_BLK : ADDRESS ) ; FORWARD; >DF ADDRESS): BOOLEAN;0  EXTERNAL;RD; .(((FUNCTION R$PTCA: INTEGER; EXTERNAL; (UF,DO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); ʤk4D`4PFUNCTION PLSEND(PARM1,PARM2: STRING): INTEGER; EXTERNAL; P9JMHASH P>h@2Gx6FUNCTION JMHASH(VAR ID : ALFA): INTEGER; FORWARD; 6 P**********L" ' " R$ ROUTINE DECLARATIONS" 'L$"***********************************************************************L" '8FUNCTION R$IASC(VAR PARM1 : LONGINT; PARM2: STRING; 8( PARM3 : INTEGER): INTEGER; EXTERNAL; ((6FUNCTION R$INT(PARM1: STRING; VAR PARM2: LONGINT; 6( PARM3: INTEGER): INTEGER; EXTERNAL;((<FUNCTION R$SCOM(PARM1,PARM2: STRING): INTEGER; EXTERNAL; <(<FUNC"k4`4>PROCEDURE PLEOBR(  SVC_BLK : ADDRESS ) ; FORWARD; >DF ADDRESS): BOOLEAN;0  EXTERNAL;RD; .(((FUNCTION R$PTCA: INTEGER; EXTERNAL; (UF,-BDMAIN P>kB2Ix@(*$ NO LIST *)!((6 (*FORWARD DECLARATIONS FOR SUB-ROUTINES OF MAIN*)6(H"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" H&procedure BDABSQ( var MESSG : MSG;& ERRCOD: BYTE);  forward;  (&procedure BDAPLF(var DPTH : PATH; &" var LEAF : NAME);  forward; "(:procedure BDBFDR(var FULL_VOL : boolean);  forward; :(" procedure BDBFSZ;  forward; "(" procedure BDBHED;  forward; "(" procedure BDBKUP;  forward; "($procedure BDC2NM( CSTRNG : C8; $& var OUTNAME : NAME);  forward; &(&procedure BDCHBM(STRT_ADU : WORD; & LENGTH : WORD; & ALLOCATE : boolean);  forward; &(procedure BDD1;  forward; (0procedure BDDUMP(WICH : ZERONE);  forward; 0("procedure BDFILT(FLEAF : NAME;"" WICH : ZERONE);  forward; "(" procedure BDFIND;  forward; "($procedure BDFIXD( HKC : boolean;$ STRT_ADU : WORD;" STRT_SEC : WORD);  forward; "(,procedure BDFLBL( REC_COUNT : longint; , FORWARD  : boolean; $ var ERRCOD : BYTE);  forward; $((procedure BDGBLK(SRCKIND : boolean; (( var IRBINDX : integer);  forward; ((" procedure BDGPRM;  forward; "(" procedure BDGTIM;  forward; "(,procedure BDGVIF(var WASERROR : integer;,$  BOTH : boolean);  forward; $("function BDHASH(NAME2H : NAME;"$ DIRLEN : WORD):WORD;  forward; $($procedure BDINIO(WHICH : ZERONE;$$ F1STIME : boolean);  forward; $(" procedure BDINVF;  forward; "(( procedure BDMESG(varMESSAGE : MSG;( varREPLY : YESNO;" MSGTYP : MTYPE);  forward; "(( procedure BDMONT(BUMPVOL: boolean;( FULL_VOL : boolean;$ BOTH : boolean);  forward; $(4procedure BDMPTH(var EXPATH : PATH);  forward; 4("function BDNMEQ(NAME1 : NAME; "& NAME2 : NAME):boolean;  forward; &(,procedure BDOPEN(var WASERROR : boolean;,& COMDEV : boolean);  forward; &(" procedure BDPFDR;  forward; "(" procedure BDPHED;  forward; "( procedure BDPPTH(PTH : PATH);  forward; (2procedure BDPTIM(STRT : boolean);  forward; 2(8procedure BDSCAN(var AA : ALLOC_ARRAY);  forward; 8(&procedure BDSCRM(INDEX : integer; &* var REMAINING : integer); forward; *(4procedure BDSORT(AA : ALLOC_ARRAY);  forward; 4($procedure BDSPLT(var PTH : PATH;$ var CNUM : integer; var CNT : integer; " var CNAM : NAME);  forward; "($ procedure BDSRCH( BM : DSKBM; $ var COUNT  : integer;  var INDEX  : integer;  var NXTADU : WORD;& var FREESTRT : WORD );  forward; &(" procedure BDSTBD;  forward; "(&procedure BDSVCE(var MSGTXT : MSG;&" ERRCOD : BYTE);  forward; "$@($procedure BDWBGN(WICH : ZERONE; $, var IO_IN_PROG : boolean);  forward; ,(&function BDWNDX( LEVEL : integer; &, SECT : integer ):integer;  forward; ,(& procedure BDWRV( WRIT : boolean;& REED : boolean; VF : boolean; DUMP : boolean;$ var WRVIRB : IRB);  forward; $(4procedure BDZIRB(var IRBVAR : IRB);  forward; 4(H"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" H (*EXTERNAL DECLARATIONS*)$ procedure BDCMPR(PTR1  : WORD;$ PTR2  : WORD; COUNT : WORD;& var MATCH : boolean);  external;&($procedure BDGMEM(NOBEET : WORD; $ var ADBET1 : ADDRESS; var ERROR: WORD);  external;(&procedure BDMOVE(SOURCE : ADDRESS;& DESTIN : ADDRESS;$ NUMWRD : integer);  external;$($procedure BDNXAD(STRTADU : WORD;$ STRTSEC : WORD; NUMSEC : integer; var NEWADU : WORD;  var NEWOFF : WORD;  SPA: WORD);  external;( procedure INIT$BLOCK(LOC,   SIZ,  "  VAL: integer);  external;"(,procedure SVC$(P : ADDRESS); external;,H"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""H( (*$ RESUME LIST *); "INVALID PRIORITY SPECIFIED PP ACTIVE_ERR =10; "ACTIVE QUEUE ENTRIES: DEVICE OR P* " ITS CLASS NA*=PLMJCA P>}L2KxBFUNCTIONPLMJCA(VAR JSB_PTR : JSB ): WORD ; FORWARD; %%Bure BDC2NM( CSTRNG : C8; $& var OUTNAME : NAME);  forward; &(&procedure BDCHBM(STRT_ADU : WORD; & LENGTH : WORD; & ALLOCATE : boolean);  forward; &(procedure BD6FUNCTION JMHASH(VAR ID : ALFA): INTEGER; FORWARD; 6 ͤk4D`4@(*$ NO LIST *)!((6 (*FORWARD DECLARATIONS FOR SUB-ROUTINES OF MAIN*)6(H"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" H&procedure BDABSQ( var MESSG : MSG;& ERRCOD: BYTE);  forward;  (&procedure BDAPLF(var DPTH : PATH; &" var LEAF : NAME);  forward; "(:procedure BDBFDR(var FULL_VOL : boAEMBUILD P>2Lx@PPROCEDURE EMEOUT(VAR OUTLINE : CH80; PP VAR $OUTPUT : TEXT; PP AMT_READ : INTEGER; PP MARGIN : INTEGER; PP VAR EXPBUF : BUF1600);FORWARD; PPPROCEDURE EMERR( VAR ERRFILE : TEXT; PP CODE : INTEGER);FORWARD; PPPROCEDURE EMEXPM(VAR $OUTPUT : TEXT; PP VAR $ERRORS : TEXT; P J VAR OUTLINE : CH80; JP VAR LEAFSIZE: INTEGER); FORWARD; PPPROCEDURE EMKIFS(VAR $ERRORS : TEXT); FORWARD; PPPROCEDURE EMOUT( VAR $OUTPUT : TEXT; PP VAR OUTLINE : CH80; PP NEEDED : INTEGER); FORWARD; PINDX : integer);  forward; ((" procedure BDGPRM;  forward; "(" procedure BDGTIM;  forward; "(,procedure BDGVIF(var WASERROR : integer;,$  BOTH : boolean);  forward; $("function BDHASH(NAME2H : NAME;"BNMPROC P>F2Mx@(*$NO LIST*)"8 PROCEDURE NMASDB( VAR ERR  : INT; TRANSF : INT; 8" VAR NEWSDB : SDBP ); FORWARD;"8 PROCEDURE NMASTA( VAR ERR  : INT; BLKSIZ : INT; 8" VAR ADDR : ADDR ); FORWARD;" PROCEDURE NMBQUE; FORWARD; : PROCEDURE NMCKPM( VAR ERR  : INT; PRMLST : VSTGP; :4 PARMID : INT;  VAR PBAPTR : PBAP ); FORWARD;48 PROCEDURE NMCOMB( SRCSTG : VSTGP; OFFSET : INT; 82 NDBPTR : NDBP; DESTSTG : VSTGP ); FORWARD;28 PROCEDURE NMCPNM( VAR ERR  : INT; NDBPTR : NDBP; 8 SDBPTR : SDBP ); FORWARD;4 PROCEDURE NMCPNV( VAR ERR  : INT); FORWARD;48 PROCEDURE NMCPSG( VAR ERR  : INT; SIZE : INT; 80 SRCPTR : SSBA ;DSTPTR : SSBA );FORWARD;0PROCEDURE NMCP&YN( VAR ERR  : INT); FORWARD;& PROCEDURE NMCSNO; FORWARD; PROCEDURE NMCTC;FORWARD;< PROCEDURE NMDELN( VAR ERR  : INT;  NAMEPTR : VSTGP; < SDBPTR : SDBP ); FORWARD;D PROCEDURE NMDLNK( NDBPTR : NDBP; SDBPTR : SDBP ); FORWARD;DB PROCEDURE NMDLNM( NAMEPTR: VSTGP; SDBPTR:SDBP); FORWARD;B PROCEDURE NMDQUE; FORWARD; PROCEDURE NMDRVR; FORWARD; 4 PROCEDURE NMDSDB(  SDBPTR : SDBP ); FORWARD;44 PROCEDURE NMENS ( VAR ERR  : INT); FORWARD;42 PROCEDURE NMEOBR( ERR  : INT); FORWARD;2< PROCEDURE NMEXAM( SRCSTG : VSTGP;  VAR COUNT : INT; <4 VAR NDBPTR : NDBP; SDBPTR : SDBP ); FORWARD;44 PROCEDURE NMFNDN( VAR ERR  : INT;  NAMEPTR : V4 STGP; 4 VAR NDBPTR : NDBP; SDBPTR : SDBP ); FORWARD;48 PROCEDURE NMFSDB( VAR ERR  : INT;  STGNO : INT; 8" VAR SDBPTR : SDBP ); FORWARD;"H PROCEDURE NMFPAR( SDBPTR : SDBP; VAR PARSDB : SDBP ); FORWARD;H4 PROCEDURE NMGDEL( VAR ERR  : INT); FORWARD;48 PROCEDURE NMGMEM( VAR ERR  : INT; LENGTH : INT; 8" VAR ADDR : ADDR ); FORWARD;"4 PROCEDURE NMGNPN( VAR ERR  : INT); FORWARD;4 PROCEDURE NMGNQE; FORWARD; : PROCEDURE NMGSDB( VAR ERR  : INT; SDBPTR: SDBP; :" VAR NEWSDB : SDBP ); FORWARD;"8 PROCEDURE NMGSEG( VAR ERR  : INT;  SIZE : INT; 84 VAR SEGID : INT;  SSBPTR : SSBA); FORWARD;48 PROCEDURE NMGSLN( VAR ERR  : INT; SEGID : INT; 8@" VAR SEGLEN : INT); FORWARD;" PROCEDURE NMGSSZ; FORWARD; 4 PROCEDURE NMIOU ( VAR ERR  : INT); FORWARD;4B PROCEDURE NMLDEL( NDBPTR : NDBP;SDBPTR : SDBP );FORWARD;B< PROCEDURE NMLOOK( VAR ERR  : INT;  NAMEPTR : VSTGP; <2 VAR NDBPTR : NDBP;SDBPTR : SDBP );FORWARD;24 PROCEDURE NMMAPN( VAR ERR  : INT); FORWARD;4< PROCEDURE NMMPSG( VAR ERR  : INT;  SEG_WANTED : INT; < SSBPTR : SSBA ); FORWARD; PROCEDURE NMPIOU; FORWARD; 4 PROCEDURE NMPURG( VAR ERR  : INT); FORWARD;42 PROCEDURE NMRLSG( SEGID : INT); FORWARD;22 PROCEDURE NMRMEM( ADDR : ADDR ); FORWARD;22 PROCEDURE NMRNDB( NDBPTR : NDBP ); FORWARD;2$ PROCEDURE NMRTPS( VAR ERR  : INT$); FORWARD;D PROCEDURE NMSCPY( SRCP : VSTGP; DESTP : VSTGP);FORWARD;D< PROCEDURE NMSETN( VAR ERR  : INT;  NAMEPTR : VSTGP; <& VALUEPTR : VSTGP; SDBPTR : SDBP; && SYN_OR_LN_FLG : INT); FORWARD;& PROCEDURE NMSNDT; FORWARD; 4 PROCEDURE NMSQSH( VAR ERR  : INT); FORWARD;44 PROCEDURE NMTHRW( VAR ERR  : INT); FORWARD;4$FUNCTIONNMVFYS: INT;FORWARD;$4 PROCEDURE NMXNDS( VAR ERR  : INT); FORWARD;4 (*$LIST*)#XTERNAL DECLARATIONS*)$ procedure BDCMPR(PTR1  : WORD;$ PTR2  : WORD; COUNT : WORD;& var MATCH : boolean);  external;&($procedure BDGMEM(NOBEET : WORD; $ var ADBET1 : ADDRESS; var ERROR: WORD); DPLFSID P>2Nx,FUNCTIONPLFSID(  FCA : ADDRESS; ,  FLAG_WORD : WORD ;   VAR RUN_ID_PTR : ADDRESS;    VAR SSB1  : ADDRESS; 0  VAR SSB2  : ADDRESS ): WORD ; FORWARD; 0H : WORD; & ALLOCATE : boolean);  forwa ʤk4D`4@(*$NO LIST*)"8 PROCEDURE NMASDB( VAR ERR  : INT; TRANSF : INT; 8" VAR NEWSDB : SDBP ); FORWARD;"8 PROCEDURE NMASTA( VAR ERR  : INT; BLKSIZ : INT; 8" VAR ADDR : ADDR ); FORWARD;" PROCEDURE NMBQUE; FORWARD; : PROCEDURE NMCKPM( VAR ERR  : INT; PRMLST : VSTGP; :4 PARMID : INT;  VAR PBAPTR : PBAP ); FORWARD;48 PROCEDURE NMCOMB( SRCSTG : VSTGP; OFFSET : INT; 82 NDBPTR : NDBP; DESTSTG : VSTGP ); FORWAREUTPSER P> 2OxD PROCEDURE UTPSER ( CC : INTEGER; SVC_BLOCK : ADDRESS); EXTERNAL;D(*$NO LIST*)"" ' " CC IS THE VALUE FOR $$CC. " '6" SVC_BLOCK IS THE POINTER TO THE SVC CALL BLOCK.6" '(*$LIST*) #TR : NDBP; SDBPTR : SDBP ); FORWARD;DB PROCEDURE NMDLNM( NAMEPTR: VSTGP; SDBPTR:SDBP); FORWARD;B PROCEDURE NMDQUE; FORWARD; PROCEDURE NMDRVR; FORWARD; 4 PROCEDURE NMDSDB(  SDBPTR : SDBP ); FORWARD;44 PROCEDURE NMENS ( VAR ERR  : INT); FORWARD;42 PROCEDURE NMEOBR( ERR  : INT); FORWARD;2< PROCEDURE NMEXAM( SRCSTG : VSTGP;  VAR COUNT : INT; <4 VAR NDBPTR : NDBP; SDBPTR : SDBP ); FORWARD;44 PROCEDURE NMFNDN( VAR ERR  : INT;  NAMEPTR : V4DSPIPRC P>2Px(*$NO LIST*)"" '8"***************************************************86"  SPIPRC - INITIALIZATION PROCEDURE LINKAGE *6" 04/10/80 *." 10/09/81 - REVISION 001; DNOS 1.1  *.8"***************************************************8*FUNCTIONSPIQF : INTEGER ;FORWARD; *"PROCEDURE SPICHN;FORWARD; ""PROCEDURE SPIDTQ;FORWARD; "PROCEDURE SPILGN,(RN:WORD;  "RECORD NUMBER  "**001** , OFF:BYTE) "ENTRY OFFSET;FORWARD; PROCEDURE SPITRM (I:BYTE) "ERROR CODE BYTE  ;FORWARD; &?COPY DSC.TEMPLATE.DECLARE.SPPROC&(*$RESUME LIST*) K.6" '(*$LIST*) #ERSRLSG P>J2Qx@PROCEDURE RSRLSG(  S48PTR : S48PTR) ; FORWARD ;@." 10/09/81 - REVISION 001; DNOS 1.1  *.8"***************************************************8*FUNCTIONSPIQF : INTEGER ;FORWARD; *"PROCEDURE SPICHN;FORWARD; ""PROCEDURE SPIDTQ;FORWARD; "PROCEDURE SPILGN,(RN:WORD;  "RECORD NUMBER  "%%**001** , OFF:BYTE) "ENTRY OFFSET;FORWARD; PROCEDURE SPITRM (I:BYTE) "ERROR CODE BYTE  ;FORWARD; &?COPY DSC.TEMPLATE.DECLARE.SPPROC&(*$RESUME LIST*) 03FC008F Z. Y. Z. ?. ^. Yr .. ..PP00200000597203FC00000000000000000000 .. Yr .. .. .. .. .. ..P60030000000000000000000000000000000006HPLBUFF P>2Rx*FUNCTIONPLBUFF(VAR JSB : JSB; *  VAR TSB : TSB;   BUF_ADDR  : ADDRESS;   VAR SSB1  : ADDRESS;   VAR SSB2  : ADDRESS; 4  VAR OFFSET_ADDR : ADDRESS ): WORD ; FORWARD; 4*"PROCEDURE SPICHN;FORWARD; ""PROCEDURE SPIDTQ;FORWARD; "PROCEDURE SPILGN,(RN:WORD;  "RECORD NUMBER  "**001** , OFF:BYTE) "ENTRY OFFSET;FORWARD; PROCEDURE SPITRM (I:BYTE) "ERROR CODE BYTE  ;FORWARD; &?COPY DSC.TEMPLATE.DECLARE.SPPROC&(*$RESUME LIST*) 03FC008F Z. Y. Z. ?. ^. Yr .. ..PP00200000597203FC00000000000000000000 .. Yr .. .. .. .. .. ..P60030000000000000000000000000000000006IMPROUTINP>2Sx " CLEAR FIR ENTRY 6PROCEDURE MPVRFY (VAR SECLF:SCLF;  VAR FIR:CLR; 6 VAR FIRNUM,INDEX : INTEGER;  6 USERID : ALFA; VAR FOUND : BOOLEAN); FORWARD; ; 6SET_ADDR : ADDRESS ): WORD ; FORWARD; 4*"PROCEDURE SPICHN;FORWARD; ""PROCEDURE SPIDTQ;FORWARD; "PROCEDURE SPILGN,(RN:WORD;  "RECORD NUMBER  "**001** , OFF:BYTE) "ENTRY OFFSET;FORWARD; PROCEDURE SPITRM (I:BYTE) "ERROR CODE BYTE  ;FORWARD; &?COPY DSC.TEMPLATE.DECLARE.SPPROC&(*$RESUME LIST*) 03FC008F Z. Y. Z. ?. ^. Yr .. ..PP00200000597203FC00000000000000000000 .. Yr .. .. .. .. .. ..P60030000000000000000000000000000000006JSPPROC >p2Ux@(*$NO LIST*)"" '8"***************************************************84"  SPPROC - SPOOLER PROCEDURE DEFINITIONS  *4" 06/26/80 *&"  R01 - 10/09/81 - DNOS 1.1  *&," R02 - 04/13/82 - ADDED 'SPDELF'  *,," R03 - 03/26/83 - ADDED 'SPFUID'  *,*" R04 - 06/08/83 - ADDED 'SPFFN' **8"***************************************************8"  "**001** ," --- USAGE OF EACH FUNCTION  "**001** ,<"  SPACLS - FIND AVAILABLE CLASS NAME ENTRY "**001** <<"  SPADEV - FIND AVAILABLE DEVICE TABLE ENTRY"**001** <<"  SPCLSF - FIND SPECIFIED CLASS NAME ENTRY "**001** <:"  SPDEVF - FIND SPECIFIED DEVICE ENTRY  "**001** :"  SPOPCK - DETERMIN$ E ACCESS FOR REQUEST "**001** $" '4FUNCTION SPACLS : INTEGER; FORWARD; "**001** 44FUNCTION SPADEV : INTEGER; FORWARD; "**001** 44FUNCTION SPCLSF : INTEGER; FORWARD; "**001** 44FUNCTION SPDEVF : INTEGER; FORWARD; "**001** 4&FUNCTION SPOPCK:BOOLEAN;FORWARD; &"  "**001** ," --- USE OF EACH PROCEDURE  "**001** ,"  "**001** 4"  SPACNT - ADD CLASS NAME ENTRIES "**001** 46"  SPBLDQ - BUILD PRINT QUEUE ENTRY  "**001** 66"  SPCONQ - CONCATENATED PRINT ENTRY "**001** 6<"  SPCPYC - MAINTAIN QUEUE ENTRY COPY COUNT "**001** <4"  SPCSID - CREATE SPOOL ID VALUE  "**001** 4<"  SPDACN - DELETE ALL CLASS NAMES FOR DEVICE"**001** <>@6"  SPDCNT - DELETE CLASS NAME ENTRY  "**001** 6:"  SPDELF - DELETE FILE PREV QUEUED FOR PRINT "R02:<"  SPDIAG - DIAGNOSTIC (SPLR) DEVICE ASSIGN "**001** <8"  SPDONE - HANDLE LPWRITER COMPLETION "**001** 82"  SPDSDT - DELETE DEVICE ENTRY  "**001** 22"  SPERR - SET USER ERROR CODE  "**001** 22"  SPEXQR - EXAMINE QUEUE RECORD "**001** 20"  SPFCHN - FOLLOW QUEUE CHAIN "**001** 06"  SPFFN- FIND FILE NAME, GIVEN SPOOL ID "R0466"  SPFUID - FIND REAL USER ID OF REQUESTER "R0368"  SPHOLE - FIND AVAILABLE QUEUE ENTRY "**001** 8:"  SPHOM- PROCESS HALT OUTPUT MESSAGE  "**001** :8"  SPIO - SPOOLER COMMON I/O ROUTINE "**001** 8" 6 SPKOM- PROCESS KILL OUTPUT MESSAGE  "**001** 6<"  SPMOM- PROCESS MODIFY OUTPUT MESSAGE  "**001** <<"  SPMSDM - PROCESS MODIFY SPOOLE DEVICE MSG "**001** <8"  SPPFM- PROCESS PRINT FILE MESSAGE "**001** 88"  SPQADD - ADD ENTRY TO QUEUE ROUTINE "**001** 86"  SPQDEL - DELETE ENTRY FROM QUEUE  "**001** 62"  SPQFND - FIND ENTRY ON QUEUE  "**001** 2."  SPQUIT - TERMINATE SP$DST "**001** .2"  SPRELD - RELEASE DEVICE LUNO  "**001** 2<"  SPROM- PROCESS RESUME OUTPUT MESSAGE  "**001** <6"  SPSCHD - SCHEDULE DEVICE ACTIVITY "**001** 60"  SPSDQD - DELETE QUEUE ENTRY "**001** 0:"  SPSGNL - SIGNAL LPWRITER ABOUT EVENT  "**001** :" 8 SPSLOG - WRITE SPOOLER MSG TO SYSTEM LOG "**001** 88"  SPSTRT - SPOOLER START UP PROCEDURE "**001** 84"  SPTBID - BID DEVICE WRITER TASK "**001** 4<"  SPUNCH - REMOVE ENTRY FROM QUEUE CHAIN  "**001** <:"  SPVFY- VERIFY DEVICE OR CLASS NAME  "**001** :" '2PROCEDURE SPACNT(I:BYTE); "SDT ENTRY INDEX2 FORWARD; "PROCEDURE SPBLDQ;FORWARD; ""PROCEDURE SPCONQ;FORWARD; ".PROCEDURE SPCPYC;FORWARD;  "**001** .6PROCEDURE SPCSID(I:BYTE; "1=CREATE LOGICAL NAME6 "2=APPEND TO LOGICAL NAME &  J:ADDRESS; "LOGICAL NAME ADDRESS &"  K:ADDRESS);"PATHNAME ADDRESS " FORWARD; 2PROCEDURE SPDACN(I:BYTE); "SDT ENTRY INDEX2 FORWARD; 2PROCEDURE SPDCNT(I:BYTE); "CNT ENTRY INDEX2 FORWARD; @PROCEDURE SPDELF(KILL :INTEGER; "DONE VS KILLED FLAG"R02@*  INDEX:INTEGER);"INDEX INTO SDT "R02* FORWARD; "R022PROCEDURE SPDIAG(I:BYTE); "SDT ENTRY INDEX2 FORWARD; "PROCEDURE SPDONE;FORWARD; "2PROCEDURE SPDSDT(I:BYTE); "SDT ENTRY INDEX2 FORWARD; .PROCEDURE SPERR(I:BYTE);"ERROR NUMBER . FORWARD; "PROCEDURE SPEXQR;FORWARD; "PROCEDURE SPFCHN2 (RECNUM:INTEGER; "RECORD NUMBER "**001** 2,OFFSET:BYTE);  "ENTRY OFFSET IN RECORD , FORWARD; (PROCEDURE SPFFN  ;FORWARD;"R04((PROCEDURE SPFUID ;FORWARD;"R03(PROCEDURE SPHOLE ;FORWARD;.PROCEDURE SPHOM  ;FORWARD; "**001** . PROCEDURE SPIO  "**001**  *(OPCODE:IO_OPCD; "I/O OPERATION CODE * " READ = 0; WRITE = 1 " RTYPE:IO_TYPE; "RECORD TYPE" " DEVICE RECORD = 0  " CLASS NAME RECORD = 1  " QUEUE RECORD = 2$ RECNUM:INTEGER;"RECORD NUMBER$( BUFFER:INTEGER); "BUFFER ADDRESS ( FORWARD; "PROCEDURE SPKOM  ;FORWARD;""PROCEDURE SPMOM  ;FORWARD;""PROCEDURE SPMSDM ;FORWARD;""PROCEDURE SPPFM  ;FORWARD;""PROCEDURE SPQADD ;FORWARD;""PROCEDURE SPQDEL ;FORWARD;""PROCEDURE SPQFND ;FORWARD;"0PROCEDURE SPQUIT(I:BYTE); "ERROR NUMBER 0 FORWARD; PROCEDURE SP$RELD(I:BYTE); "SDT ENTRY INDEX$ FORWARD; .PROCEDURE SPROM  ;FORWARD; "**001** ."PROCEDURE SPSCHD ;FORWARD;""PROCEDURE SPSDQD ;FORWARD;"2PROCEDURE SPSGNL(I:BYTE); "SDT ENTRY INDEX2 FORWARD; 0PROCEDURE SPSLOG(I:BYTE); "ERROR NUMBER 0 FORWARD; "PROCEDURE SPSTRT ;FORWARD;"2PROCEDURE SPTBID(I:BYTE); "SDT ENTRY INDEX2 FORWARD; "PROCEDURE SPUNCH ;FORWARD;".PROCEDURE SPVFY  ;FORWARD; "**001** ." '" '$?COPY DSC.TEMPLATE.DECLARE.SVC$$(*$RESUME LIST*) " ' PP USER_ERR =#E5; "INVALID REQUEST (USER ERROR) P0" 0KUTJINT P>*2Ux PROCEDURE UTJINT; EXTERNAL;  **001** 22"  SPEXQR - EXAMINE QUEUE RECORD "**001** 20"  SPFCHN - FOLLOW QUEUE CHAIN "**001** 06"  SPFFN- FIND FILE NAME, GIVEN SPOOL ID "R0466"  SPFUID - FIND REAL USER ID OF REQUESTER "R0368"  SPHOLE - FIND AVAILABLE QUEUE ENTRY "**001** 8:"  SPHOM- PROCESS HALT OUTPUT MESSAGE  "**001** :8"  SPIO - SPOOLER COMMON I/O ROUTINE "**001** 8:"  SPKOM- PROCESS KILL OUTPUT MESSAGE  "**001** :<"  SPMOM- PROCESS MODIFY OUTPUT MESSAGE  "**001** <<"  SPMSDM - PROCESS MODIFY SPOOLE DEVICE MSG "**001** <8"  SPPFM- PROCESS PRINT FILE MESSAGE "**001** 88"  SPQADD - ADD ENTRY TO QUEUE ROUTINE "**001** 8HRVS P$> 2XxF!"------------------DECLARES FOR RECO%%VER VOLUME SPACE------------- F(*$NO LIST*)"(8PROCEDURE ONEXCEPTION( MODULE: INTEGER);EXTERNAL; 8(6 PROCEDURE OVLY$ ( LOAD : INTEGER);EXTERNAL; 6(@FUNCTIONR$CLOS( PARM : INTEGER) : INTEGER;EXTERNAL; @(,FUNCTION R$GTCA : INTEGER; EXTERNAL; ,(,FUNCTIONR$IASC( VAR BIGINT : LONGINT; , SCISTR : WORD;( LENBAS : BA) : INTEGER; EXTERNAL; ((DFUNCTIONR$OPEN( VAR PNM  : LONG_STRING):INTEGER;EXTERNAL; D(*FUNCTIONR$PARM(  PRMNUM : INTEGER; *0 VAR SCISTR : LONG_STRING): INTEGER;EXTERNAL; 0(,FUNCTION R$RTCA : INTEGER; EXTERNAL; ,(0FUNCTIONR$SPLT( VAR LIST : LONG_STRING; 0@ VAR DST  : LONG_STRING; 2 VAR REM  : LONG_STRING):INTEGER;EXTERNAL; 2BFUNCTIONR$STAT( VAR PARM : LONGINT) : INTEGER;EXTERNAL; B( PROCEDURE R$STOP( CC : INTEGER; (& VAR MSGEND : MESSAGE);EXTERNAL; &(DFUNCTIONR$TAD ( VAR TAD  : LONG_STRING):INTEGER;EXTERNAL; D(,FUNCTION R$WEOL : INTEGER; EXTERNAL; ,,FUNCTIONR$WRIT( VAR MSG  : MESSAGE; ,, COL  : INTEGER) : INTEGER;EXTERNAL; ,(6PROCEDURE SVC$( VAR IRB  : WORD); EXTERNAL; 6( PROCEDURE RVSAAF; FORWARD; 2 PROCEDURE RVSAFA( MBS  : WORD); FORWARD; 2* PROCEDURE RVSALN( VAR IRB  : IO_IRB;*$ VAR MSG  : MESSAGE);FORWARD; $(& PROCEDURE RVSAVA( VAR SAA  : WORD;& VAR SSO  : WORD; NUM  : WORD); FORWARD; ( PROCEDURE RVSAVS( VAR BAA  : WORD;(" VAR BAS  : WORD); FORWARD; "(, PROCEDURE RVSBAL( VAR NUM  : LONGINT; , LOC  : WORD; BASE : INTEGER;  LEN  : INTEGER);FORWARD; (& PROCEDURE RVSBAW( NUM  : WORD;& LOC  : WORD; BASE : INTEGER;  LEN  : INTEGER);FORWARD; (*FUNCTION RVSBBL : BOOLEAN; FORWARD; * PROCEDURE RVSBBY; FORWARD; PROCEDURE RVSBEM; FORWARD; *FUNCTION RVSBFT : BOOLEAN; FORWARD; *(FUNCTION RVSBMS( VAR RETBAA : WORD;(, VAR RETBAS : WORD) : BOOLEAN; FORWARD; ,(& PROCEDURE RVSCAA( FDRPTR : WORD;&" VAR ALCADU : WORD); FORWARD; "@ PROCEDURE RVSCLF; FORWARD; 6 PROCEDURE RVSCLN( VAR IRB  : IO_IRB); FORWARD; 6&FUNCTIONRVSCMB( SRC  : WORD;& DST  : WORD;( LEN  : INTEGER):BOOLEAN;FORWARD; ( PROCEDURE RVSCMD; FORWARD; PROCEDURE RVSCMC; FORWARD; PROCEDURE RVSCSA; FORWARD; & PROCEDURE RVSCSE( ERROR : WORD;&$ VAR ERRMSG : MESSAGE);FORWARD; $&FUNCTIONRVSCSF( FNM  : WORD;&& LEV  : WORD):BOOLEAN; FORWARD; &( PROCEDURE RVSCSR( VAR BUF  : WORD;( VAR NUM  : WORD; VAR STE  : SSE); FORWARD; & PROCEDURE RVSCST( FDRPTR : WORD;&" VAR SATIDX : WORD); FORWARD; "& PROCEDURE RVSCUA( FDRPTR : WORD;&" VAR USDADU : WORD); FORWARD; " PROCEDURE RVSCVA;  FORWARD; (&FUNCTIONRVSDAF( TYP  : WORD;&( MPEPTR : WORD) : BOOLEAN; FORWARD; ( PROCEDURE RVSDVS; FORWARD; ( PROCEDURE RVSEAC; FORWARD; PROCEDURE RVSECR; FORWARD; PROCEDURE RVSEND; FORWARD; PROCEDURE RVSESA; FORWARD; PROCEDURE RVSEVA; FORWARD; ( PROCEDURE RVSEOT; FORWARD; (0PROCEDURE RVSESP( VAR SCILNM : LONG_STRING; 0( VAR SCIBNM : LONG_STRING);FORWARD; ((6 PROCEDURE RVSFMG( VAR FMG  : MESSAGE);FORWARD; 6( PROCEDURE RVSGMM; FORWARD; PROCEDURE RVSGMS; FORWARD; PROCEDURE RVSGSA; FORWARD; 0PROCEDURE RVSGSI( VAR SCILNM : LONG_STRING; 0( VAR SCIBNM : LONG_STRING);FORWARD; (PROCEDURE RVSGTC; FORWARD;  PROCEDURE RVSGTE; FORWARD; PROCEDURE RVSGVI; FORWARD; PROCEDURE RVSGVS; FORWARD; ( PROCEDURE RVSHNG; FORWARD; ( PROCEDURE RVSIBS; FORWARD; PROCEDURE RVSICC; FORWARD; PROCEDURE RVSICR; FORWARD; PROCEDURE RVSIDT; FORWARD; .PROCEDURE RVSIEM( VAR NEWMPE : MAP_ENTRY; . FBK  : WORD); FORWARD;  PROCEDURE RVSIMP; FORWARD; PROCEDURE RVSIQS; FORWARD; (& PROCEDURE RVSLDS( BEET : WORD;& NUM  : INTEGER;  SRC  : BYTE; DST  : WORD); FORWARD; & PROCEDURE RVSLDD( BEET : WORD;& NUM  : INTEGER;  SRC  : WORD; DST  : WORD); FORWARD;  PROCEDURE RVSLFA; FORWARD;  PROCEDURE RVSLLF; FORWARD; 4 PROCEDURE RVSLSA( VAR LSA  : LONG_SSB_ADDRESS;4 NUM  : INTEGER;  OFF  : INTEGER; " VAR DST  : WORD); FORWARD; ":PROCEDURE RVSLUF( VAR SCIBNM : LONG_STRING);FORWARD; :(4 PROCEDURE RVSMDB( VAR DBK  : WORD); FORWARD; 44 PROCEDURE RVSMFB( VAR FBK  : WORD); FORWARD; 4 PROCEDURE RVSMFL; FORWARD; PROCEDURE RVSMFS; FORWARD; PROCEDURE RVSMMF; FORWARD; PROCEDURE RVSMMS; FORWARD; , PROCEDURE RVSMSG( VAR MSG  : MESSAGE; , SKIP : INTEGER);FORWARD; (& PROCEDURE RVSMVA( DBA  : WORD;& FBA  : WORD; MBS  : WORD); FORWARD; & PROCEDURE RVSMVB( SRC  : WORD;& DST  : WORD; LEN  : INTEGER);FORWARD; PROCEDURE RVSMVD; FORWARD; (:PROCEDURE RVSOLF( VAR SCILNM : LONG_STRING);FORWARD; :(* PROCEDURE RVSOLN( VAR IRB  : IO_IRB;*$ VAR MSG  : MESSAGE);FORWARD; $(6 PROCEDURE RVSOMG( VAR OMG  : MESSAGE);FORWARD; 6( PROCEDURE RVSPCO; FORWARD; &FUNCTIONRVSPCT( PIECE : WORD;&" WHOLE : WORD):WORD;FORWARD; " PROCEDURE RVSPMB; FORWARD; PROCEDURE RVSPMV; FORWARD; & PROCEDURE RVSPMD( DBK  : WORD;& FBK  : WORD); FORWARD; * PROCEDURE RVSPRM(  PRMNUM : INTEGER; *( VAR SCISTR : LONG_STRING);FORWARD; ( PROCEDURE RVSPTV; FORWARD; (:PROCEDURE RVSPSL( VAR SCILNM : LONG_STRING);FORWARD; :@(& PROCEDURE RVSQPH( SRTLFT : WORD;& SRTRGT : WORD); FORWARD; (FUNCTION RVSQPP( VAR SRTLFT : WORD;(, VAR SRTRGT : WORD) : BOOLEAN; FORWARD; , PROCEDURE RVSQST; FORWARD; (6 PROCEDURE RVSRLN( VAR IRB  : IO_IRB); FORWARD; 6(&FUNCTIONRVSRCR( DST  : WORD;&( LEN  : INTEGER):BOOLEAN;FORWARD; ( PROCEDURE RVSRDE; FORWARD; PROCEDURE RVSRMD; FORWARD; PROCEDURE RVSRTC; FORWARD; ( PROCEDURE RVSRVA; FORWARD; (& PROCEDURE RVSSAL( FDRPTR : WORD;& SATIDX : INTEGER; " VAR UNUADU : WORD); FORWARD; "&FUNCTIONRVSSBS( BAS  : WORD;& VAR FBK  : WORD;* TYP  : INTEGER) : BOOLEAN;FORWARD; * PROCEDURE RVSSCI;  FORWARD; $ PROCEDURE RVSSCR( ID : WORD;$ SRC  : WORD); FORWARD;  PROCEDURE RVSSFA; FORWARD; (PROCEDURE RVSSFM( VAR FDRPTR : WORD;( FAA  : WORD; FSO  : WORD; LOWBAA : WORD; HIHBAA : WORD); FORWARD; & PROCEDURE RVSSMD( DBK  : WORD;& FBK  : WORD); FORWARD; &FUNCTIONRVSSML( TYP  : WORD;&, VAR MPEPTR : WORD) : BOOLEAN; FORWARD; ,&FUNCTIONRVSSMR( TYP  : WORD;&, VAR MPEPTR : WORD) : BOOLEAN; FORWARD; ,0 PROCEDURE RVSSPT( VAR LIST : LONG_STRING; 0( VAR DST  : LONG_STRING);FORWARD; (2 PROCEDURE RVSSPH( VAR STE  : SSE); FORWARD; 2<FUNCTIONRVSSPP( VAR STE  : SSE) : BOOLEAN;FORWARD; < PROCEDURE RVSSRD( BUF  : WORD; NUM  : WORD;" VAR STE  : SSE);  FORWARD; "((FUNCTIONRVSSSP( VAR SA1  : WORD;( VAR SA2  : WORD;, VAR FBK  : WORD) : BOOLEAN; FORWARD; , PROCEDURE RVSSTT; FORWARD; ( PROCEDURE RVSSVC( VAR IRB  : WORD;($ VAR ERRMSG : MESSAGE);FORWARD; $ PROCEDURE RVSSNP; FORWARD; (2 PROCEDURE RVSTCA( SIZ  : WORD); FORWARD; 24 PROCEDURE RVSTDL( SEC  : INTEGER);FORWARD; 4*FUNCTION RVSTMC : BOOLEAN; FORWARD; * PROCEDURE RVSTMG; FORWARD; (FUNCTION RVSTRV( VAR RETFDR : WORD;( VAR RETFAA : WORD;, VAR RETFSO : WORD) : BOOLEAN; FORWARD; ,(& PROCEDURE RVSUDE( DBK  : WORD;& FBK  : WORD); FORWARD; & PROCEDURE RVSUPF( FDRPTR : WORD;& FBA  : WORD; FBS  : WORD); FORWARD; 2 PROCEDURE RVSUST( DBK  : WORD); FORWARD; 2( PROCEDURE RVSVDB; FORWARD; PROCEDURE RVSVPI; FORWARD; (6 PROCEDURE RVSWLF( VAR MSG  : MESSAGE);FORWARD; 6(6 PROCEDURE RVSWIO( VAR IRB  : IO_IRB); FORWARD; 6((*$RESUME LIST*) F!"-------------------END DECLARES--------------------------------- FORWARD; "PROCEDURE SPSTRT ;FORWARD;"2PROCEDURE SPTBID(I:BYTE); "SDT ENTRY INDEX2 FORWARD; "PROCEDURE SPUNCH ;FORWARD;".PROCEDURE SPVFY  ;FORWARD; "**001** ." '" '$?COPY DSC.TEMPLATE.DECLARE.SVC$$(*$RESUME LIST*) " MRSDTMP P>*2Yx PROCEDURE RSDTMP; EXTERNAL;  VER VOLUME SPACE------------- F(*$NO LIST*)"(8PROCEDURE ONEXCEPTION( MODULE: INTEGER);EXTERNAL; 8(6 PROCEDURE OVLY$ ( LOAD : INTEGER);EXTERNAL; 6(@FUNCTIONR$CLOS( PARM :%% INTEGER) : INTEGER;EXTERNAL; @(,FUNCTION R$GTCA : INTEGER; EXTERNAL; ,(,FUNCTIONR$IASC( VAR BIGINT : LONGINT; , SCISTR : WORD;( LENBAS : BA) : INTEGER; EXTERNAL; ((DFUNCTIONR$OPEN( VAR PNM  : LONG_STRING):INTEGER;EXTERNAL; D(*FUNCTIONR$PARM(  PRMNUM : INTEGER; *0 VAR SCISTR : LONG_STRING): INTEGER;EXTERNAL; 0(,FUNCTION R$RTCA : INTEGER; EXTERNAL; ,(0FUNCTIONR$SPLT( VAR LIST : LONG_STRING; 0NRSCLF P>(2Zx PROCEDURE RSCLF; FORWARD; VER VOLUME SPACE------------- F(*$NO LIST*)"(8PROCEDURE ONEXCEPTION( MODULE: INTEGER);EXTERNAL; 8(6 PROCEDURE OVLY$ ( LOAD : INTEGER);EXTERNAL; 6(@FUNCTIONR$CLOS( PARM : INTEGER) : INTEGER;EXTERNAL; @(,FUNCTION R$GTCA : INTEGER; EXTERNAL; ,(,FUNCTIONR$IASC( VAR BIGINT : LONGINT; , SCISTR : WORD;( LENBAS : BA) : INTEGER; EXTERNAL; ((DFUNCTIONR$OPEN( VAR PNM  : LONG_STRING):INTEGER;EXTERNAL; D(*FUNCTIONR$PARM(  PRMNUM : INTEGER; *0 VAR SCISTR : LONG_STRING): INTEGER;EXTERNAL; 0(,FUNCTION R$RTCA : INTEGER; EXTERNAL; ,(0FUNCTIONR$SPLT( VAR LIST : LONG_STRING; 0ORSCSEG P>t2[x0FUNCTIONRSCSEG ( INITIAL_DATA : ADDRESS ; 06 VAR RUNTIMEID : INTEGER ) : INTEGER ; FORWARD ;6ONEXCEPTION( MODULE: INTEGER);EXTERNAL; 8(6 PROCEDURE OVLY$ ( LOAD : INTEGER);EXTERNAL; 6(@FUNCTIONR$CLOS( PARM : INTEGER) : INTEGER;EXTERNAL; @(,FUNCTION R$GTCA : INTEGER; EXTERNAL; ,(,FUNCTIONR$IASC( VAR BIGINT : LONGINT; , SCISTR : WORD;( LENBAS : BA) : INTEGER; EXTERNAL; ((DFUNCTIONR$OPEN( VAR PNM  : LONG_STRING):INTEGER;EXTERNAL; D(*FUNCTIONR$PARM(  PRMNUM : INTEGER; *0 VAR SCISTR : LONG_STRING): INTEGER;EXTERNAL; 0(,FUNCTION R$RTCA : INTEGER; EXTERNAL; ,(0FUNCTIONR$SPLT( VAR LIST : LONG_STRING; 0PSPLPWT P >2\x@P(*$NO LIST*) PP"----------------------------------------------------------- PP" LIST OF PROCEDURES USED BY THE LPWRITER TASK PP" 01/26/81 PP" REVISED 09/28/81,01/28/82 DNOS 1.1 PP" R03 03/26/83 DNOS 1.2 PP"----------------------------------------------------------- PPPROCEDURE SPLOGM ( ERROR : INTEGER; CODE : BYTE); FORWARD; PPFUNCTION SPBANN ( VAR J:PARMS ): INTEGER; FORWARD; "**001** PFUNCTIJON SPFORM : INTEGER; FORWARD; "**001** JPFUNCTION SPSEMA (LOG_UNIT : BYTE) : INTEGER; FORWARD; "**001** PPFUNCTION SPCOPY : INTEGER; FORWARD; "**001** PPFUNCTION SPFLIO ( FUN_CODE : INTEGER; "R03 PP VAR BUF_PTR : MAX_BUFFER_PTR; "R03 PP VAR BUF_LEN : INTEGER) : INTEGER; FORWARD; "R03 PPFUNCTION SPPRIO ( FUN_CODE : INTEGER; "R03 PP PLINE : MAX_BUFFER_PTR; "R03 PP COUNT : INTEGER) : INTEGER; FORWARD; "R03 P FUNCTION SP DLPER ( TTYPE : INTEGER ): INTEGER; FORWARD; DPFUNCTION SPTIME : INTEGER; FORWARD; PP(*$RESUME LIST*) P;  LEN  : INTEGER);FORWARD; (& PROCEDURE RVSBAW( NUM  : WORD;& LOC  : WORD; BASE : INTEGER;  LEN  : INTEGER);FORWARD; (*FUNCTION RVSBBL : BOOLEAN; FORWARD; * PROCEDURE RVSBBY; FORWARD; PROCEDURE RVSBEM; FORWARD; *FUNCTION RVSBFT : BOOLEAN; FORWARD; *(FUNCTION RVSBMS( VAR RETBAA : WORD;(, VAR RETBAS : WORD) : BOOLEAN; FORWARD; ,(& PROCEDURE RVSCAA( FDRPTR : WORD;&" VAR ALCADU : WORD); FORWARD; "MPLCRSH P>J2]x@PROCEDURE PLCRSH(  ERROR_CODE : WORD  ) ; FORWARD; @P" LIST OF PROCEDURES USED BY THE LPWRITER TASK PP" 01/26/81 PP" REVISED 09/28/81,01/28/82 DNOS 1.1 PP" R03 03/26/83 DNOS 1.2 PP"----------------------------------------------------------- PPPROCEDURE SPLOGM ( ERROR : INTEGER; CODE : BYTE); FORWARD; PPFUNCTION SPBANN ( VAR J:PARMS ): INTEGER; FORWARD; "**001** PPFUNCTION SPFORM : INTEGER; FORWARD; "**001** PFUNCTION SPSEMA (RUIROUTINP>"2^x@" ADD USER ID ! PROCEDURE UIAUI; FORWARD; " DELETE USER ID  PROCEDURE UIDUI; FORWARD; " LIST USER IDS  PROCEDURE UILUI; FORWARD; " MODIFY USER ID  PROCEDURE UIMUI; FORWARD;  " BUILD FILE INDEX RECORD 8PROCEDURE UIBLDF (VAR SECLF : SCLF; VAR FIR : CLR; 8, VAR FIRREC : INTEGER; UDRREC : INTEGER; ,0 VAR ERR : INTEGER; USERID : ALFA); FORWARD; 0"" BUILD USER DESCRIPTOR RECORD"6PROCEDURE UIBLDU (VAR SECLF : SCLF; VAR UDR : CLR;6, VAR UDRREC : INTEGER; PRVLVL : INTEGER; ,& CRYPTED : ALFA; DESCRIP : STRING); & FORWARD;  " CLEAR FIR ENTRY 2PROCEDURE UICLRF (VAR SECLF : SCLF; FIR : CLR;20 FIRHSH,FIRREC,INDEX,ERR : INTEGER); FORWARD;0" CLEAR UDR ENTRY 2PROCEDURE UICLRU (VAR SECLF : SCLF; UDR : CLR;2$ UDRREC,ERR : INTEGER); FORWARD; $D " FIND A FREE RECORD IN .S$CLF FOR A CONTINUED FILE INDEX RECORDD$" OR NEW USER DESCRIPTOR RECORD $6PROCEDURE UIFNDR (VAR SECLF : SCLF; VAR FUR : CLR;6$ VAR FURREC : INTEGER); FORWARD; $:" INITIALIZE SYNONYM TABLE & LOGICAL NAME TABLE FILES :>PROCEDURE UIINIT(USERID : ALFA; PASSCODE : ALFA); FORWARD; >," SEE IF INPUT USER ID EXISTS ON .S$CLF ,6PROCEDURE UIVRFY (VAR SECLF:SCLF;  VAR FIR:CLR; 6 VAR FIRNUM,INDEX : INTEGER;  6 USERID : ALFA; VAR FOUND : BOOLEAN); FORWARD; ; 6FFER_PTR; "R03 PP VAR BUF_LEN : INTEGER) : INTEGER; FORWARDSSCS P? 2_xL$"***********************************************************************L" 'J" PROCEDURE DECLARATIONS FOR SHOW CHANNEL STATUS UTILITY  11/20/79 J" 'L$"***********************************************************************L" 'H"" SCFIND WORKS THROUGH A QUEUE OF CCBS TO FIND THE DESIRED CHANNEL. HJ#FUNCTION SCFIND(SCOPE : BOOLEAN; VAR CURCCB : CCB) : BOOLEAN; FORWARD;J8" SCMAIN IS THE MAIN DRIVER FOR SHOW CHANNEL STATUS 8 PROCEDURE SCMAIN; FORWARD;B" SCSSYN SETS THE SYNONYMS FOR THE REPORT FOR CHANNEL STATUS. B0PROCEDURE SCSSYN(VAR CURCCB : CCB); FORWARD;0ENTRY 2PROCEDURE UICLRF (VAR SECLF : SCLF; FIR : CLR;20 FIRHSH,FIRREC,INDEX,ERR : INTEGER); FORWARD;0" RUTGJOB P?N2`x@F!FUNCTION UTGJOB( START : JSBPTR; MAP : BOOLEAN; ANYUSER : BOOLEAN;F  VAR USERID : ALFA): JSBPTR;  EXTERNAL;"(*$NO LIST*)"" 'D " START CAN BE EITHER A JSB ADDRESS OR NIL - IF IT IS NIL, THE DF"  SEARCH FOR THE NEXT JOB STARTS AT JSBLST IN NFPTR; OTHERWISE F<"  THE SEARCH STARTS WITH THE JSB POINTED TO BY START <" '>" MAP SHOULD BE SET TO TRUE IF THE JCA IS TO BE MAPPED IN >" 'H"" ANYUSER SHOULD BE SET TO TRUE IF A JSB WITH ANY USER ID WILL DO; HF"  IF ONLY JSB'S FOR A PARTICULAR USER ID ARE DESIRED, IT SHOULDF"  BE SET FALSE " 'H"" USERID IS A PACKED ARRAY[1..8] OF CHAR WHICH CONTAINS THE USER IDH."  IN THE CASE THAT ANYUSER IS FALSE. IF A. NYUSER IS TRUE, USERID"  IS NOT USED(*$LIST*) #2$ UDRREC,ERR : INTEGER); FORWARD; $D " FIND A FREE RECORD IN .S$CLF FOR A CONTINUED FILE INDEX RECORDD$" OR NEW USER DESCRIPTOR RECORD $6PROCEDURE UIFNDR (VAR SECLF : SCLF; VAR FUR : CLR;6$ VAR FURREC : INTEGER); FORWARD; $:" INITIALIZE SYNONYM TABLE & LOGICAL NAME TABLE FILES :>PROCEDURE UIINIT(USERID : ALFA; %%PASSCODE : ALFA); FORWARD; >," SEE IF INPUT USER ID EXISTS ON .S$CLF ,6PROCEDURE UIVRFY (VAR SECLF:SCLF;  VAR FIR:CLR; 6 VAR FIRNUM,INDEX : INTEGER;  6 USERID : ALFA; VAR FOUND : BOOLEAN); FORWARD; ; 6FFER_PTR; "R03 PP VAR BUF_LEN : INTEGER) : INTEGER; FORWARDUBDBACK P ? K2bx@(*$ NO LIST *)!((8 (*FORWARD DECLARATIONS FOR SUB-ROUTINES OF BACKUP*)8(H"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""H" procedure BDADJF;  forward; "($procedure BDADKD(SECOFF : WORD; $$ MOVKDR : boolean);  forward; $(*procedure BDCKRD(var READY : boolean; *( var IRBINDX : integer);  forward; ((" procedure BDCKVR;  forward; "(" procedure BDCLNP;  forward; "(0procedure BDDIRT(DIRPTH : PATH);  forward; 0(" procedure BDDOND;  forward; "(" procedure BDDONT;  forward; "(" procedure BDFDRF;  forward; "(8procedure BDFDRP(var IRBINDX : integer);  forward; 8(procedure BDFLSH;  forward; (" procedure BDIOPR;  forward; "(0procedure BDIOQT(WICH : ZERONE);  forward; 0(( procedure BDMVIO(INDEX : integer; ( SRCADR : ADDRESS;  LEN : integer; $ FROMFDR : boolean);  forward; $(" procedure BDMVPR;  forward; "(0procedure BDNXVL(WICH : ZERONE);  forward; 0((procedure BDQERR( var MSGTXT: MSG;( ERRCOD: BYTE);  forward;  (,procedure BDREDD(var IRBINDX : integer; ,& var READY : boolean);  forward; &(" procedure BDREDF;  forward; "(" procedure BDREDV;  forward; "(:procedure BDSCTY(var STYPE : DIR_SECTOR);  forward; :(* procedure BDSVFD(var ALIAS: boolean;*R;. var KEY: boolean; var ADRNUM : WORD; $ var KDRNUM : WORD);  forward; $(" procedure BDVECT;  forward; "(" procedure BDVERF;  forward; "($procedure BDWDSK(WICH : ZERONE; $. var WRITE_STARTED : boolean); forward; .($procedure BDWTAP(WICH : ZERONE; $. var WRITE_STARTED : boolean); forward; .((H"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" H( (*$ RESUME LIST *) 1AB2 1960 4P R SP02/Y 3/ 2/836: 0A LOGON  21EC C000 T MESSAGE  "**001** :8"  SPIO - SPOOLER COMMON I/O R"k4x`4DLPER ( TTYPE : INTEGER ): INTEGER; FORWARD; DPFUNCTION SPTIME : IUPLGTA P?2cx2FUNCTIONPLGTA (  BLK_SIZE  : WORD ; 2 TABLE_TYPE : INTEGER; 4  VAR BLK_ADDRESS : ADDRESS ): WORD ; FORWARD; 4""""""""""""""""""""""""""H" procedure BDADJF;  forward; "($procedure BDADKD(SECOFF : WORD; $$ MOVKDR : boolean);  forward; $(*procedure BDCKRD(var READY : boolean; *( var IRBINDX : integer);  forward; ((" procedure BDCKVR;  forward; "(" procedure BDCLNP;  forward; "(0procedure BDDIRT(DIRPTH : PATH);  forward; 0(" procedure BDDOND;  forward; "(" procedure BDDONT;  forward; "(" procedure BDFDRF;  forward; "(8procedure BDFDRP(var IRBINDX : integer);  forward; 8(procedure BDFLUUTLWRT P?P2dxFFUNCTION UTLWRT ( LONG_STRING : LONGSTRING) : INTEGER;EXTERNAL; FER; 4  VAR BLK_ADDRESS : ADDRESS ): WORD ; FORWARD; 4""""""""""""""""""""""""""H" procedure BDADJF;  forward; "($procedure BDADKD(SECOFF : WORD; $$ MOVKDR : boolean);  forward; $(*procedure BDCKRD(var READY : boolean; *( var IRBINDX : integer);  forward; ((" procedure BDCKVR;  forward; "(" procedure BDCLNP;  forward; "(0procedure BDDIRT(DIRPTH : PATH);  forward; 0(" procedure BDDOND;  forward; "(" procedure BDDONT;  forward; "(" procedure BDFDRF;  forward; "(8procedure BDFDRP(var IRBINDX : integer);  forward; 8(procedure BDFLXCP P ?V2tx@"(*$NO LIST *)!<"******************************************************* < "  * 4" GLOBAL DECLARATIONS FOR PATCH 07/12/79  * 4 "  * <"******************************************************* <" '.PROCEDURE CPCALL(ERROR: INTEGER); FORWARD;.(,PROCEDURE CPDUMP(CURRENT,ORIGIN : WORD; , VALUE : WORD); FORWARD;((FUNCTION CPVRFY( VERLIST : STRING; ( VAR PFILE : PROGRAMFILE; VAR ID : PHASE_ID; &  ADDRES : WORD): BOOLEAN; FORWARD; &(&PROCEDURE CPAPLY( SIZE : INTEGER; & VAR PFILE : PROGRAMFILE;  VAR ID : PHASE_ID;ADDRES : WORD;  VERLIST : STRING); FORWARD; (&PROCEDURE CPTRAN(VAR OFILE : TEXT;&  VAR MAP : SEQUENTIALFILE; START : INTEGER;  VAR SIZE : INTEGER;  RELOCATE : WORD); FORWARD;(.PROCEDURE CPGBUF(VAR PFILE : PROGRAMFILE; . VAR ID : PHASE_ID; VAR ADDRES : LONGINT; $ VERIFYING : BOOLEAN); FORWARD; $(.PROCEDURE SETBIT(VAR PFILE : PROGRAMFILE; . VAR ID : PHASE_ID; ADDRES : WORD; BIT : BOOLEAN); FORWARD; (.PROCEDURE GETBIT(VAR PFILE : PROGRAMFILE; . VAR ID : PHASE_ID; ADDRES : WORD;"  VAR BIT : BOOLEAN); FORWARD; "(,FUNCTION CPREAD(VAR PFILE : PROGRAMFILE;, VAR ID : PHASE_ID;  VAR ADDRES : LONGINT;(VERIFYING : BOOLEAN): WORD; FORWARD;((.PROCEDURE CPWRIT(VAR PFILE : PROGRAMFILE; . VAR ID :  PHASE_ID; ADDRES : LONGINT;  VALUE : WORD); FORWARD;(8PROCEDURE CPCLOS(VAR PFILE : PROGRAMFILE); FORWARD; 8(.PROCEDURE CPGETA(VAR PFILE : PROGRAMFILE; . VAR OFILE : TEXT; VAR ADDRES : WORD); FORWARD; ("PROCEDURE CPMAP(NAME : STRING;" VAR MODTYPE : PHASE_ID;$VAR PF : PROGRAMFILE); FORWARD; $(.PROCEDURE CPMAKE(VAR PFILE : PROGRAMFILE; . VAR ADDRES : INTEGER;  VAR OFILE : TEXT; VAR NFPAT : INTEGER; $ VAR VERLIST : STRING); FORWARD;$(8PROCEDURE CPOPEN(VAR PFILE : PROGRAMFILE); FORWARD; 8((PROCEDURE CPFNAM(VAR NAME : STRING; ("VAR LINKMAP : SEQUENTIALFILE; " VAR VALUE : INTEGER; VAR FOUND : BOOLEAN; VAR PHASE : STRING; "  VAR ID : PHASE_ID ); FORWARD;"(*PROCEDURE CPINIT(VAR MODNAME : STRING;* VAR NFPAT : STRING; VAR OFFSET : INTEGER;  VAR VERLIST : STRING; VAR OBJECT : TEXT); FORWARD; "(*$LIST*)#EDURE AGVFYU (USERID : ALFA; VAR UDR_RECNO : INTEGER; > VAR RC : INTEGER); FORWARD;  " '" WRITE THE CLF BPROCEDURE AGWRIT(CLF_BUF : CLF; RECORD_NO : INTEGER); FORWARD; BFILEPROCEDURE CVFFOR( VAR BARREC : BAR_REC_DEFN ); FORWARD; @ k4`4" ' " WRITE A MESSAGE TO THE TLF BPROCEDURE AGTLF(USER_ID : STRING; MESSAGE : STRING); FORWARD; B" ' " VERIFY ACCESS GROUP IN AGR D PROCEDURE AGVFYA (ACCESSYPLPACT P?%f2ox.PROCEDURE PLPACT(VAR JSB_PTR : JSB; .*  VAR TSB_PTR : TSB ) ; FORWARD; *O : INTEGER; >0 AGR_OFFSET : INTEGER; ADD_LEADER : BOOLEAN; 0  VAR RC : INTEGER); FORWARD; " '," ADD A LIST OF USERS TO AN ACCESS GROUP,J#PROCEDURE AGADLU(AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER); FORWARD; J" ' " CREATE AN ACCESS GROUPBPROCEDURE AGCAG (UDR_RECNO : INTEGER; USERID : ALFA); FORWARD; B" ' " FIND ACCESS GROUP IN UDR@PROCEDURE AGCHKA (AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER; @, UDR_RECNO : INTEGER; VAR CLF_BUF : CLF; ,0 VAR RECNO : INTEGER; VAR UDO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); FORWARD; 4" ' " CHANGE THE LEADER PRZXREF P?(j2rx(*$ NO LIST *)!<FUNCTION XRHASH( VAR SYM : SYMBOL ) : INTEGER; FORWARD; <6FUNCTION R$MAPS(X,Y: INTEGER): INTEGER; EXTERNAL; 6D FUNCTION R$PARM(X : INTEGER; VAR Y : STRING):INTEGER; EXTERNAL; DF!PROCEDURE SET$ACNM(VAR INFILE:TEXT; VAR SYNVAL: SCISTR); EXTERNAL;F PROCEDURE XRFNDR; FORWARD; PROCEDURE XRENIT; FORWARD; PROCEDURE XRBLDP; FORWARD; PROCEDURE XRINRF; FORWARD;6PROCEDURE XRADRF(VAR CUR_NAME : SYMBOL); FORWARD; 6 PROCEDURE XRSORT; FORWARD; PROCEDURE XRDUMP; FORWARD; PROCEDURE XRSRCH; FORWARD; (*$ RESUME LIST *)%%RUTPUER P?+ R2ex8PROCEDURE UTPUER ( MSG_NUM : INTEGER; CC : INTEGER; 8"TEXT_PTR : STRING); EXTERNAL; "(*$NO LIST*)"" '." MSG_NUM IS THE INTERNAL MESSAGE NUMBER ." ' " CC IS THE VALUE FOR $$CC. " 'B" TEXT_PTR IS A POINTER TO THE VARIABLE TEXT (RIFLE) STRING. B" '(*$LIST*) # : boolean; *( var IRBINDX : integer);  forward; ((" procedure BDCKVR;  forward; "(" procedure BDCLNP;  forward; "(0procedure BDDIRT(DIRPTH : PATH);  forward; 0(" procedure BDDOND;  forward; "(" procedure BDDONT;  forward; "(" procedure BDFDRF;  forward; "(8procedure BDFDRP(var IRBINDX : integer);  forward; 8(procedure BDFL\PLQACC P?.L2pxBFUNCTIONPLQACC(VAR ACC_PTR : ACC ): WORD ; FORWARD; B`48GR_RECNO : INTEGER; AGR_OFFSET : INTEGER); FORWARD; 8" ' " CREATE AN ACCESS GROUPBPROCEDURE AGCAG (UDR_RECNO : INTEGER; USERID : ALFA); FORWARD; B" ' " FIND ACCESS GROUP IN UDR@PROCEDURE AGCHKA (AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER; @BURE CVEACT ; EXTERNAL;$($PROCEDURE CVENDC ; E k4`4.PROCEDURE PLPACT(VAR JSB_PTR : JSB; .*  VAR TSB_PTR : TSB ) ; FORWARD; *]AGROUTINP =A2lxw@" '$" ADD A USER TO AN ACCESS GROUP $>PROCEDURE AGADDU(UDR_RECNO : INTEGER; AGR_RECNO : INTEGER; >0 AGR_OFFSET : INTEGER; ADD_LEADER : BOOLEAN; 0  VAR RC : INTEGER); FORWARD; " '," ADD A LIST OF USERS TO AN ACCESS GROUP,J#PROCEDURE AGADLU(AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER); FORWARD; J" ' " CREATE AN ACCESS GROUPBPROCEDURE AGCAG (UDR_RECNO : INTEGER; USERID : ALFA); FORWARD; B" ' " FIND ACCESS GROUP IN UDR@PROCEDURE AGCHKA (AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER; @, UDR_RECNO : INTEGER; VAR CLF_BUF : CLF; ,0 VAR RECNO : INTEGER; VAR UDO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); FORWARD; 4" ' " CHANGE THE LEADER PR>OCEDURE AGCHGL (UDR_RECNO : INTEGER; AGR_RECNO : INTEGER; >$ AGR_OFFSET : INTEGER); FORWARD; $" '(" ENCRYPT/DECRYPT ACCESS GROUP NAME (@PROCEDURE AGCRYP (OPTYPE : ALFA; VAR NAME : ALFA); FORWARD; @" ' " DELETE AN ACCESS GROUPJ#PROCEDURE AGDAG (AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER); FORWARD; J" '(" DELETE A USER FROM AN ACCESS GROUP(>PROCEDURE AGDAGU(UDR_RECNO : INTEGER; AGR_RECNO : INTEGER; >0 AGR_OFFSET : INTEGER; DELETE_LDR : BOOLEAN; 0  VAR RC : INTEGER); FORWARD; " '2" DELETE A LIST OF USERS FROM AN ACCESS GROUP 2J#PROCEDURE AGDEL (AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER); FORWARD; J" ' " LIST ACCESS GROUPS PROCEDURE AGLAG (UDR_REC,NO : INTEGER; USERID : ALFA ); FORWARD; ," '&" LIST MEMBERS OF AN ACCESS GROUP &@PROCEDURE AGLAGM(AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER; @2 ACCESS_GROUP : ALFA; USERID : ALFA); FORWARD; 2" '" READ THE CLF!8PROCEDURE AGREAD(CLF_BUF : CLF; RECORD_NO : INTEGER;8 VAR EOF : BOOLEAN); FORWARD; " ' " SET CREATION ACCESS GROUP  4PROCEDURE AGSCAG(UDR_RECNO : INTEGER); FORWARD; 4" ' " WRITE A MESSAGE TO THE TLF BPROCEDURE AGTLF(USER_ID : STRING; MESSAGE : STRING); FORWARD; B" ' " VERIFY ACCESS GROUP IN AGR D PROCEDURE AGVFYA (ACCESS_GROUP : ALFA; VAR AGR_RECNO : INTEGER; D0 VAR AGR_OFFSET : INTEGER; VAR CLF_BUF : CLF; 0 VAR RC : INTEGER); FOR WARD;  " '" VERIFY USER ID >PROCEDURE AGVFYU (USERID : ALFA; VAR UDR_RECNO : INTEGER; > VAR RC : INTEGER); FORWARD;  " '" WRITE THE CLF BPROCEDURE AGWRIT(CLF_BUF : CLF; RECORD_NO : INTEGER); FORWARD; B): WORD; FORWARD; (,FUNCTIONCVFNC2( OP1  : WORD  ; ,OP2  : WORD  ; OP3  : WORD  ; TYP  : INT16): WORD; FORWARD; (.PROCEDURE CVFNC3( VAR OP1: INT32  ; . OP2: WORD ; &VAR RET1: INT32 ); FORWARD; &(8PROCEDURE CVFSRD( AFRIDX : INT16); FORWARD; 8(4PROCEDURE CVGIOB( VAR AFRREC: AFR_REC_DEFN ; 4&VAR TMPDSA: WORD); FORWARD; &(PROCEDURE CV^PLDACT P=L2mxyBFUNCTIONPLDACT(VAR TSB_PTR : TSB ): WORD ; FORWARD; B_RECNO : INTEGER; AGR_RECNO : INTEGER; >0 AGR_OFFSET : INTEGER; ADD_LEADER : BOOLEAN; 0  VAR RC : INTEGER); FORWARD; " '," ADD A LIST OF USERS TO AN ACCESS GROUP,J#PROCEDURE AGADLU(AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER); FORWARD; J" ' " CREATE AN ACCESS GROUPBPROCEDURE AGCAG (UDR_RECNO : INTEGER; USERID : ALFA); FORWARD; B" ' " FIND ACCESS GROUP IN UDR@PROCEDURE AGCHKA (AGR_RECNO : INTEGER; AGR_OFFSET : INTEGER; @, UDR_RECNO : INTEGER; VAR CLF_BUF : CLF; ,0 VAR RECNO : INTEGER; VAR UDO_OFF : INTEGER; 04 VAR PREV : INTEGER; VAR RC : INTEGER); FORWARD; 4" ' " CHANGE THE LEADER PR_PLHASH P=Ep2$xb2FUNCTIONPLHASH(  FILE_NAME : ALFA ; 20  DIRSIZ  : INTEGER) : INTEGER ; FORWARD; 0 "ASSIGN FILE PARAMETERS 84PROCEDURE LNALN;FORWARD; "ASSIGN LOGICAL NAME48PROCEDURE LNCFP;FORWARD; "CREATE FILE PARAMETERS 8H PROCEDURE LNCSVC(MULTI: INTEGER); FORWARD;"DO CREATE LOG. NAME SVCH8PROCEDURE LNDIR;FORWARD; "ASSIGN DIRECTORY PARMS 8BPROCEDURE LNGPRM(PARMNO : INTEGER; "GET PARM FROM PARMS LIST B  PARM : STRING);FORWARD; 4PROCEDURE LNIMG;FORWARD; "ASSIGN IMAGE PARMS 42PROCEDURE LNKEY;FORWARD; "ASSIGN KIF PARMS 24PROCEDURE LNLLN;FORWARD; "LIST LOGICAL NAMES 4>FUNCTIONLNMAPL(NAME,VALUE : STRING;  "MAP LOGICAL NAME > VAR MORE : INTEGER) : INTEGER; `SVC$ P=iH2xf>PROCEDURE SVC$(  SVC_PTR : ADDRESS ) ; EXTERNAL ; >****** @8*  VALUE CONTINUATION BLOCK (VCB)  07/16/81 * 8 *  * 2*  LOCATION: A NAME DEFINITION SEGMENT  * 2@************************************************************ @  DORG 0 ! *VCBVCB PTRVCB  POINTER TO NEXT NCB **VCBSIZ E"k4D`4L$C***********************************************************************LC '6C PATCH SYNONYM GENERATOR ERROR DETECTION COMMON6C 'C '"INTEGER ERRSEV, ERROR, ERRORL "C ',COMMON /PSTERR/ ERRSEV, ERROR(3), ERRORL,C 'L$C***********************************************************************LKEN(10), CHAR, VALUE, MTaUTACNM P=oN2xhD FUNCTION UTACNM(CURFDP: FDP; VAR CURJSB: JSB): STRING; FORWARD; D PP"---- SYSTEM LOG MESSAGE PARAMETERS PP" PP MSGLNG=50; "SPOOLER ERROR MESSAGE TEXT LENGTH PP MAXMSG=20; "MAXIMUM SPOOLER ERROR MESSAGES PP" PP"-- SYSTEM LOG MESSAGE NUMBERS PP" PP LG_MAPID =0`RSCJOB P=r(2xj PROCEDURE RSCJOB; FORWARD; PP" PP"-- DEVICE TABLE AND QUEUE FILE (.S$SDTQUE) CONSTANTS PP" PP RECSIZ=3*256; "PHYSICAL RECORD SIZE PP CNTNUM=48; "NUMBER OF CNT ENTRIES IN RECORD PP SDQNUM=6; "NUMBER OF SDQ ENTRIES IN RECORD "k4D`4"PROCEDURE PLINHB ; FORWARD; "B: JSB): STRING; FORWARD; D PP"---- SYSTEM LOG MES%%SAGE PARAMET`SYSJEN =~2xr@(*$NO LIST*)"(FUNCTION MATCH : BOOLEAN; FORWARD; (8FUNCTIONMEOF( LUNO : INTEGER) : BOOLEAN; FORWARD; 8(FUNCTION ASKNMB : INTEGER; FORWARD;((FUNCTION ASKYN : BOOLEAN; FORWARD;(>FUNCTIONFNDQST(SYSTEMQST : BOOLEAN) : BOOLEAN; FORWARD; >:FUNCTIONFNDANS(START : INTEGER) : BOOLEAN; FORWARD; :<FUNCTIONTILDEV(VAR XDEV : DEVICE) : BOOLEAN; FORWARD; <<FUNCTIONATLDEV(VAR XDEV : DEVICE) : BOOLEAN; FORWARD; <6FUNCTIONR$MAPS(X,Y : INTEGER):INTEGER; EXTERNAL;68FUNCTIONADDROK(ADDR: INTEGER) : BOOLEAN; FORWARD; 8(FUNCTION CHNOK : BOOLEAN; FORWARD; (0PROCEDURE UTPSER(P1,P2 : INTEGER); EXTERNAL;02PROCEDURE RS$APPEND(X,Y : INTEGER); EXTERNAL; 2 PROCEDURE OVLY$(LOAD : I NTEGER); EXTERNAL;*PROCEDURE SVC$(X : INTEGER); EXTERNAL;* PROCEDURE ADDDEV; FORWARD; PROCEDURE ADDCOM; FORWARD; PROCEDURE ADD378; FORWARD; PROCEDURE ADD327; FORWARD; PROCEDURE ADDCMA; FORWARD; PROCEDURE ADDSVC; FORWARD; PROCEDURE ADV2; FORWARD; PROCEDURE ADV3; FORWARD; PROCEDURE ADV4; FORWARD; PROCEDURE ADDSD; FORWARD;  PROCEDURE ADDTPD; FORWARD; PROCEDURE ADDVDT; FORWARD; PROCEDURE DEVINT; FORWARD;,PROCEDURE ADDHEX(X : INTEGER); FORWARD; ,,PROCEDURE ADDHXB(X : INTEGER); FORWARD; ,J#PROCEDURE ADDNAM(VAR X : PACKED ARRAY [1..?] OF CHAR; LEN : INTEGER); J FORWARD; ,PROCEDURE ADDNMB(X : INTEGER); FORWARD; ,PROCEDURE ADDP AT(X : PPTH); FORWARD; PROCEDURE ADDXOP; FORWARD; PROCEDURE ASKELM; FORWARD;,PROCEDURE ASKGEN(X : INTEGER); FORWARD; , PROCEDURE ASKNAM; FORWARD; PROCEDURE ASKPAT; FORWARD; PROCEDURE ASKQST; FORWARD;2PROCEDURE BKSPAC ( LUNO : INTEGER ); FORWARD; 2.PROCEDURE CLOS( LUNO : INTEGER); FORWARD; .J#PROCEDURE DECOD( VAR STR : PACKED ARRAY[1..?] OF CHAR; LOC : INTEGER; J6VAR STAT : BOOLEAN; VAR VALUE : INTEGER); FORWARD; 6 PROCEDURE DEFSTR; FORWARD;0PROCEDURE DUMYUP ( RN : INTEGER ); FORWARD; 08PROCEDURE ENCOD(VAR STR:PACKED ARRAY [1..?] OF CHAR;8&LOC, X, P, B : INTEGER ); FORWARD;&4PROCEDURE ERROFF ( MSGNMB : INTEGER ); FORWARD; 4 PROCEDURE ERRMSG; FORWARD;@2PROCEDURE FILLTB(USERANS : BOOLEAN); FORWARD; 2(PROCEDURE GJ(X : INTEGER); FORWARD; (6PROCEDURE HUNT( START, COUNT : INTEGER); FORWARD; 6PROCEDURE INIT; FORWARD; PROCEDURE INITDB; FORWARD; PROCEDURE INITAL; FORWARD; PROCEDURE INITCN; FORWARD; PROCEDURE INITHD; FORWARD; PROCEDURE INITOP; FORWARD;PROCEDURE INIT1;FORWARD; PROCEDURE SCAN; FORWARD;  PROCEDURE LISTRT; FORWARD; PROCEDURE DISPAT; FORWARD; PROCEDURE FORM; FORWARD;,PROCEDURE FRMXOP(X : INTEGER); FORWARD; , PROCEDURE LIST2; FORWARD;  PROCEDURE LOOK; FORWARD; PROCEDURE MTBUF; FORWARD;  PROCEDURE SHOWDV; FORWARD;,PROCEDURE FORMDV(X : INTEGER); FORWARD; ,PR*OCEDURE LONGPR(X : INTEGER); FORWARD; *,PROCEDURE PRINT(LEN : INTEGER); FORWARD;, PROCEDURE PUNT; FORWARD;  PROCEDURE RENAME; FORWARD;.PROCEDURE RSET( LUNO : INTEGER ); FORWARD;.0PROCEDURE REWRIT( LUNO : INTEGER ); FORWARD;00PROCEDURE RWSEQ( LUNO : INTEGER ); FORWARD; 0PROCEDURE SETUP;FORWARD; PROCEDURE STOP; FORWARD;  PROCEDURE STOPRT; FORWARD; PROCEDURE BILDRT; FORWARD; PROCEDURE INITCM; FORWARD; PROCEDURE BLDDSR; FORWARD; PROCEDURE BLDSWS; FORWARD; PROCEDURE BLDJCA; FORWARD; PROCEDURE BLDJSB; FORWARD; PROCEDURE BLDSSB; FORWARD; PROCEDURE BLDWSR; FORWARD;*PROCEDURE COPY(X : INTEGER); FORWARD; * PROCEDURE COPY0; FORWARD;  PROCEDURE COPY1; FORWARD;  PROCEDURE COPY2; FORWARD;  PROCEDURE COPY3; FORWARD;  PROCEDURE COPY4; FORWARD;  PROCEDURE COPY5; FORWARD;  PROCEDURE COPY6; FORWARD;  PROCEDURE COPY8; FORWARD;  PROCEDURE COPY10; FORWARD; PROCEDURE COPY11; FORWARD; PROCEDURE COPY12; FORWARD; PROCEDURE COPY13; FORWARD; PROCEDURE COPY14; FORWARD; PROCEDURE COPY15; FORWARD; PROCEDURE DAYTIM; FORWARD; PROCEDURE INSXOP; FORWARD; PROCEDURE INITBL; FORWARD; PROCEDURE REORDR; FORWARD; PROCEDURE BLDXLP; FORWARD; PROCEDURE PDTBLD; FORWARD; PROCEDURE PDTFIL; FORWARD; PROCEDURE PDTGO; FORWARD;  PROCEDURE SAVECN; FORWARD;PR OCEDURE TRAN; FORWARD; PROCEDURE COMMND; FORWARD; PROCEDURE CHANRT; FORWARD; PROCEDURE CHADEV; FORWARD; PROCEDURE CSYQST; FORWARD;PROCEDURE DELRT;FORWARD;.PROCEDURE DELDEV(TDEV : DEVPTR); FORWARD; . PROCEDURE FNDDEV; FORWARD; PROCEDURE FNDXOP; FORWARD;,PROCEDURE UNANSW(X : INTEGER); FORWARD; ,.PROCEDURE YESNO(TRVTH : BOOLEAN); FORWARD;.(*$RESUME LIST*)  PP " SYSTEM OPERATOR PP PRIORITY_ERR=09; "INVALID PRIORITY SPECIFIED PP ACTIVE_ERR =10; "ACTIVE QUEUE ENTRIES: DEVICE OR P* " ITS CLASS NA*\SEMPRC P?12vx" '0" PROCEDURE DECLARATIONS FOR THE SEM UTILITY0" '" PROCEDURE SEMGEU;  FORWARD; "" PROCEDURE SEMWRT;  FORWARD; " 4 "  * <"******************************************************* <" '.PROCEDURE CPCALL(ERROR: INTEGER); FORWARD;.(,PROCEDURE CPDUMP(CURRENT,ORIGIN : WORD; , VALUE : WORD); FORWARD;((FUNCTION CPVRFY( VERLIST : STRING; ( VAR PFILE : PROGRAMFILE; VAR ID : PHASE_ID; &  ADDRES : WORD): BOOLEAN; FORWARD; &(&PROCEDURE CPAPLY( SIZE : INTEGER; & VAR PFILE : PROGRAMFILE;  VAR ID : PHASE_ID;ADDRES : WORD;  VERLIST : STRING); FORWARD; (&PROCEDURE CPTRAN(VAR OFILE : TEXT;&  VAR MAP : SEQXMCROUTIN P?42fx@P(*$ NO LIST *) PPPROCEDURE MCIDEF(MODIFY:BOOLEAN;VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCINEW(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIASG(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCILOG(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIDEL(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIMOD(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIFND(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCISFND(VAR ERROR: BOOLEAN);FORWARD; PPROCEDJURE MCIEFND(VAR ERROR: BOOLEAN);FORWARD; JPPROCEDURE MCIIDE(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCISEL(VAR PROCESS: SELECT;VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCILST;FORWARD; PPPROCEDURE MCIERR(MODULE:CHAR8;PROCESS:CHAR8;OBJECT:CHAR8);FORWARD; PPPROCEDURE MCISMSG(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE MCIEMSG(VAR ERROR: BOOLEAN);FORWARD; PPPROCEDURE XSETMEMBER(F:CHAR8;LIBNAME:CHAR8;MEMBER:CHAR8);FORWARD; PP(*$ RESUME LIST *) Pure BDSCTY(vEOD PTABLE D 4?v44{&xCVITYPE P @N2xJ#(*********************** BEGIN INITSK TYPES *************************)J(*$NO LIST*)"TYPE&(*$NO WARNINGS*) $?COPY DSC.TEMPLATE.PTABLE.TYPES $"?COPY DSC.TEMPLATE.PTABLE.IRB ""?COPY DSC.TEMPLATE.PTABLE.PDT ""?COPY DSC.TEMPLATE.PTABLE.DPD ":?COPY DSC.TEMPLATE.PTABLE.S3F  " Retrieve system data:<?COPY DSC.TEMPLATE.PTABLE.PFZ  " Record 0 of prog file <.?COPY DSC.TEMPLATE.PTABLE.S2B " Bid task .*?IF DNOS = TRUE  **** DNOS ONLY *****2?COPY DSC.TEMPLATE.PTABLE.S43 " Name manager 2 ?ENDIF **** DNOS ONLY **** " '(*$NO LIST*)"*?IF DNOS = TRUE  **** DNOS ONLY ***** S43PTR  = @S43; ?ENDIF **** DNOS ONLY ****  IRBPTR  = @IRB;@> PROMPT_CHARS  = PACKED ARRAY[1..PROMPT_LENGTH] OF CHAR; > SVC_ERR = RECORD   OPCODE : BYTE;   ERRNUM : BYTE;   END;   TASK_TYPE = (BDD, CV); 4 PARM_VAL  = RECORD  " FORMAT OF PARMS TO BE 4  SIZE : BYTE;" SAVED  VALUE : PROMPT_CHARS;  END;  " ' OUT_BUF_REC = RECORD   CASE INTEGER OF0  1:(NUMERIC : PACKED ARRAY[1%%..255] OF BYTE);0.  2:(ALFA: PACKED ARRAY[1..255] OF CHAR);..  3:(INT : PACKED ARRAY[1..127] OF WORD);.  END;  " '  NAME_TYPE = PACKED RECORD   CASE INTEGER OF 1:(LENGTH : BYTE); 4  2:(CH:PACKED ARRAY[0..P_NAME_LENGTH] OF CHAR); 4  END;  " ' DISK_REGISTERS = PACKED RECORD WD_PER_TRACK : WORD; SECT_PER_TRACK: BYTE; OVHD_PER_REC : BYTE;  HEAD_CYLS : WORD;  END;  " ' ST_NAME = PACKED RECORD  CASE INTEGER OF 1:(LENGTH : BYTE);( 2:(CH: PACKED ARRAY[0..8] OF CHAR); (  END;  " ' MSG = PACKED RECORD  CASE INTEGER OF 1:(LENGTH : BYTE);( 2:(CH : PACKED ARRAY[0..1] OF CHAR); (  END;   "& YESNO = (Y, N);?IF DX10 = TRUE 8 DTFLAGS = PACKED RECORD " PDT device type flags 8( DTFFIL : BOOLEAN;" File oriented ( DTFTIL : BOOLEAN;" TILINE * DTFTIM : BOOLEAN; " Time out enabled *& DTFPRI : BOOLEAN;" Priveledged & DTFKSB : BOOLEAN;" Terminal with KSB & DTFCOM : BOOLEAN;" COMM device && DTFSYD : BOOLEAN;" System disk &  END;  ?ENDIF% (*$LIST*) #H"(*********************** END INITSK TYPES *************************)HE >0D  TASK ERR -HARDWARE BREAKPOINT 4*  SVC40-JCA OVERFLOW *  SVC14-JCA OVERFLOW *  SVC1F-JCA OVERFLOW *  SVC2B-JCA OVERFLOW *  IOU-JCA OVERFLOW * NFTBID -JCA OVERFLOW *  SVC43-JCA OVERFLOW 4ERR0E BYTE >0E  TASK ERR -12 MS CLOCK EXPIRED 4**  SVC40 -SEGMENT ID DOES NOT EXIST ***  SVC00 -UNABLE TO GET I/O BUFFERS ***  SVC4A -SEGMENT ID DOES NOT EXIST *4ERR0F BYTE >0F  TASK ERR -ARITHMETIC OVERFLOW 4* BMTYPE P@2x(*$ NO LIST *)!L$"***********************************************************************L," TYPE DECLARATIONS FOR THE BMF UTILITY,L$"***********************************************************************L" '(*$LIST*) #$?COPY DSC.TEMPLATE.PTABLE.TYPES $(*$NO LIST*)": MSG= PACKED ARRAY [1..MSG_REC_LEN] OF CHAR;"(1.1):8 INDX = PACKED ARRAY [1..INDEX_REC_LEN] OF WORD; 8 CHAR6= PACKED RECORD CASE BOOLEAN OF 2 TRUE : (CHARS : PACKED ARRAY[1..6] OF CHAR); 22 FALSE : (WORD: PACKED ARRAY[1..3] OF WORD) 2END; & INDEX_FILE = RANDOM FILE OF INDX;&  MSG_FILE = FILE OF MSG ;  (*$ LIST *) "* DNOS ONLY ****  IRBPTR  = @IRB;MBMSG P@ 2x@P(*$ NO LIST *) PP PTRMSG = @MSG; " POINTER TO MESSAGE PP MSG = PACKED RECORD " MESSAGE TEMPLATE PP MSGTOK : PACKED " TOKEN NAME PP ARRAY [1..8] OF CHAR; PP MSGMSG : STRING; " POINTER TO MESSAGE PP MSGPST : STRING; " POINTER TO POSTMARK PP MSGNXT : @MSG; " POINTER TO NEXT MSG IN QUEUE PP MSGPRV : @MSG; " POINTER TO PREV MSG IN QUEUE P J END; JP(*$ RESUME LIST *) P************************************************************L" '(*$LIST*) #$?COPY DSC.TEMPLATE.PTABLE.TYPES $(*$NO LIST*)": MSG= PACKED ARRAY [1..MSG_REC_LEN] OF CHAR;"(1.1):8 INDX = PACKED ARRAY [1..INDEX_REC_LEN] OF WORD; 8 CHAR6= PACKED RECORD CASE BOOLEAN OF 2 TRUE : (CHARS : PACKED ARRAY[1..6] OF CHAR); 22 FALSE : (WORD: PACKED ARRAY[1..3] OF WORD) 2END; & INDEX_FILE = RANDOM FILE OF INDX;&  MSG_FILE = FILE OF MSG ;  (*$ LIST *) "* DNOS ONLY ****  IRBPTR  = @IRB;CSMMASCMP@&2x@(*$ NO LIST *)!6MSTR : PACKED RECORD " CSM MASTER COMMON BLOCK6IRB : PACKED RECORD "  IRBSOC : BYTE; " SVC OP-CODE ""  IRBEC : BYTE; " ERROR CODE "  IRBOC : BYTE; " OP-CODE IRBLUN : BYTE; " LUNO , IRBSFL : PACKED RECORD " SYSTEM FLAGS,  BBIT0 : BOOLEAN; " BIT 0   BBIT1 : BOOLEAN; " BIT 1   BBIT2 : BOOLEAN; " BIT 2   BBIT3 : BOOLEAN; " BIT 3  END;"  IRBUFL : BYTE; " USER FLAGS "*  IRBDBA : WORD; " DATA BUFER ADDRESS *,  IRBICC : WORD; " INPUT CHARACTER COUNT,.  IRBOCC : WORD; " OUTPUT CHARACTER COUNT .*  IRBRPY : WORD; " REPLY BLOCK ADDRESS * END;MAIN: PACKED RECORD $  CV_FLAG : BOOLEAN; "COPY = TRUE $.  EOF_FLAG : BOOLEAN; "TRUE IF EOF FOUND .0  MASTER_LUNO: BYTE;  "LUNO OF MASTER DEV0,  COPY_LUNO: BYTE;  "LUNO OF COPY DEV,,  FILE_CNT : LONGINT; "NUM OF FILES C/V,0  NUM_FILES_REQ: LONGINT; "NUM OF FILES REQ0(  REC_CNT : LONGINT; "NUM OF RECORDS(,  TRNSFR_CODE: BYTE;  "EOM,EOF,NFILES,.  MASMAG_TAPE: BOOLEAN; "MAG TAPE = TRUE ..  COPMAG_TAPE: BOOLEAN; "MAG TAPE = TRUE .&  SCB_PTR : INTEGER; " PTR TO SCB &*  ACNM_FLAG : BOOLEAN; " MASTER = TRUE*,  ERROR_CODE  : BOOLEAN; " NORMAL = TRUE,.  VER_ERR_CNT: LONGINT; " NO OF VER ERRS . END;  END;  (*$ RESUME LIST *) (*$ LIST *) "* DNOS ONLY ****  IRBPTR  = @IRB;OAD P@3y@(*$ NO LIST *)?"************************************************************ ?"** 3"* OVERLAY AREA DESCRIPTOR  (OAD)12/07/79* 3"** -"* LOCATION: WITH SYSTEM OVERLAY AREAS* -?"************************************************************ ?="* THE OAD PRECEDES A SYSTEM OVERLAY AND DESCRIBES ITS SIZE ="* AND LOCATION. OAD = PACKED RECORD : OADSMT : @SSB ;"SMT ADDRESS OF OVERLAY AREA SEGMENT:: OADSSB : @SSB ;"SSB ADDRESS OF OVERLAY AREA SEGMENT:8 OADOFF : WORD; "OFFSET INTO SEGMENT OF OVERLAY CODE8, OADBSZ : WORD;  "NUMBER OF BYTES TO READ,) OADSIZ : WORD;  "SIZE OF OVERLAY AREA )4 OADOVN : WORD; "CURRENT OVERLAY IN AREA -1=NONE4 OADUSE : WORD; "NUMBER  OF TASKS USING THE OVERLAY3 OADOAD : @OAD ;"POINTER TO NEXT OVERLAY AREA 3END; (*$ RESUME LIST *)/(  !  ,` " ( !  !  ! ,  !!  !"` E ! ! !. V ## !$!$T`| , V ,  =@  /  ` " EE [΋$F/' #e0` "΋$FgE %g    F ! ՠ! `#΋$F/'` "g !!6! "!`H`#΋$D g'  h( !  ! PgE `#΋$Hê'!!!(!g D*'gNFERF0 P@.3 Ty@(*$ NO LIST *) NFERF0 : PACKED RECORD?"************************************************************ ?"** ;"*NFERF0- ERROR CONSTANTS COMMON AREA # 1603/08/83* ;"** ?"************************************************************ ?<"*THE NEXT FOUR ERRORS ARE RESERVED FOR RPROOT TO USE AS<="*GENERAL ERRORS; MOST SVCS COULD IN SOME WAY CAUSE THESE =9 ERRF0: BYTE; "SVC 00-FF -SVC UNDEFINED IN THIS CPU 97 ERRF1: BYTE; "SVC 00-FF -SVC NOT ALIGNED ON WORD 78 ERRF2: BYTE; "SVC 00-FF -SVC REQUIRES SYSTEM TASK89 ERRF3: BYTE; "SVC 00-FF -SVC REQUIRES SOFTWARE PRV 95 ERRF4: BYTE; "MANY SVCS -I/O ERROR ENCOUNTERED 5 ERRF5: BYTE; "  ERRF6: BYTE; "  ERR3F7: BYTE; "SVC00-RESERVED FOR COMPATABILITY 36 ERRF8: BYTE; "SVC2B -NOT ENOUGH MEMORY IN SYS.64 ERRF9: BYTE; "SVC2B -PROG FILE NOT AVAILABLE43 ERRFA: BYTE; "SVC2B -ATTEMPT TO REPLICATE A 33 ERRFB: BYTE; "SVC00 -ERROR ACCESSING .S$CLF 38 ERRFC: BYTE; "SVC00-NIO - COMMUNICATION SESSION84 ERRFD: BYTE; "SVC00 -NIO - INVALID SITE NAME48 ERRFE: BYTE; "SVC00-NIO-REMOTE SITE UNAVAILABLE87 ERRFF: BYTE; "SVC00-RESERVED FOR COMPATABILITY 7END; (*$ RESUME LIST *)DEVICE(&*  SVC2B -LUNO NOT ASSIGNED TO PF&+*  SVC12-SVC13 -TILINE I/O IN PROGRESS +&*  PMOVLY -LUNO NOT ASSIGNED TO PF&7ERRFF BYTE >FF  SVC00-RESERVED FOR COMPATABILITY 7* CSMRECCMP@ f2y%%(*$ NO LIST *)!4 REC : PACKED RECORD " CSM RECORD COMMON BLOCK 42BUF_SIZE: INTEGER; " SIZE OF BUFFER (BYTES) 2<CUR_BLKSIZE : INTEGER; " CURRENT BLK SIZE (BY DEVICE) <>MASTER_BUF_PTR: BUFPTR; " ADDR OF BUF FOR MASTER DEVICE>:COPY_BUF_PTR: BUFPTR; " ADDR OF BUF FOR COPY DEVICE::MBUFFER_LEN : INTEGER; " SIZE OF MASTER BUF (BYTES) :8CBUFFER_LEN : INTEGER; " SIZE OF COPY BUF (BYTES) 8<MAX_BLKSIZE : INTEGER; " MAX SIZE OF BLK (PER DEVICE) <6MAX_RECLEN: INTEGER; " PROC INPUT VALUE (BYTES) 6  END; "  (*$ RESUME LIST *)FF -SVC REQUIRES SOFTWARE PRV 95 ERRF4: BYTE; "MANY SVCS -I/O ERROR ENCOUNTERED 5 ERRF5: BYTE; "  ERRF6: BYTE; "  ERRF7BRO P @'j3;y@(*$ NO LIST *)?"************************************************************ ?"** 3"*BUFFERED REQUEST OVERHEAD (BRO)09/09/83* 3"** -"* LOCATION: SYSTEM TABLE AREA AND JCA* -?"************************************************************ ?="* THE BRO APPEARS AT THE HEAD OF EACH BUFFERED SVC REQUEST =9"* BLOCK WHILE BEING PROCESSED BY DNOS. THE REQUEST IS 9#"* QUEUED USING THE BROBRO FIELD. # BRO = PACKED RECORD + BROOFL : PACKED RECORD "OVERHEAD FLAGS +- BRFINR : BOOLEAN;  "INITIATE EVENT REQUEST -3 BRFARS : BOOLEAN; "ANOTHER ROUTINE HAS SEEN REQ 33 BRFA5 : BOOLEAN; ">A5 CALL GIVEN TO IPC (IURL) 3,BRFERN : 0..31;  "INITIATE REQUEST NUMBER,END; BROPRI : BYTE; "TASK PRIORITY2 BROOF2 : PACKED RECORD  "OVERHEAD FLAGS PART 225 BRFAPI : BOOLEAN; "ALTERNATE REQUEST ID SPECIFIED 51 BRFRAV : BOOLEAN; "REQUEST ACCEPTS EVENT KEYS 16 BRFMRO : BOOLEAN; "MULTI-RECORD READ/WRITE REQUEST62 BRFTID : BOOLEAN; "TASK ID SPECIFIED IN BROTSB2& BRFSB : BOOLEAN; "SECURITY BYPASS&' BRFSAB : BOOLEAN;  "SUSPENDING ABORT ', BRFDNR : BOOLEAN;  "DO NOT RELEASE MEMORY,FILL00 : 0.. 1; END;5 BROAID : BYTE; "ALTERNATE REQUEST ID FOR M/D DSR 5( BROBBA : WORD;  "BUFFER BEET ADDRESS(" BROLDT : @LDT ;"LDT ADDRESS"& BROSID : WORD;  "SESSION/DEVICE ID&1 BRORCB : WORD; "REQUESTOR CALL BLOCK ADDRESS 1" BROTSB : @TSB ;"TSB ADDRESS" BROJSB : @JSB ;"JSB ADDRESS' BROBRO : WORD;  "QUEUE LINK ADDRESS 'END; (*$ RESUME LIST *) V ## !$!$T`| , V ,  =@  /  ` " EE [΋$F/' #e0` "΋$FgE %g    F ! ՠ! `#΋$F/'` "g !!6! "!`H`#΋$D g'  h( !  ! PgE `#΋$Hê'!!!(!g D*'g DD gg DDD  'g DD g' gE `#΋$L! /// '` "(` "`#Ƌ!$>>ADR P@3y@(*$ NO LIST *)?"************************************************************ ?"** 3"* ALIAS DESCRIPTOR RECORD  (ADR)02/28/79* 3"** "* LOCATION: DISK * ?"************************************************************ ?<"* THE ADR IS A VARIANT OF A FILE DESCRIPTOR RECORD (FDR),<;"* USED TO DESCRIBE AN ALIAS FOR A FILE NAME. THE FIELDS ;="* MARKED HERE WITH *** ARE IN THE ADR TEMPLATE TO MAINTAIN =)"* COMPATABILITY WITH THE FDR TEMPLATE. ) ADR = PACKED RECORD # ADRHKC : WORD; "HASH KEY COUNT ## ADRHKV : WORD; "HASH KEY VALUE #7 ADRFNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "FILE NAME 76 ADRPSW : PACKED ARRAY [ 1.. 4 ] OF BYTE; "PASSWORD6  ADRFLG : WORD; "FLAGS(SAME AS FDRFLG FLAGS). FILL00 : WORD; "*** PHYSICAL RECORD SIZE.- FILL01 : WORD; "*** LOGICAL RECORD SIZE -1 FILL02 : WORD; "*** PRIMARY ALLOCATION SIZE 14 FILL03 : WORD; "*** PRIMARY ALLOCATION ADDRESS43 FILL04 : WORD; "*** SECONDARY ALLOCATION SIZE 36 FILL05 : WORD; "***SECONDARY ALLOCATION ADDRESS6. ADRRNA : WORD;  "RECORD NUMBER OF NEXT ADR.+ ADRRAF : WORD;  "RECORD # OF ACTUAL FDR +END; (*$ RESUME LIST *)URACCMIN BYTE 0 MINUTEACCSEC BYTE 0 SECONDACCPRI BYTE 0 PRIORITYACCJID DATA 0 JOB ID!ACCOHD EQU$ END OF OVERHEAD !+ DORG ACCOHDTYPE 1 - JOB INITIALIZATION +ACCAID CHAR 16  ACCOUNT ID ACCUID CHAR 8  USER ID ACCJNM CHA  MPF P@3fy(*$ NO LIST *)"*+ "* OFFSETS FOR MAP FILE  (MPF)4/21/80 +"*<"*********************************************************<MAPFL1 =0; "MAPFB1 =2; "MAPFL2 =4; "MAPFB2 =6; "MAPFL3 =8; "MAPFB3 = 10; ""*+FRMBAS = -28672; "BIASES USED BY NFCOPY +TOOBAS = -16384; ""* (*$ RESUME LIST *)bb0c cb| b`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`L MCICOMN P@2y (*$ NO LIST *)!, MCICOMN: PACKED RECORD" MICREQ COMMON ,  DEFINITION : PACKED RECORD * DEFSYS : PACKED ARRAY  " SYSTEM NAME* [1..8] OF CHAR; . DEFSUB : PACKED ARRAY  " SUB-SYSTEM NAME . [1..8] OF CHAR; 2 DEFMCI : PACKED ARRAY  " MESSAGE CODE INDEX 2 [1..4] OF CHAR; 6 DEFEMN : PACKED ARRAY  " EXTERNAL MESSAGE NUMBER 6 [1..4] OF CHAR; ( DEFREQ : PACKED ARRAY  " REQUESTOR( [1..8] OF CHAR; ( DEFSEV : PACKED ARRAY  " SEVERITY ( [1..4] OF CHAR; ( DEFPRC : PACKED ARRAY  " PROCESSOR( [1..8] OF CHAR; (DEFDAT : STRING; " @ REQUEST DATE (&DEFMSG : ARRAY " @ MESSAGE TEXT & [1..3] OF STRING; $DEFEXP : ARRAY " @ EXPLANATION$ [1..5] OF STRING;  DEFACT : ARRAY " @ ACTION   [1..5] OF STRING;   END; " END;&(*$ LIST *) "********<MAPFL1 =0; "MAPFB1 =2; "MAPFL2 =4; "MAPFB2 =6; "MAPFL3 =8; "MAPFB3 = 10; ""*+FRMBAS = -28672; "BIASES USED BY NFCOPY +TOOBAS = -16384; ""* (*$ RESUME LIST *) MARKED HERE WITH *** ARE IN THE ADR TEMPLATE TO MAINTAIN =)"* COMPATABILITY WITH THE FDR TEMPLATE. ) ADR = PACKED RECORD # ADRHKC : WORD; "HASH KEY COUNT ## ADRHKV : WORD; "HASH KEY VALUE #7 ADRFNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "FILE NAME 76 ADRPSW : PACKED ARRAY [ 1.. 4 ] OF BYTE; "PASSWORD6  ADRFLG : WORD; "FLAGS(SAME  S3F P@3y @(*$ NO LIST *)A "************************************************************** A"** 5"* READ SYSTEM DATA BLOCK  (S3F) 06/06/80 * 5"** A "************************************************************** AS3F = PACKED RECORD   S3FOPC : BYTE; "OP CODE=#3F  S3FERC : BYTE; "ERROR CODE  S3FTYP : BYTE; "DATA TYPE" S3FFLG : PACKED RECORD "FLAGS"- S3FFSH : BOOLEAN;  "(1)TRUE=USE SHORT FORM -3 S3FFIN : BOOLEAN; "(1)TRUE=RETURN DATA INDIRECT 35 S3FFCS : BOOLEAN; "(1)TRUE=RETURN ADDRESS OF CSEG 5FILL00 : 0..31; END;+ S3FIDX : WORD;  "FOR PDT CHAIN(TYPE 81) +( S3FOFF : WORD;  "INTO DATA STRUCTURE(% S3FBLN : WORD;  "OF RESULT BUFFER % S3FRET : WORD;  "DATA OR LENGTH OF# S3FBUF : WORD; "BUFFER ADDRESS #! S3FRES : WORD; "RESERVED *** !END; (*$ RESUME LIST *)AD TRACK FILE PATHNAME FOR INV2 RELOCT =6; "&RELOCATEABLE? 2IPMEMR =6; "&MEMORY RESIDENT? FOR IP COMMAND21IPSSYS =6; "&SYSTEM SEGMENT FOR IPS COMMAND 1 PRIORY =6; "&TASK PRIORITY 'EXPRM2 =6; "&PARM2 FOR XT COMMAND '6INVPRS =6; "&DEFAULT PHYSICAL RECORD SIZE FOR IN63EXCSUS =7; "&SUSPEND CALLER UNTIL DONE FOR XT 3PRIVIL =7; "&PRIVILEGED?/INVINT =7; "&HARDWARE INTERLEAVING FACTOR /3IPDEL =7; "&INSTALL PROCEDURE DELETE PROTECT 32IPSMEM =7; "&MEMORY RESIDENT FOR IPS COMMAND21IODEL =7; "&INSTALL OVERLAY DELETE PROTECT 1JMDATA P@23 ly (*$ NO LIST *) JMDATA : PACKED RECORD"** CURJSB : @JSB ; "CURRENT JSB POINTER** JMRPTR : @JMR ; "CURRENT JOB REQUEST** BROPTR : @BRO ; "CURRENT BRO REQUEST** PARFMT : @SSB ; "PARENTS FMT POINTER** PARFCB : %%@FSC ; "PARENTS FCB POINTER* JSTCRE : BYTE; "CREATING  JSTEXC : BYTE; "EXECUTABLE  JSTHLT : BYTE; "HALTED   JSTTRM : BYTE; "TERMINATING - TSTJHT : BYTE;  "TASK SUSPENDED BY JOBMGR -, TSTJMR : BYTE;  "TASK WAITING ON JMR SVC,END; (*$ RESUME LIST *) SDEDOR P@3?y@(*$ NO LIST *)B "***************************************************************B)"*DIRECTORY OVERHEAD RECORD (SDEDOR) )"*2"* MEMORY RESIDENT TABLE FORM OF DOR09/25/792B "***************************************************************B SDO = PACKED RECORD + SDONRC : WORD;  "# RECORDS IN DIRECTORY +3 SDONFL : WORD; "# FILES CURRENTLY IN DIRECTORY 3+ SDONAR : WORD;  "# OF AVAILABLE RECORDS +. SDOTFC : WORD;  "NUMBER OF TEMPORARY FILES.A SDODNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "DIRECTORY FILE NAME A) SDOLVL : WORD;  "LEVEL # OF DIRECTORY ); SDOPNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "PARENT'S NAME ;0 SDORDH : WORD; "DIRECTORY ENTRY LIST HEADER0" SDORFH : WORD; "FILE ENTRY LI" ST HEADER . SDORCH : WORD;  "CHANNEL ENTRY LIST HEADER.) SDOFLG : WORD;  "MODIFIED FORMAT FLAG )END; (*$ RESUME LIST *) STRING 62SCBODV WORD  ADDRESS OF OLD DEVICE/CLASS SCI 2**  STRING (FOR 'ALL' OPTION OF 'MO') *  ENDREC !  PAGE "  LIST " @ϭ.ϭ0ρCϭ2ρCϭ4ϭ6:M)ωϭ ρ@ϭ"ϭρ@M)8ωϭHρ@M)Jωϭρ@Ϡf,ϝρDM)Pωϭ^ρ@ϭ4ϭ`ρ@ρA)$ f,)$ ϭǍhϭB;+ϒ*ϊϭ ρ@ϭ"ϭρ@*$ϊϭ,ρ@ϭ.ϭ0ρCϭ2ρCϭ4ϭ6ρ@ρA)$ϭǍpϭB;+ϒ*ϊϭ ρ@ϭ"ϭρ@*rϊϭ~ρ@ϭ.ϭρCϭ2ρCϭ4ϭ6ρ@ρBMCOMN P@ 2y(*$ NO LIST *)!"--------------- 0" MESSAGE HANDLING UTILITY COMMON VARIABLES0"--------------- 6 ERRFLAG: WORD ;"INDICATES IF BMERR WAS CALLED 68 LINE_COUNT : WORD ;"INPUT FILE CURRENT LINE COUNT 8. INDEX_REC: INDX;  "INDEX FILE RECORD.. MSG_REC: MSG ;  "MSGFIL FILE RECORD .8 USHWI: CHAR6 ; "CHARS U,S,H,W,I (IN LOCAL-LANG) 8(*$ LIST *) " : BOOLEAN;  "(1)TRUE k4`4@(*$ NO LIST *)B "***************************************************************B)"*DIRECTORY OVERHEAD RECORD (SDEDOR) )"*2"* MEMORY RESIDENT TABLE FORM OF DOR09/25/792B "***************************************************************BSDO = PACKEDFWA P @-3y@(*$ NO LIST *)?"************************************************************ ?"** 1"* FILE MANAGER WORK AREA (FWA)01/21/82* 1"** "* LOCATION: SYSTEM AREA * ?"************************************************************ ?>"*THE FWA IS USED BY FILE MANAGEMENT AND BY KIF MANAGEMENT>5"*AS A GENERAL WORK AREA. R15 POINTS TO THE FWA. 5 FWA = PACKED RECORD B FWAWP: PACKED ARRAY [ 1..32 ] OF BYTE; "WORKSPACE USED BY FMB) FWAFLG : WORD;  "MIDDLE SEGMENT FLAGS )2 FWATCT : WORD; "MULTIRECORD CHARS TRANSFERRED23 FWAOAD : @OAD ;"CURRENT OVERLAY AREA ADDRESS 3* FWAPC: WORD;  "SAVED PROGRAM COUNTER*. FWAXWP : WORD;  "BLWP VECTOR FOR RETURNING. FWAXPC : WORD; " C FWABN: PACKED ARRAY [ 1.. 2 ] OF WORD; "SAVED RPBBN (2 WORDS) C! FWAOCB : WORD; "SAVED RPBOCB !$ FWALFG : WORD; "SAVED LDT FLAGS$- FWAFFC : @FSC ; "FIRST FCB FOR CC FILES -3 FWAFMT : @SSB ;"SSB FOR THE FMT WITH THE FCB 3- FWAFCB : @FSC ; "FCB ADDRESS IN THE FMT -. FWABST : @SSB ; "SMT SSB ADDR FOR BUFFER.* FWABSB : @SSB ; "SSB ADDR FOR BUFFER*) FWAPRS : WORD;  "PHYSICAL RECORD SIZE )/ FWAUBT : @SSB ; "USER BUFFER SMT SSB ADDR /. FWAUBS : @SSB ; "USER BUFFER SSB ADDRESS.' FWAUBO : WORD;  "USER BUFFER OFFSET '' FWAUBL : WORD;  "USER BUFFER LENGTH ' FWAFMB : WORD; "FMT BIAS 1 FWARN1 : WORD; "RECORD # RELATIVE TO CURRENT 1 FWARN2 : WORD; "FILE OF CONCATENATED SET . FWAOOB : WORD;  "OLD OFFSET IN USER BUFFER., FWAUBR : WORD;  "BUFFER LENGTH REMAINING,+ FWAFFG : PACKED RECORD "FILE MGR FLAGS +- FWAPOP : BOOLEAN;  "PASSIVE OPERATION FLAG -5 FWAQW : BOOLEAN; "QUEUED TO WAITING QUEUE IN FCB 58 FWAKIF : BOOLEAN; "KIF REQUEST(1) NOT KIF REQUEST(0)8 FILL00 : 0..8191; END;9 FWASTK : PACKED ARRAY [ 1..160 ] OF BYTE;"STACK AREA 9END; (*$ RESUME LIST *) "$/('` "/(` "CI  B I /Jg!!!!D>( ( ! Dd   t "$/(` "Ę "!CAP PA2y(*$ NO LIST *)>"***********************************************************>"*."*CAPABILITY LIST (CAP)  03/02/79  *."*"* LOCATION: JCA>"***********************************************************> CAP = PACKED RECORD - CAPLEN : WORD;  "NUMBER OF CONTROL GROUPS -( CAPFLG : WORD;  "CONTROL GROUP FLAGS(A CAPCON : PACKED ARRAY [ 1.. 8 ] OF BYTE; "FIRST CONTROL GROUP AEND; (*$ RESUME LIST *) FWATCT : WORD; "MULTIRECORD CHARS TRANSFERRED23 FWAOAD : @OAD ;"CURRENT OVERLAY AREA ADDRESS 3* FWAPC: WORD;  "SAVED PROGRAM COUNTER*. FWAXWP : WORD;  "BLWP VECTOR FOR RETURNING. FWAXPC : WORD; " @ FWABN: PACKED ARRAY [ 1.. 2 ] OF WORD; "SAVED RPBBN (2 WOR@SMT PA ^3y(*$ NO LIST *)?"************************************************************ ?"** /"*SEGMENT MANAGER TABLE (SMT)1/30/79 * /"** "* LOCATION: USER MEMORY * ?"************************************************************ ?:"* THE SMT IS THE TEMPLATE FOR THE STATIC DEFINITIONS IN:-"* THE SEGMENT MANAGER SPECIAL TABLE AREAS. - SMT = PACKED RECORD $ SMTSGB : WORD; "SGB LIST HEADER$* SMTRID : WORD;  "LAST RUN ID ALLOCATED*F" SMTMAP : PACKED ARRAY [ 1..64 ] OF BYTE; "ALLOCATED RUN ID BIT MAPFEND; (*$ RESUME LIST *) 4*  SEGMENT MANAGER TABLE(SMT)  1/30/79 * 4 *  * "*  LOCATION: USER MEMORY * "@************************************************VDB PA  3 .y(*$ NO LIST *)>"***********************************************************>/"* VALUE DEFINITION BLOCK(VDB)  07/21/81 /"*("*LOCATION: NAME DEFINITION SEGMENT(>"***********************************************************> VDB = PACKED RECORD 3 VDBVCB : @VCB ;"NEXT NAME CONTINUATION BLOCK 32 VDBUSE : BYTE; "NUMBER OF USERS OF THIS VALUE2END; (*$ RESUME LIST *)A VALID PASSCODE IS -/"*SUPPLIED OR THE TASK HAS SECURITY BYPASS. /-"*THIS PARM MAY BE SUPPLIED BY A USER, OR -/"*MAY BE CREATED BY IOU TO PASS INFO ACROSS /"*THE NETWORK."* UIP = PACKED RECORD ) UIPSLN : BYTE;  "SUBLIST NUMBER (>02) )4 UIPLEN : BYTE; "LENGTH OF PARM-2 IN BYTES (>10)46RWT PAZ3y@(*$ NO LIST *)>"***********************************************************>"* *2"* READ/WRITE TASK REQUEST (RWT) 02/29/80 *2&"*LOCATION: SYSTEM TABLE AREA *&"* *>"***********************************************************> RWT = PACKED RECORD # RWTSVC : BYTE; "SVC CODE (2D) # RWTERR : BYTE; "ERROR CODE ' RWTID: BYTE;  "TASK OR OVERLAY ID '" RWTFLG : PACKED RECORD "FLAGS"& RWFWRT : BOOLEAN; "1=WRITE; 0=READ&4 RWFSOV : BOOLEAN; "1=SYSTEM OVLY ID; 0=USER TASK4FILL00 : 0.. 3; 2RWFNOW : 0..15; "NUMBER OF WORDS TO READ/WRITE2END;0 RWTADD : WORD; "LOGICAL ADDR. TO READ/WRITE0@ RWTDAT : PACKED ARRAY [ 1..32 ] OF BYTE; "DATA TO READ/WRITE@- RWTRES : WORD;  "RESERVED (INIT. TO ZERO) -END; (*$ RESUME LIST *)YTE 0  BASIC REQUEST BLOCK LENGTH (BYTES) 5.RDBACC BYTE 0  ACCOUNTING WEIGHTING FACTOR.$ DATA 0  RESERVED FOR FUTURE USE$"RDBEXP FLAGS 8 EXPANSION FLAGS"- FLAG RDFTYPTYPE OF CALL BLOCK OFFSET PTR -"*  0=START OF DATA WITH RDBLEN"*  BYTES TO BUFFER*  1=POINTER TO EXPANSION *  %% BLOCK WITH OWN LENGTH*  BYTE AND DATA BUFFER . FLAG RDFJCA1=BUFFER THIS IN JCA BY ITSELF.- FLAG RDFMORMORE EXPANSION BLOCKS (1=YES) -* (AFTER THIS ONE), FLAG RDFJAV1=WERE ABLE TO GET JCA SPACE, BITS 4 RESERVED-RDBLEN BYTE 0  EXPANSION LENGTH TO BUFFER -'RDBCOF BYTE 0  OFFSET IN CALL BLOCK 'SLE PA(3xy(*$ NO LIST *)"*+"* SYSTEM LOADER EQUATES (SLE) 03/14/79 +"*?"************************************************************ ?"* "*-------  "* SLLMOD CALL EQUATES "*------- OVLY = 2048; "OVERLAY TYPE TASK =0; "TASK TYPE "PROC = 1024; "PROCEDURE TYPE"OVBREQ =1; "OVB REQUIREDRLOCAT =2; "RELOCATE FLAG -PFONLY =4; "RETURN ONLY PFI INFORMATION -%ALOCAT =8; "ALLOCATE FREE SPACE %0ROOT = 16; "ROOT SEGMENT IS BEING LOADED0 "*-------  "* MAP FILE EQUATES  "*------- L1 =0; "B1 =2; "L2 =4; "B2 =6; "L3 =8; "B3 = 10; " "*-------  "* DISK I/O COMMANDS "*------- STOREG =0; "READ =512; "WRITE =768; "RESTOR = 1792; " "*-------  "* MISCELLANEOUS EQUATES "*------- PATERN = -4083; " 0NDXSIZ =256; "PROG. FILE INDEX RECORD SIZE0 (*$ RESUME LIST *)SLBRID BYTE 0 TASK RUN ID SLBVR2 EQU$  DORG SLBVR2SLBLUN BYTE 0 LUNOSLBRTY BYTE 0 RETRY COUNT -SLBRSF BYTE 0 RETRY SUCCESS(0)/FAILURE(1) -"SLBACT BYTE 0 IMAGE WORD COUNT"SLBVR3 EQU$  DORG SLBVR3# SLBAIM ARRAY 8,WORD AFTER IMAGE #$ SLBBIM ARRAY 8,WORD BEFORE IMAGE$+SLBSZ1 EQU$-SLBSLB DEVICE MESSAGE SIZE +6 DORG SLBVR3 TYPE 2 - DEVICE ERROR WITH CALL BLOCK6* SLBIRB ARRAY 6,WORD  SPACE FOR 12 BYTES*LSCCOM PA)2y@(*$ NO LIST *)!@"*********************************************************** @8"  LSCCOM - LIST SOFTWARE CONFIG. TASK COMMON  * 8" 23 OCT 1980  * @"*********************************************************** @" ' (*$ RESUME LIST *)" '< LSCCOM : PACKED RECORD"GENERAL DATA COMMON ACCESS NAME <" '" POINTERS " '@ VARTEXT : STRING; "POINTER TO VARIABLE TEXT FOR ERROR MSGS@6 HDR_LINE1 : @HEAD_LINE1; "POINTER TO HEADER LINE 66 HDR_LINE2 : @HEAD_LINE2; "POINTER TO HEADER LINE 66 HDR_LINE3 : @HEAD_LINE3; "POINTER TO HEADER LINE 6<RSDPTR : @S3F;"RETRIEVE SYSTEM DATA CALL BLOCK POINTER<<LSCPTR : LSCPT; "POINTER TO LINKED LIST OF HISTORY RECOR<DS" '" BUFFERS " '0 VTXTBF : STRING_REC; "VARIABLE TEXT BUFFER 0*HEADER_LINE1 : HEAD_LINE1;"HEADER LINE**HEADER_LINE2 : HEAD_LINE2;"HEADER LINE**HEADER_LINE3 : HEAD_LINE3;"HEADER LINE*" ' " DATA" " '. SYSTEM_NAME : ALFA;  "8 CHAR SYSTEM NAME .< UTILITY_NAME : ALFA;"8 CHAR UTILITY PROGRAM FILE NAME <8RSDSVC : S3F; "RETRIEVE SYSTEM DATA SVC CALL BLOCK80 MSGNUMBER : INTEGER; "ERROR MESSAGE NUMBER 0, MSGFIL : INTEGER;  "MESSAGE FILE NUMBER,0 CONDCODE : INTEGER;  "ERROR CONDITION CODE 0" '" FLAGS !" '.DONE : BOOLEAN;  "END OF SUMMARY RECORDS ." ' END; (* LSCCOM *) $ RESUME LIST *)ځpAʁ*CVICOMN P-A"@2y@L$(*********************** BEGIN INITSK COMMON *************************) LJ(*!R01 05/04/84 - CHANGES TO ALLOW CV AND BDD TO BE REPLICATIBLE *) J(*$NO LIST*)" COMMON% *?IF DNOS = TRUE **** DNOS ONLY **** *:?COPY DSC.TEMPLATE.PTABLE.NFDATA " NFDATA DEFINITION ::?COPY DSC.TEMPLATE.PTABLE.NFJOBC " NFJOBC DEFINITION :$ JOBLIM  : WORD; " JOB LIMIT $* DIOUID  : BYTE; " TASK ID OF DIOU * ?ENDIF **** DNOS ONLY **** *?IF DX10 = TRUE **** DX10 ONLY **** *(*$ NO LIST *)!* OVT : PACKED RECORD  " OVERLAY TABLE*" '& TSKLST : WORD; "START OF TSB'S &0 UPS: WORD; "ADDR SYSTEM TIME UNITS/SEC 0& PSBLST : WORD; "START OF PSB'S & FIDMAP : WORD;  "ADDR FIXED TASK ID BIT MAP 8 PF$FCB : WORD; "ADDR SYSTEM PROGRAM FILE FCB PTR 8. ETSK : WORD;  "CURRENT EXECUTING TASK .& BPT: WORD;  "BREAKPOINT TABLE &* TSKSCH : WORD;  "TASK SEARCH UTILITY*< SYSPF: WORD; "ADDR OF PATHNAME OF SYSTEM PROGRAM F << MM$RLM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "TSB CLEAN UP <, F$FLG: WORD;  "FUTIL/UNLOAD LOCKOUT ,2 FUTPDT : WORD; "FUTIL PDT CURRENTLY IN USE 2& PDTLST : WORD; "START OF PDT'S && LDTLST : WORD; "START OF LDT'S &N% TM$QRM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "REM. SPEC. ENT. FROM SPEC. QUEN@ TMBID0 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "BID TASK ROUTINE @@ TMTREE : PACKED ARRAY [ 1.. 4 ] OF BYTE; "BUILD TREE LINKAGE@& RSTRID : WORD; "USER RESTART ID&4 RSTRSW : WORD; "CRT 'HELP' KEY DISABLE SWITCH 4& SLDATA : WORD; "SYSTEM LOG DATA&L$ MM$FND : PACKED ARRAY [ 1.. 4 ] OF BYTE; "ALLOCATE USER MEMORY ROUTINELN% BM$MPB : PACKED ARRAY [ 1.. 4 ] OF BYTE; "MAP BUFFER INTO ADDRESS SPACE N0 TSKSTR : WORD;  "START OF NON-LINKED TSB'S 0, SYSTAB : WORD;  "START OF SYSTEM TABLE,, TABSIZ : WORD;  "SIZE OF SYSTEM TABLE ,, AQPTRS : WORD;  "PTR TO ACTIVE QUEUES ,4 TDL: WORD; "ADDR OF TIME DELAY LIST ANCHOR 40 KBTAB: WORD;  "PTR TO 913 STATUS BLOCKS 0L$ SLPBQC : PACKED ARRAY [ 1.. 4 ] OF BYTE; "SYSTEM LOG QUEUEING ROUTINE L, SCIBMX : WORD;  "SCI BACKGROUND LIMIT , SCIFMX : WORD; "S CI FOREGROUND LIMIT 2 MAPSHD : WORD; "SCHEDULER MAP FILE POINTER 26 YEAR : WORD; "BLOCK OF CURRENT DATE AND TIME 60 UAHEAD : WORD;  "ADDRESS OF MEM MGR HEADER 02 SAHEAD : WORD; "ADDRESS OF SYS AREA HEADER 22 KTSKWP : WORD; "SUBROUTINE TO KILL I/O - WP 22 KTSKPC : WORD; "SUBROUTINE TO KILL I/O - PC 20 CURMAP : WORD;  "CURRENT MAP FILE POINTER 0* OADPTR : WORD;  "SYSTEM OVERLAY AREA** OVLYQ: WORD;  "LOAD OVERLAY QUEUE *@ SO$LTO : PACKED ARRAY [ 1.. 4 ] OF BYTE; "LINK TO OVERLAY @B SO$BTO : PACKED ARRAY [ 1.. 4 ] OF BYTE; "BRANCH TO OVERLAY BD SO$RFO : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RETURN FROM OVERLAY D4 ENDADD : WORD; "LOAD ADR FOR FIRST USER TASK 46@, ENDLIM : WORD;  "LIMIT REG FOR ENDADD ,. MEMSIZ : WORD;  "SIZE OF MEMORY IN BEETS .4 BASADJ : WORD; "ADJUSTMENT VALUE FOR BIAS REG 40 TMTOL: WORD;  "START OF TIME ORDER LIST 0 FILL00 : WORD; " J# TM$DOR : PACKED ARRAY [ 1.. 4 ] OF BYTE; "SERIAL ACCESS DOOR LOCKINGJL$ TM$OPN : PACKED ARRAY [ 1.. 4 ] OF BYTE; "SERIAL ACCESS DOOR UNLOCKINGLJ# BM$FLS : PACKED ARRAY [ 1.. 4 ] OF BYTE; "BUFFER MGMT FLUSH ROUTINE J2 TM$EXT : WORD; "INFINITE EXTEND TIME SLICE 2< PUSH1: PACKED ARRAY [ 1.. 4 ] OF BYTE; "SAVE REG R1 <D PUSH2: PACKED ARRAY [ 1.. 4 ] OF BYTE; "SAVE REGISTERS R1-R2DD PUSH3: PACKED ARRAY [ 1.. 4 ] OF BYTE; "SAVE REGISTERS R1-R3D PUSH4 : PACKED ARRAY [ 1..( 4 ] OF BYTE; "SAVE REGISTERS R1-R4(D PUSH5: PACKED ARRAY [ 1.. 4 ] OF BYTE; "SAVE REGISTERS R1-R5DD PUSH6: PACKED ARRAY [ 1.. 4 ] OF BYTE; "SAVE REGISTERS R1-R6DD PUSH7: PACKED ARRAY [ 1.. 4 ] OF BYTE; "SAVE REGISTERS R1-R7DD PUSH8: PACKED ARRAY [ 1.. 4 ] OF BYTE; "SAVE REGISTERS R1-R8DD PUSH9: PACKED ARRAY [ 1.. 4 ] OF BYTE; "SAVE REGISTERS R1-R9D< POP0 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "EXIT ROUTINE <: POP1 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESTORE R1 :H POP2 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESTORE REGISTERS R1-R2 HH POP3 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESTORE REGISTERS R1-R3 HH POP4 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESTORE REGISTERS R1-R4 H PFOP5 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESTORE REGISTERS R1-R5 FH POP6 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESTORE REGISTERS R1-R6 HH POP7 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESTORE REGISTERS R1-R7 HH POP8 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESTORE REGISTERS R1-R8 HH POP9 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESTORE REGISTERS R1-R9 HH" MM$RUA : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RETURN USER AREA MEMORY H@ MM$GSA : PACKED ARRAY [ 1.. 4 ] OF BYTE; "GET SYSTEM AREA @B MM$RSA : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RETURN SYSTEM AREAB> MM$GUA : PACKED ARRAY [ 1.. 4 ] OF BYTE; "GET USER AREA >D SCRASH : PACKED ARRAY [ 1.. 4 ] OF BYTE; "SYSTEM CRASH ROUTINED  TMQUE : PACKED ARRAY [ 1.. 4 * ] OF BYTE; "GENERAL QUEUEING ROUTINE*J# TMDQUE : PACKED ARRAY [ 1.. 4 ] OF BYTE; "GENERAL DEQUEUEING ROUTINEJF! TMAQUE : PACKED ARRAY [ 1.. 4 ] OF BYTE; "QUEUE ON ACTIVE QUEUE F* QHEAD: WORD;  "ADDR OF SVC QUEUES *6 STUNIT : WORD; "CLOCK TICKS / SYSTEM TIME UNIT 66 FLG12: WORD; "MACHINE FLAG 0=/10,-1=/12 (VAL) 66%% FLGWCS : WORD; "WCS FLAG 0=NO; 1=YES - (VALUE) 6B RETRID : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RETURN RUN TIME IDBH" FMOPEN : PACKED ARRAY [ 1.. 4 ] OF BYTE; "FMT FILE OPEN PROCESSOR HH" FMCLOS : PACKED ARRAY [ 1.. 4 ] OF BYTE; "FMT FILE CLOSE PROCESSORHH" FMWRIT : PACKED ARRAY [ 1.. 4 ] OF BYTE; "FMT FILE WRITE PROCESSORH. WRTSEQ : PACKED ARRAY [ 1.. 4 ] OF BYTE; ". SEQUENTIAL FILE WRITE B CKWRIT : PACKED ARRAY [ 1.. 4 ] OF BYTE; "CHECK WRITE ACCESSBF! CKLOCK : PACKED ARRAY [ 1.. 4 ] OF BYTE; "CHECK IF RECORD LOCKEDFJ# MAPREC : PACKED ARRAY [ 1.. 4 ] OF BYTE; "TRANSLATE BLOCK # TO ADU #JN% UPDFDR : PACKED ARRAY [ 1.. 4 ] OF BYTE; "UPDATE FILE DESCRIPTOR RECORD NB BM$MAP : PACKED ARRAY [ 1.. 4 ] OF BYTE; "MAP IN TASK BUFFERBB BM$RD: PACKED ARRAY [ 1.. 4 ] OF BYTE; "RETRIVE FILE BLOCKBB BM$REL : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RELEASE FILE BLOCKB. UAHADD : WORD;  "BEET ADDRESS OF UAHEAD .0 ENDDXL : WORD;  "LIMIT REG VALUE FOR DX-10 0. MEMSW: WORD;  "USER MEMORY SIZE SWITCH .* DIOPDT : WORD;  "ADDRESS OF DISC PDT* TLDTSB : WORD;  "TSB FOR TASK LOADER. FILL01 : WORD; "* * *RESERVED * * * .( BIDTSB : WORD;  "TSB FOR BID TASK (. TOLBET : WORD;  "FIRST BEET TIME ORDERED .. OF$FCB : WORD;  "FCB ADDRESS OF OVERLAY .$ RF$FCB : WORD; "ROLL FILE FCB$( OF$LDT : WORD;  "OVERLAY FILE LDT (& PF1LDT : WORD; "LDT FOR LUNO D && PF2LDT : WORD; "LDT FOR LUNO B && PF3LDT : WORD; "LDT FOR LUNO F &$ RF$LDT : WORD; "ROLL FILE LDT$* SCR$HD : WORD;  "HEAD ADR CRASH FILE** SCR$TK : WORD;  "CYLINDER ADR CRASH *, SCR$SC : WORD;  "SECTOR ADR CRASH FILE,, SCR$DA : WORD;  "TILINE ADR CRASH FILE,* TOLLNK : WORD;  "TOL LINKAGE ROUTINE*. RIDMAP : WORD;  "ADR RUN TIME ID BIT MAP . CME,MSZ : WORD;  "MEMORY TO BE CRASH DUMPED ,, SCNPDT : WORD;  "DSR POWER UP ROUTINES,2 SYSPFN : WORD; "NAME OF SYSTEM PROGRAM FILE 2. SCR$SL : WORD;  "CRASH FILE UNIT SELECT .. XY : WORD;  "TRAP INITIALIZATION TABLE .2 UNLPDT : WORD; "UNLOAD PDT CURRENTLY IN USE 2* SCHDWS : WORD;  "SCHEDULER WORKSPACE*, SLCSUS : WORD;  "SCHEDULER ENTRY POINT,4 BM$SIZ : WORD; "LENGTH OF MEM RESIDENT BUFFER 42 MMUMAX : WORD; "MAXIMUM SIZE FREE USER AREA 2> FM$RDM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "READ MULTIPLE >H" BM$MP2 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "CHECK MEMORY PROTECTION HL$ TM$INC : PACKED ARRAY [ 1.. 4 ] OF BYTE; "INCREMENT TM$EXT BLWP VECTORL  TM$DEC : PACKED ARRAY [ 1.. 4 . ] OF BYTE; "DECREMENT TM$EXT BLWP VECTOR.H" TM$CLR : PACKED ARRAY [ 1.. 4 ] OF BYTE; "CLEAR TM$EXT BLWP VECTORH. S$$PAT : WORD;  "BEGINNING OF PATCH AREA .$ CTRYCD : WORD; "COUNTRY CODE $( TM$T0: WORD;  "POINTER TO TM$T0 (< MM$PAK : WORD; "MEMORY PACK REQUEST FLAG (NOT A POIN <* DMABUF : WORD;  "ALTERNATE DM BUFFER*. MASTAB : WORD;  "MASTER BIT TABLE FOR DM .N% TMPVOL : PACKED ARRAY [ 1..10 ] OF BYTE; "TEMPORARY FILE VOLUME NAME LENN" CPUID: WORD; "CPU TYPE ID"0 CLK$WP : WORD;  "CLOCK WORKSPACE (CLKWSP) 0END;& (*$ RESUME LIST *) ?ENDIF% (*$NO LIST*)"0 VDT : BOOLEAN; " TRUE IF STATION IS VDT0. NO_COPY : BOOLEAN; " TRUE IF NO COPY TO.  BE MADE 2 LOGID : BYTE; " TASK ID OF SYSTEM LOG TASK2< RUN_NUM : LONGINT; " # OF TIMES INITSK HAS BEEN BID<< MORE_COPIES : BOOLEAN; " IF FALSE, THEN READY TO BID <2 FIRST_TIME : BOOLEAN; " TRUE IF FIRST COPY24 PARM_ARRAY : ARRAY[1..NUM_PARMS] OF PARM_VAL; 44 WHICH_TASK : TASK_TYPE;  " WHICH TASK TO BID 46 FILE_BLOCK : IRB; " CALL BLOCK FOR SAVED DATA 62 LST_BLOCK : IRB; " CALL BLOCK LIST DEVICE22 VDT_BLOCK : IRB; " CALL BLOCK FOR STATION20 RSD : S3F; " RETRIEVE SYSTEM DATA BLOCK0 BID : S2B; " BID TASK & PDT_BUF : PDT; " CONTAINS PDT &" " FILE < DATA_STRUCT_ADDR : ADDRESS; " ADDRES OF SYSTEM STRUCT.< OUT_BUF : OUT_BUF_REC; " OUTPUT BUFFER : FILE_NAME : NAME_TYPE;  " NAME OF SAVED DATA FILE :, ME  : BYTE; " NAME OF THIS TERMINAL ,> DISK_REGS : @DISK_REGISTERS;  " HOLDS STORE REGISTERS >& OPEN_OP : BYTE; " OPEN OPCODE &. SDLUNO  : BYTE; " SAVED DATA FILE LUNO.: SD_PATH : NAME_TYPE;  " SAVED DATA PATHNAME "R01:4 SD_REC  : LONGINT; " SAVED DATA FILE RECORD44 DINFO : PACKED RECORD " SYSTEM DISK PDT+ DPD4  PDT_BUF : PDT;   DPD_BUF : DPD;   END;  . PROC_SIZE: WORD; " SIZE OF PROCEDURE .2 P_FILE_NAME: PATH; " Name of program file2. PF_LUNO: BYTE; " Luno of program file.& ST_LUNO: BYTE; " Station luno & SD_LUNO: BYTE; " Source device & DD_LUNO: BYTE; " Dest. device &0 LST_LUNO : BYTE; " Listing device luno 04 LIST : BOOLEAN;" TRUE IF LIST DEVICE EXISTS46 STATION: ST_NAME;" NAME OF INTERACTIVE DEVICE62 LST_NAME : PATH; " NAME OF LISTING DEVICE20 COM_FLAGS: PACKED RECORD " Common flags 02 SYSDSK : BOOLEAN; " True if system disk used2 FILLER : 0..#7FFF;  END;, ERR_COUNT : LONGINT; " Error count ,(*$LIST*) #J#(************************ END INITSK COMMON *************************)J@ja* m * @?ts E C`ÃC"-DF  aDC *  D`Å`Æ/!@XOICONS PAOm2y @(*$ NO LIST *)!@"*********************************************************** @8"  XOICONS - OPERATOR INTERFACE TASK CONSTANTS * 8" 25 JULY 1980  * @"*********************************************************** @" '""  ALL LENGTHS ARE IN BYTES "" '0 MXTXTL=223; " MAXIMUM REQUEST TEXT LENGTH 00 MXPRTL=28;  " MAXIMUM PROMPT TEXT LENGTH 00 MXDFTL=50;  " MAXIMUM DEFAULT TEXT LENGTH 0* MXRPLL=390; " MAXIMUM REPLY LENGTH *. MXRPDL=102; " MAXIMUM REPLY DATA LENGTH.0 MXRQDL=384; " MAXIMUM REQUEST DATA LENGTH 0, MXMSGL=255; " MAXIMUM MESSAGE LENGTH ,* RDBFOH=19;  " READ BUFFER OVERHEAD *" '"  I/O SYSTEM OPCODES " ' IOSVC=0;  " I/O SVC OPEN=0; " OPEN OPCODE  CLOSE=1;  " CLOSE OPCODE  & READASC=9;  " READ ASCII OPCODE&( WRTASC=#B;  " WRITE ASCII OPCODE (2 REWIND=#E;  " REWIND OPCODE (CLEAR SCREEN) 2( ASGLUN=#91; " ASSIGN LUNO OPCODE (* RELSLUN=#93;  " RELEASE LUNO OPCODE*" '2"  OPERATOR ERROR CODES(RETURNED IN BUFFER) 2" '4 PORINV=#FA; " USER MAY NOT ISSUE POR COMMAND 4. REQINV=#F9; " REQUEST ID NUMBER INVALID.2 REQRSP=#F8; " REQUEST IS IN RESPONSE STATE 2* RSPNRQ=#F7; " RESPONSE NOT REQUIRED*, KILLRD=#F4; " READ KILLED BY ROM/QOI ,4 LOMINV=#F2; " USER MAY NOT ISSUE LOM COMMAND 40 NOMSGS=#F1; " NO MESSAGES TO LIST FOR LOM 0" '0"  SVC ERROR CODES(RETURNED IN SVC BLOCK) 0" '* INVIOCMD=#02; " INVALID I/O COMMAND*" IOABORT=#10;  " IO ABORTED "" '"  OPERATOR OPCODES " ' RDOP=0; " READ OPCODE* GRQOP=1;  " GENERAL REQUEST OPCODE *2 ROMOP=2;  " RELAY OPERATOR MESSAGES OPCODE 20 KOMOP=3;  " KILL OPERATOR MESSAGES OPCODE 00 LOMOP=4;  " LIST OPERATOR MESSAGES OPCODE 04 XOIOP=5;  " EXECUTE OPERATOR INTERFACE OPCODE 42 QOIOP=6;  " QUIT OPERATOR INTERFACE OPCODE 24 POROP=7;  " PROMPT FOR OPERATOR REPLY OPCODE 44 ROROP=8;  " REPLY TO OPERATOR REQUEST OPCODE 4" '&"  MAILBOX BUFFER DISPLACEMENTS &" '$ MBREQ=3;  " REQUEST ID NUMBER F$IELD* MBRRQ=8;  " RESPONSE REQUIRED FIELD*& MBUID=14; " REQUESTOR ID FIELD &( MBTIME=26;  " REQUEST HOUR FIELD (* MBTXT=32; " REQUEST TEXT FIELD - 1 *" '"  MESSAGE NUMBERS" '* KOMBAD=#91C3; " KOM RETURNED ERROR ** QOIBAD=#91C4; " QOI RETURNED ERROR ** XOIBAD=#91C5; " XOI RETURNED ERROR ** ROIBAD=#91C6; " POR RETURNED ERROR *& RIDBAD=#91C7; " BAD REQUEST ID &0 RIDRSP=#91C8; " REQUEST IN RESPONSE STATE0, NRSPRQ=#91C9; " NO RESPONSE REQUIRED ,4 RORBAD=#91CA; " ROR RETURNED ERROR (TIMEOUT) 4( FILBAD=#906A; " LOM FILE NAME BAD(* NOTROP=#91CB; " NOT ROM OR OPERATOR** NOMSG =#91CC; " NO MESSAGES TO LIST* MOD2BAD=#91CD; " COMMAND ISSUED FROM BACKGROUND 2, CMDBAD=#91CE; " COMMAND PARAMETER BAD,0 INTERR=#91CF; " INTERNAL ERROR (BAD NEWS)0" '"  CONDITION CODES" ' ABEND=#C000;  " ABEND" NONFATAL=#8000; " NONFATAL " NORMAL=0; " NORMAL , SVCFILE=1;  " SVC MESSAGE FILE NUMBER,4 UTILITYFILE=2;  " UTILITY MESSAGE FILE NUMBER 4" '"  PROMPT REPLY TYPES " ' YESNO=1;  " YESNO NONNULL=2;  " NONNULL NUMBER=3; " INTEGER" '"  KEY CODES " %%'& CMDKEY=#98; " COMMAND KEY CODE &  F4KEY=#84;  " F4 KEY CODE  F5KEY=#85;  " F5 KEY CODE & UPKEY=#95;  " UP ARROW KEY CODE& DOWNKEY=#8A;  " DOWN ARROW KEY CODE. ERSINPKEY=#8E;  " ERASE INPUT KEY CODE .& ENTERKEY=#93; " ENTER KEY CODE &  CRKEY=#8D;  " CR KEY CODE " TABKEY=#89; " TAB KEY CODE "" SKPKEY=#8B; " SKIP KEY CODE"" ' (*$ RESUME LIST *) " NFDATA DEFINITION ::?COPY DSC.TEMPLATE.PTABLE.NFJOBC " NFJOBC DEFINITION :$ JOBLIM  : WORD; " JOB LIMIT $* DIOUID  : BYTE; " TASK ID OF DIOU * ?ENDIF **** DNOS ONLY **** *?IF DX10 = TRUE **** DX10 ONLY **** *(*$ NO LIST *)!* OVT : PACKED RECORD  " OVERLAY TABLE*" '& TSKLST : WORD; "START OF TSB'S &0 UPS: WORD; "ADDR SYSTEM TIME UNITS/SEC 0& PSBLST : WORD; "START OF PSB'S &2 FIDMAP : WORD; LGTYPES PAa2y!(*$NO LIST *) !<"******************************************************* < "  * 6" GLOBAL TYPE DEFINITIONS FOR LOG 08/19/80  * 6 "  * <"******************************************************* <" 'F! ACCOUNT_TYPE = ( DUMY, JOB_INIT, TASK_TERM, JOB_TERM, DEV_ENTRY, F USER_ENTRY, IPL ); . FIRST_REC = PACKED ARRAY [1..16] OF CHAR;. LOG_REC = PACKED RECORD.LOG_TEXT : PACKED ARRAY [1..80] OF CHAR ; .  END;  LOG_FILE = FILE OF LOG_REC;  > ATTN_TYPE = ( FULL, DEV_MIS, FILE_MIS, DEV_ENB, ALL_DIS, > ACCT_MIS, ACC_FULL ); (*$RESUME LIST *) ,* RDBFOH=19;  " READ BUFFER OVERHEAD *" '"  I/O SYSTEM OPCODES " ' IOSSBR PAd63y#(*$ NO LIST *)A "************************************************************** A"** 3"* STATIC BUFFER REQUEST  (SBR) 07/13/78 * 3"** '"* LOCATION: SYSTEM TABLE AREA * 'A "************************************************************** A SBR = PACKED RECORD ! SBRSVC : BYTE; "OP CODE (4A) ! SBRERR : BYTE; "ERROR CODE # SBROP: BYTE; "SVC SUB OPCODE # FILL00 : BYTE; "  SBRBET : WORD; "# OF BEETS # SBRSEG : WORD; "SEGMEND RUN ID #END; (*$ RESUME LIST *)(*$ RESUME LIST *)OOLEAN; "EVENT 03  S42R04 : BOOLEAN; "EVENT 04  FILL00 : 0..2047; END;8 S42RT2 : PACKED RECORD "SECOND WORD OF RETURN FLAGS8 FILL01 : 0..65535;SSB PAgIt3y%@(*$ NO LIST *)?"************************************************************ ?"** -"* SEGMENT STATUS BLOCK (SSB)10/03/84* -"** 7"* LOCATION:ROOT AND SEGMENT MANAGER TABLE AREA * 7?"************************************************************ ?<"* EACH SEGMENT WHICH IS IN MEMORY IS DESCRIBED BY AN SSB.<?"* THE SSB INCLUDES CHARACTERISTICS OF THE SEGMENT, LOCATION, ? "* AND USE INFORMATION. "* "* SPECIAL FIELD COMMENTS:"*="* SSBWCT - THIS FIELD IS USED TO KEEP TRACK OF THE AMOUNT =5"* OF FREE AREA IN A SPECIAL TABLE AREA.APPLIES 5$"* TO SSB'S FOR SMT'S AND FMT'S.$"*:"* SSBID1/2 - THIS FIELD CONTAINS THE BLOCK NUMBER FOR A:"* SEGMENT WHICH IS ASSOC IATED WITH A DATA FILE. "* SSB = PACKED RECORD  SSBSSB : @SSB ;"SSB LINK 4 SSBID1 : WORD; "SEGMENT INSTALLED ID FIRST WORD45 SSBID2 : WORD; "SEGMENT INSTALLED ID SECOND WORD 5( SSBRID : WORD;  "SEGMENT RUN-TIME ID(/ SSBATR : PACKED RECORD  "SEGMENT ATTRIBUTES /) SSFRED : BOOLEAN;  "READABLE (NONTASK) )$ SSFSYS : BOOLEAN; "SYSTEM (BOTH)$- SSFRES : BOOLEAN;  "MEMORY RESIDENT (BOTH) -FILL00 : 0.. 1; * SSFREP : BOOLEAN;  "REPLICATABLE (BOTH)*. SSFSHR : BOOLEAN;  "SHARE PROTECT (NONTASK)./ SSFPR2 : BOOLEAN;  "PROC 2 ON SYS P.F.(TASK) /FILL01 : 0.. 1; & SSFOVF : BOOLEAN; "OVERFLOW (TASK)&5 SSFWCS : BOOLEAN; "WRITEABLE CONTROL STORE (BOTH) 5 SSFEXC : BOOLEAN; "E XECUTE PROTECT (BOTH) . SSFWRT : BOOLEAN;  "WRITE PROTECT (NONTASK).( SSFUPD : BOOLEAN;  "UPDATEABLE (BOTH)(' SSFREU : BOOLEAN;  "REUSEABLE (BOTH) '& SSFCPY : BOOLEAN; "COPYABLE (BOTH)&- SSFSEC : BOOLEAN;  "SECURITY BYPASS (TASK) -END;, SSBRCT : INTEGER; "SEGMENT RESERVE COUNT,( SSBUCT : INTEGER; "SEGMENT USE COUNT(2 SSBSGB : @SGB ;"SEGMENT GROUP BLOCK POINTER28 SSBADR : WORD; "SEGMENT BEET ADDRESS (PTS TO OVB+1)80 SSBLEN : POSINT;  "LENGTH OF SEGMENT (BYTES)05 SSBREC : INTEGER;"REC. # OF PF SEG. ON HOME FILE 5: SSBLOD : ADDRESS;"LOAD ADDRESS OF SEGMENT (FROM P.F.):* SSBFLG : PACKED RECORD "SEGMENT FLAGS*# SSFTSK : BOOLEAN; "TASK SEGMENT # SSFEMP : BOOLEAN; "EMPTY S EGMENT (DO NOT LOAD)* SSFHOM : BOOLEAN;  "LOAD FROM HOME FILE*4 SSFINI : BOOLEAN; "INITIAL LOAD SEGMENT (SSB NOT44 SSFNRP : BOOLEAN; "DO NOT REPLICATE SSB (SINCE A4! SSFREL : BOOLEAN; "RELEASABLE ! SSFMOD : BOOLEAN; "MODIFIED   SSFMEM : BOOLEAN; "IN MEMORY * SSFLLM : BOOLEAN;  "LOGICALLY IN MEMORY*2 SSFERR : BOOLEAN; "DISK ERROR OCCURRED ON READ2FILL02 : 0..63; END;6 SSBOVL : BYTE; "LAST OVERLAY NUMBER LOADED IN SEG64 SSBPRI : BYTE; "INSTALLED PRIORITY (TASKS ONLY)42 SSBSTE : @STE ;"POINTER TO SWAP TABLE ENTRY25 SSBSOB : @SOB ;"POINTER TO SEGMENT OWNER BLOCK 56 SSBPRC : BYTE; "THE ID'S OF PROCEDURES ASSOCIATED62 SSBPR2 : BYTE; "WITH THE TASK (TASK SEG ONLY)24G# SSBNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "TASK NAME (TASK SEG ONLY) GEND; (*$ RESUME LIST *)OTECT (BOTH)&' FLAG SSFWRT WRITE PROTECT (NONTASK) '0SSFSPR EQUSSFWRT SOFTWARE PRIVILEGED (TASK)0! FLAG SSFUPD UPDATEABLE (BOTH) !  FLAG SSFREUREUSEABLE (BOTH)  FLAG SSFCPYCOPYABLE (BOTH) & FLAG SSFSEC SECURITY BYPASS (TASK)&(SSBRCT INT0  SEGMENT RESERVE COUNT($SSBUCT INT0  SEGMENT USE COUNT$0SSBSGB PTRSGB  SEGMENT GROUP BLOCK POINTER06SSBADR WORD 0  SEGMENT BEET ADDRESS (PTS TO OVB+1)6.SSBLEN POSINT 0  LENGTH OF SEGMENT (BYTES).1SSBREC INT0  REC. # OF PF SEG. ON HOME FILE 16SSBLOD ADDR 0  LOAD ADDRESS OF SEGMENT (FROM P.F.)6SSBFLG FLAGS 16  SEGMENT FCROSSTYP PAvV  2y&@P(*$NO LIST*) PP"----------------------------------------------------------------------- PP" PP" GLOBAL TYPES FOR OBJECT CROSS REFERENCE PROGRAM PP" PP"----------------------------------------------------------------------- PP CHAR4 = PACKED ARRAY[ 1 .. 4 ] OF CHAR; PP CHAR6 = PACKED ARRAY[ 1 .. 6 ] OF CHAR; PP CHAR8 = PACKED ARRAY[ 1 .. 8 ] OF CHAR; P ACJCESS_NAME = PACKED ARRAY[ 1 .. AL ] OF CHAR; JP COLUMNS = 1 .. 80 ; PP LINE_FILE = FILE OF PACKED ARRAY[ COLUMNS ] OF CHAR; PP BIT16 = 0 .. #FFFF ; PP MODNODE = PACKED RECORD PP CHAIN: @MODNODE; (* NEXT MODULE *) PP NAME: CHAR8; PP FLAGS: PP PACKED RECORD P D ROOT: BOOLEAN; (* NOT REF BY ANY MODULE *) DP REFERENCED: BOOLEAN; (* REF BY CURRENT MODULE *) PP U_TAG: BOOLEAN; (* REF BY LOAD POINT *) PP V_TAG: BOOLEAN; (* REF BY SREF *) PP RECURSIVE: BOOLEAN; (* HAS ITSELF AS ANCESTOR *) PP NO_GRAPH: BOOLEAN; (* NOT TO BE IN CALL GRAPH *) PP FILL_MN_0: 0 .. 3; PP END; PP LIST_PAGE: BYTE; P PA>TH_PAGE: BYTE; >P DEF_SYM_PAGE: BYTE; PP REF_SYM_PAGE: BYTE; PP REF_MOD_PAGE: BYTE; PP REF_PAGE: BYTE; %% PP GRAPH_PAGE: BYTE; PP RECORD_NUMBER: INTEGER; PP DEF_CHAIN: @DEFNODE; (* ALL DEFS IN MODULE *) PP REF_CHAIN: @REFNODE; (* ALL REFS BY MODULE *) P END; 8 8P DEFNODE = PACKED RECORD PP CHAIN: @DEFNODE; (* NEXT DEF *) PP NAME: CHAR6; PP VALUE: CHAR4; PP FLAGS: PP PACKED RECORD PP USED: BOOLEAN; PP REF_U_TAG: BOOLEAN; P REF_V_TAG:2 BOOLEAN; 2P FILL_DN_0: 0 .. 31; PP END; PP SEGMENT: CHAR; PP MOD_PTR: @MODNODE; (* MODULE DEF IN *) PP DEF_CHAIN: @DEFNODE; (* NEXT DEF IN MODULE *) PP REF_CHAIN: @REFNODE; (* ALL REFS OF THIS DEF *) PP END; PP REFNODE = PACKED RECORD P$ FLAGS: $, ,P PACKED RECORD PP DUPLICATE: BOOLEAN; (* ANOTHER REF TO SAME MOD *) PP FILL_RN_0: 0 .. 127; PP END; PP TAG: CHAR; PP MOD_PTR: @MODNODE; (* MODULE THIS REF BY *) PP MOD_REF_CHAIN: @REFNODE; (* NEXT REF BY MODULE *) PP DEF_PTR: @DEFNODE; (* DEF OF THIS REF *) P* DEF_REF_CHAIN: @REFNODE; *&(* NEXT REF OF DEF *) &P END; PP DBLNODE = RECORD PP CHAIN: @DBLNODE; (* NEXT DBL DEF *) PP DEF_PTR: @DEFNODE; PP MOD_PTR: @MODNODE; PP END; PP NAMENODE = RECORD PP CHAIN: @NAMENODE; (* NEXT ROOT *) P0 NAME: CHAR8; 0 P MOD_PTR: @MODNODE; (* MODULE *) PP END; PP MODPOINT = @MODNODE; PP DEFPOINT = @DEFNODE; PP REFPOINT = @REFNODE; PP DBLPOINT = @DBLNODE; PP ROOTPOINT = @NAMENODE; PP NGPOINT = @NAMENODE; P6 COMMAND_TYPE = PACKED ARRAY[ 1 .. 8 ] OF CHAR; 6 P COMMAND_RANGE = ( C_INCL, C_INCLUDE, C_ROOT, C_NOGRAPH, PP C_NO_COMMAND ); PP(*$RESUME LIST*) PTA FILE LUNO.: SD_PATH : NAME_TYPE;  " SAVED DATA PATHNAME "R01:4 SD_REC  : LONGINT; " SAVED DATA FILE RECORD44 DINFO : PACKED RECORD " SYSTEM DISK PDT+ DPD4  PDT_BUF : PDT;   DPD_BUF : DPD;   END;  . PROC_SIZE: WORD; " SIZE OF PROCEDURE .2 P_FILE_NAME: PATH; " Name of program file2. PF_LUNO: BYTE; " Luno of program file.& ST_LUNO: BYTE; " Station luno & SD_LUNO: BYTE; " SourSVCDES PAs3y(@(*$ NO LIST *)>"***********************************************************>*"*SVC INTERPRETER DESCRIPTOR BLOCK  **("*FOR SUPERVISOR CALL BLOCK FOR  *(<"*INSTALL TASK, INSTALL PROCEDURE, AND INSTALL OVERLAY *<"* (SVCDES) 10/30/79  *>"***********************************************************>"*6"** WORD DISP *SLA COUNT * BIT LENGTH  *6:"*****************************************************:"*"*"* FIL = PACKED RECORD " FILL00 : BYTE; "WORD 0,BYTE 0"" FILL01 : BYTE; "WORD 0,BYTE 1"" FILL02 : BYTE; "WORD 1,BYTE 0"" FILL03 : BYTE; "WORD 1,BYTE 1"& FILL04 : BYTE;  "WORDS 2,3,4 AND 5&" FILL05 : BYTE; "WORD 6,BYTE 0"  FILL06 : BYTE; "WORD 6,BIT 0 ! FILL07 : BYTE; "WORD 6,BIT 1 !! FILL08 : BYTE; "WORD 6,BIT 2 !! FILL09 : BYTE; "WORD 6,BIT 3 !" FILL0A : BYTE; "WORD 6, BIT 4"" FILL0B : BYTE; "WORD 6, BIT 5"" FILL0C : BYTE; "WORD 6, BIT 6"# FILL0D : BYTE; "WORD 6, BYTE 1 # FILL0E : BYTE; "WORD 7 " FILL0F : BYTE; "WORD 7,BYTE 0"" FILL10 : BYTE; "WORD 7,BYTE 1"# FILL11 : BYTE; "WORD 8, BYTE 0 ## FILL12 : BYTE; "WORD 8, BYTE 1 #" FILL13 : BYTE; "WORD 8, BIT 8"" FILL14 : BYTE; "WORD 8, BIT 9"# FILL15 : BYTE; "WORD 8, BIT 10 ## FILL16 : BYTE; "WORD 8, BIT 11 ## FILL17 : BYTE; "WORD 8, BIT 12 ## FILL18 : BYTE; "WORD 8, BIT 13 ## FILL19 : BYTE; "WORD 8, BIT 14 ## FILL1A : BYTE; "WORD 8, BIT 15 #" FILL1B : BYTE; "WORD 9,BYTE 0"! FILL1C : BYTE; "WORD 9,BIT 1 !! FILL1D : BYTE; "WORD 9,BIT 2 !! FILL1E : BYTE; "WORD 9,BIT 3 !! FILL1F : BYTE; "WORD 9,BIT 4 !! FILL20 : BYTE; "WORD 9,BIT 5 !! FILL21 : BYTE; "WORD 9,BIT 6 !"*&"*SVC INTERPRETER DESCRIPTOR BLOCK&"*#"*FOR SUPERVISOR CALL BLOCK FOR #"*3"*DELETE TASK, DELETE PROCEDURE, DELETE OVERLAY 3"*"*"*" FILL22 : BYTE; "WORD 0,BYTE 0"" FILL23 : BYTE; "WORD 0,BYTE 1"" FILL24 : BYTE; "WORD 1,BYTE 0"" FILL25 : BYTE; "WORD 1,BYTE 1" FILL26 : BYTE; "WORD 2 "*&"*SVC INTERPRETER DESCRIPTOR BLOCK&"*"* FOR ACTIVATE TASK COMMAND "*"*" FILL27 : BYTE; "WORD 0,BYTE 0"" FILL28 : BYTE; "WORD 0,BYTE 1"" FILL29 : BYTE; "WORD 1,BYTE 0""*&"*SVC INTERPRETER DESCRIPTOR BLOCK&"*""*FOR THE EXECUTE TASK COMMAND""*"*"*" FILL2A : BYTE; "WORD 0,BYTE 0"" FILL2B : BYTE; "WORD 0,BYTE 1"" FILL2C : BYTE; "WORD 1,BYTE 0"" FILL2D : BYTE; "WORD 1,BYTE 1"" FILL2E : BYTE; "WORD 1,BIT 14"# FILL2F : BYTE; "WORD 1, BIT 15 #" FILL30 : BYTE; "WORD 1,BIT 15" FILL31 : BYTE; "WORD 2  FILL32 : BYTE; "WORD 3 " FILL33 : BYTE; "WORD 4,BYTE 0"" FILL34 : BYTE; "WORD 4,BYTE 1" FILL35 : BYTE; "WORD 5 "*"* SVC DESCRIPTOR BLOCK"* FOR THE KILL TASK SVC "*"*# FILL36 : BYTE; "WORD 0, BYTE 0 ## FILL37 : BYTE; "WORD 0, BYTE 1 ## FILL38 : BYTE; "WORD 1, BYTE 0 ## FILL39 : BYTE; "WORD 1, BYTE 1 ## FILL3A : BYTE; "WORD 2, BYTE 0 #" FILL3B : BYTE; "WORD 0,BYTE 0"" FILL3C : BYTE; "WORK 0,BYTE 1"" FILL3D : BYTE; "WORDS 1 AND 2"% FILL3E : BYTE;  "WORDS 3,4,5, & 6 % FILL3F : BYTE; "WORD 7 " FILL40 : BYTE; "WORD 8,BYTE 0"" FILL41 : BYTE; "WORD 8,BYTE 1"! FILL42 : BYTE; "WORD 8,BIT 8 !! FILL43 : BYTE; "WORD 8,BIT 9 ! FILL44 : BYTE; "WORD 9  FILL45 : BYTE; "WORD 10# FILL46 : BYTE; "WORD 11,BYTE 0 ## FILL47 : BYTE; "WORD 11,BYTE 1 # (*$ RESUME LIST *)PICT SOURCE=@IT.RDB,PASSLDISK P!A 3 y)@(*$ NO LIST *)?"************************************************************ ?"** 1"* FILE STRUCTURE COMMON  (FSC) 02/23/82 * 1"** /"* LOCATION: FILE MANAGEMENT TABLE AREA * /"** ?"************************************************************ ?<"* THE FSC IS COMPOSED OF A COMMON FIRST STRUCTURE THAT IS<="* SHARED BY BOTH THE FILE CONTROL BLOCK (FCB) AND THE FILE =;"* DIRECTORY BLOCK (FDB) VARIANTS OF THE REMAI%%NDER OF THE ;"* STRUCTURE. <"*THE FCB IS AN IN-MEMORY REPRESENTATION THAT IS USED TO<?"* TRACK THE CHARACTERISTICS OF A FILE THAT IS IN USE. AN FCB ?8"* REPRESENTS THE LAST COMPONENT OF THE FILE PATHNAME.8:"*THE FDB IS AN IN-MEMORY STRUCTURE REPRESENTING ONE N:ODE ="* OF THE PATHNAME OF A FILE. IT PROVIDES TREE LINKAGE FOR ="* THE ENTIRE FILE PATHNAME. FSC = PACKED RECORD " FSCPDT : @PDT ;"PDT POINTER"5 FSCPDR : @DDR ;"PTR TO PARENT'S DIRECTORY DOOR 52 FSCEOM : LONGINT;"END OF MEDIUM LOGICAL REC #2# FSCAPB : BYTE; "ADUS PER BLOCK ## FSCBPA : BYTE; "BLOCKS PER ADU #, FSCPAS : WORD;  "PRIMARY ALLOCATION SIZE,/ FSCPAA : WORD; "PRIMARY ALLOCATION ADDRESS /  FSCSAA : WORD; "SAT ADDRESS ) FSCPRS : WORD;  "PHYSICAL RECORD SIZE )) FSCADU : WORD;  "FDR ADU OF THIS FILE )* FSCOFF : BYTE;  "FDR OFFSET WITHIN ADU*0 FSCMFG : PACKED RECORD  "MODIFIED ONLY FLAGS04 FSCMEC : BOOLEAN; "1 = END OF MEDIUM HAS CHANGED4FSCMWT : BOO'LEAN; "1 = FILE HAS BEEN WRITTEN IN ''FSCFU1 : 0.. 3;  "FILE USAGE BIT ONE '1 FSCDEL : BOOLEAN; "FDB DELETE PROTECTION FLAG 1FILL00 : 0.. 7; END;CASE INTEGER OF , 1 : ( "FCB - FILE CONTROL BLOCK VARIANT,2 FCBFCB : @FCB ;"LINK FOR CONCATENATED FILES2) FCBRPB : @RPB ; "START OF RPB CHAIN )0 FCBCCT : BYTE; "COUNT OF CONCATENATED FILES0' FCBFLB : PACKED RECORD "FLAGS BYTE '/ FCBFCC : BOOLEAN;  "FILE IS IN CONCATENATION /- FCBFUB : BOOLEAN;  "OPEN MUST BE UNBLOCKED -" FCBBSY : BOOLEAN; "FCB IS BUSY". FCBFSE : BOOLEAN;  "SUPPRESS EOF BEFORE EOM.FILL01 : 0..15; END;" FCBSGB : @SGB ;"SGB ADDRESS"/ FCBSMT : @SSB ; "SM TABLE AREA SSB OF SGB /  FCBFLG : PACKED RECORD "FILE FLAGS %FCBFFU : 0.. 3;  "FILE USAGE FLAGS % FCBFDF : 0.. 3; "DATA FORMAT ' FCBFAT : BOOLEAN;  "EXPANDABLE IF ON 'FCBFFT : 0.. 3; "FILE TYPE, FCBFWP : BOOLEAN;  "WRITE PROTECTED IF ON,- FCBFDP : BOOLEAN;  "DELETE PROTECTED IF ON -+ FCBFTF : BOOLEAN;  "TEMPORARY FILE IF ON +* FCBFBF : BOOLEAN;  "BLOCKED FILE IF OFF*( FCBFAF : BOOLEAN;  "ALIAS ENTRY IF ON() FCBFFW : BOOLEAN;  "FORCED WRITE IF ON )$ FCBFSC : BOOLEAN; "FILE SECURITY$5 FCBPLG : BOOLEAN; "FILE MARKED AS PARTIAL LOGGING 5 RESER : BOOLEAN; "RESERVED END;1 FCBFDB : @FSC ;"POINTER TO DIRECTORY ENTRY 1- FCBSFD : @SSB ; "SSB OF DIRECTORY ENTRY -( FCBLRS : WORD;  "LOGICAL RECORD SIZE(@. FCBSAS : WORD;  "SECONDARY ALLOCATION SIZE., FCBBKM : LONGINT; "END OF MEDIUM BLOCK #,) FCBOFM : WORD;  "END OF MEDIUM OFFSET ), FCBLRL : WORD;  "LOCKED RECORD LIST HEAD,2 FCBEXT : LONGINT;"BLOCK COUNT FOR FILE EXTENT2) FCBXCT : BYTE;  "FILE EXTENSION COUNT )2 FCBCLA : BYTE; "COUNT OF THINGS POINTING HERE2( FCBRLA : WORD;  "REQUEST LIST ANCHOR(0 FCBCPO : BYTE; "COUNT OF PASSIVE OPERATIONS0, FCBCAW : BYTE;  "COUNT OF ACTIVE WAITERS,0 FCBRED : WORD; "COUNT OF READS ON THIS FILE01 FCBWRT : WORD; "COUNT OF WRITES TO THIS FILE 1CASE INTEGER OF   1 : ( " ( FCBEBQ : LONGINT; "EMPTY BLOCK QUEUE(( FCBCLB : WORD;  "CURRENT LOG BLOCK #(( FCBFBQ : PACKED ARRAY [ 1.. 4 ] OF BY(TE; "FREE BLOCK QUEUE HEAD ) FCBBTR : WORD;  "B-TREE ROOTS BLOCK # ), FCBSBB : WORD;  "STARTING BUCKET BLOCK #,, FCBMRS : WORD;  "MINIMUM KIF RECORD SIZE,D! FCBKDB : PACKED ARRAY [ 1..58 ] OF BYTE; "KEY DESCRIPTIONS BLOCKD );   2 : ( " , FCBMNT : BYTE;  "MAXIMUM NUMBER OF TASKS,0 FCBTO: BYTE; "TASK DIRECTORY ENTRY OFFSET02 FCBTR: WORD; "TASK DIRECTORY ENTRY RECORD #21 FCBMNP : BYTE; "MAXIMUM NUMBER OF PROCEDURES 10 FCBPO: BYTE; "PROC DIRECTORY ENTRY OFFSET02 FCBPR: WORD; "PROC DIRECTORY ENTRY RECORD #2/ FCBMNO : BYTE; "MAXIMUM NUMBER OF OVERLAYS /3 FCBOO: BYTE; "OVERLAY DIRECTORY ENTRY OFFSET 33 FCBOR: WORD; "OVERLAY DIRECTORY ENTRY RECORD 3 ); TR  ); . 2 : ( "FDB - FILE DIRECTORY BLOCK VARIANT.) FDBRNM : WORD;  "RECORD NUMBER OF FDR )6 FDBDDR : @DDR ;"ADDRESS OF DIRECTORY DOOR (DDR)67 FDBFNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "FILE NAME 7, FDBFCB : @FSC ; "ADDRESS OF FCB ANCHOR,) FDBCDF : BYTE;  "COUNT OF DESCENDANTS ) FILL02 : BYTE; "RESERVED 8 FDBAFD : @FSC ;"ADDRESS OF FIRST DESCENDANT (AFD)8* FDBSAF : @SSB ; "SSB ADDRESS FOR AFD*4 FDBALS : @FSC ;"ADDRESS OF LAST SIBLING (ALS)4* FDBSAL : @SSB ; "SSB ADDRESS FOR ALS*4 FDBANS : @FSC ;"ADDRESS OF NEXT SIBLING (ANS)4* FDBSAN : @SSB ; "SSB ADDRESS FOR ANS*3 FDBAPF : @FSC ;"ADDRESS OF PARENT FILE (APF) 3* FDBSAP : @SSB ; "SSB ADDRESS FOR APF*,@/ FDBFMT : @SSB ; "SSB ADDRESS FOR THIS FDB / ); END; ); $ SATASZ : WORD; "ALLOCATION SIZE$% SATADU : WORD;  "ALLOCATION START %@ FILL03 : PACKED ARRAY [ 1..60 ] OF BYTE; "REMAINDER OF BLOCK@END;2 TICMD: BYTE; "R0 = TILINE COMMAND/HEAD ADDR2 TIHEAD : BYTE; " 2 TISPR: BYTE; "R1 = SECS PER RECD/SECTOR NUM2 TISEC: BYTE; " * TICYL: WORD;  "R2 = CYLINDER ADDRESS*) TICNT: WORD;  "R3 = CHARACTER COUNT )- TIBUFF : WORD;  "R4 = BUFFER ADDRESS(LSW) -3 TISEL: BYTE; "R5 = UNIT SELECT/BUFF ADDR MSB 3 TIMSB: BYTE; " % TIADU: WORD;  "R6 = ADU TO READ %0 TIOFF: WORD; "R7 = SECTOR OFFSET INTO ADU0! FILL04 : WORD; "R8 = SCRATCH ! FILL05 : WORD; "R9 = SCRATCH " FILL06 : WORD; "R10 = SCRATCH"* SPT: WORD;  "R11 = SECTORS PER TRACK*) TIBASE : WORD;  "R12 = TILINE ADDRESS )# FILL07 : WORD; "RETURN CONTEXT # FILL08 : WORD; "  FILL09 : WORD; " ! INTWP: WORD; "R0 = SCRATCH !3 ADUPPR : WORD; "R1 = SCRATCH/ADU'S PER PHY REC 3! FILL0A : WORD; "R2 = SCRATCH !1 MAXENT : WORD; "R3 = NUM OF VCATALOG ENTRIES 1( MAXADU : WORD;  "R4 = MAX # OF ADU'S(+ CATADU : WORD;  "R5 = VCAT STARTING ADU +2 PHYREC : WORD; "R6 = VCAT PHYSICAL REC LENGTH2% SPADU: WORD;  "R7 = SECTORS/ADU %% SECSIZ : WORD;  "R8 = SECTOR SIZE %) HEADS: WORD;  "R9 = NUMBER OF HEADS )( WPT: WORD;  "R10 = WORDS PER TRACK(*@2 SECPT: BYTE; "R11 = SECS PER TRACK/OVERHEAD2 OVHPS: BYTE; " 1 TPC: BYTE; "R12 = TRACKS PER CYLINDER(0-4) 1/ CYLS : BYTE; "/NUMBER OF CYLINDERS(5-11) / FILL0B : WORD; "R13 FILL0C : WORD; "R14 FILL0D : WORD; "R152 IPLMSB : BYTE; "TILINE ADDRESS MSB FOR LOADER22 SYSMSB : BYTE; "TILINE ADDRESS MSB FOR SYSTEM2/ CNTPBM : WORD; "NUMBER OF PARTIAL BIT MAPS /. PRPADU : WORD;  "VCAT PHYSICAL RECORDS/ADU.E" VOLUME : PACKED ARRAY [ 1.. 8 ] OF CHAR; "SYSTEM DISK VOLUME NAME E  FAKFDP : WORD; "FMT POINTER  FILL0E : WORD; "FCB POINTER G# FILL0F : PACKED ARRAY [ 1..76 ] OF BYTE; "TEMP FCB FOR S$IMAGE FILE G< ALOTAB : PACKED ARRAY [ 1..64 ] OF BYTE; "ALLOCATION TAB<LE FOR FILE I/O / DOICAR : WORD; "IGNORE DISK I/O ERROR FLAG /3 DIOERR : WORD; "DISK I/O ERROR HAS OCCURED FLG 3' DISKCD : WORD;  "DISK CREATION DATE '' DISKCT : WORD;  "DISK CREATION TIME 'END; (*$ RESUME LIST *)g< PBMMAP : PACKED ARRAY [ 1..254 ] OF BYTE;"PARTIAL BIT MAP>"*>"*THIS SECTION MAPS EACH PBM; THE DISK MANAGER CAN EXAMINE>>"*THIS "MAP" TO DETERMINE ON A FIRST-FIT BASIS THE PARTIAL>9"*BIT MAP FROM WHICH TO ALLOCATE WITHOUT SEQUENTIALLY 9:"*SEARCHING THE DISK-RESIDENT BIT MAPS. THE FOLLOWING:A"*STRUCTURE IS REPEATED AS REQUIRED FOR EACH PARTIAL BIT MAP: A"*2 PBMBIG : WORD; "LARGEST CONTIGUOUS BLK IN PBM2, PBMBGN : WORD;  "CONTIGUOUS BLK AT START,* PBMEND : WORD;  "CONTIGUOUS BLK AT END*END; (*$ RESUME LIST *)"Jj¦ ϭJ~‚ $F‚ &‘Ѡ“ “&&¨"PICTVAR PA2y06"************************************************ 6*" GLOBAL VARIABLES FOR PICTURE PROGRAM*6"************************************************ 6 COPYIN : TEXT;  PASOUT : TEXT;  COPYTEMP : TEXT; GUOUS BLK AT END*END; (*$ RESUME LIST *): WORD;  "LOG FILE ALLOCATION(3 LFDLUN : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LUNOS 3END; (*$ RESUME LIST *)VDT  LDTBCM EQU k4`46 M = PACKED RECORD + PBMMAX : BYTE;  "NUMBER OF PARTIAL MAPS +1 PBMNUM : BYTE; "PARTIAL MAP NUMBER IN BUFFER 10 PBMFAU : WORD; "FIRST AVAILABLE ADU ON DISK0/ PBMLRC : WORD; "LRC CHECKSUM OF MEMORY PBM /2 PBMLCB : WORD; "ADU OF LARGEST CONTIGUOUS BLK24!SC0 P A43y2@(*$ NO LIST *)?"************************************************************ ?"** -"* TRACK 0, SECTOR 0 (SC0)  09/09/83 * -"** 1"*LOCATION: TRACK 0, SECTOR 0 OF EACH DISK* 1?"************************************************************ ? SC0 = PACKED RECORD 9 SC0VNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "VOLUME NAME 9* SC0TNA : WORD;  "TOTAL SC0 ADU ON DISK*0 SC0SBM : BYTE; "STARTING SECTOR OF BIT MAPS0' SC0TBM : BYTE;  "TOTAL SC0 BIT MAPS '* SC0RL: WORD;  "TRACK 0 RECORD LENGTH*0 SC0SLT : WORD; "SYSTEM LOADER TRACK ADDRESS0> FILL00 : PACKED ARRAY [ 1.. 6 ] OF BYTE; "* * RESERVED * *>. SC0NBA : WORD;  "TOTAL SC0 BAD ADU ON DISK." SC0SLE : WORD; "SYSTEM LOADER" ENTRY POINT) SC0SLL : WORD;  "SYSTEM LOADER LENGTH )> FILL01 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "* * RESERVED * *>1 SC0LT1 : WORD; "SYSTEM LOADER TRACK (COPY 2) 1> FILL02 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "* * RESERVED * *>F" SC0PI1 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "PRIMARY SYSTEM FILE NAMEFH# SC0PI2 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "SECONDARY SYSTEM FILE NAMEH$ SC0PIF : WORD; "SYSTEM SELECTOR$- SC0VDA : WORD;  "VOLUME DIRECTORY ADU SC0 -4 SC0VPL : WORD; "VCATALOG PHYSICAL RECORD LENGTH4  SC0SPA : WORD; "SECTORS/ADU @ SC0DCD : PACKED ARRAY [ 1.. 4 ] OF BYTE; "DISK CREATION DATE@B SC0PF1 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "PRIMARY PROGRAM FILEB* SC0PF2 : PACKED ARRAY [ 1.. 8 ] OF BYTE* ; "SECONDARY PROGRAM FILE( SC0PFF : WORD;  "PROGRAM FILE SWITCH(B SC0OF1 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "PRIMARY OVERLAY FILEBD! SC0OF2 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "SECONDARY OVERLAY FILED( SC0OFF : WORD;  "OVERLAY FILE SWITCH(I$ SC0IL1 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "PRIMARY INTERMEDIATE LOADER IK% SC0IL2 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "SECONDARY INTERMEDIATE LOADER K- SC0ILF : WORD;  "INTERMEDIATE LOADER FLAG -B SC0DIN : PACKED ARRAY [ 1.. 8 ] OF BYTE; "DIAGNOSTIC FILE NAMEB$ SC0DIF : WORD; "DIAGNOSTIC FLAG$2 SC0DRS : WORD; "DBUILD DETERMINES DEFAULT PRS24 SC0BAL : WORD; "STARTING SECTOR OF BAD ADU LIST4/ SC0SPR : WORD; "TRACK 0 SECTORS PER RECORD / SC0WF1 : PACKED A6RRAY [ 1.. 8 ] OF BYTE; "WCS PRIMARY MICROCODE FILE6J$ SC0WF2 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "WCS SECONDARY MICROCODE FILEJ$ SC0WFF : WORD; "WCS FLAG SWITCH$( SC0VIF : WORD;  "TRACK 1 SELECT FLAG(" SC0STA : WORD; "STATE OF DISK"' SC0DCT : WORD;  "DISK CREATION TIME '% SC0FSF : WORD;  "* * RESERVED * * %END; (*$ RESUME LIST *)FIND SYSTEM ROLL FILE -2FLSH0F = 15; "KERNEL FILE LEVEL INCONSISTENT2"* WITH UTILITY FILE /FLSH11 = 17; "CAN'T GET SYSTEM TABLE AREA /,FLSH13 = 19; "LOGICAL ADDRESS OVERFLOW,'FLSH14 = 20; "CAN'T LOAD WCS FILE ';"*FLSH60-6F EQU>60->6F  INTERNAL INTERRUPT (LEVEL 2) ;-FLSH68 =104; "NOT ENOUGH USER TASK AREA -(*$ RESUME LIS"NDB PA3y3(*$ NO LIST *)>"***********************************************************>0"*NAME DEFINITION BLOCK (NDB) 07/16/81 *0"* *."*LOCATION: A NAME DEFINITION SEGMENT *.>"***********************************************************> NDB = PACKED RECORD 2 NDBNDB : @NDB ;"FIXED LINK - SEQ PROCESSING2, NDBPAR : @NDB ; "POINTER TO PARENT NDB,* NDBLLL : @NDB ; "POINTER TO LEFT SON*+ NDBRRR : @NDB ; "POINTER TO RIGHT SON +& NDBNAM : @VSTG ;"PTR TO THE NAME&- NDBSVB : @SVB ; "ANCHOR OF STAGE VALUES -# NDBBAL : BYTE; "BALANCE FACTOR #" NDBWAT : BYTE; "SON INDICATOR"END; (*$ RESUME LIST *)+N)B )8```+N)V )^` )l9L L RTO@DCB PA%:3y5@(*$ NO LIST *)?"************************************************************ ?"** )"*DIOU CALL BLOCK (DCB) 03/30/82* )"** -"* LOCATION: SYSTEM TABLE AREA AND JCA* -"** ?"************************************************************ ?DCB = PACKED RECORD - DCBSOC : BYTE;  "*SUPERVISOR REQUEST CODE -( DCBEC: BYTE;  "*REQUEST ERROR CODE(( DCBOC: BYTE;  "*SUB-OPERATION CODE(! DCBLUN : BYTE; "LOGICAL UNIT !* DCBSFL : PACKED RECORD "*SYSTEM FLAGS* DCFBSY : BOOLEAN; "BUSY  DCFERR : BOOLEAN; "ERRORFILL00 : 0..63; END;+ DCBCDE : BYTE;  "*CDE NUMBER WITHIN CDT + FILL01 : WORD; "*RESERVED. DCBNAM : PACKED ARRAY [ 1.. 8 ] OF BYTE; ".*DEVICE NAME DCBRES : WORD; "*RESERVED' DCBNUM : WORD;  "*DEVICE/CDT NUMBER '- DCBUFL : PACKED RECORD  "*REQUESTOR FLAGS -& DCFCON : BOOLEAN; "CONDITIONAL SET&% DCFNAM : BOOLEAN; "NAME SPECIFIED %$ DCFRES : BOOLEAN; "RESERVED FLAG$*DCFWCH : 0.. 3;  "WHICH RELATIVE DEVICE* DCFREP : BOOLEAN; "REPLACE+ DCFVOL : BOOLEAN;  "VOLUME NAME PROVIDED +& DCFSDK : BOOLEAN; "USE SYSTEM DISK&FILL02 : 0..255;END;6 DCBBUF : @PATH ;"*BUFFER ADDRESS (LENGTH/VALUES)6END; (*$ RESUME LIST *)+N%~ %V`+N% %V`+n% %`%F%z%%%+% %`+N% %`~+N% &` p+N%''  &` +N% V'+N%-' '+N& &` H+N& &` )) &SCSCOMN PA 2y7(*$ NO LIST *)!"--------------- ," SHOW CHANNEL STATUS COMMON VARIABLES ,%%"--------------- 6 CHANNEL_NAME : STRING;  "SUPPLIED CHANNEL NAME 62 LAST_LENGTH : BYTE; "SIZE OF LAST COMPONENT 2: LAST_NAME : STRING; "LAST CHANNEL NAME COMPONENT :< LAST_PERIOD : BYTE; "POINT JUST BEFORE LAST COMPONENT<2 PROGRAM_FILE : STRING;  "PROGRAM FILE NAME 2(*$ LIST *) ""** -"* LOCATION: SYSTEM TABLE AREA AND JCA* -"** ?"************************************************************ ?DCB = PACKED RECORD - DCBSOC : BYTE;  "*SUPERVISOR REQUEST CODE -( DCBEC: BYTE;  "*REQUEST ERROR CODE(( DCBOC: BYTE;  "*SUB-OPERATION CODE(! DCBLUN : BYTE; "L$STD PAt2y8@(*$ NO LIST *)?"************************************************************ ?"*0"*SECURITY TABLE DESCRIPTOR (STD)05/06/800"*+"* LOCATION: FILE DESCRIPTOR RECORD AND +"* ACCESS CONTROL RECORD?"************************************************************ ?STD = PACKED RECORD . STDACR : WORD;  "RECORD NUMBER OF NEXT ACR.; STDCG: PACKED ARRAY [ 1.. 8 ] OF BYTE; "CONTROL GROUP ;7 STDSAA : PACKED RECORD "SECURITY ACCESS ATTRIBUTES 7 STFXEQ : BOOLEAN; "EXECUTE+ STFASG : BOOLEAN;  "ASSIGN (TO CHANNEL) + STFRD : BOOLEAN; "READ  STFWT : BOOLEAN; "WRITE STFCR : BOOLEAN; "CREATE  STFDL : BOOLEAN; "DELETE  STFCTL : BOOLEAN; "CONTROLFILL00  : 0..255; - STFSEC : BOOLEAN;  "INDICATES SECURED FILE -END;END; (*$ RESUME LIST *);  "*DEVICE/CDT NUMBER '- DCBUFL : PACKED RECORD  "*REQUESTOR FLAGS -" DCFLCK : BOOLEAN; "LOCK/UNLOCK"% DCFNAM : BOOLEAN; "NAME SPECIFIED %( DCFVRD : BOOLEAN;  "DEVICE IS VIRTUAL(*DCFWCH : 0.. 3;  "WHICH RELATIVE DEVICE* DCFREP : BOOLEAN; "REPLACE FILL02 : 0..1023; END;6 DCBBUF : @PATH ;"*BUFFER ADDRESS (LENGTH/VALUES)6END; (*$ RESUME LIST *)DISK.. SC0SLE : WORD;  "SYSTEM LOADER ENTRY POINT.) SC0SLL : WORD;  "SYSTEM LOADER LENGTH )> FILL01 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "* * RESERVED * *>1 SC0LT1 : WORD; "SYSTEM LOADER TRACK (COPY 2) 1> FILL02 : PACKED(TDL PA 3y:(*$ NO LIST *)A "************************************************************** A"** 3"* TIME DELAY LIST ENTRY  (TDL) 03/15/78 * 3"** '"* LOCATION: SYSTEM TABLE AREA * 'A "************************************************************** A5"* A TDL DESCRIBES AN ENTRY ON THE TIME DELAY LIST. 5 TDL = PACKED RECORD " TDLSVC : WORD; "OP CODE (200)"- TDLTM1 : WORD;  "REACTIVATION TIME (WD 1) - TDLTM2 : WORD; " END; (*$ RESUME LIST *):"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`L&S3D PA,3y<(*$ NO LIST *)A "************************************************************** A"** 7"* SEMAPHORE OPERATIONS BLOCK (S3D) 04/22/80 * 7"** A "************************************************************** AS3D = PACKED RECORD * S3DSVC : BYTE;  "SEMAPHORE OP CODE=#3D*) S3DERC : BYTE;  "SEMAPHORE ERROR CODE )- S3DOPC : BYTE;  "SEMAPHORE OPERATION CODE -% S3DNUM : BYTE;  "SEMAPHORE NUMBER %8 S3DVAL : WORD; "SEMAPHORE INITIAL OR RETURNED VALUE8END; (*$ RESUME LIST *) BOOLEAN;  "TASK TO BID IS RBID*0 S2BBAC : BOOLEAN;  "TASK TO BID IS BACKGROUND0' S2BFTC : BOOLEAN;  "TERMINATE CALLER '0 S2BFCT : BOOLEAN;  "TASK TO BID IS CONTROLLED0 S2BFSU : BOOLEAN; "TAS*NFER50 PA3 y=@(*$ NO LIST *) NFER50 : PACKED RECORD?"************************************************************ ?"** ;"*NFER50- ERROR CONSTANTS COMMON AREA # 6 05/05/83 * ;"** ?"************************************************************ ?5 ERR50: BYTE; "SVC00 -TPD DEV CHAR=EXCL ACCESS 50 ERR51: BYTE; "SVC00 -TPD - FRAMING ERROR05 ERR52: BYTE; "SVC00 -TPD-CHARACTERS WERE LOST 56 ERR53: BYTE; "SVC00 -CDE DOES NOT EXIST (DIOU)64 ERR54: BYTE; "SVC00-DEVICE IS BUSY (DIOU)4 ERR55: BYTE; " 7 ERR56: BYTE; "SVC00-INVALID PARM NUMBER (DIOU) 74 ERR57: BYTE; "SVC00 -BUFFER TOO SMALL (DIOU)48 ERR58: BYTE; "SVC31-NAME NOT FOUND IN DIRECTORY8 ERR59: BYTE; "  ERR5A: BYTE; " 9 ERR5B: BYTE; "SVC00-CAN'T REDIRECT NON ASSIGN LU 91 ERR5C: BYTE; "SVC2A -INVALID OVERLAY LINK 19 ERR5D: BYTE; "SVC00-ILLEGAL PARM DEFN LIST(DIOU) 99 ERR5E: BYTE; "SVC00-WRITE-PROTECT VIOLATION (DIO 96 ERR5F: BYTE; "SVC00 -ILLEGAL CDE NUMBER (DIOU)6END; (*$ RESUME LIST *).INPUT03T.DP.TEMPLATE.COMMON.NFER50*UIERRS PB2 y?(*$NO LIST*)"" USER ERRORS"!(*$LIST*) #4 INVPVL = #9242; " INVALID PRIVILEGE LEVEL 44 INVPSC = #90D0; " INVALID CURRENT PASSCODE 42 INVUID = #90BC; " USER ID DOESN'T EXIST 2. DUPUID = #90C0; " DUPLICATE USER ID .6 INVFUN = #90BF; " INVALID FUNCTION SELECTOR 66 OUTRANGE = #90BD; " PRIVILEGE LEVEL < 0 OR > 7 6, NOUDR= #90BE; " UDR DOESN'T EXIST ,2 NOLRL= #90FD; " LRL SYNONYM NOT SUPPLIED 22 LONGUID= #90AB; " USER ID > 8 CHARACTERS2< LONGDESC = #9241; "USER DESCRIPTION > 20 CHARACTERS <4 LONGPSC= #90AC; " PASSCODE > 8 CHARACTERS 4TE; "SVC25 -NO PF LUNO GIVEN(SPECIAL)60 ERR58: BYTE; "SVC31 -NAME NOT FOUND IN D0,KSR PB2 y@(*$ NO LIST *) KSR = PACKED RECORD  KSRXUF : WORD;  KSRFLG : PACKED RECORD  KSFHNG : BOOLEAN;  KSFTMS : BOOLEAN;  KSFSCI : BOOLEAN;  KSFDCD : BOOLEAN;  KSFSIO : BOOLEAN;  KSFDIF : BOOLEAN; FILL00 : 0.. 3; END; KSRSCH : BYTE;  KSRCRD : WORD;  KSRICD : WORD;  KSRVTA : WORD;  KSRSSC : WORD;  KSRABT : WORD;  KSRTMO : WORD; END; (*$ RESUME LIST *)NVUID = #90BC; " USER ID DOESN'T EXIST 2. DUPUID = #90C0; " DUPLICATE USER ID .6 INVFUN = #90BF; " INVALID FUNCTION SELECTOR 66 OUTRANGE = #90BD; " PRIVILEGE LEVEL < 0 OR > 7 6, NOUDR= #90BE; " UDR DOESN'T EXIST ,2 NOLRL= #90FD; " LRL SYNONYM -BTB P B<3EyB@(*$ NO LIST *)?"************************************************************ ?"** )"*B - TREE BLOCK (BTB)09/07/79* )"** -"* LOCATION: DISK AND BUFFER SEGMENTS * -?"************************************************************ ?@"* THE BTB DESCRIBES THE OVERHEAD INFORMATION REQUIRED TO SORT@@"* THE LOGICAL RECORDS OF A KEY INDEXED FILE. THE BTB RESIDES@="* ON DISK AND IS READ INTO MEMORY WHEN USING A RECORD THAT ="* IT DESCRIBES."* "* SPECIAL FIELD COMMENTS:@"* BTBPPT - IF THIS BLOCK IS BEING USED AS A B-TREE NODE, THIS@0"*FIELD IS THE PHYSICAL RECORD NUMBER OF THE07"*PRECEDING NODE ON THE SAME LEVEL (ZERO IF THIS IS 7*"*THE LEFTMOST NODE). IF THIS BLOCK I* S AVAILABLE 6"*FOR USE, THIS FIELD POINTS TO THE NEXT AVAILABLE6 "*BLOCK. 9"* BTBNIE - NUMBER OF POINTER/KEY VALUE PAIRS CURRENTLY 9"* CONTAINED IN THIS BLOCK.="* BTBNEA - THIS BYTE IS ZERO WHEN THE BLOCK IS INITIALIZED =6"* BECAUSE OF A B-TREE SPLIT. WHEN THE FIRST ENTRY62"*IS MADE TO THE BLOCK, THIS BYTE CONTAINS THE25"*NUMBER OF ENTRIES IN THE BLOCK THAT ARE GREATER 5"* THAN THE NEW ENTRY. ;"* BTBNEC - WHEN THE BLOCK IS INITIALIZED DUE TO A B-TREE ;7"*SPLIT, THIS VALUE IS THE MAXIMUM ENTRIES THAT MAY 75"*BE INSERTED INTO THE BLOCK, PLUS ONE. FOR EACH 56"*SUBSEQUENT ENTRY TO THIS BLOCK, IF THE NUMBER OF68"*ENTRIES IN THE BLOCK THAT ARE GREATER THAN THE NEW8"*EN,TRY EQUALS THE NUMBER IN BTBNEA, BTBNEC IS,1"*DECREMENTED BY ONE. WHEN THIS B-TREE BLOCK 18"*IS ABOUT TO SPLIT, IF BTBNEC IS ZERO, THE SPLIT IS87"*AT A RATIO OF THE LOWER 90% OF THE ENTRIES ARE IN 7;"*ONE BLOCK AND THE UPPER 10% %%IN THE OTHER. OTHERWISE, ;"* THE SPLIT IS 50% TO EACH. >"* BTBDBK - IF THIS IS A NON-LEAF NODE, THE FIRST FOUR BYTES>:"*CARRY THE RECORD NUMBER OF A BRANCH OR LEAF NODE AND::"*THE LAST TWO BYTES ARE NOT MEANINGFUL.IF THIS IS A:="*LEAF NODE, THE FIRST FOUR BYTES CONTAIN A RECORD NUMBER =9"*OF A DATA RECORD AND THE LAST TWO BYTES CONTAIN THE 96"*ID OF THE LOGICAL RECORD WITHIN THE DATA RECORD.6@"* BTBCMD - THIS FIELD IS USED WHEN THIS RECORD HAS TO BE PREL@OGGED.?"*IT IDENTIFIES ALL THE RECORDS PRELOGGED BY THE OPERATION. ? BTB = PACKED RECORD 4 BTBBLK : LONGINT;"BLOCK NUMBER (2 WORD PHYSICAL4" BTBCMD : WORD; "PRELOG NUMBER"3 BTBSR: WORD; "SPACE REMAINING (BYTES) IN BTB 32 BTBPPT : LONGINT;"PREDECESSOR OR FREE POINTER2( BTBSPT : LONGINT; "SUCCESSOR POINTER(, BTBNIE : BYTE;  "NUMBER OF INDEX ENTRIES,6 BTBLE: BYTE; "LEAF ENTRY FLAG(1=THIS IS A LEAF)60 BTBNEA : BYTE; "# OF ENT. AFTER LAST INSERT0, BTBNEC : BYTE;  "COUNT OF # SEQ. INSERTS,C! BTBDBK : PACKED ARRAY [ 1.. 6 ] OF BYTE; "B-BLOCK DATA BASE KEY C1 BTBKVL : WORD; "FIRST POINTER/KEY VALUE PAIR 1END; (*$ RESUME LIST *)ARRY THE RECORD NUMBER OF A BRANCH OR LEAF.S2B PBN3yC@(*$ NO LIST *)A "************************************************************** A"** 5"* TASK BID REQUEST BLOCK  (S2B) 04/22/80 * 5"** A "************************************************************** AS2B = PACKED RECORD ) S2BSVC : BYTE;  "TASK BID OP CODE=#2B )( S2BERC : BYTE;  "TASK BID ERROR CODE(& S2BIID : BYTE;  "TASK INSTALLED ID&+ S2BFLG : PACKED RECORD "TASK BID FLAGS +' S2BJBS : BOOLEAN;  "JOB ID SPECIFIED '+ S2BRES : BOOLEAN;  "*** RESERVED BIT *** +* S2BRBD : BOOLEAN;  "TASK TO BID IS RBID*0 S2BBAC : BOOLEAN;  "TASK TO BID IS BACKGROUND0' S2BFTC : BOOLEAN;  "TERMINATE CALLER '0 S2BFCT : BOOLEAN;  "TASK TO BID IS CONTROLLED0 S2BFSU : BOOLEAN; "TAS K TO BID IS SUSPENDED + S2BFSC : BOOLEAN;  "SUSPEND CALLER UNTIL +END;A S2BPRM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "TASK BID PARAMETERS A' S2BSTA : BYTE;  "ASSOCIATED STATION '# S2BLUN : BYTE; "PROG FILE LUNO #1 S2BJID : WORD; "JOB ID OF JOB TO BID TASK IN 1END; (*$ RESUME LIST *)E "*EXPRM1 EQU5  &PARM1 FOR XT COMMAND*6INVBDT EQU5  &BAD TRACK FILE PATHNAME FOR INV 6$RELOCT EQU6  &RELOCATEABLE? $6IPMEMR EQU6  &MEMORY RESIDENT? FOR IP COMMAND 64IPSSYS EQU6  &SYSTEM SEGMENT FOR IPS COMMAND 4$PRIORY EQU6  &TASK PRIORITY $*EXPRM2 EQU6  &PARM2 FOR XT COMMAND*:INVPRS EQU6  &DEFAULT PHYSICAL RECORD SIZE FOR INV :EXCSUS EQU7 %NMCOMN PB3 yE(*$ NO LIST *) NMCOMN : PACKED RECORD. GLOSMT : @SSB ; "GLOBAL NAME SMT ADDRESS.. GLOSSB : @SSB ; "GLOBAL NAME SSB ADDRESS.END; (*$ RESUME LIST *)*************************************************** ?ςVh\8c ģ£ʣ£ʣρVhkbabb bf b`8 b`7 b`7bxbbba$$FN LEAFNAMEb$=bb0c cb| b`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`L0STA PB3yG@(*$ NO LIST *)?"************************************************************ ?"** 5"* SYSTEM TABLE AREA OVERHEAD(STA)  01/20/79 * 5"** -"* LOCATION: START OF ALL TABLE AREAS * -?"************************************************************ ?;"* THE STA DESCRIBES OVERHEAD INFORMATION AT THE START OF ;>"* EACH OF THE SYSTEM TABLE AREAS: THE FILE MANAGEMENT TABLE>>"* AREA, THE BUFFER TABLE AREA, THE SEGMENT MANAGEMENT TABLE>/"* AREAS, AND THE STANDARD SYSTEM TABLE AREA. / STA = PACKED RECORD 3 STAHED : WORD; "FIRST ENTRY ON FREE MEMORY LST 31 STALNK : WORD; "POINTER TO FREE MEMORY CHAIN 10 STARES : WORD; "RESERVED TABLE AREA BOUNDRY0& STAEND : WORD;  "ENDING ADDRES OF & TABLE AREA ( STAUSE : WORD;  "CURRENT TABLE USAGE(. STAHI: WORD;  "HIGHEST MEMORY ALLOCATION.2 STAPTR : WORD; "POINTER TO TABLE OWNER(JSB IF2END; (*$ RESUME LIST *)ρB#ςVhςVhςVh\8c ģ£ʣ£ʣρVhkbabb bf b`8 b`7 b`7bxbbba$$FN LEAFNAMEb$=bb0c cb| b`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`L1NFWORD PB!'3 yH@(*$ NO LIST *) NFWORD : PACKED RECORD WD0003 : WORD; "(3) WD0005 : WORD; "(5) WD0006 : WORD; "(6) WD0007 : WORD; "(7) WD0009 : WORD; "(9) WD000A : WORD; "(10)  WD000C : WORD; "(12)  WD000D : WORD; "(13)  WD000E : WORD; "(14)  WD000F : WORD; "(15)  WD0012 : WORD; "  WD0018 : WORD; "(24)  WD003C : WORD; "(60)  WD0064 : WORD; "(100) WD00FD : WORD; "  WDFF00 : WORD; "  WDFFFF : WORD; "(-1)  WD8000 : WORD; "  WD4000 : WORD; "  WD2000 : WORD; "  WD1000 : WORD; "  WD0800 : WORD; "  WD0400 : WORD; "  WD0200 : WORD; "  WD0100 : WORD; "  WD0080 : WORD; "  WD0040 : WORD; "  WD0020 : WORD; "  WD0010 : WORD; "  WD0008 : WORD; "  WD0004 : WORD; "  WD0002 : WORD; "  WD0001 : WORD; "  WDFE00 : WORD; " END; (*$ RESUME LIST *)    F ! ՠ! `#΋$F/'` "g !!6! "!`H`#΋$D g'  h( !  ! PgE `#΋$Hê'!!!(!g D*'g DD gg DDD  'g DD g' gE `#΋$L! /// '` "(` "`#Ƌ!$>>0OTI PB'T3yJ(*$ NO LIST *)>"***********************************************************>"* *4"* OPENING TASK IDENTIFIER (OTI)  08/25/81 *4"* * "* LOCATION: JCA OR STA  * >"***********************************************************>>"*THE OTI IS AN ELEMENT OF A SINGLY LINKED LIST CONTAINING>8"*TSB ADDRESSES OF TASKS WHICH HAVE OPENED THE LUNO8%"*ASSOCIATED WITH THE PARENT LDT. % OTI = PACKED RECORD % OTIOTI : WORD;  "LINK TO NEXT OTI %0 OTITSB : WORD; "TSB ADDRESS OF OPENING TASK0END; (*$ RESUME LIST *)BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`L2SLDATA PB*U63 yK@(*$ NO LIST *) PMDATA : PACKED RECORD* SEG1SB : WORD;  "SEGMENT 1 SSB ADDRESS*3 SEG1ST : WORD; "SEGMENT 1 SM TABLE SSB ADDRESS 3* SEG2SB : WORD;  "SEGMENT 2 SSB ADDRESS*3 SEG2ST : WORD; "SEGMENT 2 SM TABLE SSB ADDRESS 3* SEG3SB : WORD;  "SEGMENT 3 SSB ADDRESS*3 SEG3ST : WORD; "SEGMENT 3 SM TABLE SSB ADDRESS 3( CPYLDT : WORD;  "ADDRESS OF LDT COPY(( CPYRPB : WORD;  "ADDRESS OF RPB COPY(2 SEGID1 : WORD; "SEGMENT INSTALLED ID(2 WORDS)2 SEGID2 : WORD; " 0 ATRSG1 : WORD; "ATTRIBUTES OF 1ST ATT. SEG.00 ATRSG2 : WORD; "ATTRIBUTES OF 2ND ATT. SEG.0, ATRTSK : WORD;  "ATTRIBUTES OF TASK SEG.,1 LENSG1 : WORD; "BYTE LENGTH OF 1ST ATT. SEG. 1" LENSG2 : WORD; "BYTE LENGTH O"F 2ND ATT. SEG. - LENTSK : WORD;  "BYTE LENGTH OF TASK SEG. -. LODTSK : WORD;  "LOAD ADDRESS OF TASK SEG..2 TSKREP : WORD; "SSB REPLICATED IN MEMORY FLAG24 JCASSB : WORD; "SSB FOR JCA OF JOB FOR TASK BID44 JCASMT : WORD; "SMT FOR JCA OF JOB FOR TASK BID4. SG1BET : WORD;  "BEET ADDRESS OF SEGMENT 1.. SG2BET : WORD;  "BEET ADDRESS OF SEGMENT 2.. SG3BET : WORD;  "BEET ADDRESS OF SEGMENT 3.3 LODFLG : WORD; "FLAG FOR LOADED/NOT LOADED SEG 3+ ROLDIR : WORD;  "ROLL DIRECTORY POINTER +5 ROLPRS : WORD%%; "PHYSICAL RECORD LENGTH ROLL FILE 5( SYSFDP : WORD;  "SYSTEM PF FDP ADDR.(( SYSFMT : WORD;  "SYSTEM PF FMT ADDR.(( SYSFCB : WORD;  "SYSTEM PF FCB ADDR.( ROLFDP : WORD; "ROLL FILE  FDP ADDR. % ROLFMT : WORD;  "FMT OF ROLL FILE %% ROLFCB : WORD;  "FCB OF ROLL FILE %- APLFDP : WORD;  "APPLICATION PF FDP ADDR. -/ APLFMT : WORD; "APPLICATION PF FMT ADDRESS // APLFCB : WORD; "APPLICATION PF FCB ADDRESS /( IMGFDP : WORD;  "IMAGES PF FDP ADDR.(( IMGFMT : WORD;  "IMAGES PF FMT ADDR.(( IMGFCB : WORD;  "IMAGES PF FCB ADDR.(* SHRFDP : WORD;  "S$SHARED PF FDP ADDR.** SHRFMT : WORD;  "S$SHARED PF FMT ADDR.** SHRFCB : WORD;  "S$SHARED PF FCB ADDR.*L% TIMSPN : PACKED ARRAY [ 1.. 2 ] OF WORD; "TIME DELAY SVC FOR TASK LOADERL4 SYSPN: WORD; "PATHNAME SYSTEM UTILITY PROG FL4. SYSPNC : PACKED ARRAY [ 1.. 8 ] OF CHAR; ".2 SHRPN: WORD; "PATHNAME FOR S$SHARED PROG FL24@2 WOMPRI : BYTE; "PRIORITY OF TASK BEING LOADED2 FILL00 : BYTE; "RESERVED ? PMLFDP : PACKED ARRAY [ 1.. 2 ] OF WORD; "LOCAL COPY OF FDP ?END;. LDMAP: PACKED ARRAY [ 1.. 2 ] OF WORD; ".J SLMAP : PACKED ARRAY [ 1.. 2 ] OF WORD; "MAP FILE FOR ROOT,JCA,LOADERJA SYSMAP : PACKED ARRAY [ 1.. 2 ] OF WORD; "MAP FILE FOR LOADER A. FILL01 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".* INT2WP : WORD;  "SYSTEM INTERRUPT 2 WP* INT2PC : WORD; "& PC ' CP12 : WORD;  "/12 YES OR NO FLAG ') CPUTYP : WORD;  "CPU TYPE ID -> CPUID )' WCSVER : WORD;  "WCS VERSION NUMBER ', STBEET : WORD;  "STARTING BEET OF LOADER,, MAPADJ : WORD;  "MAP ADJUSTMENT CONSTANT,* BUFFER : WORD;  "BUFFER LOGICAL ADDRES*S , BUFADD : WORD;  "ADJUSTED BUFFER ADDRESS,( BUFBET : WORD;  "BUFFER BEET ADDRESS(- SMEMSZ : WORD;  "SAVED MEMORY SIZE(BEETS) -& PFIPTR : WORD;  "SAVED PFI ADDRESS&& FDPPTR : WORD;  "SAVED FDP ADDRESS&. FRSTIM : WORD;  "USING "FAKE" FMT (SLDISK).> FDPS : PACKED ARRAY [ 1.. 2 ] OF WORD; "SYSTEM FDP TABLE>. FILL02 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".. FILL03 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".. FILL04 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".. FILL05 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".9 FILL06 : PACKED ARRAY [ 1.. 2 ] OF WORD; "END OF LIST 9J$ WCSFIL : PACKED ARRAY [ 1.. 8 ] OF CHAR; "WRITEABLE CONTROL STORE FILEJ? IMAGE: PACKED ARRAY [ 1.. 8 ] OF CHAR; "SYSTEM IMAGE FILE ? U@TIL : PACKED ARRAY [ 1.. 8 ] OF CHAR; "UTILITY PROGRAM FILE@% SLRID: WORD;  "SAVED SSB RUN ID %& SAVSSB : WORD;  "SAVED SSB ADDRESS&* SAVSMT : WORD;  "SAVED SMT SSB ADDRESS*D SLUD : PACKED ARRAY [ 1.. 2 ] OF WORD; "SELF-DESTRUCT: 02/1/84DEND; (*$ RESUME LIST *)ME FOR S$SHARED PROG FL $6 TEXT 'S$SHARED'72WOMPRI BYTE 0 PRIORITY OF TASK BEING LOADED $2 BYTE 0 RESERVED/* A(PMLFDP DATA 0,0  LOCAL COPY OF FDP *(* APMDSIZ EQU$-SEG1SB8 CEND 'PMDATA'8  PAGE <  LIST < STCNT3 DATA 0 COUNTER 3 - # FILE MGR CALLS%0,STCNT4 DATA 0  COUNTER 4 - # IPC CALLS ',,STCNT5 DATA 0  COUNTER 5 - # ROLL OUTS ',0STCNT6 DATA 0 COUNTER 6 - # FI4NFERA0 PB<d3 "yM@(*$ NO LIST *) NFERA0 : PACKED RECORD?"************************************************************ ?"** ;"*NFERA0- ERROR CONSTANTS COMMON AREA # 1105/06/82* ;"** ?"************************************************************ ?6 ERRA0: BYTE; "IOU-CC -OWNER-PROCESSES-ALL FLG6, ERRA1: BYTE; "IOU -DIRECTORY IS FULL,6 ERRA2: BYTE; "IPC-REQUEST SPECIFIED IN MASTER6 ERRA3: BYTE; " 5 ERRA4: BYTE; "IPC-OWNER OPER. ALREADY QUEUED 50 ERRA5: BYTE; "IPC -MISMATCH OF OWNER AND06 ERRA6: BYTE; "IPC-REQUESTORS MUST CLOSE;OWNER63 ERRA7: BYTE; "IOU/IPC-OWNER TASK HAS ABORTED 35 ERRA8: BYTE; "IPC-MAX OPENS TO CHAN EXCEEDED 5 ERRA9: BYTE; ""IPC -TASK SEGMENT TOO LARGE TO" ERRAA: BYTE; " 6 ERRAB: BYTE; "IPC-FIRST ASSIGN TO CHAN ILLEGL66 ERRAC: BYTE; "IOU-ILLEGAL MOD. SECURITY FLAGS64 ERRAD: BYTE; "IOU -CCB PROGRAM FILE LUNO NOT42 ERRAE: BYTE; "IOU -A MEMBER OF THE CONCAT.2 ERRAF: BYTE; " END; (*$ RESUME LIST *)p  9/ ?@j)l *:)l `)* *:+n$ %`+n%  %`'' )>)P+N%:`+N%B``+N%N %V`%F+N%~ %V`+N% %V`+n% %`%F%z%%%+% %`+N% %`~+N% &` p+N%''  &` +N% V'+N%-' '+N& &` H+N& &` )) 1FDB PBB 2yO(*$ NO LIST *)@"************************************************************ @"** ."* FILE DIRECTORY BLOCK (FDB)05/24/79* ."** 0"* LOCATION: FILE MANAGEMENT TABLE AREA * 0@"************************************************************ @>"* SEE THE FILE STRUCTURE COMMON (FSC) FOR THE FDB VARIANT. >4"* THE FDB DOES NOT EXIST AS A SEPARATE STRUCTURE.4 (*$ RESUME LIST *)ERROR CONSTANTS COMMON AREA # 11 08/14/81 *:"** ?"************************************************************ ?6 ERRA0: BYTE; "IOU-CC -OWNER-PROCESSES-ALL FLG6, ERRA1: BYTE; "IOU -DIRECTORY IS FULL,6 ERRA2: BYTE; "IPC-REQUEST SPECIFIED IN MASTER67 ERRA3: BYTE; "NAMMGR -INVALID STAGE4SDT P BE1>3\yQ@(*$ NO LIST *)?"************************************************************ ?"** 5"* SPOOLER DEVICE TABLE ENTRY(SDT) 09/09/83* 5"** +"* LOCATION: .S$SDTQUE.(SYSNAME) AND* +%"* SPOOLER TASK COMMON (SPCOMN)* %"** ?"************************************************************ ??"* THE SDT IS USED BY THE SPOOLER TO SAVE DEVICE INFORMATION. ?:"* ALL OF THE SPOOLER DEVICES ARE STORED ON DISK IN FILE:;"* .S$SDTQUE.(SYSNAME) WHERE (SYSNAME) IS THE NAME OF THE ;<"* OS KERNAL. SPOOL DEVICE INFORMATION IN THE SDT INCLUDES<;"* STATUS FLAGS, CLASS NAME INFORMATION, FORM INFORMATION ;,"* QUEUE INFORMATION AND PAGE INFORMATION.,"*DC= PACKED RECORD  SDTCN: WORD; "  SDTCNR : WORD; " END;"*SDT = PACKED RECORD ) SDTFLG : PACKED RECORD "STATUS FLAGS )) SDFDEL : BOOLEAN;  "TRUE=DELETED ENTRY )4 SDFAVB : BOOLEAN; "TRUE=NOT AVAILABLE TO SPOOLER4) SDFHLT : BOOLEAN;  "TRUE=DEVICE HALTED )' SDFBSY : BOOLEAN;  "TRUE=DEVICE BUSY '5 SDFFRM : BOOLEAN; "TRUE=DEVICE DOES NOT USE FORMS 5/ SDFKIL : BOOLEAN;  "TRUE=KILL OUTPUT REQUEST /, SDFTRM : BOOLEAN;  "TRUE=WRITER TERMINATE,3 SDFSHR : BOOLEAN; "TRUE=REMOTE OR SHARED DEVICE 3END;, SDTLUN : BYTE;  "ASSIGNED JOB-LOCAL LUNO,9 SDTDNM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "DEVICE NAME 9, SDTAPR : BYTE;  "ACTIVE REQUEST PRIORITY,, SDTQPR : BYTE;  "QUEUED REQUEST PRIORITY, SDTARN : WORD;  "ACTIVE REQUEST RECORD* SDTQRN : WORD;  "QUEUED REQUEST RECORD*1 SDTAOF : BYTE; "ACTIVE REQUEST RECORD OFFSET 11 SDTQOF : BYTE; "QUEUED REQUEST RECORD OFFSET 1E" SDTAID : PACKED ARRAY [ 1.. 6 ] OF CHAR; "ACTIVE REQUEST SPOOL ID E> SDTCLS :PACKED ARRAY [ 1.. 6] OF DC ; "CLASS NAME INDEXES>& SDTDTF : BYTE;  "DEVICE TYPE FLAGS&& SDTTYP : BYTE;  "DEVICE TYPE VALUE&- SDTPAG : WORD;  "PAGES TO FORWARD/REVERSE -D! SDTFRM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "FORM MOUNTED ON DEVICEDEND; (*$ RESUME LIST *)(*  EQU14 RECEIVE START BIT DETECT('*  EQU13 RECEIVE FULL BIT DETECT '%*  EQU12 RECEIVE FRAMING ERROR %*  EQU11RECEIVE OVERRUN *  EQU10RECEIVE )FMT P BN$22yS@(*$ NO LIST *)@"************************************************************ @"** 2"* FILE MANAGER TASK AREA (FMT)04/14/80* 2"**  "* LOCATION: SYSTEM AREA * @"************************************************************ @>"*THE FMT IS USED BY FILE MANAGEMENT AND BY KIF MANAGEMENT>6"*AS A GENERAL WORK AREA. R15 POINTS TO THE FMT. 6 FMT = PACKED RECORD * FMTFLG : WORD;  "MIDDLE SEGMENT FLAGS *2 FMTTCT : WORD; "MULTIRECORD CHARS TRANSFERRED24 FMTOAD : @OAD ;"CURRENT OVERLAY AREA ADDRESS 4* FMTPC: WORD;  "SAVED PROGRAM COUNTER*. FMTXWP : WORD;  "BLWP VECTOR FOR RETURNING. FMTXPC : WORD; " @ FMTBN: PACKED ARRAY [ 1.. 2 ] OF WORD; "SAVED RPBBN (2 WOR@DS) " FMTOCB : WORD; "SAVED RPBOCB "$ FMTLFG : WORD; "SAVED LDT FLAGS$, FMTFCA : @FCA ; "FCA FOR CURRENT FILE ,. FMTBST : @SSB ; "SMT SSB ADDR FOR BUFFER.* FMTBSB : @SSB ; "SSB ADDR FOR BUFFER** FMTPRS : WORD;  "PHYSICAL RECORD SIZE *0 FMTUBT : @SSB ; "USER BUFFER SMT SSB ADDR 0. FMTUBS : @SSB ; "USER BUFFER S%%SB ADDRESS.( FMTUBO : WORD;  "USER BUFFER OFFSET (( FMTUBL : WORD;  "USER BUFFER LENGTH (" FMTJCB : WORD; "USER JCA BIAS"2 FMTRN1 : WORD; "RECORD # RELATIVE TO CURRENT 2. FMTRN2 : WORD;  "FILE OF CONCATENATED SET .. FMTOOB : WORD;  "OLD OFFSET IN USER BUFFER., FMTUBR : WORD;  "BUFFER LENGTH REMAINING,6 FMTSTK : PACKED ARRAY [ 1..140 ] OF BYTE;"STACK A6REA END; (*$ RESUME LIST *)LL FILE %% ROLFCB : WORD;  "FCB OF ROLL FILE %- APLFDP : WORD;  "APPLICATION PF FDP ADDR. -/ APLFMT : WORD; "APPLICATION PF FMT ADDRESS // APLFCB : WORD; "APPLICATION PF FCB ADDRESS /( IMGFDP : WORD;  "IMAGES PF FDP ADDR.(( IMGFMT : WORD;  "IMAGES PF FMT ADDR.(( IMGFCB : WORD;  "IMAGES PF FCB ADDR.(* SHRFDP : WORD;  "S$SHARED PF FDP ADDR.** SHRFMT : WORD;  "S$SHARED PF FMT ADDR.** SHRFCB : WORD;  "S$SHARED PF FCB ADDR.*L% TIMSPN : PACKT k4`4KED RECORD "STATUS FLAGS ) SDFDEL : BOOLEAN;  "TRUE=DELETED ENTRY )4 SDFAVB : BOOLEAN; "TRUE=NOT AVAILABLE TO SPOOLER4) SDFHLT : BOOLEAN;  "TRUE=DEVICE HALTED )' SDFBSY8ENF PBW3fyU(*$ NO LIST *)?"************************************************************ ?"** -"* EXTERNAL NAME FLAG(ENF) 08/24/81* -"** ="*LOCATION: A SEQUENTIAL FILE HOLDING NAME DEFINITIONS * =?"************************************************************ ? END = PACKED RECORD 4 ENDFLG : PACKED RECORD  "EXT NAME DEFN FLAG WORD40 ENFLOG : BOOLEAN;  "LOGICAL NAME = 1, SYN = 00* ENFNAM : BOOLEAN;  "THIS IS A NAME = 1** ENFVAL : BOOLEAN;  "THIS IS A VALUE = 1*) ENFPRM : BOOLEAN;  "THIS IS A PARM = 1 )1 ENFEXT : BOOLEAN; "THIS IS AN EXTRA VALUE = 1 1, ENFPPF : BOOLEAN;  "PARMS ARE PRESENT = 1,* ENFRES : 0..1023;  "RESERVED AT PRESENT*END;END; (*$ RESUME LIST *)9SCUTYPESPBZx2yW(*$NO LIST*)"L$"***********************************************************************L" '2" GLOBAL TYPES USED IN CONFIGURATION UTILITY 2" 'L$"***********************************************************************L" '" '" 'BINTERRUPT_TYPE = ( ASYNCRONOUS, SINGLE, MULTIPLE, EXPANSION ); B(DEVICE_TYPE = !>( DUMMY, SD, KSR, ASR, CASSETTE, RESRVD1, DISKETTE, DISK, >>TAPE, TPD, V911, LP_SER, LP_PAR, FCCC , COMM, INDUSTRIAL, >BCARD_READER, V940, V931, V945, BCAIM, VIRTUAL_BASE, MAX_DEV );B(EXTENSION_TYPE = 8( EXTDPD, EXTLPD, EXTKSB, EXTXTK, EXTPDX, EXTDIB ); 8( WP_PTR = @WORKSPACE;(IV =& RECORD$ WP : WP_PTR;@PC : WORD;MAP  : WORD END;%( TRAP =% RECORD$ WP : WP_PTR; PC : WORD !END;%("MULTIPLE_INT_DEC_TABLE_ENTRY =" RECORD$ CRU_BIT : WORD;VECTOR : @IVEND;%( CHANNEL_TABLE_ENTRY =  RECORD$ MUXIV : IV; CHANNEL : WORD; END;%(8CHANNEL_TABLE = ARRAY[1..4] OF CHANNEL_TABLE_ENTRY;8$CHAN_TAB_PTR = @CHANNEL_TABLE;$( MUX_TABLE_ENTRY =  RECORD$ TILINE_ADDRESS : WORD;&CHANNEL_TABLE_PTR : CHAN_TAB_PTR;&CHANNEL_COUNT  : WORD;END;%(D MULT_INT_TABLE = ARRAY[1..100] OF MULTIPLE_INT_DEC_TABLE_ENTRY; D"MIT_PTR  = @MULT_INT_TABLE; "PDT_PTR  = @FULL_PDT; ,TRAPVECTORS  = ARRAY [0..15] OF TRAP; ,DEV_PTR  = @DEVICE; IVPTR  = @IV; 4MUX_TABLE  = ARRAY[1..100] OF MUX_TABLE_ENTRY;4 MUX_TAB_PTR  = @MUX_TABLE; (WORKSPACE = " RECORD$ "R  : ARRAY[0..3] OF PDT_PTR; "R4,R5 : INTEGER; CASE INTERRUPT_TYPE OF0ASYNCRONOUS : (R6_R9 : ARRAY[6..9] OF WORD; 0$  MUX_CARD_TABLE : MUX_TAB_PTR); $.SINGLE: (R6_R7 : ARRAY[6..7] OF WORD; .  VECTOR : IV); 0MULTIPLE: (R6_R8 : ARRAY[6..8] OF WORD; 0  TABLE : MIT_PTR);"EXPANSION  : (CRUBASE : WORD;".  R7,R8,R9,R10,R11,R12,R13,R14,R15 : WORD); .END;%(CTAB_ENTRY =" RECORD$ CASE INTEGER OF 1 : (VECTOR  : @IV; " MULT_PER_POSITION : BOOLEAN);"2 : (TABLE : MIT_PTR;  FIL : WORD); END;%((CTAB= ARRAY [0..23] OF CTAB_ENTRY;(CTAB_PTR= @CTAB;&ETAB= ARRAY [1..7] OF CTAB_PTR; &(PDT_DEF = # RECORD$  PDT_ADDR : PDT_PTR; END;%( DEVICE =$ PACKED RECORD LINK: @DEVICE;INT : 3..15;CHASSIS : 0..7; POSITION: 0..23;UNITS : 1..4; CHANNEL : 0..4; DVC_TYPE: DEVICE_TYPE;CRU_TILINE: WORD; INT_WP: WP_PTR;  CASE DEVICE_TYPE OF 0ASR : (ASR_PDT : ARRAY[1..3] OF PDT_DEF); 06DISK,TAPE : (MULTI_UNIT : ARRAY[1..4] OF PDT_DEF); 6V940: (V940_PD"T  : ARRAY[1..2] OF PDT_DEF); " SD: (NORMAL : PDT_DEF);  END;%(6MAPFILE = RECORD L1,B1,L2,B2,L3,B3 : INTEGER; END;6((*$LIST*) #D OF THIS PATCH FILE SINCE THIS PATCH FILE *H@*  IS NESTED IN ANOTHER BATCH STREAM AND/OR PROCEDURE. *@ * ! * J#************************************ k4`4FILE? IMAGE: PACKED ARRAY [ 1.. 8 ] OF CHAR; "SYSTEM IMAGE FILE ?B UTIL : PACKED ARRAY [ 1.. 8 ] OF CHAR; "UTILITY PROGRAM FILEB% SLRID: WORD;  "SAVED SSB RUN ID %& SAVSSB : WORD;  "SAVED SSB ADDRESS&* SAVSMT : WORD;  "SAVED SMT SSB ADDRESS* SODIFIED BY .PROC PATCHESF>* $C378- THE SYNONYM SET IF 3 ʣk4L`4$CPCONS P Bi2f2 yY@(*$ NO LIST *)! "&  " EXIT MESSAGE CONSTANTS   "& NORMAL=0;"< NO_PATCH_AREA=#90F1;  "CAN'T FIND PATCH MODULE ON PF.<> NO_SUCH_MODULE=#90EA; "CAN'T FIND MODULE TO PATCH ON LM>@ CANT_FIND_MODULE=#90F2; "CAN'T FIND MODULE TO PATCH ON PF@> VERIFICATION_ERROR=#904D; "VER. DATA DOESN'T MATCH DATA>. OUT_OF_PATCH=#90EE; "OUT OF PATCH AREA .. BAD_OBJECT=#90EF; "INVALID OBJECT CODE .8 BAD_ADDRESS=#90ED;  "BAD ADDRESS PASSED TO READPF8> TOO_FEW_PATWORDS=#90F0; "CAN'T REPLACE 1 WORD WITH MORE> "THAN ONE WORD 8 MOD_APPLIED=#90EB;  "MODIFICATION ALREADY APPLIED86 BAD_REF=#90F3;  "CAN'T FIND REF'ED SYMBOL ON LM6  TOO_BIG=#90F4;  "PATCH OBJE  CT TOO BIG TO HANDLE" '"  FILE NAMES " '. PFNAME = 'PF$ ';  "PROGRAM FILE NAME .* LMNAME = 'LM$ ';  "LINK MAP NAME *0 OBNAME = 'INPUT ';  "PATCH OBJECT NAME 0 "&& " PARMS LIST POSITION CONSTANTS& "&  MNAME = 3;  "MODULE NAME  $ PO = 4; "PATCH OFFSET STRING $  INS = 5;  "INSERT/REWRITE  PN = 6; "PATCH NUMBER$ VER = 7; "VERIFICATION LIST $& PATNAME = 8; "PATCH AREA NAME &. NOWORDS = 9; "NUMBER OF WORDS TO PATCH."--------------  " HANDY CONSTANTS"-------------- * DEAD = #DEAD; "FILLER OF PATCH AREA ** BRANCH = #0460; "BRANCH INSTRUCTION *$ NOP=#1000; "NOP INSTRUCTION $&"-------------- " HEADER TEXT!"--------------  NEW_DATA = 'NEW IMAGE';( ND_SIZE = 9; "SIZE OF 'NEW DATA' ($ CURRENT_DATA = 'CURRENT IMAGE';$, CD_SIZE = 13; "SIZE OF 'CURRENT DATA' ,. VERIFICATION_DATA = 'VERIFICATION DATA'; ., VD_SIZE = 17; "SIZE OF 'VER ... DATA' ,(*$ LIST *) "ONOUS : (R6_R9 : ARRAY[6..9] OF WORD; 0$  MUX_CARD_TABLE : MUX_TAB_PTR); $.SINGLE: (R6_R7 : ARRAY[6..7] OF WORD; .  VECTOR : IV); 0MULTIPLE: (R6_R8 : ARRAY[6..8] OF WORD; 0  TABLE : MIT_PTR);"EXPANSION  : (CRUBASE : WORD;".  R7,R8,R9,R10,R11,R12,R13,R14,R15 : WORD); .END;%(CTAB_ENTRY =" RECORD$ CASE INTEGER OF 1 : LAERRS PBr2&y\(*$NO LIST*)"" USER ERRORS"!(*$LIST*) #4 LONGPSC = #90AC;  " PASSCODE > 8 CHARACTERS 42 BAD_PASSCODE = #9301;  " INVALID PASSCODE 2: NO_GROUP  = #9302; " ACCESS GROUP DOES NOT EXIST :6 NO_USERID = #9308;  " CURRENT USER ID DELETED 6B NOT_IN_GROUP = #9317; " USER IS NOT A MEMBER OF THE GROUPB8 LONG_AG = #9318; " ACCESS GROUP NAME TOO LONG 8. LONGPTH = #9370;  " PATHNAME TOO LONG.* MEMGON  = #9371; " OUT OF MEMORY*2 CONCAT  = #9372;  " CONCATONATED FILE SET 2: BADTYP  = #9373; " NOT FILE OR DIRECTORY OR DISK:< NO_REMOTE = #9374; " CANNOT USE A REMOTE PATHNAME << OLD_RELEASE = #930A; " NOT OS VERSION 1.2 OR LATER <$BAP PBuT32ya(*$ NO LIST *)?"*************%%*********************************************** ?"** 1"* BUFFER ADDRESS PACKET (BAP) 9/30/81 * 1"** "* LOCATION: SYSTEM AREA * ?"************************************************************ ??"*THE BAP IS THE ADDRESS OF AN I/O BUFFER WHICH IPC APPENDS ? "* TO A BUFFERED I/O REQUEST. BAP = PACKED RECORD ) BAPSMT : @SSB ; "POINTER TO SMT SSB )1 BAPSSB : @SSB ;"POINTER TO BUFFER SEG. SSB 11 BAPOFF : WORD; "OFFSET TO BUFFER WITHIN SEG. 1END; (*$ RESUME LIST *) AKEACT : BYTE;  "TO SEE IF ACTION DONE*& AKETAD : WORD;  "TEMPORARY ADDRESS&# AKEICT : WORD; "INSERT COUNTER #* AKESTK : 9MMRTzO@=JETYPES P BxA2$yd@(*$NO LIST*)"* STRING = PACKED ARRAY[1..76] OF CHAR;** SCISTR = PACKED ARRAY[0..40] OF CHAR;* GENMSG = RECORD  DEF : INTEGER;   AAT : INTEGER;   LB  : INTEGER;   UB  : INTEGER;   NEXT  : INTEGER;   LEN : INTEGER;   TXT : STRING END; BYTE = 0..#FF; @ WORD = 0..#7FFF; (* N.B.THIS SHOULD BE THROUGH #FFFF BUT@&TIP WOULD ALLOCATE A LONG INTEGER,&$2 WORDS RATHER THAN 1 WORD. *) $$ SCREEN_POSITION = PACKED RECORD$ ROW, COLUMN: BYTE;END; . OS_STRING = PACKED ARRAY [0..80] OF CHAR;.< IOFLAGS = (BUSY, ERROR, EOF, EVENT, SF4, SF5, SF6, SF7, <4 INITIATE, OUTPUT_WITH_REPLY, UF2, UF3, UF4, UF5,4 EXTENDED_CALL_BL OCK, BLANK_OR_EVENT); @ VDT_FLAGS = (SET_FIELD_START, LOW_INTENSITY, BLINK_CURSOR, @0 GRAPHICS, EIGHT_BIT, CARRIAGE_CONTROL, BEEP, 0( RIGHT_BOUNDARY, SET_CURSOR_POSITION, (. USE_FILL_CHARACTER, DONT_INITIALISE_FIELD, .$ RETURN_ON_TERMINATION_CHARACTER,$$ VF12, VF13, VF14, WARNING_BEEP);$8 UTILITY_FLAGS = (AF0, PROGRAM_FILE, DIRECTORY_FILE, 84 GLOBAL_LUNO, TERMINAL_LOCAL_LUNO, GENERATE_LUNO,4* AUTO_CREATE, AF7, LRL, TEMPORARY_FILE, *, IMMEDIATE_WRITE, AF11, BLANK_SUPPRESSED, ,& EXTENDABLE, REL_REC, SEQUENTIAL); &$ I_O_CALL_BLOCK = PACKED RECORD $ (* 0 *) SVC_CODE:  BYTE;  (* 1 *) STATUS_CODE: BYTE; (* 2 *) OP_CODE: BYTE;(* 3 *) LUNO:  BYTE;(* 4,5 *) FLAG_WORD: SET OF IOFLAGS; & (* 6,7 *) BUFFER_ADDRESS:  WORD;&,(* 8,9 *) LOGICAL_RECORD_LENGTH: WORD;,((* 10,11 *) CHARACTER_COUNT: WORD;(,(* 12,13 *) REPLY_BLOCK_ADDRESS: WORD;,(. CASE (* OP_CODE: *) INTEGER OF 0..#0F: ( .(8(* 14,15 *) EXTENDED_USER_FLAGS: SET OF VDT_FLAGS; 8&(* 16 *) FILL_CHARACTER:  CHAR;&&(* 17 *) EVENT_CHARACTER: CHAR;&4(* 18,19 *) CURSOR_POSITION: SCREEN_POSITION; 46(* 20,21 *) FIELD_BEGINNING: SCREEN_POSITION; ); 6( #90..#9F: (($ (* 14,15 *) BYTE_14_15:  WORD;$:(* 16,17 *) UTILITY_FLAG_WORD: SET OF UTILITY_FLAGS;:4(* 18,19 *) DEFINED_LOGICAL_RECORD_LENGTH: WORD; 4$(* 20,21 *) DEFINED_PHYSICAL_RECOR$D_LENGTH: WORD; 0(* 22,23 *) PATHNAME_POINTER:  @OS_STRING; 0$ (* 24,25 *) BYTE_24_25:  WORD;$( (* 26,27 *) BYTE_26_27:  WORD; ); ((  END; ! (*$RESUME LIST*) D); END;%((CTAB= ARRAY [0..23] OF CTAB_ENTRY;(CTAB_PTR= @CTAB;&ETAB= ARRAY [1..7] OF CTAB_PTR; &(PDT_DEF = # RECORD$  PDT_ADDR : PDT_PTR; END;%( DEVICE =$ PACKED RECORD LINK: @DEVICE;INT : 3..15;CHASSIS : 0..7; POSITION: 0..23;UNITS : 1..4; CHANNEL : 0..4; DVC_TYPE: DEVICE_TYPE;CRU_TILINE: WORD; INT_WP: WP_PTR;  CASE DEVICE_TYPE OF 0ASR : (ASR_PDT : ARRAY[1..3] (DS401CP1PB@3yf@(*$ NO LIST *)A "************************************************************** A#"* DEVICE EXTENSIONS  12/22/82 #A "************************************************************** A EXT = PACKED RECORD ) EXTTMR : WORD;  "TIMER DURATION COUNT ) EXTFLG : WORD; "HSR FLAGS# EXTTMP : WORD; "TEMPORARY CELL #/ EXTSPD : WORD; "SAVED SPEED SELECTION CODE /0 EXTPSL : WORD; "SAVED PARITY SELECTION CODE0" EXTFL1 : WORD; "RCV DATA MASK") EXTFL2 : WORD;  "SAVED RETURN ADDRESS ) EXTFL3 : WORD; " , EXTOVR : WORD;  "RECEIVER OVERRUN ERRORS,+ EXTFER : WORD;  "RECEIVE FRAMING ERRORS +* EXTPER : WORD;  "RECEIVE PARITY ERRORS*END;"**"*THIS TEMPLATE IS USED FOR REFERENCIN*G HSR INTERRUPT "*RETURN VECTORS"*+ RCVRTN : WORD;  "RCV CHAR RETURN VECTOR +0 XMTRTN : WORD; "TRANSMIT CHAR RETURN VECTOR0. SIGRTN : WORD;  "SIGNAL/FUNC CHANGE VECTOR.0 TIMRTN : WORD; "TIMER EXPIRED RETURN VECTOR04 ILLRTN : WORD; "ILLEGAL INTERRUPT RETURN VECTOR4END;, XCFAIL : WORD;  "(FAIL) FIFO FULL RETURN, FILL00 : WORD; "  FILL01 : WORD; " END; WDF040 : WORD; "  WD8000 : WORD; "  WD40E0 : WORD; "  WD4000 : WORD; "  WD3000 : WORD; "  WD2000 : WORD; "  WD1000 : WORD; "  WD0E04 : WORD; "  WD0C00 : WORD; "  WD0800 : WORD; "  WD040F : WORD; "  WD0400 : WORD; "  WD020F : WORD; "  WD0200 : WORD; "  WD0100 : WORD; "  WD00C0 : WORD; "  WD0080 : WORD; "  WD0040 : WORD; "  WD0030 : WORD; "  WD0020 : WORD; "  WD0010 : WORD; "  WD0008 : WORD; "  WD0004 : WORD; "  WD0002 : WORD; "  WD0001 : WORD; "  WD0000 : WORD; " "*"*(PDXFLG)5"*THIS WORD CONTAINS BIT FLAGS. THE FLAGS IN BYTE 55"*PDXFL1 AND BITS 1&5 OF BYTE PDXFLG ARE USED FOR 54"*SAVED MODEM SIGNAL STATUS AND REQUESTS FOR TSR45"*NOTIFICATION UPON SIGNAL STATUS CHANGES.THESE 54"*FLAGS ARE PAIRED, THE FLAGS IN THE LEFT NIBBLE41"*(4 BITS) INDICATE CURRENT SIGNAL STATUS FOR 12"*SIGNALS (SDCD,DCD,RI,DSR,CTS). THIS FLAG IS 21 WHEN3"*THE SIGNAL IS 1 (ON,HIGH,TRUE) AND 0 WHEN THE 39"*SIGNAL IS 0 (OFF,LOW,FALSE). THE CORRESPONDING BIT 94"*IN THE RIGHT NIBBLE INDICATES THE TSR REQUESTS45"*NOTIFICATION WHEN THE SIGNAL CHANGES IF THE BIT 5"*FLAG IS 1."*5"*THE 'PUF' FLAG INDICATES THE CONTROLLER DID NOT 55"*SUCCESSFULLY PASS SELF TEST/MASTER RESET. THIS 53"*FLAG IS SET TO 1 AT THE START OF THE POWER UP 33"*ROUTINE AND CLEAR UPON SUCCESSFUL COMPLETION. 33"*IF AN ERROR EXIT IS TAKEN DURING THE POWER UP 34"*ROUTINE THIS BIT REMAINS 1. INTERRUPT SERVICE41"*IS NOT PERFORMED IF THIS BIT IS 1. THIS BIT 12"*IS SET/RESET BY THE ROUTINES 'HRSET','HMRST'2"*AND 'HSWPWR'. "* "*0   12  34  56  70"* +----+----+----+----+----+----+----+----+02"* PDXFLG ! PUF!SDCD!!  !!SDCD!!  !20"* +----+----+----+----+----+----+----+----+0"*,"*BIT 0 - CONTROLLER MASTER RESET FAILED,1"*BIT 1 - SECONDARY DATA CARRIER DETECT STATE 1"*BIT 2 - RESERVED"*BIT 3 - RESERVED"*"*BIT 4 - RESERVED1"*BIT 5 - SEC DATA CARRIER DETECT NOTIFY FLAG 1"*BIT 6 - RESERVED"*BIT 7 - RESERVED"*"*$"*0  12  34  56  7$0"* +----+----+----+----+----+----+----+----+08"* PDXFL1 ! DCD! RI! DSR! CTS! DCD! RI! DSR! CTS!80"* +----+----+----+----+----+----+----+----+0"*&"*BIT 0 - DATA CARRIER DETECT ---+&QU**"* BIT 1 - RING INDICATOR !___ SIGNAL*("* BIT 2 - DATA SET READY !STATES(&"*BIT 3 - CLEAR TO SEND ---------+&"*&"*BIT 4 - DATA CARRIER DETECT ---+&*"* BIT 5 - RING INDICATOR !___ NOTIFY*'"* BIT 6 - DATA SET READY !FLAGS '&"*BIT 7 - CLEAR TO SEND ---------+&"*"* NOTIFICATION FLAGS"*"*"* SAVED SIGNAL STATE FLAGS "*"*"**"*RECEIVE CHARACTER STATUS FLAGS MASKS*"*"*"* HSPPSL ROUTINE BIT MASKS"*"*#"*TRANSMIT PROCESSING CONSTANTS #"*& FFULL: WORD;  "SIZE OF XMIT FIFO&#"*CI401 (COMMIF) CRU DEFINITION #"*+"*INPUT STATUS REGISTER-ADDR=1,STROBE=0 +"*"*6,7,9  UNUSED "*("* INPUT DATA REGISTER-ADDR=0,STROBE=1(*"* RDATA BITS 0-7  RECEIVE DATA BYTE*"*8,9,10 UNUSED "*11  BUSY "*%"* OUTPUT DATA WORD-ADDR=0,STROBE=0 %+"* XDATA BITS 0-7  TRANSMIT DATA BYTE +"*5"* OUTPUT STATUS REGISTER-ALL ADDRESSES-ALL STROBES 5"*:"* OUTPUT WORD TWO-ADDR=1,STROBE=0 (ASTRO CNTROL REG 1):"* AND#"* INPUT WORD TWO-ADDR=1,STROBE=1 #"*"*9"* OUTPUT WORD 3-ADDR=4,STROBE=0 (ASTRO CONTROL REG 2) 9"*""* OUTPUT WORD 4-ADDR=5,STROBE=0" (*$ RESUME LIST *) ?SDB PBv37yi%%(*$ NO LIST *)?"************************************************************ ?"** 1"* STAGE DESCRIPTOR BLOCK(SDB) 07/16/81* 1"** -"*LOCATION: A NAME DEFINITION SEGMENT * -?"************************************************************ ? SDB = PACKED RECORD ! SDBSDB : @SDB ;"FIXED LINK !$ SDBCID : BYTE; "CREATOR TASK ID$! SDBSNO : BYTE; "STAGE NUMBER ! SDBTCT : BYTE; "TASK COUNT  SDBRES : BYTE; "RESERVED , SDBPAR : @SDB ; "POINTER TO PARENT SDB,3 SDBDEL : @DEL ;"DESCENDANT ERROR LIST ANCHOR 3 (*$ RESUME LIST *)88 SCFODV : BOOLEAN; "TRUE=PTR SCBODV IS VALID (FOR MO)8FILL00 : 0..63; END;( SCBFLG : PACKED RECORD "STATUS FLAG(2DSVDTREXPBV3Wyj@(*$ NO LIST *) VDT = PACKED RECORD # VDTFIL : BYTE; "FILL CHARACTER #$ VDTEVT : BYTE; "EVENT CHARACTER$G# VDTDEF : PACKED ARRAY [ 1.. 2 ] OF BYTE; "DEFINE BEGINNING OF FIELD GG# VDTPSR : PACKED ARRAY [ 1.. 2 ] OF BYTE; "R11 PRINTER REGISTER SAVE G! VDTPTP : BYTE; "PRINTER TYPE ! TPP931 : BYTE; "931 TYPE L% VDTSPD : PACKED ARRAY [ 1.. 2 ] OF BYTE; "SPEED OF CARD AND SWITCHED FLALF SYSUP: PACKED ARRAY [ 1.. 2 ] OF BYTE; "MASK FOR CONNECT SIGNALSF> VDTRFL : PACKED ARRAY [ 1.. 2 ] OF BYTE; "REMOTE FLAG WORD>K% VDTERR : PACKED ARRAY [ 1.. 2 ] OF BYTE; "ERROR PASSING FROM ISR TO TSR KA VDTOVR : PACKED ARRAY [ 1.. 2 ] OF BYTE; "OVERRUN ERROR COUNT A* VDTPAR : PACKED ARRAY [ 1.. 2 ] OF BYTE* ; "PARITY ERROR COUNTA VDTFRM : PACKED ARRAY [ 1.. 2 ] OF BYTE; "FRAMING ERROR COUNT AL% VDTPTR : PACKED ARRAY [ 1.. 2 ] OF BYTE; "POINTER TO PDT REG 0 OF PRINTELL% PRTTIM : PACKED ARRAY [ 1.. 2 ] OF BYTE; "TIMER FOR PRINTER DELAY (940 OLA FIRST: PACKED ARRAY [ 1.. 2 ] OF BYTE; "FLAG FOR POWER FAIL AL% VDTEDL : PACKED ARRAY [ 1.. 2 ] OF BYTE; "OP CODE 15 SUB OP 0 EDIT FLAGSL' STATBD : WORD;  "STATE OF THE BOARD '0 STATGR : WORD; "STATE OF THE INPUT GRAPHICS02 STATFN : WORD; "STATE OF THE FUNCTION MAPPING2END; (*$ RESUME LIST *)g DDD  'g DD g' gE `#΋$L! /// '` "(` "`#Ƌ!$>>IOC PB 83ym(*$ NO LIST *)?"************************************************************ ?"** 5"* IPC OPCODE CHARACTERISTICS (IOC)01/15/82* 5"** ?"************************************************************ ?"* I/O OPCODES"* IOU OPCODES (*$ RESUME LIST *)JZ)JZJ$***** **{;{;{J#[kΉΈ·Ά΅΄΃΂΁[./1с /*//p  9/ ?@j)l *:)l `)* *:+n$ %`+n%  %`'' )>)P+N%:`+N9W_W_RTjO@BRST PB3yr(*$ NO LIST *)?"************************************************************ ?"** 3"* RESERVE SEGMENT TABLE  (RST) 09/21/81 * 3"** "* LOCATION:JCA * ?"************************************************************ ?9"* THE RST DESCRIBES ALL OF THE SEGMENTS THAT A JOB HAS 9."* RESERVED WITH A RESERVE SEGMENT SVC CALL.. "* EACH ENTRY IS:  "* SEGMENT SSB ADDRESS "* SEGMENT SMT ADDRESS RST = PACKED RECORD ' RSTRST : @RST ; "LINK TO NEXT RST 'L RSTSID :PACKED ARRAY [ 1..16] OF WORD; "ID'S OF RESERVED SEGMENTS (MAXL, FILL00 : BYTE;  "RESERVED FOR FUTURE USE,8 RSTALC : BYTE; "NUMBER OF ALLOCATED ENTRIES (MAX 8)8END; (*$ RESUME LIST *)-END;CSAT PBN3 ys(*$ NO LIST *)?"************************************************************ ?"** 3"*SECONDARY ALLOCATION TABLE (SAT)01/25/77* 3"** /"* LOCATION:JCA OR SYSTEM AREA, WITH FCB* /?"************************************************************ ?<"* THE SAT SHOWS THE NUMBER AND LOCATION OF SECONDARY FILE<"* ALLOCATIONS.  SAT = PACKED RECORD $ SATASZ : WORD; "ALLOCATION SIZE$% SATADU : WORD;  "ALLOCATION START %@ FILL00 : PACKED ARRAY [ 1..60 ] OF BYTE; "REMAINDER OF BLOCK@END; (*$ RESUME LIST *)OOLEAN; "EVENT 03  S42R04 : BOOLEAN; "EVENT 04  FILL00 : 0..2047; END;8 S42RT2 : PACKED RECORD "SECOND WORD OF RETURN FLAGS8 FILL01 : 0..65535;DSEMCNS PB2+yu (* $NO LIST *) " '""  CONSTANTS FOR SEM UTILITY"" '* LUNO_PARM = 3 ; "PARM NO. FOR LUNO *6 PROC_TYPE_PARM  = 4 ; "PARM NO. FOR PROC TYPE 6. CAT_PARM  = 5 ; "PARM NO. FOR CATAGORY.. MSG_ID_PARM = 6 ; "PARM NO. FOR MSG ID." '"  ERROR CONSTANTS" ' FATAL = #8000; 4 BAD_PARM  = #9114;  "BAD PARM IN PARMS LIST 44 BAD_SYNONYM = #9115;  "BAD VALUE FOR SYNONYM40 BAD_KIF = #9116;  "BAD EXPANDED MSG FILE00 NO_MN_VALUE = #9117;  "NO $$MN VALUE SO 04 BAD_MSG_ID  = #9118;  "MESSAGE ID NOT VALID 4""  "QUESTION MARK NOT USABLE " (* $LIST *)"ALLOCATION TABLE (SAT)01/25/77* 3"** /"* LOCATION:JCA EOISCONS PB_2,yv@(*$ NO LIST *)!6"*************************************************64"  OISCONS - SYSTEM OPERATOR TASK CONSTANTS *4" 29 MAY 1980  *6"*************************************************6" '""  ALL LENGTHS ARE IN BYTES "" '6 CHBSIZ=422; " CHANNEL BUFFER SIZE=MXRPLL+WRTRPL 6$ ORTSIZ=33;  " ORT ENTRY SIZE $$ UIDSIZ=22;  " UID ENTRY SIZE $0 MXTXTL=223; " MAXIMUM REQUEST TEXT LENGTH 00 MXPRTL=28;  " MAXIMUM PROMPT TEXT LENGTH 0( MXPRCT=2; " MAXIMUM PROMPT COUNT (0 MXDFTL=50;  " MAXIMUM DEFAULT TEXT LENGTH 02 WDSHFT=65536; " WORD SHIFTER MULTIPLY VALUE 2* MXRPLL=390; " MAXIMUM REPLY LENGTH ** MXMRBL=44;  " MAXIMUM SIZE OF MRB TEM* PLATE : WRTRPL=32;  " WRITE WITH REPLY TEMPLATE SIZE IN MRB:. MXRPDL=102; " MAXIMUM REPLY DATA LENGTH.0 MXRQDL=384; " MAXIMUM REQUEST DATA LENGTH 0, MXMSGL=255; " MAXIMUM MESSAGE LENGTH ," '"  I/O SYSTEM OPCODES " ' IOSVC=0;  " I/O SVC* GETID=#2E;  " GET INSTALLED ID SVC * OPEN=0; " OPEN OPCODE  CLOSE=1;  " CLOSE OPCODE  & READASC=9;  " READ ASCII OPCODE&( WRTASC=#B;  " WRITE ASCII OPCODE (( MRDOP=#19;  " MASTER READ OPCODE (( MWRTOP=#1B; " MASTER WRITE OPCODE(( ASGLUN=#91; " ASSIGN LUNO OPCODE (* CRCHAN=#9D; " CREATE CHANNEL OPCODE** DLCHAN=#9E; " DELETE CHANNEL OPCODE*" '"  OPERATOR ERRO R CODES(RETURNED IN BUFFER)  " '8 INVCHCMD=#FF; " INVALID OPERATOR CHANNEL COMMAND 8, XOIINV=#FE; " OPERATOR ALREADY EXISTS,* KOMINV=#FD; " NO ROM ENTRY FOR USER*0 BADREQ=#FC; " BAD DATA IN GENERAL REQUEST 04 RDINV=#FB;  " USER MAY NOT ISSUE READ COMMAND 44 PORINV=#FA; " USER MAY NOT ISSUE POR COMMAND 4. REQINV=#F9; " REQUEST ID NUMBER INVALID.2 REQRSP=#F8; " REQUEST IS IN RESPONSE STATE 2* RSPNRQ=#F7; " RESPONSE NOT REQUIRED*2 REQNRS=#F6; " REQUEST NOT IN RESPONSE STATE 2* RSPINV=#F5; " RESPONSE DATA INVALID*, KILLRD=#F4; " READ KILLED BY ROM/QOI ,* QOIINV=#F3; " USER IS NOT OPERATOR *4 LOMINV=#F2; " USER MAY NOT ISSUE LOM COMMAND 46@0 NOMSGS=#F1; " NO MESSAGES TO LIST FOR LOM 0& RPLTO=#F0;  " REQUEST TIMED OUT&$ RPLNEG=#EF; " REQUEST DENIED $" '0"  SVC ERROR CODES(RETURNED IN SVC BLOCK) 0" '* INVIOCMD=#02; " INVALID I/O COMMAND*0 NOTMATCH=#A2; " MASTER WRITE NOT MATCHED 0" ' "  REPLY TYPES FOR OISRPL  " '( TIMEOUT=1;  " TIMEOUT TYPE REPLY ($ NEGATIVE=2; " NEGATIVE REPLY $$ POSITIVE=3; " POSITIVE REPLY $" '"  OPERATOR OPCODES " ' RDOP=0; " READ OPCODE* GRQOP=1;  " GENERAL REQUEST OPCODE *2 ROMOP=2;  " RELAY OPERATOR MESSAGES OPCODE 20 KOMOP=3;  " KILL OPERATOR MESSAGES OPCODE 0, LOMOP=4;  " LIST OPERATOR MESSAGES OPCO,DE 4 XOIOP=5;  " EXECUTE OPERATOR INTERFACE OPCODE 42 QOIOP=6;  " QUIT OPERATOR INTERFACE OPCODE 24 POROP=7;  " PROMPT FOR OPERATOR REPLY OPCODE 44 ROROP=8;  " REPLY TO OPERATOR REQUEST OPCODE 4" '&"  MAILBOX BUFFER DISPLACEMENTS &%%" '* MBREQ=3;  " REQUEST ID NUMBER FIELD** MBRRQ=8;  " RESPONSE REQUIRED FIELD*& MBUID=14; " REQUESTOR ID FIELD &( MBTIME=26;  " REQUEST HOUR FIELD (* MBTXT=32; " REQUEST TEXT FIELD - 1 *" '""  LOG BUFFER DISPLACEMENTS "" '( RPLTXT=29;  " TEXT OF REPLY FIELD(* RPLREQ=22;  " REQUEST NUMBER FIELD *" ' (*$ RESUME LIST *)AY [ 1.. 8 ] OF CHAR; "SYSTEM IMAGE FILE ?B UTIL : PAFSOV PB^3yw@(*$ NO LIST *)?"************************************************************ ?"** 5"* SYSTEM OVERLAY LOAD TABLE (SOV)  09/09/83 * 5"** "* LOCATION: SYSTEM ROOT * ?"************************************************************ ?="* THE SOV IS BUILT DURING SYSTEM GENERATION AS PART OF THE =<"* MODULE SOVT, DEPENDING ON THE OPTIONS CHOSEN DURING THE<?"* GENERATION.THE FORMAT OF EACH ENTRY IS SHOWN IN THE OVT. ?SOV = PACKED RECORD K% CFDFOV : PACKED ARRAY [ 1.. 3 ] OF WORD; "IU CREATE/DELETE FILE OVERLAY KH# OTHOV1 : PACKED ARRAY [ 1.. 3 ] OF WORD; "IU OTHER FUNCTIONS OVERLAYHL% OTHOV2 : PACKED ARRAY [ 1.. 3 ] OF WORD; "IU RF, AA, DA, CIC, DIC OVERLAL SECMGR : PACKED ARRAY [1 1.. 3 ] OF WORD; "IU SECURITY MANAGER OVERLAY 1END; (*$ RESUME LIST *)ECIFIED. FLAG SMFTSK  TASK SEGMENT . FLAG SMFVLD  VERIFY PROG. FILE LOAD ADDR.( FLAG SMFSRE  SET/RESET FLAG ENABLE(! FLAG SMFSEU  SET/RESET FLAG !*  1=>SET EXCLUSIVE USE *  0=>RESET EXCLUSIVE USE  FLAG SMFSYS  SYSTEM TASK BITS 4  ***RESERVED*** / BITS SMFPSN,2  POSITION NUMBER(1,2, OR 3) /'SMRNS1 DATA 0  NEW SEGMENT ID WORD 1 ''SMRNS2 DATA 0  NEW SEGMENT ID WORD 2 ' SMROSG DATA 0 OLD SEGMENT ID !SMRADR DATA 0 SEGMENT ADDRESS ! SMRLEN DATA 0 SEGMENT LENGTH /SMRATR DATA 0 SEGMENT ATTRIBUTE (AS IN SSB) /SMRFMT PTRSSB FDP ADDRESS SMRFCB PTRFSC EJECOMN PB+2/yy(*$NO LIST*)" VDT$: RECORD  OPEN_FLAG:BOOLEAN; BLINK_FLAG: BOOLEAN; FILLER_CHAR:CHAR;  ALIGN_1:CHAR; " CALL_BLOCK: I_O_CALL_BLOCK; "END; TERM : CHAR;  FINDMODE : BOOLEAN; DISPNUMB, TEMP : INTEGER; ROW, COL : INTEGER;$ X : PACKED ARRAY[1..2] OF CHAR;$ JMSG : GENMSG; " TAB : ARRAY[1..6] OF INTEGER;" SYN, SYNVAL : SCISTR; MT, TITLE : STRING;2 NUMBOUT, NUMBIN : PACKED ARRAY[1..4] OF CHAR;2( HEXIN : PACKED ARRAY[1..5] OF CHAR;( M : ARRAY[1..9] OF  PACKED ARRAY[1..35] OF CHAR; & V : PACKED ARRAY[1..17] OF CHAR; && VN : PACKED ARRAY[1..2] OF CHAR; && AD : PACKED ARRAY[1..10] OF CHAR;&N:*& FM : PACKED ARRAY[1..9] OF CHAR; && E1 : PACKED ARRAY[1..18] OF CHAR;&& E3 : PACKED ARRAY[1..80] OF CHAR;&& E5 : PACKED ARRAY[1..38] OF CHAR;&( EM1 : PACKED ARRAY[1..22] OF CHAR; (( EM2 : PACKED ARRAY[1..22] OF CHAR; (& M1 : PACKED ARRAY[1..13] OF CHAR;&& M2 : PACKED ARRAY[1..40] OF CHAR;&* NOGOOD : PACKED ARRAY[1..22] OF CHAR;*& P1 : PACKED ARRAY[1..24] OF CHAR;&& P2 : PACKED ARRAY[1..13] OF CHAR;&& R1 : PACKED ARRAY[1..14] OF CHAR;&& R2 : PACKED ARRAY[1..12] OF CHAR;&& R3 : PACKED ARRAY[1..13] OF CHAR;&& S : PACKED ARRAY[1..21] OF CHAR; &( SPACE : PACKED ARRAY[1..3] OF CHAR;(" STAT, D, C, ENDREC : INTEGER;"(*$RESUME LIST*) EOF,OPEN REWIND,LHQHR PB3Ky{@(*$ NO LIST *)?"************************************************************ ?"** )"*QUEUE HEADER (QHR) 09/06/79 * )"** %"* LOCATION: SYSTEM ROOT, JCA * %?"************************************************************ ?;"* QUEUE HEADERS FOR SYSTEM QUEUE SERVERS THAT RUN IN THE ;9"* SYSTEM JOB ARE BUILT DURING SYSTEM GENERATION IN THE 99"* SYSTEM ROOT. QUEUE HEADERS FOR SYSTEM QUEUE SERVERS 9;"* THAT RUN IN A USER'S JOB ARE BUILD IN THE JCA WHEN THE ;= "* JOB IS CREATED.EACH QUEUE HEADER FOLLOWS THE QHR FORM. = QHR = PACKED RECORD , QHRNEW : WORD;  "ADDRESS OF NEWEST ENTRY,, QHROLD : WORD;  "ADDRESS OF OLDEST ENTRY,/ QHRCNT : BYTE; "NUMBER OF ENTRIES ON QUEUE /# QHRTID : BYTE; "SERVER TASK ID #/ QHRTSB : WORD; "TSB ADDRESS OF SERVER TASK // QHRJSB : WORD; "JSB ADDRESS OF SERVER TASK /1 QHRLUN : BYTE; "PROGRAM FILE LUNO FOR SERVER 1 FILL00 : BYTE; "RESERVED END; (*$ RESUME LIST *)OC DIRECTORY ENTRY OFFSET 32PFZPR WORD 0 FIRST PROC DIRECTORY ENTRY REC #2,PFZMNO BSS1  MAXIMUM NUMBER OF OVERLAYS,3PFZOO BSS1 FIRST OVLY DIRECTORY ENTRY OFFSET 32PFZOR WORD 0 FIRST OVLY DIRECTORY ENTRY REC #2)PFZMNH WORD 0  MAXIMUM NUMBER OF HOLES )3PFZHO WORD 0 FIRST AVAILABLE SPACE LIST OFFSET 32PFZHR WORD 0 FIRST AVAILABLE SPACE LIST REC #26PFZSIZ EQU$ SIZE OF INFORMATION SECTION OF REC 06 RORG  PAGE  LIST IDOR PB3y|@(*$ NO LIST *)?"************************************************************ ?"** 3"*DIRECTORY OVERHEAD RECORD (DOR)01/31/79* 3"** "* LOCATION: DISK * ?"************************************************************ ??"* THE DOR IS THE FIRST RECORD (RECORD 0) OF A DIRECTORY FILE ??"* AND SHOWS THE MAXIMUM SIZE AND CURRENT USE OF A DIRECTORY. ? DOR = PACKED RECORD + DORNRC : WORD;  "# RECORDS IN DIRECTORY +3 DORNFL : WORD; "# FILES CURRENTLY IN DIRECTORY 3+ DORNAR : WORD;  "# OF AVAILABLE RECORDS +. DORTFC : WORD;  "NUMBER OF TEMPORARY FILES.A DORDNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "DIRECTORY FILE NAME A) DORLVL : WORD;  "LEVEL # OF DIRECTORY ) DORPNM : PA5CKED ARRAY [ 1.. 8 ] OF BYTE; "NAME OF PARENT FILE 53 DORPRS : WORD; "DEFAULT PHYSICAL RECORD LENGTH 3END; (*$ RESUME LIST *)  !/! / [` /  ` "[ @ "bPP"$ "b!! <,@.P HFG Y1+0  (T.DP.TEMPLATE.ATABLE.DOR).INPUT03T.DP.TEMPLATE.ATABLE.DORGMBMBRB P B/22y~@(*$ NO LIST *)!(PTRMBRB = @MBRB; " POINTER TO BRB (4 MBRB = PACKED RECORD  " BUFFERED REQUEST BLOCK4" MBRBSID : WORD; " SESSION ID"2 MBRBRCB : WORD; " RETURN CALL BLOCK ADDRESS 2$ MBRBTSB : WORD; " TSB ADDRESS $$ MBRBJSB : WORD; " JSB ADDRESS $& MBRBSSI : WORD; " SECURITY INFO &$ MBRBOP: BYTE; " SVC OP-CODE $" MBRBERR : BYTE; " SVC ERROR "$ MBRBSUB : BYTE; " SUB OP-CODE $ MBRBLUN : BYTE; " LUNO$ MBRBSFL : BYTE; " SYSTEM FLAGS $" MBRBUFL : PACKED" USER FLAGS" ARRAY [0..7] OF BOOLEAN; , MBRBDBA : WORD;  " DATA BUFFER ADDRESS ,( MBRBICC : WORD;  " INPUT CHAR COUNT (" MBRBDUM1: WORD; " (NOT USED)"$ MBRBRVO : WORD; " REPLY VECTOR O$ FFSET " MBRBDUM2: WORD; " (NOT USED)"* MBRBRBO : WORD;  " REPLY BLOCK OFFSET ** MBRBRBL : WORD;  " REPLY BLOCK LENGTH ** MBRBROC : WORD;  " REPLY OUTPUT COUNT *& MBRBCDE : INTEGER; " MAILBOX CODE &  CASE INTEGER OF& 0:(MBRBTOK : PACKED" TOKEN NAME& ARRAY [1..8] OF CHAR; $ MBRBMSG : PACKED" MESSAGE TEXT $ ARRAY [0..255] OF CHAR; & MBRBPST : PACKED" POSTMARK TEXT & ARRAY [0..41] OF CHAR; 6 MBRBDUM3: PACKED" PROTECTION FROM EXT CALL BLOCK6 ARRAY [1..4] OF WORD); * 1:(MBRBTKS : PACKED" LIST OF TOKENS *(ARRAY [1..3] OF PACKED ARRAY [1..8] ( OF CHAR; 6 MBRBDUM4: PACKED" PROTECTION FROM EXT CALL BLOCK6 ARRAY [1..4] OF WORD);   2:(MB$RBRM: PACKED" REPLY MESSAGE $ ARRAY [0..255] OF CHAR; & MBRBRP: PACKED" REPLY POSTMARK & ARRAY [0..41] OF CHAR; 6 MBRBDUM5: PACKED" PROTECTION FROM EXT CALL BLOCK6 ARRAY [1..4] OF CHAR);   END;   (*$ RESUME LIST *)RD; "IU RF, AA, DA, CIC, DIC OVERLALL% PMERRS : PACKED ARRAY [ 1.. 3 ] OF WORD; "PM ERROR PROCESSING SUBROUTINELEND; (*$ RE+))_`4% STRUSER Logged OFF STR SYSTEM ST99 %$0125:1521  CMUSER Logged On ST99$R(0125:1526 STAT DEV=DS01 RDS G=8000 B=0000 WRTS G=0631 B=0000 OTHER G=0000 B=0000R MOVB @PC,@COM1(RPRVWP)  MOV@SA,R5 MOV R5,@ATTR2(RPRVWP) $ JEQPARS20 NO S%%ECONDARY ENTRY$( COC@EVDON,R5  KRLT PB23vy@(*$ NO LIST *)B "***************************************************************B0"* RECORD LOCK TABLE  (RLT) 05/09/79  *0"* *2"*LOCATION: SYSTEM TABLE AREA OR USER JCA  *2$"* (WHEREVER FCB IS LOCATED)  *$B "***************************************************************B?"* FOR A FILE WHICH HAS LOCKED RECORDS, EACH LOCKED RECORD IS ?>"* REPRESENTED BY A RLT CHAINED TO THE FILE CONTROL BLOCK OF>"* THAT FILE.  RLT = PACKED RECORD / RLTRLT : @RLT ; "NEXT TABLE ENTRY ADDRESS /* RLTLDT : @LDT ; "LOCKING LDT ADDRESS** RLTTSB : @TSB ; "LOCKING TSB ADDRESS*( RLTJSB : @JSB ; "OWNER JSB ADDRESS(* RLTBN: LONGINT; "LOCKED BLOCK NUMBER* RLTOFF : WORD; "LOCKED OFFSETEND; (*$ RESUME LIST *)FFSET AND LENGTH, THEN A WORD OF ZERO TO TERMINATE THE RIB. A RIB = PACKED RECORD 3 RIBPRO : WORD; "POSTPROCESSOR (IF SPECIAL ONE) 3& RIBOFF : BYTE;  "CALL BLOCK OFFSET&/ RIBLEN : BYTE; "LENGTH TO UNBUFFER (BYTES) /END; (*$ RESUME LIST *)ODSTATIC(0) OR DYNAMIC BUFFER +. FLAG RDFDSJDYNAMIC BUFFER - STA(0) OR JCA.) FLAG RDFREV REVISING A BUFFER (1=YES) )& FLAG RDFINT CAN(1) OR CANNOT(0) BE&*  AN INITIATED EVENT* FLAG RDFQIJ QUEUE HDR IN STA(0) OR JCA* BITS 7 RESERVED0RDBSRV DATA 0  ADDRESS OF PROCESSOR ENTRY OR0$* QUEUE HDR ADDRESS(RDFQIJ=0) OR$!* QHR OFFSET IN JIT(RDFQIJ=1) !&RDBRIB PTRRIB  ADDRESS OF RETURN&DCSMGCONSPBV25y@(*$ NO LIST *)!L$"********************************************************************** L" 'H"  GLOBAL CONSTANTS USED WITHIN THE COPY SEQUENTIAL MEDIA UTILITY H" 'L$"********************************************************************** L" '*ASNOP  = #91;  " ASSIGN LUNO OPCODE**OPSTAT = #05;  " GET STATUS OPCODE *&OPENOP = #0; " OPEN LUNO OPCODE&(CLOSOP = #1; " CLOSE LUNO OPCODE ((WRITEOP = #B; " WRITE ASCII OPCODE(&WRITEOF = #D; " WRITE EOF OPCODE&(READOP = #9; " READ ASCII OPCODE (.BACKOP = #7; " BACKSPACE RECORD OPCODE .(REWINDOP = #E; " REWIND LUNO OPCODE(,RELOP  = #93;  " RELEASE LUNO OPCODE ," 'NORMAL = T0RUE; " POSSIBLE VALUE OF TASK STATUS FLAG 0>ABNORMAL = FALSE; " POSSIBLE VALUE OF TASK STATUS FLAG ><MASTER_DEV = 1;  " USED TO DENOTE MASTER MEDIA DEVICE <:COPY_DEV = 2;  " USED TO DENOTE COPY MEDIA DEVICE :(REC_NORM = 0;  " NORMAL RECORD ($REC_EOF  = 1;  " END-OF-FILE$&REC_EOM  = 2;  " END-OF-MEDIA &$ZERO = 0;  " PARM FOR R$WRIT$" '0EXCLUSIVE_ALL = #08; " EXCLUSIVE ACCESS 0.TYPE_CASSETTE = #3;  " CASSETTE FLAGS .&TYPE_DISK  = #01FF; " DISK FLAGS &&TYPE_TAPE = #8;  " TAPE FLAGS &D INITIAL_BLKSIZE = 512; " SIZE IN BYTES OF INITIAL READ BUFFER D@WARN_ERR_FLAG = #1002; " INDICATES THE ERROR IS A WARNING @USER_ERR_FLAG &= #2002; " INDICATES A USER ERROR &JUSYH_ERR_FLAG = #C002; " INDICATES A USER, SYSTEM OR HARDWARE ERROR JJINFM_ERR_FLAG = #F002; " INDICATES NO ERROR, ONLY AN INFORMATIVE MSGJ>WARN_CC_VAL = #4000; " INDICATES WARNING COMPLETION CODE ><TFATAL_CC_VAL = #8000; " INDICATES TASK ERROR (FATAL) <>SFATAL_CC_VAL = #C000; " INDICATES SYSTEM ERROR (FATAL) >" 'L$"********************************************************************** L" 'B"  MESSAGE NUMBERS USED WITHIN COPY SEQUENTIAL MEDIA UTILITYB" 'L$"********************************************************************** L" ':MSG_HDRTAD = #9137;  " HEADER PLUS TIME AND DATE :$MSG_CEOM_ASD = #9138;  " X F$&ILES COPIED, EOM ON MASTER AS DIR &JMSG_VEOM_ASD = #9139;  " X FILES VERIFIED, EOM ON MASTER AS DIR JFMSG_CEOF_ASD = #913A;  " X FILES COPIED, 2 EOF FOUND AS DIR FHMSG_VEOF_ASD = #913B;  " X FILES VERIFIED, 2 EOF FOUND AS DIR H> MSG_CNFIL_ASD = #913C;  " X FILES COPIED AS DIRECTED >@ MSG_VNFIL_ASD = #913D;  " X FILES VERIFIED AS DIRECTED @4MSG_MBPI = #913E;  " MASTER TAPE BPI: XXXX42MSG_CBPI = #913F;  " COPY TAPE BPI: XXXX24 MSG_COPY_START = #9140;  " COPY CYCLE BEGINS42MSG_COPY_END = #9155;  " COPY CYCLE ENDS26 MSG_VER_START = #9156;  " VERIFY CYCLE BEGINS6LMSG_VER_END  = #9157;  " VERIFY CYCLE ENDS, X FILES VER W/ N ERRS LCOP@@MSG_NORM = #9158;  " COPY SEQ MEDIA NORMAL TERMINATION@DMSG_ABNORM = #9159;  " COPY SEQ MEDIA ABNORMAL TERMINATIONDJMSG_M10FT  = #915A;  " 10 FT BLANK TAPE ON MASTER, TREAT AS EOM JHMSG_C10FT  = #915B;  " 10 FT BLANK TAPE ON COPY, TREAT AS EOM HJMSG_TCEOM2C  = #915C;  " WARNING-X FILES COPIED WHEN EOM ON COPYJLMSG_TCEOM2V  = #915D;  " WARNING-X FILES VERIFIED WHEN EOM ON COPYLLMSG_TC2EO2C  = #915E;  " WARNING-X FILES COP,EOM ON MASTER,NO 2EOFLLMSG_TC2EO2V  = #915F;  " WARNING-X FILES VER,EOM ON MASTER,NO 2EOFLJMSG_TC2EO3C  = #9160;  " WARNING-X FILES COP,EOM ON COPY,NO 2EOFJHMSG_TC2EO3V  = #9161;  " WARNING-X FILES VER,EOM ON COPY,NO 2EOFHLMSG_TCNFI2C  = #9162;  " WARNING-X FILES COPIED WHEN EOM ON MASTERLJMSG_TCNFI2V  = #9163;  " WARNING-X FILES VER WHEN EOM ON MASTER JJMSG_TCNFI3C  = #9164;  " WARNING-X FILES COPIED WHEN EOM ON COPYJHMSG_TCNFI3V  = #9165;  " WARNING-X FILES VER WHEN EOM ON COPY HFMSG_TINCON = #9166;  " WARNING-C/V ENDED W/ DIFF TERM CODES FHMSG_TTRUNC = #9167;  " WARNING-FILE X, REC Y, TRUNC TO Z CHARSHDMSG_TCOINR = #9168;  " WARNING-INCONSISTENT RECORD LENGTHSDFMSG_TFEINF = #9169;  " FATAL ERROR-INCONSISTENT FILE LENGTHSF@MSG_TCOMPR = #916A;  " WARNING-COMPARE ERROR IN RECORD @DMSG_TFEIOFM  = #916B;  " FATAL ERROR-MASTER TAPE OFF-LINE DMSG_TF<EIOFC  = #916C;  " FATAL ERROR-COPY TAPE OFF-LINE <BMSG_TFEINS = #916D;  " FATAL ERROR-NO WRITE RING IN COPYBJMSG_TFECAS = #916E;  " FATAL ERROR-NO SUPPORT FOR EOM ON CASSETTJJMSG_TFESEQM  = #916F;  " FATAL ERROR-MASTER MEDIA NOT SEQUENTIALJHMSG_TFESEQC  = #9170;  " FATAL ERROR-COPY MEDIA NOT SEQUENTIALH (*$ RESUME LIST *)ATCH CAUSES THE EMULATOR TO IGNORE RECEIVED BD * LF (LINE FEED), NL (NEW LINE) AND FF (FORM FEED). ONE SHOULD DD * BE AWARE, HOWEVER, THAT INSTALLATION OF THIS PATCH WILL CAUSEDF!* DNOS PRINT FILES THAT ARE RECEIVED DIRECTLY TO THE LINE PRINTERFH"* TO BE DOUBLE-SPACED. INSTALLATION OF THIS PATCH COULD ALSO CAUSE H * PROBLEMS IN RECEPTIMMBERRS PB 26yP"(*$ NO LIST *) PPMBERRS : PACKED RECORD " MAILBOX COMMON BLOCK PP EMSGL : WORD; " MESSAGE LENGTH ERROR PP EADRN : WORD; " ILLEGAL ADDRESSEE NAME PP ETOKN : WORD; " ILLEGAL TOKEN NAME PP EREQU : WORD; " REQUEST UNLOADED PP END; PP"(*$ RESUME LIST *) PUNO OPCODE(,RELOP  = #93;  " RELEASE LUNO OPCODE ," 'NORMAL = TNMRB PB 3wy@(*$ NO LIST *)?"************************************************************ ?"** ;"*MASTER READ/MASTER WRITE BUFFER  (MRB)04/04/83* ;"** "* LOCATION: TASK AREA* "** ?"************************************************************ ?>"* THE MRB IS A DESCRIPTION OF THE DATA BUFFER RETURNED TO A>="* CHANNEL OWNER TASK IN ITS MASTER READ BUFFER.THIS SAME =>"* BUFFER STRUCTURE IS USED IN THE MASTER WRITE OPERATION OF>8 "* THE OWNER TASK.ALL BUFFER POINTERS IN THE MRB ARE8;"* RELATIVE OFFSETS FROM THE BEGINNING OF THE MRB, RATHER ;#"* THAN BEING ABSOLUTE ADDRESSES. #>"* MRB VARIANTS ARE PROVIDED FOR THE MAJOR TYPES OF I/O CALL>,"* BLOCKS: BASIC FILE I/O, I/O WITH REPLY ,INFORMATION, I/O="* WITH VALIDATION, VDT EXTENSIONS, AND UTILITY OPERATIONS. =1"* THERE IS ALSO A VARIANT FOR ABORT I/O CALLS. 1"*MRB = PACKED RECORD 6 MRBSID : WORD; "SECURITY INFORMATION (SESSION ID)61 MRBRCB : WORD; "REQUESTOR CALL BLOCK ADDRESS 1, MRBTSB : @TSB ; "REQUESTOR TSB ADDRESS,, MRBJSB : @JSB ; "REQUESTOR JSB ADDRESS,6 MRBSSI : WORD; "SECURITY INFORMATION (QUEUE ADDR)6' MRBSOC : BYTE;  "SVC OPERATION CODE ', MRBEC: BYTE;  "SVC RETURN (ERROR) CODE%%,CASE INTEGER OF  1 : ( "ABORT I/O VARIANT " MRBABF : PACKED RECORD "FLAGS"# MRFDNC : BOOLEAN; "DO NOT CLOSE #FILL00 : 0..127;END;( MRBABL : BYTE;  "LOGICAL UNIT NUMBER( );  2 : ( "I/O VARIANTS' MRBOC: BYTE;  "SUB-OPERATION CODE '( MRBLUN : BYTE;  "LOGICAL UNIT NUMBER() MRBSFL : PACKED RECORD "SYSTEM FLAGS ) MRFBSY : BOOLEAN; "BUSY  MRFERR : BOOLEAN; "ERROR" MRFEOF : BOOLEAN; "END OF FILE"! MRFVNT : BOOLEAN; "EVENT CHAR !FILL01 : 0..15; END;3 MRBUFL : PACKED RECORD  "REQUESTOR (USER) FLAGS 3' MRFINT : BOOLEAN;  "INITIATE REQUEST '( MRFRPY : BOOLEAN;  "OUTPUT WITH REPLY( MRFRES : BOOLEAN; "RESERVED &MRFACC : 0.. 3;  "ACCESS PRIVILEGES&" MRFLOC : BOOLEAN; "LOCK/UNLOCK"$MRFOWN : 0.. 3; "OWNERSHIP LEVEL$END;CASE INTEGER OF  1 : ( "DIOU VARIANT' FILL02 : BYTE;  "**** RESERVED **** ' MRBSEG : BYTE; "SEGMENT  IDENTIFIER 9 MRBNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "DEVICE NAME 9 FILL03 : WORD; "RESERVED " MRBNUM : WORD; "DEVICE NUMBER"' MRBDFL : PACKED RECORD "DIOU FLAGS '" MRFLCK : BOOLEAN; "LOCK/UNLOCK"% MRFNAM : BOOLEAN; "NAME SPECIFIED %% MRFVRD : BOOLEAN; "VIRTUAL DEVICE %, MRFWCH : BOOLEAN;  "WHICH RELATIVE DEVICE, MRFREP : BOOLEAN; "REPLACE FILL04 : 0..2047; END;/ MRBBUF : @STRING; "PARAMETER BUFFER ADDRESS / );   2 : ( "I/O AND IOU VARIANTS 3 MRBDBA : WORD; "BUFFER ADDR (OFFSET TO BUFFER) 35 MRBICC : WORD; "INPUT CHAR COUNT / ACTUAL OUTPUT 55 MRBOCC : WORD; "OUTPUT CHAR COUNT / ACTUAL INPUT 5CASE INTEGER OF  1 : ( "DISK I/O VARIANTS " MRBTRK : WORD; "TRACK ADDRESS"' MRBSPR : BYTE;  "SECTORS PER RECORD '" MRBSCT : BYTE; "SECTOR NUMBER" );   2 : ( "  MRBADU : WORD; "ADU NUMBER + MRBOFF : WORD;  "SECTOR OFFSET INTO ADU + ); ) 3 : ( "TERMINAL I/O BLOCK WITH REPLY )1 MRBRPY : WORD; "REPLY BLOCK ADDRESS (OFFSET) 1* MRBRES : WORD;  "(EXTRA WORD BUFFERED)*/ MRBRPA : WORD; "REPLY BUFFER ADDR (OFFSET) /5 MRBRIC : WORD; "REPLY INPUT COUNT FROM REQUESTOR 55 MRBROC : WORD; "REPLY OUTPUT COUNT FOR REQUESTOR 5 ); - 4 : ( "VDT READ BLOCK WITH VDT EXTENSION -7 MRBROV : WORD; "ZERO, REPLY PTR, OR VALIDATION PTR 73 MRBXFL : PACKED RECORD  "EXTENDED REQUEST FLAGS 3  MRFCSF : BOOLEAN; "CURSOR ST  ART OF FIELD DEFN   MRFNTN : BOOLEAN; "INTENSITY 0 MRFFKR : BOOLEAN;  "BLINKING CURSOR (FLICKER)05 MRFGRA : BOOLEAN; "GRAPHICS DISPLAY (CHAR LT >20) 5" MRFEBA : BOOLEAN; "8-BIT ASCII"3 MRFTER : BOOLEAN; "ENABLE TASK EDIT CHAR RETURN 3 MRFBP : BOOLEAN; "BEEP 2 MRFRDB : BOOLEAN; "RIGHT DISPLAY EDGE BOUNDARY2. MRFCIF : BOOLEAN;  "CURSOR IN-FIELD DEFINED.( MRFFC : BOOLEAN;  "FILL CHAR DEFINED(' MRFIF : BOOLEAN;  "INITIALIZE FIELD '+ MRFRFF : BOOLEAN;  "REMAIN IN FULL FIELD + MRFECO : BOOLEAN; "ECHO * MRFVRQ : BOOLEAN;  "VALIDATION REQUIRED*) MRFVER : BOOLEAN;  "VERIFICATION ERROR )# MRFWBP : BOOLEAN; "WARNING BEEP #END;' MRBFCH : BYTE;  "VDT FILL CHARACTER ' MRBEVT : BYTE; "VDT EVENT BYTE , MRBCRO : BYTE;  "VDT CURSOR IN FIELD ROW,/ MRBCCO : BYTE; "VDT CURSOR IN FIELD COLUMN /, MRBFRO : BYTE;  "VDT FIELD BEGINNING ROW,/ MRBFCO : BYTE; "VDT FIELD BEGINNING COLUMN /CASE INTEGER OF . 1 : ( "READ WITH VDT EXTN WITH VALIDATION."* ); * 2 : ( "WRITE WITH VDT EXTN WITH REPLY** MRBRS3 : WORD;  "(EXTRA WORD BUFFERED)*2 MRBRY2 : WORD; "REPLY BUFFER POINTER (OFFSET)25 MRBRI2 : WORD; "REPLY INPUT COUNT FROM REQUESTOR 55 MRBRO2 : WORD; "REPLY OUTPUT COUNT FOR REQUESTOR 5 );  );   5 : ( "BASIC FILE I/O BLOCK : MRBRN1 : LONGINT;"RECORD NUMBER FOR REL REC (2 WORDS): );  6 : ( "KIF I/O BLOCK  MRBCBA : WORD;  "CURRENCY BLOCK ADDRESS  MRBRS0 : LONGINT;"RESERVED < MRBCUR : PACKED ARRAY [ 1..20 ] OF BYTE; "CURRENCY BLOCK< );  );  3 : ( "I/O UTILITY VARIANT " MRBTYP : BYTE; "RESOURCE TYPE"0 MRBTFL : PACKED RECORD  "RESOURCE TYPE FLAGS0FILL05 : 0.. 7; % MRFVD : BOOLEAN; "VIRTUAL DEVICE %& MRFREM : BOOLEAN; "REMOTE RESOURCE& MRFCHN : BOOLEAN; "CHANNEL MRFDEV : BOOLEAN; "DEVICE  MRFFIL : BOOLEAN; "FILE END; FILL06 : WORD; "RESERVED  FILL07 : WORD; "RESERVED 8 MRBKDB : WORD; "KEY INDEX DEFINITION BLOCK (OFFSET)8 MRBRS4 : WORD; "RESERVED 4 MRBFLG : PACKED RECORD  "UTILITY FLAGS (2 BYTES)4- MRFFCA : BOOLEAN;  "FILE CREATED BY ASSIGN -%MRFFUS : 0.. 3;  "FILE USAGE FLAGS %MRFSCP : 0.. 3; "LUNO SCOPE ( MRFGEN : BOOLEAN;  "AUTOGENERATE LUNO(. MRFACR : BOOLEAN;  "REQUEST AUTOCREATE FILE.5 MRFPRM : BOOLEAN; "1=MRBPRM VALID (PARMS PRESENT) 54 MRFLRL : BOOLEAN; "USE LOGICAL REC. LENGTH GIVEN4. MRFTMP : BOOLEAN;  "FILE IS TO BE TEMPORARY.1 MRFIMW : BOOLEAN; "IMMEDIATE WRITE DISK FILES 1 MRFDFT : 0.. 3; "DATA FORMAT * MRFALL : BOOLEAN;  "ALLOCATION MAY GROW*MRFFTP : 0.. 3; "FILE TYPEEND;3 MRBDLL : WORD; "DEFINED LOGICALRECORD LENGTH 33 MRBDPL : WORD; "DEFINED PHYSICAL RECORD LENGTH 3+ MRBPNA : WORD;  "PATHNAME ADDR (OFFSET) ++ MRBPRM : WORD;  "PARAMETER PTR (OFFSET) + MRBRS5 : WORD; "RESERVED  M6RBIFA : LONGINT;"INITIAL FILE ALLOCATION (2 WORDS)6: MRBSFA : LONGINT;"SECONDARY FILE ALLOCATION (2 WORDS): );  ); END; (*$ RESUME LIST *)URN INDEX 0*NHESRT EQU$  2 HES___ GOOD RETURN *0NOUTRT EQU$ 2 HOUTP4/HOUTP7 GOOD RETURN0* '  DATA 0 ! .RD0RTN EQU$  4 READ SIGNAL = 0 RETURN .* '  DATA 0 ! .RD1RTN EQU$  6 READ SIGNAL = 1 RETURN .  RORG "  PAGE " * '*  (PDXFLG) <*  FLAG BYTE IN THE LOCAL PDT EXTENSION CONTAINS FLAGS <:*  INDICATING THE EIA RS232C SIGNALS FOR WHICH THERE ::*  HAS BEEN A STATUS CHANGE NOTIFICATION REQUESTED. :6*  IF THERE HAS BEEN A REQUEST FOR STATUS CHANGE6*  NOTIFICNKDB PCn3y@(*$ NO LIST *)?"************************************************************ ?"** /"* KEY DESCRIPTOR BLOCK(KDB) 09/10/79* /"** %"* LOCATION: STA (PART OF IRB) * %?"************************************************************ ?="* THE KDB IS PART OF A CREATE KEY INDEXED FILE I/O REQUEST =0"* BRB WHICH DESCRIBES THE KEYS TO BE CREATED.0 KDB = PACKED RECORD  KDBOVH : WORD; "OVERHEAD H# KDBMLR : PACKED ARRAY [ 1.. 2 ] OF WORD; "MAX NUMBER LOGICAL RECORDSH# KDBNKY : WORD; "NUMBER OF KEYS #F" KDBOFF : PACKED ARRAY [ 1..56 ] OF BYTE; "SPACE FOR MAXIMUM # KEYSF" KDBFGS : PACKED RECORD "FLAGS"FILL00 : 0.. 7; 3 KDBPLG : BOOLEAN; "BIT 3 SET IF PARTIAL LOGGING 3KD0B33 : BOOLEAN; "BIT 4 SET IF SEQUENTIAL KIF03 KDBOFG : BOOLEAN; "BIT 5 SET IF KEY IS OPTIONAL 34 KDBSFG : BOOLEAN; "BIT 6 SET IF SEQUENTIAL CMNDS41 KDBDFG : BOOLEAN; "BIT 7 SET IF DUPLICATES OK 1END;0 KDBSIZ : BYTE; "NUMBER OF CHARACTERS IN KEY0) KDBO : WORD;  "KEY OFFSET IN RECORD )END; (*$ RESUME LIST *): WORD;  "DATA BASE KEY (3 WORDS), FILL00 : WORD; "  FILL01 : WORD; " - KCBBTP : WORD;  "B-TREE POINTER (3 WORDS) - FILL02 : WORD; "  FILL03 : WORD; " & KCBBES : WORD;  "B-TREE ENTRY SIZE&% KCBLOC : BYTE;  "LAST OPCODE USED %# KCBCOC : BYTE; "CURRENT OPCODE # ); END; (*$ RESUME LIST *) "PASSWORD6 JMRACC : PACKED ARRAYMFID PC l3y(*$ NO LIST *)?"************************************************************ ?"** /"* FILE IDENTIFICATION  (FID)02/22/80* /"** "* LOCATION:FILES * ?"************************************************************ ?;"* THE FID IS USED TO IDENTIFY WITHIN A FILE ITS NAME AND ;; "* VERSION NUMBER.THIS IS USED FOR SYSTEM FILES SUCH AS ; "* S$CLF AND S$SDTQUE."*FID = PACKED RECORD 7 FIDNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "FILE NAME 7< FIDVER : PACKED ARRAY [ 1.. 6 ] OF CHAR; "VERSION NUMBER<END; (*$ RESUME LIST *)cc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LMLGDATA PC# 2<y(*$ NO LIST *) LGDATA : PACKED RECORD LOGMAX : BYTE; , LOGDEV : PACKED ARRAY [ 1.. 5 ] OF BYTE; ,, ATNDEV : PACKED ARRAY [ 1.. 5 ] OF BYTE; , USEFIL : BYTE; , FILL00 : PACKED ARRAY [ 1..30 ] OF BYTE; ,END; (*$ RESUME LIST *)(*$ NO LIST *)?"************************************************************ ?"** /"* FILE IDENTIFICATION  (FID)02/22/80* /"** "* LOCATION:FILES %%* ?"************************************************************ ?;"* THE FID IS USED TO IDENTIFY WITHIN A FILE ITS NAME AND ;; "* VERSION NUMBER.THIS IS USED FOR SYSTEM FILES SUCH AS ; "* S$CLF AND S$SDTQUE."*FID = PACKED RECORD 7 FIDNAM : PACKED APSVB PC&3y(*$ NO LIST *)>"***********************************************************>*"* STAGE VALUE BLOCK (SVB) 02/07/82 **"* *,"*LOCATION: NAME DEFINITION SEGMENT *,>"***********************************************************> SVB = PACKED RECORD ' SVBSVB : @SVB ; "LINK TO NEXT SVB '1 SVBSNO : BYTE; "STAGE NUMBER WITH THIS VALUE 1. SVBFLG : PACKED RECORD  "VALUE BLOCK FLAGS.+ SVFPRM : BOOLEAN;  "PARMS ARE IN 1ST VCB +- SVFBSY : BOOLEAN;  "IOU IS GENERATING NAME -) SVFAGN : BOOLEAN;  "IOU GENERATED NAME )( SVFPRO : BOOLEAN;  "NAME IS PROTECTED()SVF004 : 0..15;  "FLAG BITS 4-7 UNUSED )END;2 SVBVDB : @VDB ;"VALUE DEFINITION BLOCK ADDR2END; (*$ RESUME LIST *) UNL=*********************************************************** =+*  STAGE VALUE BLOCK (SVB)  02/07/82 * +* * -*  LOCATION: NAME DEFINITION SEGMENT * -=*********************************************************** =  DORG 0 $SVBSVB PTRSVB LINK TO NEXT SVB$.SVBSNO BYTE 0 STAGE NUMBER WITH THIS VALUE.#SVBFLG FLAGS 8 VALUE BLOCK FLAGS #$ FLAG SVFPRM PARMS ARE IN 1ST VCB$& FLAG SVFBSY IOU IS GENERATING NAME&" FLAG SVFAGN IOU GENERATED NAME"! FLAG SVFPRO NAME IS PROTECTED !& BITS SVF004,4 FLAG BITS 4-7 UNUSED&/SVBVDB PTRVDB VALUE DEFINITION BLOCK ADDR /SVBSIZ EQU$  RORG  PAGE  LIST ORG "  PAGE "  LIST " STFINT,4INTERRSCPTYPES PC,!2>y@(*$ NO LIST *)!<"******************************************************* < "  * 8" GLOBAL TYPE DEFINITIONS FOR PATCH 07/12/79  * 8 "  * <"******************************************************* <" ' PHASE_ID = PACKED RECORD ID : BYTE;$ SEGTYPE : (PROCEDUR,TASK,OVLY);$  END;  ( PFREC_TYPE=(OVERHEAD,INDEX,IMAGE); (, MOD_NAME = PACKED ARRAY[1..8] OF CHAR; ,. BIT_MAP = PACKED ARRAY [BYTE] OF BOOLEAN;."?COPY DSC.TEMPLATE.PTABLE.PFZ ""?COPY DSC.TEMPLATE.PTABLE.PFI "(*$ NO LIST *)! BUFFER = PACKED RECORD  CASE PFREC_TYPE OF  OVERHEAD : (PFZ_REC : PFZ);  INDEX : ( CASE BOOLEAN OF(  TRUE : (NAMES : ARRAY [0..31] OF MOD_( NAME); 4 FALSE : (PFI_REC : PACKED ARRAY[0..15] OF PFI); 4 );6IMAGE : (WRD : PACKED ARRAY [0..127] OF INTEGER); 6  END;  * PROGRAMFILE = RANDOM FILE OF BUFFER; *. SEQ_BUFFER = PACKED ARRAY[1..80] OF CHAR;. SEQUENTIALFILE = TEXT; B PATCHES = (INSERT_BEFORE,INSERT_AFTER,REPLACE,INSERT_INSTEAD,B DELETE); (*$ LIST *) "' MRBSOC : BYTE;  "SVC OPERATION CODE ', MRBEC: BYTE;  "SVC RETURN (ERROR) CODE,' MRBOC: BYTE;  "SUB-OPERATION CODE '( MRBLUN : BYTE;  "LOGICAL UNIT NUMBER() MRBSFL : PACKED RECORD "SYSTEM FLAGS ) MRFBSY : BOOLEAN; ̤k4`4S F" KDBOFF : PACKED ARRAY [ 1..56 ] OF BYTE; "SPACE FOR MAXIMUM # KEYSF" KDBFGS NIP PC23y@(*$ NO LIST *)?"************************************************************ ?"** /"*NETWORK I/O PARAMETER (NIP)  03/30/83 * /"** -"*LOCATION: POINTED TO BY IRBPRM FIELD* -"** ?"************************************************************ ?"*3"*THE NETWORK I/O PARAMETER IS GENERATED BY IOU 3/"*FOR ANY UTILITY OPERATION TO BE PERFORMED /2"*ACROSS THE NETWORK. IT CONTAINS INFORMATION20"*PERTAINING TO THE LOCAL ISSUER OF THE SVC.0"* NIP = PACKED RECORD ) NIPSLN : BYTE;  "SUBLIST NUMBER (>03) )4 NIPLEN : BYTE; "LENGTH OF PARM-2 IN BYTES (>14)4< NIPACT : PACKED ARRAY [ 1..16 ] OF BYTE; "ACCOUNT NUMBER<( NIPTSF : WORD;  "TASK FLAGS (TSBFL1)(! NIPJPR : BYTE; "JOB PRIORITY !  NIPTID : BYTE; "TASK RUN ID  NIPJID : WORD; "JOB ID " NIPRES : WORD; "RESERVED WORD"END; (*$ RESUME LIST *)/  ` "[ @ "bPP"$"b!! <,@.P HFG Y1+0  (T.DP.TEMPLATE.ATABLE.NIP).INPUT03T.DP.TEMPLATE.ATABLE.NIPLOPCODE P C8H3y@(*$ NO LIST *)?"************************************************************ ?"** -"*I/O SUBOPCODES (OPCODE) 9/03/81 * -"** ?"************************************************************ ??"*THIS TABLE CONTAINS ALL I/O SUBOPCODES EXCEPT FOR UTILITY ?8"*OPCODES. THE FORMAT OF EACH ENTRY IN THE TABLE IS:8!"*DATA 00+VAL !="*WHERE THE VAL IS A SYMBOL DEFINED BY THE MODULE =>"*COPYING THIS FILE; THUS, EACH OPCODE ENTRY IN THIS TABLE>="*CAN CONTAIN MODULE-SPECIFIC DATA. ALSO, IF A NEW ENTRY =="*IS DEFINED IN THIS TABLE, THE SYMBOL "VAL" WILL =<"*BE UNDEFINED, MAKING MODULES WHICH MUST UNDERSTAND ALL<&"*I/O OPCODES EASY TO FIND AND MOD& IFY TO COMPREHEND NEW "*OPCODES."*?"*DIRECT DISK I/O OPCODES ARE NOTED AS COMMENTS, WHERE THEY ?;"*DIFFER IN MEANING FROM I/O TO OTHER DEVICES OR FILES. ;"* OPC = PACKED RECORD  FILL00 : WORD; "OPEN  FILL01 : WORD; "CLOSE  FILL02 : WORD; "CLOSE W/EOF  FILL03 : WORD; "OPEN REWIND ! FILL04 : WORD; "CLOSE UNLOAD !  FILL05 : WORD; "READ STATUS " FILL06 : WORD; "FORWARD SPACE"  FILL07 : WORD; "BACK SPACE/ - FILL08 : WORD;  "COMM SPECIAL/TPD SPECIAL -  FILL09 : WORD; "READ ASCII/ ! FILL0A : WORD; "READ DIRECT/ !! FILL0B : WORD; "WRITE ASCII/ !" FILL0C : WORD; "WRITE DIRECT/"& FILL0D : WORD;  "WRITE END OF FILE& FILL0E : WORD;  "REWIND/  FILL0F : WORD; "UNLOAD/ FILL10 : WORD; "REWRITE/ + FILL11 : WORD;  "MOD. ACCESS PRIVILEGES +- FILL12 : WORD;  "OPEN EXTEND/OPEN WP MODE -# FILL13 : WORD; "OPEN UNBLOCKED #+ FILL14 : WORD;  "CLOSE W/OUT FDR UPDATE +/ FILL15 : WORD; "SET DEVICE CHARACTERISTICS /$ FILL16 : WORD; "DIAGNOSTIC PORT$* FILL17 : WORD;  "READ W/ INITIAL VALUE*  FILL18 : WORD; "MASTER READ + FILL19 : WORD;  "MASTER READ-CALL-BLOCK +! FILL1A : WORD; "MASTER WRITE !) FILL1B : WORD;  "REDIRECT ASSIGN LUNO ). FILL1C : WORD;  "READ 32 BITS (INDUSTRIAL).. FILL1D : WORD;  "READ INT BIT (INDUSTRIAL)./ FILL1E : WORD; "WRITE SEQUENTIAL (INDUST.) /& FILL1F : WORD;  "WRITE RANDOM (IND& USTRIAL)  FILL20 : WORD; "OPEN RANDOM ! FILL21 : WORD; "READ GREATER !  FILL22 : WORD; "READ BY KEY ( FILL23 : WORD;  "READ BY PRIMARY KEY(* FILL24 : WORD;  "READ GREATER OR EQUAL* FILL25 : WORD; "READ NEXT FILL26 : WORD; "INSERT  FILL27 : WORD; "REWRITE" FILL28 : WORD; "READ PREVIOUS"" FILL29 : WORD; "DELETE BY KEY" FILL2A : WORD; "UNLOCK ' FILL2B : WORD;  "SET CURRENCY EQUAL '/ FILL2C : WORD; "SET CURRENCY EQUAL/GREATER /) FILL2D : WORD;  "SET CURRENCY GREATER )& FILL2E : WORD;  "MULTI-RECORD READ&' FILL2F : WORD;  "MULTI-RECORD WRITE '% FILL30 : WORD;  "TABLE TERMINATOR % (*$ RESUME LIST *)ITE OF0$"* PARTIAL BIT MAP DOES NOT VERI$VDSTJMP PCD83?y(*$ NO LIST *)?"************************************************************ ?"** "*TITLE:TPD JUMP TABLE* '"*REVISION: 19 MAY 1980 ORIGINAL * '/"*03 NOV 1981 PDW NEED ENTRY SO THAT NO* /#"* DELAY BEFORE DROPPING RTS * #"*COMPUTER: DX10* ;"*ABSTRACT: THIS COPY MEMBER PRODUCES A TEMPLATE OR* ;;"*TABLE FOR INTERFACE BETWEEN TPD DSR AND COMISR OR * ;9"*TTYISR. FIXED OFFSETS IN TABLE CONTAIN VARIABLE* 97"*JUMPS TO ACTUAL CODE. CLUMSY, BUT EFFECTIVE. * 7"** ?"************************************************************ ?"*"*VECTOR MACRO"* :VC = PACKED RECORD  :VC.S: : WORD; "TEMPLATE  FILL00 : WORD; " END;"*"*END; (*$ RESUME LIST *) DATA 0 P UNL %% DIBLTA BYTE 0  *LINE TURNAROUND (=EOT)*2DIBSUB BYTE 0 W4W4RTO&+,@P .P#f *  # ) # ), " #   %   PPTCP  `P /'` " "$/('` "/(` "CI  B I /Jg!!!!D>( ( ! Dd   t "$/(` "Ę "!WACC P CJK\3y@(*$ NO LIST *)?"************************************************************ ?"** 3"*ACCOUNTING RECORD CONTENTS (ACC)09/09/83* 3"** /"* LOCATION: SYSTEM TABLE AREA OR DISK * /?"************************************************************ ?="* THE ACC DESCRIBES THE FORMAT OF ENTRIES ON THE QUEUE FOR =;"* PROCESSING BY THE ACCOUNTING FORMATTING TASK (LGACCT). ;:"* WITH THE EXCEPTION OF THE QUEUE LINK, THE ENTRIES ARE:>"* EXACTLY THE SAME WHEN ON DISK IN THE ACCOUNTING LOG FILE.>="* EACH BLOCK TYPE HAS ITS OWN SET OF INFORMATION FOLLOWING =>"* A STANDARD HEADER. THE EXCEPTION IS IPL (RECORD TYPE 6),>,"* WHICH USES ONLY THE HEADER INFORMATION., ACC = PACKED RECORD   ACCLNK : WORD; "QUEUE LINK CASE INTEGER OF $ 1 : ( "FIELD DESCRIPTOR VARIANT$  ACCTYP : BYTE; "RECORD TYPE % ACCLEN : BYTE;  "LENGTH OF RECORD %% ACCYRD : PACKED RECORD "YEAR/DAY %#ACCYER : 0..127; "YEAR (7 BITS) #"ACCDAY : 0..511; "DAY (9 BITS)"END; ACCHOU : BYTE; "HOUR  ACCMIN : BYTE; "MINUTE  ACCSEC : BYTE; "SECOND  ACCPRI : BYTE; "PRIORITY  ACCJID : WORD; "JOB ID CASE INTEGER OF ' 1 : ( "TYPE 1 - JOB INITIALIZATION '8 ACCAID : PACKED ARRAY [ 1..16 ] OF CHAR; "ACCOUNT ID85 ACCUID : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER ID 56 ACCJNM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "JOB NAME6 ); % 2 : ( "TYPE 2 - TASK TERMINATION %  ACCTID : BYTE; "TASK ID# ACCTCD : BYTE; "TASK TERM CODE #2 ACCCPU : LONGINT;"TASK CPU TIME (CLOCK TICKS)2* ACCSVC : LONGINT; "NUMBER SVC'S ISSUED*1 ACCIOB : LONGINT;"NUMBER I/O BYTES TRANFERED 10 ACCMEM : WORD; "MAX MEMORY ALLOCATED(BEETS)00 ACCWAL : LONGINT; "WALL CLOCK EXECUTION TIME0& ACCIID : BYTE;  "INSTALLED TASK ID& ACCSTN : BYTE; "STATION ID $ ACCATR : WORD; "TASK ATTRIBUTES$7 ACCTNM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "TASK NAME 7 ); $ 3 : ( "TYPE 3 - JOB TERMINATION$" ACCJUD : WORD; "JCA AREA USED"# ACCJSZ : WORD; "JCA TOTAL SIZE #) ACCJEX : LONGINT; "JOB EXECUTION TIME ) ); ! 4 : ( "TYPE 4 - DEVICE ENTRY !& ACCTPF : BYTE;  "DEVICE TYPE FLAGS&(  ACCDTP : BYTE; "DEVICE TYPE 9 ACCNAM : PACKED ARRAY [ 1.. 4 ] OF CHAR; "DEVICE NAME 9* ACCNRQ : LONGINT; "NUMBER I/O REQUESTS*0 ACCTMU : WORD; "RESERVED-TIME USED(MINUTES)0 );  5 : ( "TYPE 5 - USER ENTRY 7 ACCCHR : PACKED ARRAY [ 1..70 ] OF CHAR; "USER DATA 7 );  6 : ( "TYPE 6 - IPL );  7 : ( "TYPE 7 - COMM ENTRY 7 ACCCOM : PACKED ARRAY [ 1..70 ] OF CHAR; "COMM DATA 7 );  ); ! 2 : ( "SINGLE ENTITY VARIANT !. ACCTXT : PACKED ARRAY [ 1..80 ] OF CHAR; ". ); END; (*$ RESUME LIST *).INPUT03T.DP.TEMPLATE.ATABLE.ACC*QIR PCV\3Uy(*$ NO LIST *)?"************************************************************ ?"** -"* QUEUED IPC REQUEST(QIR) 8/15/81 * -"** "* LOCATION: SYSTEM AREA * ?"************************************************************ ?>"*THE QIR IS PUT ON THE IPC TASK QUEUE WHEN AN IPC REQUEST>/"*CANNOT BE PROCESSED IN FAST TRANSFER IPC. /QIR = PACKED RECORD * QIRQIR : @QIR ; "POINTER TO NEXT QIR*+ QIRJSB : @JSB ; "JSB ADDRESS OF OWNER +5 QIRCCB : @CCB ;"ADDRESS OF CCB TO BE PROCESSED 5END; (*$ RESUME LIST *) RECORD , QHRNEW : WORD;  "ADDRESS OF NEWEST ENTRY,, QHROLD : WORD;  "ADDRESS OF OLDEST ENTRY,/ QHRCNT : BYTE; "NUMBER OF ENTRIES ON QUEUE /YNFER00 PCY3 y@(*$ NO LIST *) NFER00 : PACKED RECORD ERR00: BYTE; " , ERR01: BYTE;  "TASK ERR -MEMORY PARITY,2 ERR02: BYTE; "TASK ERR -ILLEGAL INSTRUCTION2. ERR03: BYTE;  "TASK ERR -TILINE TIME OUT.6 ERR04: BYTE; "TASK ERR -SVC PROCESSOR HAD ERROR65 ERR05: BYTE; "TASK ERR -ILLEGAL MEMORY ADDRESS 50 ERR06: BYTE; "TASK ERR -PRIVILEGED OPCODE0* ERR07: BYTE;  "TASK ERR -TASK KILLED*5 ERR08: BYTE; "TASK ERR -INSUFFICIENT USER TASK 56 ERR09: BYTE; "TASK ERR -MAP SEGMENT NOT PRESENT65 ERR0A: BYTE; "TASK ERR -EXEC PROTECT VIOLATION 56 ERR0B: BYTE; "TASK ERR -WRITE PROTECT VIOLATION6- ERR0C: BYTE;  "TASK ERR -STACK OVERFLOW -( ERR0D: BYTE;  "TASK ERR -HARDWARE ( BREAKPOINT 2 ERR0E: BYTE; "TASK ERR -12 MS CLOCK EXPIRED22 ERR0F: BYTE; "TASK ERR -ARITHMETIC OVERFLOW2END; (*$ RESUME LIST *) IN CALL BLK DOESN'T ,"*  AGREE WITH SUM OF LENGTHS "$*  OF INDIVIDUAL RECORDS (FOR $*  MULTI-RECORD WRITES) 8ERR09 BYTE >09  TASK ERR -MAP SEGMENT NOT PRESENT 8(*  SVC00 -DD I/O BY NON-PRIV TASK ((*  SVC40 -OLD SEGMENT NOT IN TASK (8ERR0A BYTE >0A  TASK ERR -EXEC PROTECT VIOLATION 8**  SVC40 -INSTALLED ID NOT USED FOR **  MEMORY BASED SEGMENTS ,*  SVC00-LOSS OF DCD ON REMOTE TERM ,8ERR0B BYTE >0B  TASK ERR -WRITE PROTECT VIOLATION 8,*  SVC00-LUNO IN USE BY ANOTHER TASK ,*  SVC40-SEGMEZSGOVID P C_J2By@(*$NO LIST*)"D" THE FOLLOWING ARE USED BY SYSGEN TO INITIALIZE ANY VARIABLE DB" FIELD OF A JENDAT RECORD WHICH NEEDS AN OVERLAY ID. THIS B@" DATA IS REALLY ONLY HERE FOR A READING CONVIENCE AND THE@$" DOCUMENTATION THUS PROVIDED.$(oidSMTA = 1;oidCOMMON = 2;oidSVCSHD = 3;oidSVCTWO = 4;oidKMORWT = 5;oidFMORWT = 6;oidFMOMSC = 7;oidFMOEXT = 8;oidFMOOPX = 9;oidKMOINS = 10;oidKMODLS = 11;oidKMOOPC = 12;oidKMOBDE = 13;oidKMOBTI = 14;oidKMORWS = 15;oidDMALLC = 16;oidDMCHPM = 17;oidCFDFOV = 18;oidRFAADA = 19;oidIUMISC = 20;oidPMERRS = 21;oidKMOPLG = 22;oidRES23= 23;oidRES24= 24;oidDSRCR= 25;oidDSRLP= 26;oidDSRDSK = 27;oidDSR979 = 28;oidDSRKSR = 29;oidDSRASR = 30;oidDSRTPD = 31;oidDSR911 = 32;oidDSRSPC = 33;oidRES34= 34;oidDSRRDE = 35;oidSD1= 36;oidSD2= 37;oidSD3= 38;oidSD4= 39;6oidDSR3780= 40;oidDSR2780 = 40; " BOZO BEWARE6oidDSR3270= 41;oidDSRHDLC= 42;oidDSRLAP = 43;oidDSRCMNS= 44;oidDSRCOMA= 45;oidDSRCOMB= 46;oidDSR3270S = 47;oidDSRSDLC= 48;oidDSRRTS = 49;oidSD5= 50;oidSD6= 51;oidSD7= 52;oidSD8= 53;oidSD9= 54;oidSD10 = 55;oidSD11 = 56;oidSD12 = 57;oidSD13 = 58;oidSD14 = 59;oidSD15 = 60;oidSYSJCA = 64;oidDSR93A = 66;oidDSR93B = 67;oidDSR93C = 68;oidDSRVT= 69;oidDSREN= 70;(*$RESUME LIST*)  1..70 ] OF CHAR; "USER DATA 7 );  6 : ( "TYPE 6 - IPL );  ); ! 2 : ( "SINGLE ENTITY VARIANT !. ACCTXT : PACKED ARRAY [ 1..80 ] OF CHAR; ". ); END;: WORD; "PROGRAM COUNTER$$ SLBST: WORD; "STATUS AT ERR"k4*`4[KIT PChn32y(*$ NO LIST *)?"************************************************************ ?"** )"*KIF TASK AREA (KIT) 05/10/84* )"** %"* LOCATION: SYSTEM TABLE AREA * %/"* (USED ONLY BY ASSEMBLY LANGUAGE CODE)* /?"************************************************************ ??"* THE KIT IS ATTACHED TO THE FILE MANAGEMENT WORK AREA (FWA) ?;"* FOR ADDITIONAL WORKING STORAGE FOR KIF PROCESSING. IT ;>"* INCLUDES INFORMATION ABOUT THE CURRENT REQUEST, THE STATE>;"* OF THE FILE, AND SEVERAL FIELDS OF THE FCB TO MINIMIZE ;"* M%%APPING DURING PROCESSING. ?"************************************************************ ?"** 1"* FILE MANAGER WORK AREA (FWA)01/21/82* 1"**  @"* LOCATION: SYSTEM AREA * ?"************************************************************ ?>"*THE FWA IS USED BY FILE MANAGEMENT AND BY KIF MANAGEMENT>5"*AS A GENERAL WORK AREA. R15 POINTS TO THE FWA. 5 FWA = PACKED RECORD B FWAWP: PACKED ARRAY [ 1..32 ] OF BYTE; "WORKSPACE USED BY FMB) FWAFLG : WORD;  "MIDDLE SEGMENT FLAGS )2 FWATCT : WORD; "MULTIRECORD CHARS TRANSFERRED23 FWAOAD : @OAD ;"CURRENT OVERLAY AREA ADDRESS 3* FWAPC: WORD;  "SAVED PROGRAM COUNTER*. FWAXWP : WORD;  "BLWP VECTOR FOR RETURNING. FWAXPC : WORD; " C FWABN: PACKED ARRAY [ 1.. 2 ] OF WORD; "SAVED RPBBN (2 WORDS) C! FWAOCB : WORD; "SAVED RPBOCB !$ FWALFG : WORD; "SAVED LDT FLAGS$  FWAFFC %: @FSC ; "FIRST FCB FOR CC FILES %3 FWAFMT : @SSB ;"SSB FOR THE FMT WITH THE FCB 3- FWAFCB : @FSC ; "FCB ADDRESS IN THE FMT -. FWABST : @SSB ; "SMT SSB ADDR FOR BUFFER.* FWABSB : @SSB ; "SSB ADDR FOR BUFFER*) FWAPRS : WORD;  "PHYSICAL RECORD SIZE )/ FWAUBT : @SSB ; "USER BUFFER SMT SSB ADDR /. FWAUBS : @SSB ; "USER BUFFER SSB ADDRESS.' FWAUBO : WORD;  "USER BUFFER OFFSET '' FWAUBL : WORD;  "USER BUFFER LENGTH ' FWAFMB : WORD; "FMT BIAS 1 FWARN1 : WORD; "RECORD # RELATIVE TO CURRENT 1- FWARN2 : WORD;  "FILE OF CONCATENATED SET -. FWAOOB : WORD;  "OLD OFFSET IN USER BUFFER., FWAUBR : WORD;  "BUFFER LENGTH REMAINING,+ FWAFFG : PACKED RECORD "FILE MGR FLAGS +.@- FWAPOP : BOOLEAN;  "PASSIVE OPERATION FLAG -5 FWAQW : BOOLEAN; "QUEUED TO WAITING QUEUE IN FCB 58 FWAKIF : BOOLEAN; "KIF REQUEST(1) NOT KIF REQUEST(0)8 FILL00 : 0..8191; END;9 FWASTK : PACKED ARRAY [ 1..160 ] OF BYTE;"STACK AREA 9END;CASE INTEGER OF . 1 : ( "TEMPORARY KIF STORAGE IN TASK AREA.8 FILL01 : PACKED ARRAY [ 1..220 ] OF BYTE;"KIF STACK82 KITBKM : LONGINT;"LOGICAL BLOCK END OF MEDIUM2+ KITCMD : WORD;  "CURRENT COMMAND NUMBER +- KITEBQ : LONGINT; "EMPTY BLOCK QUEUE HEAD -& KITCLB : WORD;  "CURRENT LOG BLOCK&, KITFBQ : LONGINT; "FREE BLOCK QUEUE HEAD,! KITBTR : WORD; "B-TREE ROOTS !D! KITKDB : PACKED ARRAY [ 1..58 ] OF BYTE; "KDB OF CURRENT REQUESTD K.BUF1A : WORD; "ADDRESS OF FIRST KEY BUFFER.1 KBUF2A : WORD; "ADDRESS OF SECOND KEY BUFFER 10 KBUF3A : WORD; "ADDRESS OF THIRD KEY BUFFER01 KEYNUM : WORD; "KEY # OF KEY CURRENTLY USING 1- KEYSZ: WORD;  "SIZE (CHARS) OF THIS KEY -: BTSTK: PACKED ARRAY [ 1..60 ] OF BYTE; "B-TREE STACK:3 BTSTKA : WORD; "ADDR 1ST ENTRY OF B-TREE STACK 34 BTSPTR : WORD; "ADDR 1ST UNUSED B-T STACK ENTRY43 NEIBTS : WORD; "NUMBER ENTRIES IN B-TREE STACK 33 TS1L2: WORD; "1 WORD OF LEVEL 1 TEMP STORAGE 33 TS1L2A : WORD; "1 WORD OF LEVEL 1 TEMP STORAGE 33 TS1L2B : WORD; "1 WORD OF LEVEL 1 TEMP STORAGE 33 TS1L2C : WORD; "1 WORD OF LEVEL 1 TEMP STORAGE 30 TS1L2D : WORD; "1 WORD OF LEVEL 1 TEMP STOR0AGE L TS1L4!: PACKED ARRAY [ 1.. 2 ] OF WORD; "2 WORDS OF LEVEL 1 TEMP STORAGL% T1L4A: WORD;  "ADDRESS OF TS1L4 %L RWNID!: PACKED ARRAY [ 1.. 3 ] OF WORD; "LEVEL 1 TS (NEW DATA BASE KEY)L% RWNIDA : WORD;  "ADDRESS OF RWNID %8 BTLEVL : WORD; "LEVEL 2 TS (B-TREE LEVELS ON STACK)8L TS2L4!: PACKED ARRAY [ 1.. 2 ] OF WORD; "2 WORDS OF LEVEL 2 TEMP STORAGL% T2L4A: WORD;  "ADDRESS OF TS2L4 %L% TS2L4A : PACKED ARRAY [ 1.. 2 ] OF WORD; "2 WORDS OF LEVEL 2 TEMP STORAGL& T2L4AA : WORD;  "ADDRESS OF TS2L4A&L% TS2L4B : PACKED ARRAY [ 1.. 2 ] OF WORD; "2 WORDS OF LEVEL 2 TEMP STORAGL& T2L4BA : WORD;  "ADDRESS OF TS2L4B&& RQDBKA : WORD;  "ADDRESS OF KCBDBK&& RQBTPA : WORD;  "ADDRESS OF KCBBTP&(& BTDBKA : WORD;  "ADDRESS OF BTBDBK&E TDBK : PACKED ARRAY [ 1.. 6 ] OF BYTE; "TEMPORARY DATA BASE KEY E3 ATDBK: WORD; "ADR OF TEMPORARY DATA BASE KEY 3* KITFLG : PACKED RECORD "KIF FLAG WORD*%LEAFBT : 0..255; "SAVED LEAF FLAG %& FDRCFG : BOOLEAN; "FDR CHANGE FLAG&( BTSPLT : BOOLEAN;  "B-TREE SPLIT FLAG(& PASREQ : BOOLEAN; "PASSIVE REQUEST&0 ALTSEQ : BOOLEAN;  "ALTERNATE SEQ (INT'L KIF)0' CNVKEY : BOOLEAN;  "CONVERT REQ FLAG 'FILL02 : 0.. 7; END;, CWSR4: WORD;  "KMCNV BASE DATA ADDRESS,, CWSR5: WORD;  "KMUCV BASE DATA ADDRESS, ); END; (*$ RESUME LIST *)EP6IRBRT EQUIRBXFL RESOURCE TYPE/TYPE FLAGS FOR CC6%IRBFCH BYTE 0  VDT FILL CHARACTER %(\NFPTR P C}>`3 y@(*$ NO LIST *) NFPTR : PACKED RECORD- TDLHDR : @TDL ; "TIME DELAY LIST HEADER -5 WOMQUE : @WOM ;"WAITING ON MEMORY QUEUE HEADER 5/ EXTSB: @TSB ; "CURRENTLY EXECUTING TASK /1 EXJSB: @JSB ;"EXECUTING TASK JSB ADDRESS 1( PDTLST : @PDT ; "START OF PDT LIST(( LDTLST : @LDT ; "START OF LDT LIST(( JSBLST : @JSB ; "START OF JSB LIST(/ ACTJSB : @JSB ; "START OF ACTIVE JSB LIST /6 WOMJSB : @JSB ;"START OF JSBS WAITING ON MEMORY6- JCASTR : @JIT ; "START OF ALL JCA AREAS -, MBSSTR : @SGB ; "POINTER TO SYSTEM SGB,4 PDTSAV : @PDT ;"POINTER TO SAVED PDT FOR DSRS42 MAPSHD : WORD; "POINTER TO SCHEDULER MAP FILE22 MAPSV2 : WORD; "POINTER TO SVC SECOND MAP FIL2E 2 CURMAP : WORD; "POINTER TO CURRENT MAP 0 FILE2. RUTSSB : @SSB ; "POINTER TO SSB FOR ROOT.0 COMSSB : @SSB ; "SSB ADDR OF SYSTEM COMMON03 SMSTR: @SSB ;"SSB ADDR OF FIRST SM SEGMENT 32 SMEND: @SSB ;"SSB ADDR OF LAST SM SEGMENT23 FMSTR: @SSB ;"SSB ADDR OF FIRST SM SEGMENT 32 FMEND: @SSB ;"SSB ADDR OF LAST SM SEGMENT24 YRPTR: WORD; "PTR TO YEAR COUNTER (DATE&TIME)40 SYSTAB : WORD; "OVERHEAD PTR FOR TABLE AREA0/ SPATCH : WORD; "START OF PATCH AREA S$$PAT / IXPTR: WORD; "ILLEGAL PC & PCAPTR : WORD;  "MUX DEV/INT ENTRY& FILL00 : WORD; "RESERVED  FILL01 : WORD; "RESERVED  FILL02 : WORD; "RESERVED  FILL03 : WORD; "RESERVED  FILL04 : WORD; "RESERVED 3 TRCPTR : WORD; "POINTER TO /12 TRACE SAVE AREA 3. BIDREQ : @PDT ; "ANCHOR FOR BID REQUESTS.. EORNKR : @PDT ; "ANCHOR FOR EOR REQUESTS.0 SYSJSB : @JSB ; "POINTER TO SYSTEM JOB JSB0/ CCBSTR : @CCB ; "START OF THE GLOBAL CCBS /E" SC0TID : PACKED ARRAY [ 1.. 2 ] OF BYTE; "NFTBID TASK ID AND LUNO E/ MAP1SV : WORD; "POINTER TO MAP FILE 1 SAVE /- MSGQUE : WORD;  "PTR TO PUT DATA MESSAGES -2 SOPJSB : @JSB ;"SYSTEM OPERATOR JSB ADDRESS2. SYSPDT : @PDT ; "SYSTEM DISK PDT ADDRESS., ETBPTR : WORD;  "EXPANSION CHASSIS TABLE,) PCSPTR : WORD;  "SINGLE DEV/INT ENTRY )+ PCMPTR : WORD;  "MULTIPLE DEV/INT ENTRY +, PCEPTR : WORD;  "EXPANSION CHASSIS ENTRY,001 OVYTAB : WORD; "SYSTEM OVERLAY TABLE ADDRESS 13 IDTAB: WORD; "IPL LOADED OVERLAY TABLE ADDR. 3+ COMPTR : WORD;  "POINTER TO COMM MODULE +* BADWP: WORD;  "ILLEGAL XOP WORKSPACE*' CLOK12 : WORD;  "12 MS CLOCK VECTOR ', WOTJSB : @JSB ; "TABLE AREA WAIT QUEUE,4 PDSOLD : WORD; "PRIORITY DSR SCHEDULER QUE HEAD44 PDSNEW : WORD; "PRIORITY DSR SCHEDULER QUE TAIL4$ FILL05 : WORD; "SVCSHD MAP FILE$$ FILL06 : WORD; "SVCTWO MAP FILE$$ MAPSV3 : WORD; "SVC3 MAP FILE$$ MAPSV4 : WORD; "SVC4 MAP FILE$END; (*$ RESUME LIST *) .$* AREA FOR LEVEL 2 INTERRUPTS $,MSGQUE WORD 0  PTR TO PUT DATA MESSAGES ,2SOPJSB PTRJSB SYSTEM OPERATOR JSB ADDRESS 2 SYSPDT P ;S4F PC3y(*$ NO LIST *)A "************************************************************** A"** 7"*POST EVENT FOR SPECIFIED TASK (S4F) 09/30/81* 7"** A "************************************************************** AS4F = PACKED RECORD + S4FSVC : BYTE;  "POST EVENT OP CODE=>4F +* S4FERC : BYTE;  "POST EVENT ERROR CODE*0 S4FRID : BYTE; "RUN ID OF TASK TO BE POSTED0- S4FFLG : PACKED RECORD  "POST EVENT FLAGS -FILL00 : 0.. 7; )S4FNUM : 0..31;  "EVENT NUMBER TO POST )END;0 S4FJID : WORD; "JOB ID OF TASK TO BE POSTED0% S4FRES : WORD;  "*** RESERVED *** %END; (*$ RESUME LIST *) ARRAY [ 1.. 8 ] OF CHAR; "JOB NAME6$ S48IID : BYTE; "INITIAL TASK ID$ S48^NFER60 PC3 y(*$ NO LIST *) NFER60 : PACKED RECORD?"************************************************************ ?"** ;"*NFER60- ERROR CONSTANTS COMMON AREA # 7 02/21/83* ;"** ?"************************************************************ ?3 ERR60: BYTE; "IOU -ODD RECORD LEN SPECIFIED 32 ERR61: BYTE; "IOU -ZERO INITIAL ALLOCATION25 ERR62: BYTE; "IOU-SEQ PHYS REC SIZ TOO SMALL 52 ERR63: BYTE; "IOU -PHYS REC SIZE LESS THAN25 ERR64: BYTE; "IOU-KIF LOGICAL R%%EC LNG = ZERO 55 ERR65: BYTE; "IOU-KEY BLK LNG WRONG FOR # OF 5, ERR66: BYTE; "IOU -NO KEYS SPECIFIED,5 ERR67: BYTE; "IOU-NUMBER OF KEYS EXCEEDS MAX 5, ERR68: BYTE; "IOU -NUMBER OF RECORDS,./ ERR69: BYTE; "IOU -PRIMARY KEY CAN'T BE /0 ERR6A: BYTE; "IOU -KEN LENGTH IS ZERO OR05 ERR6B: BYTE; "IOU-PHYS REC LNG TOO SMALL FOR 53 ERR6C: BYTE; "IOU -B-TREE PHYS REC SIZE TOO 33 ERR6D: BYTE; "IOU -PHYSICAL RECORD SIZE TOO 35 ERR6E: BYTE; "IOU-INTERSECTION OF MODIFIABLE 52 ERR6F: BYTE; "SVC34 -LUNO ASSIGNED TO FILE2END; (*$ RESUME LIST *).INPUT03T.DP.TEMPLATE.COMMON.NFER60^OVB P C/3y@(*$ NO LIST *)?"************************************************************ ?"** )"*OVERHEAD BEET (OVB) 10/04/83* )"** "* LOCATION: USER MEMORY * ?"************************************************************ ?>"* THE OVB IS THE 32 BYTES PRECEDING A SEGMENT WHEN IT IS IN>8"* MEMORY.THE OVB INCLUDES LINKAGE, TYPE, AND STATUS8#"* INFORMATION ABOUT THE SEGMENT. #"*<"* THE OVFROL FLAG ALSO HAS THE MEANING "SEGMENT LOGICALLY< "* NOT IN MEMORY".1"* THE OVBTIM IS THE COUNT OF TASKS WHICH BOTH: 12"*A) HAVE THE SEGMENT MAPPED IN OR LOADED, AND2<"*B) HAVE ALL THEIR MAPPED OR LOADED SEGMENTS PHYSICALLY<"* IN MEMORY. ,"* AN OVERRUN BEET IS ALLOCATED AT THE END, OF THE SEGMENT ="* TO PREVENT PROBLEMS WHICH COULD OCCUR BECAUSE OF /12 CPU ="* PRE-FETCH OR CACHE FLUSH."* OVB = PACKED RECORD 6 OVBLEN : WORD; "LENGTH OF SEGMENT + OVERHEAD BEET65 OVBPTR : WORD; "TSB ADDRESS WHEN BLOCK IS ON TOL 5/ OVBFLK : WORD; "FORWARD LINK TO NEXT BLOCK /0 OVBBLK : WORD; "BACKWARD LINK TO NEXT BLOCK0! OVBTYP : BYTE; "SEGMENT TYPE !3 OVBIOC : BYTE; "TILINE AND 911 I/O OUTSTANDING 38 OVBJSB : WORD; "JSB POINTER CORRESPONDING TO OVBPTR81 OVBSSB : WORD; "SEGMENT STATUS BLOCK POINTER 1+ OVBSMT : WORD;  "TABLE AREA SSB ADDRESS +4 OVBQLK : WORD; "QUEUE LINK (DEALLOCATE/WRITE Q)4/ OVBBRB : WORD; "POINTER TO FORCE WRITE BRB / FILL00 : PACKED ARR"AY [ 1.. 2 ] OF BYTE; "RESERVED"> OVBSTS : PACKED RECORD "SEGMENT STATUS (IN MEMORY STATUS)>- OVFWRT : BOOLEAN;  "SEGMENT ON WRITE QUEUE -. OVFROL : BOOLEAN;  "FORCE ROLL THIS SEGMENT.3 OVFUBS : BOOLEAN; "USER SEG USED AS FILE BUFFER 3FILL02 : 0..31; END; FILL01 : BYTE; "RESERVED . OVBEXC : WORD;  "EXECUTION TIME SINCE LOAD.E" FILL03 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESERVED FOR FUTURE USE E) OVBTIM : WORD;  "TASK IN MEMORY COUNT )END; (*$ RESUME LIST *) OPEN UNBLOCKED %- DATA >1400+VAL14  CLOSE W/OUT FDR UPDATE -1 DATA >1500+VAL15  SET DEVICE CHARACTERISTICS 1& DATA >1600+VAL16  DIAGNOSTIC PORT&, DATA >1700+VAL17  READ W/ INITIAL VALUE, DATA >1900+VA_LSCCONS PC2Jy@(*$ NO LIST *)!@"*********************************************************** @<"  LSCCONS - LIST SOFTWARE CONFIG. TASK CONSTANTS * <" 23 OCT 1980  * @"*********************************************************** @ (*$ RESUME LIST *)" '"  SVC OPCODES" '( RSD=#3F;  " RETRIEVE SYSTEM DATA (" '" '"  TITLE LINES" 'D HEADR_LINE1 = 'S O F T W A R E U P D A T E P R O F I L E'; D8 HEADR_LINE2 = 'RELEASE INSTALL  PATCH LAST'; 8 HEADR_LINE3 =@'SOFTWARE PACKAGE #7F#0EREVISIONDATEDATEDATEPATCH'; @" '" '"  CONDITION CODES" ' ABEND=#C000;  " ABEND  NONFATAL=#8000; " NONFATAL  NORMAL=0; " NORMAL , SVCFILE=1;  " SVC MESSAGE FILE NUMBER,4 UTILITYFILE=2;  " UTILITY MESSAGE FILE NUMBER 4" 'XECUTION TIME SINCE LOAD.E" FILL03 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESERVED FOR FUTURE USE E) OVBTIM : WORD;  "TASK IN MEMORY COUNT )END; (*$ RESUME LIST *)TOO SMALL FOR 53 ERR6C: BYTE; "IOU -B-TREE PHYS REC SIZE TOO 33 ERR6D: BYTE; "IOU -PHYSICA k4*`4H!LEAN;  "SEGMENT ON WRITE QUEUE !. OVFROL : BOOLEAN;  "FORCE ROLL THIS SEGMENT.FILL02 : 0..63; END; FILL01 : BYTE; "RESERVED . OVBEXC : WORD;  "EXECUTION TIME SINCE LOAD.E" FILL03 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESERVED FOR FUTURE USE E OaMBCOMN PCz2Ky@(*$ NO LIST *)!4 MBCOMN : PACKED RECORD " MAILBOX COMMON BLOCK 4IRB : PACKED RECORD "  IRBSOC : BYTE; " SVC OP-CODE""  IRBEC : BYTE; " ERROR CODE "  IRBOC : BYTE; " OP-CODE IRBLUN : BYTE; " LUNO $  IRBSFL : BYTE; " SYSTEM FLAGS $"  IRBUFL : BYTE; " USER FLAGS "*  IRBDBA : WORD; " DATA BUFER ADDRESS *,  IRBICC : WORD; " INPUT CHARACTER COUNT ,.  IRBOCC : WORD; " OUTPUT CHARACTER COUNT .*  IRBRPY : WORD; " REPLY BLOCK ADDRESS * END;FIRST : PACKED RECORD 4  REQPTR : @REQ; " POINTS TO FIRST REQ IN QUEUE 44  MSGPTR : @MSG; " POINTS TO FIRST MSG IN QUEUE 4 END;LAST: PACKED RECORD .  REQPTR : @REQ; " POINTS TO LAST REQ IN QUE.UE2  MSGPTR : @MSG; " POINTS TO LAST MSG IN QUEUE2 END;  END; !  (*$ RESUME LIST *) (*$ RESUME LIST *)TOO SMALL FOR 53 ERR6C: BYTE; "IOU -B-TREE PHYS REC SIZE TOO 33 ERR6D: BYTE; "IOU -PHYSICA k4*`4H!LEAN;  "SEGMENT ON WRITE QUEUE !. OVFROL : BOOLEAN;  "FORCE ROLL THIS SEGMENT.FILL02 : 0..63; END; FILL01 : BYTE; "RESERVED . OVBEXC : WORD;  "EXECUTION TIME SINCE LOAD.E" FILL03 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESERVED FOR FUTURE USE E O= 12;oidKMOBDE = 13;oidKMOBTI = 14; ̤k4`4@@'SOFTWARE PACKAGE #7F#0EREVISIONDATEDATEDATEPATCH'; @" '" '" aFSC PC{f3y@(*$ NO LIST *)?"************************************************************ ?"** 1"* FILE STRUCTURE COMMON  (FSC) 02/23/82 * 1"** /"* LOCATION: FILE MANAGEMENT TABLE AREA * /"** ?"************************************************************ ?<"* THE FSC IS COMPOSED OF A COMMON FIRST STRUCTURE THAT IS<="* SHARED BY BOTH THE FILE CONTROL BLOCK (FCB) AND THE FILE =;"* DIRECTORY BLOCK (FDB) VARIANTS OF THE REMAINDER OF THE ;"* STRUCTURE. <"*THE FCB IS AN IN-MEMORY REPRESENTATION THAT IS USED TO<?"* TRACK THE CHARACTERISTICS OF A FILE THAT IS IN USE. AN FCB ?8"* REPRESENTS THE LAST COMPONENT OF THE FILE PATHNAME.8:"*THE FDB IS AN IN-MEMORY STRUCTURE REPRESENTING ONE N:ODE ="* OF THE PATHNAME OF A FILE. IT PROVIDES TREE LINKAGE FOR ="* THE ENTIRE FILE PATHNAME. FSC = PACKED RECORD " FSCPDT : @PDT ;"PDT POINTER"5 FSCPDR : @DDR ;"PTR TO PARENT'S DIRECTORY DOOR 52 FSCEOM : LONGINT;"END OF MEDIUM LOGICAL REC #2# FSCAPB : BYTE; "ADUS PER BLOCK ## FSCBPA : BYTE; "BLOCKS PER ADU #, FSCPAS : WORD;  "PRIMARY ALLOCATION SIZE,/ FSCPAA : WORD; "PRIMARY ALLOCATION ADDRESS /  FSCSAA : WORD; "SAT ADDRESS ) FSCPRS : WORD;  "PHYSICAL RECORD SIZE )) FSCADU : WORD;  "FDR ADU OF THIS FILE )* FSCOFF : BYTE;  "FDR OFFSET WITHIN ADU*0 FSCMFG : PACKED RECORD  "MODIFIED ONLY FLAGS04 FSCMEC : BOOLEAN; "1 = END OF MEDIUM HAS CHANGED4FSCMWT : BOO'LEAN; "1 = FILE HAS BEEN WRITTEN IN ''FSCFU1 : 0.. 3;  "FILE USAGE BIT ONE '1 FSCDEL : BOOLEAN; "FDB DELETE PROTECTION FLAG 1FILL00 : 0.. 7; END;CASE INTEGER OF , 1 : ( "FCB - FILE CONTROL BLOCK VARIANT,2 FCBFCB : @FCB ;"LINK FOR CONCATENATED FILES2) FCBRPB : @RPB ; "START OF RPB CHAIN )0 FCBCCT : BYTE; "COUNT OF CONCATENATED FILES0' FCBFLB : PACKED RECORD "FLAGS BYTE '/ FCBFCC : BOOLEAN;  "FILE IS IN CONCATENATION /- FCBFUB : BOOLEAN;  "OPEN MUST BE UNBLOCKED -" FCBBSY : BOOLEAN; "FCB IS BUSY". FCBFSE : BOOLEAN;  "SUPPRESS EOF BEFORE EOM.FILL01 : 0..15; END;" FCBSGB : @SGB ;"SGB ADDRESS"/ FCBSMT : @SSB ; "SM TABLE AREA SSB OF SGB /  FCBFLG : PACKED RECORD "FILE FLAGS %FCBFFU : 0.. 3;  "FILE USAGE FLAGS % FCBFDF : 0.. 3; "DATA FORMAT ' FCBFAT : BOOLEAN;  "EXPANDABLE IF ON 'FCBFFT : 0.. 3; "FILE TYPE, FCBFWP : BOOLEAN;  "WRITE PROTECTED IF ON,- FCBFDP : BOOLEAN;  "DELETE PROTECTED IF ON -+ FCBFTF : BOOLEAN;  "TEMPORARY FILE IF ON +* FC%%BFBF : BOOLEAN;  "BLOCKED FILE IF OFF*( FCBFAF : BOOLEAN;  "ALIAS ENTRY IF ON() FCBFFW : BOOLEAN;  "FORCED WRITE IF ON )$ FCBFSC : BOOLEAN; "FILE SECURITY$5 FCBPLG : BOOLEAN; "FILE MARKED AS PARTIAL LOGGING 5 RESER : BOOLEAN; "RESERVED END;1 FCBFDB : @FSC ;"POINTER TO DIRECTORY ENTRY 1- FCBSFD : @SSB ; "SSB OF DIRECTORY ENTRY -( FCBLRS : WORD;  "LOGICAL RECORD SIZE(@. FCBSAS : WORD;  "SECONDARY ALLOCATION SIZE., FCBBKM : LONGINT; "END OF MEDIUM BLOCK #,) FCBOFM : WORD;  "END OF MEDIUM OFFSET ), FCBLRL : WORD;  "LOCKED RECORD LIST HEAD,2 FCBEXT : LONGINT;"BLOCK COUNT FOR FILE EXTENT2) FCBXCT : BYTE;  "FILE EXTENSION COUNT )2 FCBCLA : BYTE; "COUNT OF THINGS POINTING HERE2( FCBRLA : WORD;  "REQUEST LIST ANCHOR(0 FCBCPO : BYTE; "COUNT OF PASSIVE OPERATIONS0, FCBCAW : BYTE;  "COUNT OF ACTIVE WAITERS,0 FCBRED : WORD; "COUNT OF READS ON THIS FILE01 FCBWRT : WORD; "COUNT OF WRITES TO THIS FILE 1CASE INTEGER OF   1 : ( " ( FCBEBQ : LONGINT; "EMPTY BLOCK QUEUE(( FCBCLB : WORD;  "CURRENT LOG BLOCK #(( FCBFBQ : PACKED ARRAY [ 1.. 4 ] OF BY(TE; "FREE BLOCK QUEUE HEAD ) FCBBTR : WORD;  "B-TREE ROOTS BLOCK # ), FCBSBB : WORD;  "STARTING BUCKET BLOCK #,, FCBMRS : WORD;  "MINIMUM KIF RECORD SIZE,D! FCBKDB : PACKED ARRAY [ 1..58 ] OF BYTE; "KEY DESCRIPTIONS BLOCKD );   2 : ( " , FCBMNT : BYTE;  "MAXIMUM NUMBER OF TASKS,0 FCBTO: BYTE; "TASK DIRECTORY ENTRY OFFSET02 FCBTR: WORD; "TASK DIRECTORY ENTRY RECORD #21 FCBMNP : BYTE; "MAXIMUM NUMBER OF PROCEDURES 10 FCBPO: BYTE; "PROC DIRECTORY ENTRY OFFSET02 FCBPR: WORD; "PROC DIRECTORY ENTRY RECORD #2/ FCBMNO : BYTE; "MAXIMUM NUMBER OF OVERLAYS /3 FCBOO: BYTE; "OVERLAY DIRECTORY ENTRY OFFSET 33 FCBOR: WORD; "OVERLAY DIRECTORY ENTRY RECORD 3 ); TR  ); . 2 : ( "FDB - FILE DIRECTORY BLOCK VARIANT.) FDBRNM : WORD;  "RECORD NUMBER OF FDR )6 FDBDDR : @DDR ;"ADDRESS OF DIRECTORY DOOR (DDR)67 FDBFNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "FILE NAME 7, FDBFCB : @FSC ; "ADDRESS OF FCB ANCHOR,) FDBCDF : BYTE;  "COUNT OF DESCENDANTS ) FILL02 : BYTE; "RESERVED 8 FDBAFD : @FSC ;"ADDRESS OF FIRST DESCENDANT (AFD)8* FDBSAF : @SSB ; "SSB ADDRESS FOR AFD*4 FDBALS : @FSC ;"ADDRESS OF LAST SIBLING (ALS)4* FDBSAL : @SSB ; "SSB ADDRESS FOR ALS*4 FDBANS : @FSC ;"ADDRESS OF NEXT SIBLING (ANS)4* FDBSAN : @SSB ; "SSB ADDRESS FOR ANS*3 FDBAPF : @FSC ;"ADDRESS OF PARENT FILE (APF) 3* FDBSAP : @SSB ; "SSB ADDRESS FOR APF*,/ FDBFMT : @SSB ; "SSB ADDRESS FOR THIS FDB / ); END; (*$ RESUME LIST *)FLAG EQU30FLAG (LDCTRL!LDIR!LRDR!LXDR!BRKON)6*DSCH EQU29 DATA SET CHANGE ENABLE*"CTS  EQU28CLEAR TO SEND ""DSR  EQU27DATA SET READY".RTSAUT EQU26 REQUEST TO SEND AUTOMATIC ."TIMELP EQU25TIMER ELAPSED " TIMERR EQU24TIMER ERROR  2XBRE EQU22TRANSMIT BUFFER REGISTER EMPTY2*RBRL EQU21 RECEIVE BUFFER LOADED *>DSCINT EQU20DATA SET CHANGE INTERRUPT (DSCH & DSCENB) >6TIMINT EQU19TIMER INTERRUPT (TIMELP & TIMENB) 62DEVPRS EQU189903 PRESENT = 0 (ASYNC ONLY) 26XBINT EQU17XMITTER INTERRUPT (XBRE & XBIENT) 6RINT EQU16RECEIVcJIT PCU3y@(*$ NO LIST *)?"************************************************************ ?"** 3"* JOB INFORMATION TABLE (JIT)  01/23/80 * 3"** "* LOCATION: JCA* ?"************************************************************ ?@"* THE JIT DESCRIBES THE JOB COMMUNICATION AREA (JCA) CONTENTS@;"* AND IS FOUND AT THE ADDRESS JCASTR (FOUND IN NFPTR) IN ;="* EACH JOB.IT INCLUDES DESCRIPTIVE INFORMATION ABOUT THE =>"* JOB AND POINTERS TO MANY JOB-LOCAL STRUCTURES IN THE JCA.>3"* (NOTE THAT JITOVB MUST BE ON A BEET BOUNDARY.) 3 JIT = PACKED RECORD / JITHED : WORD; "SYSTEM TABLE AREA OVERHEAD /. JITLNK : WORD;  "STA - LINK TO FIRST BLOCK.( JITRES : WORD;  "STA - RESERVE LIMIT( JIT"END : WORD;  "STA - END OF AREA"+ JITUSE : WORD;  "STA - TOTAL BYTES USED +, JITHI: WORD;  "STA - HIGHEST ADDR USED,2 JITPTR : @JSB ;"POINTER TO JSB OF JCA OWNER21 JITCAP : @CAP ;"POINTER TO CAPABILITY LIST 10 JITSEM : @SLH ; "POINTER TO SEMAPHORE LIST0/ JITLDT : @LDT ; "JOB LOCAL LDT - LDT LINK /- JITIOC : BYTE;  "LDT - INITIATE I/O COUNT - JITLUN : BYTE; "LDT - LUNO ( JITTYP : BYTE;  "LDT - RESOURCE TYPE() JITTF: BYTE;  "LDT - RESOURCE FLAGS )$ JITFLG : WORD; "LDT - LDT FLAGS$* JITRLK : @PDT ; "LDT - RESOURCE LINK*& JITOTS : @TSB ;"LDT - OWNER TSB&& JITJSB : @JSB ;"LDT - OWNER JSB&) JITPRM : WORD;  "LDT - PARAMETER LIST ) JITROB : @ROB ;"POINTER TO RESOURCE OWNER BLK5 JITCCB : @CCB ;"POINTER TO CHANNEL CONTROL BLK 5B JITPAS : PACKED ARRAY [ 1.. 8 ] OF CHAR; "PASSWORD FOR USER IDB8 JITACC : PACKED ARRAY [ 1..16 ] OF CHAR; "ACCOUNT ID8) JITPVL : BYTE;  "USER PRIVILEGE LEVEL )' JITLID : BYTE;  "LAST TASK ID GIVEN 'F" JITTID : PACKED ARRAY [ 1..32 ] OF BYTE; "TSB RUN TIME ID BIT MAPSF& JITJBI : WORD;  "SEGMENT ID OF JCA&( JITFTB : @TSB ; "POINTER TO FM TSB(. JITFLK : @OVB ; "FORWARD TOL LINK FOR FM./ JITBLK : @OVB ; "BACKWARD TOL LINK FOR FM /) JITFTP : WORD;  "FM TASK TYPE (>0100) )( JITFJB : @JSB ; "POINTER TO FM JSB(A FILL00 : PACKED ARRAY [ 1..20 ] OF BYTE; "FILLER FOR DUMY OVB A JITFMQ : PACKED ARRAY [ 1$..12 ] OF BYTE; "FM QUEUE FOR JOB$0 JITEXC : LONGINT; "EXECUTION TIME SINCE LOAD0% FILL01 : WORD;  "CURRENTLY UNUSED %, JITWOT : @TSB ; "TABLE AREA WAIT QUEUE,( FILL02 : WORD;  "RESERVED AT PRESENT(+ JITSSI : WORD;  "SYNONYM SEGMENT RUN ID +2 JITSSS : @SSB ;"SYNONYM SEGMGR TAB AREA SSB2* JITSSB : @SSB ; "SYNONYM SSB ADDRESS*3 JITRST : @RST ;"PTR TO RESERVE SEGMENT TABLE 3* JITTSB : @TSB ; "POINTER TO TSB TREE*- JITACT : @TSB ; "POINTER TO ACTIVE TSBS -* JITWOM : @TSB ; "POINTER TO WOM TSBS*I$ JITFMW : PACKED ARRAY [ 1..62 ] OF BYTE; "FILE MGR WORKING WP & STACK IG# JITINS : PACKED ARRAY [ 1..12 ] OF BYTE; "INSTALL TASK QUEUE HEADER G$ JITDEL : PACKED ARRAY [ 1..12 ] O$$F BYTE; "DELETE TASK QUEUE HEADER$G# JITASP : PACKED ARRAY [ 1..12 ] OF BYTE; "ASSIGN SPACE QUEUE HEADER GI$ JITMAP : PACKED ARRAY [ 1..12 ] OF BYTE; "MAP NAME TO ID QUEUE HEADER II$ JITINV : PACKED ARRAY [ 1..12 ] OF BYTE; "INITIALIZE NEW VOLUME QUEUE II$ JITRCP : PACKED ARRAY [ 1..12 ] OF BYTE; "RETURN CODE PROCESSOR QUEUE ICASE INTEGER OF   1 : ( "  );   2 : ( " "*------ +"*EXTENSION FOR KIFMGR IF KIF IS GENNED + "*------ F" JITKMW : PACKED ARRAY [ 1..70 ] OF BYTE; "KIF WORKING WP AND STACKF& JITKJI : WORD;  "SEGMENT ID OF JCA&( JITKTB : @TSB ; "POINTER TO KM TSB(. JITKFL : @OVB ; "FORWARD TOL LINK FOR KM./ JITKBL : @OVB ; "BACKWARD TOL LINK FOR KM /  JITKTP !: WORD;  "KM TASK TYPE (>0100) !( JITKJB : @JSB ; "POINTER TO KM JSB(A FILL03 : PACKED ARRAY [ 1..20 ] OF BYTE; "FILLER FOR DUMY OVB A? JITKMQ : PACKED ARRAY [ 1..12 ] OF BYTE; "KIF QUEUE FOR JOB ? ); END; (*$ RESUME LIST *)ATA 0  SEGMENT ID OF JCA &(JITKTB PTRTSB  POINTER TO KM TSB (.JITKFL PTROVB  FORWARD TOL LINK FOR KM ..JITKBL PTROVB  BACKWARD TOL LINK FOR KM .(JITKTP DATA 0  KM TASK TYPE (>0100)((JITKJB PTRJSB  POINTER TO KM JSB (" BSS20 FILLER FOR DUMY OVB "&JITKMQ BSS12 KIF QUEUE FOR JOB &(JITKSZ EQU$  KIF SUPPORT JIT SIZE(  RORG "  PAGE "  LIST " PP VECTOR BEL212,ISRTIM cPICTYPE  C4V2Py@(*$ NO LIST*) !B"************************************************************* B$" TYPES FOR THE PICTURE PROGRAM.$B"************************************************************* B* CH6= PACKED ARRAY [ 1..6 ] OF CHAR;** CH8= PACKED ARRAY [ 1..8 ] OF CHAR;*, CH30 = PACKED ARRAY [1..30] OF CHAR; ,. CH36 = PACKED ARRAY [ 1..36 ] OF CHAR; .. CH79 = PACKED ARRAY [ 1..79 ] OF CHAR; . VALPTR = @EVAL; EVAL = RECORDACNM: CH6;VALUE : INTEGER;NEXT: VALPTR; END;! COM_PTR = @COM_LINE;  COM_LINE = RECORD*COMM : CH79; "APPENDED LINE OF CH36S *NEXT : COM_PTR; END;! ONEFLAG = @FLAGDET; FLAGDET = RECORD .NAME: CH6;"PARTICULAR FLAG DEFINITION .NUMBER: INTEGER;COMMT : CH36; STARS : COM_PTR;NEXT: ONEFLAG;END;! FLAGPTR = @FLAGREC; FLAGREC = RECORD &FIELD : CH6;  "MAJOR FLAG FIELD & OFFSET : INTEGER; COMMT : CH36; FLAGBIT : ONEFLAG;NEXT : FLAGPTR; END;! EQUPTR = @EQUREC; EQUREC = RECORD(EQUATE : CH6%%;  "MAJOR EQUATE FIELD (.OFFSET : CH8;  "NEED TO TREAT $ SPECIALLY .VAL  : INTEGER; COMMT : CH36;.NEXT : EQUPTR; " FOR SIZE OF TEMPLATE .END;! RECPTR = @PACKEDREC; : PACKEDREC = RECORD  "INFORMATION KEPT ABOUT PACKED :PKTYPE: CH6;" RECORDS MAXSIZE : INTEGER; "SIZE IN BYTES NEXT: RECPTR; END;!(*$ LIST *) " ;"PoidIUMISC = 20;oidPMERRS = 21;"k4`4OINTER TO RESOURCE OWNER BLK5 JITCCB : @CCB ;"POINTER TO CHANNEL CONTROL BLK 5B JITPAS : PACKED ARRAY [ 1.. 8 ] OF CHAR; "PASSWORD FOR USER IDB8 JITACC : PACKED ARRAY [ 1..16 ] OF CHAR; "ACCOUNT ID8) JITPVL : BYTE;  "USER PRIVILEGE LEVEL )' JITLID : BYTE;  "LAST TASK ID GIVEN 'F" JITTID : PACKED ARRAY [ 1..32 ] OF BYTE; "TSB RUN TIME ID BIT MAPSF& JITJBI : WORD;  "SEGMENT ID OF JCA&( JITFTB : @TSB ; "POINTER TO FM TSB(. JITFLK : @OVB ; "FORWARD TOL LINK FOR FM./ JITBLK : @OVB ; "BACKWARD TOL LINK FOR FM /eBMCONS PC,2Qy@(*$ NO LIST *)!L$"***********************************************************************L" '6"  CONSTANTS USED BY MESSAGE HANDLING UTILITIES 6" 'L$"***********************************************************************L"-------------!(" LENGTH OF INDEX RECORDS (IN WORDS)("-------------! INDEX_REC_LEN = 32;"-------------!&" MAXIMUM LENGTH OF MSGFIL RECORDS&"-------------!F MSG_REC_LEN = 242+4+2 ;" 3 LINES (WITH ADDED BLANK AT (1.1)F," END OF FIRST AND SECOND LINES (1.1),," FOR WORD SEPARATION) + 4 FOR (1.1),," ERROR SOURCE + 2 FOR OVERHEAD (1.1)," BYTES  (1.1)"-------------! " ERROR MESSAGE EQUATES "-------------!" OPEN_INPUT_ERROR = #90B2 ;"" OPEN_INDEX_ERROR = #90B3 ;"" OPEN_MSGFIL_ERROR= #90B4 ;"" READ_INPUT_ERROR = #90B5 ;"" WRITE_INDEX_ERROR= #90B6 ;"" WRITE_MSGFIL_ERROR = #90B7 ;" LINE1_BAD= #90B8 ;" READ_INDEX_ERROR = #90B9 ;"" OPEN_OUTPUT_ERROR= #90BA ;"" WRITE_OUTPUT_ERROR = #90BB ;""-------------! " INTERNAL ERROR CODES"-------------! NO_MSGNO = 1 ;  BAD_ERRSRC = 2 ;  BAD_HEX_NUMBER = 3 ;  BAD_NUMBER_LIST= 4 ;   MSG_TEXT_TOO_LONG= 5 ;   NUMBER_USED_TWICE= 6 ;   FATAL= #8000 ;  WARN = #4000 ; (*$ LIST *) ".NEXT : EQUPTR;eCVICONS PCU42Sy@L$(*********************** BEGIN INITSK CONSTANTS **********************) LL$(*********************** REVISION*************************************) L@(*R01 05/04/84 -ALLOW CV AND BDD TO REPLICATIBLE *) @(*$NO LIST*)" CONST % . NUM_PARMS = 12; " # OF BID PARAMETERS ." ' " SCI BID PARAMETER NUMBERS " ' TT  = 1; " TASK_TYPE  SD  = 2; " SRC_DEVICE  DD  = 3; " DST_DEVICE  LD  = 4; " LST_DEVICE   SP  = 5; " SRC_PATHNAME  SV  = 5; " SRC_VOLNAME " DF  = 6; " DST_FILE NAME "  DV  = 6; " DST_VOLNAME  VF  = 7; " VERIFY_FLAG  MB  = 8; " MORE_BACKUPS  MC  = 8; " MORE_COPIES  CS  = 9; " CONV_SEQ  CR  = 10; " CONV_REL * TB  = 11; " # OF TIMES INITSK HAS *" " BEEN BID   EC  = 12; " ERROR COUNT YES  = 'YES ';ONE  = '1';  M_ROW = 9; " MSG. ROW " Q_ROW = 10; " QUESTION ROW "0 MAXRUNS = '9'; " MAX NUMBER OF RE-RUNS 0"  " COMPLETION CODES $ CC$WARN = #4000; " WARNING $0 CC$ERROR  = #8000; " RECOVERABLE ERROR0* CC$FATAL  = #C000; " FATAL ERROR *" '8 SVC_ERR_SRC = #0001; " FLAG FOR SVC ERROR SOURCE 88 UTL_ERR_SRC = #0002; " FLAG FOR UTILITY ERROR SRC80 P_NAME_LENGTH = 8; " LENGTH OF SAVED DATA0" " FILE PATHNAME , PROMPT_LENGTH = 48; " MAX LENGTH OF ANSW, ER TO  " " SCI PROMPT 2 STRING_LENGTH = 255; " MAX LENGTH OF STRING2< S$CV  = '.S$CV '; " FILE NAMES FOR SAVED DATA R01<$ S$BDD = '.S$BDD'; "  R01$: S$CVI = '.S$CVI'; " CVINIT TEMP FILE NAME  R01:, A_LUNO  = #91; " ASSIGN LUNO OPCODE,, DELETE  = #92; " DELETE FILE OPCODE,4 R_LUNO  = #93; " RELEASE LUNO OPCODE R01 42 A_FLAGS = #0686; " ASSIGN LUNO FLAGS FOR 2"  " SAVED DATA FILE ( USRFLG  = #10; " FLAGS FOR OPEN (*?IF DNOS = TRUE  **** DNOS ONLY *****2 UTLFLG  = #0C00; " FLAGS FOR ASSIGN LUNO 2" (JOB LOCAL)  ?ENDIF **** DNOS ONLY **** *?IF DX10 = TRUE  **** DX10 ONLY ***** UTLFLG  = #14"00; " FLAGS FOR ASSIGN LUNO "" (GLOBAL)  ?ENDIF **** DX10 ONLY **** * VDT_TYPE  = 5; " VDT DEVICE TYPE *" OPN = #00; " OPEN OPCODE " REWIND  = #0E;  OPEN_REWIND = #3; OPEN_EXTEND = #12;  READ_ASCII = #09;  WRITE_ASCII = #0B;  WRITE_DIRECT= #0C; " CLS = #01; " CLOSE OPCODE ". CLOSE_EOF = #2; " CLOSE AND WRITE EOF ., SDLRL = 96; " LRL OF SAVED DATA FILE,. SDPRL = 768; " PRL OF SAVED DATA FILE., INIT_ALLOC = 1; " INITIAL ALLOCATION,*?IF DNOS = TRUE  **** DNOS ONLY *****. PROGFILE  = 'S$UTIL';" PROGRAM FILE .$ BDD_ID  = #85; " TASK IDs $ CV_ID = #86; ?ENDIF **** DNOS ONLY *****?IF DX10 = TRUE  **** DX10 ONLY *****. PROGFILE  = '.S$PROGA';" PROGRAM FILE .$ BDD_ID  = #47; " TASK IDs $ CV_ID = #49;  ?ENDIF **** DX10 ONLY **** (*$LIST*) #J#(*********************** END INITSK CONSTANTS **********************) J* JITSSB : @SSB ; "SYNONYM SSB ADDRESS*3 JITRST : @RST ;"PTR TO RESERVE SEGMENT TABLE 3* JITTSB : @TSB ; "POINTER TO TSB TREE*- JITACT : @TSB ; "POINTER TO ACTIVE TSBS -* JITWOM : @TSB ; "POINTER TO WOM TSBS* JITFMW : PACKED A{ MOVTRCCURR0{# (.# |X$& % #"!k4|`4 TIME SINCE LOAD0 JITNMC : WORD; "NAMMGR REQUEST COUNT IN JOB0, JITWOT : @TSBgS41 PCJ3y(*$ NO LIST *)A "************************************************************** A"** 5"* INITIATE EVENT SVC BLOCK (S41) 12/17/81 * 5"** A "************************************************************** AS41 = PACKED RECORD / S41SVC : BYTE; "INITIATE EVENT OP CODE=>41 /. S41ERC : BYTE;  "INITIATE EVENT ERROR CODE.% S41FLG : BYTE;  "*** RESERVED *** %! S41NUM : BYTE; "EVENT NUMBER !0 S41BLK : WORD; "EVENT REQUEST BLOCK ADDRESS0% S41RES : WORD;  "*** RESERVED *** %END; (*$ RESUME LIST *)LL00 : 0..31; END;+ S3FIDX : WORD;  "FOR PDT CHAIN(TYPE 81) +( S3FOFF : WORD;  "INTO DATA STRUCTURE(% S3FBLN : WORD;  "OF RESULT BUFFER % S3FRET : WORD; hNFERB0 PC3 ,y@(*$ NO LIST *) NFERB0 : PACKED RECORD?"************************************************************ ?"** ;"*NFERB0- ERROR CONSTANTS COMMON AREA # 12 04/26/82 * ;"** ?"************************************************************ ?4 ERRB0: BYTE; "NAMMGR -OUTPUT BUFFER TOO SMALL47 ERRB1: BYTE; "FILMGR -MAX B-TREE LEVELS EXCEEDED 78 ERRB2: BYTE; "NAMMGR -SPECIFIED NAME IS UNDEFINED85 ERRB3: BYTE; "NAMMGR -TOO MANY SDB'S ALLOCATED 56 ERRB4: BYTE; "NAMMGR -BAD "PN" NUMBER SPECIFIED66 ERRB5: BYTE; "NAMMGR -INVALID SYNONYM OPERATION67 ERRB6: BYTE; "SVC00-INVALID CURRENCY PARAMETER 77 ERRB7: BYTE; "NAMMGR -INVALID RTN-TO-PREV-STG OP 7 ERRB8: BYTE; #"NAMMGR -NO NAME DEF'N SEG EXISTS #8 ERRB9: BYTE; "NAMMGR -NAME DEF'N SEGMENT OVERFLOW85 ERRBA: BYTE; "NAMMGR -INVALID LIST OF SYNONYMS 52 ERRBB: BYTE; "SVC00 -OUT OF LOGGING BLOCKS22 ERRBC: BYTE; "NAMMGR -LEN FOR LOG. NAME > 828 ERRBD: BYTE; "KIF-INFO -CANNOT LOCATE NEXT RECORD86 ERRBE: BYTE; "FILMGR -NO SUCH RECORD ON REWRITE68 ERRBF: BYTE; "NAMMGR -INVALID APPEND-PN OPERATION8END; (*$ RESUME LIST *).INPUT03T.DP.TEMPLATE.COMMON.NFERB0iSDQ P C43Ry@(*$ NO LIST *)7"**************************************************** 7+"*SDQ -- SPO%%OLER DEVICE QUEUE ENTRY * +"* 01/25/84 * 7"**************************************************** 7"*"*SDQ = PACKED RECORD ) SDQFLG : PACKED RECORD "STATUS FLAGS )) SQFUSE : BOOLEAN;  "TRUE=DELETED ENTRY )- SQFCON : BOOLEAN;  "TRUE=CONCATENATED FILE -% SQFANS : BOOLEAN; "TRUE=ANSI FILE %4 SQFBNR : BOOLEAN; "TRUE=NO BANNER SHEET PROVIDED4- SQFDEV : BOOLEAN;  "TRUE=QUEUED FOR DEVICE -. SQFDAP : BOOLEAN;  "TRUE=DELETE AFTER PRINT.2 SQFCFR : BOOLEAN; "TRUE=CONCAT FILENAME RECORD22 SQFDAL : BOOLEAN; "TRUE=DELETE ALWAYS (EVEN ON20 SQFNPJ : BOOLEAN;  "TRUE=NO PAGE EJECT BEFORE0FILL00 : 0..127;END;- SDQRN: WORD;  "NEXT ENTRY RECORD NUMBER -/ SDQOFF : BYTE; "NEXT ELEMENT RECORD OFFSET /0 SDQCOF : BYTE; "NEXT FILENAME RECORD OFFSET0) SDQCRN : WORD;  "NEXT FILENAME RECORD )CASE INTEGER OF   1 : ( " ? SDQULN : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER LOGICAL NAME ?< SDQFRM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "REQUESTED FORM<5 SDQUID : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER ID 5 SDQJID : WORD; "JOB ID 6 SDQJOB : PACKED ARRAY [ 1.. 8 ] OF CHAR; "JOB NAME6CASE INTEGER OF   1 : ( " 8 SDQCLN : PACKED ARRAY [ 1.. 8 ] OF CHAR; "CLASS NAME8% SDQCOP : BYTE;  "NUMBER OF COPIES %# SDQLPP : BYTE; "LINES PER PAGE #! SDQJPR : BYTE; "JOB PRIORITY !$( SDQNPR : BYTE;  "NEXT ENTRY PRIORITY(A SDQSID : PACKED ARRAY [ 1.. 6 ] OF CHAR; "ASSIGNED SPOOLER ID A; SDQPNL : PACKED ARRAY [ 1..50 ] OF BYTE; "FILE PATHNAME ; );   2 : ( " 9 SDQDVN : PACKED ARRAY [ 1.. 8 ] OF CHAR; "DEVICE NAME 9 );  );   2 : ( " + SDQFNM : WORD;  "OF FILENAMES IN RECORD +M SDQNAM : PACKED ARRAY [ 1..104 ] OF BYTE;"AREA RESERVED FOR FILE PATHNAM M ); END; (*$ RESUME LIST *)N : PACKED ARRAY [ 1.. 8 ] OF BYTE; "DIAGNOSTIC FILE NAMEB$ SC0DIF : WORD; "DIAGNOSTIC FLAG$2 SC0DRS : WORD; "DBUILD DETERMINES DEFAULT PRS24 SC0BAL : WORD; "STARTING SECTOR OF BAD ADU LIST4/ SC0SPR : WORD; "TRACK 0 SECTORS PER RECORD / SC0WF1 : PACKED AjCDR P D,|3ay@(*$ NO LIST *)?"************************************************************ ?"** 5"* CHANNEL DESCRIPTOR RECORD (CDR) 08/14/81* 5"** "* LOCATION: DISK * ?"************************************************************ ?9"* THE CDR IS THE PERMANENT RECORD OF A CHANNEL.IT IS 99"* CARRIED AS AN ALIAS OF THE PROGRAM FILE IN WHICH THE 9 "* CHANNEL OWNER TASK RESIDES.  CDR = PACKED RECORD # CDRHKC : WORD; "HASH KEY COUNT ## CDRHKV : WORD; "HASH KEY VALUE #: CDRNAM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "CHANNEL NAME: FILL00 : WORD; "RESERVED  FILL01 : WORD; "RESERVED " CDRFDF : PACKED RECORD "FLAGS" FILL02 : 0..32767;$ CDFCDR : BOOLEAN; "CDR(1) OR NOT$(0) END;* CDRFLG : PACKED RECORD "CHANNEL FLAGS*.CDFSC1 : 0.. 3;  "SCOPE - GLOBAL, JOB, TASK.. CDFSHR : BOOLEAN;  "SHARED(1) OR NOT SHARED.3 CDFTYP : BOOLEAN; "SYMMETRIC(1) OR MASTER/SLAVE 34 CDFASG : BOOLEAN; "OWNER DOES(1) / NOT DO ASSIGN44 CDFABT : BOOLEAN; "OWNER DOES(1) / NOT DO ABORTS45 CDFIOU : BOOLEAN; "OWNER DOES(1) / NOT DO IOU OPS 5FILL03 : 0.. 1; END;, CDRIID : BYTE;  "OWNER TASK INSTALLED ID,* CDRTYP : BYTE;  "DEFAULT RESOURCE TYPE*( CDRTF: BYTE;  "RESOURCE TYPE FLAGS(+ CDRMXL : WORD;  "MAXIMUM MESSAGE LENGTH +6 FILL04 : PACKED ARRAY [ 1.. 6 ] OF BYTE; "RESERVED65 CDRRNA : WORD; "RECORD NUMBER OF NEXT CDR OR ADR 5$ CDRRAF : WORD; "RECORD NUMBER O$F ACTUAL FDR7 FILL05 : PACKED ARRAY [ 1..110 ] OF BYTE;"RESERVED 7H# CDRUID : PACKED ARRAY [ 1.. 8 ] OF BYTE; "USER ID OF CHANNEL CREATORH/ CDRPSA : WORD; "PUBLIC SECURITY ATTRIBUTES /G# CDRSCG : PACKED ARRAY [ 1..94 ] OF BYTE; "SDT WITH 9 CONTROL GROUPS G6 FILL06 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "RESERVED6END; (*$ RESUME LIST *) PPCDRCDM EQU >0001 CDR FLAG MASK PPCDRFLG FLAGS 8 CHANNEL FLAGS PP BITS CDFSC1,2 SCOPE - GLOBAL, JOB, TASK PPCDFSC2 EQU CDFSC1+1 PP* jNFQHDR PD 3 y@(*$ NO LIST *) TBDQUE : PACKED RECORD! TBDQ : WORD; "NEWEST ENTRY !! FILL00 : WORD; "OLDEST ENTRY !0 FILL01 : BYTE; "NUMBER OF ENTRIES/SERVER ID0$ FILL02 : @TSB ;"TSB OF SERVER$" FILL03 : WORD; "JSB OF SERVER"- FILL04 : BYTE;  "PROG. FILE LUNO/RESERVED -END;! IOUQ : WORD; "NEWEST ENTRY !# FILL05 : @IRB ;"OLDEST ENTRY #0 FILL06 : BYTE; "NUMBER OF ENTRIES/SERVER ID0$ FILL07 : @TSB ;"TSB OF SERVER$" FILL08 : WORD; "JSB OF SERVER", FILL09 : BYTE;  "PROG.FILE LUNO/RESERVED,END;! LDRQ : WORD; "NEWEST ENTRY !! FILL0A : WORD; "OLDEST ENTRY !0 FILL0B : BYTE; "NUMBER OF ENTRIES/SERVER ID0$ FILL0C : @TSB ;"TSB OF SERVER$ FILL0D : WORD; "JSB OF SERVER- FILL0E : BYTE;  "PROG. FILE LUNO/RESERVED -END;! DMRQ : WORD; "OLDEST ENTRY !# FILL0F : @IRB ;"NEWEST ENTRY #0 FILL10 : BYTE; "NUMBER OF ENTRIES/SERVER ID0$ FILL11 : @TSB ;"TSB OF SERVER$" FILL12 : WORD; "JSB OF SERVER"- FILL13 : BYTE;  "PROG. FILE LUNO/RESERVED -END;! KILQ : WORD; "NEWEST ENTRY !# FILL14 : @KIL ;"OLDEST ENTRY #0 FILL15 : BYTE; "NUMBER OF ENTRIES/SERVER ID0$ FILL16 : @TSB ;"TSB OF SERVER$" FILL17 : WORD; "JSB OF SERVER"- FILL18 : BYTE;  "PROG. FILE LUNO/RESERVED -END;! JOBQU: WORD; "NEWEST ENTRY !# FILL19 : @JMR ;"OLDEST ENTRY #0 FILL1A : BYTE; "NUMBER OF ENTRIES/SERVER ID0  FILL1B : @TSB ;"TSB OF SERVER" FILL1C : WORD; "JSB OF SERVER"- FILL1D : BYTE;  "PROG. FILE LUNO/RESERVED -END;! IPCQ : WORD; "NEWEST ENTRY !# FILL1E : @IRB ;"OLDEST ENTRY #0 FILL1F : BYTE; "NUMBER OF ENTRIES/SERVER ID0$ FILL20 : @TSB ;"TSB OF SERVER$" FILL21 : WORD; "JSB OF SERVER"- FILL22 : BYTE;  "PROG. FILE LUNO/RESERVED -END;! NMRQ : WORD; "NEWEST ENTRY !# FILL23 : @IRB ;"OLDEST ENTRY #0 FILL24 : BYTE; "NUMBER OF ENTRIES/SERVER ID0$ FILL25 : @TSB ;"TSB OF SERVER$" FILL26 : WORD; "JSB OF SERVER"- FILL27 : BYTE;  "PROG. FILE LUNO/RESERVED -END;! WRTQ : WORD; "NEWEST ENTRY !# FILL28 : @OVB ;"OLDEST ENTRY # FILL29 : BYTE; "NUMBER OF ENTRIES/SERVER ID$ FILL2A : @TSB ;"TSB OF SERVER$" FILL2B : WORD; "JSB OF SERVER"- FILL2C : BYTE;  "PROG. FILE LUNO/RESERVED -END; NMQ: WORD; "NEWEST ENTRY ! FILL2D : WORD; "OLDEST ENTRY !, FILL2E : BYTE;  "NUMBER OF ENTRIES/ ZERO,END;! SBRQ : WORD; "NEWEST ENTRY !# FILL2F : @IRB ;"OLDEST ENTRY #0 FILL30 : BYTE; "NUMBER OF ENTRIES/SERVER ID0" FILL31 : @TSB ;"TSB ADDRESS"  FILL32 : WORD; "JSB ADDRESS 0 FILL33 : BYTE; "PROGRAM FILE LUNO/ RESERVED0END;! OVYQ : WORD; "NEWEST ENTRY !# FILL34 : @IRB ;"OLDEST ENTRY #0 FILL35 : BYTE; "NUMBER OF ENTRIES/SERVER ID0" FILL36 : @TSB ;"TSB ADDRESS" FILL37 : WORD; "JSB  ADDRESS / FILL38 : BYTE; "PROGRAM FILE LUNO/RESERVED /END;! RWTQ : WORD; "NEWEST ENTRY !# FILL39 : @IRB ;"OLDEST ENTRY #0 FILL3A : BYTE; "NUMBER OF ENTRIES/SERVER ID0" FILL3B : @TSB ;"TSB ADDRESS"  FILL3C : WORD; "JSB ADDRESS / FILL3D : BYTE; "PROGRAM FILE LUNO/RESERVED /END;! IUVQ : WORD; "NEWEST ENTRY !! FILL3E : WORD; "OLDEST ENTRY !0 FILL3F : BYTE; "NUMBER OF ENTRIES/SERVER ID0! FILL40 : @TSB ;"SERVER TSB ! FILL41 : WORD; "SERVER JSB , FILL42 : BYTE;  "PROG FILE LUNO/RESERVED,END;! SBTQ : WORD; "NEWEST ENTRY !! FILL43 : WORD; "OLDEST ENTRY !0 FILL44 : BYTE; "NUMBER OF ENTRIES/SERVER ID0  FILL45 : @TSB ;"TSB OF SE RVER" FILL46 : WORD; "JSB OF SERVER"- FILL47 : BYTE;  "PROG. FILE LUNO/RESERVED -END;! LOGQ : WORD; "NEWEST ENTRY !! FILL48 : WORD; "OLDEST ENTRY !0 FILL49 : BYTE; "NUMBER OF ENTRIES/SERVER ID0! FILL4A : @TSB ;"SERVER TSB ! FILL4B : WORD; "SERVER JSB , FILL4C : BYTE;  "PROG FILE LUNO/RESERVED,END;! ACCQ : WORD; "NEWEST ENTRY !! FILL4D : WORD; "OLDEST ENTRY !0 FILL4E : BYTE; "NUMBER OF ENTRIES/SERVER ID0! FILL4F : @TSB ;"SERVER TSB ! FILL50 : WORD; "SERVER JSB , FILL51 : BYTE;  "PROG FILE LUNO/RESERVED,END; SRQ: WORD; "NEWEST ENTRY ! FILL52 : WORD; "OLDEST ENTRY !0 FILL53 : BYTE; "NUMBER OF ENTRIES/SERVER ID0 FILL54 : @TSB ;"SERVER TSB  FILL55 : WORD; "SERVER JSB , FILL56 : BYTE;  "PROG FILE LUNO/RESERVED,END;! DIOUQ: WORD; "NEWEST ENTRY !# FILL57 : @DCB%% ;"OLDEST ENTRY #0 FILL58 : BYTE; "NUMBER OF ENTRIES/SERVER ID0$ FILL59 : @TSB ;"TSB OF SERVER$" FILL5A : WORD; "JSB OF SERVER"- FILL5B : BYTE;  "PROG. FILE LUNO/RESERVED -END;! XPDQUE : WORD; "NEWEST ENTRY !! FILL5C : WORD; "OLDEST ENTRY !0 FILL5D : BYTE; "NUMBER OF ENTRIES/SERVER ID0! FILL5E : @TSB ;"SERVER TSB ! FILL5F : WORD; "SERVER JSB , FILL60 : BYTE;  "PROG FILE LUNO/RESERVED,END; (*$ RESUME LIST *) OUTSTANDING, CPUID: WORD; "CPU ID " ATTNDV : PACKED ARRAY [ 1.. 4 ]"lPDT PD^3y(*$ NO LIST *)?"************************************************************ ?"** 1"* PHYSICAL DEVICE TABLE  (PDT) 06/22/83 * 1"** "* LOCATION: SYSTEM AREA * ?"************************************************************ ?<"* EACH DEVICE GENERATED INTO A SYSTEM IS REPRESENTED BY A<@"* PDT. THE PDT IS USED AS A WORK AREA FOR THE DEVICE SERVICE@A "* ROUTINE WHILE PROCESSING REQUESTS FOR THE PARTICULAR DEVICE. A@"*************************************************************@ PDT = PACKED RECORD 2 PDTPDT : @PDT ;"FORWARD LINKAGE TO NEXT PDT29 PDTNAM : PACKED ARRAY [ 1.. 4 ] OF CHAR; "DEVICE NAME 9" PDTNUM : WORD; "DEVICE NUMBER") PDTLC: BYTE;  "LUNOS ASSIGNED COUNT )@+ PDTIL: BYTE;  "INITIATE REQUEST LIMIT +" PDTCHR : BYTE; "BID CHARACTER" PDTCDT : BYTE; "CDT NUMBER $ PDTCDE : WORD; "DEVICE CDE MASK$: PDTFLG : PACKED RECORD "DEVICE STATUS FLAGS EXTENSION:- DFGIRB : BOOLEAN;  "COPY IRB TO SYSTEM LOG -FILL00 : 0.. 3; !PDFSTA : 0.. 3; "DEVICE STATE !. DFGOPF : BOOLEAN;  "DEVICE OPERATION FAILED.FILL01 : 0.. 1; * DFGVRT : BOOLEAN;  "VIRTUAL DEVICE FLAG*FILL02 : 0..255;END;: PDTMAP :PACKED ARRAY [ 1.. 6] OF WORD; "DSR MAP FILE:, PDTJOB : @JSB ; "JSB ADDRESS OWNER JOB,7 PDTRPB : @RPB ;"RESOURCE PRIVILEGE BLOCK POINTER 7& PDTBQ: WORD;  "BID REQUEST QUEUE&& PDTR0: WORD;  "R0 - DSR SCRATCH& PDTPRB : WORD; "R1  - QUEUED PRB ADDRESS 6 PDTDSF : PACKED RECORD  "R2 - DEVICE STATUS FLAGS62 DSFCMO : BOOLEAN; "OPENED WITH COMM OPEN (>4E)2( DSFAID : BOOLEAN;  "USE ALTERNATE PDT(, DSFBI : BOOLEAN;  "BUFFER INPUT (1=YES),, DSFBO : BOOLEAN;  "BUFFER OUTPUT (1=YES),, DSFJIS : BOOLEAN;  "JISCII FLAG(KATAKANA)," DSFREN : BOOLEAN; "RE-ENTER-ME"+ DSFJAR : BOOLEAN;  "JISCII RECEIVE MODE ++ DSFJAT : BOOLEAN;  "JISCII TRANSMIT MODE +FILL03 : 0.. 3; + DSFWPM : BOOLEAN;  "WORD PROCESSING MODE +, DSFIRE : BOOLEAN;  "INITIAL REQUEST ENTRY,0DSFINT : 0..15; "DEVICE INTERRUPT LEVEL MASK0END;4 PDTDTF : PACKED RECORD  "R3 - DEVICE TYPE FLAGS4$ DTFFIL : BOOLEAN; "FILE ORIENTED$ DTFTIL : BOOLEAN; "TILINE DEVICE& DTFTIM : BOOLEAN; "ENABLE TIME-OUT&) DTFPRI : BOOLEAN;  "PRIVILEDGED DEVICE )* DTFKSB : BOOLEAN;  "TERMINAL WITH A KSB*" DTFCOM : BOOLEAN; "COMM DEVICE"" DTFSYD : BOOLEAN; "SYSTEM DISC"FILL04 : 0.. 1; END;" PDTTYP : BYTE; "- DEVICE TYPE"6 PDTDIB : @PDT ;"R4 - DEVICE INFO BLOCK ADDRESS6& PDTR5: WORD;  "R5 - DSR SCRATCH&& PDTR6: WORD;  "R6 - DSR SCRATCH&& PDTR7: WORD;  "R7 - DSR SCRATCH&& PDTR8: WORD;  "R8 - DSR SCRATCH&& PDTR9: WORD;  "R9 - DSR SCRATCH&& PDTR10 : WORD;  "R10 - DSR SCRATCH&& PDTR11 : WORD;  "R11 - DSR SCRATCH&0 PDTCRU : WORD; "R12 - CRU OR TILINE ADDRESS0# PDTR13 : WORD; "R13 - SAVED WP # PDTR14 : WORD; "R14 - SAVED PC # PDTR15 : WORD; "R15 - SAVED ST #1 PDTERR : BYTE; "SAVED ERROR CODE FOR SYS LOG 1, PDTRTY : BYTE;  "RETRIES ATTEMPTED COUNT,( PDTRC: WORD;  "READ REQUEST COUNT(( PDTWC: WORD;  "WRITE REQUEST COUNT(( PDTMC: WORD;  "MISC REQUEST COUNT(& PDTREC : WORD;  "READ ERROR COUNT&& PDTWEC : WORD;  "WRITE ERROR COUNT&& PDTMEC : WORD;  "MISC ERROR COUNT&$ PDTSL1 : WORD; "SYSTEM LOG INFO$$ PDTSL2 : WORD; "SYSTEM LOG INFO$* PDTBLN : WORD;  "MAXIMUM BUFFER LENGTH*# PDTTM1 : WORD; "TIME OUT COUNT #( PDTTM2 : WORD;  "TIME OUT COUNT DOWN() PDTHRQ : WORD;  "HIDDEN REQUEST QUEUE )* PDTWQ: WORD;  "WAITING REQUEST QUEUE*& PDTSRB : WORD;  "SAVED REQUEST ADD&RESS* PDTERQ : WORD;  "END -OF-RECORD QUEUE*( PDTSRQ : WORD;  "SPENT REQUEST QUEUE(4 PDTPDS : WORD; "PRIORITY DSR SCHEDULER QUE LINK4END; (*$ RESUME LIST *)//CSH0BA EQU>00BA  PMSBUF - END ACTION TAKEN //CSH0BB EQU>00BB  PMRWTK - END ACTION TAKEN //CSH0BD EQU>00BD  PMSBID - END ACTION TAKEN /,CSH0BE EQU>00BE  RCP - END ACTION TAKEN,8CSH0C0 EQU>00C0 NFEOBR - TSBIO HAS BECOME NEGATIVE8& *CSH0E0 THRU CSH0E5 RESERVED-DX10-&,CSH100 EQU>0100  IOU - END ACTION TAKEN,0CSH101 EQU>0101  IOU - WRONG SEGMENT MAPPED03CSH102 EQU>0102 IOU - LOOKUP, DE-LINK FAILURE 3& *CSH103 THRU CSH106 RESERVED-DX10-&-CSH107 EQU>0107  IOU - BAD FILE LDT LIST - *CSH108 TH gKSB P D1(3;y@(*$ NO LIST *)?"************************************************************ ?"** 1"* KEYBOARD STATUS BLOCK  (KSB)09/28/79* 1"** "* LOCATION: SYSTEM AREA * ?"************************************************************ ?="* THE KSB IS APPENDED TO A PHYSICAL DEVICE TABLE (PDT) FOR =9"* A KEYBOARD DEVICE. IT IS USED BY THE DEVICE SERVICE 9>"* ROUTINE (DSR) AS A WORKSPACE WHILE HANDLING THE KEYBOARD.> KSB = PACKED RECORD & KSBPDT : WORD;  "R0 - PDT POINTER&- KSBQOC : WORD;  "R1 - QUEUE OUTPUT COUNT -. KSBQIP : WORD;  "R2 - QUEUE INPUT POINTER./ KSBQOP : WORD; "R3 - QUEUE OUTPUT POINTER /, KSBQEP : WORD;  "R4 - QUEUE END POINTER, KSBCRQ : WORD; "R5 - GET CHAR REQUEST QUEUE , KSBFL: PACKED RECORD "R6 - KSB FLAGS,% KSBCHM : BOOLEAN; "CHARACTER MODE %" KSBCIE : BOOLEAN; "SCI ENABLED"" KSBRCM : BOOLEAN; "RECORD MODE") KSBCIB : BOOLEAN;  "SCI BID IN PROCESS )! KSBICP : BOOLEAN; "SCI ACTIVE !' KSBSET : BOOLEAN;  "COMMAND I/O HOLD '( KSBKIO : BOOLEAN;  "COMMAND I/O ABORT(+ KSBBRK : BOOLEAN;  "DEACTIVATE BREAK KEY +END;% KSBSN: BYTE;  "- STATION NUMBER %" KSBR7: WORD; "R7 - SCRATCH"4 KSBTSB : WORD; "R8 - TSB ADDRESS OF CHAR OWNER4" KSBR9: WORD; "R9 - SCRATCH"" KSBR10 : WORD; "R10 - SCRATCH"" KSBR11 : WORD; "R11 - SCRATCH"# KSBCRU : WORD; "R12 - CRU BASE #2 KSBR13 : WORD; "R13 - SAVED WORKSPACE POINTER20 KSBR14 : WORD; "R14 - SAVED PROGRAM COUNTER0' KSBR15 : WORD;  "R15 - SAVED STATUS 'END; (*$ RESUME LIST *) 2KSBR14 DATA 0 B *&* A&RQDBKA DATA 0  ADDRESS OF KCBDBK *&&RQKKRTO&+,@P .P#f *  # ) # ), " #   %   PPTCP  `P /'` " "$/('` "/(` "CI  B I /Jg!!!!D>( ( ! Dd   t "$/(` "Ę "!nVCB PD: 3 'y(*$ NO LIST *)?"************************************************************ ?3"* VALUE CONTINUATION BLOCK (VCB)07/16/81* 3"** -"*LOCATION: A NAME DEFINITION SEGMENT* -?"************************************************************ ? VCB = PACKED RECORD * VCBVCB : @VCB ; "POINTER TO NEXT NCB*END; (*$ RESUME LIST *) IN PLACE OF THE.-"*ISSUER'S USER ID IF A VALID PASSCODE IS -/"*SUPPLIED OR THE TASK HAS SECURITY BYPASS. /-"*THIS PARM MAY BE SUPPLIED BY A USER, OR -/"*MAY BE CREATED BY IOU TO PASS INFO ACROSS /"*THE NETWORK."* UIP = PACKED RECORD ) UIPSLN : BYTE;  "SUBLIST NUMBER (>02) )4 UIPLEN : BYTE; "LENGTH OF PARM-2 IN BYTES (>10)46lAJMPMAC PD=,3y(*$ NO LIST *)?"************************************************************ ?"** %"*TITLE: ASYNC MUX JUMP TABLE * %"** '"*REVISION: 25 JAN 1983 ORIGINAL * ';"*REVISION: 22 FEB 1983 ADD DIAGNOSTIC ENTRY POINTS * ;9"*REVISION: 28 FEB 1983 USE COMMON 'JMPHSR' LABEL * 9/"*REVISION: 23 MAR 1983 DROP JUMP TABLES* /5"*0512/21/83 - ADD VARIABLE TO TOGGLE BETWEEN * 5%"*  FULL AND REDUCED SIZED HSR * %/"*06 9/20/84 - ALWAYS ASSEMBLE HRDDSR * /)"*COMPUTER: 990/10A 990/10 990/12 * );"*ABSTRACT: THIS COPY MEMBER PRODUCES A TEMPLATE OR* ;9"*TABLE FOR INTERFACE BETWEEN A TSR AND HSR.THE * 9;"*TSR TABLE PRODUCES FIXED OFFSET INTO A TABLE WHOSE%%* ;>;"*ADDRESS IS CONTAINED IN A REGISTER. THE HSR TABLE* ;;"*PRODUCES A TABLE OF BRANCH INSTRUCTIONS FOR ACCESS* ;'"*TO THE HSR SUBROUTINE MODULES. * '"** 5"*SET TT VARIABLE BEFORE TABLE COPY STATEMENT * 5"* TT = 0 TSR TEMPLATE * %"* = 1 HSR SUBROUTINE ENTRIES * %"** 5"*SET RED VARIABLE BEFORE TABLE COPY STATEMENT* 5"* RED = 0 FULL SIZE HSR* "* = 1 REDUCED HSR* "** "** ?"************************************************************ ?"*"*"*"*"*"*"*"*"*"*"*"* (*$ RESUME LIST *) DEF HSTTBHSR TB FUNCT. SET SUBROUTINE0, DEF HRTTBHSR TB FUNCT. RESET SUBROU,-SCB P DC430y@(*$ NO LIST *)?"************************************************************ ?"** -"* S$SPLR CONTROL BLOCK (SCB)01/26/84* -"** ?"************************************************************ ?="* THE SCB TEMPLATE IS THE CONTROL BLOCK FILLED BY THE USER =?"* TO PASS A REQUEST TO THE SPOOLER. THE USER LINKABLE ROUTNE ?="* S$SPLR RE-FORMATS THIS INFORMATION INTO A MESSAGE PASSED ="* OVER THE SPOOLER CHANNEL."*SCB = PACKED RECORD  SCBOP: BYTE; "OP CODE" SCBFL0 : PACKED RECORD "FLAGS"8 SCFDVP : BOOLEAN; "TRUE=USE SCBDVP INSTEAD OF SCBDEV88 SCFODV : BOOLEAN; "TRUE=PTR SCBODV IS VALID (FOR MO)8FILL00 : 0..63; END;( SCBFLG : PACKED RECORD "STATUS FLAG(S / SCFUSE : BOOLEAN;  "TRUE=DELETE DEVICE ENTRY /4 SCFAVL : BOOLEAN; "TRUE=NOT AVAILABLE TO SPOOLER4: SCFPGD : BOOLEAN; "TRUE=REVERSE PAGING (RESUME OUTPUT):' SCFR1 : BOOLEAN;  "*** RESERVED *** '' SCFR2 : BOOLEAN;  "*** RESERVED *** '% SCFANS : BOOLEAN; "TRUE=ANSI FILE %3 SCFBNR : BOOLEAN; "TRUE=NO BANNER SHEET DESIRED 36 SCFDAP : BOOLEAN; "TRUE=DELETE FILE AFTER PRINTING64 SCFIMM : BOOLEAN; "TRUE=HALT IMMEDIATELY INSTEAD4' SCFR3 : BOOLEAN;  "*** RESERVED *** '' SCFR4 : BOOLEAN;  "*** RESERVED *** '' SCFR5 : BOOLEAN;  "*** RESERVED *** '0 SCFSHR : BOOLEAN;  "TRUE=REMOTE/SHARED DEVICE02 SCFDAL : BOOLEAN; "TRUE=DELETE ALWAYS (EVEN ON2. SCFNPJ : BOOLEAN;  "TRUE=NO PAGE EJECT BEFO.REFILL01 : 0.. 1; END;J$ SCBSID : PACKED ARRAY [ 1.. 6 ] OF CHAR; "SPOOL ID (RETURNED ON PRINT)JB SCBDEV : PACKED ARRAY [ 1.. 8 ] OF CHAR; "DEVICE OR CLASS NAMEB* SCBUSR : WORD;  "OF USER ID SCI STRING*+ SCBJNM : WORD;  "OF JOB NAME SCI STRING +2 SCBPTH : WORD; "PATHNAME ADDRESS (SCI STRING)2( SCBFRM : WORD;  "OF FORMS SCI STRING() SCBPAG : WORD;  "/ REVERSE PAGE COUNT )+ SCBCOP : BYTE;  "NUMBER OF COPIES COUNT +- SCBLPP : BYTE;  "NUMBER OF LINES PER PAGE -! SCBPRI : BYTE; "NEW PRIORITY !% SCBXXX : BYTE;  "*** RESERVED *** %/ SCBDVP : WORD; "OF DEVICE/CLASS SCI STRING /, SCBODV : WORD;  "OF OLD DEVICE/CLASS SCI,END; (*$ RESUME LIST *)A -(*$ RESUME LIS%UDO PDL :3 y(*$ NO LIST *)>"***********************************************************>"* *<"*USER DESCRIPTOR OVERFLOW RECORD (UDO) 11/24/82  *<"* *""* LOCATION: S$CLF ON DISK  *">"***********************************************************>="* THE UDO IS USED ONLY IN THE CASE THAT A USER IS A MEMBER =A"* OF MORE ACCESS GROUPS THAN WILL FIT IN HIS UDR.IT CONTAINS AC"* ACCESS GROUP INFORMATION.IT IS A VARIANT OF THE CAPABILITIES C2 "* LIST FILE RECORD (CLR). FOR DETAILS SEE CLR.2 (*$ RESUME LIST *)8  WORD 7, BYTE 0 "8UCMAXO EQU$-UCBPRB * MAXIMUM NUMBER OF OVERLAYS 8" BYTE 7,0,8  WORD 7, BYTE 1 "8UCRPCN EQU$-UCBPRB * PRB RELATIVE RECORD NUMBER 8  BYTE 6,0, rNFCRSH P$DO 3y@(*$ NO LIST *)"** 7"* SYSTEM CRASH CODE EQUATES (NFCRSH) 07/19/84* 7"** ?"************************************************************ ?>"* NFCRSH LISTS ALL POSSIBLE SYSTEM CRASH CODES GENERATED BY><"* DNOS.SOME CODES ARE ALSO RESERVED AS THEY ARE USED BY<:"* DX10 AND USE OF THOSE BY DNOS WOULD NOT BE DESIRABLE.:"*2CSH00E = 14; "PMTLDR - CANNOT ASSIGN TO ROLL2 "*FILE . "*CSH010 THRU CSH012 RESERVED-USED BY DX10.<"* CSH013 THRU CSH01F ILLEGAL INTERRUPT AT LEVEL 3 THRU F<+"*CSH020  RESERVED-DX10-ILLEGAL INTERNAL +"*INTERRUPT 3CSH021 = 33; "PMUMGR - INCONSISTENT STRUCTURE 33CSH022 = 34; "NFTMGR - INCONSISTENT STRUCTURE 3CSH023 = 35; "NFSCHD - QUEUING ERROR3CSH024 = 36; "IOBM - INCONSISTENT STRUCTURE 3&CSH025 = 37; "ILLEGAL SYSTEM XOP&4CSH026 = 38; "PMROLL - CANNOT EXTEND SWAP FILE42CSH027 = 39; "PMROLL - SWAP FILE WRITE ERROR21CSH028 = 40; "PMLDSG - SWAP FILE READ ERROR 15CSH029 = 41; "NFPOP - UNEXPECTED ERROR RETURNED 54CSH02A = 42; "NUCLEUS - INCONSISTENT STRUCTURE4+"*CSH02B  RESERVED-DX10-ERR IN LDT BUILT +"*FOR PROG. FILE3CSH02C = 44; "NFENAB - SCHEDULER INHIBIT NEG. 3*"*CSH02D  RESERVED-DX10-TM$LDR TOOK END* "*ACTION '"*CSH02E  RESERVED-DX10-SO$CPR ERROR '-CSH02F = 47; "SYSTEM OVERLAY LOAD ERROR -1CSH030 = 48; "NFTMGR - NO SYSTEM TABLE AREA 1"*CSH031  RESERVED-DX10-UNEXP ERR RETURN "*IN RM$REL +"*CSH032  RESERVED-DX10-UNEXP ERR RETURN +"*IN BM$TRW +"*CSH033  RESERVED-DX10-UNEXP ERR RETURN + "*IN BM$W +"*CSH034  RESERVED-DX10-UNEXP ERR RETURN +"*IN BM$CLO +"*CSH035  RESERVED-DX10-UNEXP ERR RETURN +"*IN BM$FLS +"*CSH036  RESERVED-DX10-UNEXP ERR RETURN +"*IN BM$SCH ' "*CSH040 THRU CSH045 RESERVED-DX10- '3CSH046 = 70; "SEGMGR - INCONSISTENT STRUCTURE 3-CSH048 = 72; "JOBMGR - END ACTION TAKEN -/CSH04A = 74; "JOBMGR - TASK QUEUING ERROR //CSH04B = 75; "JOBMGR - ERROR FROM SEG MGR /+CSH04C = 76; "JOBMGR - ERROR FROM IOU +2CSH04D = 77; "JOBMGR - CANNOT GET TABLE AREA2"*CSH050  RESERVED-DX10- (CSH051 = 81; "PROGRAM FILE SVC'S -("* INCONSISTENT LDT LIST /CSH060 = 96; "NFINT2 - INTERNAL INTERRUPT /"* 60 THRU 6F RESERVED FOR "* INTERNAL INTERRUPTS 0 - F &"* 60 - INVALID INTERNAL INTERRUPT&"* 61 - MEMORY PARITY "* 62 - ILLEGAL INSTRUCTION "* 63 - TILINE TIMEOUT#"* 64 - ILLEGAL SUPERVISOR CALL #""*(RESERVED,SOFTWARE DETECTED)""* 65 - MAPPING ERROR "* 66 - PRIVILEGED OPCODE  "* 67 - TASK IS BEING KILLED ""*(RESERVED,SOFTWARE DETECTED)"%"* 68 - NOT ENOUGH USER TASK AREA %"* SOFTWARE DETECTED"* 69 - SEGMENT NOT PRESENT %"* 6A - EXECUTE PROTECT VIOLATION %#"* 6B - WRITE PROTECT VIOLATION #"* 6C - STACK OVERFLOW"* 6D - HARDWARE BREAKPOINT "* 6E - 12 MS CLOCK EXPIRED "* 6F - ARITHMETIC OVERFLOW "* DISK SPACE ' "*CSH070 THRU CSH076 RESERVED-DX10- '5CSH077 =119; "MEDIA CHANGE OCCURRED ON SYS DISK 5-CSH080 =128; "DSKMGR - END ACTION TAKEN -"*CSH081  RESERVED-DX10- .CSH082 =130; "DSKMGR - UNDEFINED OP CODE.7CSH083 =131; "DSKMGR - ADU ALLOCATED ALREADY USED 70CSH084 =132; "DSKMGR - FIRST AVAILABLE ADU0"*OUT OF RANGE4CSH085 =133; "DSKMGR - ILLEGAL PARTIAL BIT MAP4"*NUMBER REQUESTED/CSH086 =134; "DSKMGR - CACHED BIT MAP HAS /"*BEEN MODIFIED 0CSH087 =135; "DSKMGR - READ AFTER WRITE OF0$"* PARTIAL BIT MAP DOES NOT VERI$FY' "*CSH088 THRU CSH089 RESERVED-DX10- ''CSH090 =144; "INVALID USE OF VT01 '8CSH094 =148; "DSR940 - CAN'T GET BUFFER TABLE AREA8-CSH0A0 =160; "FILMGR - END ACTION TAKEN -5CSH0A1 =161; "FILMGR - ERROR LOADING FM OVERLAY 51CSH0A2 =162; "FILMGR-INCONSISTENT STRUCTURE 1' "*CSH0A3 THRU CSH0A4 RESERVED-DX10- '"*CSH0AF  RESERVED-DX10- -CSH0B0 =176; "NAMMGR - END ACTION TAKEN -2CSH0B1 =177; "NAMMGR - PASCAL RUN-TIME ABORT2-CSH0B2 =178; "IOTBID - END ACTION TAKEN --CSH0B3 =179; "IPCTSK - END ACTION TAKEN --CSH0B5 =181; "PMOVYL - END ACTION TAKEN --CSH0B6 =182; "PMTBID - END ACTION TAKEN --CSH0B7 =183; "PMWRIT - END ACTION TAKEN -CSH0B8 =18!4; "PMTLDR - END ACTION TAKEN !-CSH0B9 =185; "PMTERM - END ACTION TAKEN --CSH0BA =186; "PMSBUF - END ACTION TAKEN --CSH0BB =187; "PMRWTK - END ACTION TAKEN --CSH0BD =189; "PMSBID - END ACTION TAKEN -*CSH0BE =190; "RCP - END ACTION TAKEN*6CSH0C0 =192; "NFEOBR - TSBIO HAS BECOME NEGATIVE6' "*CSH0E0 THRU CSH0E5 RESERVED-DX10- '*CSH100 =256; "IOU - END ACTION TAKEN*.CSH101 =257; "IOU - WRONG SEGMENT MAPPED.1CSH102 =258; "IOU - LOOKUP, DE-LINK FAILURE 1' "*CSH103 THRU CSH106 RESERVED-DX10- '+CSH107 =263; "IOU - BAD FILE LDT LIST +' "*CSH108 THRU CSH109 RESERVED-DX10- '-CSH10A =266; "IOU - ERROR %%RETURNING ADU -"* JUST OBTAINED"*CSH10B THRU CSH10D RESERVED-DX10- 2CSH10E =270; "IOU - FCB BLOCK COUNT OVERFLOW2' "*CSH120 THRU CSH123 RESERVED-DX10- '' "*CSH130 THRU CSH131 RESERVED-DX10- '-CSH132 =306; "RPUTIL - END ACTION TAKEN -' "*CSH133 THRU CSH137 RESERVED-DX10- '-CSH138 =312; "RPIV -BIT MAP TABLE ERROR -4CSH139 =313; "RPINV2 - DISK ALLOCATION FAILURE4/CSH13A =314; "RPINV2 - BAD BIT MAP NUMBER /7CSH13B =315; "RPINV2 - BAD ADU LIST RANGE OVERLAP 74CSH13C =316; "NFPWUP - NO POWER DOWN INTERRUPT45CSH13D =317; "NFPWUP - CANNOT FIND RTWP CONTEXT 51CSH13E =318; "NFPWUP - INVALID RTWP CONTEXT 1"*CSH13F  RESERVED-DX10- "*CSH140  RESERVED-DX10- .CSH141 =321; "RESERVED-DX7 -NO POWER FAI.L "*RECOVERY SUPPORT3CSH142 =322; "UNIV BLD -NO TERMINAL AVAILABLE 33CSH143 =323; "UNIV BLD -I/O ERROR TO TERMINAL 3"* WHILE BUILDING DISK4CSH144 =324; "UNIV BLD -NO RESPONSE TO INITIAL4"* MESSAGE6CSH145 =325; "IPC - INCONSISTENT DATA STRUCTURES6(CSH146 =326; "DIOU TOOK END ACTION(+"*CSH147  RESERVED-DX10-PDT'S POINTER TO +"*PRB IS INVALID,"*CSH150  RESERVED-DX7 -DISK CHANGED WITH,"* NO UNLOAD (UV) COMMAND5CSH160 =352; "(RESERVED DX10-TM$BID END ACTION) 51CSH161 =353; "IOU (SECMGR) - UNABLE TO OPEN 1"* LUNO TO .S$CLF 3CSH162 =354; "IOU (SECMGR) - UNABLE TO CREATE 3!"* OR MAP SPECIAL SEGMENT FOR !"* BUILDING CAPABILITY LIST 2CSH163 =355; "RESTART - JUST MADE CRASH FILE2!"* BIGGER, SO WE FORCED CRASH !0CSH164 =356; "NFCALR - MEMRES OVLY ROUTINE0"* CALLED WHEN ALREADY IN A "* MEMRES OVLY ROUTINE1CSH177 =375; "CV,CVD,DCOPY-IPL NOW REQUIRED 1?"************************************************************ ?"** )"*SYSTEM LOADER FLASH CRASH CODES * )"** ?"************************************************************ ?'FLSH01 =1; "LOAD DEVICE I/O ERROR ',FLSH02 =2; "NOT ENOUGH PHYSICAL MEMORY,,FLSH03 =3; "CAN'T FIND SYSTEM DISK PDT,.FLSH04 =4; "ERROR IN PROG FILE DIRECTORY..FLSH05 =5; "S$IPL INCONSISTENT WITH REV.."* LEVEL OF CURRENT SYSTEMFLSH)06 =6; "ERROR IN DM BIT MAP ROUTINE )/FLSH08 =8; "CAN'T FIND SYSTEM LOADER FILE /0FLSH09 =9; "CAN'T FIND KERNEL PROGRAM FILE0/FLSH0A = 10; "CAN'T FIND A SYSTEM SEGMENT /0FLSH0B = 11; "NO PATCHES APPLIED TO SYSTEM0,FLSH0C = 12; "SOFTWARE VERSION TOO OLD,2FLSH0D = 13; "CAN'T FIND UTILITIES PROG FILE2-FLSH0E =0; "CAN'T FIND SYSTEM ROLL FILE -2FLSH0F = 15; "KERNEL FILE LEVEL INCONSISTENT2"* WITH UTILITY FILE /FLSH11 = 17; "CAN'T GET SYSTEM TABLE AREA /,FLSH13 = 19; "LOGICAL ADDRESS OVERFLOW,'FLSH14 = 20; "CAN'T LOAD WCS FILE ';"*FLSH60-6F EQU>60->6F  INTERNAL INTERRUPT (LEVEL 2) ;-FLSH68 =104; "NOT ENOUGH USER TASK AREA -(*$ RESUME LIST *) CLEAR TO SEND6NKSDCD EQUWD0004 SECONDARY DATA CARRIER DETECT 66NKTSRE EQUWD0002 TRANSMIT SHIFT REGISTER EMPTY 6,NKDCD EQUWD0800 DATA CARRIER DETECT,(NKRING EQUWD0400 RING INDICATOR ((NKDSR EQUWD0200 DATA SET READY (&NKCTS EQUWD0100 CLEAR TO SEND&* '.NOTIFF EQUWD0F06 ALL NOTIFY FLAGS MASK.:NOTIFI EQUWD0300 INTR SUPPORTED NOTIFY FLAGS MASK :2NOTIFP EQUWD0C06 POLLED NOTIFY FLAGS MASK 26SIGFLG EQUWDF060 MODEM SIGNAL FLAGS ONLY MASK 6:SIGDSC EQUWD3000 DSC MODEM SIGNAL FLAGS ONLY MASK :<SIGTIM EQUWDC060 POLLED MODEM SIGNAL FLAGS ONLY MASK <* ':*  PDXFLG - FLAG DEFINITIONS USED TO REFERENCE SAVED :* sFDP PDst3my(*$ NO LIST *)?"************************************************************ ?"** 1"* FILE DESCRIPTOR PACKET (FDP)06/22/81* 1"** +"* LOCATION: ALWAYS A SUB-STRUCTURE * +?"************************************************************ ?:"* THE FDP IS A TWO WORD ADDRESS OF A FILE CONTROL BLOCK:="* (FCB). THE FIRST WORD IS THE SSB ADDRESS OF THE TABLE IN =2"* WHICH THE SECOND WORD IS THE LOGICAL ADDRESS.2 FDP = PACKED RECORD 8 FDPFMT : @SSB ;"SSB ADDRESS OF FILE MANAGER TABLE8" FDPFCB : @FSC ;"FCB ADDRESS"END; (*$ RESUME LIST *)c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LtDMR PDv3y(*$ NO LIST *)D!"*****************************************************************D8"* DISC MANAGER REQUEST BLOCK(DMR)  06/25/79  *8"* *&"*LOCATION: SYSTEM TABLE AREA *&D!"*****************************************************************D DMR = PACKED RECORD # DMRSVC : BYTE; "SVC CODE = >22 ## DMRERR : BYTE; "SVC ERROR CODE # DMROP: BYTE; "OP CODE FILL00 : BYTE; "RESERVED " DMRPDT : @PDT ;"PDT ADDRESS"( DMRBSZ : WORD;  "BLOCK SIZE IN BYTES(9 DMRBCT : PACKED ARRAY [ 1.. 2 ] OF WORD; "BLOCK COUNT 9. DMRADU : WORD;  "NUMBER OF FIRST ALLOCATED.END; (*$ RESUME LIST *)+N)0 )8`h)l+N)B )8```+N)V )^` )l9KKRThO@uSGB PDy"3dy@(*$ NO LIST *)?"************************************************************ ?"** /"* SEGMENT GROUP BLOCK (SGB) 04/09/81* /"** /"* LOCATION: SEGMENT MANAGER TABLE AREA * /?"************************************************************ ?;"* THE SGB IS AN ANCHOR FOR SSBS OF SEGMENTS WHICH FORM A ;8"* LOGICAL SET. IT IS USED TO ACCESS SSBS FOR SEGMENT8 "* MANAGER CALLS MADE BY LUNO.  SGB = PACKED RECORD 3 SGBSGB : @SGB ;"POINTER TO NEXT SGB IN TABLE 37 SGBOMT : @SSB ;"SMT SSB POINTER FOR OVERFLOW SGB 77 SGBOGB : @SGB ;"SGB SSB POINTER FOR OVERFLOW SGB 7& SGBSSB : @SSB ;"SSB LIST HEADER&" SGBFLG : PACKED RECORD "FLAGS"$ SGFPFL : BOOLEAN; "PROGRAM FILE $SEGMENT GROUP . SGFDFL : BOOLEAN;  "DATA FILE SEGMENT GROUP.1 SGFMBS : BOOLEAN; "MEMORY-BASED SEGMENT GROUP 1 SGFRES : 0..8191; "RESERVED END;0 SGBFMT : @SSB ; "FDP FOR THE SEGMENT GROUP0 SGBFCB : @FSC ;" END; (*$ RESUME LIST *)   mLJgk.$VALUE e #"(f.`e+%"­Ҫ + mAi -mm­Ҫ   ­Ҫ ,mmmm eJAi +2 ( -* ( *" ( / (  Ҫ ,ډ!ҕ > ҕ 0ү#  m(Ǐ>ǏǏϭ Ǐ"HR ҕ $f σHa*/N@BP ee e eϊυϭ Be e*vSGCONS $D Z2fy@(*$NO LIST*)" BLANK = ' '; $ EMPTY = '';"* DEFAULT NAME $. MAXJCA = #3000; "* BIGGEST POSSIBLE JCA ., MAXSD = 15; "* MAXIMUM NUMBER OF SD'S ,0" CONSTANTS USED BY OPTIONAL SVC PROCESSORS 0. svcINT = 1;"* INTERTASK COMMUNICATIONS .* svcSEC = 2; "* SECURITY (ENCRYPTION) *  svcACC = 3;"* ACCOUNTING  $ svcIOC = 4; "* DCP COMM IO SVC$* svcSAMP = 5;  "* PERFORMANCE SAMPLER* svcNIO = 6;"* DNIO <" THIS CONSTANT MUST ALWAYS EQUAL THE LAST OPTIONAL SVC < NOSVCGROUPS = 6;  " LUNOS USED BY SYSGEN * INCON= #78; "* INPUT CONFIGURATION*. OUTCON = #79; "* OUTPUT CONFIGURATION ." SOURCE = #7A;"* D$SOURCE " LINKSTRM = #7B;"* THE$ SYSTEM LINK STREAM(FOR SAFETY) $0 SYSLINK= #7B; "* THE SYSTEM LINK STREAM 00 ERRFIL = #7C; "* THE BATCH MESSAGE FILE 0* ALGSSTRM = #7D; "* ALGS BATCH STREAM*( IOULINK= #7E; "* IOU LINK STREAM(6"  DMLINK = #7F;"* DISK MANAGER LINK STREAM 6. LNK3780= #80; "* 3780 DSR LINK STREAM .. LNK3270= #81; "* 3270 DSR LINK STREAM .. LNKHDLC= #82; "* HDLC DSR LINK STREAM .. LNKLAP = #83;"* LAPDSR LINK STREAM .. LNKCOMA= #84; "* COMA DSR LINK STREAM .. LNKSDLC= #85; "* SDLC DSR LINK STREAM .. LNKRTS = #86;"* RTSDSR LINK STREAM .. LNKCMNS= #87; "* CMNS DSR LINK STREAM .( CFDSR= #88; "* CFDSR FOR COMSWS ( LNKSWS = #89;"* LIN K CONTROL FILE FOR COMSWS ( CFLAP= #90; "* CFLAP FOR LAP DSR(* COMPATCH = #91; "* COMM PATCH STREAM*((4"* THE ORDINALS OF THE QUESTIONS ASKED BY SYSGEN4  SITQST = 1;"* SITE NAME?  " KIFQST = SITQST+1; "* KIF? "& SECQST = KIFQST+1; "* SECURITY?&6 APFQST = SECQST+1; "* APPLICATION PROGRAM FILE? 6, LGDQST = APFQST+1;  "* LOGGING DEVICE?,. ATDQST = LGDQST+1;  "* ATTENTION DEVICE?.* RSTQST = ATDQST+1; "* RESTART TASK?*. %% XCARD1 = RSTQST+1;  "* EXPANSION CARD 1?.. XCARD2 = XCARD1+1;  "* EXPANSION CARD 2?.6 USRQST = XCARD2+1; "* PROCESSOR REQUEST TABLE? 6( CCQST = USRQST+1;"* COUNTRY CODE (* FREQST = CCQST+1; "* LINE FREQUENCY * P8 FRQST = FREQST+1; "* POWER FAIL SUPPORT FOR 911'S 8*" ALL QUESTIONS AFTER HERE ARE HIDDEN *2 STSIZQST = PFRQST+1;  "* SYSTEM TABLE SIZE? 2: SMTAQST = STSIZQST+1;"* SEGMENT MANAGER TABLE AREA? :8 FMTAQST = SMTAQST+1; "* FILE MANAGER TABLE AREA? 8. BTAQST = FMTAQST+1; "* I/O BUFFER AREA? .. AJLQST = BTAQST+1;  "* ACTIVE JOB LIMIT?.2 BJLQST = AJLQST+1;  "* BACKGROUND JOB LIMIT 2( SLQST = BJLQST+1;"* TIME SLICING?(* SVALQST = SLQST+1; "* SLICE VALUE? *D LASTIMPLICATION = SVALQST; " NO IMPLICATION AFTER THIS QUESTIOND2 PMSQST = SVALQST+1; "* PHYSICAL MEMORY SIZE? 2& COMMONQST = PMSQST+1;"* COMMON?&2 CLOCKQST = COMMONQST+1; "* CLOCK INTERRUPT? 2 WIZQST = CL$OCKQST+1;  "* ARE YOU A WIZARD?$ LQ = WIZQST;  "* THE LAST SYSTEM QUESTION   ENTQST = LQ+1; "* ENTITY? $ DEVQST = ENTQST+1; "* DEVICE?$( XOPQST = DEVQST+1; "* XOP LEVEL? ($ OPSVCQST = XOPQST+1; "* SVC? $@"* WARNING : ALL PARAMETERS TO BE CHANGED MUST APPEAR BEFORE @ "* THE INTERRUPT QUESTION  0 INTRPTQST = OPSVCQST+1; "* INTERRUPT LEVEL08 CHSQST = INTRPTQST+10;  "* EXPANSION CHASSIS? (1) 84 CHSQST1 = CHSQST+1; "* EXPANSION CHASSIS? (5) 40 POSQST = CHSQST1+1; "* EXPANSION POSITION?0* CRUQST = POSQST+1; "* CRU ADDRESS? *2 TLQST = CRUQST+1; "* TILINE ADDRESS? (>F800) 22 TLQST1 = TLQST+1; "* TILINE ADDRESS? (>F880) 2 TLQST2 = TLQST1+1; "* TILINE ADDRESS? (>F8E0) , NODRQST = TLQST2+1; "* NUMBER DRIVES? ,. RECSIZQST = NODRQST+1; "* RECORD SIZE? .( XCESSQST = RECSIZQST+1;"* ACCESS?(( XCESSQST1 = XCESSQST+1;"* ACCESS?(. WIDTHQST = XCESSQST1+1;"* PRINT WIDTH? ., PMODEQST = WIDTHQST+1; "* PRINT MODE?,2 XCSQST = PMODEQST+1;  "* EXTENDED CHAR SET? 22 MULATORQST = XCSQST+1;  "* EMULATOR ADDRESS?2. TOQST = MULATORQST+1; "* TIME OUT? (60) .( TOQST1 = TOQST+1;"* TIME OUT? (0)(, TOQST2 = TOQST1+1;  "* TIME OUT? (30) ,: LPTOQST = TOQST2+1;"* ASSOCIATED PRINTER TIME OUT? :0 CHARQQST = LPTOQST+1; "* CHARACTER QUEUE? 06 TERMQST = CHARQQST+1; "* TERMINAL TYPE QUESTION 6 BAUDQST = TERMQST+1;  "* BAUD RATE QUESTION * ACUQST = BAUDQST+1;"* ACU PRESENT? *4 ACUADDQST = ACUQST+1; "* ACU ADDRESS QUESTION 42 ECHOQST = ACUADDQST+1;  "* ECHO CHARACTERS? 2. DUPLEXQST = ECHOQST+1; "* FULL DUPLEX? .2 SWITCHQST = DUPLEXQST+1;  "* SWITCHED LINE?2: COMTTYQST = SWITCHQST+1;  "* COMM OR TTY INTERFACE? :4 CASXCESSQST = COMTTYQST+1; "* CASSETTE ACCESS?44 COMBRDQST = CASXCESSQST+1; "* COM BOARD TYPE? 4> COMSESQST = COMBRDQST+1;  "* NUMBER OF SESSIONS?(CIPC) >2 COMADRQST = COMSESQST+1;  "* COMM ADDRESS? 2. COMPROTQST = COMADRQST+1; "* PROTOCOL? .4 COMSPROQST = COMPROTQST+1; "* SPECL PROTOCOL? 4, COMACUQST = COMSPROQST+1; "* ACU CRU?, COMDTPQST = COMACUQST+1;  "* DIAL TYPE?: COMBRTQST = COMDTPQST+1;  "* BID RESPONSE TIMEOUT? :8 COMRATQST = COMBRTQST+1;  "* RECEIVE ACK TIMEOUT? 8: COMRDTQST = COMRATQST+1;  "* RECEIVE DATA TIMEOUT? :6 COMILTQST = COMRDTQST+1;  "* IDLE LINE TIMEOUT? 62 COMTRBQST = COMILTQST+1;  "* TRNASMIT BID? 28 COMREQQST = COMTRBQST+1;  "* RECEIVE ENQ TIMEOUT? 8: COMTEQQST = COMREQQST+1;  "* TRANSMIT ENQ TIMEOUT? :8 COMRNKQST = COMTEQQST+1;  "* RECIEVE NAK TIMEOUT? 8: COMTNKQST = COMRNKQST+1;  "* TRANSMIT NAK TIMEOUT? :2 COMRDAQST = COMTNKQST+1;  "* RECEIVE DATA? 2> COMHTAQST = COMRDAQST+1;  "* HIGHEST TERMINAL ADDRESS? >2 COMPTIQST = COMHTAQST+1;  "* POLL TIMEOUT? 2 COMSPEQST = COMPT"IQST+1;  "* SPECL PROTOCOL? ". SDQST = COMSPEQST+1;  "* SPECIAL DEVICE. SDQST1 = SDQST+1; SDQST2 = SDQST1+1;  SDQST3 = SDQST2+1;  SDQST4 = SDQST3+1; & VDTQST = SDQST4+1; "* VDT TYPE?&0 VDTPRQST = VDTQST+1;  "* ATTACHED PRINTER?0( VDTSPQST = VDTPRQST+1;  "* SPEED?(: VDTINTFCQST = VDTSPQST+1; "* (VDT) INTERFACE TYPE? :8 LPINTFCQST = VDTINTFCQST+1; "* (LP) INTERFACE TYPE? 88 SDINTFCQST = LPINTFCQST+1; "* (SD) INTERFACE TYPE? 84 CHNNMBQST = SDINTFCQST+1; "* CHANNEL NUMBER? 40 XOPWPQST = CHNNMBQST+1; "* XOP WORKSPACE? 0, XOPPCQST = XOPWPQST+1; "* XOP ENTRY? ,, XOPOBQST = XOPPCQST+1; "* XOP OBJECT?,( XOPCDQST = XOPOBQST+1; "* XOP CHANG(E QUESTION8 DEVCDQST = XOPCDQST+1;  "* DEVICE CHANGE QUESTION 8$ STOPQST = DEVCDQST+1;"* SAVE?$$ BLDQST = STOPQST+1;"* BUILD? $. SDTILQST = BLDQST+1;  "* TILINE DEVICE? ., LPSPDQST = SDTILQST+1; "* (LP) SPEED?,8 TLANCQST = LPSPDQST+1;  "* TILINE ADDRESS? (ASYNC) 8: VTNUM = TLANCQST+1;"* NUMBER OF VIRTUAL TERMINALS? :4 DIPCPRO = VTNUM+1;  "* PROTOCOL FOR COM DIPC? 44 COMMTL = DIPCPRO+1; "* TILINE ADDRESS OF COMM? 48 FINALQST = COMMTL;  "* THE SIZE OF THE QTX ARRAY 8"*'<"*INDICES FOR THE ARRAY OF PROTOCOL AND BOARD STATUSES <"*' IALPHA = 0;  IBCAIM = IALPHA+1;  ICOMIF = IBCAIM+1;  IFCCC= ICOMIF+1;  IHSCC= IFCCC+1;: NO_OF_BOARD = IHSCC+1; "*NUMBER OF ROWS - ONE EXTRA :," INDICES FOR THE MAP BOARD NAME ARRAY, NEW_NAMES = 10; ICI421 = NEW_NAMES; ICP501 = ICI421 + 1;  ICP502 = ICP501 + 1;  ICI401 = ICP502 + 1;  ICP503 = ICI401 + 1;  ICP504 = ICP503 + 1;  NO_OF_BRDNAM = ICP504;  J3780= 0;  J2780= J3780+1; J3270= J2780+1; JHDLC= J3270+1; JLAP = JHDLC+1; JCOMA= JLAP +1; JSDLC= JCOMA+1; JRTS = JSDLC+1; JCMNS= JRTS +1;< NO_OF_PROTO = JCMNS+1; "*NUMBER OF COLUMNS - ONE EXTRA <"*'*"* ADD CONSTANTS FOR THE CONTROLLERS*"*' TCI401 = #4000; TCI403 = 3;  TCI404 = 4;  TNONE= 0;  T9902= 5;  T9903= 6; (*$RESUME LIST*) "ATASZ : WORD; "ALLOCATION SIZE"% SATADU : WORD;  "ALLOCATION START %@ FILL04 : PACKED ARRAY [ 1..60 ] OF BYTE; "REMAINDER OF BLOCK@END;2 TICMD: BYTE; "R0 = TILINE COMMAND/HEAD ADDR2 TIHEAD : BYTE; " , TISPR: BYTE;  "R1 = SECS PER RECD/SECT, REF_CHAIN: @REFNODE; (* ALL REFS OF THIS DEF B k4 `4-(DBSAL : @SSB ; "SSB ADDRESS FOR ALS(4 FDBANS : @FSC ;"ADDRESS OF NEXT SIBLING (ANS)4* FDBSAN : @SSB ; "SSB ADDRESS FOR ANS*3 FDBAPF : @FSC ;"ADDRESS OF PARENT FILE (APF) 3* FDBSAP : @SSB ; "SSB ADDRESS FOR APF* ); END; );  SwMTX PD"3y@(*$ NO LIST *)?"*********************************************+************** ?"** 3"* EXTENTION FOR A MAGNETIC (MTX)04/13/83* 3"* TAPE DEVICE* "*REV 05/10/83* "*REV 10/30/84* "* LOCATION: SYSTEM AREA * ?"************************************************************ ?:"* THE MTX IS AN EXTENSION TO THE PDT USED TO DESCRIBE A:8 "* MAGNETIC TAPE DEVICE.IT IS USED AS A WORK AREA BY8 "* THE DSR.  MTX = PACKED RECORD : MTXTIL : PACKED ARRAY [ 1..16 ] OF BYTE; "TILINE IMAGE:I$ MTXSLG : PACKED ARRAY [ 1..16 ] OF BYTE; "TILINE IMAGE FOR SYSTEM LOG I& MTXMAJ : WORD;  "MAJOR ERROR COUNT&, MTXSVS : WORD;  "TILINE UNIT ERROR COUNT, MTXMIN : WORD; "MINOR E RROR COUNT " MTXFLG : PACKED RECORD "FLAGS"' MTFEOT : BOOLEAN;  "END-OF-TAPE FLAG 'FILL00 : 0.. 7; * MTFODI : BOOLEAN;  "ON-LINE-DIAGNOSTICS*FILL01 : 0..15; ' MTFIWS : BOOLEAN;  "ISSUE WRITE SYNC ') MTFAIE : BOOLEAN;  "ALREADY ISSUED EOF )FILL02 : 0..31; END;$ MTXBMP : WORD; "BUFFER MAP FILE$ FILL03 : WORD; " , MTXCQF : WORD;  "COMPLETED QUEUE (FIRST),+ MTXCQL : WORD;  "COMPLETED QUEUE (LAST) +END; (*$ RESUME LIST *)P+N%:`+N%B``+N%N %V`%F+N%~ %V`+N% %V`+n% %`%F%z%%%+% %`+N% %`~+N% &` p+N%''  &` +N% V'+N%-' '+N& &` H+N& &` )) UUDR PD $3 y(*$ NO LIST *)>"***********************************************************>"* *4"* USER DESCRIPTOR RECORD(UDR)  11/24/82  *4"* *"* LOCATION: DISK  *>"***********************************************************><"* THE UDR DESCRIBES THE DISK STRUCTURES THAT REPRESENTS A<="* GIVEN USER OF THE SYSTEM.IT INCLUDES LOGON INFORMATION =C"* AND SECURITY INFORMATION.IT IS A VARIANT OF THE CAPABILITIES C2 "* LIST FILE RECORD (CLR). FOR DETAILS SEE CLR.2 (*$ RESUME LIST *)$ RESUME LIST *)8  WORD 7, BYTE 0 "8UC%%MAXO EQU$-UCBPRB * MAXIMUM NUMBER OF OVERLAYS 8" BYTE 7,0,8  WORD 7, BYTE 1 "8UCRPCN EQU$-UCBPRB * PRB RELATIVE RECORD NUMBER 8  BYTE 6,0, EUIP PD3 y(*$ NO LIST *)?"************************************************************ ?"** +"* USER ID PARAMETER (UIP)  12/01/82 * +"** -"*LOCATION: POINTED TO BY IRBPRM FIELD* -"** ?"************************************************************ ?"*2"*THE USER ID PARAMETER IS CHECKED BY SECURITY2."*MANAGER AND WILL BE USED IN PLACE OF THE.-"*ISSUER'S USER ID IF A VALID PASSCODE IS -/"*SUPPLIED OR THE TASK HAS SECURITY BYPASS. /-"*THIS PARM MAY BE SUPPLIED BY A USER, OR -/"*MAY BE CREATED BY IOU TO PASS INFO ACROSS /"*THE NETWORK."* UIP = PACKED RECORD ) UIPSLN : BYTE;  "SUBLIST NUMBER (>02) )4 UIPLEN : BYTE; "LENGTH OF PARM-2 IN BYTES (>10)465 UIPUID : PACKED ARRAY [ 1.. 8 ] OF BYTE; "USER ID 56 UIPPWD : PACKED ARRAY [ 1.. 8 ] OF BYTE; "PASSWORD6END; (*$ RESUME LIST *)ρaVςaVσaVk$CLS$ ρB#ςVhςVhςVh\8c ģ£ʣ£ʣρVhkbabb bf b`8 b`7 b`7bxbbba$$FN LEAFNAMEb$=bb0c cb| b`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LzFCA PDD2gy(*$ NO LIST *)@"************************************************************ @"** 4"*FILE CONTROL BLOCK ANCHOR (FCA)03/02/79* 4"**  "* LOCATION: SYSTEM AREA * @"************************************************************ @@"* THE FCA IS A SHORT STRUCTURE USED TO GET TO A FILE CONTROL @@"* BLOCK (FCB) THAT MAY IN TURN BE IN SYSTEM TABLE AREA OR IN @ "* A JCA.  FCA = PACKED RECORD 0 FCAJSB : @JSB ; "JSB ADDRESS OF FCB OWNER 0" FCAFCB : @FCB ;"FCB ADDRESS"END; (*$ RESUME LIST *)S USED BY OPTIONAL SVC PROCESSORS 0. svcINT = 1;"* INTERTASK COMMUNICATIONS .* svcSEC = 2; "* SECURITY (ENCRYPTION) *  svcACC = 3;"* ACCOUNTING  $ svcIOC = 4; {SISTYPESDv2hy(*$ NO LIST*) !L$"-----------------------------------------------------------------------L" '," TYPES USED BY SIS UTILITY 02/24/82 ," 'L$"-----------------------------------------------------------------------L" 'J# LDTRT = SET OF (SHARED,BIT9,BIT10,VIRTUAL,REMOTE,CHANNEL,DEVICE,FIL);J& SEARCHTYPE=(TASK,JOB,GLOBAL,ALL);& JSBPTR = @JSB;  TSBPTR = @TSB;  LDTPTR = @LDT; "?COPY DSC.TEMPLATE.PTABLE.SSB""?COPY DSC.TEMPLATE.PTABLE.JSB""?COPY DSC.TEMPLATE.PTABLE.TSB""?COPY DSC.TEMPLATE.PTABLE.LDT"(*$ LIST *) "********************************* @"** 4"*FILE CONTROL BLOCK ANCHOR (FCA)03/02/79* 4"**  "* LOCATION: SYSzJDBCONS PDx2jy(*$NO LIST*)"(" THE FOLLOWING ARE USED BY BILDRT(" ' jdbSRCMSG = 1540; jdbINTTAB =1; jdbSOURCE =105; jdbSYSTAB =661; jdbSYSTABEND  =689; jdbRPSDAT =695; jdbLNKMSG = 1539; jdbLNKSTRM  =993; jdbSYSLNK = 1017; jdbFMLNK  = 1103;"  jdbDKMGR  = 1179; jdbIOU  = 1206;"  jdbPGMGR  =981; jdbLNKEND = 1297; jdbALGSMSG  = 1541; jdbALGS = 1298; jdbPDSRXLE  = 1313; jdbCOMSWS = 1321; jdbCOMPAT = 1543; jdbSYSLGS = 1338; jdbCOMPLETE = 1542; jdbSWSBUD = 1524; jdbDSRBUD = 1531; jdbALGSEND  = 1538; S@" '(" THE FOLLOWING ARE USED BY BLDJCA(" ' jdbSMTA = 1558; jdbSSB  = 1577;6" *** WARNING *** jsbSSBEND IS ALSO USED BY BLDSSB6 jdbSSBEND = 1592; jdbSMTAEND  = 1593; jdbJCA  = 1595; jdbJCAEND = 1626;((" THE FOLLOWING ARE USED BY BLDJSB(( jdbJSBLST = 1630; jdbJSB  = 1631;((" THE FOLLOWING ARE USED BY BLDSSB(6" *** NOTE *** jdbSSBEND IS ALSO USED BY BLDSSB 6( jdbSYSSGB = 1649; jdbUNLABSSB = 1578; jdbSMTSSBEND  = 1659; jdbFMSSBS = 1660; jdbFMSSBE = 1661; jdbDUMYFMSSB  = 1662; jdbSSBRUT = 1664; jdbSSBCOM = 1665; jdbSSBCOMDUMY  = 1666; ((" THE FOLLOWING ARE USED BY BLDWSR(( jdbWSP  =613; jdbSDWSP  =614; jdbMDWSP  =616; jdbXCRD1  =617; jdbXCRD2  =618; jdbMIDT =619; jdbINTBIT =620; jdbDTEND  =621; jdbCTAB =622; jdbIV =649; jdbXCMPOSTAB  =650; jdbACWSP  =651; jdbMITT =654; jdbMITENT =655; jdbCHNENT =658; jdbCHNTBL =659; jdbDMCENT =660;((" THE FOLLOWING ARE USED BY BLDDSR(( jdbCOMDSR = 1667; jdb3780MSG  = 1695; jdb3780LC = 1696; jdb3270MSG  = 1700; jdb3270LC = 1701; jdbHDLCMSG  = 1704; jdbHDLCLC = 1705; jdbCOMAMSG  = 1706; jdbCOMALC = 1707; jdbSDLCMSG  = 1708; jdbSDLCLC = 1709; jdbRTSMSG = 1711; jdbRTSLC  = 1712; jdbLAPMSG = 1718; jdbLAPLC  = 1719; jdbCMNSMSG  = 1721; jdbCMNSLC = 1722;" '(" THE FOLLOWING ARE USED BY BLDSWS(" ' jdbCFDSRHD  = 1723; jdb3780MACRO  = 1735; jdb3270MACRO  = 1746; jdbBRDMACRO = 1747; jdbCHNMACRO = 1752; jdbIPCMACRO = 1753; jdbLAPMACRO = 1754; jdbRTSMACRO = 1755; jdbSDLMACRO = 1756; jdbSWSLNK = 1757;" '(" THE FOLLOWING ARE USED BY COPY1 ((  jdbTRAPCL K  = 1766; jdbTRAPSD = 1767; jdbTRAPMD = 1768; jdbTRAPEXP  = 1769; jdbTRAPAC = 1770;((" THE FOLLOWING ARE USED BY PDTBLD(( jdbPDTSTA = 1771; jdbPDTLNK = 1772; jdbDPDLNK = 1774; jdbPDTEND = 1776; jdbDPDEND = 1778; jdbRTSPDT = 1780;((" THE FOLLOWING ARE USED BY PDTGO (( jdbPDTLEN = 1781; jdbPDTTITLE = 1783; jdbPDTLP  = 1838; jdbTICONT = 1842; jdbDSDPD  = 1847; jdbTIDWSP = 1853; jdbSDDIB  = 1869; jdbCOMEXT = 1875; jdbKSB  = 1876; jdbASREXT = 1891; jdbVDTEXT = 1902; jdbTPDEXT = 1903;  jdbANCEXT   = 1923;  jdbCQ = 1899; jdbKSBL = 1935; jdbEN = 1936;(*$RESUME LIST*) D SIZE? .( XCESSQST = RECSIZQST+1;"* ACCESS?(( XCESSQST1 = XCESSQST+1;"* ACCESS?(. WIDTHQST = XCESSQST1+1;"* PRINT WIDTH? ., PMODEQST = WIDTHQST+1; "* PRINT MODE?,2 XCSQST = PMODEQST+1;  "* EXTENDED CHAR SET? 22 MULATORQST = XCSQST+1;  "* EMULATOR ADDRESS?2. TOQST = MULATORQST+1; "* TIME OUT? (60) .( TOQST1 = TOQST+1;"* TIME OUT? (0)(, TOQST2 = TOQST1+1;  "* TIME OUT? (30) ,: LPTOQST = TOQST2+1;"* ASSOCIATED PRINTER TIME OUT? :0 CHARQQST = LPTOQST+1; "* CHARACTER QUEUE? 06 TERMQST = CHARQQST+1; "* TERMINAL TYPE QUESTION 6 BAUDQST = TERMQST+1; 1BEMCNS PKK$|28{  (* $NO LIST *) " '4" DESCRIPTION: CONSTANTS FOR THE BEMF UTILITY 4" '"" REVISIONS: ORIGINAL 03/19/80"" ':"  01 08/09/84Change LUNO_PARM to read FLNM_PARM:," in order to correspond with the the ,&" changes made to module BEMAIN.&" '" ': FLNM_PARM= 3 ; "INPUT PARAMETER - FILE NAMER01 :4 LC_UC_PARM = 4 ;  "INPUT PARAMETER - LC/UC 4> MAX_KEY_PARM = 5 ; "INPUT PARAMETER - MAX KEY SIZE >" '8 MAX_PARA_LEN = 1600;  "ACTUALLY BUFFER LENGTH 8" ' " FATAL ERROR CODES " ' FATAL= #8000 ; 0 BAD_PARM = #91AF ;  "BAD INPUT PARAMETER 0: BAD_LINE_1 = #91B0 ; "LINE 1 OF INPUT FILE IS BAD:>@ UNEXPECTED_EOF = #91B1 ; "END OF INPUT FOUND UNEXPECTEDLY@: IO_ERROR = #91B2 ; "I/O ERROR ON KEY INDEXED FILE:" ' " INTERNAL ERROR CODES" '< DUPLICATE_KEY= 1 ; "SAME KEY USED MORE THAN ONCE <2 PARA_TOO_LONG= 2 %%;  "PARAGRAPH TOO LONG 28 MISSING_KEY= 3 ; "%% FOUND WITHOUT MESSAGE ID88 BLANK_LINE_IN_PARA = 4 ;  "BLANK LINE IN PARAGRAPH 88 MISSING_EXPLANATION =5 ;  "MISSING EXPL. PARAGRAPH 8> MISSING_USER_ACTION =6 ; "MISSING USER ACTION PARAGRAPH>> MISSING_BLANK_LINE =7 ; "MISSING BLANK LINE BEFORE MSG> (* $LIST *)"F WORD; ".. FILL11 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".B TRACES : PACKED ARRAY [ 1..64 ] OF BYTE; "TRACE SAVE AREA FOR B~LNB PD2ky LNB = PACKED RECORD ID: WORD;!LNB: @LNB;! LGN: LOGICAL$NAME;PP: @LNB;!FLG: FLAG$WORD; SAA: FLAG$WORD; RCT: BYTE;!WCT: BYTE;!LCT: BYTE;!DCT: BYTE;!SID: WORD !END;$k4`4@(*$NO LIST*)"(" THE FOLLOWING ARE USED BY BILDRT(" ' jdbSRCMSG = 1540; jdbINTTAB =1; jdbSOURCE =105; jdbSYSTAB =661; jdbSYSTABEND  =689; jdbRPSDAT =695; jdbLNKMSG = 1539; jdbLNKSTRM  =993; jdbSYSLNK = 1017; jdbFMLNK  = 1103;"  jdbDKMGR  = 1179; jdbIOU  = 1206;"  jdbPGMGR  =981; jdbLNKEND = 1297;/XREFTYPEPKQv24{(*$ NO LIST *)! BYTE = 0..#FF; * SYMBOL = PACKED ARRAY[1..6] OF CHAR; *. MODULE_NAME = PACKED ARRAY[1..8] OF CHAR;.. BITMAP = PACKED ARRAY[1..210] OF BOOLEAN;.* SCISTR = PACKED ARRAY[0..40] OF CHAR;*  REFERENCES = PACKED RECORD   SYMBOL_NAME : SYMBOL;  REFERENCE : BITMAP;   END; "  STRING = PACKED RECORD MAX : BYTE; CUR : BYTE; &TXT : PACKED ARRAY[1..60] OF CHAR;&  END; "  REF_NODE = PACKED RECORD  LINK : @REF_NODE;  NODE_NAME : SYMBOL; REC : INTEGER;  END; "  (*$ RESUME LIST *) 2 ] OF WORD; ".. FILL11 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".B TRACES : PACKED ARRAY [ 1..64 ] OF BYTE; "TRACE SAVE AREA FOR BPIB PD\3Dy(*$ NO LIST *)?"************************************************************ ?"*0"*PATHNAME INFORMATION BLOCK (PIB)05/25/840"*3"* LOCATION: BDDATA,CDDATA,RDDATA,VBDATA,VCDATA 3?"************************************************************ ? PIB = PACKED RECORD B PIBPN: PACKED ARRAY [ 1..50 ] OF BYTE; "PATHNAME WITH LENGTHB0 PIBFLG : PACKED RECORD  "PATHNAME TYPE FLAGS0 FILL00 : 0..16383;* PIFDSC : BOOLEAN;  "HAS DISK NAME IN IT*3 PIFFIL : BOOLEAN; "HAS FILE NAME WITH DISK NAME 3END;END; (*$ RESUME LIST *) "BIT MAP - MEMORY-RESIDENT TASKLL% PFZMRP : PACKED ARRAY [ 1..32 ] OF BYTE; "BIT MAP - MEMORY-RESIDENT PROCL. PFZTSK : PACKED ARRAY [ 1..32 ] OF BYTE; ".0SOT PKT24{!(*$ NO LIST *) SOT = PACKED RECORD  SOTSOT : WORD;  SOTTON : WORD;  SOTCOD : WORD; END; (*$ RESUME LIST *)ERENCES = PACKED RECORD   SYMBOL_NAME : SYMBOL;  REFERENCE : BITMAP;   END; "  STRING = PACKED RECORD MAX : BYTE; CUR : BYTE; &TXT : PACKED ARRAY[1..60] OF CHAR;&  END; "  REF_NODE = PACKED RECORD  LINK : @REF_NODE;  NODE_NAME : SYMBOL; REC : INTEGER;  END; "  (*$ RESUME LIST *)NMCOMM P D"3 y@(*$ NO LIST *) NMCOMM : PACKED RECORD2 NDSPTR : WORD; "PTR TO NAME DEF'N SEGMENT NOW22 NRBPTR : WORD; "PTR TO NAME MGR REQUEST BLOCK22 SDBCUR : WORD; "PTR TO CURRENT STAGE'S SDB IN2+ CURSEG : WORD;  "SEGMENT NOW MAPPED IN. +3 SYNDEF : WORD; "0=SYN SEGMENT DEF'D; 1=UNDEF'D 33 LNSDEF : WORD; "0=LN SEGMENT DEF'D; 1=UNDEF'D 34 SYNSBP : WORD; "PTR TO SSB INFO FOR SYN SEGMENT43 LNSSBP : WORD; "PTR TO SSB INFO FOR LN SEGMENT 3) REQTID : WORD;  "TASK ID OF REQUESTOR )1 CURSTG : WORD; "REQUESTOR'S CURRENT STAGE ID 14 SYORLN : WORD; "0=SYN OPERATION; 1=LN OPERATION43 E$$: WORD; "PTRS TO STRINGS CONTAINING NAMES 30 FILL00 : WORD; "FOR THE FIVE SYNONYMS WHICH0 FILL01 : WORD%; "COMPRISE THE TERMINATION INFO. %4 FILL02 : WORD; "* (NOTE: ORDER OF THIS ARRAY IS4) FILL03 : WORD; "* VERY IMPORTANT !) )) NULSTG : WORD;  "PTR TO A NULL STRING ) NULST: BYTE; " 3 D$$CC: BYTE; "ERROR PROCESSING SYNONYM NAMES 3 D$$ES: BYTE; "* D$$MN: BYTE; "* D$$FN: BYTE; "* D$$VT: BYTE; "*% OLDNAM : WORD;  "OLD NAME POINTER %& OLDVAL : WORD;  "OLD VALUE POINTER&& OLDPRM : WORD;  "OLD PARMS POINTER&M NAME : PACKED ARRAY [ 1..256 ] OF BYTE;"SPACE FOR A SYNONYM OR LOG. NA MI VALUE: PACKED ARRAY [ 1..256 ] OF BYTE;"SPACE FOR A "VALUE" STRING IG PARMS: PACKED ARRAY [ 1..256 ] OF BYTE; "SPACE FOR A "PARMS" LIST GEND;(*$ RESUME LIST *)+*$ *,`()(+N\+N`+n*N+n*V * *^` *^` *^`* )`(*2*B$$FN LEAFNAME*z=()*^00402)*+n* *`6* )`(*2*B)(&B ,` ޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭ*h*hH+n*hy*(*^02,$! *,+n +`$V*:+! UTILNAME; ECEC; WPWP; PCPC; STST,$,$$1 @@ @ CEND NFERR3 PDM3 y@(*$ NO LIST *) NFER80 : PACKED RECORD?"************************************************************ ?"** :"*NFER80- ERROR CONSTANTS COMMON AREA # 9 03/08/83 *:"** ?"************************************************************ ?7 ERR80: BYTE; "SVC11-INVALID PRIORITY SPECIFIED 72 ERR81: BYTE; "SVC38 -INVALID HEAD/CYLINDER28 ERR82: BYTE; "SVC20,SVC38 -DUPLICATE VOLUME NAME83 ERR83: BYTE; "SVC28 -FREED AREA NOT IN LIST 30 ERR84: BYTE; "SVC28 -LIST TABLE OVERFLOW0) ERR85: BYTE; "SVC25-BAD PRIORITY )7 ERR86: BYTE; "SVC25-BAD OBJECT LUNO ASSIGNMENT 70 ERR87: BYTE; "IOU -RESOURCE NOT ATTACHED0+ ERR88: BYTE; "SVC28-DELETE PROTECT + E2RR89: BYTE; "IOU -ATTACH NOT VALID FOR TASK21 ERR8A: BYTE; "SVC25 -TASK LENGTH TOO LONG 17 ERR8B: BYTE; "SVC27-ASSOC. TASK DOES NOT EXIST 77 ERR8C: BYTE; "SVC25-ASSOC. PROCEDURES ARE SAME 77 ERR8D: BYTE; "SVC37-NO HOLE LARGE ENOUGH IN PF 7- ERR8E: BYTE; "SVC25 -END ACTION TAKEN -7 ERR8F: BYTE; "RPROOT -UNABLE TO BID QUEUE SERVER 7END;4 ERR90: BYTE; "IOU -BAD DIRECTORY HOLE SEARCH4+ ERR91: BYTE; "IOU -DIRECTORY LOOKUP +. ERR92: BYTE; "IOU -BAD PATHNAME SYNTAX.6 ERR93: BYTE; "IOU-CONTRL GROUP DOES NOT EXIST64 ERR94: BYTE; "IOU -INVALID OPER. ON 'PUBLIC'44 ERR95: BYTE; "IOU -SECURITY ACCESS VIOLATION4 ERR96: BYTE; "IOU-INV ALID REMOTE OPERATION 5 ERR97: BYTE; "IOU-KDB ALIGNED ON ODD ADDRESS 53 ERR98: BYTE; "IOU -INVALID PARAMETER NUMBER 36 ERR99: BYTE; "IOU-CANNOT GENERATE LUNO NUMBER66 ERR9A: BYTE; "IOU-PATHNAME COMPONENT IS NOT A6) ERR9B: BYTE; "IOU-DEVICE OFFLINE )2 ERR9C: BYTE; "IOU -DEVICE IN DIAG STATE OR23 ERR9D: BYTE; "IOU -DEVICE IN USE BY SPOOLER 35 ERR9E: BYTE; "IOU-CHANNEL SCOPE CONFLICT FOR 50 ERR9F: BYTE; "SVC00 -RESERVED FOR RTS9150END;6 ERRA0: BYTE; "IOU-CC -OWNER-PROCESSES-ALL FLG6, ERRA1: BYTE; "IOU -DIRECTORY IS FULL,6 ERRA2: BYTE; "IPC-REQUEST SPECIFIED IN MASTER6 ERRA3: BYTE; " & ERRA4: BYTE; "IPC-OWNER OPER.& ALREADY QUEUED 0 ERRA5: BYTE; "IPC -MISMATCH OF OWNER AND06 ERRA6: BYTE; "IPC-REQUESTORS MUST CLOSE;OWNER63 ERRA7: BYTE; "IOU/IPC-OWNER TASK HAS ABORTED 35 ERRA8: BYTE; "IPC-MAX OPENS TO CHAN EXCEEDED 54 ERRA9: BYTE; "IPC -TASK SEGMENT TOO LARGE TO4 ERRAA: BYTE; " 6 ERRAB: BYTE; "IPC-FIRST ASSIGN TO CHAN ILLEGL66 ERRAC: BYTE; "IOU-ILLEGAL MOD. SECURITY FLAGS64 ERRAD: BYTE; "IOU -CCB PROGRAM FILE LUNO NOT42 ERRAE: BYTE; "IOU -A MEMBER OF THE CONCAT.2 ERRAF: BY%%TE; " END;4 ERRB0: BYTE; "NAMMGR -OUTPUT BUFFER TOO SMALL47 ERRB1: BYTE; "FILMGR -MAX B-TREE LEVELS EXCEEDED 78 ERRB2: BYTE; "NAMMGR -SPECIFIED NAME IS UNDEFINED85 ERRB3: BYTE; "NAMMGR -TOO MANY SDB'S ALLOCATED 56 ERRB4: BYTE; "NAMMGR -BAD "PN" NUMBER SPECIFIED66 ERRB5: BYTE; "NAMMGR -INVALID SYNONYM OPERATION67 ERRB6: BYTE; "SVC00-INVALID CURRENCY PARAMETER 77 ERRB7: BYTE; "NAMMGR -INVALID RTN-TO-PREV-STG OP 75 ERRB8: BYTE; "NAMMGR -NO NAME DEF'N SEG EXISTS 58 ERRB9: BYTE; "NAMMGR -NAME DEF'N SEGMENT OVERFLOW85 ERRBA: BYTE; "NAMMGR -INVALID LIST OF SYNONYMS 52 ERRBB: BYTE; "SVC00 -OUT OF LOGGING BLOCKS22 ERRBC: BYTE; "NAMMGR -LEN FOR LOG. NAME > 828 ERRBD: BYTE; "KIF-INFO -CANNOT LOCATE NEXT RECORD86 ERRBE: BYTE; "FILMGR -NO SUCH RECORD ON REWRITE68 ERRBF: BYTE; "NAMMGR -INVALID APPEND-PN OPERATION8END; (*$ RESUME LIST *) IOU -LUNO NOT ASSIGNED TO FILE4'*  SVC38 -LUNO IS NOT A LOCAL FILE '6ERR78 BYTE >78  IOU-LUNO & PATHNAME DON'T MATCH6/ERR79 BYTE >79  IOU -FILE IS NOT AN ALIAS /4ERR7A BYTE >7A  IOU -"DON'T REPLACE" SPECIFIED46ERR7B BYTE >7B  IOU-LUNO & PATHNAME NOT ON SAME6 *  DISK 5ERR7C BYTE >7C  IOU-BAD DATA FORMAT (10 OR 11) 54ERR7D BYTE >7D  IOU -BAD LUNO OR CHANNEL SCOPE47ERR7E BYTE >7E  IOU-ATTEMPT TO CREATE MULTI-FILE 7!*  KIF WITH RECORDS IN A FILE ! *  OTHER THAN THE FIRST FILE 5ERR7F BYTE >7F  IOU-INVALID OPER. ON .VCATALOG 5>************************************************************>* "*  BYTE DEFINITIONS.MAKE THE"FIT PD@2oy FIT = PACKED RECORD ID: WORD !END;$*************************************************** ?"** :"*NFER80- ERROR CONSTANTS COMMON AREA # 9 08/14/81 *:"** ?"************************************************************ ?2 ERR80: BYTE; "SVC08 -STN NOT IN CHAR MODE/22 ERR81: BYTE; "SVC38 -INVALID HEAD/CYLINDER28 ERR82: BYTE; "SVC20,SVC38 -DUPLICATE VOLUME NAME83 ERR83: BYTE; "SVC28 -FREED AREA NOT IN LIST 30 ERR84: BYTE; "SVC28 -LIST TABLE OVERFLOW0) ERR85: BYTE; "SVC25-BAD PRIORITY )7 ERR86: BYTE; "SVC25-BAD OBJECT LUNO ASSIGNMENT 70 ERR87: BYTE; "IOU -RESOURCE NOT ATTACHED0+ ERR88: BYTE; "SVC28-DELETE PROTECT +  ERR89 CROSSFIL PD 2pyP(*$NO LIST*) PP"----------------------------------------------------------------------- PP" PP" GLOBAL FILE VARIABLES FOR OBJECT CROSS REFERENCE PROGRAM PP" PP"----------------------------------------------------------------------- PP OBJECT: LINE_FILE; PP PATHFILE: RANDOM FILE OF STRING_REC; PP(*$RESUME LIST*) P1 *:CVCONS PHD 2vy@L$(*$NO LIST*)"*********Begin CONST for Copy Volume***********************L ?COPY DSC.CONDPASC.OS L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LJ" !Parameters EQU'ed in initialization routine to allocate memory forJ," stack.Note that there is no heap. ,L$"-----------------------------------------------------------------------L0 STKSIZ = 512-64;  "stack size in bytes 0  HEAPSZ = 0; "heap size , STKMRG = 64;  "margin to insure one, "short linkage callL$"-----------------------------------------------------------------------L*"---------------------------------------*$--------------------------------$&" Opcodes for IO SVC call blocks&L$"-----------------------------------------------------------------------L, DCT_READ = #09; "read direct by ADU,(. DCT_WRIT = #0B; "write direct by ADU .(. TRK_READ = #0A; "read direct by track.(0 TRK_WRIT = #0C; "write direct by track 0($ ASC_READ = #09; "read ASCII $(& ASC_WRIT = #0B; "write ASCII &(& FOR_READ = #0F; "read format &(( OPNREW = #03; "open with rewind((& REWIND = #0E; "rewind device &(* RESTORE = #07; "reset media change*(" CLOSEL = #01; "close luno "(& RELEASEL = #93; "release luno &(@(?IF DNOS = TRUE ( SCOPEL = #0800; "scope of luno ( ?ENDIF% (?IF DX10 = TRUE ( SCOPEL = #1000; "scope of luno ( ?ENDIF% L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LL" "Values used to identify the type of the COR, and to create a unique L&" ID for every FDR in a buffer. &L$"-----------------------------------------------------------------------L( CORDRX = 0; "COR has FDR buffer((( CORIOX = 1; "COR has IObuffer((( CORVRX = 2; "COR has ver buffer((* CORPFX = 3; "COR has prog fle buf* "-------------------------2----------------------------------------------2L$"-----------------------------------------------------------------------LB" Values of parameters passed to ALCADU(allocate dst ADU's) BL$"-----------------------------------------------------------------------L2 ALC_DSK_NOTC = 0;  "allocated dst ADU's 2 "do not need to be  "alc'ed contiguous (2 ALC_DSK_CONT = 1;  "alc dst ADUs contig 2(2 ALC_DSK_ADJA = 2;  "adjacent and contig 2(2 ALC_DSK__END = 3;  "contig and at end of2 "of dst disk L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L" "Various upper and lower bounds"L$"-----------------------------------------------------------------------L. MAXBDI = 10;  "#of bad places allowed.(2 MAXCYC = 5000;  "cycles till print stats 2(" MAXERR = 5; "#IO retries "(0 SECMPL = 2304;  "multiple of 256 & 288 0(& MAXRRN = 9; "# of copy reruns&(, MAXPFR = #FFFF; "#recs in prog file,(& MAXBIW = 16;  "#bits in word &($ MAXBIB = 8; "#bits in byte $(. MAXBFI = #3FFE; "max buf index(0 off).(. MAXPFI = 15;  "#entries in pgf sector.(* MAXPRI = 4; "#entry types in pgf *(. MAXBMS = 256; "max #bytes in bit map .(  MAXCRP  = 5; "# of COR's (. MAXSTI = 16;  "max src sec alc table .  "index (. MAXDTI = 16;  "max dst sec alc table .  "index (?IF DNOS = TRUE * MAXIIO = 2; "max # of init IO for* ?ENDIF% (?IF DX10 = TRUE * MAXIIO = 3; "max # of init IO for* ?ENDIF%  "DNOS (& MAXAFI = MAXIIO+1;  "#of AFRs &($ MAXBAI = MAXIIO;  "#of BARs $((* MAXBAL = 64;  "entries in bad ADU* "list-bad ADU list used "to set up free ADU lst(8 MAXFRI = (MAXBAL DIV 2) + 1;"max index into free 8 "ADU list(FARARP)(. MAXAMP = 2032;  "ADUs in partial bit .  "map ( MAXSEC = "288; "max sector size(bytes)" "EQUed in initial code (" MAXSE2 = 144; "MAXSEC / 2 "(, MINSEC = 256; "smallest sector size,(" MINSE2 = 128; "MINSEC / 2 "(. MINBET = 748; "min # of beets to run . "EQUed in initial code L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L(" Indexes for the array of COR @'s(L$"-----------------------------------------------------------------------L& ALLBIX = 1; "beginning index &(" ALLEIX = 5; "end index "(* OUTBIX = 3; "begin out buf COR's *(" OUTEIX = 4; "end out buf " COR's  (* DIRBIX = 1; "begin FDR buf COR's *(* DIREIX = 2; "end FDR buf COR's *L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L:" Statuses that a COR, IRR, AFR, or BAR might have :L$"-----------------------------------------------------------------------L NOTHING = #00;(2 SRC_FDRS_PROC= #10; "FDRs need processing2(2 S%%RC_FDRS_FINI= #14; "FDRs fini processing2(2 SRC_READ_BEGN= #18; "init read has begun 2(0 SRC_READ_FINI= #1C; "init read has fini0(2 SRC_WRIT_BEGN= #20; "init writ has begun 2( SRC_WRIT_FI$NI= #24; "init writ has fini$(2 SRC_READ_MORE= #26; "all of file not read2(2 SRC_FRMT_FINI= #27; "all of file has been2 "formatted (2 DST_READ_BEGN= #28; "init read has begun 2(0 DST_READ_FINI= #2C; "init read has fini0(2 DST_WRIT_BEGN= #30; "init writ has begun 2(0 DST_WRIT_FINI= #34; "init writ has fini0(. BUF_NEED_FILE= #38; "IO buf has room .(0 BUF_GETS_FILE= #3C; "out buf is getting0  "file (2 BUF_NEED_WRIT= #40; "out buf is ready to 2 "be written (2 BUF_FULL_FILE= #44; "inp buf has no room 2(2 BUF_VERF_REDY= #46; "out buf and ver buf 2 "are ready to be  "compared (4 BUF_VERF_FINI= #48; "buf has been verified 4(. AFR_FREE = #54; "additional FDR info . "record is free(4 AFR_FOR__PGF = #56; "special case this AFR 4 "since is for prog fle (, AFR_BAD_FDR= #57; "AFR for bad FDR ,(4 AFR_NEED_PRMS= #58; "AFR has been assigned 4 "to an FDR and now  "dst parms can be "computed(E.G.phy rec) (. BAR_FREE = #5C; "this buf alc rec is .  "free (2 SRC_READ_FULL= #60; "buf alc rec has been2 "read into (. IRR_FREE = #64; "SVC call blk is free.(. IRR_BUSY = #68; "SVC call blk is busy.( SRC_READ_ERR = #6C; " err during src read (2 SRC_WRIT_ERR = #70; "err during src writ 2(2 DST_READ_ERR = #74; "err during dst read 2(2 DST_WRIT_ERR = #78; "err during dst writ 2L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LD" Statuses that relate to program file movement and formattingDL$"-----------------------------------------------------------------------L(0 PGF_PROC_WAIT= #10; "no prog files yet 0(4 PGF_PROC_INIT= #20; "first time in for this4 "prog file (2 PGF_PROC_OVRC= #30; "processing overhead 2 "records ( PGF_PROC_FINI = #40; "got buf for dir IO L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L8" Statuses that are uses in formatting a seq file 8L$"-----------------------------------------------------------------------L2 LRC_NEED_COMB= #10; "last logical rec of 2 "this src phy rec can "be combined (2 LRC_COMB_NEXT= #14; "the next log rec we 2 "see is the one to  "combine (2 LRC_COMB_NOW = #16; "combine this log rec2 "with the previous one (4 LRC_UPD_HDTR = #18; "update the header and 4 "trailer word of this "log rec ( LRC0_UPD_HDRW = #1C; "update the header word0 "of this log rec (0 LRC_FRMT__BS = #20; "this file is blank0 "suppressed (2 LRC_FRMT_NBS = #24; "file is not blk sup 2(2 LRC_ODD_LEN= #28; "log rec has odd length2(2 LRC_ODD_NXT= #2A; "log rec splt,next odd 2(0 LRC_EVN_LEN= #2C; "log rec has even len0(4 LRC_CONT_NPRC= #4000; "phy rec header word 4 "for log rec  "continues in next  "phy rec (4 LRC_CONT_PPRC= #8000; "phy rec header word 4 "for log rec  "continues from "previous phy recL$"-----------------------------------------------------------------------L "---------------------6--------------------------------------------------6L" "Used to compare against fields in an FDR and to set fields in a AFR LL$"-----------------------------------------------------------------------L( USAGE_EQ_DIR = 1;  "FDR usage ((( USAGE_EQ_PGF = 2;  "FDR usage ((( USAGE_EQ_IMG = 3;  "FDR usage ((2 FORMT_EQ_BS= 1;  "file is blank suppress2(. TYPE__EQ_SEQ = 1;  "file is seq file.(. TYPE__EQ_REL = 2;  "file is rel file.(. TYPE__EQ_KIF = 3;  "file is KIF file.(0 TYPE__EQ_IMG = 4;  "file is image file0(2 TYPE__EQ_PGF = 5;  "image from prog file2(0 CONV_REL_FLE = 6;  "treat file as a rel 0 "rec file to be "converted (2 CONV_SEQ_FLE = 7;  "treat file as a seq 2 "file to be converted(4 NOCV_REL_FLE = 8;  "treat as a rel rec fle4 "that is not converted (0 PGF__IS_BND= 9;  "prog file is bounded0(2 PGF_NOT_BND= 10; "prog file is unbounded2L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LH"  Various constants that are used in the assembly language programHD" that reads the parameter file and gets & initializes memory DJ#"***WARNING - any change to these constants should also be made to theJ"  corresponding EQU'&ed constant in the above mentioned&" assembly routineL$"-----------------------------------------------------------------------L, BPTOFF = 10; "offset in COR to BPT, "EQUed in initial code (* PRMNDN = 3;  "# of device names * "EQUed in initial code (& PRMNVN = 2;  "# of vol names& "EQUed in initial code (* PRMVNL = 8;  "#chars in vol name* "EQUed in initial code (( PRMNBO = 4;  "# boolean in rec( "EQUed in initial code (( PRMNIO = 5;  "# of IO buffers ( "EQUed in initial code (( IACOFF = -1; "offset to IACLUN( "EQUed in initial code (  MOROFF = -5; "offset to more? flag "EQUed in initial code L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LD" One of these values is printed as an error code if abnormal DH"  termination occurs. The values that end in ERI are indexes intoHD" the array of err msg addresses set up in the initial routineDB" all of the below values are EQUed in the initial routine. BL$"-----------------------------------------------------------------------L0 STRERC = #9320;  "err during start up 0 STRERI = 1;2 TK1ERC = #9326;  "err processing tk1 ldr2 TK1ERI = 2; PBMERC = #9327;  "updating dst disk  PBMERI = 3;. URQERC = #9328;  "user request term . URQERI = 4;2 SKOERC = #932A;  "internal stk overflow 2 SKOERI = 5;& DDFERC = #932B;  "disk full & DDFERI = 6;, DFDERC = #932C;  "disk fragmented , DFDERI = 7;, TMEERC = #932D;  "too many errors , TMEERI = 8;, UCRERC = #9329;  "user cant reply ,, UCRERI = 9; "EQUed in msg printer,. VRFERC = #9321;  "verification error.& FORERC = #9322;  "format err &$ BFDERC = #9323;  "bad fdr $0 VNMERC = #9324;  "vol name dont match 0* VNIERC = #9325;  "vol not INVed * "-----------------------4------------------------------------------------4L$"-----------------------------------------------------------------------LL" "Various values used on calls to the functions that perform word and L," long integer common math operations.,L$"-----------------------------------------------------------------------L. DIV_ROUND_UP = 0; "(op1 + (op2-1))/op2.4 ROUND_UP_MULT= 1; "((op1 + (op2-1))/op2)*op24* ROUND_DOWN_MULT= 2;"(op1/op2)*op2 *" SUB_DIV = 0;"(op1-op2)/op3 "" ADD_DIV = 1;"(op1+op2)/op3 "& ADD_MOD = 2; "(op1+op2) mod op3&L$"-----------------------------------------------------------------------LD!"-----------------------------------------------------------------D ------ @" Various values used to print messages, such as location. @L$"-----------------------------------------------------------------------L& HIGH = TRUE;  "high intensity&($ LOW = FALSE; "low intensity$(. EXTENDED_FLAG= #02; "use extended IRB.($ HDRROW = 0; "header msg row$ "EQUed in end copy code(& HDRCOL = 31;  "header msg col& "EQUed in end copy code(" BEGROW = 3; "Copy msg row "(" BEGCOL = 9; "copy msg col "($ DIRROW = 9; "mount msg row $($ DIRCOL = 9; "mount msg col $(& PROROW = 10;  "ready msg row &($ PROCOL = 9; "ready msg col $( STHROW = 6; "status hdr msg row(* STHCOL = 9; "status hdr msg col*(& STMROW = 7;%% "status msg row&(& STMCOL = 9; "status msg col&($ ENDROW = 4; "end of copy $ "EQUed in end action  "EQUed in initial code  "EQUed in runtime err($ ENDCOL = 9; "end of copy $ "EQUed in end action  "EQUed in initial code  "EQUed in runtime err($ TIMCOL = 71;  "col of time $(. HDMRRN = 12;  "loc of rerun # in msg .(. HDMTRR = 17;  "loc of total # in msg .(. CPMSVN = 11;  "copy msg src vol name .(. CPMSDN = 23;  "copy msg src dev name .(" CPMDVN = 33;  "copy msg dst" vol name (. CPMDDN = 45;  "copy msg dst dev name .(& CPMTIM = 56;  "copy msg time &(* MNMVLN = 10;  "mount msg vol name*(* MNMDVN = 22;  "mount msg dev name*(?IF DNOS = TRUE , SVMERC = 27;  "SVC err msg err code, "EQUed in initial code  ?ENDIF% (?IF DX10 = TRUE , SVMERC = 21;  "SVC err msg err code, "EQUed in initial code  ?ENDIF% (* STMBYW = 13;  "bytes verified #*(* STMBYV = 33;  "bytes written # *(* STMFLC = 54;  "files formatted *(. EAMTEC = 30;  "end action task err . "EQU'ed in end act code( EAMWPE = 39;  "end action WP (K,@ "EQU'ed in end act code( EAMPCE = 48;  "end action PC ( "EQU'ed in end act code0 EAMSTE = 57;  "end action status reg 0 "EQU'ed in end act code(?IF DNOS = TRUE . UTMERC = 27;  "utility end err code. ?ENDIF% (?IF DX10 = TRUE . UTMERC = 21;  "utility end err code. ?ENDIF% (, PRMERC = 35;  "error reading parm, "EQU'ed in read prm( BPMPNM = 3; "bad pathname idx(L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L6 DUMY_COR_PTR = #FFFF;  "so that empty files 6 "will think they   "already have out buf(( NOT_EOF = 0;  "EOF not read yet((, FILE_EOF = 1;  "EOF has been read ,(* BASE10 = 10; "convert to base 10*(* BASE16 = 16; "convert to base 16*(( STTFGI = 82; "disk state index((. FINAL_STATE= 3;  "dst dsk is at INV .(, NEED_INV = 2;  "dst dsk is at IDS ,L (*$RESUME LIST*)"*****End CONST***************************************L0 c!!ŋ+cH BJA cCMUSER DSGCM ST99 @   0063Ld ƍ DUMYNY$09A]0063 LGACOM PEB 3 ty(*$ NO LIST *) LGACOM : PACKED RECORD) FILL00 : WORD;  "FLAGS AND ERROR BYTE )1 FILL01 : WORD; "MAX MESSAGE COUNT (0 = NONE) 1. FILL02 : BYTE;  "ID OF TASK TO BID ON FULL.3 FILL03 : BYTE; "ID OF USER TASK TO BID ON FULL 3/ FILL04 : WORD; "ACCOUNTING FILE ALLOCATION /3 FILL05 : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LUNOS 3END; (*$ RESUME LIST *)bb0c cb| b`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LIUD PEE3y@(*$ NO LIST *)>"***********************************************************>,"*INSTALL / UNLOAD / INITIALIZE DISC *,"* *"* (IUD) 08/27/79  *>"***********************************************************> IUD = PACKED RECORD + IUDSOC : BYTE;  "SUPERVISOR CALL OPCODE + IUDEC: BYTE; "ERROR CODE > IUDDNM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "DISC DEVICE NAME>> IUDVOL : PACKED ARRAY [ 1.. 8 ] OF BYTE; "DISC VOLUME NAME>0 IUDNME : WORD; "NUMBER OF DIRECTORY ENTRIES0& IUDBAL : BYTE;  "BAD ADU LIST LUNO&" IUDFLG : PACKED RECORD "FLAGS"$ IUDEXT : BOOLEAN; "IUD EXTENSION$0 IULDR : BOOLEAN;  "TRACK ONE LOADER OPTIONAL0FILL00 : 0..63; END; IUDPRS : WORD; "DEFAULT PHYSICAL RECORD SIZE 1 IUDINT : WORD; "HARDWARE INTERLEAVING FACTOR 1* IUDLDR : BYTE;  "TRACK ONE LOADER LUNO*# FILL01 : BYTE; "*** UNUSED *** #END; (*$ RESUME LIST *)OCK  .IRFMDS EQUIRFLOC MASTER DO NOT SUSPEND .$IRFLFG EQUIRFLOCLOCK/UNLOCK $6IRFTIH EQUIRFLOCREAD BY TRACK/TRANSFER INHIBIT 64IRFIMO EQUIRFLOCIMMEDIATE OPEN FLAG FOR TPD 44IRFPAS EQUIRFLOCPASS THRU MODE FOR COMM DSRS 4$ BITS IRFOWN,2OWNERSHIP LEVEL $(IRFEXR EQUIRFOWNEXTENDED REQUEST(4IRFBAD EQUIRFOWN+1 *BLANK ADJ/SET EVENT MODE 40IRFBFG EQUIRFBAD BLANK ADJ/SET EVENT MODE 0.IRFWPM EQUIRFOWN+1 WORD PROCESSING MODE.(IRFRTY EQUIRFOWN+1READ BY TRACK WI(SPLPCM  EK,2zz@(*$NO LIST*)<@"********************************************************** $@" A"  LP WRITER COMMON AREA4"  09/18/84 1@"********************************************************** $@SPLPCM :RECORD; :( LUNO  : INTEGER; " DEVICE LUNO ,(, COPIES : INTEGER;  " NUMBER OF COPIES*,2 START_TIME:INTEGER; " START TIME IN MINUTES '22 STOP_TIME: INTEGER;" STOPTIME IN MINUTES '20 PAGE_NUM : INTEGER; " CURRENT PAGE NUMBER (02 R_PAGE : INTEGER;  " REQUESTED PAGE NUMBER '2, BANNER : BOOLEAN;  " IF BANNER NEEDED*,8 PAGE_EJECT:BOOLEAN;" IF PAGE EJECT WANTED BEFORE $8" PRINTING FILE +, ANSII : BOOLEAN;  " IF ANSII FORMAT *, ARB_CC : BOOLEAN; " IF ARBITARY CARRAGE CONTROL $, LINE_PAGE : INTEGER; " LINES PER PAGE+,( LINE_NUM : INTEGER;" LINE NUMBER ,(. SDQ_REC : INTEGER;  " SDQ RECORD NUMBER ).& SDQ_IDX : INTEGER; " SDQ INDEX -&& RFORM : ALFA;" REQUESTED FORM+&$ FORM  : ALFA;" CURRENT FORM,$, AFORM : ALFA; " ACTUAL FORM MOUNTED (,  USER_ID : ALFA;" USER ID . " JOB_NAME : ALFA; " JOB NAME.". LOGICAL_NAME : ALFA;  "USER LOGICAL NAME*.. PRINT_FILE : PATH;  "FILE TO BE PRINTED )., SDTREC : QUEREC; " SDT RECORD BUFFER ),, REC1_IDX : INTEGER; " SDT RECORD INDEX*,4 DEV_REC : INTEGER;  "DEVICE TABLE (SDT) RECORD&4* QF_LUNO : INTEGER; "QUEUE FILE LUNO+*& QFIRB: IRB; "QUEUE FILE LUNO IRB)&0*, SEMA_BLK : S3D; " SEMAPHORE CALL BLOCK(,. INPUT_FILE : F_NAME;  " INPUT FILE NAME *., IO_COUNT : LONGINT; " DEVICE I/O COUNT*,. DEV_NAME : ALFA; "DEVICE NAME **1.1**&.  JOB_ID : INTEGER;" JOB ID/ : TERM_CODE:INTEGER; "TERM CODE TO BE SENT TO SPLPER #:: FIRST_REC:BOOLEAN; "FLAG: TRUE=ABT TO READ 1ST REC #:END;@(*$RESUME LIST*):"-----------------------------------------------------------------------L9F: BYTE; "SVC00 -RESERVED FOR RTS9150END;6 ERRA0"9k4x`4@(?IF DNOS = TRUE ( SCOPEL = #0800; "scope of luno ( ?ENDIF% (?IF DX10 = TRUE ( SCOPEL = #1000; "scope of luno ( ?ENDIF% L$"---------NFER10 PET3 z@(*$ NO LIST *) NFER10 : PACKED RECORD5 ERR10: BYTE; "TASK ERR -ABORTED BY "BREAK" KEY 52 ERR11: BYTE; "SVC00 -ID WORD ERROR ON DISK26 ERR12: BYTE; "SVC00 -RATE OR GAP ERROR ON DISK68 ERR13: BYTE; "SVC00-CONTROLLER TIMEOUT FOR DISK81 ERR14: BYTE; "TASK ERR -ILLEGAL XOP ISSUED 19 ERR15: BYTE; "TASK ERR -DISK ERROR ON INITIAL LOAD 95 ERR16: BYTE; "SVC00 -TILINE TIMEOUT FROM DISK 51 ERR17: BYTE; "SVC00 -SEARCH ERROR ON DISK 1/ ERR18: BYTE; "SVC00 -DISK UNIT OFF LINE /0 ERR19: BYTE; "SVC00 -DISK UNIT NOT READY06 ERR1A: BYTE; "SVC00 -DISK UNIT WRITE PROTECTED65 ERR1B: BYTE; "SVC00 -UNIT CHECK ERROR ON DISK 5$ ERR1C: BYTE; "SVC00-INVALID$ DISK ADDRESS 4 ERR1D: BYTE; "SVC00 -SEEK INCOMPLETE ON DISK48 ERR1E: BYTE; "SVC00-DELETED SECTOR READ ON DISK88 ERR1F: BYTE; "SVC00-INVALID DISK ADDRESS IN PRB8END; (*$ RESUME LIST *)$FgE %g    F ! ՠ! `#΋$F/'` "g !!6! "!`H`#΋$D g'  h( !  ! PgE `#΋$Hê'!!!(!g D*'g DD gg DDD  'g DD g' gE %%`#΋$L! /// '` "(` "`#Ƌ!$>>SLH PEZ3z@(*$ NO LIST *)?"************************************************************ ?"** 3"* SEMAPHORE LIST HEADER  (SLH) 03/15/79 * 3"** "* LOCATION: JCA* ?"************************************************************ ?>"* THE SLH IS USED TO DESCRIBE SEMAPHORES USED IN JOBS. FOR>>"* EACH SEMAPHORE IN USE, THERE IS A LIST HEADER SHOWING THE>@"* NUMBER OF THE SEMAPHORE, ITS VALUE, AND THE ENTRIES WAITING@ "* FOR SEMAPHORE ACTION. SLH = PACKED RECORD + SLHSLH : @SLH ; "NEXT SEMAPHORE ENTRY +$ SLHVAL : BYTE; "SEMAPHORE VALUE$% SLHNUM : BYTE;  "SEMAPHORE NUMBER %, SLHNEW : WORD;  "ADDRESS OF NEWEST ENTRY,, SLHOLD : WORD;  "ADDRESS OF OLDEST ENTRY, SLHCNT : BYTE!; "NUMBER OF ENTRIES ON QUEUE !0 SLHTID : BYTE; "SERVER TASK ID (NOT USED)03 SLHTSB : WORD; "TSB ADDRESS OF SERVER TASK(NU) 3END; (*$ RESUME LIST *) -4083; " 0NDXSIZ =256; "PROG. FILE INDEX RECORD SIZE0 (*$ RESUME LIST *)SLBRID BYTE 0 TASK RUN ID SLBVR2 EQU$  DORG SLBVR2SLBLUN BYTE 0 LUNOSLBRTY BYTE 0 RETRY COUNT -SLBRSF BYTE 0 RETRY SUCCESS(0)/FAILURE(1) -"SLBACT BYTE 0 IMAGE WORD COUNT"SLBVR3 EQU$  DORG SLBVR3# SLBAIM ARRAY 8,WORD AFTER IMAGE #$ SLBBIM ARRAY 8,WORD BEFORE IMAGE$+SLBSZ1 EQU$-SLBSLB DEVICE MESSAGE SIZE +6 DORG SLBVR3 TYPE 2 - DEVICE ERROR WITH CALL BLOCK6* SLBIRB ARRAY 6,WORD  SPACE FOR 12 BYTES*XREFCONSPE`2}z(*$ NO LIST *)! START_COLUMN = 3; ALIAS_COLUMN = 13;  FILE_HEADER = ' FILE ';* AXREF_HEADER = '#0D#0ALABELVALUE'; *< PXREF_HEADER = '#0C#20PASCAL CROSS R';"EFERENCE UTILITY < (*$ RESUME LIST *)ACH SEMAPHORE IN USE, THERE IS A LIST HEADER SHOWING THE>@"* NUMBER OF THE SEMAPHORE, ITS VALUE, AND THE ENTRIES WAITING@ "* FOR SEMAPHORE ACTION. SLH = PACKED RECORD * SLHSLH : @SLH ; "NEXT SEMAPHORE ENTR*00 -SEARCH ERROR ON DISK 1/ ERR18: BYTE; "SVC00 -DISK "6k4`4@(*$ NO LIST *)?"************************************************************ ?"** 3"* SEMAPHORE LIST HEADER  (SLH) 03/15/79 * 3"** "* LOCATION: JCALSCTYPE PEc&82~z@(*$ NO LIST *)!@"*********************************************************** @>"  LSCTYPE - LIST SOFTWARE CONFIG. TASK DEFINITIONS  * >" 23 OCT 1980  * @"*********************************************************** @$?COPY DSC.TEMPLATE.PTABLE.TYPES $"?COPY DSC.TEMPLATE.PTABLE.IRB ""?COPY DSC.TEMPLATE.PTABLE.S3F " (*$ RESUME LIST *)(4HEAD_LINE1 = PACKED RECORD "FIRST LINE OF HEADER4MAXLEN : BYTE;LENGTH : BYTE;&CH : PACKED ARRAY[1..45] OF CHAR; &END;$(6HEAD_LINE2 = PACKED RECORD "SECOND LINE OF HEADER 6MAXLEN : BYTE;LENGTH : BYTE;&CH : PACKED ARRAY[1..33] OF CHAR; &END;$((HEAD_LINE3 = PACKED RECORD "THIRD LINE( OF HEADERMAXLEN : BYTE;LENGTH : BYTE;&CH : PACKED ARRAY[1..64] OF CHAR; &END;$( LSCPT = @ LSC_REC;( LSC_REC = PACKED RECORD LINE: STRING; &NAME: PACKED ARRAY[1..34] OF CHAR;&KEY: ALFA;NEXT: LSCPT END;$(ER; "QUEUE FILE LUNO+*& QFIRB: IRB; "QUEUE FILE LUNO IRB)&0*($ ASC_READ = #09; "read ASCII $(& ASC_WRIT HHk4*`4Y $ SLHVAL : BYTE; "SEMAPHORE VALUE$% SLHNUM : BYTE;  "SEMAPHORE NUMBER %, SLHNEW : WORD;  "ADDRESS OF NEWEST ENTRY,, SLHOLD : WORD;  "ADDRESS OF OLDEST ENTRY,/ SLHCNT : BYTE; "NUMBER OF ENTRIES ON QUEUE /, SLHTID : BYTE; "SERVER TASK ID (NOT U,JECONS PEiL2z(*$NO LIST*)"  IO = 0;  CMND = '#98'; LFTFLD = '#94'; RETURN = '#8D'; ENTER = '#93';  UPARO = '#95';  DWNARO = '#8A'; F1 = '#81'; F2 = '#82'; F6 = '#86'; F8 = '#97'; TABKEY = '#89'; F7 = '#96';(*$RESUME LIST*) "?COPY DSC.TEMPLATE.PTABLE.S3F " (*$ RESUME LIST *)(4HEAD_LINE1 = PACKED RECORD "FIRST LINE OF HEADER4MAXLEN : BYTE;LENGTH : BYTE;&CH : PACKED ARRAY[1..45] OF CHAR; &END;$(6HEAD_LINE2 = PACKED RECORD "SECOND LINE OF HEADER 6MAXLEN : BYTE;LENGTH : BYTE;&CH : PACKED ARRAY[1..33] OF CHAR; &END;$((HEAD_LINE3 = PACKED RECORD "THIRD LINE(NFER70 PEl3 z @(*$ NO LIST *) NFER70 : PACKED RECORD?"************************************************************ ?"** ;"*NFER70- ERROR CONSTANTS COMMON AREA # 8 04/21/82* ;"** ?"************************************************************ ?. ERR70: BYTE; "IOU -DIRECTORY NOT EMPTY.6 ERR71: BYTE; "IOU-INVALID FILE TYPE SPECIFIED64 ERR72: BYTE; "IOU -BAD USAGE FLAGS SPECIFIED45 ERR73: BYTE; "IOU-FILE ALLOC. TOO FRAGMENTED 56 ERR74: BYTE; "IOU-INVALID FILE CREATION PARMS60 ERR75: BYTE; "IOU -LUNO ASSIGNED TO FILE03 ERR76: BYTE; "IOU -FILE IS DELETE PROTECTED 34 ERR77: BYTE; "IOU -LUNO NOT ASSIGNED TO FILE4. ERR78: BYTE; "IOU -LUNO & PATHNAME DON. 'T MATCH / ERR79: BYTE; "IOU -FILE IS NOT AN ALIAS /4 ERR7A: BYTE; "IOU -"DON'T REPLACE" SPECIFIED46 ERR7B: BYTE; "IOU-LUNO & PATHNAME NOT ON SAME65 ERR7C: BYTE; "IOU-BAD DATA FORMAT (10 OR 11) 54 ERR7D: BYTE; "IOU -BAD LUNO OR CHANNEL SCOPE47 ERR7E: BYTE; "IOU-ATTEMPT TO CREATE MULTI-FILE 75 ERR7F: BYTE; "IOU-INVALID OPER. ON .VCATALOG 5END; (*$ RESUME LIST *)+N( (`R)l+N( (`p) .S$BTLF03+T+N)0 )8`h)l+N)B )8```+N)V )^` )l+N@+N:``+)t )|`)l+NRVSTYP P$Er7 2كz @F!"------------------TYPE FOR RECOVER VOLUME SPACE----------------- F(*$NO LIST*)"( ?COPY DSC.CONDPASC.OS (WORD  = 0..#FFFF;(BYTE  = 0..#FF;(NIBBLE  = 0..#F; (.TIME_ARRAY = PACKED ARRAY[1..8] OF CHAR; .PTA  = @TIME_ARRAY; (&WA  = PACKED ARRAY[0..7] OF WORD; &PWA  = @WA; (&BA  = PACKED ARRAY[0..1] OF BYTE; &PBA  = @BA; (&CA  = PACKED ARRAY[0..1] OF CHAR; &PCA  = @CA; (*TF  = PACKED ARRAY[0..15] OF BOOLEAN; *PTF  = @TF; (.BITS  = PACKED ARRAY[0..2048] OF BOOLEAN; .PBITS  = @BITS; (.PATHNAME  = PACKED ARRAY[0..50] OF BYTE; .(FILENAME  = PACKED AR RAY[0..8] OF BYTE; (6SKIP_FILE_ARRAY  = ARRAY[1..SFTMAX] OF FILENAME; 6(,DEVNAME  = PACKED ARRAY[0..4] OF BYTE; ,("SHORT_STRING = PACKED RECORD""STRMAX : BYTE;"MAX BUF SIZE " STRLEN : BYTE;"CHAR COUNT  STRTXT : BA;"TEXT   END;  (MESSAGE  = SHORT_STRING;(PM  = @MESSAGE;("LONG_STRING  = PACKED RECORD""STRMAX : BYTE;"MAX BUF SIZE " STRLEN : BYTE;"CHAR COUNT   STRTXT : PATHNAME;"TEXT   END;  PLS  = @LONG_STRING;( LONG_SSB_ADDRESS = RECORD  &LSASTR : WORD; "STRUCTURE ADDRESS&$LSASSB : WORD;"SYS SSB ADDRESS$  END;  ((* STATION_STATUS_RECORD  = PACKED RECORD* SSRF01 : NIBBLE; "NOTHING $SSRMOD : NIBBLE; "STATION MODE$ SSRID : BYTE; "STATION ID "SSRLUN : BYTE; "STATION LUNO"$SSRCD1 : BYTE; "SCI CODE VALUE$  END;  ($ ERROR_STATUS_RECORD  = RECORD $ ESRCOD : WORD;"ERROR CODE  ESRTYP : WORD;"ERROR TYPE  ESRMSG : WORD;"APPEND TEXT "ESREC : WORD;"END ACTION EC""ESRWP : WORD;"END ACTION WP""ESRPC : WORD;"END ACTION PC""ESRST : WORD;"END ACTION ST"ESRID : WORD;"SEND ID   END;  (IO_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBOC : BYTE;"SUB OP CODE IRBLUN : BYTE;"LUNO IRBSFL : BYTE;"SYSTEM FLAGS "IRBUFL : BYTE;"USER FLAGS " IRBDBA : WORD;"BUFFER PTR  IRBICC : WORD;"INPUT COUNT "IRBOCC : WORD;"OUTPUT COUNT " IRBADU : WORD;"ADU ADDRESS "IRBOFF : WORD;%%"SECTOR OFFSET""IRBUTF : WORD;"UTILITY FLAGS" IRBF01 : WORD;"LOG REC LEN IRBF02 : WORD;"PHY REC LEN "IRBPNA : WORD;"PATH ADDRESS "  END;  (TD_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBDBA : WORD;"BUFFER   END;  (WIO_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBIRB : WORD;"IRB ADDRESS  END;  (TDL_IRB  = PACKED RECORDIRBSOC : BYTE; "OP CODE IRBEC : BYTE;"ERROR CODE  IRBTIC : WORD;"DELAY TICS   END;  (REA_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBRID : BYTE;"RUN ID IRBR01 : BYTE;"RESERVED   END;  (GEA_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  "IRBWP : WORD;"WORKSPACE PTR"$IRBPC : WORD;"PROGRAM COUNTER$$IRBST : WORD;"STATUS REGISTER$IRBR01 : WORD;"RESERVED   END;  (&EOT_IRB  = WORD; "END TASK IRB &( ?IF DX10$ EVT_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBKEY : BYTE;"SUB OP CODEIRBLUN : BYTE;"LUNO   END;  ?ENDIF% ( ?IF DNOS$ EVT_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBOC : BYTE;"SUB OP CODE IRBLUN : BYTE;"LUNO IRBSFL : BYTE;"SYS FLAGS IRBUFL : BYTE;"USER FLAGS  IRBDBA : WORD;"DATA BUFFER IRBICC : WORD;"INPUT COUNT "IRBOCC : WORD;"OUTPUT COUNT "(IRBF01 : PACKED ARRAY[1..4] OF BYTE;(IRBF02 : BYTE; IRBKEY : BYTE;"EVENT CHAR  $IRBRT1 : WORD;"RETURNED STUFF $$IRBRT2 : WORD;"RETURNED STUFF $  END;  ?ENDIF% (MEM_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBBET : WORD;"# BEETS  IRBADR : WORD;"FREE MEMORY  END;  (ETS_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE &IRBTIC : BYTE; "# TICS TO EXTEND &  END;  (DM_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBOC : BYTE;"SUB OP IRBR01 : BYTE;"RESERVED  IRBPDT : WORD;"PDT ADDRESS IRBASZ : WORD;"ADU SIZE $IRBZER : WORD;"SHOULD BE ZERO $$IRBBAS : WORD;"BLOCK ADU SIZE $$IRBBAA : WORD;"BLK ADU ADDRESS$  END;  (BID_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBTID : BYTE;"TASK ID  IRBUFL : BYTE;"USER FLAGS  IRBPM1 : WORD;"PARM 1 IRBP2U : BYTE;"PARM 2 IRBP2L : BYTE;"PARM 2 IRBSID : BYTE;"STATION IRBPFL : BYTE;"PROG LUNOIRBR01 : WORD;"RESERVED   END;  (PRM_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IRBEC : BYTE;"ERROR CODE  IRBPM1 : WORD;"PARM 1  IRBP2U : BYTE;"PARM 2 BYTE IRBP2L : BYTE;"PARM 2 BYTE  END;  (SLF_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE IRBRID : BYTE;"RUN ID "IRBIID : BYTE;"INSTALLED ID " IRBSID : BYTE;"STATION ID  IRBR01 : WORD;"RESERVED   END;  (ATD_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE IRBEC : BYTE;"ERROR CODE IRBRID : BYTE;"RUN ID IRBF01 : BYTE;"FILL   END;  (GSD_IRB  = IO_IRB;((CRITICAL_OPERATION_RECORD = RECORD ($CORFDR : WORD;"FDR MEM ADDRESS$$CORFAA : WORD;"FDR ADU ADDRESS$ CORFSO : WORD;"FDR OFFSET  &CORBAA : WORD; "BLOCK ADU ADDRESS&$CORBAS : WORD;"BLOCK ADU SIZE $&CORPDT : WORD; "PST SYSTEM ADDRES&  END;  (& SR_COROUTINE_INFO_REC  = RECORD & CRIDLN : WORD;"DRIVE LUNO  CRIPDT : WORD;"VOLUME PDT  $CRISSR : STATION_STATUS_RECORD; $  END;  ((SECONDARY_ALLOCATION_ENTRY = RECORD (SATSAS : WORD;"ADU SIZE  SATSAA : WORD;"ADU ADDRESS  END;  SAE = SECONDARY_ALLOCATIO N_ENTRY; :SECONDARY_ALLOCATION_TABLE = ARRAY[1..MAXSAT] OF SAE; :(SAT  = SECONDARY_ALLOCATION_TABLE; ((( SECTOR_STACK_ENTRY = PACKED RECORD( STESAA : WORD;"ADU ADDRESS STESSO : BYTE;"SEC OFFSET  ( STEDOR : BOOLEAN; "DOR PROCESSED? (&STEREM : WORD; "REMAINING SECTORS&$STELEV : WORD;"DIRECTORY LEVEL$  END;  SSE = SECTOR_STACK_ENTRY; PSSE  = @SSE;(, QUICK_SORT_STACK_ENTRY = PACKED RECORD,"STELFT : WORD;"LEFT POINTER ""STERGT : WORD;"RIGHT POINTER"  END;  $QSE = QUICK_SORT_STACK_ENTRY;$PQSE  = @QSE;( MAP_ENTRY  = PACKED RECORD $MPEFAA : WORD;"FDR ADU ADDRESS$ MPEFSO : BYTE;"FDR SEC OFFSE T $MPEAPB : BYTE;"ADUS PER BLOCK $"MPETYP : BYTE;"TYPE OF BLOCK"$MPEISA : BYTE;"INDEX INTO SAT $&MPEBAA : WORD; "BLOCK ADU ADDRESS&$MPEBAS : WORD;"BLOCK ADU SIZE $  END;  MPE  = MAP_ENTRY; PMPE  = @MPE;(&MOVE_DATA_RECORD = PACKED RECORD&$MVDFAA : WORD;"FDR ADU ADDRESS$$MVDFSO : BYTE;"FDR SEC OFFSET $$MVDAPB : BYTE;"ADUS PER BLOCK $$MVDISA : BYTE;"INDEX INTO SAT $ MVDF01 : BYTE;"FREE FIELD  &MVDDBA : WORD; "BLOCK ADU ADDRESS&$MVDDBS : WORD;"BLOCK ADU SIZE $&MVDFBA : WORD; "BLOCK ADU ADDRESS&$MVDFBS : WORD;"BLOCK ADU SIZE $"MVDNFL : WORD;"# FILES MOVED"  END;  MVD = MOVE_DATA_RECORD;PMVD  = @MVD;(&TASK_COMM_ENTRY  = PACKED RECORD&"TCEOID : BYTE;"OWNER TASK ID""TCEMID : BYTE;"MSG OWNER ID "CASE INTEGER OF &1:( TCEESR : ERROR_STATUS_RECORD);&$2:( TCEMSG : MOVE_DATA_RECORD); $  END;  :TASK_COMM_ARRAY  = ARRAY[1..10] OF TASK_COMM_ENTRY; :(& FILE_ALLOCATION_ENTRY  = RECORD &$FARAAA : WORD;"ALC ADU ADDRESS$"FARAAS : WORD;"ALC ADU SIZE "  END;  ($FAE = FILE_ALLOCATION_ENTRY; $(8 FILE_ALLOCATION_RECORD = ARRAY[0..MAXFAR] OF FAE; 8((*$RESUME LIST*) F!"-------------------END TYPE------------------------------------- F=@$$DSC$.S$COMMDN,MT=OV,MN=TDDR,ADR=015A, 6 *  V=0245D,D=05D24,C=PFI P E;33z @(*$ NO LIST *)?"************************************************************ ?"** ="* PROGRAM FILE DIRECTORY INDEX ENTRY (PFI) 04/20/79* ="** "* LOCATION: DISK * ?"************************************************************ ?<"* THE PFI IS USED TO DESCRIBE AN ENTRY IN A PROGRAM FILE.<>"* ENTRIES CAN BE TASK SEGMENTS, PROCEDURE SEGMENTS, PROGRAM>; "* SEGMENTS, AND OVERLAYS.IN ADDITION TO A COMMON FIRST ;:"* PORTION, THERE IS A SEPARATE VARIANT FOR EACH TYPE OF:A "* ENTRY. IN THE FLAG COMMENTS, T INDICATES THE COMMENT APPLIES A<"* TO A TASK ENTRY, P TO A PROCEDURE ENTRY, S TO A PROGRAM<-"* SEGMENT ENTRY AND O TO AN OVERLAY ENTRY. - PFI = PACKED RECORD  PFILEN : WORD;  "SEGMENT LENGTH (BYTES) " PFIFLG : PACKED RECORD "FLAGS"% PFFPRI : BOOLEAN; "PRIVILEGED (T) %# PFFSYS : BOOLEAN; "SYSTEM (T,S) #. PFFRES : BOOLEAN;  "MEMORY RESIDENT (T,P,S).0 PFFDEL : BOOLEAN;  "DELETE PROTECTED(T,P,S,O)0) PFFREP : BOOLEAN;  "REPLICATABLE (T,S) )5 PFFSG1 : BOOLEAN; "PROC 1 IS ON THE PROG FILE (T) 55 PFFSG2 : BOOLEAN; "PROC 2 IS ON THE PROG FILE (T) 54 PFFUSE : BOOLEAN; "PFI ENTRY IS IN USE (T,P,S,O)4# PFFOVF : BOOLEAN; "OVERFLOW (T) #6 PFFWCS : BOOLEAN; "WRITEABLE CONTROL STORE (T,P,S)60 PFFEXP : BOOLEAN;  "EXECUTE PROTECTED (T,P,S)0, PFFWRP : BOOLEAN;  "WRITE PROTECTED (P,S),& PFFUPD : BOOLEAN; "UPDATABLE (T,S)&% PFFREU : BOOLEAN; "REUSABLE (T,S) % PFFCPY :  BOOLEAN; "COPYABLE (T,S) * PFFSEC : BOOLEAN;  "SECURITY BYPASS (T)*END;4 PFIREC : WORD; "RECORD NUMBER OF START OF IMAGE44 PFIDAT : WORD; "DATE INSTALLED IN JULIAN FORMAT4) PFILOD : WORD;  "LOAD ADDRESS IN TASK )CASE INTEGER OF ) 1 : ( "TYPE DEPENDENT DATA (ANY SET) )D! PFIVAR : PACKED ARRAY [ 1.. 6 ] OF BYTE; "SINGLE PORTION OF DATAD ); " 2 : ( "TASK ENTRY DESCRIPTION"! PFIOVL : BYTE; "OVERLAY LINK !" PFIPRI : BYTE; "TASK PRIORITY"/ PFISG1 : BYTE; "ID OF PROCEDURE 1 FOR TASK // PFISG2 : BYTE; "ID OF PROCEDURE 2 FOR TASK /  PFITND : WORD; "TASK LENGTH  ); % 3 : ( "OVERLAY ENTRY DESCRIPTION %! PFIOV2 : BYTE; "OVERLAY LINK ! PFITID : BYTE;  "ID OF ASSOCIATED TASK+ PFIOND : WORD;  "RESERVED (SET TO ZERO) + ); / 4 : ( "PROCEDURE/PROGRAM ENTRY DESCRIPTION /+ PFIPND : WORD;  "RESERVED (SET TO ZERO) + ); END; (*$ RESUME LIST *)E? ,IPWCS EQU10 &INSTALL PROCEDURE WCS ,4IPSWTP EQU10 &WRITE PROTECT FOR IPS COMMAND 40IONO EQU10 CONSTANT NO FOR JUMP OPCODE02ITDEL EQU10 &INSTALL TASK DELETE %%PROTECT 2,ITCPY EQU11 &INSTALL TASK COPYABLE , SPAWN EQU11 &SPAWNABLE  0IPSUPD EQU11 &UPDATEABLE FOR IPS COMMAND0,ITREU EQU12 &INSTALL TASK REUSEABLE,0IPSSHR EQU12 &SHAREABLE FOR IPS COMMAND 0.ITUPD EQU13 &INSTALL TASK UPDATEABLE .IPSREP EQU13 &REPLICDIT P E13z@(*$ NO LIST *)DIT = PACKED RECORD + DITSR1 : WORD;  "DISK STORE REGISTERS 1 ++ DITSR2 : WORD;  "DISK STORE REGISTERS 2 ++ DITSR3 : WORD;  "DISK STORE REGISTERS 3 +3 DITFLG : PACKED RECORD  "DISK INFORMATION FLAGS 30 DIFCBT : BOOLEAN;  "TRUE=CONTROLLER BAD TRACK0+ DIF2DM : BOOLEAN;  "TRUE=TWO DEFECT MAPS +6 DIFVIF : BOOLEAN; "TRUE=VARIABLE INTERLEAVE FACTOR63 DIFSAA : BOOLEAN; "TRUE=SURFACE ANALYSIS ASSIST 3, DIFTI : BOOLEAN;  "TRUE=TRANSFER INHIBIT,0 DIFDC : BOOLEAN;  "TRUE=DIAGNOSTIC CYLINDERS0- DIFBTM : BOOLEAN;  "TRUE=BAD TRACK MAPPING -) DIFSPL : BOOLEAN;  "TRUE=DISK IS SPLIT )5 DIFNWF : BOOLEAN; "TRUE=NO WRITE FORMAT AFTER SAA 5FILL00 : 0.. 1;  DIFNRO : BOOLEAN; "T RUE=NOMINAL READS ONLY8 DIFIST : BOOLEAN; "TRUE=ISSUE SELF-TEST TO DETERMINE8; DIFANO : BOOLEAN; "TRUE=ALLOW NO OFFSETS FOR THE SD R01 ;FILL01 : 0.. 7; END;3 DITPRL : WORD; "PHYSICAL RECORD LENGTH-DEFAULT 34 DITNVE : WORD; "NUMBER VCATALOG ENTRIES-DEFAULT47 DITNAM : PACKED ARRAY [ 1..16 ] OF CHAR; "DISK NAME 7+ DITNSC : BYTE;  "NUMBER SPARE CYLINDERS +0 DITSCM : BYTE; "SPARE CYLINDERS FOR MAPPING07 DITHIF : WORD; "HARDWARE INTERLEAVE FACTOR-DEFAULT 7* DITTPP : WORD;  "TEST PATTERNS POINTER*/ DITDSP : WORD; "DIAGNOSTIC SECTORS POINTER /1 DITNDS : BYTE; "NUMBER OF DIAGNOSTIC SECTORS 1* FILL02 : BYTE;  "SPARE BYTE - NOT USED*0 DITRTF : PACKED RECORD  "READ TYPES FLAGS FO0 R SURFACE ANALYSI % DIFOF : BOOLEAN; "OFFSET FORWARD %% DIFOR : BOOLEAN; "OFFSET REVERSE %# DIFSE : BOOLEAN; "STROBE EARLY #" DIFSL : BOOLEAN; "STROBE LATE" DIFNOM : BOOLEAN; "NOMINAL6 DIFEF : BOOLEAN; "STROBE EARLY and OFFSET FORWARD66 DIFER : BOOLEAN; "STROBE EARLY and OFFSET REVERSE66 DIFLF : BOOLEAN; "STROBE LATE and OFFSET FORWARD66 DIFLR : BOOLEAN; "STROBE LATE and OFFSET REVERSE6FILL03 : 0..127;END;3 DITCRL : WORD; "DISK CONTROLLER REVISION LEVEL 3% FILL04 : BYTE;  "SPARE - NOT USED %2 DIT2DH : BYTE; "SECOND DEFECT MAP HEAD NUMBER2END; (*$ RESUME LIST *)Y ?=* CONTAINS A RECORD NUMBER OF AN ACCESS GROUP RECORD (AGR) =* AND THE OFFSEJSB P E%`3z@(*$ NO LIST *)?"************************************************************ ?"** -"*JOB STATUS BLOCK(JSB)  09/09/83 * -"** "* LOCATION: SYSTEM AREA * ?"************************************************************ ?;"*THE JSB PROVIDES THE INFORMATION ABOUT A JOB WHICH IS ;>"*NEEDED BY DNOS WHETHER OR NOT THE JOB COMMUNICATION AREA>;"*IS IN MEMORY. THIS INFORMATION INCLUDES FLAGS, QUEUE ;7"*LINKS, STATUS INFORMATION, AND JCA LOCATION DATA. 7 JSB = PACKED RECORD * JSBJSB : @JSB ; "POINTER TO NEXT JSB*, JSBJID : WORD;  "JOB ID (UNIQUE TO SITE),& JSBFLG : PACKED RECORD "JOB FLAGS&2 JSFVER : BOOLEAN; "BY-PASS VERIFICATION CHECKS2 JSFACC : BOOLEAN; "ACC OUNTING STARTED FOR JOB % JSFBAC : BOOLEAN; "BACKGROUND JOB %FILL00 : 0..31; END;# JSBTCT : BYTE; "JOB TASK COUNT #! JSBPRI : BYTE; "JOB PRIORITY ! JSBSTA : BYTE; "JOB STATE. JSBAPR : BYTE;  "ACTIVE PRIORITY (HIGHEST).3 JSBWPR : BYTE; "WAITING ON MEMORY PRI(HIGHEST) 3( JSBQL: @JSB ; "ACTIVE QUEUE LINK(4 JSBWOM : @JSB ;"LINK FOR WAITING MEMORY QUEUE45 JSBEOR : WORD; "END OF REQUEST PROCESSING ANCHOR 5* JSBJCA : @SSB ; "SSB ADDRESS FOR JCA*3 JSBSMT : @SSB ;"SM TABLE SSB ADDRESS FOR JCA 36 JSBNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "JOB NAME6< JSBUID : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER ID OF JOB<5 JSBWOT : @JSB ;"TABLE AREA JSB WAIT QUEUE LINK 5:3 JSBVER : @JSB ;"PTR TO SELF FOR VERIFICATION 3END; (*$ RESUME LIST *)D /$JMFPVL : 0..31; "PRIVILEGE LEVEL$END; JMRJID : WORD; "JOB ID E" JMRNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER SPECIFIED JOB NAME E, JMRTID : BYTE;  "TASK ID OF INITIAL TASK,' JMRSSZ : BYTE; "SIZE OF JCA1,2,3 'A JMRPRM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "TASK BID PARAMETERS A- JMRSID : BYTE;  "STATION ID OF TASK (JOB) -. JMRPFL : BYTE;  "PROGRAM FILE LUNO OF TASK./ JMRSYN : WORD; "SYNONYM SEGMENT SEGMENT ID /2 JMRLNM : WORD; "LOGICAL NAME BLOCK SEGMENT ID25 JMRUID : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER ID 56 JMRPWD : PACKED ARRAY [ 1.. 8 ] OF CHAR; "PASSWORD6 JMRACC : PACKED ARRAYCDE PE3Wz@(*$ NO LIST *)?"************************************************************ ?"** 3"* COMMAND DEFINITION ENTRY (CDE)04/02/82* 3"** ?"************************************************************ ?:"* THE CDE DESCRIBES ONE ENTRY IN THE COMMAND DEFINITION:< "* TABLE FOR A DEVICE.THE ENTRY SHOWS WHAT TASK IS TO BE<*"* BID WHEN A KEYBOARD TASK BID IS DONE.* CDE = PACKED RECORD 3 CDECHR : BYTE; "ENTRY IDENTIFICATION CHARACTER 3& CDEFLG : PACKED RECORD "BID FLAGS&4 CDFBCJ : BOOLEAN; "BID DEST. TASK IN CURRENT JOB44 CDFPEA : BOOLEAN; "PASS THE CDE ADDRESS TO LOGIN4' CDFELB : BOOLEAN;  "EVEN LOADING BID '. CDFDUI : BOOLEAN;  "DEFAULT USER ID FOR ELB.FILL00 : 0..15; END;1 CDELL: BYTE; "LUNO WITH WHICH TO BID LOGIN 1" CDELID : BYTE; "LOGIN TASK ID"1 CDEDL: BYTE; "LUNO TO BID DESTINATION TASK 1( CDEDID : BYTE;  "DESTINATION TASK ID(5 CDEPV1 : WORD; "PARAMETER VALUE 1 FOR DEST. TASK 55 CDEPV2 : WORD; "PARAMETER VALUE 2 FOR DEST. TASK 5= CDEUID : PACKED ARRAY [ 1.. 8 ] OF CHAR; "DEFAULT USER ID =END; (*$ RESUME LIST *))l *:)l `)* *:+n$ %`+n%  %`'' )>)P+N%:`+N%B``+N%N %V`%F+N%~ %V`+N% %V`+n% %`%F%z%%%+% %`+N% %`~+N% &` p+N%''  &` +N% V'+N%-' '+N& &` H+N& &` )) CROSSCON PEL2وz@P(*$NO LIST*) PP"----------------------------------------------------------------------- PP" PP" GLOBAL CONSTANTS FOR OBJECT CROSS REFERENCE PROGRAM PP" PP"----------------------------------------------------------------------- PP AL = 49; (* MAXIMUM LENGTH OF AN ACCESS NAME *) PP CHAR_OFFSET = 10; (* NUM OF BLANKS ON LEFT ( 10 CPI ) *) PP LL = 136; (* LINE LENGTH FOR CALL GRAPH *) P MAJX_CHAR_PER_LINE = 65; (* MAX CHAR PER LINE ( 10 CPI ) *) JP MAX_LINE_NUMBER = 53; (* MAX LINES PER PAGE EXCL HEADING *) PP MAX_OPTION = 14; (* MAX NUMBER OF OPTIONS *) PP NC = 30; (* MAX NUMBER OF COMMONS IN ONE MODULE *) PP NUMBER_OF_COMMANDS = 4; (* SIZE OF COMMAND TABLE *) PP PHL = 49; (* PAGE HEADING LENGTH *) PP(*$RESUME LIST*) P"JOB FLAGS&2 JSFVER : BOOLEAN; "BY-PASS VERIFICATION CHECKS21 JSFACC : BOOLEAN; "ACCOUNTING STARTED FOR JOB 1% JSFBAC : BOOLEAN; "BACKGROUND JOB % FILL00 : 0 XREFCOMNPE `2ىz(*$ NO LIST *)!* NAME : ARRAY[1..210] OF MODULE_NAME; *" NUMBER_OF_MODULES : INTEGER; " CURRENT_MODULE : INTEGER; DIR : STRING; PATH : SCISTR;  REF_LIST : REFERENCES;  MAX_REF : INTEGER;  HEADER : @REF_NODE;* BUFFER : PACKED ARRAY[1..80] OF CHAR;* (*$ RESUME LIST *) PP"----------------------------------------------------------------------- PP AL = 49; (* MAXIMUM LENGTH OF AN ACCESS NAME *) PP CHAR_OFFSET = 10; (* NUM OF BLANKS ON LEFT ( 10 CPI ) *) PP LL = 136; (* LINE LENGTH FOR CALL GRAPH *) P MADDR PEd3z%%(*$ NO LIST *)>"***********************************************************>"* *4"*DIRECTORY DESCRIPTOR RECORD (DDR) 06/05/79 *4"* *&"* LOCATION: SYSTEM TABLE AREA  *&>"***********************************************************>9"* THE DDR IS AN IN-MEMORY STRUCTURE USED FOR LOCKING A 9="* DIRECTORY SO THAT ONLY ONE TASK CAN ACCESS IT AT A TIME. =/"* IT IS ATTACHED TO THE DIRECTORY STRUCTURE. / DDR = PACKED RECORD 1 DDROWP : @DDP ;"OLDEST WAITING DDP ADDRESS 1! DDRLKT : WORD; "LOCKING FLAG !END; (*$ RESUME LIST *)Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LPFZ P E"3<z@(*$ NO LIST *)?"************************************************************ ?"** 3"* PROGRAM FILE RECORD ZERO(PFZ)  3/7/78 * 3"** "* LOCATION: DISK * ?"************************************************************ ?9"* THE PFZ DESCRIBES THE FIRST RECORD (RECORD 0) OF THE 9<"* PROGRAM FILE.IT INCLUDES BIT MAPS FOR ALL ELEMENTS IN<:"* THE PROGRAM FILE AS WELL AS DATA ABOUT CURRENT USE OF:"* THE FILE. PFZ = PACKED RECORD 6 PFZRES : PACKED ARRAY [ 1..20 ] OF BYTE; "RESERVED6L% PFZMRT : PACKED ARRAY [ 1..32 ] OF BYTE; "BIT MAP - MEMORY-RESIDENT TASKLL% PFZMRP : PACKED ARRAY [ 1..32 ] OF BYTE; "BIT MAP - MEMORY-RESIDENT PROCL. PFZTSK : PACKED ARRAY [ 1..32 ] OF BYTE; ". BIT MAP - ALL TASKS F" PFZPRC : PACKED ARRAY [ 1..32 ] OF BYTE; "BIT MAP - ALL PROCEDURESFL% PFZNRT : PACKED ARRAY [ 1..32 ] OF BYTE; "BIT MAP - NONREPLICATABLE TASKLD! PFZOVL : PACKED ARRAY [ 1..32 ] OF BYTE; "BIT MAP - ALL OVERLAYSD, PFZMNT : BYTE;  "MAXIMUM NUMBER OF TASKS,6 PFZTO: BYTE; "FIRST TASK DIRECTORY ENTRY OFFSET65 PFZTR: WORD; "FIRST TASK DIRECTORY ENTRY REC # 51 PFZMNP : BYTE; "MAXIMUM NUMBER OF PROCEDURES 16 PFZPO: BYTE; "FIRST PROC DIRECTORY ENTRY OFFSET65 PFZPR: WORD; "FIRST PROC DIRECTORY ENTRY REC # 5/ PFZMNO : BYTE; "MAXIMUM NUMBER OF OVERLAYS /6 PFZOO: BYTE; "FIRST OVLY DIRECTORY ENTRY OFFSET65 PFZOR: WORD; "FIRST OVLY DIRECTORY ENTRY REC # 5 PFZMN&H : WORD;  "MAXIMUM NUMBER OF HOLES&6 PFZHO: WORD; "FIRST AVAILABLE SPACE LIST OFFSET65 PFZHR: WORD; "FIRST AVAILABLE SPACE LIST REC # 5END; (*$ RESUME LIST *)S).0 PFFDEL : BOOLEAN;  "DELETE PROTECTED(T,P,S,O)0) PFFREP : BOOLEAN;  "REPLICATABLE (T,S) )5 PFFSG1 : BOOLEAN; "PROC 1 IS ON THE PROG FILE (T) 55 PFFSG2 : BOOLEAN; "PROC 2 IS ON THE PROG FILE (T) 54 PFFUSE : BOOLEAN; "PFI ENTRY IS IN USE (T,P,S,O)4# PFFOVF : BOOLEAN; "OVERFLOW (T) #6 PFFWCS : BOOLEAN; "WRITEABLE CONTROL STORE (T,P,S)60 PFFEXP : BOOLEAN;  "EXECUTE PROTECTED (T,P,S)0, PFFWRP : BOOLEAN;  "WRITE PROTECTED (P,S),& PFFUPD : BOOLEAN; "UPDATABLE (T,S)&% PFFREU : BOOLEAN; "REUSABLE (T,S) % PFFCPY : NFERC0 PE3 6z@(*$ NO LIST *) NFERC0 : PACKED RECORD?"************************************************************ ?"** ;"*NFERC0- ERROR CONSTANTS COMMON AREA # 1304/28/82* ;"** ?"************************************************************ ?3 ERRC0: BYTE; "FILMGR -RECORD TOO SMALL - KIF 3. ERRC1: BYTE;  "FILMGR -KIF NOT SUPPORTED.8 ERRC2: BYTE; "FILMGR -BLOCKED FILES NOT SUPPORTED85 ERRC3: BYTE; "FILMGR -UNABLE TO DO I/O ON OPEN 57 ERRC4: BYTE; "SVC00-RESERVED FOR COMPATIBILITY 7 ERRC5: BYTE; " 5 ERRC6: BYTE; "SVC00 -KIF FILE MUST BE REBUILT 56 ERRC7: BYTE; "FILMGR -EXPANDABLE FILES NOT SUPP68 ERRC8: BYTE; "SVC40-NOT ENOUGH MEMORY IN SYSTEM8 E0RRC9: BYTE; "SVC40 -SEGMGR TABLE OVERFLOW0/ ERRCA: BYTE; "IOU -BAD PARAMETER LENGTH /1 ERRCB: BYTE; "IOU -NOT ALL OF KIF SET WAS 12 ERRCC: BYTE; "IOU -NOT ALL SPECIFIED KIF'S24 ERRCD: BYTE; "IOU -CAN'T CONCAT. BLOCKED AND43 ERRCE: BYTE; "IOU -CAN'T CONCAT. FILES WITH 35 ERRCF: BYTE; "FILMGR -INVALID WRITE TO CONCAT. 5END; (*$ RESUME LIST *)΋$D g'  h( !  ! PgE `#΋$Hê'!!!(!g D*'g DD gg DDD  'g DD g' gE `#΋$L! /// '` "(` "`#Ƌ!$>>NFCLKD PEr3 z(*$ NO LIST *) NFCLKD : PACKED RECORD. NBFLGS : WORD;  "NUMBER OF STATISTIC FLAGS.3 NBSAM1 : WORD; "NUMBER SAMPLES ON FLAGS (WD 1) 33 NBSAM2 : WORD; "NUMBER SAMPLES ON FLAGS (WD 2) 3. STFLG0 : WORD;  "FLAG 0 - FOR DISK UTILITY.0 FLG0H1 : WORD; "HIT COUNT FOR FLAG 0 (WD 1)00 FLG0H2 : WORD; "HIT COUNT FOR FLAG 0 (WD 2)0- STFLG1 : WORD;  "FLAG 1 - CPU UTILIZATION -0 FLG1H1 : WORD; "HIT COUNT FOR FLAG 1 (WD 1)00 FLG1H2 : WORD; "HIT COUNT FOR FLAG 1 (WD 2)0' STFLG2 : WORD;  "FLAG 2 - SCHEDULER '0 FLG2H1 : WORD; "HIT COUNT FOR FLAG 2 (WD 1)00 FLG2H2 : WORD; "HIT COUNT FOR FLAG 2 (WD 2)0* STFLG3 : WORD;  "FLAG 3 - FILE MANAGER*0 FLG3H1 : WORD; "HIT COUNT FOR FLAG 3 (WD 1)02@0 FLG3H2 : WORD; "HIT COUNT FOR FLAG 3 (WD 2)0) STFLG4 : WORD;  "FLAG 4 - TASK LOADER )0 FLG4H1 : WORD; "HIT COUNT FOR FLAG 4 (WD 1)00 FLG4H2 : WORD; "HIT COUNT FOR FLAG 4 (WD 2)0. STFLG5 : WORD;  "FLAG 5 - MAP ONE ACTIVITY.0 FLG5H1 : WORD; "HIT COUNT FOR FLAG 5 (WD 1)00 FLG5H2 : WORD; "HIT COUNT FOR FLAG 5 (WD 2)0/ STFLG6 : WORD; "FLAG 6 - SVC CODE FILE MGR /0 FLG6H1 : WORD; "HIT COUNT FOR FLAG 6 (WD 1)00 FLG6H2 : WORD; "HIT COUNT FOR FLAG 6 (WD 2)0 STFLG7 : WORD; "FLAG 7 0 FLG7H1 : WORD; "HIT COUNT FOR FLAG 7 (WD 1)00 FLG7H2 : WORD; "HIT COUNT FOR FLAG 7 (WD 2)0 STFLG8 : WORD; "FLAG 8 0 FLG8H1 : WORD; "HIT COUNT FOR FLAG 8 (WD 1)0 FLG8H2 : WORD; "HIT COUNT FOR FLAG 8 (WD 2) STFLG9 : WORD; "FLAG 9 0 FLG9H1 : WORD; "HIT COUNT FOR FLAG 9 (WD 1)00 FLG9H2 : WORD; "HIT COUNT FOR FLAG 9 (WD 2)0 STFLGA : WORD; "FLAG 101 FLGAH1 : WORD; "HIT COUNT FOR FLAG 10 (WD 1) 11 FLGAH2 : WORD; "HIT COUNT FOR FLAG 10 (WD 2) 1 STFLGB : WORD; "FLAG 111 FLGBH1 : WORD; "HIT COUNT FOR FLAG 11 (WD 1) 11 FLGBH2 : WORD; "HIT COUNT FOR FLAG 11 (WD 2) 1 STFLGC : WORD; "FLAG 121 FLGCH1 : WORD; "HIT COUNT FOR FLAG 12 (WD 1) 11 FLGCH2 : WORD; "HIT COUNT FOR FLAG 12 (WD 2) 1 STFLGD : WORD; "FLAG 131 FLGDH1 : WORD; "HIT COUNT FOR FLAG 13 (WD 1) 11 FLGDH2 : WORD; "HIT COUNT FOR FLAG 13 (WD 2) 1 STFLGE : WORD; "FLAG 14  FLGEH1 ): WORD; "HIT COUNT FOR FLAG 14 (WD 1) )1 FLGEH2 : WORD; "HIT COUNT FOR FLAG 14 (WD 2) 1 STFLGF : WORD; "FLAG 151 FLGFH1 : WORD; "HIT COUNT FOR FLAG 15 (WD 1) 11 FLGFH2 : WORD; "HIT COUNT FOR FLAG 15 (WD 2) 1 STFLGG : WORD; "FLAG 161 FLGGH1 : WORD; "HIT COUNT FOR FLAG 16 (WD 1) 11 FLGGH2 : WORD; "HIT COUNT FOR FLAG 16 (WD 2) 1 STFLGH : WORD; "FLAG 171 FLGHH1 : WORD; "HIT COUNT FOR FLAG 17 (WD 1) 11 FLGHH2 : WORD; "HIT COUNT FOR FLAG 17 (WD 2) 1 STFLGI : WORD; "FLAG 181 FLGIH1 : WORD; "HIT COUNT FOR FLAG 18 (WD 1) 11 FLGIH2 : WORD; "HIT COUNT FOR FLAG 18 (WD 2) 11 STCNT0 : WORD; "COUNTER 0 - # JOBS COMPLETED 10 STCNT1 : WORD; "COUNTER 1 - # TASKS COMPLET0ED0 STCNT2 : WORD; "COUNTER 2 - # SEG MGR CALLS01 STCNT3 : WORD; "COUNTER 3 - # FILE MGR CALLS 1, STCNT4 : WORD;  "COUNTER 4 - # IPC CALLS,, STCNT5 : WORD;  "COUNTER 5 - # ROLL OUTS,1 STCNT6 : WORD; "COUNTER 6 - # FILE MGR Q REQ 12 STCNT7 : WORD; "COUNTER 7 - # SYSTEM OVLY LDS25 STCNT8 : WORD; "COUNTER 8 - # NAME MANAGER CALLS 5, STCNT9 : WORD;  "COUNTER 9 - # IOU CALLS,5 STCNTA : WORD; "COUNTER 10- # SYSTAB SCHED CALLS 5, STCNTB : WORD;  "COUNTER 11- # JCA CALLS,7 STCNTC : WORD; "COUNTER 12 # DIRECTORY OVHD CALLS 7+ STCNTD : WORD;  "COUNTER 13 # DISK I/O +4 STCNTE : WORD; "COUNTER 14- # DISK MANAGER REQS4 CLKWP2 : WORD; "R0 ( CKTIC1 : WORD;  "R1 - 32 BIT CLOCK ( TIC COUNTER ) CKTIC2 : WORD; "R2 -WORDS 1 AND 2 )- YEAR : WORD;  "R3 - CLOCK YEAR COUNTER -* DAY: WORD;  "R4 - CLOCK DAY COUNTER*- HOUR : WORD;  "R5 - CLOCK HOUR COUNTER -- MIN: WORD; "R6 - CLOCK MINUTE COUNTER -- SEC: WORD; "R7 - CLOCK SECOND COUNTER -* TIC: WORD;  "R8 - CLOCK TIC COUNTER*- FILL00 : WORD;  "R9 - SECONDS PER MINUTE -( FILL01 : WORD;  "R10 - HOURS PER DAY(( FILL02 : WORD;  "R11 - DAYS PER YEAR(" FILL03 : WORD; "R12 - SCRATCH"" FILL04 : WORD; "R13 - SCRATCH" FILL05 : WORD; "R143 FILL06 : WORD; "R15 - TIC COUNT FOR TIME UNITS 3" CLKWP: WORD; "R0 - SCR%%ATCH"" FILL07 : WORD; "R1 - SCRATCH"  FILL08 : WORD; "R2 - SCRAT CH( FILL09 : WORD;  "R3 - FOR BAR GRAPH(0 DSUTIL : WORD; "R4 - ESTIMATED DISK UTILIZ0/ CPUTIL : WORD; "R5 - ESTIMATED CPU UTILIZ // TSTIC: WORD; "R6 - TIME SLICE TIC COUNT /4 DSPFG1 : WORD; "R7 - INDEX TO FLAGS TO DISPLAY4* DSPFG2 : WORD; "R8 -ON FRONT PANEL*2 FILL0A : WORD; "R9 - FOR FRONT PANEL DISPLAY22 FILL0B : WORD; "R10 - FOR FRONT PANEL DISPLAY2" FILL0C : WORD; "R11 - SCRATCH". FILL0D : WORD;  "R12 - FRONT PANAL ADDRESS., FILL0E : WORD;  "R13 - WORKSPACE POINTER,* FILL0F : WORD;  "R14 - PROGRAM COUNTER*! FILL10 : WORD; "R15 - STATUS !3 PFG0H2 : WORD; "PREV NUMBER HITS FLAG 0 (WD 2) 33 PFG1H2 : WORD; "PREV NUMBER HITS FLAG 1 (WD 2) 3END; (*$ RESUME LIST *)ANFCSIZ EQU$-NBFLGS8* A CEND 'NFCLKD'8  PAGE <  LIST < QUXTKSIZ CHARACTER BUFFER *  RORG "  PAGE "  LIST " *  * @************************************************************ @@* THE MRB IS A DESCRIPTION OF THE DATA BUFFER RETURNED TO A @>* CHANNEL OWNER TASK IN ITS MASTER READ BUFFER. THIS SAME >@* BUFFER STRUCTURE IS USED IN THE MASTER WRITE OPERATION OF @:* THE OWNER TASK. ALL BUFFER POINTERS IN THE MRB ARE :<* RELATIVE OFFSETS FROM THE BEGINNING OF THE MRB, RATHER <$* THAN BEING ABSOLUTE ADDRESSES.$@* MRB VARIANTS ARE PROVIDED FOR THE MAJOR TYPES OF I/O CALL @>* BLOCKS: BASIC FILE I/O, I/O WITH RS21 PE3z(*$ NO LIST *)A "************************************************************** A"** 5"* SYSTEM LOG MESSAGE BLOCK (S21) 04/22/80 * 5"** A "************************************************************** AS21 = PACKED RECORD ( S21SVC : BYTE;  "SYS LOG OP CODE=#21(' S21ERC : BYTE;  "SYS LOG ERROR CODE '# S21UNU : WORD; "*** UNUSED *** #. S21MSG : WORD;  "ADDRESS OF MESSAGE STRING.% S21RES : WORD;  "*** RESERVED *** %END; (*$ RESUME LIST *) FLAG RDFMORMORE EXPANSION BLOCKS (1=YES) -* (AFTER THIS ONE), FLAG RDFJAV1=WERE ABLE TO GET JCA SPACE, BITS 4 RESERVED-RDBLEN BYTE 0  EXPANSION LENGTH TO BUFFER -'RDBCOF BYTE 0  OFFSET IN CALL BLOCK 'NFFUNC PEX2ِz(*$ NO LIST *) NFFUNC : PACKED RECORDEND; (*$ RESUME LIST *)STIC FLAGS.3 NBSAM1 : WORD; "NUMBER SAMPLES ON FLAGS (WD 1) 33 NBSAM2 : WORD; "NUMBER SAMPLES ON FLAGS (WD 2) 3. STFLG0 : WORD;  "FLAG 0 - FOR DISK UTI ¤k4`4(*$ NO LIST *)A "************************************************************** A"** 5"* SYSTEM LOG MESSAGE BLOCK (S21) 04/22/80 * 5"** A "************************************************************** AS21 = PACKED RECORD ( S21SVC : BYTE;  "SYS LOG OP CODE=#21(' S21ERC : BYTE;  "SYS LOG ERROR CODE '# S21UNU : WORD; "*** UNUSED *** #. S21MSG : WORD;  "ADDRESS OF MESSAGE STRING.% S21RES : WORD;  "*** RESNFERR1 PEHv3 gz @(*$ NO LIST *) NFER00 : PACKED RECORD ERR00: BYTE; " , ERR01: BYTE;  "TASK ERR -MEMORY PARITY,2 ERR02: BYTE; "TASK ERR -ILLEGAL INSTRUCTION2. ERR03: BYTE;  "TASK ERR -TILINE TIME OUT.6 ERR04: BYTE; "TASK ERR -SVC PROCESSOR HAD ERROR65 ERR05: BYTE; "TASK ERR -ILLEGAL MEMORY ADDRESS 50 ERR06: BYTE; "TASK ERR -PRIVILEGED OPCODE0* ERR07: BYTE;  "TASK ERR -TASK KILLED*5 ERR08: BYTE; "TASK ERR -INSUFFICIENT USER TASK 56 ERR09: BYTE; "TASK ERR -MAP SEGMENT NOT PRESENT65 ERR0A: BYTE; "TASK ERR -EXEC PROTECT VIOLATION 56 ERR0B: BYTE; "TASK ERR -WRITE PROTECT VIOLATION6- ERR0C: BYTE;  "TASK ERR -STACK OVERFLOW -( ERR0D: BYTE;  "TASK ERR -HARDWARE ( BREAKPOINT 2 ERR0E: BYTE; "TASK ERR -12 MS CLOCK EXPIRED22 ERR0F: BYTE; "TASK ERR -ARITHMETIC OVERFLOW2END;5 ERR10: BYTE; "TASK ERR -ABORTED BY "BREAK" KEY 52 ERR11: BYTE; "SVC00 -ID WORD ERROR ON DISK26 ERR12: BYTE; "SVC00 -RATE OR GAP ERROR ON DISK68 ERR13: BYTE; "SVC00-CONTROLLER TIMEOUT FOR DISK81 ERR14: BYTE; "TASK ERR -ILLEGAL XOP ISSUED 19 ERR15: BYTE; "TASK ERR -DISK ERROR ON INITIAL LOAD 95 ERR16: BYTE; "SVC00 -TILINE TIMEOUT FROM DISK 51 ERR17: BYTE; "SVC00 -SEARCH ERROR ON DISK 1/ ERR18: BYTE; "SVC00 -DISK UNIT OFF LINE /0 ERR19: BYTE; "SVC00 -DISK UNIT NOT READY06 ERR1A: BYTE; "SVC00 -DISK UNIT WRITE PROTECTED6 ERR1B-: BYTE; "SVC00 -UNIT CHECK ERROR ON DISK -1 ERR1C: BYTE; "SVC00 -INVALID DISK ADDRESS 14 ERR1D: BYTE; "SVC00 -SEEK INCOMPLETE ON DISK48 ERR1E: BYTE; "SVC00-DELETED SECTOR READ ON DISK88 ERR1F: BYTE; "SVC00-INVALID DISK ADDRESS IN PRB8END;$ ERR20: BYTE; "IOU-LUNO BUSY$( ERR21: BYTE; "IOU-BAD DISK NAME(3 ERR22: BYTE; "IOU -LUNO PREVIOUSLY ASSIGNED 34 ERR23: BYTE; "IOU -DX10 3.3 FUTIL ERROR (KIF44 ERR24: BYTE; "IOU -INVALID EXPANSION BLK LEN42 ERR25: BYTE; "IOU -INSUFFICIENT DISC SPACE23 ERR26: BYTE; "IOU -FILE/CHAN/DEVICE ALREADY 32 ERR27: BYTE; "IOU -RESOURCE DOES NOT EXIST21 ERR28: BYTE; "RPPRCK -PROTECTION VIOLATION 1/ ERR29: BYTE; "DIOU  -ILLEGAL CDT NUMBER /4 ERR2A: BYTE; "IOU -NO FM SPECIAL AREA AVAIL.41 ERR2B: BYTE; "IOU -FUNCTION NOT SUPPORTED 17 ERR2C: BYTE; "IOU-CANNOT RELEASE PROTECTED LUN 7* ERR2D: BYTE; "IOU-BAD DEVICE NAME* ERR2E: BYTE; " 3 ERR2F: BYTE; "DIOU  -DEV/VOL DOES NOT EXIST 3END;6 ERR30: BYTE; "FILMGR -ACCESS BEYOND END OF FILE6# ERR31: BYTE; "IN USE BY COMM ## ERR32: BYTE; "IN USE BY COMM ## ERR33: BYTE; "IN USE BY COMM ## ERR34: BYTE; "IN USE BY COMM ## ERR35: BYTE; "IN USE BY COMM ## ERR36: BYTE; "IN USE BY COMM ## ERR37: BYTE; "IN USE BY COMM ## ERR38: BYTE; "IN USE BY COMM # ERR39: BYTE; "IN  USE BY COMM # ERR3A: BYTE; "IN USE BY COMM #5 ERR3B: BYTE; "SVC00 -ACCESS PRIVILEGES DENIED 50 ERR3C: BYTE; "FILMGR -USER BUFFER TOO BIG01 ERR3D: BYTE; "FILMGR -PHYSICAL REC TOO BIG 11 ERR3E: BYTE; "FILMGR -INVALID BLOCK NUMBER 16 ERR3F: BYTE; "FILMGR -INCONSISTENT FCB/PDT VAL.6END; (*$ RESUME LIST *)# PROGRAM SEGS ON CACHE LIST2CLMNBF WORD 0 RESERVED%* WAS MIN # BUFFERS ON CACHE LIST %3CLNBUF WORD 0 # BUFFERS CURRENTLY ON CACHE LIST 35CLNPRG WORD 0 # PROG SEGS CURRENTLY ON CACHE LIST 5 *------ "*  TOL PARAMETERS FOR ROLL OUT"* 0TLSPND WORD 0 MIN # SYS TIME UNITS TASK MUST0'*  BE SUSPENDED BEFORE ELIGIBLE FOR '*  ROLL OUT BYGLOBAL P FO2ٔz">(*USERS OF THIS FILE SHOULD PULL OUT THINGS THEY USE AND >8DELETE THIS FILE FROM THE DIRECTORY.THE UNIVERSAL 8:TYPES ARE FOUND IN .TEMPLATE.PASCAL.TYPES IN RELEASED : FORM *) " TYPE&(*UNIVERSAL TYPES *) BYTE = 0..#FF; > WORD = INTEGER;(* NOTE PLEASE THAT THIS WILL CHANGE*)>* (* WITH RIFLE WE WILL USE 0..#FFFF*)* PTR= @WORD;   DOUBLE$WORD = PACKED RECORD MSW: WORD;LSW: WORD END;"( ALFA = PACKED ARRAY [1..8] OF CHAR;( STRING = PACKED RECORD  CASE BOOLEAN OF TRUE: (LEN: BYTE); 2 FALSE: (CHARS: PACKED ARRAY [0..50] OF CHAR) 2  END; (**) &(* THE FOLLOWING ARE SCI TYPES*)& ACNM = STRING; @ INT= LONGINT; NAME = STRING;  YESNO = (NO,YES); (**) F(* THE FOLLOWING ARE USEFUL FOR FILLING UNUSED FIELDS IN FLAGS*)F BITS1 = BOOLEAN;  BITS2 = 0..3;  BITS3 = 0..7;  BITS4 = 0..#0F; BITS5 = 0..#1F; BITS6 = 0..#3F; BITS7 = 0..#7F; BITS8 = BYTE;  BITS9 = 0..#1FF;  BITS10 = 0..#3FF; BITS11 = 0..#7FF; BITS12 = 0..#FFF; BITS13 = 0..#1FFF;  BITS14 = 0..#3FFF;  BITS15 = 0..#7FFF; (* MISC. *) $STATUS$REGISTER = PACKED RECORD $LGT:BOOLEAN;AGT:BOOLEAN;EQUAL:BOOLEAN;CARRY:BOOLEAN; OVERFLOW: BOOLEAN;PARITY: BOOLEAN;XOP:BOOLEAN;PRIV: BOOLEAN;MAPFILE:BOOLEAN;MEMPROT:BOOLEAN;OVFPROT:BOOLEAN;WCS:BOOLEAN;INTMASK:0..15 END;$ TASK$FLAGS = PACKED RECORD, SYSTEM : BOOLEAN;  (* SYSTEM TASK *) ,4 PRIVILEGED : BOOLEAN;  (* PRIVILEGED TASK *) 4< MEMORY$RESIDENT : BOOLEAN; (* MEMORY RESIDENT TASK*) <: END$ACTION : BOOLEAN;  (* TAKE END ACTION ON ERR*) :4 ROLLING : BOOLEAN; (* ROLL-OUT IN PROGRESS*) 46 ROLL%%ED$OUT : BOOLEAN;  (* TASK IS ROLLED OUT*) 60ABORT : BOOLEAN; (* TASK BEING ABORTED*) 04 LEAVE$ALONE : BOOLEAN; (* LEAVE TASK ALONE*) 4>DYNAMIC$PRIORITY : BOOLEAN; (* DYNAMIC PRIORITY TASK *) >FILL7 : BITS7; CONTROLLED : BOOLEAN&;  (* TASK BEING CONTROLLED *) &6 SVC$TRAP : BOOLEAN;  (* SVC TRAPS SPECIFIED *) 64 SVC$SWITCH : BOOLEAN;  (* SVC TRAP SWITCH *) 4< SCHEDULER$STOP : BOOLEAN;  (* STOPPED BY SCHEDULER*) <8 SVC$STOP : BOOLEAN;  (* STOPPED BY TRAPPED SVC*) 8> BREAKPOINT$STOP : BOOLEAN; (* STOPPED BY BREAKPOINT *) >FILL10 : BITS10 END;$FILE6 ERR31: BYTE; "  ERR32: BYTE; "  ERR33: BYTE; "  ERR34: BYTE; "  ERR35: BYTE; "  ERR36: BYTE; "  ERR37: BYTE; "  ERR38: BYTE; "  ERR39: BYTE; "  ERR3A: BYTE; " 5 ERR3B: BYTE; "SVC00 -ACCESS PRIVILEGES DENIED 50 ERR3C: BYTE; "FILMGR -USER BUFFER TOO BIG0L04CNT PF3xz$@(*$ NO LIST *)?"************************************************************ ?"** 1"* CLASS NAME TABLE ENTRY(CNT)  09/09/83 * 1"** +"* LOCATION: .S$SDTQUE.(SYSNAME) AND* +%"* SPOOLER TASK COMMON (SPCOMN)* %?"************************************************************ ?6"* THE CNT IS USED BY THE SPOOLER TO SAVE CLASS NAME6"* INFORMATION. CNT = PACKED RECORD  CNTFLG : PACKED RECORD " ) CNFDEL : BOOLEAN;  "TRUE=DELETED ENTRY )FILL00 : 0.. 1; + CNFHLT : BOOLEAN;  "TRUE=CLASS IS HALTED +FILL01 : 0..31; END;+ CNTPRI : BYTE;  "QUEUE ELEMENT PRIORITY +6 CNTDEV : WORD; "COUNT OF DEVICES USING CLASS NAME6* CNTRN: WORD;  "QUEUE ELEMENT RECORD *NUMBER0 CNTOFF : BYTE; "QUEUE ELEMENT RECORD OFFSET0% CNTRES : BYTE;  "*** RESERVED *** %8 CNTNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "CLASS NAME8END; (*$ RESUME LIST *)** **{;{;{J#[kΉΈ·Ά΅΄΃΂΁[./1с /*//p  9/ ?@j)l *:)l `)* *:+n$ %`+n%  %`'' )>)P+N%:`+N%B``+N%N %V`%F+N%~ %V`+N% %V`+n% %`%F%z%%%+% %`+N% %`~+N% &` p+N%''  &` +N% V'+N%-' '+N& &` H+N& &` )) PET PF~P3)z&@(*$ NO LIST *))"* PARMS LIST EQUATE TABLE (PET) * )"* 10/30/79* ="********************************************************** ="*="********************************************************** =/"* THESE EQUATES COVER THE FOLLOWING VERBS: /3"*ASSIGN LUNO,RENAME FILE,DELETE FILE,BACKSPACE 36"*LUNO,FORWARD SPACE LUNO,RELEASE LUNO,CREATE FILE68"*(SEQUENTIAL,KEY INDEXED,RELATIVE RECORD,DIRECTORY,81"*PROGRAM AND IMAGE), REWIND LUNO, ADD ALIAS, 1"*DELETE ALIAS"*LUNO =2; "&LUNO FILE =2; "&FILE 'DALIAS =2; "&ALIAS FOR DA COMMAND '3NFILE =3; "&NEW FILE NAME FOR RENAME COMMAND 3'AALIAS =3; "&ALIAS FOR AA COMMAND 'ALPATH =3; "&PATHN AME FOR AL COMMANDCOUNT =3; "&COUNT(LRECL =3; "&LOGICAL RECORD LENGTH(6DIRECL =3; "&PHYSICAL RECORD LENGTH FOR CFDIR CO61DONTRP =4; "&DO NOT REPLACE FOR MFN COMMAND 1/GENLUN =4; "AUTO GENERATE LUNO FOR ASSIGN /)PRECL =4; "&PHYSICAL RECORD LENGTH )0DRMXEN =4; "&MAX ENTRIES FOR CFDIR COMMAND03LUNSYN =5; "LUNO SYSNONYM FOR AUTO GEN ASSIGN 3INITIA =5; "&INITIAL)MAXT =5; "MAXIMUM NUMBER OF TASKS ).DEFPRS =5; "DEFAULT RECORD SIZE IN CFDIR..MAXP =6; "MAXIMUM NUMBER OF PROCEDURES.SECOND =6; "&SECONDARY/SFILE =6; "&SPECIAL FILE FOR ASSIGN LUNO /,MAXO =7; "MAXIMUM NUMBER OF OVERLAYS,EXPAND =7; "&EXPANDABLE ALDI*SP =7; "&DISPLAY FOR AL/AGL COMMANDS*1PFINIT =8; "PROGRAM FILE INITIAL ALLOCATION 1ASCII =8; "&ASCII? )FWRTR =8; "&FORCED WRITE FOR CFREL )MAXSIZ =9; "MAX SIZE)FWRTS =9; "&FORCED WRITE FOR CFSEQ )3PFSCND =9; "PROGRAM FILE SECONDARY ALLOCATION 3+PFEXPN = 10; "PROGRAM FILE EXPANDABLE +KEYLST = 10; "(@CFK$$$) ,ALRECL = 11; "ALLOCATION LRL FOR CFKEY,@"*************************************************************@/"* THESE EQUATES COVER THE FOLLOWING VERBS: /7"*ACTIVATE TASK,DELETE TASK,DELETE PROCEDURE,DELETE 72"*OVERLAY,EXECUTE TASK,INSTALL OVERLAY,INSTALL23"*PROCEDURE,INSTALL TASK,KILL TASK,INSTALL DISC 3""*VOLUME,UNLOAD DISC VOLUME,IN" STALL NEW DISC VOLUME."*5UVVOL =2; "&VOLUME NAME FOR UNLOAD DISC VOLUME 5PRGFIL =2; "&PROGRAM FILE RUNID =2; "&RUN ID DSCUNT =2; "&DISC UNIT(KTRID =2; "&RUN ID FOR KT COMMAND(,KTION =3; "&STATION ID FOR KT COMMAND,TASK =3; "&TASK PROCED =3; "&PROCEDUREOVERLY =3; "&OVERLAYOVLYNM =3; "&OVERLAY NAME !PRONAM =3; "&PROCEDURE NAME !SEGNAM =3; "$SEGMENT NAME TSKNAM =3; "&TASK NAME6VOLUME =3; "&VOLUME NAME FOR INSTALL DISC VOLUME6(MFDENT =4; "&NUMBER OF MFD ENTRIES(,EXION =4; "&STATION ID FOR XT COMMAND,OVLYID =4; "&OVERLAY ID PROID =4; "&PROCEDURE ID SEGID =4; "&SEGMENT ID TSKID =4; "&TASK IDOBJPTH =5; "&OBJECT FILE'EXPRM1 =5; "&PARM1 FOR XT COMMAND '2INVBDT =5; "&BAD TRACK FILE PATHNAME FOR INV2 RELOCT =6; "&RELOCATEABLE? 2IPMEMR =6; "&MEMORY RESIDENT? FOR IP COMMAND21IPSSYS =6; "&SYSTEM SEGMENT FOR IPS COMMAND 1 PRIORY =6; "&TASK PRIORITY 'EXPRM2 =6; "&PARM2 FOR XT COMMAND '6INVPRS =6; "&DEFAULT PHYSICAL RECORD SIZE FOR IN63EXCSUS =7; "&SUSPEND CALLER UNTIL DONE FOR XT 3PRIVIL =7; "&PRIVILEGED?/INVINT =7; "&HARDWARE INTERLEAVING FACTOR /3IPDEL =7; "&INSTALL PROCEDURE DELETE PROTECT 32IPSMEM =7; "&MEMORY RESIDENT FOR IPS COMMAND21IODEL =7; "&INSTALL OVERLAY DELETE PROTECT 1.EXESUS =8; "&EXECUTE AS SUSPENDED FOR XT.)ITSYS =8; "&SYSTEM? FOR IT COMMAND )0INVLDO =8; "&OPTIONAL TRACK #1 LOADER FLAG04IPEXP =8; "&INSTALL PROCEDURE EXECUTE PROTECT41IPSDEL =8; "&DELETE PROTECT FOR IPS COMMAND 1&IOTASK =8; "&TASK FOR IO COMMAND&2ITMEMR =9; "&MEMORY RESIDENT? FOR IT COMMAND2/EXRSYN =9; "SYNONYM FOR RUNTIME ID FOR XT /+INVLDR =9; "&TRACK #1 LOADER PATHNAME +2IPWTP =9; "&INSTALL PROCEDURE WRITE PROTECT22IPSEXP =9; "&EXECUTE PROTECT FOR IPS COMMAND25IOSEGT =9; "&ASSOCIATED SEGMENT TYPE FOR IO CMD 5REUSE = 10; "&REUSEABLE? *IPWCS = 10; "&INSTALL PROCEDURE WCS*2IPSWTP = 10; "&WRITE PROTECT FOR IPS COMMAND2IONO) = 10; "CONSTANT NO FOR JUMP OPCODE )0ITDEL = 10; "&INSTALL TASK DELETE PROTECT0*ITCPY = 11; "&INSTALL TASK COPYABLE*SPAWN = 11; "&SPAWNABLE/IPSUPD = 11; "&UPDATEABLE FOR IPS COMMAND /+ITREU = 12; "&INSTALL TASK REUSEABLE +.IPSSHR = 12; "&SHAREABLE FOR IPS COMMAND.,ITUPD = 13; "&INSTALL TASK UPDATEABLE,1IPSREP = 13; "&REPLICATABLE FOR IPS COMMAND 1.ITREP = 14; "&INSTALL TASK REPLICATABLE..IPSREU = 14; "&REUSEABLE FOR IPS COMMAND.1ITEXP = 15; "&INSTALL TASK EXECUTE PROTECT 1-IPSCOP = 15; "©ABLE FOR IPS COMMAND -*ITOVF = 16; "&INSTALL TASK OVERFLOW*8IPSWCS = 16; "&WRITEABLE CONTROL STORE FOR IPS COM8ITSBY = 17; "&INSTALL TASK SECURITY BYPASS 5ITSWP = 18; "&INSTALL TASK SOFTWARE PRIVILEGED 5%ITWCS = 19; "&INSTALL TASK WCS %ITPRC1 = 20; "&PROC1ITPRC2 = 21; "&PROC24PC1TPR = 22; "&PROC1 FROM PROGRAM FILE OF TASK44PC2TPR = 23; "&PROC2 FROM PROGRAM FILE OF TASK4 (*$ RESUME LIST *)*  MEMRES OVLY ROUTINE 3CSH177 EQU>0177 CV,CVD,DCOPY-IPL NOW REQUIRED 3>************************************************************>*  ***  SYSTEM LOADER FLASH CRASH CODES  ***  *>************************************************************>+FLSH01 EQU>0001  LOAD DEVICE I/O ERROR +0FLSH02 EQU>0002  NOT ENOUGH PHYSICAL MEMORY0*FLSH03 EQU>0003  CAN'T FIND SYSTEM DI*KEY PF,3z(@(*$ NO LIST *)?"************************************************************ ?"** -"* KEY DESCRIPTOR BLOCK KEY09/07/79* -"** "* LOCATION: PART OF FCB * ?"************************************************************ ??"* THE KEY DESCRIBES ONE OF THE KEYS FOUND IN THE KDR OR KDB. ?/"* IT INCLUDES FLAGS AND LOCATION OF THE KEY. / KEY = PACKED RECORD # KEYNKY : WORD; "NUMBE%%R OF KEYS #" KEYFGS : PACKED RECORD "FLAGS"FILL00 : 0.. 7; 3 KEYPLG : BOOLEAN; "BIT 3 SET IF PARTIAL LOGGING 30 KEY33 : BOOLEAN;  "BIT4 SET IF 3.3 FILE TYPE03 KEYOFG : BOOLEAN; "BIT 5 SET IF KEY IS OPTIONAL 34 KEYSFG : BOOLEAN; "BIT 6 SET IF SEQUENTIAL CMNDS4 KEYDFG : BOOLEAN; "BIT 7 S ET IF DUPLICATES OK END;0 KEYSIZ : BYTE; "NUMBER OF CHARACTERS IN KEY0) KEYO : WORD;  "KEY OFFSET IN RECORD )END; (*$ RESUME LIST *)+*$ *,`() PAGE ()0)*+n* *`6* )`(*2*B)(&B ,` ޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭ():"):")8Np *,* +`$V*:+! UTILNAME; ECEC; WPWP; PCPC; STST,$,$SCSDAT PF2#J2ٚz)(*$ NO LIST *)! "------ $ @" THE FOLLOWING ARE ALL USED IN SETTING THE REPORT SYNONYMS @ "------ $  SYM : STRING;  MS : STRING;  CHAN : STRING;  DEV01 : STRING; DEV02 : STRING; DEV03 : STRING; DEV04 : STRING; DEV06 : STRING; DEV07 : STRING; DEV08 : STRING; DEV0A : STRING; DEV0B : STRING; DEV0F : STRING; DEV10 : STRING; FILE1 : STRING; FILE2 : STRING; FILE3 : STRING; FILE4 : STRING; FILE5 : STRING; FILE6 : STRING; AYES : STRING;  ANO : STRING;  GLOBAL : STRING;  JOB : STRING;  TASK : STRING;  READ : STRING;  RW : STRING; "N WRITE : STRING; NOACC : STRING;(*$ LIST *) "ORD )END; (*$ RESUME LIST *)UNO ,MAXO =7; "MAXIMUM NUMBER OF OVERLAYS,EXPAND =7; "&EXPANDABLE .ALDISP =7; "&DISPLAY FOR AL/AGL COMMANDS.1PFINIT =8; "PROGRAM FILE INITIAL ALLOCATION 1ASCII =8; "&ASCII? (FWRTR =8; "&FORCED WRITE FOR CFRE(_IRB  = PACKED RECORDIRBSOC : BYTE;"OP CODE  IR k4`4!)5; "LUNO SYSNONYM FOR AUTO GEN ASSIGN )INITIA =5; "&INITIAL)MAXT =5; "MAXIMUM NUMBER OF TASKS ).DEFPRS =5; "DEFAULT RECORD SIZE IN CFDIR..MAXP =6; "MAXIMUM NUMBER OF PROCEDURES.SECOND =6; "&SECONDARYSFILE =6; "&SPECIAL FJDECONS P F822ٛz+@(*$NO LIST*)"*"  FILE POINTER USED BY MODULE(S) *(  jdeREAD = 2501; " INIT1 $ jdeDSKREQ = 2502; " STOPRT $, jdeCLOCK  = 2503; " SYSJEN, DEVINT ,& jdeEXPCARDS = 2504; " SYSJEN &$ jdeLOGERR = 2505; " SYSJEN $, jdeDVTYP  = 1971; " ADDDEV, LISTRT ,& jdeDVTYPEXP = 1973; " ADDDEV && jdeADDRUSED = 2506; " ADDDEV &  jdeTMSD = 2507; " ADDSD $ jdeTILPRE = 2549; " DEVINT $& jdeSHRCRDR  = 2508; " DEVINT && jdePOSUSED  = 2509; " DEVINT &$ jdeNOSVC  = 2510; " ADDSVC $4 jdeBADABBR  = 2511; " ADDSVC, CHANRT, DELRT 4$ jdeDUPXOP = 2518; " ADDXOP $& jdePATHSYN  = 2519; " ASKPAT & jdeCHGSVC = 2520; " CHANRT $ jdeQNAYET = 2522; " CSYQST $" jdeCMND = 2523; " COMMND "& jdeCMNDERR  = 2524; " COMMND &4 jdeNOTIMPLEMENTED = 2530; " COMMND, DEFSTR 42 jdeENTITY = 1965; " DEFSTR, LISTRT, LIST2 2$ jdeENTEXP = 1966; " DEFSTR $" jdeDELETE = 2531; " DELRT"& jdeSVCNOTDEF  = 2533; " DELRT&" jdeBADDEL = 2532; " DELRT"& jdeDEVFATAL = 2534; " DELDEV &$ jdeNOSDEV = 2536; " FNDDEV $$ jdeNOSXOP = 2537; " FNDXOP $$ jdeNOWIZ  = 2538; " ADDXOP $& jdeCHGPARM  = 2541; " FNDQST &, jdeSVCGROUP = 2243; " FNDQST, LIST2 ,& jdeREADFATAL  = 2542; " PUNT &$ jdeCOMPLETE = 1542; " PUNT $  jdeRETURN  = 2545; " DISPAT " jdeXOPLEV = 1982; " LIST2"  jdeEOF  = 2546; " SETUP $ jdeCONFIG = 2547; " SAVECN $0 jdeCHANGCARD  = 2548; " CSYQST, SYSJEN 0( jdePRONOTDEF  = 2550; " ADDCOM (( jdeBRDPROBAD  = 2551; " ADDCOM (( jdeACUBRDBAD  = 2552; " ADD378 ($ jdeCHNYUCK  = 2553; " ADV4 $& jdeNOTXPAN  = 2554; " DEVINT &* jdeADDRBAD  = 2561; " CRU ADDRESS*(*$RESUME LIST*) ****************************************************6/"* THESE EQUATES COVER THE FOLLOWING VERBS: /7"*ACTIVATE TASK,DELETE TASK,DELETE PROCEDURE,DELETE 72"*OVERLAY,EXECUTE TASK,INSTALL OVERLAY,INSTALL23"*PROCEDURE,INSTALL TASK,KILL TASK,INSTALL DISC 3SPDATA P FA03 Bz-@(*$ NO LIST *) SPDATA : PACKED RECORD5"*------------------------------------------------- 5"* BUFFER AREAS "*--4 CNTREC : CNR ; "CLASS NAME RECORD BUFFER AREA4H SDTREC :PACKED ARRAY [ 1..12] OF SDT ; "DEVICE TABLE RECORD BUFFERH/ QREC1: QR; "QUE ENTRY RECORD BUFFER #1 // QREC2: QR; "QUE ENTRY RECORD BUFFER #2 /' HDRREC : HR;  "FILE HEADER RECORD '. MRAREA : MRA ;  "MASTER READ BUFFER AREA.5 SDFBLK : IRB ; "BLOCK FOR I/O TO .SDT$QUE FILE 5. MREAD: IRB ;  "MASTER READ/WRT SVC BLK.' DEVIRB : IRB ;  "DEVICE I/O BLOCK ') ACCIRB : IRB ;  "ACCOUNTING CHANNEL )5 LNBLK: S43 ; "CREATE/DELETE LOGICAL NAME BLK 5& BIDSVC : S2B ; "BLOCK FOR BID T& ASK SVC 3 MAPPRG : S31 ; "BLOCK FOR MAP NAME TI ID SVC 33 SEMWAT : S3D ; "SEMAPHORE OPERATIONS SVC BLK 30 MISFLG : PACKED RECORD  "MISCELLANEOUS FLAGS0.QTYP : BOOLEAN;  "TRUE=DEVICE QUEUE ENTRY.1 HOLFND : BOOLEAN; "TRUE=AVAILABLE SPACE FOUND 1/ ACCOFF : BOOLEAN;  "TRUE=ACCOUNTING DISABLED /1 DISABL : BOOLEAN; "TRUE=DISABLE ALL CMDS THAT 13QFC  : BOOLEAN; "TRUE=QUEUE FILE JUST CREATED 3 FILL15 : 0..2047; END;) SP$ID: SID ;  "SPOOL ID NAME AREA )0 MSGADR : @SPM ; "ADDRESS OF MESSAGE TO DST0D! CURFRM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "WORKING SPACE FOR FORMD SPLID: WORD; "SPOOLER ID . CURCR: WORD;  "CURRENT CLASS NAME RECORD. CURDR: WORD; "CURRENT DEVICE TABLE RECORD/ FIRSTD : WORD; "FIRST DEVICE RECORD NUMBER // FIRSTQ : WORD; "FIRST QUEUERECORD NUMBER /2 PRIOPT : WORD; "PRINT BY PRIORITY OPTION FLAG2! MAXQR: WORD; "QUEUE RECORD !. INIERR : BYTE;  "INITIALIZATION ERROR CODE./ QUEOF1 : BYTE; "OFFSET INTO QUE BUFFER ONE /. QUERN1 : WORD;  "RECORD NUMBER IN BUFFER 1.. QUERN2 : WORD;  "RECORD NUMBER IN BUFFER 2./ QUEOF2 : BYTE; "OFFSET INTO QUE BUFFER TWO /$ NDX: BYTE;  "INDEX INTO RECORD$% RESRV1 : BYTE;  "*** RESERVED *** %A QFPN : PACKED ARRAY [ 1..52 ] OF CHAR; "QUEUE FILE PATHNAME AEND; (*$ RESUME LIST *)FBSYBUSY FLAG IRFERRERROR  FLAG IRFEOFEND OF FILE  FLAG IRFVNTEVENT CHARCVCOMN P$FJ& f2٠z/@L$(*$NO LIST*)"**********Begin COMMON for Copy Volume*********************L(2 ABEMSG : MSG_ARRAY; "aborted rerun msg 2(, ABTRRN : INT16; "abort this copy ,(4 AFRARR : AFR_ARRAY; "additional FDR info 4 "records (2 AFRLCK : BOOLEAN; "don't begin reading 2 "(file can't get AFR) "another file until "EOF has been read on "the current file " true = locked  " false = unlocked 2 ALCTYP : WORD ; "type of dst disk alc2 "(not contiguous, " contiguous, or  "adjacent and contig (0 ALCNAN : WORD ; "#ADUs to allocate 0(. ALCNAR : WORD ; "#ADUs allocated .( A0LCAAR : WORD ; "address of ADUs alc'0(2 ALCAML : WORD ; "alc dst ADUs in this2 "multiple(=ADUs/phy rec(6 BARARR : BAR_ARRAY; "input buffer alc recs 6(, BYTVER : INT32 ; "bytes verified,(, BYTWRT : INT32 ; "bytes written ,(0 CAFBRI : INT16; "current free buf alc0(0 CFRBRI : INT16; "current buf alc rec 0 "ready to be formatted (4 CHKMSG : MSG_ARRAY; "checking files/dirs 4(. CONBAS : INT16; "bin to ascii base .(. CONIDX : INT16; "index of end of # .(( CONLIN : INT32; "# to convert ((4 CONRPR : BOOLEAN; "convert rel rec files?4( CON.SPR : BOOLEAN; "convert seq files?.  "record (: CORDR1 : COR_REC_DEFN;  "overhead record for an: "FDR buffer (: CORDR2 : COR_REC_DEFN;  "overhead record for an: "FDR buffer (%%: CORVDR : COR_REC_DEFN;  "overhead record for a : "FDR verify buffer (: CORIO1 : COR_REC_DEFN;  "overhead record for an: "input buffer (: CORIO2 : COR_REC_DEFN;  "overhead record for an: "input buffer (: CORIO3 : COR_REC_DEFN;  "overhead record for an: "output buffer (: CORIO4 : COR_REC_DEFN;  "overhead record for an: "output buffer : CORVIO : COR_REC_DEFN;  "overhead record for an:< "output verify buffer(: CORPFD : COR_REC_DEFN;  "overhead record for a : "program file buffer (0 CPYMSG : MSG_ARRAY; "copy from-to msg0(: CURIOP : @COR_REC_DEFN; "@COR for an input buf :(4 CRPARR : ARRAY[1..MAXCRP] OF @COR_REC_DEFN;4 "@'s to some COR's (4 DBDADU : BAD_ADU_ARRAY; "for destination 4(. DBDIDX : INT16; "index into DBDADU .(6 DDFMSG : MSG_ARRAY; "dst disk full err msg 6(0 DDKMSG : MSG_ARRAY; "err on dest disk0(, DDKPRS : WORD;  "dst phy rec size,(6 DFDMSG : MSG_ARRAY; "dst disk frag err msg 6(. DSTVLN : IA4; "save dst volume name.(, DSTLUN : WORD ; "luno assigned to, "dst device (2 DIOCNT : INT16; "# of dst IO's not fini2(2 DERARP : @DER_ARRAY; "stack of dir FDR's2(* DERIDX : INT16 ; "top of stack *(4 DSTEOD : INT16 ; "dst end-of-dsk ADU adr4(4 DSTSEC : INT16 ; "dst sector size(byte) 4(4 DSTSE2 : INT16 ; "dst sector size(word) 4(0 DSTADU : INT16 ; "dst ADU size(byte)0(0 DSTAD2 : INT16 ; "dst ADU size(word)0(* DSECAD : INT16 ; "dst sec/ADU *(, DSECTK : INT16 ; "dst sec/track ,(4 DSECRC : BYTE ; "dst sec/rec(for trk IO4(. DSECCY : WORD ; "dst sec/cylinder.@(4 DSTNPB : INT16 ; "# of partial bit maps 4(2 DSTPBS : INT16 ; "sec of first bit map2(4 DSTTWB : WORD ; "output buffer size as 4 "multiple of dst sector(. EACMSG : MSG_ARRAY; "end action msg.(2 ENCMSG : MSG_ARRAY; "end of copies msg 2(6 ENDMSG : MSG_ARRAY; "end of rerun, no abort6(* ERMROW : WORD;  "error msg row *(* ERMCOL : WORD;  "error msg col *(. FARARR : FAR_ARRAY; "free ADU list .(0 FDRMSG : MSG_ARRAY; "bad FDR err msg 0(. FFRMSG : MSG_ARRAY; "format err msg.(. FLECNT : WORD ; "#files formatted.( HDRMSG : MSG_ARRAY; "header msg (, IACLUN : WORD ; "luno assigned to, "interactive device(6 IACDVN : DEVICE_NAME; "interactive dev name6(4 IACERR : BOOLEAN; "interactive dev error 4(2 IACVDT : BOOLEAN; "VDT interactive dev 2(2 IACLST : BOOLEAN; "interact = list dev 2(4 IOBLEN : WORD ; "size of IO buffers in 4(0 IPLMSG : MSG_ARRAY; "IPL required msg0(6 IRRARR : IRR_ARRAY; "IRB(SVC call blks)recs6(2 LSTERR : BOOLEAN; "error on listing dev2(, LSTLUN : WORD ; "luno assigned to, "listing device(2 MAXDRI : INT16; "max#of DIR stk entries2( MAXFDR : INT16; "ma x #of FDR's in buf(, MSGNXL : BOOLEAN; "msg needs CRLF,(. MSGRPY : BOOLEAN; "msg needs reply .(2 MSGIIO : BOOLEAN; "initiate IO for msg 2(4 MSGINT : BOOLEAN; "true = high intensity 4(, MSGIRB : IRB; "for messages only ,(. MNTMSG : MSG_ARRAY; "mount vol msg .(4 NUMWRT : INT16; "resetable# of buf writes4(0 PBMMSG : MSG_ARRAY; "bit map err msg 0(2 PRMFLG : WORD ; "flag word from parm fl2(6 PNTMSG : MSG_ARRAY; "pathname trace header 6(6 PRMMSG : MSG_ARRAY; "error reading parm fle6(2 PROMSG : MSG_ARRAY; "continue copies ? 2( PRRARP : @PRR$_ARRAY;  "@data from parm file$(2 OPNMSG : MSG_ARRAY; "err opening device2(4 QWTMSG : MSG_ARRAY; "do you want to quit?4(* RDYMSG : MSG_ARRAY; "ready msg *(2 RRNIDX : INT16; "index into parm array 2(4 RRTMSG : MSG_ARRAY; "rif run time err msg4(. SBDADU : BAD_ADU_ARRAY; "for source .(. SBDIDX : INT16; "index into SBDADU .(2 SDKMSG : MSG_ARRAY; "err on source dsk 2(6 SKDMSG : MSG_ARRAY; "stack overflow err msg6(2 SKOMSG : MSG_ARRAY; "dir stack overflow2(, SRCLUN : WORD ; "luno assigned to, "source device (. STAARR : ARRAY[0..MAXIIO*2] OF INT16; .@ "current status of all  "IRBs whose IO is "finished buT have not  "been marked free(6 STRMSG : MSG_ARRAY; "err during startup msg6(2 SIOCNT : INT16; "# of src IO's not fini2(4 SRCSEC : INT16 ; "src sector size(byte) 4(4 SRCSE2 : INT16 ; "src sector size(word) 4(0 SRCADU : INT16 ; "src ADU size(byte)0(0 SRCAD2 : INT16 ; "src ADU size(word)0(* SSECAD : INT16 ; "src sec/ADU *(4 SSECRC : BYTE ; "src sec/rec(for trk IO4(. SSECCY : WORD ; "src sec/cylinder.(. SVCMSG : MSG_ARRAY; "SVC error msg.(2 TK1MSG : MSG_ARRAY; "trk 1 loader err msg2(6 TMEMSG : MSG_ARRAY; "too many errs err msg 6(* TOTRRN : WORD ; "# of reruns *(6 TRHMSG : MSG_ARRAY; "pathname trace direct 6(0 TRPMSG : MSG_ARRAY; "trace pathnames?0(0 TMPWD1 : WORD ; "temp word variable0(0 TMPWD2 : WORD ; "temp word variable0(2 TRAMSG : MSG_ARRAY; "statistics header 2(4 UCRMSG : MSG_ARRAY; "user can't reply msg4(6 URQMSG : MSG_ARRAY; "user request abort msg6(8 UTEARR : ARRAY[1..10] OF INT16;"adr of err msgs8(: UTCARR : ARRAY[1..10] OF WORD ;"err codes for msg:(0 UTLMSG : MSG_ARRAY; "utility err msg 0( VCTSAD : WO RD ; "VCAT begin src ADU (0 VCTDAD : WORD ; "VCAT begin dst ADU0(. VCTRFD : WORD ; "#entries in VCAT.(. VERBUF : BOOLEAN; "Verify buffers? .(2 VERMSG : MSG_ARRAY; " verify error msg 2(L (*$RESUME LIST*)"******End COMMON*************************************L02003108003117003134003140003150003163003165003166003174003178003193003204003207003208003211003214003218003234003264003268003279003286003289003293003296003297003304003305003310003319003329003341003343003346XOICOM Fnbp2٢z1@(*$ NO LIST *);@"***********************************************************$@>"  XOICOM - OPERATOR INTERFACE TASK COMMON DEFINITIONS *$>" 23 FEBRUARY 1982 *$@"***********************************************************$@" A2 XOICOM : PACKED RECORD " GENERAL DATA COMMON (2" A"  SVC BLOCKS 9" A2ABRSVC : S0F; " ABORT I/O BY LUNO SVC BLOCK $2.IEVSVC : S41;  " INITIATE EVENT SVC BLOCK&.8WATSVC : S42; " WAIT ON EVENT COMPLETION SVC BLOCK!86RDCIRB : IRB; " OPERATOR CHANNEL READ SVC BLOCK "6.RDKIRB : IRB;  " KEYBOARD READ SVC BLOCK &.4DSPIRB : IRB; " DISPLAY TO CRT WRITE SVC BLOCK#4> WRTIRB : PACKED RECORD" OPERATOR CHANNEL WRITE SVC BLOCK"> CASE INTEGER OF7 1:(=" IRBIRB : IRB;);" NORMAL IRB-" 2:(=8 IRBRES : PACKED ARRAY [1..7] OF WORD;"USED PORTION %8, IRBRBA : WORD;  " REPLY BUFFER ADDRESS(,4 IRBRIC : WORD; " REPLY INPUT CHARACTER COUNT $46 IRBROC : WORD;); " REPLY OUTPUT CHARACTER COUNT$6  END; < > COMIRB : PACKED RECORD" OPERATOR CHANNEL WRITE SVC BLOCK"> CASE INTEGER OF7 1:(=" IRBIRB : IRB;);" NORMAL IRB-" 2:(=8 IRBRES : PACKED ARRAY [1..7] OF WORD;"USED PORTION %8, IRBRBA : WORD;  " REPLY BUFFER ADDRESS(,4 IRBRIC : WORD; " REPLY INPUT CHARACTER COUNT $46 IRBROC : WORD;); " REPLY OUTPUT CHARACTER COUNT$6  END; < " A"  BUFFERS;" ARDBUF : RDB(UFT;" OPERATOR CHANNEL READ BUFFER$(8 WRTBUF : WRTBUFT; " OPERATOR CHANNEL WRITE BUFFER #88 RPLBUF : RPLBUFT; " OPERATOR CHANNEL REPLY BUFFER #80 DSPBUF : DSPBUFT;  " DISPLAY TO CRT BUFFER '02 CMWRBF : WRTBUFT;  " COM CHANNEL WRITE BUFFER&22 CMRPBF : RPLBUFT;  " COM CHANNEL REPLY BUFFER&20 VTXTBF : STRING_REC; " VARIABLE TEXT BUFFER(0" A"  POINTERS :" A< ABRTAD : ADDRESS; " POINTER TO THE ABORT I/O S%%VC BLOCK!<B IEVADR : ADDRESS; " POINTER TO THE INITIATE EVENT SVC BLOCK BB WATADR : ADDRESS; " POINTER TO THE WAIT EVENT COMP SVC BLOCKB@ RDCADR : ADDRESS; " POINTER TO THE CHANNEL READ SVC BLOCK @@ RDKADR : ADDRESS; " POINTER TO THE KEYBOARD READ SVC BLOCK@DS8PADR : ADDRESS; " POINTER TO THE DISPLAY SVC BLOCK"88 WRTADR : ADDRESS; " POINTER TO THE WRITE SVC BLOCK#8@ COMADR : ADDRESS; " POINTER TO THE WRITE SVC BLOCK FOR COM@B VARTEXT : STRING; " POINTER TO VARIABLE TEXT FOR ERROR MSGS B" A" A"  DATA <" A. XOIMODE : BOOLEAN; " SYSTEM OPERATOR FLAG(.. READPEND : BOOLEAN;  " READ PENDING FLAG ).0 MSGNUMBER : INTEGER; " ERROR MESSAGE NUMBER(00 CONDCODE : INTEGER;  " ERROR CONDITION CODE(06STID : PACKED ARRAY [1..2] OF CHAR;" STATION ID )68STNAME : PACKED ARRAY [1..8] OF CHAR;" STATION NAME (8L$DISPATCH : (ROM,KOM,LOM,XOI,QOI,ROI,KOI,COM,BAD);"SWITCH VALUE(=COMMAND)L6LOMNAM : PACKED ARRAY [0..9] OF CHAR;" LOM FILE NAME6(6 ROIHDR : PACKED RECORD " REDUCED SPACE STRING REC&6& MAXLEN : BYTE; " MAXIMUM LENGTH+&& LENGTH : BYTE; " ACTUAL LENGTH +&0 CH : PACKED ARRAY [1..37] OF CHAR;" TEXT (0  END; < 6 KOIHDR : PACKED RECORD " REDUCED SPACE STRING REC&6& MAXLEN : BYTE; " MAXIMUM LENGTH+&& LENGTH : BYTE; " ACTUAL LENGTH +&0 CH : PACKED ARRAY [1..31] OF CHAR;" TEXT (0  END; < : ROIPROMPT : PACKED RECORD  " REDUCED SPACE STRING REC&:& MAXLEN : BYTE; " MAXIMUM LENGTH+&& LENGTH : BYTE; " ACTUAL LENGTH +&0 CH : PACKED ARRAY [1..10] OF CHAR;" TEXT (0  END; < : INVPARMMSG : PACKED RECORD " REDUCED SPACE STRING REC&:& MAXLEN : BYTE; " MAXIMUM LENGTH+& LENGTH : BYTE; " ACTUAL LENGTH +0 CH : PACKED ARRAY [1..27] OF CHAR;" TEXT (0  END; < .KOIDFLT : CH14;  " KOI DEFAULT 2ND PROMPT'..ROIDFLT : CH14;  " ROI DEFAULT 2ND PROMPT'.<QOIMSG : PACKED ARRAY [1..33] OF CHAR;" QOI LOG MESSAGE &<<XOIMSG : PACKED ARRAY [1..32] OF CHAR;" XOI LOG MESSAGE &<" AEND;@ (*$ RESUME LIST *)9 DSTPBS : INT16 ; "sec of first bit map2(4 DSTTWB : WORD ; "output buffer size as 4 "multiple of dst sector(. EACMSG : MSG_ARRAY; "end action msg.(2 ENCMSG : MSG_ARRAY; "end of copies msg 2(6 ENDMSG : MSG_ARRAY; "end of rerun, no abort6(* ERMROW : WORD;  "error msg row *( ERMCOL : MBREQ P F2٣z2@P(*$ NO LIST *) PP PTRREQ = @REQ; " POINTER TO REQUEST PP REQ = PACKED RECORD " REQUEST TEMPLATE PP REQSID : WORD; " SESSION ID PP REQRCB : WORD; " RETURN CALL BLOCK ADDRESS PP REQTSB : WORD; " TSB ADDRESS PP REQJSB : WORD; " JSB ADDRESS PP REQSSI : WORD; " SECURITY INFO PP REQLUN : BYTE; " LUNO P J REQSFL : BYTE; " SYSTEM FLAGS JP REQUFL : PACKED " USER FLAGS PP ARRAY[0..7] OF BOOLEAN; PP REQDBA : WORD; " DATA BUFFER ADDRESS PP REQRBL : WORD; " REPLY BLOCK LENGTH PP REQTKS : PACKED " LIST OF TOKENS PP ARRAY [1..3] OF PACKED ARRAY [1..8] PP OF CHAR; PP REQNXT : @REQ; " POINTER TO NEXT REQUEST P D REQPRV : @REQ; " POINTER TO PREV REQUEST DP END; PP(*$ RESUME LIST *) PUF : WRTBUFT; " OPERATOR CHANNEL WRITE BUFFER #88 RPLBUF : RPLBUFT; " OPERATOR CHANNEL REPLY BUFFER #80 DSPBUF : DSPBUFT;  " DISPLAY TO CRT BUFFER '02 CMWRBF : WRTBUFT;  " COM CHANNEL WRITE BUFFER&22 CMRPBF : RPLBUFT;  " COM CHANNEL REPLY BUFFER&20 VTXTBF : STRING_REC; " VARIABLE TEXT BUFFER(0" A"  POINTERS :" A< ABRTAD : ADDRESS; " POINTER TO THE ABORT I/O SVC BLOCK!<B IEVADR : ADDRESS; " POINTER TO THE INITIATE EVENT SVC BLOCK BB WATADR : ADDRESS; RDT PF2٤z4(*$ NO LIST *) RDT = PACKED RECORD  RDTRDT : WORD;  RDTPRC : WORD;  RDTRRL : WORD; END; (*$ RESUME LIST *) PP REQSID : WORD; " SESSION ID PP REQRCB : WORD; " RETURN CALL BLOCK ADDRESS PP REQTSB : WORD; " TSB ADDRESS PP REQJSB : WORD; " JSB ADDRESS PP REQSSI : WORD; " SECURITY INFO PP REQLUN : BYTE; " LUNO PP REQSFL : BYTE; " SYSTEM FLAGS P S42 PF$3z5(*$ NO LIST *)A "************************************************************** A"** 5"* WAIT FOR EVENT(S) BLOCK  (S42) 03/02/82 * 5"** A "************************************************************** AS42 = PACKED RECORD + S42SVC : BYTE;  "EVENT WAIT OP CODE=#42 +* S42ERC : BYTE;  "EVENT WAIT ERROR CODE*, S42TIM : WORD;  "MAXIMUM EVENT WAIT TIME,2 S42RTF : PACKED RECORD  "COMPLETED EVENT FLAGS2 S42R00 : BOOLEAN; "EVENT 00  S42R01 : BOOLEAN; "EVENT 01  S42R02 : BOOLEAN; "EVENT 02  S42R03 : BOOLEAN; "EVENT 03  S42R04 : BOOLEAN; "EVENT 04  FILL00 : 0..2047; END;8 S42RT2 : PACKED RECORD "SECOND WORD OF RETURN FLAGS8 FILL01 : 0..65535;END;- S42WTF : PACKED RECORD  "EVENT WAIT FLAGS - S42W00 : BOOLEAN; "EVENT 00  S42W01 : BOOLEAN; "EVENT 01  S42W02 : BOOLEAN; "EVENT 02  S42W03 : BOOLEAN; "EVENT 03  S42W04 : BOOLEAN; "EVENT 04  FILL02 : 0..2047; END;8 S42WT2 : PACKED RECORD "SECOND WORD OF RETURN FLAGS8 FILL03 : 0..65535;END;% S42RES : WORD;  "*** RESERVED *** %END; (*$ RESUME LIST *)9  &MEMORY RESIDENT? FOR IT COMMAND 30EXRSYN EQU9  SYNONYM FOR RUNTIME ID FOR XT0,INVLDR EQU9  &TRACK #1 LOADER PATHNAME,3IPWTP EQU9  &INSTALL PROCEDURE WRITE PROTECT 33IPSEXP EQU9  &EXECUTE PROTECT FOR IPS COMMAND 36IOSEGT EQU9  &ASSOCIATED SEGMENT TYPE FOR IO CMD6REJEVAR PFr2٦z7(*$NO LIST*)"  G : RANDOM FILE OF GENMSG;   INFILE, PR : TEXT; (*$RESUME LIST*) IT FOR EVENT(S) BLOCK  (S42) 04/22/80 * 5"** A "************************************************************** AS42 = PACKED RECORD + S42SVC : BYTE;  "EVENT WAIT OP CODE=#42 +* S42ERC : BYTE;  "EVENT WAIT ERROR CODE*, S42TIM : WORD;  "MAXIMUM EVENT WAIT TIME,2 S42RTF : PACKED RECORD  "COMPLETED EVENT FLAGS2 S42R00 : BOOLEAN; "EVENT 00  S42R01 : BOOLEAN; "EVENT 01  S42R02 : BOOLEAN; "EVENT 02  S42R03 : BOOLEAN; "EVENT 03  S42R04 : BOOLEAN; "EVENT 04  FILL00 : 0..2047; END;8 S42RT2 : PACKED RECORD "SECOND WORD OF RETURN FLAGS8 FILL01 : 0..65535;SGTYPES F2٩z9@(*$NO LIST*)" BYTE = 0..#FF; * WRD = PACKED ARRAY [1 .. 4] OF CHAR; * XCBD = PACKED RECORD OP : BYTE;(* OPCODE *)"ERR : BYTE; (* ERROR CODE *)"$SOP : INTEGER;(* SUB-OPCODE *)$0FLAGS : INTEGER; (* SYSTEM & USER FLAGS *) 0*BUFADD : INTEGER; (* BUFFER ADDRESS *)*2LRECL1 : INTEGER; (* LOGICAL RECORD LENGTH *) 2*CC1 : INTEGER; (* CHARACTER COUNT *) **REPLY : INTEGER; (* REPLY ADDRESS *) **XFLAGS : INTEGER; (* EXTENDED FLAGS *)*0FILLEV : INTEGER; (* FILL CHAR/EVENT CHAR *) 0.ROW : WRD (* CURSOR POSITIONING STUFF *) .END; . BUFOUT = PACKED ARRAY [1 .. 80] OF CHAR; .. STRING = PACKED ARRAY [1 .. 76] OF CHAR; . NAMPTR = @NAME; N*AME = PACKED ARRAY [1 .. 8 ] OF CHAR; * GENMSG = RECORDDEF : INTEGER;AAT : INTEGER;LB: INTEGER;%%UB: INTEGER;NEXT : INTEGER; LEN : INTEGER; TXT : STRING END; H" RESPONSE = ( CRDR, LP, DS, MT, DK, COM, SD, KSR, ASR, VDT, VT, EN, H2 QUIT, DELETE, INQUIRE, CHANGE, LIST, NUMBER, 2: MEMORY, OTHER, DEFAULT, YES, NO, WHAT, DVC, JOB, XOP, :< SVC, LDT, CHN, SEQ, DIR, REL, PRO, IMG, NONE_ENTERED );< DEVTYPE = CRDR .. EN;. PATHNAME = PACKED ARRAY [0..51] OF CHAR; .4 COMBRDTP = ( ALPHA, BCAIM, COMIF, FCCC,HSCC, 4 DIPC, SPECL, & CI421, CP501, CP502, CI401, CP503,& CP504  );(. PROTOCOL = ( P3780, P2780, P3270, HDLC, LAP. , COMA, " SDLC, RTS, NONE, CMNS, SPE");( T_3780 = RECORD ACU_CRU : INTEGER;  DIAL_TP : INTEGER;  BID_TMOUT : INTEGER;  ACK_TMOUT : INTEGER;  RCV_TMOUT : INTEGER;  IDL_TMOUT : INTEGER;  TRMIT_BID : INTEGER;  RCV_ENQ : INTEGER;  TRMIT_ENQ : INTEGER;  RCV_NAK : INTEGER;  TRMIT_NAK : INTEGER;  RCV_DATA : INTEGER END; "* T_3780( T_PTR_3780 = @T_3780; ( T_OVLY3780 = RECORD ( ELEM  : ARRAY[1..12] OF INTEGER; ( END; "* T_OVLY3780(  P_OVLY3780 = @T_OVLY3780;  ( T_COMA = RECORD ACUCRU  : INTEGER;  DIALTP  : INTEGER END;  "* T_COMA( T_PTR_COMA = @T_COMA; (( T_3270 = RECORD HI_ADDR : INTEGER;  POLL_TMOUT: INTEGER END; "* T_3270 ); ( T_PTR_3270 = @T_3270; (( PROTO_REC = RECORD  PROTAR : PROTOCOL; CASEPROTOCOL OF  P3780,P2780 : ( PTR_3780 : T_PTR_3780;   );  P3270 : ( PTR_3270 : T_PTR_3270;   );  COMA  : ( PTR_COMA : T_PTR_COMA;   );   END; # (( DEVPTR = @DEVICE; DEVICE = RECORD LINK : DEVPTR;  DVTP : DEVTYPE; INTRPT : INTEGER; POSITION : INTEGER; CHASSIS: INTEGER;$ SYSNAME : ARRAY [1..4] OF WRD;$@ TIMEOUT: INTEGER; CHARQ: INTEGER;, XCESS: BOOLEAN; (* RECORD = TRUE *) , CRUBIT : INTEGER; NODR : INTEGER; INTERFACE: INTEGER; CHNNMB : INTEGER; ADDRESS: INTEGER; CASE DEVTYPE OF$ DS, DK : ( RECSIZ  : INTEGER$  );   LP : ( WIDTH : INTEGER;  , PMODE : BOOLEAN; (* SERIAL = TRUE *) ,. XCHAR : BOOLEAN; (* EXTENDED = TRUE *) . MULATOR : INTEGER;  LP_SPEED : INTEGER;  ); " VDT : ( VDT_TYPE : INTEGER;" GOT_A_PRINTER: BOOLEAN; SPEED : INTEGER; SWITCHED : BOOLEAN; OUTPUT_FIFO: INTEGER; ); & KSR : ( TERMINAL_TYPE: INTEGER;& BAUD_RATE: INTEGER; ACU_PRESENT: BOOLEAN; ACU_ADDRESS: INTEGER; ECHO : BOOLEAN; FULL_DUPLEX: BOOLEAN; COMM_INTERFACE : INTEGER; SWITCHED_LINE: BOOLEAN  ); 2 ASR : ( CASXCESS : BOOLEAN " RECORD = TRUE 2 );   COM : (  BOARDTP : COMBRDTP; USRBRDTP : COMBRDTP; SPNAME  : WRD;  BUFSIZ  : INTEGER;  NOMDL : INTEGER;  IPCNOSES : INTEGER; , PROTOCLS : ARRAY [0..3] OF PROTO_REC; , ); 0 SD : ( SDNUMB  : INTEGER; " SD NUMBER 0* SDTIL : BOOLEAN);" TILINE DEVICE *. VT : ( VTNUMB  : INTEGER);" # OF VT .(  END; " (& PROTO_INDEX = J2780..NO_OF_PROTO;& PROTO_BOARD_STATUS  = ( GEND, UNGEND, CANNOTGEN   );: COM_STATUS = ARRAY[0..NO_OF_BOARD,0..NO_OF_PROTO] OF : PROTO_BOARD_STATUS; ( SPEC_DEV_INFO = RECORD  DEFINED : BOOLEAN; , NAME  : PACKED ARRAY [1..2] OF CHAR; , BUFFER : INTEGER;  INTBIT : INTEGER;  INTWP : BOOLEAN;  LISTED : BOOLEAN;  COUNT : INTEGER;  KEYS  : BOOLEAN;   END; !  SCISTR = PACKED RECORD MAXLEN : BYTE;CURLEN : BYTE;,CH : PACKED ARRAY[1..52] OF CHAR END; , PPTH = @PATHNAME;, ASMNAM = PACKED ARRAY [1 .. 6] OF CHAR;,( SVCDEF = ARRAY [0..#7F] OF BOOLEAN;(( XOPVECTOR = RECORD HERE : BOOLEAN; ( XOPPC : ASMNAM; XOPWP : ASMNAM;@ XOPNAME : PPTH END; JOBPTR = @JOBDEF; JOBDEF = RECORDLINK: JOBPTR; JOBID : INTEGER;LOGICALNAMES: BOOLEAN;SYNONYMNS : BOOLEAN;JOBNAME : NAME; PRIORITY: INTEGER;JCASIZ: INTEGER;END;( QTYPE = (YN, NUM, NAM, PTH, ELEM); ( RELREC = PACKED RECORD OP : BYTE;ERR  : BYTE;SUBLUN : INTEGER; FLAGS  : INTEGER; BUFADD : INTEGER; LRECL  : INTEGER; CCNT : INTEGER; REC1 : INTEGER; REC2 : INTEGER END;  IOPTR = @SEQIO; SEQIO = PACKED RECORD LINK  : IOPTR;  OP  : BYTE; ERR : BYTE; SUBOP : BYTE; IOLUNO  : BYTE; FLAGS : INTEGER;  BUFADD  : INTEGER;  LRECL : INTEGER;  CCNT  : INTEGER END; > BOARD_MAP= ARRAY[NEW_NAMES..NO_OF_BRDNAM] OF COMBRDTP; >4 COMDSR_BLD = ARRAY[0..NO_OF_PROTO] OF BOOLEAN; 4, DSRNAME= PACKED ARRAY[1..4] OF CHAR; ,< DVCCNTRLTP = (UNUSED, ANCUSD, TILUSD, CRUUSD, SPLUSD); <(*$RESUME LIST*) (2 IACLST : BOOLEAN; "interact = list dev 2(4 IOBLEN : WORD ; "size of IO buffers in 4(0 IPLMSG : MSG_ARRAY; "IPL required msg0(6 IRRARR : IRR_ARRAY; "IRB(SVC call blks)recs6( LSTERR : BOOLEAN; "er "&PROC1 FROM PROGRAM FILE OF TASK44PC2TPR = 23; "&PROC2 22k4`4S17 PF3z;@(*$ NO LIST *)A "************************************************************** A"** 9"* TASK GET PARAMETERS SVC BLOCK (S17) 05/13/80 * 9"** A "************************************************************** AS17 = PACKED RECORD * S17SVC : BYTE;  "GET PARMS OP CODE=#17*) S17ERC : BYTE;  "GET PARMS ERROR CODE )CASE INTEGER OF # 1 : ( "WORD DEFINITION VARIANT #& S17PW1 : WORD;  "1ST WORD OF PARMS&& S17PW2 : WORD;  "2ND WORD OF PARMS& ); # 2 : ( "BYTE DEFINITION VARIANT #& S17PB1 : BYTE;  "1ST BYTE OF PARMS&& S17PB2 : BYTE;  "2ND BYTE OF PARMS&& S17PB3 : BYTE;  "3RD BYTE OF PARMS&& S17PB4 : BYTE;  "4TH BYTE OF PARMS& ); END; (*$ RESUME   LIST *) IST  PAGE ********************************************* ?"** 3"* RESOURCE PRIVILEGE BLOCK (RPB) 08/30/83 * 3"** '"* LOCATION: SYSTEM AREA OR JCA * '?"************************************************************ ?A "* AN RPB IS BUILT FOR AN I/O RESOURCE WHEN A LUNO IS ASSIGNED. A?"* IT IS ATTACHED TO THE APPROPRIATE RESOURCE STRUCTURE: CCB, ?"* FCB, OR PDT.  RPB = PACKED RECORD ' RPBRPB : @RPB ; "LINK TO NEXT RPB '& RPBFLG : PACKED RECORD "FLAG BYTE&# RPFATT : BOOLEAN; "1 = ATTACHED #$ RPFOPN : BOOLEAN; "1 = LUNO OPEN$0 RPFFBS : BOOLEAN;  "1 = FORWARD OR BACK SPACE0FILL00 : 0.. 7; -RPFACU : 0.. 3;  "ACCESS PRIVILEGES IN USE -END;S0F PF3z<(*$ NO LIST *)C!"**************************************************************** C"** 7"*ABORT I/O BY LUNO SVC BLOCK (S0F) 07/07/80 * 7"** C!"**************************************************************** CS0F = PACKED RECORD 7 S0FSVC : BYTE; "ABORT I/O BY LUNO SVC OPCODE (#0F) 75 S0FERC : BYTE; "ABORT I/O BY LUNO SVC ERROR CODE 58 S0FFLG : PACKED RECORD "ABORT I/O BY LUNO SVC FLAGS8( S0FDNC : BOOLEAN;  "DO NOT CLOSE FLAG($S0FRES : 0..127; "RESERVED FLAGS$END;" S0FLUN : BYTE; "LUNO TO ABORT"& S0FTSB : WORD;  "TSB OF OWNER TASK&& S0FJSB : WORD;  "JSB OF OWNER TASK&END; (*$ RESUME LIST *)CKED ARRAY [ 1..32 ] OF BYTE; "DATA TO READ/WRITE@VDT940 PFy>2٭z>@(*$ NO LIST *)="********************************************************** ="** 3 "* EVDT EXTENSION TO KSB (VDT940) 10/15/81 * 3"** "*LOCATION: STA * ="********************************************************** = VDT = PACKED RECORD 0 VDTEUF : PACKED RECORD  "EXTENDED USER FLAGS0 FILL00 : 0..65535;END;# VDTFIL : BYTE; "FILL CHARACTER #$ VDTEVT : BYTE; "EVENT CHARACTER$= VDTPOS : PACKED ARRAY [ 1.. 2 ] OF BYTE; "POSITION CURSOR =K% VDTDEF : PACKED ARRAY [ 1.. 2 ] OF BYTE; "DEFINITION CURSOR (SEQUENTAL) KK% VDTRED : PACKED ARRAY [ 1.. 2 ] OF BYTE; "CHARACTERS READ OR ADDRESS OF K& VDTSC1 : PACKED RECORD "FLAG WORD&* FOUMOD : BOOLEAN;  "FOUND BEGINNING OF *READ INFORMATION; REDMOD : BOOLEAN; "FLAG TO SAY NEXT SOH WAS REQUESTED B ;%%; ADRMOD : BOOLEAN; "READ INFORMATION GOES INTO ADDRESS I ;2 ESCFOU : BOOLEAN; "FOUND FIRST ESC IN RESPONSE2* LPRFOU : BOOLEAN;  "FOUND '(' IN STRING*; ES2FOU : BOOLEAN; "FLAG TO SAY FOUND SECOND ESC IN STRI ;: CHSMOD : BOOLEAN; "FLAG TO SAY AID CHARACTER WAS FOUND:; AIDMOD : BOOLEAN; "FLAG TO SAY CHANGE CHAR SET WAS FOU ;: ATRMOD : BOOLEAN; "FLAG TO SAY ATTRIBUTE CHARACTER WAS:; RCRMOD : BOOLEAN; "FLAG TO SAY CURSOR POSITON WAS FOUND ;; FINRED : BOOLEAN; "FLAG TO SAY REQUESTED READ WAS FINIS ;' INSMOD : BOOLEAN;  "INSERT MODE FLAG '9 STACOM : BOOLEAN; "STATUS IS COMING BACK (BC) (BCAIM) 9 CONFLG : BOOLEAN; "CON NECT FLAG  RNGFLG : BOOLEAN; "RING FLAG ' SETRET : BOOLEAN;  "RE ENTER ME FLAG 'END;- VDTSC2 : PACKED RECORD  "SECOND FLAG WORD -1 DEVTIM : BOOLEAN; "THIS IS A TIMED OUT DEVICE 16 REDTIM : BOOLEAN; "THIS TIME OUT IS FOR A RESPONSE69 PTHCHN : BOOLEAN; "PRINTER HAS CONTROL OF THE CHANNEL 9; PTWCHN : BOOLEAN; "PRINTER WANTS CONTROL OF THE CHANNEL ;5 CRHCHN : BOOLEAN; "CRT HAS CONTROL OF THE CHANNEL 57 CRWCHN : BOOLEAN; "CRT WANTS CONTROL OF THE CHANNEL 7. M3CSC1 : BOOLEAN;  "EXTENDED CHAR IS IN SC1.. M3CSC2 : BOOLEAN;  "EXTENDED CHAR IS IN SC2.: SC1SET : BOOLEAN; "ALTERNATE CHARACTER SET IN TERMINAL:7 SC1INP : BOOLEAN; "ALTERNATE CHARACTER SET ON INPUT 7 SC1RED : BOOLEAN; "ALTER!NATE CHARACTER SET ON READ TO A !/ SC2MOD : BOOLEAN;  "GRAPHICS SET IN TERMINAL /, SC2INP : BOOLEAN;  "GRAPHICS SET ON INPUT,6 SC2RED : BOOLEAN; "GRAPHICS SET ON READ TO ADDRESS6) BSYCHR : BOOLEAN;  "TERMINAL BUSY FLAG ): MD3CHK : BOOLEAN; "A MODE 3 TABLE CHECK IS IN PROGRESS:END;+ VDTSC3 : WORD;  "REGISTER SAVE LOCATION +: VDTDCD : PACKED RECORD "DATA CARRIER DETECT FLAG BYTE:$ COMHFX : BOOLEAN; "HUNG UP FIXED$: COMSWT : BOOLEAN; "TERMINAL READY TURNED OFF AND TIMER:! COMSCA : BOOLEAN; "SCI ACTIVE !. COMDCF : BOOLEAN;  "SYSTEM RECOVERED, RESET.FILL01 : 0..15; END;A GENSPD : PACKED RECORD "SPEED OF COMMIF CARD AND SWITCHED FL A$ SWTFLG : BOOLEAN; "SWITCHED FLAG$FILL 02 : 0.. 3; VDTSPD : 0..31; "SPEEDEND;! VDTTIM : WORD; "WORD FOR DCD !7 VDTATT : PACKED RECORD "ATTRIBUTE SENT TO TERMINAL 7FILL03 : 0.. 3; " ATTDBW : BOOLEAN; "DOUBLE WIDE"" ATTNOD : BOOLEAN; "NON DISPLAY"$ ATTBLK : BOOLEAN; "BLINK DISPLAY$2 ATTUNL : BOOLEAN; "UNDERLINE DISPLAY CHARACTER26 ATTREV : BOOLEAN; "REVERSE IMAGE DISPLAY CHARACTER67 ATTINT : BOOLEAN; "HIGH INTENSITY DISPLAY CHARACTER 7END;5 VDTATB : BYTE; "ATTRIBUTE RECIEVED FROM TERMINAL 56 VDTSC4 : WORD; "REGISTER SAVE LOCATION FOR OUTCHR6 VDTCNT : WORD; "FOR VDTRED ; VDTPTR : @PDT ;"POINTER TO PDTR0 OF PRINTER IF PRESE ;F" VDTSC5 : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LINK REGISTER FOR CHANGIFNG CHA5 VDTMFL : PACKED RECORD  "FLAG WORD FOR MODE FLAGS 5" VFMOD2 : BOOLEAN; "MODE 2 FLAG"2 VFETXT : BOOLEAN; "TERMINATE ON RECEIPT OF ETX22 VFESCT : BOOLEAN; "TERMINATE ON RECEIPT OF ESC20 VFMEVT : BOOLEAN;  "EXTENDED EVENT CHARACTERS02 VFMDIS : BOOLEAN; "EXTENDED DISPLAY CHARACTERS29 VFMESC : BOOLEAN; "ALLOW ESC AND SOH THRU WRITE ASCII 9+ VFMNOA : BOOLEAN;  "DON'T SET ATTRIBUTES +* VFM132 : BOOLEAN;  "132 COL MODE 3 FLAG*. VFMODF : BOOLEAN;  "MODIFIED DATA TO CALLER.4 VFXVAL : BOOLEAN; "EXTENDED CHARACTER VALIDATION4FILL04 : 0..63; END;: VDTEDL : PACKED RECORD "FLAG WORD FOR EVENT KEY FLAGS:6 VFERFC : BOOLEAN; "ERASE FIELD IS PURE EVENT CHAR6 VFRTFC : BOOLEAN; "RIGHT FIELD IS PURE EVENT CHAR; VFCRLC : BOOLEAN; "CURSOR LEFT OUT OF FLD IS PURE EVENT ;. VFTABC : BOOLEAN; "TAB IS PURE EVENT CHAR.FILL05 : 0.. 1; 0 VFSKPC : BOOLEAN; "SKIP  IS PURE EVENT CHAR00 VFHOMC : BOOLEAN; "HOME  IS PURE EVENT CHAR02 VFRETC : BOOLEAN; "RETURN  IS PURE EVENT CHAR26 VFERIC : BOOLEAN; "ERASE INPUT IS PURE EVENT CHAR6FILL06 : 0.. 1; : VFDELC : BOOLEAN; "DELETE CHARACTER IS PURE EVENT CHAR:: VFINSC : BOOLEAN; "INSERT CHARACTER IS PURE EVENT CHAR:; VFCRRC : BOOLEAN; "CURSOR RIGHT OUT OF FLD IS PURE EVEN ;0 VFENTC : BOOLEAN; "ENTER IS PURE EVENT CHAR06 VFLFFC : BOOLEAN; "LEFT FIELD  IS PURE EVENT CHAR6FILL07 : 0.. 1; END; VDTSIZ : WORD; "NUMBER OF CHARS OF SCREEN MEMORY % VDTFIS : WORD;  "SAVE R0 FOR FIFO %. VDTSC6 : PACKED ARRAY [ 1.. 2 ] OF BYTE; ". FIFOCT : WORD; "FIFO COUNT " FIFOIP : WORD; "INPUT POINTER"# FIFOOP : WORD; "OUTPUT POINTER #  FIFOEP : WORD; "END POINTER END; (*$ RESUME LIST *)VTP : DEVTYPE; INTRPT : INTEGER; POSITION : INTEGER; CHASSIS: INTEGER;$ SYSNAME : ARRAY [1..4] OF WRD;$ TIMEOUT: INTEGER; CHARQ: INTEGER;, XCESS: BOOLEAN; (* RECORD = TRUE *) , CRUBIT : INTEGER; NODR : INTEGER; INTERFACE: INTEGER; CHNNMB : INTEGER; ADDRESS: INTEGER; CASE DEVTYPE OF$ DS, DK : ( RECSIZ  : INTEGERSISCONS PF2ٯz@@(*$ NO LIST *)!L$"-----------------------------------------------------------------------L" '0" CONSTANTS USED BY SIS UTILITY 10/05/79 0" 'L$"-----------------------------------------------------------------------L " PARMS LIST POSITIONS "-------------! FIRSTPARM = 3;  LUNOPARM = FIRSTPARM; TYPEPARM = LUNOPARM+1;  TASKPARM = TYPEPARM+1;  JOBPARM = TASKPARM+1;"-------------!$" OUTPUT DATA COLUMN POSITIONS $"-------------! SCOPE_POSITION = 0; LUNO_POSITION = 2;  ACC_POSITION = 6; TASK_POSITION = 10; JOB_POSITION = 19;  TYPE_POSITION = 28; NAME_POSITION = 33;"-------------!" E RROR MESSAGE CODE INDEXES "-------------!. NO_JSB = #9069; "CAN'T FIND DESIRED JOB .0 NO_TSB = #906E; "CAN'T FIND DESIRED TASK 00 NO_JCA = #906F; "CAN'T MAP IN JCA FOR JOB0(*$ LIST *) "SET WAS FOU ;: ATRMOD : BOOLEAN; "FLAG TO SAY ATTRIBUTE CHARACTER WAS:; RCRMOD : BOOLEAN; "FLAG TO SAY CURSOR POSITON WAS FOUND ;; FINRED : BOOLEAN; "FLAG TO SAY REQUESTED READ WAS FINIS ;' INSMOD : BOOLEAN;  "INSERT MODE FLAG '9 STACOM : BOOLEAN; "STATUS IS COMING BACK (BC) (BCAIM) 9 CONFLG : BOOLEAN; "CONE = PACKED ARRAY [1 .. 8 ] OF CHAR; , GENMSG = RECORD"k4`4@(*$ NO LIST *)="********************************************************** ="*S39 PF3zB(*$ NO LIST *)A "************************************************************** A"** 7"*GET EVENT KEY BY LUNO SVC BLOCK (S39) 06/09/80* 7"** A "************************************************************** AS39 = PACKED RECORD 3 S39SVC : BYTE; "GET EVENT KEY BY LUNO CODE=#39 35 S39ERC : BYTE; "GET EVENT KEY BY LUNO ERROR CODE 5' S39KEY : BYTE;  "EVENT KEY RETURNED '- S39LUN : BYTE;  "LUNO ASSIGNED TO STATION -END; (*$ RESUME LIST *)FILL00 : 0..15; 1 S31FLU : BOOLEAN; "1 = PROG FILE LUNO IS OPEN 1END;# S31UNU : BYTE; "*** UNUSED *** #7 S31TSK : PACKED ARRAY [ 1.. 8 ] OF CHAR; "TASK NAME 7# S31LUN : BYTE; "PROG FILE LUNO # S31IID : BYTE; RDB P F03^zC@(*$ NO LIST *)?"************************************************************ ?"** 3"*REQUEST DESCRIPTION BLOCK (RDB)05/21/79* 3"** 1"*LOCATION: RPSDAT AND SOME SVC PROCESSORS* 1?"************************************************************ ??"* THE RDB FOR A GIVEN SVC SPECIFIES HOW TO BUFFER THE USER'S ?="* REQUEST FOR PROCESSING BY THE SVC PROCESSOR. THE RDB IS =@"* LOCATED IN THE MODULE RPSDAT BUILT DURING SYSTEM GENERATION@@"* IF THE SVC IS AN OPTIONAL SVC OR IF THE SVC IS PROCESSED BY@;"* A QUEUE SERVER TASK. OTHERWISE, THE RDB IS LOCATED IN ;>"* THE FIRST PROCESSOR MODULE FOR THE SVC PROCESSOR.AN RDB>:"* EXISTS FOR A GIVEN SVC ONLY IF THE CALL BLOCK MUST BE: "* BUFFE 6RED INTO A PORTION OF MEMORY FOR THE DURATION OF THE6"* PROCESSING. RDB = PACKED RECORD . RDBFLG : PACKED RECORD  "DESCRIPTION FLAGS.3 RDFEXT : BOOLEAN; "EXTENSIONS TO THE RDB(1=YES) 33 RDFRST : BOOLEAN; "REQUIRES SYSTEM TASK (1=YES) 34 RDFRPT : BOOLEAN; "REQUIRES SOFT.PRIVILEGED TASK43 RDFQOP : BOOLEAN; "QUEUE SERVER(0) OR PROCESSOR 32 RDFSOD : BOOLEAN; "STATIC(0) OR DYNAMIC BUFFER25 RDFDSJ : BOOLEAN; "DYNAMIC BUFFER - STA(0) OR JCA 50 RDFREV : BOOLEAN;  "REVISING A BUFFER (1=YES)0- RDFINT : BOOLEAN;  "CAN(1) OR CANNOT(0) BE -1 RDFQIJ : BOOLEAN; "QUEUE HDR IN STA(0) OR JCA 1FILL00 : 0..127;END;2 RDBSRV : WORD; "ADDRESS OF PROCESSOR ENTRY OR2 RDBRIB : @RIB ;"ADDRESS OF RETURN INFORMATION BLOCK%%2 RDBMAX : WORD; "MAXIMUM BUFFER LENGTH (BYTES)27 RDBBAS : BYTE; "BASIC REQUEST BLOCK LENGTH (BYTES) 70 RDBACC : BYTE; "ACCOUNTING WEIGHTING FACTOR0, FILL01 : WORD;  "RESERVED FOR FUTURE USE,, RDBEXP : PACKED RECORD "EXPANSION FLAGS,4 RDFTYP : BOOLEAN; "TYPE OF CALL BLOCK OFFSET PTR45 RDFJCA : BOOLEAN; "1=BUFFER THIS IN JCA BY ITSELF 54 RDFMOR : BOOLEAN; "MORE EXPANSION BLOCKS (1=YES)43 RDFJAV : BOOLEAN; "1=WERE ABLE TO GET JCA SPACE 3FILL02 : 0..15; END;/ RDBLEN : BYTE; "EXPANSION LENGTH TO BUFFER /) RDBCOF : BYTE;  "OFFSET IN CALL BLOCK )9 RDBBOF : BYTE; "OFFSET IN BRB (0=CONTINUE FROM LAST) 9END; (*$ RESUME LIST *)ID FOR XT CO(PICTCOM P F.2ٲzE@(*$ NO LIST *)!B"************************************************************* B2" COMMON DECLARATIONS FOR THE PICTURE PROGRAM 2B"************************************************************* B6 ARRAYTYPE : CH6; "WILL BE WORD, LONG OR RECORD 6 BYLOC : INTEGER;  CARDBUF : CH79; CASEIDX : INTEGER; ( CASECT : ARRAY[1..20] OF INTEGER; (( CASEST : ARRAY[1..20] OF INTEGER; ( COM : CH36; CUR : INTEGER; 4 CURONE : ONEFLAG;  "CURRENT FLAG IN FLAGLAST4, CURRFLAG : INTEGER; "NEXT FLAG NUMBER ,. CURSTARS : COM_PTR; "CURRENT FLAG CH36S .0 ELIST : VALPTR; "LIST OF ALL STRUCTURES 00 ENDLST : VALPTR; "END OF ALL STRUCTURES 0 EQULAST : E&QUPTR; "END OF EQUATE STRUCTURES&4 EQUTOP : EQUPTR; "FIRST OF EQUATE STRUCTURES4 FILLCOUNT : INTEGER;  FLAGCOUNT : INTEGER; . FLAGLAST : FLAGPTR;  "CURRENT FLAGREC . FLAGIP : BOOLEAN; 0 FLAGTOP : FLAGPTR;  "START OF FLAG LIST 0 GACNM : CH6;  LAB : CH6;  LINENO : INTEGER;  NCOM  : CH36; NELEM : INTEGER;  NLAB  : CH6;  OLDCOM : CH36; OPER  : CH6;  OPND  : CH30; OPNDVAL : INTEGER; 0 PAGING : BOOLEAN;  "FLAG - DOING PAGING? 0 POINT : VALPTR;4 RECLAST : RECPTR; "LAST PACKED RECORD DEFINED46 RECTOP : RECPTR; "FIRST PACKED RECORD DEFINED 6 STTAB : BOOLEAN;  STOP  : BOOLEAN;  STPASCAL : BOOLEAN; TMPCOM : CH36; VALIDX : INTEGER;  WORKREC : RECPTR;(*$ LIST*)#DBACC : BYTE; "ACCOUNTING WEIGHTING FACTOR0, FILL01 : WORD;  "RESERVED FOR FUTURE USE,, RDBEXP : PACKED RECORD "EXPANSION FLAGS,4 RDFTYP : BOOLEAN; "TYPE OF CALL BLOCK OFFSET PTR45 RDFJCA : BOOLEAN; "1=BUFFER THIS IN JCA BY ITSELF 54 RDFMOR : BOOLEAN; "MORE EXPANSION BLOCKS (1=YES)43 RDFJAV : BOOLEAN; "1=WERE ABLE TO GET JCA SPACE 3FILL02 : 0..15; END;/ RDBLEN : BYTE; "EXPANSION LENGTH TO BUFFER /) RDBCOF : BYTE;  "OFFSET IN CALL BLOCK )9 RDBBOF : BYTE; "OFFSET IN BRB (0=CONTINUE FROM LAST) 9END; (*$ RESUME LIST *)AN; "ALTERIOUOP P F-l3zG(*$ NO LIST *)?"************************************************************ ?"** -"*IOU SUBOPCODES (IOUOP) 08/31/83 * -"** ?"************************************************************ ?-"*THIS TABLE CONTAINS ALL IOU SUBOPCODES. -/"*THE FORMAT OF EACH ENTRY IN THE TABLE IS: /!"*DATA 00+VAL !="*WHERE THE VAL IS A SYMBOL DEFINED BY THE MODULE =>"*COPYING THIS FILE; THUS, EACH OPCODE ENTRY IN THIS TABLE>="*CAN CONTAIN MODULE-SPECIFIC DATA. ALSO, IF A NEW ENTRY =="*IS DEFINED IN THIS TABLE, THE SYMBOL "VAL" WILL =<"*BE UNDEFINED, MAKING MODULES WHICH MUST UNDERSTAND ALL<;"*IOU OPCODES EASY TO FIND AND MODIFY TO COMPREHEND NEW ;0@@"*OPCODES."* IOU = PACKED RECORD   FILL00 : WORD; "CREATE FILE  FILL01 : WORD; "ASSIGN LUNO  FILL02 : WORD; "DELETE FILE ! FILL03 : WORD; "RELEASE LUNO !+ FILL04 : WORD;  "DIAGNOSTIC ASSIGN LUNO +  FILL05 : WORD; "RENAME FILE # FILL06 : WORD; "UNPROTECT FILE #' FILL07 : WORD;  "WRITE PROTECT FILE '( FILL08 : WORD;  "DELETE PROTECT FILE(+ FILL09 : WORD;  "VERIFY PATHNAME SYNTAX + FILL0A : WORD; "ADD ALIAS! FILL0B : WORD; "DELETE ALIAS !) FILL0C : WORD;  "SET FORCE WRITE FLAG )' FILL0D : WORD;  "CREATE IPC CHANNEL '' FILL0E : WORD;  "DELETE IPC CHANNEL '. FILL0F : WORD;  "MODIFY SECURITY ATTRIBUTE.$ FILL10 : WORD; "ATTACH RESOURCE$ FILL11 : WORD; "DETACH RESOURCE% FILL12 : WORD;  "ATTACH BY NUMBER %% FILL13 : WORD;  "DETACH BY NUMBER %) FILL14 : WORD;  "MODIFY TEMPORARY BIT )+ FILL15 : WORD;  "RELEASE IN ANOTHER JOB +$ FILL16 : WORD; "ASSIGN LUNO >FF$# FILL17 : WORD; "PURGE FDB TREE #% FILL18 : WORD;  "TABLE TERMINATOR % (*$ RESUME LIST *)+N( (`R)l+N( (`p) .S$BTLF03+T+N)0 )8`h)l+N)B )8```+N)V )^` )l+N@+N:``+)t )|`)l+NOSP PF |3zJ(*$ NO LIST *)?"************************************************************ ?"** 1 "* OPERATING SYSTEM PARMS  (OSP) 04/02/82 * 1"** ?"************************************************************ ? OSP = PACKED RECORD * OSPOFF : BYTE;  "OFFSET INTO STRUCTURE*( OSPLEN : BYTE;  "LENGTH OF PARAMETER( (*$ RESUME LIST *)AFNAMEb$=bb0c cb| b`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LOSE PFd3zL(*$ NO LIST *)?"************************************************************ ?"** 1"* OWNED SEGMENT ENTRY  (OSE) 09/23/81 * 1"** "* LOCATION: JCA* ?"************************************************************ ??"* THE OSE DESCRIBES A SEGMENT WHICH IS EXCLUSIVELY USED BY A ?$"* TASK. IT IS LINKED TO THE TSB.$ OSE = PACKED RECORD 7 OSEOSE : @OSE ;"LINK TO NEXT OWNED SEGMENT ENTRY 73 OSESSB : @SSB ;"SSB ADDRESS OF OWNED SEGMENT 37 OSESMT : @SSB ;"SSB ADDRESS OF SEGMGR TABLE AREA 7END; (*$ RESUME LIST *)Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LFMQHDR PF2ٴzN(*$ NO LIST *) FMQUE : PACKED RECORD FMQ: WORD;  : @IRB ; , FILL00 : PACKED ARRAY [ 1.. 2 ] OF BYTE; , : @TSB ;  FILL01 : WORD; , FILL02 : PACKED ARRAY [ 1.. 2 ] OF BYTE; , FILL03 : WORD;  FILL04 : WORD;  FILL05 : WORD;  : @IRB ; , FILL06 : PACKED ARRAY [ 1.. 2 ] OF BYTE; , : @TSB ;  FILL07 : WORD; , FILL08 : PACKED ARRAY [ 1.. 2 ] OF BYTE; , FILL09 : WORD;  FILL0A : WORD;  FILL0B : WORD;  : @IRB ; , FILL0C : PACKED ARRAY [ 1.. 2 ] OF BYTE; , : @TSB ;  FILL0D : WORD; , FILL0E : PACKED ARRAY [ 1.. 2 ] OF BYTE; , FILL0F : WORD;  FILL10 : WORD; END; (*$ RESUME LIST *)bSCUCONS F2ٷzO(*$ NO LIST *);L$"***********************************************************************L" A<"  CONSTANTS USED BY CONFIGURATION UTILITY 12/04/81 <" AL$"***********************************************************************L4 ILL_WP = #00C0; "ADDRESS OF ILLEGAL INT. WP!4 ONLINE = 0;9 OFFLINE= 1;9 DIAGNOSTIC = 2;9 SPOOLER= 3;9. LGRCRT = #63; "INSTALLED ID OF LGRCRT#."-------------; " OPCODE EQUATES 9"-------------;$ START = 0; "INITIATE SESSION&$, LDC = 1;  "LIST DEVICE CONFIGURATION !,, RDP = 2;  "REQUEST DEVICE PARAMETERS !,MD = 3;  "MODIFY DEVICE 'AD = 4;  "ADD DEVICE)DD = 5;  "DELETE DEVICE '$ SCC = 6; "SHOW COUNTRY CODE %$& MCC = 7; "MODIFY COUNTRY CODE $&2RSTS = 8;  "REQUEST SYSTEM TABLE AREA SIZES 20MSTS = 9;  "MODIFY SYSTEM TABLE AREA SIZE 0(RISL = 10; "REQUEST ISL PARAMETERS#(. ISL = 11;  "MODIFY SYSTEM LOG PARAMETERS .QUIT = 12;  "QUIT SESSION(0RSP1 = 13;  "%%REQUEST SYSTEM PARAMETERS - 1 00RSP2 = 14;  "REQUEST SYSTEM PARAMETERS - 2 00RSP3 = 15;  "REQUEST SYSTEM PARAMETERS - 3 0.MSP1 = 16;  "MODIFY SYSTEM PARAMETERS - 1 ..MSP2 = 17;  "MODIFY SYSTEM PARAMETERS - 2 ..MSP3 = 18;  "MODIFY SYSTEM PARAMETERS - 3 .& MDS = 19; "MODIFY DEVICE STATE $&0RSP4 = 20;  "REQUEST SYSTEM PARAMETERS - 4 0.MSP4 = 21;  "MODIFY SYSTEM PARAMETERS - 4 .@MAX_OPCODE = 21;8"-------------; " ERROR MESSAGE NUMBERS6"-------------;8 NOT_ALLOWED=#90C8;  "COMMAND ONLY ALLOWED DURING 8 "SESSION (: NOT_RUNNING=#90C7;  "COMMAND NOT ALLOWED ON RUNNING: "SYSTEM): NO_DEVICE=#90C9;  "THE DESIRED DEVICE DOESN'T EXIST:0 NO_DSR=#90CA;  "CAN'T ASSIGN TO DSR OBJECT!06 BAD_TYPE=#90C1;  "ATTEMPT TO ADD UNKNOWN DEVICE 6  "TYPE* 6 LUNOS=#90C4;  "CAN'T DELETE DEVICE WITH LUNO'S 6 "ASSIGNED(8 INSTALLED=#90C3;  "CAN'T DELETE INSTALLED VOLUME 86 NO_PDT=#90C2;  "CAN'T FIND PDT FOR KNOWN DEVICE 64 NO_OVERLAY=#90C5;  "CAN'T INSTALL DSR OVERLAY !48 NO_SHARE=#90C6;  "SUCH DEVICES CANNOT SHARE INT'S 82 NO_STA=#90CE;  "CAN'T GET SYSTEM TABLE AREA 2: CARD_ELSEWHERE=#90CD; "EXP. CARD IS ALREADY DEFINED :$ " AT ANOTHER INTERRUPT LEVEL $: NOT_CHASSIS=#90CF;  "EXP. CHASSIS CANNOT SHARE INT : " WITH OTHER DEVICES #4 CANT_ADD=#90CC;  "CAN'T ADD NEW DEVICE TYPE TO 4 " RUNNING SYSTEM %: WRONG_CARD=#90CB;  "CHASSIS IS BEING DEFINED AT INT.: " LEVEL FOR WRONG CARD "4 INV_LOG=#905A;  "SYSTEM LOG DEVICE SPECIFIED 4 " IS INVALID.'2 INV_ATTN=#9059;  "ATTENTION DEVICE SPECIFIED!2 " IS INVALID.'& UNKNOWN=#90F8;  "UNKNOWN OPCODE'&0 NO_RAW=#90A6;  "READ AFTER WRITE NOT VALID!02 LOG_ERROR=#924B; "ERROR CREATING LOG FILES"2 CANT_BID=#924C;  "ERROR BIDDING LGRCRT$: SECONDARY=#924D;  "CAN'T CHANGE A SECONDARY DEVICE :6 BAD_CRU=#924E;  "DUP CRU/TILINE ADDRESS DEFINED62 NOT_MUX=#924F;  "MUX CARDS CANNOT SHARE INT!2 " WITH OTHER DEVICES #2 DUP_CHANNEL=#90CC;  "CHANNEL ALREADY EXISTS#2"------------ ;"" PARMS LIST POSITION NUMBERS3""------------ ;  OP = 3;= B NAME_OF_SYSTEM = 4;7 DEVNAME= 4 ; 7 CRUADDR= 5 ; 7 INTLEVEL = 6 ; 7 CHASNUMBER = 7 ; 7 INTPOSITION= 8 ; 7 TYPE_TO_ADD= 9 ; 7 NUM_OF_DRIVES= 10; 7 NO_VTS = 10; 7 PRINT_MODE = 11; 7 PRINT_WIDTH= 12; 7 LP_TIME_OUT= 12; 7 EXTENDED = 13; 7 TIME_OUT = 14; 7 D@ OPENS= 15; 7 CHAR_QUEUE = 16; 7 CASS_TIMEOUT = 17; 7 CASS_OPENS = 18; 7 DEF_REC_SIZE = 19; 7 KSR_TYPE = 20; 7 INTERFACE= 21; 7 SWITCHED = 22; 7 BAUD = 23; 7 ACU= 24; 7 ACU_CRU= 25; 7 ECHO = 26; 7 FULL_DUPLEX= 27; 7 PRINTER= 28; 7 FIFO = 29; 7 CDT_NUM= 30; 7 CDE_MASK = 31; 7 CHAN_NUM = 32; 7B LFILE = 4; ;B MAX_JCA = 4; : STASIZE = 5; : SMTSIZE = 6; : FMTSIZE = 7; : BTASIZE = 8; : SYS_JCA = 9; :B COUNTRY_CODE = 4;8B ABORT_PARM = 4;9B STATE= 5;: JISCII = 6;: DISK_RAW = 7;: PBM_RAW= 8;:"------------ ; " USES FOR SYNONYMS8"------------ ; $$DEVNAME = 1; 8 $$CRU = 2; 8 $$EXTENDED = 7; 8 $$INT = 3; 8 $$CHAS  = 4; 8 $$POS = 5; 8 $$MODE  = 6; 8 $$QUEUE = 6; 8 $$DRIVES  = 6; 8 $$NOVTS = 6; 8 $$DEFAULT = 7; 8 $$INTERFACE = 7; 8 $$SWITCHED = 8; 8 $$BAUD  = 9; 8 $$FIFO  = 10;8 $$ACU = 10;8 $$CHANNEL = 10;8 $$ACRU  = 11;8 $$PRINTER = 11;8 $$MODEM = 13;8 $$ECHO  = 12;8 $$LP_TIMEOUT= 12;8 $$TYPE  = 14;8 $$CDT = 15;8 $$CDE = 16;8 $$TIMEOUT = 17;8" A $$STA = 1; " / $$SMT = 2;  "/ $$FMT = 3; " . $$BTA = 4;  "MST , $$BTAMAX = 7; " . $$STAMAX = 6;  "/ $$SYS_JCA = 8; " /" A  $$COUNTRY = 1;  "MCC,SCC * " A $$DSPFG1 = 1; "2 $$DSPFG2 = 2;" 1 $$UNTSLC = 3; "1 $$ENDLMT = 4; " 0 $$MEMTIC = 5;  "0 $$JCA= 6; " / $$INTPRI = 1; " . $$JPRMOD = 2;  ". $$DYNMOD = 3; " - $$AGEIND = 4;  "MSP + $$IOINDX = 5; " - $$CLMXBF = 1;  ". $$CLMXPS = 2; " . $$TLSPND = 3;  "/ $$TLEXEC = 4; " / $$TOLS24 = 5;  "0 $$LDRTDY = 6; " 0 $$JCARES = 7; "1 $$CAOVLY = 8;" 1 $$JOBLMT = 1; "2 $$JOBBLM = 2;" 2 $$MEMSIZ = 3; "3 $$SITENM = 4;" 3 $$SYSJCA = 5; "4 $$DSPYON = 7;" 4"------------ ; " OVERLAY NUMBERS9"------------ ; INIT_OVLY=#41; 9 DEV_OVLY=#42;: LDC_OVLY=#43;: ADD_OVLY=#44;: PDT_OVLY=#45;: DSR_OVLY=#46;: DEL_OVLY=#47;: MISC_OVLY=#48; 9 MSP_OVLY=#49;: AINT_OVLY=#4A; 9 NAME_OVLY=#4B; 9 PDTX1_OVLY=#4C;9 PDTX2_OVLY=#4D;9 MST_OVLY=MISC_OVLY;7 ISL_OVLY=MISC_OVLY;7 MCC_OVLY=INIT_OVLY;7 RDP_OVLY=INIT_OVLY;7 QUIT_OVLY=INIT_OVLY; 6 MDS_OVLY=#4E;: DATA_OVLY=#4F; 9 EXPANSION_OVLY=#53;7 ASYNCRONOUS_OVLY=#54;6(*$ LIST *) <3; "&PROC2 22k4`4RLQ PG^3nzQ(*$ NO LIST *)?"************************************************************ ?-"* REQUEST LIST QUEUE(RLQ) 12/01/82* -"** %"*LOCATION: SYSTEM TABLE AREA * %?"************************************************************ ?<"* THIS IS THE ENTRY OF REQUEST LIST IN FCB, FCBRLA IS THE<?"* QUEUE HEADER. FOR FILE MANAGEMENT PARALLELISM, THE REQUEST ?<"* WHICH CAN NOT ACCESS FILE IMMEDIATELY IS QUEUED TO FCB.< RLQ = PACKED RECORD ) RLQRLQ : @RLQ ; "NEXT ENTRY ADDRESS )" RLQIRB : @IRB ;"IRB ADDRESS"END; (*$ RESUME LIST *)"* OTHERWISE THE RIB IS IN ONE OF THE SVC PROCESSOR MODULES.>>"* THE RIB FOR A PARTICULAR SVC IS ACTUALLY SPECIFIED AS ONE> "* FIELD FOR RIBPRO, THEN NFER20 PG3 zS@(*$ NO LIST *) NFER20 : PACKED RECORD$ ERR20: BYTE; "IOU-LUNO BUSY$( ERR21: BYTE; "IOU-BAD DISK NAME(3 ERR22: BYTE; "IOU -LUNO PREVIOUSLY ASSIGNED 34 ERR23: BYTE; "IOU -DX10 3.3 FUTIL ERROR (KIF44 ERR24: BYTE; "IOU -INVALID EXPANSION BLK LEN42 ERR25: BYTE; "IOU -INSUFFICIENT DISC SPACE23 ERR26: BYTE; "IOU -FILE/CHAN/DEVICE ALREADY 32 ERR27: BYTE; "IOU -RESOURCE DOES NOT EXIST21 ERR28: BYTE; "RPPRCK -PROTECTION VIOLATION 1/ ERR29: BYTE; "DIOU  -ILLEGAL CDT NUMBER /4 ERR2A: BYTE; "IOU -NO FM SPECIAL AREA AVAIL.41 ERR2B: BYTE; "IOU -FUNCTION NOT SUPPORTED 17 ERR2C: BYTE; "IOU-CANNOT RELEASE PROTECTED LUN 7 ERR2D: BYTE; "IOU-BAD DEVICE NAME ERR2E: BYTE; " 3 ERR2F: BYTE; "DIOU  -DEV/VOL DOES NOT EXIST 3END; (*$ RESUME LIST *)  =@  /  ` " EE [΋$F/' #e0` "΋$FgE %g    F ! ՠ! `#΋$F/'` "g !!6! "!`H`#΋$D g'  h( !  ! PgE `#΋$Hê'!!!(!g D*'g DD gg DDD  'g DD g' gE `#΋$L! /// '` "(` "`#Ƌ!$>>XTK P G"B(3 AzT@(*$ NO LIST *)?"************************************************************ ?"** 3"* EXTENTION FOR A TERMINAL (XTK)02/12/82* 3"* WITH A KEYBOARD* "** "* LOCATION: SYSTEM AREA * ?"************************************************************ ?:"* THE XTK IS AN EXTENSION TO THE PDT USED TO DESCRIBE A:: "* DEVICE WITH A KEYBOARD.IT IS USED AS A WORK AREA BY: "* THE DSR.  XTK = PACKED RECORD 1 XTKXUF : WORD; "EXTENDED USER FLAGS FROM BRB 1. XTKFLG : PACKED RECORD  "XTK GENERAL FLAGS./ KSFHNG : BOOLEAN;  "HANG UP CONDITION ON 745 /. KSFTMS : BOOLEAN;  "TIME-OUT SWITCH FOR 745.0 KSFSCI : BOOLEAN;  "SCI ACTIVE DURING HANG UP0" KSFDCD : BOOLEAN; "DATA CARRIE"R DROP DETECTED 0 KSFSIO : BOOLEAN;  "SHIFT IN/SHIFT OUT JISCII02 KSFDIF : BOOLEAN; "DIRECT CHAR INPUT REQUESTED2FILL00 : 0.. 3; END;3 XTKSCH : BYTE; "SAVED CHAR FOR JISCII TERMINAL 30 XTKCRD : WORD; "CARRIAGE RETURN DELAY COUNT00 XTKICD %%: WORD; "INTER-CHARACTER DELAY COUNT0. XTKSSC : WORD;  "SAVED STATUS OF CASSETTES.2 XTKABT : WORD; "CODE ADDRESS TO PERFORM ABORT26 XTKTMO : WORD; "TIME-OUT COUNT FOR HANG CONDITION60 XTKPFR : WORD; "POWER FAIL FLAG/BUFFER BIAS09 EDTFL0 : PACKED RECORD "EXTENDED EDIT FLAGS - WORD 0 9FILL01 : 0.. 1; FILL02 : 0.. 1; FILL03 : 0.. 1; FILL04 : 0.. 1; FILL05 : 0.. 1; FILL06 : 0.. 1; FILL07 : 0.. 1;  FILL08 : 0 .. 1; 1 MDTCHK : BOOLEAN; "POST DATA MODIFIED ON READ 1/ EXVAL : BOOLEAN;  "EXTENDED CHAR VALIDATION /1 NULFLG : BOOLEAN; "NULL CHARACTER SUPPRESSION 1, CNBFLG : BOOLEAN;  "CONVERT NULL TO BLANK,FILL09 : 0.. 1; FILL0A : 0.. 7; END;8 EDTFL1 : PACKED RECORD "EXTENDED EDIT FLAG - WORD 18FILL0B : 0.. 1; FILL0C : 0.. 1; 3 LEFARO : BOOLEAN; "TERMINATE READ ON LEFT ARROW 3FILL0D : 0.. 1; FILL0E : 0.. 1; FILL0F : 0.. 1; FILL10 : 0.. 1; FILL11 : 0.. 1; FILL12 : 0.. 1; FILL13 : 0.. 1; FILL14 : 0.. 1; FILL15 : 0.. 1; 4 RITARO : BOOLEAN; "TERMINATE READ ON RIGHT ARROW4FILL16 : 0.. 1; FILL17 : 0.. 1; FILL18 : 0.. 1; END;END; (*$ RESUME LIST *)2EDTFL1 FLAGS 16  EXTENDED EDIT FLAG - WORD 12, BITS 1  TERMINATE READ ON ERASE FIELD ,, BITS 1  TERMINATE READ ON RIGHT FIELD ,0 FLAG LEFARO TERMINATE READ ON LEFT ARROW 0$ BITS 1  TERMINATE READ ON TAB$* BITS 1  TERMINATE READ ON UP ARROW *& BITS 1  TERMINATE READ ON SKIP && BITS 1  TERMINATE READ ON HOME &( BITS 1  TERMINATE READ ON RETURN (, BITS 1  TERMINATE READ ON ERASE INPUT ,, BITS 1  TERMINATE READ ON BLANK GRAY ,, BITS 1  TERMINATE READ ON DELETE CHAR ,, BITS 1  TERMINATE READ ON INSERT CHAR ,0 FLAG RITARO TERMINATE READ ON RIGHT ARROW 0& BITS 1  TERMINATE READ ON ENTER& BITS 1  TERMINDS PG.j3zV@(*$ NO LIST *)?"************************************************************ ?"** ;"*NAME DEFINITION SEGMENT OVERHEAD(NDS) 12/16/81* ;"** -"*LOCATION: A NAME DEFINITION SEGMENT * -?"************************************************************ ? NDS = PACKED RECORD 2 NDSHED : WORD; "1ST ENTRY ON FREE MEMORY LIST2/ NDSLNK : @BUF ; "PTR TO FREE MEMORY CHAIN /0 NDSRES : WORD; "RESERVED TABLE AREA BOUNDRY01 NDSEND : WORD; "ACTUAL ADDRESS OF END OF SEG 1) NDSUSE : WORD;  "CURRENT MEMORY USAGE ). NDSHI: WORD;  "HIGHEST MEMORY ALLOCATION./ NDSJSB : WORD; "PTR TO JSB OR SSB OF OWNER /& NDSNUL : BYTE;  "HANDY NULL STRING&( NDSOWN : BYTE;  "SEGMENT IN USE IF N( ON-ZERO . NDSSTR : @NDB ; "PTR TO ROOT OF SYN TREE.. NDSLTR : @NDB ; "PTR TO ROOT OF LGN TREE.1 NDSSDB : @SDB ;"PTR TO 1ST SDB FOR THE JOB 11 NDSSYN : @NDB ;"FIXED LINK OF SYNONYM NDBS 1. NDSLGN : @NDB ; "FIXED LINK OF NAME NDBS.- NDSTMP : WORD;  "TEMPORARY PACKET ADDRESS -END; (*$ RESUME LIST *).TEMPLATE.ATABLE.NDS).INPUT03T.DP.TEMPLATE.ATABLE.NDSLSE PG43_zW(*$ NO LIST *)?"************************************************************ ?"** /"* LOAD SEGMENT ENTRY (LSE) 04/04/79 * /"** "* LOCATION: JCA* ?"************************************************************ ?<"* THE LSE DESCRIBES A SEGMENT WHICH IS LOADED INTO MEMORY<@"* WHILE THIS TASK IS RUNNING, BUT MAY NOT CURRENTLY BE MAPPED@. "* IN TO THE TASK. IT IS LINKED TO THE TSB.. LSE = PACKED RECORD 6 LSELSE : @LSE ;"LINK TO NEXT LOAD SEGMENT ENTRY64 LSESSB : @SSB ;"SSB ADDRESS OF LOADED SEGMENT4. LSESMT : @SSB ; "SM TABLE AREA SSB ADDR..END; (*$ RESUME LIST *)cNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LNFER80 PG73 zY@(*$ NO LIST *) NFER80 : PACKED RECORD?"************************************************************ ?"** :"*NFER80- ERROR CONSTANTS COMMON AREA # 9 03/08/83 *:"** ?"************************************************************ ?7 ERR80: BYTE; "SVC11-INVALID PRIORITY SPECIFIED 72 ERR81: BYTE; "SVC38 -INVALID HEAD/CYLINDER28 ERR82: BYTE; "SVC20,SVC38 -DUPLICATE VOLUME NAME83 ERR83: BYTE; "SVC28 -FREED AREA NOT IN LIST 30 ERR84: BYTE; "SVC28 -LIST TABLE OVERFLOW0) ERR85: BYTE; "SVC25-BAD PRIORITY )7 ERR86: BYTE; "SVC25-BAD OBJECT LUNO ASSIGNMENT 70 ERR87: BYTE; "IOU -RESOURCE NOT ATTACHED0+ ERR88: BYTE; "SVC28-DELETE PROTECT + E2RR89: BYTE; "IOU -ATTACH NOT VALID FOR TASK21 ERR8A: BYTE; "SVC25 -TASK LENGTH TOO LONG 17 ERR8B: BYTE; "SVC27-ASSOC. TASK DOES NOT EXIST 77 ERR8C: BYTE; "SVC25-ASSOC. PROCEDURES ARE SAME 77 ERR8D: BYTE; "SVC37-NO HOLE LARGE ENOUGH IN PF 7- ERR8E: BYTE; "SVC25 -END ACTION TAKEN -7 ERR8F: BYTE; "RPROOT -UNABLE TO BID QUEUE SERVER 7END; (*$ RESUME LIST *)'  h( !  ! PgE `#΋$Hê'!!!(!g D*'g DD gg DDD  'g DD g' gE `#΋$L! /// '` "(` "`#Ƌ!$>>LNCOMM P G==2ٿzZ@ (*$NO LIST*) !> LNCOMM : RECORD(* ASSIGN LOGICAL NAME UTILITY COMMON *)>8GLOBAL_FLAG : INTEGER; "FLAG TO ADD TO NAMMGR FLAGS 82LN: STRING; (* LOGICAL NAME AS SPECIFIED*)2*STG : STRING; (* SCRATCH STRING *)*:NAME: STRING; (* STRING TO CONTAIN ONE PATHNAME *):<TNAME : STRING; (* PATHNAME AFTER SYN. RESOLUTION *)<<PATHNAMES:STRING; (* PATHNAMES AS SPECIFIED BY USER *)<8PATHNAME_COUNT : INTEGER; (* COUNT OF PATHNAMES *)80KEY_COUNT  : INTEGER; (* COUNT OF KEYS*)0: MAX_ENTRIES: LONGINT;  (* MAXIMUM ENTRIES IN DIR *):(ALLOC  : LONGINT;(* ALLOCATION *)(,IA: LONGINT;(* INITIAL ALLOCATION *),.SA: LONGINT;(* SECONDARY ALLOCATION *).LRL *: LONGINT;(* LOGICAL RECORD LENGTH*)*2PRL : LONGINT;(* PHYSICAL RECORD LENGTH *)20LBL : LONGINT;(* LOGICAL BLOCK LENGTH *)0,MNOT: LONGINT;(* MAX NO. OF TASKS *),0MNOP: LONGINT;(* MAX NO. OF PROCEDURES*)0.MNOO: LONGINT;(* MAX NO. OF OVERLAYS*).:DPRL: LONGINT;(* DEFAULT PHYSICAL RECORD LENGTH *):.MAX_SIZE: LONGINT;(* MAX SIZE FOR KIF *).$FILTYP :BYTE; (* FILE TYPE *)$:JOB_TEMP :BYTE; (* PERMANENT/JOB TEMPORARY FLAG *):8JAL  :BYTE; (* JOB ACCESS LEVEL (EW,EA,SH,RO) *)88OAP  :BYTE; (* OPEN ACCESS LEVEL (EW,EA,SH,RO)*)8.OEX  :BYTE; (* OPEN EXTEND?  VALUE*).,EXP  :BYTE; (* EXPANDABLE? VALUE*),BS :BYTE; (* BLANK SUPPRESS? VALUE*),FW :BYTE; (* FORCED WRITE? VALUE*)," '0EXISTS : PACKED ARRAY[1..NUM_OF_OPT_PARMS] 0 OF BOOLEAN; " '8PATHNAME : ARRAY[1..MAX_NUM_OF_PATHNAMES] OF STRING;8" '.PARMS  : PACKED ARRAY[0..255] OF BYTE; ." ' KDB : PACKED RECORD  LENGTH: BYTE ; RESVRD: BYTE ; MAX_SIZE: LONGINT;0 KDEF: PACKED ARRAY[1..14] OF PACKED RECORD0 FLAGS : BYTE; KL  : BYTE; SP  : INTEGER; END; END; SVCBLK : PACKED RECORD  OPCODE : BYTE ; "OPCODE"  ERRCODE: BYTE ; "ERROR CODE ",  SUB_OP : INTEGER; "SUB_OP & USER FLAGS ,,  NAMPTR : INTEGER; "PTR TO LOGICAL NAME , VALPTR : INTEGER; "PT R TO PATHNAME(VALUE)*  PRMPTR : INTEGER; "PTR TO PARMS LIST **  PNO: INTEGER; "PATHNAME NUMBER;FLAG*  RESV  : INTEGER "RESERVED  END;  END; (*$LIST*)# "DUP CRU/TILINE ADDRESS DEFINED62 NOT_MUX=#924F;  "MUX CARDS CANNOT SHARE INT!2 " WITH OTHER DEVICES #2 DUP_CHANNEL=#90CC;  "CHANNEL ALREADY EXISTS#2"------------ ;"" PARMS LIST POSITION NUMBERS3""------------ ;  OP = 3;= B NAME_OF_SYSTEM = 4;7 DEVNAME= 4 ; 7 CRUADDR= 5 ; 7 INTLEVEL = 6 ; 7 CHASNUMBER = 7 ; 7 INTPOSITION= 8 ; 7 TYPE_TO_ADD= 9 ; 7 NUM_OF_DRIVES= 10; 7 NO_VTS = 10; 7 PRINT_MODE = 11; 7 PRINT_WIDTHOISCOM P GI<v2z\%%@(*$ NO LIST *)! (*$ RESUME WARNINGS *)@"*********************************************************** @>"  OISCOM - SYSTEM OPERATOR TASK COMMON DEFINITIONS  * >" 28 MAY 1980  * @"*********************************************************** @" '<?COPY DSC.TEMPLATE.PTABLE.NFPTR;" SYSTEM POINTER COMMON <8?COPY DSC.TEMPLATE.PTABLE.NFCLKD;" CLOCK DATA COMMON8:?COPY DSC.TEMPLATE.PTABLE.NFDATA;" GLOBAL DATA COMMON :(*$ NO LIST *)!" '" 'F OISORT : ORTENTT;  " LIST HEAD FOR OPERATOR REQUEST TABLE COMMONF" '" '> OISUID : UIDENTT;  " LIST HEAD FOR USER ID TABLE COMMON >" '" '4 OISOPR : PACKED RECORD " OPERATOR DATA COMMON 4 O&PRJID : WORD;  " OPERATOR JOB ID &, OPRTSB : @TSB;  " OPERATOR TSB ADDRESS,B OPRRPT : ORTPTR; " POINTER TO REQUEST OPERATOR IS ANSWERINGB8 OPRRDP : MRBPTR; " POINTER TO MRB OF PENDING READ 8* OPRSTT : (XOI,ROM);" OPERATOR STATE*  END; " " '" '2 OISDAT : PACKED RECORD " GENERAL DATA COMMON2" '"  SVC BLOCKS " '*DLYSVC : S02;  " TIME DELAY SVC BLOCK*4CHNIRB : IRB; " OPERATOR CHANNEL I/O SVC BLOCK 4,LOGSVC : S21;  " LOG MESSAGE SVC BLOCK ," '"  BUFFERS!" '> MRDBUF : MRDBUFT; " OPERATOR CHANNEL MASTER READ BUFFER >, LOGBUF : LOGBUFT;  " LOG MESSAGE BUFFER,2 MBXMSG : STRING_REC; " MAILBOX MESSAGE BUFFER 2MBXA*DR : ADRSTR; " MAILBOX ADDRESS BUFFER *" '"  POINTERS " '6 DLYADR : ADDRESS; " POINTER TO THE DLY SVC BLOCK 64 MRDADR : ADDRESS; " POINTER TO THE CHANNEL IRB 4> LOGADR : ADDRESS; " POINTER TO THE LOG MESSAGE SVC BLOCK>>ORTADR : ORTPTR;" POINTER TO THE OPERATOR REQUEST TABLE >8UIDADR : UIDPTR;" POINTER TO THE ROM USER ID TABLE8" '" '"  DATA "" ',NXTREQ : WORD; " NEXT REQUEST ID NUMBER ,BLOMNAM : PACKED ARRAY [0..9] OF CHAR;" FILENAME FOR LOM FILES BEND;& (*$ NO WARNINGS *) (*$ RESUME LIST *)ERROR CODE ",  SUB_OP : INTEGER; "SUB_OP & USER FLAGS ,,  NAMPTR : INTEGER; "PTR TO LOGICAL NAME , VALPTR : INTEGER; "PTLPD PGR3Xz^@(*$ NO LIST *)?"************************************************************ ?"** 3"*LINE PRINTER PDT EXTENSION (LPD) 04/21/82 * 3"** "* LOCATION: SYSTEM AREA * ?"************************************************************ ??"* THE LPD IS AN EXTENSION TO THE PHYSICAL DEVICE TABLE (PDT) ?= "* FOR A LINE PRINTER.IT CONTAINS POINTERS AND FLAGS USED =6"* BY THE LINE PRINTER DEVICE SERVICE ROUTINE (DSR).6 LPD = PACKED RECORD , LPDIFF : PACKED RECORD "INTERFACE FLAGS,0 LPFIF : BOOLEAN; "INTERFACE(0<=DM; 0>EIA)03 LPFUC : BOOLEAN; "UPPERCASE ONLY (0=YES; 1=NO) 36 LPFBSY : BOOLEAN; ""RO" TERMINAL BUSY(0=NO ,1=YES)6* LPF902 : BOOLEAN;  "9902 INTERFACE FLAG* LPFEOR : B OOLEAN;  "END-OF-RECORD FLAG  FILL00 : 0..2047; END;* LPDQCC : WORD;  "QUEUE CHARACTER COUNT*( LPDQIP : WORD;  "QUEUE INPUT POINTER() LPDQOP : WORD;  "QUEUE OUTPUT POINTER )& LPDQEP : WORD;  "QUEUE END POINTER&> LPDBUF : PACKED ARRAY [ 1.. 4 ] OF BYTE; "CHARACTER BUFFER>) LPDQSZ : WORD;  "CHARACTER QUEUE SIZE )# LPDSPX : BYTE; "TRANSMIT SPEED #" LPDSPR : BYTE; "RECEIVE SPEED"END; (*$ RESUME LIST *).INPUT03T.DP.TEMPLATE.ATABLE.LPDKDR PGX h3z`@(*$ NO LIST *)="********************************************************** ="** ="* KEY INDEXED FILE KEY DESCRIPTOR RECORD(KDR)09/09/83* ="** +"* LOCATION: DISK RESIDENT STRUCTURE* +="********************************************************** =;"* THE KDR DESCRIBES THE KEYS OF A KEY INDEXED FILE.THE ;7"* FIELD AT KDROFF IS ONE OR MORE REPLICATIONS OF THE 7 "* FIELDS BEGINNING AT KDRFGS.  KDR = PACKED RECORD # KDRHKC : WORD; "HASH KEY COUNT ## KDRHKV : WORD; "HASH KEY VALUE #+ FILL00 : WORD;  "(WORD COPIED FROM KDB) +# KDRNKY : WORD; "NUMBER OF KEYS #F" KDROFF : PACKED ARRAY [ 1..56 ] OF BYTE; "SPACE FOR MAXIMUM # KEYSF, KDRCD: PACKED ARRAY [ 1.. 6 ] OF BYTE; , "CREATION DATE AND TIME USED 3 KDRSEQ : BYTE; "CONCATENATED SET SEQUENCE NUM. 3/ KDRCCT : BYTE; "TOTAL CONCAT. FILES IN SET /" KDRFGS : PACKED RECORD "FLAGS"FILL01 : 0.. 7; 3 KDRPFG : BOOLEAN; "BIT 3 SET IF PARTIAL LOGGING 32 KDR33 : BOOLEAN; "BIT 4 SET IF SEQUENTIAL KIF23 KDROFG : BOOLEAN; "BIT 5 SET IF KEY IS OPTIONAL 34 KDRSFG : BOOLEAN; "BIT 6 SET IF SEQUENTIAL CMNDS41 KDRDFG : BOOLEAN; "BIT 7 SET IF DUPLICATES OK 1END;# KDRSIZ : BYTE; "# CHARS IN KEY #) KDRO : WORD;  "KEY OFFSET IN RECORD )END; (*$ RESUME LIST *);  "LAST OPCODE USED %# KCBCOC : BYTE; "CURRENT OPCODE # ); END; (*$ RESUME LIST *) "PASSWORD6 JMRACC : PACKED ARRAYCLR PG^|3pzb@(*$ NO LIST *)?"************************************************************ ?"** 9"*CAPABILITIES LIST FILE RECORD (CLR)  01/21/83 * 9"** !"* LOCATION .S$CLF ON DISK * !"** ?"************************************************************ ?:"* THE CLR IS USED BY TASKS WHICH ADD, DELETE, OR MODIFY:="* USER IDS OR ACCESS GROUPS. IT HAS 5 VARIANTS: FIR, AGR, =B "* UDR, UDO, AND VFY. THE STRUCTURE AND PURPOSE OF EACH VARIANTB "* IS DESCRIBED BELOW."*"*;"*THIS PACKED RECORD IS USED FOR USER ID ENTRIES IN FIR ;"*UID = PACKED RECORD 5 FIRID: PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER ID 5- FIRRN: WORD;  "USER'S UDR RECORD NUMBER -END;"*<"*THIS PACKED RECORD IS USED FOR ACCESS GROUP ENTRIES IN<@"*USER DESCRIPTOR RECORDS (UDR) AND USER DESCRIPTOR OVERFLOW@"*RECORDS (UDO)."*AGE = PACKED RECORD / AGERN: WORD; "ACCESS GROUP RECORD NUMBER /4 AGEOFF : BYTE; "OFFSET INTO ACCESS GROUP RECORD45 AGEFLG : PACKED RECORD  "ACCESS GROUP ENTRY FLAGS 5: AGELDR : BOOLEAN; "TRUE=USER IS LEADER OF ACCESS GROUP:6 AGEFCG : BOOLEAN; "TRUE=FILE CREATION ACCESS GROUP6FILL00 : 0..63; END;END;"*:"*THIS PACKED RECORD IS USED FOR ACCESS GROUP NAMES IN: "* ACCESS GROUP RECORDS (AGR) "*AGN = PACKED RECORD ? AGNNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "ACCESS GROUP NAME ? AGNRSV : WORD; "RESERVED  @END;"*CLR = PACKED RECORD "*"*CASE INTEGER OF   1 : ( " "*#"*FILE INFORMATION RECORD (FIR) #"*<"*THIS VARIANT IS USED TO STORE USER IDs. IT CONTAINS A<="*FLAG WORD, A POINTER TO ANOTHER FIR, AND 5 UID ENTRIES. =="*EACH UID ENTRY CONTAINS A USER ID AND THE RECORD NUMBER =*"*OF ITS USER DESCRIPTOR RECORD (UDR).*"*"*/ FIRFIR : WORD; "CONTINUATION RECORD NUMBER /4 FIRRSV : PACKED RECORD  "FIR USED/AVAILABLE FLAG4, FIRFRE : BOOLEAN;  "TRUE=AVAILABLE RECORD, FILL01 : 0..32767;END;; FIRENT :PACKED ARRAY [ 1.. 5] OF UID  ; "5 UID ENTRIES ; );   2 : ( " "*%"* ACCESS GROUP NAME RECORD (AGR) %"* "*THIS / VARIANT IS USED TO STORE ACCESS GROUP NAMES. /="*IT CONTAINS A FLAG WORD, A POINTER TO THE NEXT AGR, AND =="*5 AGN ENTRIES.EACH AGN ENTRY CONTAINS AN ACCESS GROUP =&"*NAME AND A WORD OF UNUSED FLAGS.&"*/ AGRAGR : WORD; "CONTINUATION RECORD NUMBER /4 AGRRSV : PACKED RECORD  "AGR USED/AVAILABLE FLAG4, AGRFRE : BOOLEAN;  "TRUE=AVAILABLE RECORD, FILL02 : 0..32767;END;; AGRAGN :PACKED ARRAY [ 1.. 5] OF AGN  ; "5 AGN ENTRIES ; );   3 : ( " "*#"* USER DESCRIPTOR RECORD (UDR) #"*B"*THIS VARIANT CONTAINS INFORMATION ASSOCIATED WITH A USER ID.BD"*THIS INFORMATION INCLUDES THE ENCRYPTED PASSCODE, DESCRIPTION,D2"*AND UP TO 5 ACCESS GROUP ENTRIES. EACH ACCE2SS GROUP ENTRY>"*CONTAINS A RECORD NUMBER OF AN ACCESS GROUP RECORD (AGR)>="*AND THE OFFSET INTO THE AGR FOR AN ACCESS GROUP NAME OF =""*WHICH THIS USER IS A MEMBER.""*( UDRUDO : WORD;  "POINTER TO OVERFLOW(4 UDRRSV : PACKED RECORD  "UDR USED/AVAILABLE FLAG4, UDRFRE : BOOLEAN;  "TRUE=AVAILABLE RECORD, FILL03 : 0..32767;END;@ UDRPWD : PACKED ARRAY [ 1.. 8 ] OF CHAR; "ENCRYPTED PASSCODE@* UDRFLG : PACKED RECORD "UDR FLAG WORD**UDRPVL : 0..31;  "USER PRIVELEDGE LEVEL*) UDRAGC : 0..2047;  "ACCESS GROUP COUNT )END;A UDRDES : PACKED ARRAY [ 1..20 ] OF CHAR; "DESCRIPTION OF USER A%%J UDRAGE :PACKED ARRAY [ 1.. 5] OF AGE ; "5 ACCESS GROUP ENTRIES (AGE)J );  4 : ( ""*+"*USER DESCRIPTOR OVERFLOW RECORD (UDO) +"*?"*THIS VARIANT IS USED ONLY USED IN THE CASE THAT A USER IS ?>"*A MEMBER OF MORE ACCESS GROUPS THAN WILL FIT IN HIS UDR.>0"*IT CONTAINS UP TO 12 ACCESS GROUP ENTRIES.0"*( UDOUDO : WORD;  "POINTER TO NEXT UDO(4 UDORSV : PACKED RECORD  "UDO USED/AVAILABLE FLAG4+ UDOFRE : BOOLEAN;  "TRUE=AVAILABLE ENTRY + FILL04 : 0..32767;END; UDOFIL : WORD; "NOT USED K UDOAGE :PACKED ARRAY [ 1..12] OF AGE ; "12 ACCESS GROUP ENTRIES (AGE) K );   5 : ( " "*"* VERIFICATION RECORD (VFY) "*?"*THIS VARIANT IS USED BY THE SYSTEM RESTART TASK TO VERIFY ?6"* THE EXISTENCE OF .S$CLF. IT IS ALSO USED BY TAS6 KS WHICH ;"*CREATE AND MODIFY ACCESS GROUPS BECAUSE IT CONTAINS A ;/"*POINTER TO THE FIRST ACCESS GROUP RECORD. /"*; VFYNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "NAME OF S$CLF ;, VFYBLK : WORD;  "POINTER TO FIRST AGRBLK,L% VFYFIL : PACKED ARRAY [ 1..44 ] OF CHAR; "NOT USED, INITIALIZED TO BLANKL ); END; (*$ RESUME LIST *)6 REF HESRIHSR RI SIGNAL CHANGE NOTIFY ENABLE 68 REF HDSRIHSR RI SIGNAL CHANGE NOTIFY DISABLE 88 REF HESTSR HSR TSRE FUNCT. CHANGE NOTIFY ENABLE 8: REF HDSTSR HSR TSRE FUNCT. CHANGE NOTIFY DISABLE :* '0 REF HSPSPD HSR SET BAUD RATE SUBROUTINE0: REF HSPPSL HSR SET PARITY, CHAR LENGTH, STOP BITS :* '  REF H FIR PGs 3zd(*$ NO LIST *)>"***********************************************************>"* *6"* FILE INFORMATION RECORD (FIR)  11/24/82  *6"* *"* LOCATION: DISK  *>"***********************************************************>="* THE FIR IS USED BY THE TASKS WHICH ASSIGN, MODIFY, LIST, =>"* AND DELETE USER IDS. IT IS A VARIANT OF THE CAPABILITIES>2 "* LIST FILE RECORD (CLR). FOR DETAILS SEE CLR.2 (*$ RESUME LIST *)`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LDPR P Gv(`3ze@(*$ NO LIST *)>"***********************************************************>"* *6"* DUTIL DEVICE PARAMETERS  (DPR) 10/04/83  *6"* *8"*CHANGES TO THIS TEMPLATE REQUIRE CORRESPONDING *82"*CHANGES TO THE PASCAL TEMPLATE "DPRPAS". *2>"***********************************************************>>"*THE DPR TEMPLATE DESCRIBES THE DEVICE PARAMETERS MANAGED>@"*BY THE DEVICE I/O UTILITY (DUTIL). IT INCLUDES PARAMETERS@"* IN THE FOLLOWING RANGES:"*("*PARAMETER RANGE  PARAMETER USAGE(("*---------------  ---------------(,"* >01 - >5F OPERATING SYSTEM RESERVED, "* >60 - >FF NOT SUPPORTED "*:"*IN THE FIELD COMMENTS, RO INDICATES THAT A PARAMETER: IS '"*READ ONLY AND CANNOT BE MODIFIED. '"*"* SPECIAL FIELD COMMENTS: A"*DPRNAM - ONE TO EIGHT ALPHANUMERIC CHARACTERS WITH A LETTER A"* AS THE FIRST CHARACTER.A"*DPRNUM - ONE WORD NUMBER BETWEEN >0001 AND >07FF, EXCLUDING A)"* 100 THROUGH 255 (>64 THROUGH >FF). )C"*DPRTYP - LIKE THE PDTTYP FIELD. ON AN ASSIGN LUNO, THE VALUE C8"* OF THIS FIELD IS PUT INTO THE LDTTYP FIELD OF THE89"* LDT AND IS RETURNED TO THE CALL BLOCK IN THE UPPER 9%"* BYTE OF THE DATA BUFFER FIELD. %C"*DPRJOB - JSB OF THE FIRST JOB TO ASSIGN A LUNO TO A TERMINAL. C"* "* EQUATES FOR DPRFLG "*00 - ONLINE "*01 - OFFLINE"*10 - DIAGNOSTIC "*11 - SPOOLER "* EQUAT E FOR DPRDSF+"* EQUATES FOR DPRDTF - DEVICE TYPE FLAGS + (*$ RESUME LIST *)TO THE FIRST ACCESS GROUP RECORD. /"*; VFYNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "NAME OF S$CLF ;, VFYBLK : WORD;  "POINTER TO FIRST AGRBLK,L% VFYFIL : PACKED ARRAY [ 1..44 ] OF CHAR; "NOT USED, INITIALIZED TO BLANKL ); END; (*$ RESUME LIST *)6 REF HESRIHSR RI SIGNAL CHANGE NOTIFY ENABLE 68 REF HDSRIHSR RI SIGNAL CHANGE NOTIFY DISABLE 88 REF HESTSR HSR TSRE FUNCT. CHANGE NOTIFY ENABLE 8: REF HDSTSR HSR TSRE FUNCT. CHANGE NOTIFY DISABLE :* '0 REF HSPSPD HSR SET BAUD RATE SUBROUTINE0: REF HSPPSL HSR SET PARITY, CHAR LENGTH, STOP BITS :* '  REF H JDICONS PGv2zg@(*$NO LIST*)"D" THE FOLLOWING ARE USED BY INITCN TO INITIALIZE THE QTX ARRAYDB" SOME START WITH jd OTHERS WITH jdi. HISTORICAL DIFFERENCE BB" ONLY. EACH IS USED ONLY TO SAVE TIME WHEN THE JENDAT FILEBB" IS ALTERED. ALL CONSTANTS ARE IN ONE CONVENIENT LOCATION. B(jdEXBEG  = 2500;jdiPFR = 1961;jdINTRPRT  = 2094;jdKIF  = 1941;jdSIT  = 1937;jdLGD  = 1948;jdATD  = 1954;jdENT  = 1965;jdDEV  = 1971;jdXOP  = 1982;jdXOPPC  = 1989;jdXOPWP  = 1993;jdXOPOB  = 1998;jdUSR  = 2003;jdCC = 2265;jdCHS  = 2010;jdCHS1 = 2012;jdPOS  = 2017; jdCRU  =   2021; jdPMS  = 2027;jdFRE  = 2032;jdSL = 2037;jdSVAL = 2043;jdAPF  = 2048;jdCOMMON = 2052;jdCLOCK  = 2058;jdWIZ  = 2285;jdRST  = 2062;jdSTSIZ  = 2072;jdSMTA = 2076;jdFMTA = 2080;jdBTA  = 2084;jdAJL  = 2088;jdiBJL = 2353;jdCARD1  = 2125;jdCARD2  = 2127;jdTL = 2134;jdTL1  = 2136;jdTL2  = 2559;jdTLANC  = 2498;jdNODR = 2140;jdRECSIZ = 2145;jdXCESS  = 2151;jdXCESS1 = 2153;jdWIDTH  = 2161;jdPMODE  = 2165;jdXCS  = 2169;jdMULATOR  = 2174;jdTO = 2178;jdTO1   = 2180; jdTO2  = 2557;jdLPTO = 2555;jdCHARQ  = 2186;jdiTERM  = 2295;jdiBAUD  = 2320;jdiACU = 2346;jdiACUADD  = 2335;jdiECHO  = 2337;jdiDUPLEX  = 2342;jdiSWITCH  = 2330;jdiCOMTTY  = 2312;jdCASXCESS = 2192;jdCOMADR = 2067;jdCOMPRO = 2197;jdSD = 2215;jdSD1  = 2210;jdSD2  = 2220;jdSD3  = 2224;jdSD4  = 2291;jdiSDTIL = 2259;jdSTOP = 2229;jdBLD  = 2233;jdXOPCD  = 2236;jdDEVCD  = 2239;jdiVDT = 2369;jdiVDTPR = 2349;jdiVDTSP = 2375;jdiVDTINTFC  = 2359;jdBRDTYP = 2385;jdCOMSES = 2402;jdCOMACU = 2405;jdDIALTP = 2411;jdBIDOUT = 2417;jdACKOUT = 2421;jdDTAOUT = 2425;jdIDLOUT = 2429;jdTRMBID = 2435;jdRCVENQ = 2440;jdTRMENQ = 2445;jdRCVNAK = 2450;jdTRMNAK = 2455;jdRCVDTA = 2459;jdHITADD = 2463;jdPOLOUT = 2467;jdCOMSPE = 2471;jdLPINTFC  = 2380;jdSDINTFC  = 2475;jdCHNNMB = 2481;jdSECUR  = 1945;jdLPSPD  = 2487;jdVT = 2484;jdDIPCPRO  = 2254;jdCOMMTL = 2257;" '>" THE FOLLOWING IS USED BY INITCN FOR INITIALIZING QTX. >" '2" IT IS USED IN QTX ONLY TO PROVIDE AN ERROR M2 ESSAGE WHEN A USER," ATTEMPTS TO CHANGE AN OPTIONAL SVC. ," 'jdOPSVC  = 2243;(*$RESUME LIST*)  KSR_TYPE = 20; 7 INTERFACE= 21; 7 SWITCHED = 22; 7 BAUD = 23; 7 ACU= 24; 7 ACU_CRU= 25; 7 ECHO = 26; 7 FULL_DUPLEX= 27; 7 PRINTER= 28; 7 FIFO = 29; 7 CDT_NUM= 30; 7 CDE_MASK = 31; 7 CHAN_NUM = 32; 7B LFILE = 4; ;B MAX_JCA = 4; : STASIZE = 5; : SMTSIZE = 6; : FMTSIZE = 7; : BTASIZE = 8; : SYS_JCA = 9; :B COUNTRY_CODE = 4;8B ABORT_PARM = 4;9B STATE= 5;: JISCII = 6;: DISK_RAW = 7;: PBM_RAW= 8;NFSTAT P GB3zi@(*$ NO LIST *)"** 1"*TASK STATE CODES (NFSTAT)  09/20/83 * 1"** "*NOTES:* 7"*1) THIS MODULE REQUIRES NFER00 THRU NFER40 BE * 7"* COPIED ALSO. * "** 9"*2) CHANGES TO THIS MODULE REQUIRE CORRESPONDING * 99"* CHANGES IN 3 OF THE MESSAGES IN THE SVC MESSAGES * 91"* FILE. (SVC >35, SVC >07, AND SVC 0E) * 1?"************************************************************ ?>"* THE%%SE EQUATES DESCRIBE ALL THE LEGAL TASK STATE CODES AND>$"* JOB STATE CODES USED BY THE OS.$(TSTACT =0; "TASK IS ON ACTIVE LIST(+TSTWOM =0; "TASK IS WAITING ON MEMORY +.TSTJWT =0; "JOB IN A NONEXECUTABLE STATE.'TSTLIP =0; "TASK LOAD IN PROGRESS 'TSTT!RM =0; "TASK HAS TERMINATED !)TSTDLY =0; "TASK IS IN A TIME DELAY )0TSTSUS =0; "TASK UNCONDITIONALLY SUSPENDED0-TSTENX =0; "WAITING FOR TEN X PROCESSOR -"*COMPLETION(TSTSIO =0; "TASK SUSPENDED FOR I/O(-TSTSAI =0; "SUSPENDING FOR ABORTING I/O -.TSTOVL =0; "WAITING FOR OVERLAY LOAD SVC.-TSTCOA =0; "TASK AWAITING COROUTINE ACT -+TSTWIO =0; "WAITING FOR INITIATED I/O +*TSTDOR =0; "WAITING FOR DOOR TO OPEN*/TSTSBT =0; "WAITING FOR SCHD TASK BID SVC /0TSTIV =0; "WAITING FOR INSTALL VOLUME SVC0*TSTDMG =0; "WAITING FOR DISK MGR SVC*&TSTQIN =0; "AWAITING QUEUE INPUT&.TSTIT =0; "WAITING FOR INSTALL TASK SVC.TSTIP =0; "WAITING  FOR INSTALL PROC SVC.TSTIO =0; "WAITING FOR INSTALL OVLY SVC.-TSTDT =0; "WAITING FOR DELETE TASK SVC --TSTDP =0; "WAITING FOR DELETE PROC SVC --TSTDO =0; "WAITING FOR DELETE OVLY SVC -,TSTBID =0; "TASK SUSPENDED FOR BID SVC,0TSTRWT =0; "WAITING FOR READ/WRITE TSK SVC0/TSTWOT =0; "WAITING FOR SYSTEM TABLE AREA /1TSTMNI =0; "WAITING FOR MAP PROG NAME TO ID 1/TSTUV =0; "WAITING FOR UNLOAD VOLUME SVC /%TSTAIO =0; "WAITING FOR ANY I/O %1TSTAPS =0; "WAITING FOR ASG PROG FILE SPACE 1.TSTINV =0; "WAITING FOR INIT NEW VOL SVC..TSTSEM =0; "TASK SUSPENDED FOR SEMAPHORE.0TSTSEG =0; "TASK AWAITING SEG MGR SERVICES0TSTEWT =0; "WAITING FOR EVENT COMPLETION*TSTNMG =0; "WAITING FOR NAME MGR SVC*-TSTJMR =0; "TASK WAITING ON JOB MGR SVC --TSTFRL =0; "WAITING FOR FORCED ROLL SVC -.TSTRCP =0; "WAITING FOR RETURN CODE PROC.?"************************************************************ ?"** "*JOB STATE CODES * "** ?"************************************************************ ?&JSTCRE =0; "JOB IS BEING CREATED&.JSTEXC =0; "JOB IS IN A EXECUTABLE STATE.JSTHLT =0; "JOB IS HALTED $JSTTRM =0; "JOB IS TERMINATING$'JSTEXP =0; "JCA IS BEING EXPANDED ' (*$ RESUME LIST *)NFEOBR - TSBIO HAS BECOME NEGATIVE:( *CSH0E0 THRU CSH0E5 RESERVED-DX10-(CSH100 EQU>0100 IOU - ENNFERD0 PGz3 ?zj@(*$ NO LIST *) NFERD0 : PACKED RECORD?"************************************************************ ?"** ;"*NFERD0- ERROR CONSTANTS COMMON AREA # 1405/06/82* ;"** ?"************************************************************ ?6 ERRD0: BYTE; "FILMGR -OP. INVALID FOR FILE TYPE67 ERRD1: BYTE; "FILMGR -SELF CONFLICTING OPEN REQ. 72 ERRD2: BYTE; "FILMGR -RECORD ALREADY LOCKED2 ERRD3: BYTE; "  ERRD4: BYTE; " 6 ERRD5: BYTE; "FILMGR -SEQ. FILE STRUCTURE ERROR6 ERRD6: BYTE; " / ERRD7: BYTE; "SVC00 -ODD BUFFER ADDRESS /7 ERRD8: BYTE; "FILMGR -ACCESS MODE DENIES REQUEST 76 ERRD9: BYTE; "FILMGR -FILE LOCATED AT FIRST REC6  ERRDA: -BYTE; "FILMGR -SEC. ALLOCATION TABLE FULL -1 ERRDB: BYTE; "FILMGR -DEFERRED WRITE ERROR 15 ERRDC: BYTE; "FILMGR -RECORD CAN'T REP OLD ONE 51 ERRDD: BYTE; "FILMGR -WRITE PROTECTED FILE 17 ERRDE: BYTE; "FILMGR -UNABLE TO FIND PRIMARY KEY 79 ERRDF: BYTE; "IOU -LUNO RESERVED FOR SYSTEM USE(FF 9END; (*$ RESUME LIST *).NFERD0).INPUT03T.DP.TEMPLATE.COMMON.NFERD0PMDATA P G53 zl@(*$ NO LIST *) PMDATA : PACKED RECORD* SEG1SB : WORD;  "SEGMENT 1 SSB ADDRESS*3 SEG1ST : WORD; "SEGMENT 1 SM TABLE SSB ADDRESS 3* SEG2SB : WORD;  "SEGMENT 2 SSB ADDRESS*3 SEG2ST : WORD; "SEGMENT 2 SM TABLE SSB ADDRESS 3* SEG3SB : WORD;  "SEGMENT 3 SSB ADDRESS*3 SEG3ST : WORD; "SEGMENT 3 SM TABLE SSB ADDRESS 3( CPYLDT : WORD;  "ADDRESS OF LDT COPY(( CPYRPB : WORD;  "ADDRESS OF RPB COPY(2 SEGID1 : WORD; "SEGMENT INSTALLED ID(2 WORDS)2 SEGID2 : WORD; " 0 ATRSG1 : WORD; "ATTRIBUTES OF 1ST ATT. SEG.00 ATRSG2 : WORD; "ATTRIBUTES OF 2ND ATT. SEG.0, ATRTSK : WORD;  "ATTRIBUTES OF TASK SEG.,1 LENSG1 : WORD; "BYTE LENGTH OF 1ST ATT. SEG. 1" LENSG2 : WORD; "BYTE LENGTH O"F 2ND ATT. SEG. - LENTSK : WORD;  "BYTE LENGTH OF TASK SEG. -. LODTSK : WORD;  "LOAD ADDRESS OF TASK SEG..2 TSKREP : WORD; "SSB REPLICATED IN MEMORY FLAG24 JCASSB : WORD; "SSB FOR JCA OF JOB FOR TASK BID44 JCASMT : WORD; "SMT FOR JCA OF JOB FOR TASK BID4. SG1BET : WORD;  "BEET ADDRESS OF SEGMENT 1.. SG2BET : WORD;  "BEET ADDRESS OF SEGMENT 2.. SG3BET : WORD;  "BEET ADDRESS OF SEGMENT 3.3 LODFLG : WORD; "FLAG FOR LOADED/NOT LOADED SEG 3+ ROLDIR : WORD;  "ROLL DIRECTORY POINTER +5 ROLPRS : WORD; "PHYSICAL RECORD LENGTH ROLL FILE 5( SYSFDP : WORD;  "SYSTEM PF FDP ADDR.(( SYSFMT : WORD;  "SYSTEM PF FMT ADDR.(( SYSFCB : WORD;  "SYSTEM PF FCB ADDR.( ROLFDP : WORD; "ROLL FILE  FDP ADDR. % ROLFMT : WORD;  "FMT OF ROLL FILE %% ROLFCB : WORD;  "FCB OF ROLL FILE %- APLFDP : WORD;  "APPLICATION PF FDP ADDR. -/ APLFMT : WORD; "APPLICATION PF FMT ADDRESS // APLFCB : WORD; "APPLICATION PF FCB ADDRESS /( IMGFDP : WORD;  "IMAGES PF FDP ADDR.(( IMGFMT : WORD;  "IMAGES PF FMT ADDR.(( IMGFCB : WORD;  "IMAGES PF FCB ADDR.(* SHRFDP : WORD;  "S$SHARED PF FDP ADDR.** SHRFMT : WORD;  "S$SHARED PF FMT ADDR.** SHRFCB : WORD;  "S$SHARED PF FCB ADDR.*L% TIMSPN : PACKED ARRAY [ 1.. 2 ] OF WORD; "TIME DELAY SVC FOR TASK LOADERL4 SYSPN: WORD; "PATHNAME SYSTEM UTILITY PROG FL4. SYSPNC : PACKED ARRAY [ 1.. 8 ] OF CHAR; ".2 SHRPN: WORD; "PATHNAME FOR S$SHARED PROG FL242 WOMPRI : BYTE; "PRIORITY OF TASK BEING LOADED2 FILL00 : BYTE; "RESERVED ? PMLFDP : PACKED ARRAY [ 1.. 2 ] OF WORD; "LOCAL COPY OF FDP ?END; (*$ RESUME LIST *)TSB  SERVER TSB , D4MK-RTOM"ATA $-$  SYSTEM PF FCB ADDR. )"*ROLFDP DATA $-$  ROLL FILE FDP ADDR. )*&ROLFMT DATA $-$ FMT OF ROLL FILE+&&ROLFCB DATA $-$ FCB OF ROLL FILE+&.APLFDP DATA $-$  APPLICATION PF FDP ADDR.'.0APLFMT DATA $-$  APPLICATION PF FMT ADDRESS&00APLFCB DATA $-$  APPLICATION PF FCB ADDRESS&0*IMGFDP DATA $-$  IMAGES PF FDP ADDR. )**IMGFMT DATA $-$  IMAGES PF FMT ADDR. )**IMGFCB DATA $-$  IMAGES PF FCB ADDR. )*,SHRFDP DATA $-$  S$SHARED PF FDP ADDR. (,,CCB P G03Ozm@(*$ NO LIST *)>"***********************************************************>"* *0"* CHANNEL CONTROL BLOCK (CCB) 06/09/83 *0"* *("* LOCATION: SYSTEM AREA AND JCA *(>"***********************************************************>>"* THE CCB IS THE IN-MEMORY REPRESENTATION OF A CHANNEL.IT>="* RESIDES IN SYSTEM TABLE AREA FOR GLOBAL CHANNELS, IN THE =<"* JCA FOR JOB-LOCAL OR TASK-LOCAL CHANNELS.MOST OF THIS<="* STRUCTURE IS BUILT FROM THE CHANNEL DESCRIPTOR RECORD ON = "* DISK.  CCB = PACKED RECORD ' CCBCCB : @CCB ; "NEXT CCB ADDRESS '* CCBFLG : PACKED RECORD "CHANNEL FLAGS*,CCFSC1 : 0.. 3;  "SCOPE - GLOBAL,JOB,TASK,+ CCFSHR : BOOLEAN;  "SHARED(1)/NOT SHARED +3 CCFTYP : BOOLEAN; "SYMMETRIC(1) OR MASTER/SLAVE 34 CCFASG : BOOLEAN; "OWNER DOES(1) / NOT DO ASSIGN44 CCFABT : BOOLEAN; "OWNER DOES(1) / NOT DO ABORTS45 CCFIOU : BOOLEAN; "OWNER DOES(1) / NOT DO IOU OPS 5FILL00 : 0.. 1; 7 CCFBSY : BOOLEAN; "CCB IS BUSY (IN USE BY IPC TASK) 71 CCFOOP : BOOLEAN; "OWNER TASK HAS ISSUED OPEN 17 CCFOCL : BOOLEAN; "OWNER TASK HAS CLOSED OR ABORTED 7& CCFDED : BOOLEAN; "CHANNEL IS DEAD&8 CCFRCL : BOOLEAN; "NON-SH SYMMETRIC REQUESTER CLOSED89 CCFRAB : BOOLEAN; "NON-SH SYMMETRIC REQUESTER ABORTED 9FILL01 : 0.. 3; END;* CCBTYP : BYTE;  "DEFAULT RESOURCE TYPE*( CCBTF: BYTE;  "RESOURCE TYPE FLAGS(+ CCBMXL : WORD;  "MAXIMUM MESSAGE LENGTH + CCB*ASG : BYTE;  "NUMBER OF CURRENT ASSIGNS*, CCBOPN : BYTE;  "NUMBER OF CURRENT OPENS,  CCBRPB : WORD; "RPB POINTER - CCBTSB : @TSB ; "OWNER TASK TSB ADDRESS -- CCBJSB : @JSB ; "OWNER TASK JSB ADDRESS -7 CCBPFL : BYTE; "OWNER TASK PROG FILE LUNO (DPOS/M) 7, CCBIID : BYTE;  "OWNER TASK INSTALLED ID,6 CCBFMT : @SSB ;"OWNER TASK PROGRAM FILE FDP (D)6 CCBFCB : @FSC ;%%" / CCBPBQ : @BRO ; "PENDING BRB QUEUE HEADER /9 CCBABQ : @BRO ;"ALREADY BEING PROCESSED QUEUE HEAD 9L% CCBNAM : PACKED ARRAY [ 1..50 ] OF BYTE; "CHANNEL NAME LENGTH AND NAME (LEND; (*$ RESUME LIST *)IN CREATE CHAN RCB) 04 FLAG CCFBSY CCB IS BUSY (IN USE BY IPC TASK) 4. FLAG CCFOOP OWNER TASK DIA PG03zo@(*$ NO LIST *)>"***********************************************************>"* *."* DIAGNOSTIC STATUS  (DIA) 05/16/79 *."* *"* LOCATION:JCA  *>"***********************************************************>>"* THE DIA DESCRIBES A TASK WHICH IS TERMINATING ABNORMALLY.>="* IT IS USED TO PROVIDE END ACTION STATUS TO A TASK AND TO =4"* BUILD A TERMINATION MESSAGE FOR THE SYSTEM LOG.4 DIA = PACKED RECORD $ DIAEC: BYTE; "TASK ERROR CODE$ FILL00 : BYTE; "RESERVED + DIAWP: WORD;  "TASK WORKSPACE POINTER +) DIAPC: WORD;  "TASK PROGRAM COUNTER )  DIAST: WORD; "TASK STATUS 4 DIALM1 : WORD; "END ACTION TIME LIMIT(1ST WORD)4  DIALM2 : WORD; "(SECOND WOR D)END; (*$ RESUME LIST *)0P,@,@JZ)JZJ$***** **{;{;{J#[kΉΈ·Ά΅΄΃΂΁[./1с /*//p  9/ ?@j)l *:)l `)* *:+n$ %`+n%  %`'' )>)P+N%:`+N%B``+N%N %V`%F+N%~ %V`+N% %V`+n% %`%F%z%%%+% %`+N% %`~+N% &` p+N%''  &` +N% V'+N%-' '+N& &` H+N& &` )) SLB PGR3pzt@(*$ NO LIST *)?"************************************************************ ?"** 5"* SYSTEM LOG BLOCK FORMATS (SLB)  02/08/82 * 5"** "* LOCATION: SYSTEM AREA * ?"************************************************************ ?@"*THIS TEMPLATE INCLUDES FORMATS FOR SEVERAL TYPES OF SYSTEM@="*LOG MESSAGES. EACH FORMAT INCLUDES THE SAME QUEUE LINK =@"* FIELD AND FLAGS FIELD.EACH ALSO HAS A 4 BYTE TYPE FIELD.@>"*OTHER FIELDS ARE PARTICULAR TO A TYPE OF LOG BLOCK BEING> "*BUILT.  SLB = PACKED RECORD  SLBSLB : WORD; "QUEUE LINK  SLBFLG : BYTE; "BLOCK TYPE + SLBCNT : BYTE;  "COUNT OF LOST MESSAGES +! SLBDAY : INTEGER;"BINARY DAY ! SLBHR: INTEGER;"BINARY HOUR% SLBMIN : INTEGER;"BINARY MINUTES %< SLBTYP : PACKED ARRAY [ 1.. 8 ] OF BYTE; "LOG BLOCK TYPE<CASE INTEGER OF , 1 : ( "TYPE 1 - DEVICE ERROR WITH IMAGE, SLBEC: BYTE; "ERROR CODE  SLBSTI : BYTE; "STATION ID  SLBJOB : WORD; "JOB ID & SLBIID : BYTE;  "TASK INSTALLED ID&  SLBRID : BYTE; "TASK RUN ID CASE INTEGER OF   1 : ( "  SLBLUN : BYTE; "LUNO   SLBRTY : BYTE; "RETRY COUNT 0 SLBRSF : BYTE; "RETRY SUCCESS(0)/FAILURE(1)0% SLBACT : BYTE;  "IMAGE WORD COUNT %CASE INTEGER OF   1 : ( " 9 SLBAIM :PACKED ARRAY [ 1.. 8] OF WORD; "AFTER IMAGE 9: SLBBIM :PACKED ARRAY [ 1.. 8] OF WORD; "BEFORE IMAGE: );  2 : ( "TYPE" 2 - DEVICE ERROR WITH CALL BLOC"L SLBIRB :PACKED ARRAY [ 1.. 6] OF WORD; "SPACE FOR 12 BYTES OF CALL BLKL );  ); . 2 : ( "TYPE 3 - ABNORMAL TASK TERMINATION./ SLBWP: WORD; "WORKSPACE POINTER AT ERROR /$ SLBPC: WORD; "PROGRAM COUNTER$$ SLBST: WORD; "STATUS AT ERROR$ );  ); * 2 : ( "TYPE 4 - STATISTICS FROM A DSR*) SLBRDG : WORD;  "NUMBER OF GOOD READS )* SLBWRG : WORD;  "NUMBER OF GOOD WRITES*- SLBOTG : WORD;  "NUMBER OF GOOD OTHER OPS -( SLBRDB : WORD;  "NUMBER OF BAD READS() SLBWRB : WORD;  "NUMBER OF BAD WRITES ), SLBOTB : WORD;  "NUMBER OF BAD OTHER OPS, ); / 3 : ( "TYPE 5 - USER ISSUED SYSTEM LOG SVC /" SLBLEN : BYTE; "LENGTH OF USE" R MESSAGE  FILL00 : BYTE; "RESERVED G SLBUMS : PACKED ARRAY [ 1..255 ] OF BYTE; "USER MESSAGE BEGINS HERE G ); ( 4 : ( "TYPE 6 - MEMORY CACHE ERRORS(" SLBANK : BYTE; "BANK (A OR B)"3 SLBPRA : BYTE; "ADDRESS PARITY IN BANK A (G/B) 33 SLBPRB : BYTE; "ADDRESS PARITY IN BANK B (G/B) 3/ SLBBA6 : BYTE; "BASE ADDRESS OF CONTROLLER /% SLBME6 : BYTE;  "AMOUNT OF MEMORY %- SLBEVN : BYTE;  "ERROR ON EVEN WORD (Y/N) -! SLBAD6 : WORD; "TPCS ADDRESS ! ); ) 5 : ( "TYPE 7 - MEMORY PARITY ERRORS )! SLBBIT : BYTE; "BIT IN ERROR !! SLBROW : BYTE; "ROW IN ERROR !' SLBCOR : BYTE;  "CORRECTABLE? (Y/N) '/ SLBBA7 : BYTE; "BASE ADDRESS OF CONTROLLER / SLBME7 : BYTE; "AMOUNT OF MEMORY $ SLBCTY : BYTE; "CONTROLLER TYPE$! SLBAD7 : WORD; "TPCS ADDRESS ! ); END; (*$ RESUME LIST *)HARACTER STATUS FLAGS MASKS +* (RSFFER EQUWD0008 RCV FRAMING ERROR('RSFPER EQUWD0004 RCV PARITY ERROR '"RSFOVR EQUWD0002 RCV OVERRUN" PAGE * 4*  THIS COPY MODULE DEFINES SOME WORD CONSTANTS.46*  IT IS INTENDED TO BE USED NO ONLY TO BE FOR ITS65*  CONSTANT VALUES ONLY, BUT ALSO TO DEFINE OTHER 53*  SECONDARY SYMBOLS USED FOR BIT MANIPULATION. 3*  WDF060 DATA >F060  WDC060 DATA >C060  WD8000 DATA >8000  WD4000 DATA >4000  WD3000 DATA >3000  WD2000 DATA >2000  WD1000 DATA >1000  WD0F06 DATA >0F06 DSALLLEXPG d3"zv@(*$ NO LIST *) PDX = PACKED RECORD " PDXSMB : WORD; "SAVE MAP BIAS"% PDXSMP : WORD;  "SAVE MAP POINTER % PDXFLG : BYTE; "HSR FLAGS- PDXCHN : BYTE;  "HSR CHANNEL NUMBER/FLAGS -1 PDXFCT : WORD; "HARDWARE SOFTWARE FIFO COUNT 1% PDXCP1 : WORD;  "HSR SCRATCH COPY %% PDXCP2 : WORD;  "HSR SCRATCH COPY %% PDXCP3 : WORD;  "HSR SCRATCH COPY %2 PDXCP4 : WORD; "TSR SCRATCH/SYSGEN PARAMETERS2: PDXCP5 : PACKED RECORD "TSR SCRATCH/SYSGEN PARAMETERS:/ XSFSWH : BOOLEAN;  "SWITCHED CONNECTION FLAG /)XSFSPD : 0..127; "TRANSMIT SPEED CODE )END;/ PDXP5A : PACKED RECORD  "RECEIVE SPEED CODE / XRFRS1 : BOOLEAN; "RESERVED (XRFSPD : 0..127; "RECEIVE SPEED CODE(END; PDX.CP6 : WORD; "TSR SCRATCH/SYSGEN PARAMETERS.6 PDXCP7 : WORD; "TSR JUMP TABLE @ FOR HSR ROUTINES65 PDXCP8 : WORD; "1TSR SCRATCH/SYSGEN PARAMETERS 55 PDXCP9 : WORD; "2TSR SCRATCH/SYSGEN PARAMETERS 55 PDXCPA : WORD; "3TSR SCRATCH/SYSGEN PARAMETERS 55 PDXCPB : WORD; "4TSR SCRATCH/SYSGEN PARAMETERS 55 PDXCPC : WORD; "5TSR SCRATCH/SYSGEN PARAMETERS 55 PDXCPD : WORD; "6TSR SCRATCH/SYSGEN PARAMETERS 55 PDXCPE : WORD; "7TSR SCRATCH/SYSGEN PARAMETERS 55 PDXCPF : WORD; "8TSR SCRATCH/SYSGEN PARAMETERS 5END; (*$ RESUME LIST *) (`R)l+N( (`p) .S$BTLF03+T+N)0 )8`h)l+N)B )8```+N)V )^` )l+N@+N:``+)t )|`)l+NKIL PG3%zx(*$ NO LIST *)?"************************************************************ ?"*("*KILL QUEUE ENTRY (KIL) 2/06/79("*#"* LOCATION: SYSTEM TABLE AREA #?"************************************************************ ? KIL = PACKED RECORD & KILLNK : @KIL ;"KILL QUEUE LINK& KILCDE : BYTE; "KILL CODE FILL00 : BYTE; "RESERVED 0 KILJSB : @JSB ; "PTR TO JSB OF KILLED TASK00 KILTSB : @TSB ; "PTR TO TSB OF KILLED TASK0END; (*$ RESUME LIST *)aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LCVTYPE P BYTE_ARRAY = PACKED ARRAY[0..#3FFE] OF BYTE;"buf refer >(. MSG_ARRAY= PACKED ARRAY[0..1] OF BYTE; .(* DEVICE_NAME = ARRAY[0..1] OF INT16; *(* VOLUME_NAME = ARRAY[0..3] OF INT16; *L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L" Bad ADU and 0 level definitions. Used for pathname trace 0L$"-----------------------------------------------------------------------L LEVEL_ENTRY= RECORD LEVDNM : VOLUME_NAME; LEVRFD : INT16; LEVRAD : WORD;LEVROF : WORD;END;(0 LEVEL_ARRAY= ARRAY[0..23] OF LEVEL_ENTRY; 0( BAD_ADU_REC= RECORDBGNBAD : WORD;ENDBAD : WORD;END;(6 BAD_ADU_ARRAY= ARRAY[1..MAXBDI] OF BAD_ADU_REC; 6L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L." Parameter record and array definitions.B "---------------------------------------------------------------B -------- $ PRR_REC_DEFN = PACKED RECORD $(PRRLAR : PACKED ARRAY[1..4] OF BYTE;( PRRSDN : DEVICE_NAME;  PRRDDN : DEVICE_NAME;  PRRLDN : DEVICE_NAME;  PRRSVN : VOLUME_NAME;  PRRDVN : VOLUME_NAME; PRRVER : BYTE;PRRMCP : BYTE;PRRCSF : BYTE;PRRCRR : BYTE;PRRRRN : BYTE;PRRFL1 : BYTE;END;4 PRR_ARRAY= ARRAY[1..MAXRRN] OF PRR_REC_DEFN; 4L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L." Free adu record and array definations .L$"-----------------------------------------------------------------------L FAR_REC_DEFN = PACKED RECORD "FARNFA : WORD; "# free ADUs "*FARAFA : WORD; "address of free ADUs*END;(" FAR_ARRAY = ARRAY[0..MAXFRI]"OF FAR_REC_DEFN;L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L:" IRB(SVC call block) record and array definations :L$"-----------------------------------------------------------------------L$ IRR_REC_DEFN = PACKED RECORD $.IRRSTA: INT16; "status of SVC call blk.,IRREC : INT16; "# of times of error ,*IRRIRB: IRB; "SVC call block(IRB) *END;(< IRR_ARRAY= PACKED ARRAY[1..MAXIIO*2] OF IRR_REC_DEFN;<( IRR_PTR = @IRR_REC_DEFN;L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L*" Stack record and array definitions*L$"-----------------------------------------------------------------------L$ DER_REC_DEFN = PACKED RECORD $.DERSOR : BYTE  ; "src offset for next IO..DERDOW : BYTE  ; "dst offset for next IO..DERRFB : WORD  ; "remaining FDR's in dir..DERSAR : WORD  ; "src ADU for next read ..DERDAW : WORD  ; "dst ADU for next write.END;(2 DER_ARRAY= ARRAY[1..1000] OF DER_REC_DEFN; 2L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L>" Secondary record and secondary table array definitions >L$"-----------------------------------------------------------------------L SAT_REC = PACKED RECORD ,SATSAS: WORD;  "# ADUs in allocation,.SATSAA: WORD;  "ADU adr of allocation .END;(4 SAT_TBL = PACKED ARRAY[1..MAXSTI] OF SAT_REC; 4L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LH" Input buffer allocation record, array, and pointerdefinitions HH"  The array is a circular.Additional FDR info records are tryingH" to use them <to read into an input buffer and the formatting routine <J" !is formatting the ones whose reads have finished in the order thatJD"  the reads were issued.When either of the two's BAR index, DL" "CAFBRI and CFRBRI, hit a BAR that is not ready for processing, they L," try again later with the save index.,L$"-----------------------------------------------------------------------L$ BAR_REC_DEFN = PACKED RECORD $*BARSTA: INT16; "status of this BAR* BAREOF: WORD;  "EOF flag .BARAFI: WORD;  "index of AFR using BAR..BARIAB: WORD;  "index into inp buffer .,BARIEB: WORD;  "index of word after , "allocation ,BARIRI: INT16; "index of call block ,BARCRP: @COR_REC_DEFN;  "@ to COR of out bufferEND;(4 BAR_ARRAY= ARRAY[0..MAXBAI] OF BAR_REC_DEFN; 4L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LH"  Program file record zero info about #entries and record address H:" and definition of prog file directory-entry sector :L$"-----------------------------------------------------------------------L$ PRA_REC_DEFN = PACKED RECORD $,PRAMNE: WORD;  "# of entries in pgf ,*PRARCO: WORD;  "offset to entries **PRARCA: WORD;  "rec num of entries*END;(0 PRAARR = PACKED ARRAY[1..MAXPRI] OF PRA_REC0 _DEFN; (0 PFIARR = PACKED ARRAY[0..MAXPFI] OF PFI; 0L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L6" Program file additional FDR information record6J" !NOTE that only the first three fields must match the correspondingJ"  fields in an AFR L$"-----------------------------------------------------------------------L$ APR_REC_DEFN = PACKED RECORD $"APRSTA: WORD;  "APR status "$APRTYP: WORD;  "type of file $ APRFDP: @FDR;  "@ to FDR .APRAFI: INT16; "AFR index, for img frm.,APRSPA: WORD;  "src primary alc ADU , APRSPS: WORD;  "src primar y alc size.APRSTI: INT16; "index into src sec alc.,APRSOA: WORD;  "offset for src read ,(APRSAA: WORD;  "ADU for src read(.APRSSA: INT32; "sectors in current alc..APRDRN: WORD;  "next rec num in dst pf.,APRDSL: WORD;  "secs left at end alc,*APRDSA: WORD;  "ADU for dst write *,APRDSO: WORD;  "offset for dst write,,APRPAA: WORD;  "dst primary alc ADU ,,APRPAS: WORD;  "dst primary alc size,,APRRNM: WORD;  "overhead rec in buf , APRNDE: WORD;  "#entries .APRRDE: WORD;  "begin rec for entries .(APRODE: WORD;  "offset into rec ((APRPRI: INT16; "entry type index(*APRNAA: WORD;  "dst ADU's allocated *.APRDTI: WORD;  "dst sec alc table inx .*APRDST: SAT_TBL; "dst sec alc table *CASE INTEGER OF ,1:( APRAPR: PRAARR ); "easy access to , "info in rec 0 about  "the T/P/O/hole entries&2:( APRMNT : WORD;"max # of tasks&$APRTO  : WORD;"offset into rec $(APRTR : WORD;"rec of task entries ("APRMNP : WORD;"max # of procs"$APRPO  : WORD;"offset into rec $(APRPR : WORD;"rec of proc entries ("APRMNO : WORD;"max # of ovlys"$APROO  : WORD;"offset into rec $(APROR : WORD;"rec of ovly entries ("APRMNH : WORD;"max # of holes"$APRHO  : WORD;"offset into rec $*APRHR : WORD );"rec of hole entries *END; "-----------------:------------------------------------------------------:L$"-----------------------------------------------------------------------L@" Additional FDR information record and array definitions @L$"-----------------------------------------------------------------------L$ AFR_REC_DEFN = PACKED RECORD $&AFRSTA: WORD;  "status of AFR &$AFRTYP: WORD;  "type of file $.AFRFDP: @FDR;  "FDR address in%% IO buf ..AFRODD: WORD;  "log rec len odd or evn..AFRLRI: WORD ; "index into inp buffer . "to begin formatting *AFRSLL: INT16; "src log rec length*&AFRWSL: INT16; "src #words of & "log rec moved *AFRSPL: INT16; "src phy rec length* AFRWSP: INT16; "src #words of  " phy rec moved(AFRSPS: INT16; "src phy rec slop($AFRSAS: INT16; "src ADU slop $*AFRSPM: WORD ; "src #phy rec moved*(AFRSPU: WORD ; "src #phy rec/ADU(*AFRDLL: INT16; "dst log rec length*&AFRWDL: INT16; "dst #words of & "log rec moved *AFRDPL: INT16; "dst phy rec length*&AFRWDP: INT16; "dst #words of & "phy rec moved (AFRDPS: INT16; "dst phy rec slop($AFRDAS: INT16; "dst ADU slop $*AFRDPM: WORD ; "dst #phy rec moved*(AFRDPU: WORD ; "dst #phy rec/ADU((AFRPHI: WORD;  "index of dst phy( "rec header word (AFRLHI: WORD;  "index of dst log( "rec header word &AFRLRS: WORD;  "status of dst & "log rec *AFRLRN: WORD;  "will a l rec need * "to be combined? *AFRLRC: WORD;  "combine next l rec*(AFRBSS: WORD;  "blank supperssed( "log rec status$AFRWBS: WORD;  "#words of bs $ "log rec moved *AFRBSL: WORD;  "bs log rec length **AFRPHD: WORD;  "p rec header word *.AFREOM: INT32; "# log recs in src file.,AFRBKM: INT32; "# dst phy recs moved,,AFRPAA: WORD;  "dst primary alc ADU ,,AFRPAS: WORD;  "dst primary alc #ADU,(AFRAPB: WORD;  "dst ADU/phy rec ((AFRBPA: WORD;  "dst phy rec/ADU (AFRCRP: @COR_REC_DEFN;  "@ to COR of an out bufAFRSTI&: WORD;  "index into src sec alc&.AFRSOA: WORD;  "src offset in this alc..AFRSAA: WORD;  "src ADU  in this alc..AFRSSA: INT32; "src secs in this alc..AFRDTI: WORD;  "index into dst sec alc..AFRDOA: WORD;  "dst offset in this alc..AFRDAA: WORD;  "dst ADU  in this alc..AFRDSA: INT32; "dst secs in this alc.*AFRDST: SAT_TBL; "dst sec alc table *END;(: AFR_ARRAY= PACKED ARRAY[1..MAXAFI] OF AFR_REC_DEFN;:L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L"  Buffer definition 6"---------------------------------------------------6 --------------------* BUFFER = ARRAY[0..MAXBFI] OF WORD; *L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LH"  Common(for both FDR and IO buffers) overhead record definition HL$"-----------------------------------------------------------------------L$ COR_REC_DEFN = PACKED RECORD $*CORSTA: INT16; "status of this COR**CORTYP: WORD;  "COR for FDR or IO * "buffer? .CORDOW: WORD;  "dst offset for next IO.,CORRII: INT16; "index of call block ,,CORWII: INT16; "index of call block ,,CORBPT: @BUFFER; "@ to a FDR or IO buf,CORVCP: @COR_REC_DEFN; @ "@ to COR for ver buf,CORAWB: WORD;  "#words alc in buffer,,CORDAW: WORD;  "dst ADU for next IO ,.COREC : INT16; "# of times of ver err .CASE INTEGER OF *1: ( CORRFB : WORD;"FDRs in FDR buffer*( CORFDI : WORD;"index of first file (( CORLFI : WORD );"index of last file(,2: ( CORTWB : WORD;"tot #words in buffer, CORCRP : @COR_REC_DEFN;  "@ to COR of inp buffer* CORIEB : WORD );"index following last* "allocated word in buf . 3: ( CORPFS : INT16; "prog-file buf stat .* CORAFI : INT16 );"AFR index for prog *END;L$"-----------------------------------------------------------------------L2"-----------------------------------------------2 ------------------------L(*$RESUME LIST*)"********End TYPEs************************************L that are uses in formatting a seq file 8L$"-----------------------------------------------------------------------L2 LRC_NEED_COMB= #10; "last logical rec of 2 "this src phy rec can "be combined (2 LRC_COMB_NEXT= #14; "the next log rec we 2 "see is the one to  "combine (2 LRC_COMB_NOW = #16; "combine this log rec2 "with the previous one (4 LRC_UPD_HDTR = #18; "update the header and 4 "trailer word of this "log rec ( LRC `1PMPMAP***% /; ` k4`4cDSALLREXPH @3*z|(*$ NO LIST *) FIL = PACKED RECORD . FILL00 : PACKED ARRAY [ 1..32 ] OF BYTE; "./ FILL01 : PACKED ARRAY [ 1..112 ] OF BYTE;" /. FILL02 : PACKED ARRAY [ 1..48 ] OF BYTE; ".M& FILL03 : PACKED ARRAY [ 1..1920 ] OF BYTE; "1920 BYTE SCREEN IMAGE BUFFER MEND; (*$ RESUME LIST *)kbabb bf b`8 b`7 b`7bxbbba$$FN LEAFNAMEb$=bb0c cb| b`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LRPB PH83z}(*$ NO LIST *)?"************************************************************ ?"** 3"* RESOURCE PRIVILEGE BLOCK (RPB) 08/30/83 * 3"** '"* LOCATION: SYSTEM AREA OR JCA * '?"************************************************************ ?A "* AN RPB IS BUILT FOR AN I/O RESOURCE WHEN A LUNO IS ASSIGNED. A?"* IT IS ATTACHED TO THE APPROPRIATE RESOURCE STRUCTURE: CCB, ?"* FCB, OR PDT.  RPB = PACKED RECORD ' RPBRPB : @RPB ; "LINK TO NEXT RPB '& RPBFLG : PACKED RECORD "FLAG BYTE&# RPFATT : BOOLEAN; "1 = ATTACHED #$ RPFOPN : BOOLEAN; "1 = LUNO OPEN$0 RPFFBS : BOOLEAN;  "1 = FORWARD OR BACK SPACE0FILL00 : 0.. 7; -RPFACU : 0.. 3;  "ACCESS PRIVILEGES IN USE -END;7 RPBCFI : BYTE; "CURRENT FILE INDEX (CONCAT. FILES) 7" RPBLDT : @LDT ;"LDT ADDRESS"" RPBJSB : @JSB ;"JSB ADDRESS", RPBLRN : LONGINT; "LOGICAL RECORD NUMBER,# RPBBN: LONGINT;"BLOCK NUMBER #, RPBOCB : WORD;  "OFFSET IN CURRENT BLOCK,END; (*$ RESUME LIST *)LEGED TASK43 RDFQOP : BOOLEAN; "QUEUE SERVER(0) OR PROCESSOR 32 RDFSOD : BOOLEAN; "STATIC(0) OR DYNAMIC BUFFER25 RDFDSJ : BOOLEAN; "DYNAMIC BUFFER - STA(0) OR JCA 50 RDFREV : BOOLEAN;  "REVISING A BUFFER (1=YES)0- RDFINT : BOOLEAN;  "CAN(1) OR CANNOT(0) BE -1 RDFQIJ : BOOLEAN; "QUEUE HDR IN STA(0) OR JCA 1FILL00 : 0..127;END;2 RDBSRV : WORD; "ADDRESS OF PROCESSOR ENTRY OR2 RDBRIB : @RIB ;"ADDRESSSCUCOM P H$2z@(*$ NO LIST *)!"--------------- ." CONFIGURATION UTILITY COMMON VARIABLES ."--------------- & $$ES : INTEGER; "ERROR SOURCE&$ $$CC : INTEGER; "ERROR CODE$( $$VT : STRING;  "VARIABLE TEXT (( $$MN : INTEGER; "MESSAGE NUMBER (2 $CU$RS : STRING;  "RUNNING SYSTEM SYNONYM 2> $$CA,Y,N : STRING;  "CONFIG ACTIVE SYNONYM AND VALUES>& NONE : STRING;  "NONE STRING &* VIRTUAL: STRING;  "VIRTUAL STRING ** T,F: STRING;  "TRUE/FALSE STRINGS *0 S,P: STRING;  "SERIAL/PARALLEL STRINGS 0< LGINIT : STRING;  "**** INIT. SYS. LOG. PROCESSED" << RUNNING_SYSTEM : BOOLEAN; "USING RUNNING SYSTEM FLAG <& SAVED_LUNO : BYTE;  "LUNO ASSIG& NED TO PROG. FILE 2 REINIT : BOOLEAN; "REINITIALIZE DATA BASE 2 FRSDEV : @DEVICE;  INT_TRAPS: @TRAPVECTORS;  $ ON : STRING;  "DEVICE MODES$ OFF: STRING;  DIAG : STRING;  SPLR : STRING;  $TYP : STRING; 4 $CU : ARRAY [1..17] OF STRING;"SYNONYM NAMES 42 DEV_MAP: PACKED ARRAY [1..127] OF BOOLEAN; 2. DS  : PACKED ARRAY [1..64]OF BOOLEAN; .. LP : PACKED ARRAY [1..127] OF BOOLEAN; .. CR  : PACKED ARRAY [1..32]OF BOOLEAN; .. ST : PACKED ARRAY [1..127] OF BOOLEAN; .. MT  : PACKED ARRAY [1..64]OF BOOLEAN; .. CS  : PACKED ARRAY [1..32]OF BOOLEAN; .. VT  : PACKED ARRAY [1..8] OF BOOLEAN; .(*$ LIST *) "ENDBAD : WORD;END;(6 BAD_ADU_ARRAY= ARRAY[1..MAXBDI] OF BAD_ADU_REC; 6L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------L." Parameter record and array definitions.L$"-----------------------------------------------------------------------L$ PRR%%_REC_DEFN = PACKED RECORD $(PRRLAR : PACKED ARRAY[1..4] OF BYTE;( PRRSDN : DEVICE_NAME;  PRRDDN : DEVICE_NAME;  PRRLDN : DEVICE_NAME;  PRRSVN : VOLUME_NAME;  PRRDVN : VOLUME_NAME; PRRVER : BYTE;PRRMCP : BYTE;PRRCSF : BYTE;PRRCRR : BYTE;PRRRRN : BYTE;PRRFL1 : BYTE;END;S36 PH! 3z(*$ NO LIST *)C!"**************************************************************** C"** ?"*WAIT ON MULTIPLE INITIATE I/O SVC BLOCK (S36) 07/07/80* ?"** C!"**************************************************************** CS36 = PACKED RECORD 9 S36SVC : BYTE; "WAIT ON MULTIPLE INITIATE I/O OPCODE 99 S36ERC : BYTE; "WAIT ON MULTIPLE INITIATE ERROR CODE 9END; (*$ RESUME LIST *) "TYPE 00 = TASK ID&, S31FID : BOOLEAN;  "1 = PROG NAME REQUEST,FILL00 : 0..15; 1 S31FLU : BOOLEAN; "1 = PROG FILE LUNO IS OPEN 1END;# S31UNU : BYTE; "*** UNUSED *** #7 S31TSK : PACKED ARRAY [ 1.. 8 ] OF CHAR; "TASK NAME 7# S31LUN : BYTE; "PROG FILE LUNO # S31IID : BYTE; AGERRS PH$(2z@(*$NO LIST*)"" USER ERRORS"!(*$LIST*) #6 BAD_FUNC_CODE = #906B;  " INVALID FUNCTION CODE 64 LONGPSC = #90AC;  " PASSCODE > 8 CHARACTERS 42 BAD_PASSCODE = #9301;  " INVALID PASSCODE 2: NO_GROUP  = #9302; " ACCESS GROUP DOES NOT EXIST :4 NO_USER = #90BC;  " USER ID DOES NOT EXIST 46 NO_USERID = #9308;  " CURRENT USER ID DELETED 6< OLD_RELEASE = #930A; " NOT A 1.2 OR LATER RELEASE << GROUP_EXISTS = #9310; " ACCESS GROUP ALREADY EXISTS << DELETE_SYSMGR = #9311; " ATTEMPTED TO DELETE SYSMGR <4 NEED_LEADER = #9312;  " LEADERSHIP REQUIRED 4B DELETE_SPECIAL= #9313; " ATTEMPTED TO DELETE PUBLIC/SYSMGRB( ADD_SYSMGR  = #9314; " ATTEMPTED( TO ADD SYSMGR TO GROUP F DELETE_GROUP = #9316; " ATTEMPTED TO DELETE GROUP W/ MEMBERS FB NOT_IN_GROUP = #9317; " USER IS NOT A MEMBER OF THE GROUPB8 USERS_IN_PUBL = #9319;  " ALL USERS ARE IN PUBLIC 84 NO_LEADER = #9312;  " PUBLIC HAS NO LEADER 40 LONG_UID  = #90AB;  " USER ID TOO LONG 08 LONG_AG = #9318; " ACCESS GROUP NAME TOO LONG 8D MEM_SYSMGR  = #9315; " ADDING A MEMBER OF SYSMGR TO GROUP DB MAX_GROUPS  = #931A; " MAX # OF GROUPS PER USER EXCEEDEDB ST : PACKED ARRAY [1..127] OF BOOLEAN; .. MT  : PACKED ARRAY [1..64]OF BOOLEAN; .. CS  : PACKED ARRAY [1..32]OF BOOLEAN; .. VT  : PACKED ARRAY [1..8] OF BOOLEAN; .(*$ LIST *) "BDCOMN PH* 2z@(*$ NO LIST *)!F(* R0105/04/84 - MAKE CHANGES TO ALLOW CV AND BDD REPLICATIBLE*)F( common% FABORT_RUN  : boolean;  "FLAG TO STOP A SINGLE BACKUP ON ERRORSFFADU_PER_PR : SMALLINT; "ADUs/PHYS REC FOR FILE(SAME AS FDRAPB)F.BAKADU : WORD; "1ST ADU IN BAKUP FILE . "ON[DISK]DESTINATION BBKUPADU  : WORD; " IS THE DEST DISK ADDR B@BKUPSEC  : WORD; "-OF FDR FOR THE BACKUP FILE(VCATALOG) @>BMOVED : longint;  "USED FOR DISPLAY OF "BYTES MOVED" >:TIME_BUFF  : W5; "HOLDS TIMES FROM (OP CODE 3 SVC):2CIO  : 0..1; "WHICH IS CURRENT IO BUFFER? 2>CNTIRB : IRB;  "USED FOR "INITIATED MESSAGES" TO USER > CRB  : 0..1; "WHICH READ B  UFFER IS CURRENT? H CRITICAL_SECT : boolean;  "IS BDD IN A BIT MAP CRITICAL SECTION? H0CURDIR : array[1..MAX_NEST]of LEVEL_INFO; 0HCURR_DIR_TRC : integer;  "ENTRY IN 'DIREC@' OF CURRENT PATH STUBHBCURRALOC : 0..16;  "CURRENT ALLOCATION NUMBER (0=PRIMARY) B4CURRLEAF : NAME; "LEAF OF PATHNAME CURRENTLY 4 "BEING BACKED UP >DEST_ADU : WORD; "NEXT ADU TO WRITE TO ON DEST [DISK] >DEST_IS_DISK : boolean; >DEST_SEC : WORD; "NEXT SECTOR TO WRITE ON DEST [DISK] ><DESTFDR  : FDR;  "IN MEMORY COPY OF BACKUP FILE FDR <*DEVICES  : array[SDEV..IDEV]of NAME;*:DIREC  : DPTR; "POINTER AT DIRECTORY PATH TRACE DS:*DIRECTRIES : DTRACE; "THE DIRECTORY * TRACING DATA STRUCTURE.DSTIRB : array[1..MAX_INITIATES]of IRB; .6DSTVIF : VIF;  "HOLDS VOLUME INFORMATION ABOUT 6 "DEST(DISK):DWCNT  : longint;  "COUNT OF WRITES ON DESTINATION :2EODMARK  : C4; "EOD MARKER FOR BACKUP FILE 26FDRBPTR  : FDR_PTR;  "POINTS AT THE FDR BUFFER 6BFDRBUF : FDR_BUFF; "HOLDS SOURCE FDRS SEE TYPE DECLARATIONB@FIRST_IO : 0..1; "WHICH IO BUFFER SHOULD BE WRITTEN 1ST?@BFMOVED : integer;  "USED TO DISPLAY "FILES MOVED" TO USER BDFREELEN  : longint;  "LENGTH(IN BYTES) OF UNUSED CODE SPACE D@FREESPACE  : ADDRESS;  "BEGINNING OF UN-USED CODE SPACE @:GIRB : IRB;  "SCRATCH IRB USED BY SEVERAL ROUTINES:HEADER : HREC;( "HOLDS A HEADER FOR THE BACKUP FILE(&I  : integer;  "GENERAL USEAGE&:INHIBIT  : boolean;  "STOP ENTRY INTO IO PROCESS? :@IOINDX : array[0..1]of POSINT; "WORD INDEX INTO IO BUFFERS@$IOPTR  : array[0..1]of IO_PTR;$>IOVSIZE  : POSINT; "WORD SIZE OF IO OR VERIFY BUFFERS >BLAST_COUNT : boolean;  "FLAG INDICATING FINAL SCREEN COUNTBBLAST_PR  : longint;  "NUMBER OF LAST PR TO BACKUP FOR FILEBBLASTAL : 0..16;  "ALLOCATION CONTAINING B>LASTADU  : WORD; " IS THE SOURCE DISK>BLASTSEC  : WORD; "ADDR OF WHERE PREVIOUS PHYS REC STARTED BDLASTUP : longint;  "VALUE OF DWCNT LAST TIME SCREEN UPDATED DLEAFS  : LPTR; ""POINTER AT PATH LEAF TRACE DS ":LEAVES : LTRACE; "THE LEAF TRACING DATA STRUCTURE :<LOCALSEC : S288; "GENERAL USE SECTOR LENGTH VARIABLE<(LUNOS  : array[SDEV..IDEV]of BYTE;(FNO_VALIDATE  : boolean;  "TRUE==>DON'T FORCE USER RESPONSED TOF* "BE JUSY "Y" OR "N" (ACCEPT ANYTHING)*FNXT_LEAF_TRC : array[0..1]of integer;  "NEXT SPOT IN 'LEAFS@' F($"WHERE TO READ SOURCE FILE NEXT $NXTRED : record 0 CA : 0..MAX_2NDARIES; "CURRENT ALLOCATION0D AL : array[0..MAX_2NDARIES+1]of ALLOCATION; "ALLOCATION RECORDSDend;(*NXTRED*) (>PRMPTR : PRM_PTR;  "POINTER AT ARRAY OF BID PARAMETERS>B PAINTED_SCREEN : boolean;  "HAS VDT HEADER BEEN WRITTEN YET?B>PARPTH : C8; "PATH WHERE INITIAL TASK PUTS BID "R01 > "PARAMETERS*PATHS  : array[SPATH..DPATH]of PATH;*4PR_MOVED : longint;  "NUMBER OF PHYS RECORD 4 "LAST MOVED TO IO BUFF @PR_SIZE  : WORD; "PRS FOR FILE CURRENTLY BEING BACKED UP@<PRLEFT : WORD; "AMOUNT(IN BYTES) OF CURRENT PHYS REC<* "IN A READ BUFFER WHICH IS YET TO BE * "UNBUFFERED2PTH  : PATH; "PATH OF FILE BEING BACKED UP 2.Q_HEADS  : array[1..MAX_NEST]of integer;.>REM_DESTSEC  : longint;  "NUMBER OF SECTORS REMAINING > " ON DEST DISK 8REPLY  : YESNO;  "USED TO HOLD THE PARAMETER TO 8 " ROUTINE MSGOUT 2RERUN  : SMALLINT; "CURRENT RE-RUN NUMBER 2 ROWCOL : : array [0..8]of B2; "ROW/COLUMN FOR MESSAGE DISPLAY:DRINDX  : array[0..1]of POSINT; "WORD INDEX INTO READ BUFFER D@RPTR : array[0..1]of IO_PTR; "IO AND READ BUFFS ARE SAME@4RSIZE  : POSINT; "WORD SIZE OF READ BUFFERS 4DS2ND_PASS  : boolean;  "ARE WE PERFORMING TAPE VERIFICAITON?DD SD_MSG_ISSUED : boolean;  "HAS 'SYSDSK' MSG BEEN ISSUED YET? D>SECVEC : record  "USED IN UN-BUFFERING PHYSICAL RECORDS > "AMT OF PR IN THIS SECTOR 0PRLEN : array[0..MAX_SEC_ADU]of SMALLINT; 0 "PR STARTS THIS SECTOR6PRSTART : packed array[0..MAX_SEC_ADU]of boolean; 6 "PR ENDS THIS SECTOR6PRLAST: packed array[0..MAX_SEC_ADU]of boolean; 6end;(*SECVEC*)  SEC_PER_PR 6 : POSINT; "NUMBER OF SECTORS/PHYS REC FOR FILE 6JSINGLE_FILE  : boolean;  "SPECIAL CASE FLAG FOR BACK UP OF 1 FILE JF SPANNED_VOLUME : boolean;  "DOES BACKUP CROSS VOLUME BOUNDARIES?F.SRCIRB : array[1..MAX_INITIATES]of IRB; .:SRCVIF : VIF;  "VOLUME INFORMATION FOR SOURCE DISK:8TOP_Q  : SMALLINT; "CURRENT LEVEL IN FDR BUFFER 8DTRERUN : SMALLINT; "TOTAL NUMBER OF RERUNS(TO BE PERFORMED) D>TTY_DEVICE : boolean;  "IS INTERACTIVE TERMINAL A TTY? >2U_CHAIN  : array[1..MAX_INITIATES]of U_LINK;22U_ANCHOR : 0..MAX_INITIATES; "1ST ON CHAIN 2<UCODE  : WORD; "UTILITY ERROR CODE(MESSAGES TO USER)<BUSESYS : boolean;  "WAS SYSTEM DISK INVOLVED IN ANY BAKUP?BPAF:V_WICH : -1..1;  "BUFFER CURRENTLY BEING VERIFIED :DVERIF_READY  : boolean;  "READ INTO VERIFY BUFFER COMPLETE? DVERIFY : boolean; 4VPTR : IO_PTR; "POINTER AT 1ST MAPPED ENTRY 4 "OF VERIF BUFF "VERIFY QUEUE 6V_NEXT : packed array[0..(UBVNXT-1)] of ZERONE; 6,"1ST ON QUEUE OF%% WRITE BUFFERS TO VERIFY,VNXT_1ST : 0..UBVNXT-1; ,"END OF QUEUE OF WRITE BUFFERS TO VERIFY, VNXT_LAST  : 0..UBVNXT-1;  (8VOLNUM : integer; "TO HOLD BACKUP VOLUME NUMBER 8(HWB_STRT_ADDR : array[0..1]of DISK_ADDRESS; "STRT ADDRESS OF BUFFERH.WB_TAPE_CNT  : array[0..1] of TAPE_REC; .BWRITCNT  : longint;  "SEQUENCE COUNT OF WRITES(TAPE ONLY) B(RR."DECLARE MESSAGE TEXTS(MUST BE IN COMMON) . ABRT, $ BADPTH, # BDONE,$ BEND, $ BYTLIN, # CNTLIN, # DFULL,$ DSTFDR, # DSTRED, # DSTWRT, # ENDTAP, # HEAD, $ MOUNTV, # NEXTB,$ "NOMESG, "DUMMY MESSAGE TEXT" NOSRC,$ OPENDV, # QUIT, $ READY,$ SRCRED, # SUBHDR, # SVCERR, # SYSDSK, # UTLERR, # TAPV, $ VFULL  : MSG; ( (*$ RESUME LIST *)$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LH" Input buffer allocation record, array, and pointerdefinitions H" The array LNCONS PHHs:2z@(*$NO LIST*)"" '," ASSIGN LOGICAL NAME UTILITY CONSTANTS," '&LN_PARM_NO = 3; "LOGICAL NAME &(FUNC_PARM_NO = 4; "FUNCTION CODE (4 GLOBAL_FLAG_PARM_NO = 5;  "GLOBAL NAME FLAG 4" '. AFP_PATHNAMES_PARM_NO = 6; "PATHNAME(S) .2 AFP_PERM_FILE_PARM_NO = 7; "PERMANENT FILE? 20 AFP_JAL_PARM_NO = 8;  "JOB ACCESS LEVEL 0, AFP_FILE_TYPE_PARM_NO = 9; "FILE TYPE ," '4 SEQ_LRL_PARM_NO = 10; "LOGICAL RECORD LENGTH46 SEQ_PRL_PARM_NO = 11; "PHYSICAL RECORD LENGTH 62 SEQ_IA_PARM_NO  = 12; "INITIAL ALLOCATION 24 SEQ_SA_PARM_NO  = 13; "SECONDARY ALLOCATION 4* SEQ_EXP_PARM_NO = 14;"EXPANDABLE? *& SEQ_BS_PARM_NO  = 15;"BLANK SUP& PRESS? , SEQ_FW_PARM_NO  = 16;"FORCED WRITE? ,4 SEQ_LBL_PARM_NO = 17; "LOGICAL BLOCK LENGTH 44 SEQ_OAP_PARM_NO = 18; "OPEN ACCESS PRIVILEGE4, SEQ_OEX_PARM_NO = 19;"OPEN EXTEND? ," '4 REL_LRL_PARM_NO = 10; "LOGICAL RECORD LENGTH46 REL_PRL_PARM_NO = 11; "PHYSICAL RECORD LENGTH 62 REL_IA_PARM_NO  = 12; "INITIAL ALLOCATION 24 REL_SA_PARM_NO  = 13; "SECONDARY ALLOCATION 4* REL_EXP_PARM_NO = 14;"EXPANDABLE? *, REL_FW_PARM_NO  = 15;"FORCED WRITE? ,4 REL_LBL_PARM_NO = 16; "LOGICAL BLOCK LENGTH 44 REL_OAP_PARM_NO = 17; "OPEN ACCESS PRIVILEGE4, REL_OEX_PARM_NO = 18;"OPEN EXTEND? ," '* KEY_LRL_PARM_NO = 10;"LOGICAL RECOR* D LENGTH 6 KEY_PRL_PARM_NO = 11; "PHYSICAL RECORD LENGTH 62 KEY_IA_PARM_NO  = 12; "INITIAL ALLOCATION 24 KEY_SA_PARM_NO  = 13; "SECONDARY ALLOCATION 40 KEY_MAX_SIZE_PARM_NO = 14;"MAXIMUM SIZE 00 KEY_KDEF_PARM_NO  = 15;"KEY DEFINITIONS 04 KEY_LBL_PARM_NO = 16; "LOGICAL BLOCK LENGTH 44 KEY_OAP_PARM_NO = 17; "OPEN ACCESS PRIVILEGE4, KEY_OEX_PARM_NO = 18;"OPEN EXTEND? ," '2 PRO_MNOT_PARM_NO  = 10; "MAX NO. OF TASKS 26 PRO_MNOP_PARM_NO  = 11; "MAX NO. OF PROCEDURES64 PRO_MNOO_PARM_NO  = 12; "MAX NO. OF OVERLAYS42 PRO_IA_PARM_NO  = 13; "INITIAL ALLOCATION 24 PRO_SA_PARM_NO  = 14; "SECONDARY ALLOCATION 4 PRO_EXP_PARM_NO = 15;"EXPANDABLE? 4 PRO_OAP_PARM_NO = 16; "OPEN ACCESS PRIVILEGE4" ', IMG_ALLOC_PARM_NO = 10;"ALLOCATION ,4 IMG_OAP_PARM_NO = 11; "OPEN ACCESS PRIVILEGE4" '0 DIR_MAX_ENTRIES_PARM_NO= 10; "MAX SIZE 0: DIR_DPRL_PARM_NO  = 11; "DEFAULT PHYSICAL REC LEN :4 DIR_OAP_PARM_NO = 12; "OPEN ACCESS PRIVILEGE4" '2 LLN_LAN_PARM_NO = 6;  "LISTING ACCESS NAME2" '"  PARM EXISTING FLAGS" '(PATHNAMES_PARM = 1; "PATHNAME(S) (,PERM_FILE_PARM = 2; "PERMANENT FILE? ,(JAL_PARM = 3;  "JOB ACCESS LEVEL (,LRL_PARM = 4;  "LOGICAL RECORD LENGTH,.PRL_PARM = 5;  "PHYSICAL RECORD LENGTH .*IA_PARM  = 6;  "INITIAL ALLOCATION *@,SA_PARM  = 7;  "SECONDARY ALLOCATION ,"EXP_PARM = 8; "EXPANDABLE? "&BS_PARM  = 9; "BLANK SUPPRESS? &$FW_PARM  = 10;"FORCED WRITE? $,LBL_PARM = 11; "LOGICAL BLOCK LENGTH ,,OAP_PARM = 12; "OPEN ACCESS PRIVILEGE,$OEX_PARM = 13;"OPEN EXTEND? $$ALLOC_PARM = 14;"ALLOCATION $*MNOT_PARM  = 15; "MAX NO. OF TASKS *.MNOP_PARM  = 16; "MAX NO. OF PROCEDURES.,MNOO_PARM  = 17; "MAX NO. OF OVERLAYS,&MAX_SIZE_PARM  = 18;"MAX SIZE &2DPRL_PARM  = 19; "DEFAULT PHYSICAL REC LEN 2(KDEF_PARM  = 20;"KEY DEFINITONS (8MAX_ENTRIES_PARM = 21; "MAX ENTRIES IN DIRECTORY 8" '8NUM_OF_OPT_PARMS = 21; "NUMBER OF OPTIONAL PARMS 8" '" '4 MAX_NUM_OF_PATHNAMES = 50; "MAX. NUMBER ALLOWED4" '" ERROR CODES " 'BAD_FUNCOD = #9173; BAD_FILTYP = #9174; BAD_PATHNAMES  = #9175; BAD_LRL  = #9176; BAD_PRL  = #9177; BAD_IA = #9178; BAD_SA = #9179; BAD_LBL  = #917A; BAD_MNOT = #917B; BAD_MNOP = #917C; BAD_MNOO = #917D; BAD_ALLOC  = #917E; BAD_DPRL = #917F; BAD_MAX_SIZE = #9180;  BAD_LOGICAL_NAME = #92D0;  " TOO_MANY_PATHNAMES = #9184; ""ERROR_ACCESSING_PARM = #9185; "NO_MAX_SIZE  = #9181;  BAD_MAX_ENTRIES  = #9182;  BAD_KDEF = #9183; "LOGICAL_NAME_IS_TOO_LARGE_VERY_M" UCH_LIKE_THIS_ONE = #9186;(*$LIST*) #--------------------L>" Secondary record and secondary table array definitions >L$"-----------------------------------------------------------------------L SAT_REC = PACKED RECORD ,SATSAS: WORD;  "# ADUs in allocation,.SATSAA: WORD;  "ADU adr of allocation .END;(4 SAT_TBL = PACKED ARRAY[1..MAXSTI] OF SAT_REC; 4L$"-----------------------------------------------------------------------LL$"-----------------------------------------------------------------------LH" Input buffer allocation record, array, and pointerdefinitions HH"  The array is a circular.Additional FDR info records are tryingH" to use them SPM PH]B>3z@(*$ NO LIST *)="************************************************************T=="* *B=="* SPOOLER MESSAGE FORMAT (SPM) 09/09/83 *E=="* *N=="* LOCATION: .S$DSTCHN CHANNEL COMMUNICATION TO *E=="* SPOOLER *P=="************************************************************R=;"* THE SPM TEMPLATE IS USED TO DECODE INFORMATION PASSED TO;%"* THE SPOOLER TASK FROM THE PF TASK. %SPM = PACKED RECORDE2 SPMOPC : BYTE; "DST MESSAGE OP CODE26 SPMERC : BYTE; "DST RETURNED ERROR CODE6& SPMUSR : PACKED ARRAY [ 1.. 8 ] OF &CHAR; "USER IDS6 SPMJOB : PACKED ARRAY [ 1.. 8 ] OF CHAR; "JOB NAME6% SPMJID : WORD; "JOB IDR%+ SPMFLG : PACKED RECORD "STATUS FLAGS+1 SPFUSE : BOOLEAN; "TRUE=DELETED ENTRYM1< SPFAVL : BOOLEAN; "TRUE=NOT AVAILABLE TO SPOOLER<2 SPFPGD : BOOLEAN; "TRUE=REVERSE PAGING25 SPFCON : BOOLEAN; "TRUE=CONCATENATED FILE 53 SPFSOP : BOOLEAN; "TRUE=SYSTEM OPERATORS3/ SPFANS : BOOLEAN; "TRUE=ANSI FORMATO/; SPFBNR : BOOLEAN; "TRUE=NO BANNER SHEET DESIREDT;6 SPFDAP : BOOLEAN; "TRUE=DELETE AFTER PRINT64 SPFIMM : BOOLEAN; "TRUE=HALT IMMEDIATELY49 SPFABE : BOOLEAN; "TRUE=LPWRITER TASK ABENDEDW9 SPFDVE : B)OOLEAN; "TRUE=DEVICE ERROR OCCURRED)4 SPFPFE : BOOLEAN; "TRUE=PRINT FILE ERROR4; SPFSHR : BOOLEAN; "TRUE=REMOTE OR SHARED DEVICE;: SPFDAL : BOOLEAN; "TRUE=DELETE ALWAYS (EVEN IF:8 SPFNPJ : BOOLEAN; "TRUE=NO PAGE EJECT BEFORE8 FILL00 : 0.. 1;Y END; CASE INTEGER OFT- 1 : ( "DEVICE NAME VARIANT6-@ SPMDVN : PACKED ARRAY [ 1.. 8 ] OF CHAR; "OUTPUT DEVICE NAME@ );, 2 : ( "CLASS NAME VARIANT,? SPMCLN : PACKED ARRAY [ 1.. 8 ] OF CHAR; "OUTPUT CLASS NAME0?CASE INTEGER OFP 1 : ( "? SPMULN : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER LOGICAL NAMER? );L 2 : ( " SPMODV : =PACKED ARRAY [ 1.. 8 ] OF CHAR; "OLD DEV/CLASS NAME (FOR MO)=K SPMSLN : PACKED ARRAY [ 1.. 6 ] OF CHAR; "DST LOGICAL NAME (SPOOLER ID)K: SPMFRM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "DESIRED FORM:/ SPMCPY : BYTE; "NUMBER OF COPIES/- SPMLPP : BYTE; "LINES PER PAGE -+ SPMJPR : BYTE; "JOB PRIORITY+' FILL01 : BYTE; "RESERVED'9 SPMPAG : WORD; %% "FORWARD/REVERSE PAGE COUNT9CASE INTEGER OFN* 1 : ( "PATHNAME VARIANT*: SPMPTH : PACKED ARRAY [ 1..256 ] OF BYTE; "PATHNAME(S): );, 2 : ( "DEVICE USE VARIANT,/ SPMIOC : LONGINT; "DEVICE I/O COUNT /3 SPMTIM : WORD; "TIME DEVICE WAS USED3 ); );  );SEND;(*$ RESUME LIST *)SLBSLB- DORG SLBVR1 TYPE 6 - MEMORY CACHE ERRORS -SLBANK BYTE 0 BANK (A OR B) 0SLBPRA BYTE 0 ADDRESS PARITY IN BANK A (G/B)00SLBPRB BYTE 0 ADDRESS PARITY IN BANK B (G/B)0,SLBBA6 BYTE 0  BASE ADDRESS OF CONTROLLER,"SLBME6 BYTE 0 AMOUNT OF MEMORY"*SLBEVN BYTE 0  ERROR ON EVEN WORD (Y/N)*SLBAD6 WORD 0 TPCS ADDRESSSLBSZ6 EQU$-SLBSLB. DORG SLBVR1 TYPE 7 - MEMORY PARITY ERRORS.SLBBIT BYTE 0 BIT IN ERRORSLBROW BYTE 0 ROW IN ERROR$SLBCOR BYTE 0  CORRECTABLE? (Y/N)$,SLBBA7 BYTE 0  BASE ADDRESS OF CONTROLLER,"SLBME7 BYTE 0 AMOUNT OF MEMORY"!SLBCTY BYTE 0 CONTROLLER TYPE !SLBAD7 WORD 0 TPCS ADDRESSIRB PHl3z@(*$ NO LIST *)?"************************************************************ ?"** +"* I/O REQUEST BLOCK (IRB) 09/09/83* +"** -"* LOCATION: SYSTEM TABLE AREA AND JCA* -"** ?"************************************************************ ??"* THE IRB TEMPLATE HAS FOUR MAJOR VARIANTS.ONE OF THESE IS ?<"* THE SIMPLE CALL BLOCK FOR RESOURCE INDEPENDENT I/O. ONE<9"* HAS EXTENSIONS FOR VDT DEVICES. ANOTHER IS THE CALL 9<"* BLOCK USED FOR I/O UTILITY CALLS. IT INCLUDES INTERNAL<:"* VARIANTS FOR REMOTE I/O HANDLING AND FOR LOGICAL NAME:> "* SEGMENT HANDLING.THERE IS ALSO A SET OF EQUATES USED BY>?"* THE CODE WHICH CREATES PROGRAM FILES. EQUATES FOR SPECIAL ?"* PURPOSES IN C-REATING KEY INDEXED FILES AND FOR REFERENCE -@"* TO SPECIAL APPLICATIONS OF THE BASIC I/O BLOCK ARE IMBEDDED@;"* IN THE TEMPLATE WHERE THE ORIGINAL FIELDS ARE DEFINED. ;6"* A FINAL VARIANT IS USED FOR FILE I/O CALL BLOCKS.6 "*------ ;"* NOTE THAT FOR DUPLICATE LABELS, THE PREFERRED USAGE IS ;$"* STARRED IN THE COMMENT COLUMNS.$IRB = PACKED RECORD , IRBSOC : BYTE;  "SUPERVISOR REQUEST CODE,( IRBEC: BYTE;  "*REQUEST ERROR CODE(( IRBOC: BYTE;  "*SUB-OPERATION CODE(! IRBLUN : BYTE; "LOGICAL UNIT !* IRBSFL : PACKED RECORD "*SYSTEM FLAGS* IRFBSY : BOOLEAN; "BUSY  IRFERR : BOOLEAN; "ERROR" IRFEOF : BOOLEAN; "END OF FILE"! IRFVNT : BOOLEAN; "EVENT CHAR !FILL00 : 0.. 7; 5 IRFMDT : BOOLEAN; "MODIFIED DATA TAG (OPCODE >17) 5END;3 IRBUFL : PACKED RECORD  "REQUESTOR (USER) FLAGS 3' IRFINT : BOOLEAN;  "INITIATE REQUEST '( IRFRPY : BOOLEAN;  "OUTPUT WITH REPLY(9 IRFSAR : BOOLEAN; "SECURITY ACCESS RIGHTS (OPCODE >5) 9&IRFACC : 0.. 3;  "ACCESS PRIVILEGES&# IRFLOC : BOOLEAN; "*LOCK/UNLOCK #$IRFOWN : 0.. 3; "OWNERSHIP LEVEL$END;CASE INTEGER OF , 1 : ( "RESOURCE-INDEPENDENT I/O VARIANT,) IRBDBA : WORD;  "*DATA BUFFER ADDRESS )6 IRBICC : WORD; "*INPUT CHAR COUNT / ACTUAL OUTPUT66 IRBOCC : WORD; "*OUTPUT CHAR COUNT / ACTUAL INPUT6CASE INTEGER OF  1 : ( "FILE I/O VARIANTS + IRBCBA : WORD;  "CURRENCY BLOCK ADDRESS + );   2 : ( " - IRBRN1 : LONGINT; "RELATIVE RECORD NUMBER - FILL01 : ADDRESS;"  ); # 3 : ( "DIAGNOSTIC PORT VARIANT #' IRBVRS : BYTE;  "OS VERSION/RELEASE ') IRBOLF : PACKED RECORD "ONLINE FLAGS )/ OLDBFR : BOOLEAN;  "BUFFER ADDRESS SPECIFIED /FILL02 : 0..127;END;% IRBPCD : WORD;  "DYNAMIC PASSCODE % );  4 : ( "DIRECT DISK I/O   IRBADU : WORD; "ADU ADDRESS " IRBOFF : WORD; "SECTOR OFFSET" );   5 : ( " " IRBTRK : WORD; "TRACK ADDRESS"' IRBSPR : BYTE;  "SECTORS PER RECORD ' IRBSCT : BYTE; "SECTOR  ); ! 6 : ( "SUBOPCODE >18 VARIANT !2 IRBDKS : WORD; "TPCS (R0) DISK STATUS FOR >182, IRBCRS : WORD;  "TPCS (R7) CONTROLLER ST, AT FOR >18  ); ( 7 : ( "TERMINAL DEVICE I/O VARIANTS(( IRBRPY : WORD;  "REPLY BLOCK ADDRESS(3 IRBXFL : PACKED RECORD  "EXTENDED REQUEST FLAGS 31 IRFCSF : BOOLEAN; "CURSOR START OF FIELD DEFN 1  IRFNTN : BOOLEAN; "INTENSITY 0 IRFFKR : BOOLEAN;  "BLINKING CURSOR (FLICKER)04 IRFGRA : BOOLEAN; "GRAPHICS DISPLAY(CHAR LT >20)4" IRFEBA : BOOLEAN; "8-BIT ASCII"3 IRFTER : BOOLEAN; "ENABLE TASK EDIT CHAR RETURN 3 IRFBP : BOOLEAN; "BEEP 2 IRFRDB : BOOLEAN; "RIGHT DISPLAY EDGE BOUNDARY2. IRFCIF : BOOLEAN;  "CURSOR IN-FIELD DEFINED.( IRFFC : BOOLEAN;  "FILL CHAR DEFINED(' IRFIF : BOOLEAN;  "INITIALIZE FIELD '+ IRFRFF : BOOLEAN;  "REMAIN IN FULL FIELD + IRFECO : BOOLEAN; "ECHO @* IRFVRQ : BOOLEAN;  "VALIDATION REQUIRED*) IRFVER : BOOLEAN;  "VERIFICATION ERROR )# IRFWBP : BOOLEAN; "WARNING BEEP #END;' IRBFCH : BYTE;  "VDT FILL CHARACTER '# IRBEVT : BYTE; "VDT EVENT BYTE #, IRBCRO : BYTE;  "VDT CURSOR IN FIELD ROW,/ IRBCCO : BYTE; "VDT CURSOR IN FIELD COLUMN /, IRBFRO : BYTE;  "VDT FIELD BEGINNING ROW,/ IRBFCO : BYTE; "VDT FIELD BEGINNING COLUMN / );   8 : ( " / IRBVTA : @PATH ; "VALIDATION TABLE ADDRESS / );  );  2 : ( "I/O UTILITY VARIANT " IRBTYP : BYTE; "RESOURCE TYPE"0 IRBTFL : PACKED RECORD  "RESOURCE TYPE FLAGS0FILL03 : 0.. 7; % IRFVD : BOOLEAN; "VIRTUAL DEVICE %% IRFREM : BOOLEAN; "REMOTE CHANNEL %IRFCHN : BOOLEAN; "CHANNEL IRFDEV : BOOLEAN; "DEVICE  IRFFIL : BOOLEAN; "FILE END;4 IRBJSB : WORD; "OWNER JSB ADDRESS (IOU SVC >A5)44 IRBTSB : WORD; "OWNER TSB ADDRESS (IOU SVC >A5)4; IRBKDB : ADDRESS;"KEY DESCRIPTOR ADDRESS/OVERLAYS IRBA ;$ FILL04 : WORD; "OVERLAYS IRBOFF$4 IRBFLG : PACKED RECORD  "UTILITY FLAGS (2 BYTES)4- IRFFCA : BOOLEAN;  "FILE CREATED BY ASSIGN -%IRFFU1 : 0.. 3;  "FILE USAGE FLAGS %IRFSC1 : 0.. 3; "LUNO SCOPE ( IRFGEN : BOOLEAN;  "AUTOGENERATE LUNO(. IRFACR : BOOLEAN;  "REQUEST AUTOCREATE FILE.5 IRFPRM : BOOLEAN; "1=IRBPRM VALID (PARMS PRESENT) 54 IRFLRL : BOOLEAN; "1=VALID LOGICAL RECORD LENGTH4. IRFTMP : BOOLEAN;  "FILE IS TO BE TEMPORARY.0@1 IRFIMW : BOOLEAN; "IMMEDIATE WRITE DISK FILES 1 IRFDF1 : 0.. 3; "DATA FORMAT * IRFALL : BOOLEAN;  "ALLOCATION MAY GROW*IRFFT1 : 0.. 3; "FILE TYPEEND;3 IRBDLL : WORD; "DEFINED LOGICALRECORD LENGTH 33 IRBDPL : WORD; "DEFINED PHYSICAL RECORD LENGTH 3' IRBPNA : @PATH ; "PATHNAME ADDRESS '( IRBPRM : @PATH ; "PARAMETER POINTER( IRBRES : WORD; "RESERVED 8 IRBIFA : LONGINT;"INITIAL FILE ALLOCATION (2 WORDS)8: IRBSFA : LONGINT;"SECONDARY FILE ALLOCATION (2 WORDS):CASE INTEGER OF 0 1 : ( "IOU VARIANT FOR LOGICAL NAME SEGMENT0& IRBSTG : BYTE;  "TASK STAGE NUMBER&/ IRBNMF : PACKED RECORD  "NAME MANAGER FLAGS /+ IRFRID : BOOLEAN;  "USE SPECIFIED RUN ID + IRFNM1 : ! 0..127; "RESERVED AT PRESENT !END;1 IRBRPN : WORD; "REDIRECTED RESOLVED PATHNAME 1 );  ); END; (*$ RESUME LIST *)WD0080 DATA >0080  WD0040 DATA >0040  WD0020 DATA >0020  WD0010 DATA >0010  WD000A DATA >000A  WD0008 DATA >0008  WD0006 DATA >0006  WD0004 DATA >0004  WD0002 DATA >0002  WD0001 DATA >0001  WD0000 DATA >0000   PAGE " * '"*  HSPPSL ROUTINE BIT MASKS "* '*PSLPR1 EQUWD2000 PARITY TYPE BIT 1**PSLPR0 EQUWD1000 PARITY TYPE BIT 0**PSLENP EQUWD0800 ENABLE PARITY BIT*2PSLSB1 EQUWD0080 STOP BIT SELECTION BIT 1 22PSLSB0 EQUWD0040 STOP BIT SELECTION BIT 0 2UCBPRB P H63 z@(*$ NO LIST *)D!"*****************************************************************D."*SVC INTERPRETER DESCRIPTOR BLOCK FOR  *.0"*I/O SUPERVISOR UTILITY CALL BLOCK AND  *0@"*I/O SUPERVISOR CALL BLOCK AND PRB (UCBPRB) 10/30/79 *@D!"*****************************************************************D"*="******************************************************** =;"* * WD DISPLACEMENT * SLA COUNT * FIELD BIT SIZE* ;="******************************************************** ="*"*"* FIL = PACKED RECORD " FILL00 : BYTE; "WORD 0,BYTE 0"" FILL01 : BYTE; "WORD 0,BYTE 1"" FILL02 : BYTE; "WORD 1,BYTE 0"" FILL03 : BYTE; "WORD 1,BYTE 1" FILL04 : BYTE; "WORD 2,BYTE 0! FILL05 : BYTE; "WORD 2,BIT 0 !! FILL06 : BYTE; "WORD 2,BIT 1 !! FILL07 : BYTE; "WORD 2,BIT 2 !" FILL08 : BYTE; "WORD 2,BYTE 1"! FILL09 : BYTE; "WORD 2,BIT 8 !" FILL0A : BYTE; "WORD 2,BIT 13" FILL0B : BYTE; "WORD 3  FILL0C : BYTE; "WORD 4  FILL0D : BYTE; "WORD 5  FILL0E : BYTE; "WORD 6 # FILL0F : BYTE; "WORD 6, BYTE 1 ## FILL10 : BYTE; "WORD 7, BYTE 0 ## FILL11 : BYTE; "WORD 7, BYTE 1 #" FILL12 : BY%%TE; "WORDS 6 AND 7" FILL13 : BYTE; "WORD 8 ! FILL14 : BYTE; "WORD 8,BIT 0 !( FILL15 : BYTE;  "WORD 8,BITS 1 AND 2(( FILL16 : BYTE;  "WORD 8,BITS 3 AND 4(! FILL17 : BYTE; "WORD 8,BIT 5 !! FILL18 : BYTE; "WORD 8,BIT 6 !! FILL19 : BYTE; "WORD 8,BIT 8 !! FILL1A : BYTE; "WORD 8,BIT 9 !" FILL1B : BYTE; "WORD 8, BIT 9") FILL1C : BYTE;  "WORD 8,BIT 11 AND 12 )" FILL1D : BYTE; "WORD 8,BIT 13"* FILL1E : BYTE;  "WORD 8,BITS 14 AND 15* FILL1F : BYTE; "WORD 9  FILL20 : BYTE; "WORD 10 FILL21 : BYTE; "WORD 11 FILL22 : BYTE; "WORD 12$ FILL23 : BYTE; "WORDS 14 AND 15$ FILL24 : BYTE; "WORD 15$ FILL25 : BYTE; "WORDS 16 AND 17$ (*$ RESUME LIST *)` "/(` "CI  B I /Jg!!!!D>( ( ! Dd   t "$/(` "Ę "!TYPES P H82z@(*$NO LIST*)"," UNIVERSAL TYPES UPDATED 7/10/79 , BYTE = 0..#FF;  POSINT = 0..#7FFF;  WORD = 0..#FFFF;  ADDRESS = 0..#FFFF; ADDR_PTR = @ADDRESS;  PTR= @WORD;   DOUBLE$WORD = PACKED RECORD MSW: WORD;LSW: WORD END;"( ALFA = PACKED ARRAY [1..8] OF CHAR;( PATH = PACKED RECORD CASE BOOLEAN OF  TRUE : ( LENGTH : BYTE);.FALSE: (CH: PACKED ARRAY [0..50] OF CHAR); .END;" PATHNAME = @PATH;  STRING_REC = PACKED RECORD   MAXLEN : BYTE;  LENGTH : BYTE; * CH : PACKED ARRAY [1..255] OF CHAR;*  END; "  STRING = @STRING_REC;$ LONG_STRING_REC = PACKED RECORD$ MAXLEN : INTEGER; LENGTH : INTEGER;* CH : PACKED ARRAY [1..512] OF CHAR;*  END; " $ LONGSTRING = @LONG_STRING_REC; $0 BUF1600= PACKED ARRAY [1..1600] OF CHAR ;0" '"" THE FOLLOWING ARE SCI TYPES" ACNM = STRING;  INT= LONGINT; NAME = STRING; " 'B" THE FOLLOWING ARE USEFUL FOR FILLING UNUSED FIELDS IN FLAGS B BITS1 = BOOLEAN;  BITS2 = 0..3;  BITS3 = 0..7;  BITS4 = 0..#0F; BITS5 = 0..#1F; BITS6 = 0..#3F; BITS7 = 0..#7F; BITS8 = BYTE;  BITS9 = 0..#1FF;  BITS10 = 0..#3FF; BITS11 = 0..#7FF; BITS12 = 0..#FFF; BITS13 = 0..#1FFF;  BITS14 = 0..#3FFF;  BITS15 = 0..#7FFF; (*$RESUME LIST*)   scDfdffdf[HW`SB[OR4; SPFSHR : BOOLEAN; "TRUE=REMOTE OR SHARED DEVIC' Ţk4`4" FILL1D : BYTE; "WORD 8,BIT 13"* FILL1E : BYTE;  "WORD 8,BITS 14 AND 15* FILL1F : BYTE; "WORD 9  FILL20 : BYTE; "WORD 10 FILL21 : BYTE; "WORD 11 FILL22 : BYTE; "WORD 12$ FILL23 : BYTE; "WORDS 14 AND 15$ FILL24 : BYTE; "WORD 15: PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER LOGICAL NAMEN?K SPM"k4`4! FILL19 : BYTE; "WORD 8,BIT 8 !! FILL1A : BYTE; "WORD 8,BIT 9 !" FILL1B : BYTE; "WORD 8, BIT 9") FILL1C : BYTE;  "WORD 8,BIT 11 AND 12 )" FILL1D : BYTE; "WORD 8,SCUTYPE H 2z(*$ NO LIST *)!"?COPY DSC.TEMPLATE.PTABLE.PDT ""?COPY DSC.TEMPLATE.PTABLE.DPD "$?COPY DSC.TEMPLATE.PTABLE.DSTDIB$"?COPY DSC.TEMPLATE.PTABLE.KSB ""?COPY DSC.TEMPLATE.PTABLE.XTK ""?COPY DSC.TEMPLATE.PTABLE.LPD "&?COPY DSC.TEMPLATE.PTABLE.DSALLLEX&(*$ NO LIST *)!L$"***********************************************************************L" '2" GLOBAL TYPES USED IN CONFIGURATION UTILITY 2" 'L$"***********************************************************************L" '" '" '&?COPY DSC.TEMPLATE.PTABLE.SCUTYPES&FULL_PDT =# RECORD$ FPDT : PDT;  CASE EXTENSION_TYPE OF EXTDPD : (FDPD : DPD); EXTLPD : (FLPD : LPD); EXTKSB : (FKSB : KSB;  CASE EXTENSION_TYPE OF EXTXTK : (FXTK : XTK); EXTPDX : (FPDX : PDX); EXTDIB : (FDIB : DIB);); END; (* FULL_PDT *) (*$ LIST *) " FOLLOWING ARE SCI TYPES" ACNM = STRING;  INT= LONGINT; NAME = STRING; " 'B" THE FOLLOWING ARE USEFUL FOR FILLING UNUSED FIELDS IN FLAGS B BITS1 = BOOLEAN;  BITS2 = 0..3;  BITS3 = 0..7;  BITS4 = 0..#0F; BITS5 = 0..#1F; BITS6 = 0..#3F; BITS7 = 0..#7F; BITS8 = BYTE;  BITS9 = 0..#1FF;  BITS10 = 0..#3FF; BITS11 = 0..#7FF; BITS12 = 0..#FFF; BITS13 = 0..#1FFF;  BITS14 = 0..#3FFF;  BITS15 = 0..#7FFF; OVT PH3z(*$ NO LIST *)?"************************************************************ ?"** /"* OVERLAY TABLE ENTRY  (OVT)05/10/79* /"** "* LOCATION: IN RPSDAT* ?"************************************************************ ?<"*THE SYSTEM OVERLAY TABLE (SOV) CONSISTS OF A NUMBER OF<="*OVERLAY TABLE ENTRIES (OVT). IT IS BUILT DURING SYSTEM =6"*GENERATION, BASED ON THE CHOICES REQUESTED THEN.6 OVT = PACKED RECORD 3 OVTREC : WORD; "RECORD NUMBER OF OVERLAY IMAGE 3) OVTSIZ : WORD;  "SIZE OF OVERLAY CODE )4 OVTLOD : WORD; "NATURAL LOAD ADDRESS OF OVERLAY4END; (*$ RESUME LIST *)cKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LRVSCOM P-HP2zF!"------------------COMMON FOR RECOVER VOLUME SPACE--------------- F(*$NO LIST*)"(6ALTER  : BOOLEAN;  "HAS THE VOL BEEN ALTERED6(2BIDBY  : WORD; "BID BY WHOM(RVS OR SCI) 20BITCIE : WORD; "BIT LOCATION OF KSBCIE 00BITKSB : WORD; "BIT LOCATION OF DTFKSB 00BITASG : WORD; "BIT LOCATION OF DSFOPN 00BITSYD : WORD; "BIT LOCATION OF DTFSYD 02BITSTA : WORD; "BIT LOCATION OF DFGSTA+128BMPCRA : WORD;  "CURRENT ADU REPRESENTED BY BIT80BMPCRB : WORD; "CURRENT BIT IN BIT MAP 04BMPCUR : WORD;  "ADDRESS OF CURRENT BIT MAP46BMPNUM : WORD;  "# OF BIT MAPS YET TO PROCESS6((*COR  : CRITICAL_OPERATION_RECORD; *,@CRLF : WORD;  "<0A0D>(:EMGASL : MESSAGE;  "ERROR ASSIGNING STATION LUNO::EMGAVL : MESSAGE;  "ERROR ASSIGNING VOLUMELUNO:<EMGAVS : MESSAGE;  "ERROR ALLOCATION VOLUME SPACE <8EMGBCR : MESSAGE;  "ERROR BIDDING COPY OF RVS 8:EMGCEA : MESSAGE;  "ERROR, CO_ROUTINE TAKES EAC ::EMGDVS : MESSAGE;  "ERROR RELEASING VOLUME SPACE:8EMGFBA : MESSAGE;  "ERROR, FILE BEING ACCESSED8>EMGFNI : MESSAGE;  "ERROR, FUNCTION NOT IMPLEMENTED >6EMGIMP : MESSAGE;  "ERROR, INCONSISTENT MAP 6:EMGOSL : MESSAGE;  "ERROR OPENING STATION LUNO::EMGOVL : MESSAGE;  "ERROR OPENING VOLUMELUNO:*EMGNEM : MESSAGE;  "ERROR GETTING * MEMORY .EMGNON : MESSAGE;  "UNEXPECTED ERROR .:EMGREA : MESSAGE;  "ERROR, RVS TAKES END ACTION :8EMGRVL : MESSAGE;  "ERROR READING VOLUME LUNO 8<EMGSBA : MESSAGE;  "ERROR, STATION BEING ACCESSED <6EMGSCI : MESSAGE;  "ERROR INTERFACING TO SCI66EMGSCL : MESSAGE;  "ERROR ACCESSING LISTING 66EMGSNQ : MESSAGE;  "ERROR, SYSTEM NOT QUIET 6:EMGVBA : MESSAGE;  "ERROR, VOLUME BEING ACCESSED:6EMGVNF : MESSAGE;  "ERROR, VOLUME NOT FOUND 64EMGWSL : MESSAGE;  "ERROR WRITING STATION 42EMGWVL : MESSAGE;  "ERROR WRITING VOLUME 2:EMGURT : MESSAGE;  "USER REQURESTS STOP ERR MSG :$ESR  : ERROR_STATUS_RECORD; $(D @8FAR  : FILE_ALLOCATION_RECORD; "INTERNAL FORMAT 80FDRCUR : WORD; "MEMORY ADDRESS OF FDR 06FDRFAA : WORD;  "ADU ADDRESS OF FDR IN BUFFER66FDRFSO : WORD;  "SEC OFFSETOF FDR IN BUFFER6:FDRLEV : WORD;  "COMPUTED DIRECTORY LEVEL OF FDR :.FDRNUM : WORD; "#FDRS LEFT IN MEMORY .6FMGEOT : MESSAGE;  "TERMINATION FUNCTION MSG66FMGGVS : MESSAGE;  "STATISTICSFUNCTION MSG66FMGMFL : MESSAGE;  "MERGE FILES FUNCTION MSG66FMGMFS : MESSAGE;  "MERGE FREEFUNCTION MSG64FMGSNP : MESSAGE;  "SNIPPINGFUNCTION MSG4(2GMMBEG : WORD; "BEGINNING OF FREE MEMORY2.GMMEND : WORD;  "END OF FREE MEMORY.(IRBATD : ATD"_IRB;  "ACTIVATE TIME DELAY ",IRBAVS : DM_IRB; "DISK MANAGER IRB ,,IRBBCR : BID_IRB;  "BID CO-ROUTINE ,,IRBCMD : EVT_IRB;  "GET EVENT KEYS ,(IRBDRV : IO_IRB; "IO TO DRIVE (,IRBDVS : DM_IRB; "DISK MANAGER IRB ,&IRBEOT : EOT_IRB;  "END TASK&0%%IRBETS : ETS_IRB;  "EXTEND TIME SLICE 04IRBGEA : GEA_IRB;  "GET END ACTION STATUS 4,IRBGMM : MEM_IRB;  "GET MEMORY IRB ,.IRBGSD : GSD_IRB;  "GET SYSTEM DATA ..IRBGTD : TD_IRB; "GET TIME AND DATE .(IRBPRM : PRM_IRB;  "TSB PARMS (6IRBREA : REA_IRB;  "RESET END ACTION STATUS 62IRBSLF : SLF_IRB;  "SELF_IDENTIFICATION 2"IRBSTN : IO_IRB; "IO TO ST" ATION (IRBTDL : TDL_IRB;  "TIME DELAY((IRBVOL : IO_IRB; "IO TO VOLUME(*IRBWIO : WIO_IRB;  "WAIT FOR IO *(*LCKCMD : INTEGER;  "COMMAND LOCK*4LCKERR : INTEGER;  "ERROR PROCESSING LOCK 4(LCKHNG : INTEGER;  "HANG LOCK (*LCKLST : INTEGER;  "LISTING LOCK**LCKSTN : INTEGER;  "STATION LOCK*&LCKSVC : INTEGER;  "SVC LOCK&&LCKTCA : INTEGER;  "TCA LOCK&8LDRFMG : MESSAGE;  "COMMON LEADER TO FUNC MSG 82LDRTMG : MESSAGE;  "TIME FINISHED LEADER 24LDXMAP : LONGINT;  "LONG DISTANCE MAP FILE 40LOCFBA : WORD; "LOCATION OF FILE NAME 0.LOCFMG : WORD; "LOCATION OF FUNCTION .LOCTMG : WORD; "LOCATION OF TIME 4LOCEAC : WORD;  "LOCATION OF END ACTION TXT46LOCEC  : WORD;  "LOCATION OF END ACTION CODE 64LOCWP  : WORD;  "LOCATION OF END ACTION WP 44LOCPC  : WORD;  "LOCATION OF END ACTION PC 44LOCST  : WORD;  "LOCATION OF END ACTION ST 4.LOCSCC : WORD; "LOCATION OF SCI CODE .4LOCSCA : WORD;  "LOCATION OF SCI ADDED TEXT4.LOCSVC : WORD; "LOCATION OF SVC CODE .4LOCSVA : WORD;  "LOCATION OF SVC ADDED TEXT42LOCUTC : WORD; "LOCATION OF UTILITY CODE28LOCUTA : WORD;  "LOCATION OF UTILITY ADDED TEXT84LOCTAD : WORD;  "LOCATION OF TIME AND DATE 42LOCVNM : WORD; "LOCATION OF VOLUME NAME 2 LOCLNM * : WORD; "LOCATION OF LISTING NAME*0LOCBNM : WORD; "LOCATION OF BATCH NAME 02LOCSBA : WORD; "LOCATION OF STATION NAME28LOCFBN : WORD;  "LOCATION OF FREE BLOCK NUMBER 88LOCFBS : WORD;  "LOCATION OF FREE BLOCK SPREAD 84LOCLBS : WORD;  "LOCATION OF FREE ADU SIZE 44LOCLBB : WORD;  "LOCATION OF FREE BYTE SIZE46LOCLPV : WORD;  "LOCATION OF FREE % OF VOLUME64LOCLPF : WORD;  "LOCATION OF FREE % OF FREE44LOCTBS : WORD;  "LOCATION OF FREE ADU SIZE 44LOCTBB : WORD;  "LOCATION OF FREE BYTE SIZE46LOCTPV : WORD;  "LOCATION OF FREE % OF VOLUME66LOCFFN : WORD;  "LOCATION OF FRAG FILE NUMBER6$LOCFFM : WORD;  "LOCATION OF $FRAG FILE MOST4LOCMBN : WORD;  "LOCATION OF # BLOCKS/FILES48LOCMDF : WORD;  "LOCATION OF MOVE DATA FILENAME8<LSTNAM : DEVNAME;  "FIRST 4 CHARS OF LISTING NAME <(:MAPMRG : WORD;  "MAP ENTRIES TO ALLOW BEFORE BUF :4MAPBEG : WORD;  "ABSOLUTE BEGINNING OF MAP 48MAPEND : WORD;  "FREE ENTRY OR LAST VALID ENTRY88MAPNNL : WORD;  "NUMBER OF NULL ENTRIES IN MAP 8:MDBFDR : WORD;  "ADDRESS OF MOVE DATA FDR BUFFER :8MDBIOB : WORD;  "ADDRESS OF MOVE DATA IO BUFFER8:MDBSIZ : WORD;  "SIZE OF MOVE DATA BUFFER(BYTES) :6MEMMIN : WORD;  "MINIMUM MEMORY RVS REQUIRES 64MEMMAX : WORD;  "MAXIMUM MEMORY RVS CAN USE4MINONE : WORD; "CONSTANT (>FFFF) 2MPBNUM : WORD; "# OF BLOCKS/FILES MAPPED20MPESIZ : WORD; "SIZE OF ONE MAP ENTRY 0(MSGBLK : MESSAGE;  "BLANK LINE(6MSGERR : @MESSAGE; "ADDRESS OF ERROR MESSAGE62MSGIPL : MESSAGE;  "IPL REQUIRED MESSAGE 2*MSGSTP : MESSAGE;  "STOP MESSAGE*8MTPEAC : MESSAGE;  "END ACTION ERROR TEMPLATE 80MTPSVC : MESSAGE;  "SVC ERROR TEMPLATE 00MTPSCI : MESSAGE;  "SCI ERROR TEMPLATE 04MTPUTL : MESSAGE;  "UTILITY ERROR TEMPLATE 4(4OFFAFD : WORD;  "OFFSET TO FIRST DESCENDANT40OFFANS : WORD; "OFFSET TO NEXT SIBLING 0*OFFAPF : WORD; "OFFSET TO PARENT *,OFFFNM : WORD; "OFFSET TO FILENAME ,@.OFFKFL : WORD; "OFFSET TO KSB FLAGS .,OFFLNK : WORD; "OFFSET TO PDT LINK ,*OFFDTF : WORD; "OFFSET TO PDTDTF **OFFDSF : WORD; "OFFSET TO PDTDSF **OFFLC  : WORD; "OFFSET TO PDTLC **OFFNAM : WORD; "OFFSET TO DPDVNM **OFFFLG : WORD; "OFFSET TO PDTFLG **OFFCDE : WORD; "OFFSET TO PDTCDE *0OFFSSB : WORD; "OFFSET TO BEET IN SSB 0.OFFFCB : WORD; "OFFSET TO FCB IN DPD ..OFFFMT : WORD; "OFFSET TO FMT IN DPD .0OFFVNM : WORD; "OFFSET TO VOLUME NAME 0(2OMGMBN : MESSAGE;  "FILES/BLOCKS MAPPED 26OMGMDB : MESSAGE;  "MOVING DATA BYTES OP MSG60OMGSEC : WORD; "SECOND TO WRITE OP MSG 0OVYFNC :0 INTEGER;  "RVS OUTER FUNCTIONS OVERLAY ID02OVYMVD : INTEGER;  "MOVE DATA OVERLAY ID 22OVYSCI : INTEGER;  "SCI STUFF OVERLAY ID 2(.PDTBEG : WORD; "ADDRESS OF FIRST PDT .,PMGRVS : MESSAGE;  "HEADER MESSAGE ,0PMGVNM : MESSAGE;  "VOLUME NAME PROMPT 02PMGLNM : MESSAGE;  "LISTING NAME PROMPT 22PMGBNM : MESSAGE;  "BATCH NAME PROMPT 2(2RECVID : BYTE; "RECEIVE ID FOR TASK COMM24REQVDT : BOOLEAN;  "MESSAGE REQUIRES VDT? 4(0SENDID : BYTE; "SEND ID FOR TASK COMM 0@SFT  : SKIP_FILE_ARRAY;  "IF SYSTEM VOLUME, SKIP THESE@8SMGFBN : MESSAGE;  "VOLUME STATISTICS MESSAGE 8$SMGFBL : MESSAGE;  "VOLUME S$ TATISTICS MESSAGE 8SMGFBT : MESSAGE;  "VOLUME STATISTICS MESSAGE 88SMGFFL : MESSAGE;  "VOLUME STATISTICS MESSAGE 8<SRMVD  : MOVE_DATA_RECORD; "SEND/RECEIVE MOVE DATA <&SSR  : STATION_STATUS_RECORD; &.STESIZ : WORD; "SIZE OF STACK ENTRY .&STKTOS : WORD;  "TOP OF STACK&,STKBEG : WORD; "BEGINNING OF STACK ,*STNNAM : DEVNAME;  "STATION NAME*4SVCCOD : WORD;  "SVC CODE FROM PREVIOUS SVC4(>TCA  : @TASK_COMM_ARRAY; "TASK COMM ARRAY(OF TCE'S) ><TCE  : @TASK_COMM_ENTRY; "TASK COMMUNICATION ENTRY<,TCENUM : INTEGER;  "MAXIMUM TCE'S ,(0VOLAPB : WORD; "DEFAULT ADUS PER BLOCK 0VOLASZ : WORD;  "ADU BYTE SIZE (VOLDNM : DEVNAME;  "DRIVE NAME(:VOLFMT : WORD;  "VOLUME FMT SSB FOR VCATALOG FCB :.VOLFCB : WORD; "VOLUME VCATALOG FCB .*VOLREM : WORD; "VCATALOG LENGTH *6VOLSBM : WORD;  "BEGINNING SECTOR OF BIT MAP 6*VOLSPA : WORD; "SECTORS PER ADU **VOLSSZ : WORD; "SECTOR BYTE SIZE *(VOLTBM : WORD;  "# OF BIT MAPS (.VOLTNA : WORD; "# OF ADUS ON VOLUME .:VOLTYP : INTEGER;  "TYPE OF VOLUME(SYSTEM/DATA) :.VOLVDA : WORD; "VCATALOG ADU ADDRESS .*VOLVNM : FILENAME; "VOLUME NAME *(2ZZZMVD : WORD; "END OF MOVE DATA OVERLAY2,ZZZSCI : WORD; "END OF SCI OVERLAY ,((*$RESUME LIST*) d F!"-------------------END COMMON----------------------------------- F: WORD;  "will a l rec need * "to be combined? *AFRLRC: WORD;  "combine next l rec*(AFRBSS: WORD;  "blank supperssed( "log rec status$AFRWBS: WORD;  "#words of bs $ "log rec moved *AFRBSL: WORD;  "bs log rec length **AFRPHD: WORD;  "p rec header word *.AFREOM: INT32; "# log recs in src file.,AFRBKM: INT32; "# dst phy recs moved,,AFRPAA: WORD;  "dst primary alc ADU ,,AFRPAS: WORD;  "dst primary alc #ADU,(AFRAPB: WORD;  "dst ADU/phy rec ((AFRBPA: WORD;  "dst phy rec/ADU (AFRCRP: @COR_REC_DEFN;  "@ to COR of an out bufAFRSTIRVSCON PH$2z@F!"-------------------CONST FOR RECOVER VOLUME SPACE--------------- F(*$NO LIST*)"(F!"--USED TO SET VARIABLE BIDBY(EQU IN RVSVAR)--------------------- F" BIDSCI  = 0; "SCI BID US "" BIDRVS  = 1; "RVS BID US "(F!"--USED TO CHECK WHICH SYSTEM WE BOOTED OFF OF------------------- F$ SECONDARY = 1; "SCI BID US $(F!"--USED TO CHECK FOR COMMAND KEY--------------------------------- F$ CMDKEY  = #98; "COMMAND KEY$(F!"--USED AS INDEXES INTO SKIP-FILE TABLE-------------------------- F2 SFTMAX  = 30;"MAXIMUM # OF FILES IN TABLE 20 SSFMAX  = 21; "MAXIMUM # OF SYSTEM FILES 0 "AND INDEX TO VCATALOG ENTRY 2 FGTLF = 3; "INDEX TO FG TERMINAL LOCAL FILE24 BGTLF = 4; "INDEX TO BG TERMINAL LOCAL FILE4(F!"--USED TO SET ERROR STATE VARIABLES WITH------------------------ F( NO_ERROR  = 0; "NO ERROR RETURN(. DUMY_ERROR  = #FFFF; "DUMY ERROR CODE.F NOT_ENOUGH_MEM  = #12FB; "NOT ENOUGH MEMORY(DUMIES SVC ERROR)F> USER_TERMINATE  = #9392; "USER REQUESTED TERMINATION >> VOL_NOT_FOUND = #9061; "VOLUME NOT FOUND IN PDT CHAIN>F VOL_BEING_ACCESSED = #9394; "UNKNOWN FILES ARE BEING ACCESSED F2 SYS_NOT_QUIET = #%%9393;  "SYSTEM NOT QUIET 22 BAD_MAP = #9390;  "INCONSISTENT VOLUME MAP 2D FUNC_NOT_IMPLEMENTED= #9391; "CANT MOVE DATA IN THAT FASHION D(<"--USED TO SET TYPE OF ERROR------------------------------< -------  0 SCI_ERROR = 0;  "USE SCI ERROR TEMPLATE 00 SVC_ERROR = 1;  "USE SVC ERROR TEMPLATE 02 UTILITY_ERROR = 2;  "UTILITY ERROR OCCURED 2: END_ACTION  = 3; "END ACTION TAKEN BY RVS OR COPY:(F!"--USED TO SET LOCKS(EQU IN RVSVAR)------------------------------ F0 LOCKED  = 0;  "FUNCTIONALITY IS DISABLED 02 UNLOCKED  = 1;  "FUNCTIONALITY IS ENABLED 24 BROKEN  = 2; "FUNCTIONALITY NEVER DISABLED 4(F!"--USED TO SET UP IO IRBS---------------------------------------- F& WRITE_ASCII = #B;"WRITE ASCII&& READ_ASCII  = #9;"READ ASCII &( ASSIGN_LUNO = #91; "ASSIGN LUNO(, RELEASE_LUNO  = #93; "RELEASE LUNO , OPEN_REWIND = #03; "OPEN REWIND0 OPEN_NO_REWIND  = #00; "OPEN NO REWIND 0" CLOSE_LUNO  = #01; "CLOSE"(* WAIT_IO = #00; "EXECUTEIO CALL ** INIT_IO = #80;  "INITIATE IO CALL *, EVENT_OPT = #01;  "ALLOW EVENT CHARS,(F!"--VALUE RETURNED IN FIELD OF SSR-------------------------------- F BG  = 0; "BACKGROUND  TTY = 1; "TTY STATION VDT = #F;"VDT STATION(F!"--VALUE USED TO CHECK IF IRB IS BUSY---------------------------- F$ IO_BUSY = #80; "IRB IS BUSY$(F!"--VALUE USED TO SET VOLUME TYPE(EQU IN RVSVAR)------------------ F* DATA  = 0;  "VOLUME IS DATA VOLUME *. SYSTEM  = 1;  "VOLUME IS SYSTEM VOLUME .( "--CONSTANTS USED TO F0ORMAT DATA--------------------------------- 0 HEX = 16;"BASE IS 16 2 DECMAL  = 0; "BASE IS 10(LEADING BLANKS) 22 BASE10  = 10;"BASE IS 10(LEADING ZEROES) 2(L$"--FIRST BEET OF FIRST 64K OF PHYSICAL MEMORY---------------------------L SYSBET  = 0; (F!"--MAXIMUM SECTOR SIZE POSSIBLE---------------------------------- F MAXSSZ  = 288; (F!"--MAXIMUM NUMBER OF ENTRIES IN SECONDARY ALLOCATION TABLE------- F MAXSAT  = 16;(F!"--USED TO SET THE FDRSAA FIELD IN THE FDR(=OFFSET TO SAT)------- F SAT_OFFSET  = #46; (F!"--MAXIMUM NUMBER OF ENTRIES IN FILE ALLOCATION TABLE-------------F MAXFAR  = MAXSAT + 2;( "--MAXIMUM NUMBER 4OF BITS IN A PARTIAL BIT MAP------------------- 4 MAXBIT  = 2047;(F!"--USED TO SET UP TASK COMM AREA--------------------------------- F FREE_ID = 0;  ERR_ID  = #FF; (F!"--USED TO TEST FIELDS IN FDR------------------------------------ F NULL  = 0;  "NULL FDR* KDR = #FFFD;  "KEY DESCRIPTOR FDR *" ALIAS = TRUE; "ALIAS FDR ", CDR = TRUE; "CHANNEL DESCRIPTOR FDR ,( DIRECTORY = 01; "DIRECTORY FDR (  IMAGE = 03; "IMAGE FDR  (F!"--USED TO SET TYPE FIELD IN MAP ENTRY--------------------------- F& NULTYP  = 0;  "NULL MAP ENTRY &, FLETYP  = 1;  "SPLITABLE DATA BLOCK ,0 DIRTYP  = 2;  "UN-SPLITABLE DATA BLOCK 0" FBKTYP  = 3;  "FREE BLOCK"" DBKTYP  = 4;  "DEAD BLOCK"" DFLTYP  = 5;  "DEAD FILE "6 DTATYP  = 6;  "DATA BLOCK(FLE, DIR, AND DFL) 6* ANYTYP  = 7;  "ANYTHING NOT NULL *(F!"--USED TO SET DIRECTION OF SCAN FOR A BEST FIT ROUTINE---------- F$ RIGHT = 0;  "SCAN TO RIGHT $" LEFT  = 1;  "SCAN TO LEFT"$ BOTH  = 2;  "SCAN BOTH WAYS $(F!"--USED TO SPECIFY FREE BLOCK SELECTION-------------------------- F$ BEST  = 0;  "TAKE BEST FIT $$ FIRST = 1;  "TAKE FIRST FIT $(F!"--USED TO CHECK STATUS OF POLLED TASK--------------------------- F TIME_DELAY  = #05; ((*$RESUME LIST*) ."-------------------END CONST---------------. --------------------- ING NAME*0LOCBNM : WORD; "LOCATION OF BATCH NAME 02LOCSBA : WORD; "LOCATION OF STATION NAME28LOCFBN : WORD;  "LOCATION OF FREE BLOCK NUMBER 88LOCFBS : WORD;  "LOCATION OF FREE BLOCK SPREAD 84LOCLBS : WORD;  "LOCATION OF FREE ADU SIZE 44LOCLBB : WORD;  "LOCATION OF FREE BYTE SIZE46LOCLPV : WORD;  "LOCATION OF FREE % OF VOLUME64LOCLPF : WORD;  "LOCATION OF FREE % OF FREE44LOCTBS : WORD;  "LOCATION OF FREE ADU SIZE 44LOCTBB : WORD;  "LOCATION OF FREE BYTE SIZE46LOCTPV : WORD;  "LOCATION OF FREE % OF VOLUME66LOCFFN : WORD;  "LOCATION OF FRAG FILE NUMBER6$LOCFFM : WORD;  "LOCATION OF $AKE P H9>3)z@(*$ NO LIST *) AKE = PACKED RECORD ( AKEXUF : WORD;  "EXTENDED USER FLAGS(# AKEFC: WORD; "FILL CHARACTER # AKEEOF : WORD; "END FIELD  AKEBOF : WORD; "BEGIN FIELD  AKESCR : WORD; "SCREEN SIZE  AKEMFL : WORD; "MODE FLAGS  AKEMXF : WORD; "MAX FIELD) AKEBFO : WORD;  "BEGIN FIELD OVERRIDE )' AKEEFO : WORD;  "END FIELD OVERRIDE '# AKEAST : BYTE; "AUTOMATA STATE #  AKEINF : BYTE; "INSERT FLAG % AKECTL : BYTE;  "CONTROL KEY FLAG %( AKEMSC : BYTE;  "MISCELLEANOUS USAGE( AKESCH : BYTE; "SAVE CHAR* AKEACT : BYTE;  "TO SEE IF ACTION DONE*& AKETAD : WORD;  "TEMPORARY ADDRESS&# AKEICT : WORD; "INSERT COUNTER #* AKESTK : PACKED ARRAY [ 1..12 ] OF BYTE*; "6 LEVELS9 AKEEF0 : PACKED RECORD "EXTENDED EDIT FLAGS - WORD 0 9FILL00 : 0.. 1; FILL01 : 0.. 1; FILL02 : 0.. 1; / EDFEXE : BOOLEAN;  "USED, BUT NOT DOCUMENTED /FILL03 : 0.. 1; FILL04 : 0.. 1; FILL05 : 0.. 1; FILL06 : 0.. 1; 1 MDTCHK : BOOLEAN; "POST DATA MODIFIED ON READ 1/ EXVAL : BOOLEAN;  "EXTENDED CHAR VALIDATION /1 NULFLG : BOOLEAN; "NULL CHARACTER SUPPRESSION 1, CNBFLG : BOOLEAN;  "CONVERT NULL TO BLANK,FILL07 : 0.. 1; FILL08 : 0.. 7; END;8 AKEEF1 : PACKED RECORD "EXTENDED EDIT FLAG - WORD 18FILL09 : 0.. 1; FILL0A : 0.. 1; 3 LEFARO : BOOLEAN; "TERMINATE READ ON LEFT ARROW 3FILL0B : 0.. 1; FILL0C : 0.. 1;  FILL0D :   0.. 1; FILL0E : 0.. 1; FILL0F : 0.. 1; FILL10 : 0.. 1; FILL11 : 0.. 1; FILL12 : 0.. 1; FILL13 : 0.. 1; 4 RITARO : BOOLEAN; "TERMINATE READ ON RIGHT ARROW4FILL14 : 0.. 1; FILL15 : 0.. 1; FILL16 : 0.. 1; END;END; (*$ RESUME LIST *)`#΋$F/'` "g !!6! "!`H`#΋$D g'  h( !  ! PgE `#΋$Hê'!!!(!g D*'g DD gg DDD  'g DD g' gE `#΋$L! /// '` "(` "`#Ƌ!$>>CSMTYPESPH N2z(*$NO LIST*)"$" COPY SEQUENTIAL MEDIA TYPES $" ',BUFFER = PACKED ARRAY[1..16] OF WORD; ,SBYTES = PACKED RECORD BYTE1 : BYTE; BYTE2 : BYTE;  END; PTRIRB = @IRB;(SBUFPTR = @SBYTES; " STATUS BYTES (BUFPTR = @BUFFER; (*$RESUME LIST*)  SECONDARY = 1; "SCI BID US $(F!"--USED TO CHECK FOR COMMAND KEY--------------------------------- F$ CMDKEY  = #98; "COMMAND KEY$(F!"--USED AS INDEXES INTO SKIP-FILE TABLE-------------------------- F2 SFTMAX  = 30;"MAXIMUM # OF FILES IN TABLE 20 SSFMAX  = 21; "MAXIMUM # OF SYSTEM FILES 0 "AND INDEX TO VCATALOG ENTRY 2 FGTLF = 3; "INDEX TO FG TERMINAL LOCAL FILE2SDEMD P H$P3Hz@(*$ NO LIST *)9"****************************************************** 9+"*SORTED DIRECTORY FILE ENTRIES (SDEMD) +%"*FOR MAP DISC AND LIST DIRECTORY %"* 09/25/79 9"****************************************************** 9 SDE = PACKED RECORD 7 SDEFNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "FILE NAME 7& SDEREC : WORD;  "FDR RECORD NUMBER& SDEFLG : WORD; "FLAGS) SDEPRS : WORD;  "PHYSICAL RECORD SIZE )( SDELRS : WORD;  "LOGICAL RECORD SIZE(, SDEPAS : WORD;  "PRIMARY ALLOCATION SIZE,. SDESAS : WORD;  "SECONDARY ALLOCATION SIZE.- SDESAA : WORD;  "OFFSET OF SCONDARY TABLE -, SDERFA : WORD;  "RECORD # OF FIRST ALIAS,@ SDEEOM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "END OF MEDIUM RECO@RD #C! SDEBKM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "END OF MEDIUM BLOCK # C) SDEOFM : WORD;  "END OF MEDIUM OFFSET )& SDETNB : WORD;  "TOTAL # OF BLOCKS&. SDEKDR : WORD;  "KEY DESCRIPTIONS RECORD #.> SDEUD: PACKED ARRAY [ 1.. 6 ] OF BYTE; "LAST UPDATE DATE>; SDECD: PACKED ARRAY [ 1.. 6 ] OF BYTE; "CREATION DATE ;$ SDEAPB : BYTE; "ADU'S PER BLOCK$$ SDEBPA : BYTE; "BLOCK'S PER ADU$' SDELNK : WORD;  "LINK TO NEXT ENTRY '2 SDEALO %%: WORD; "TOTAL FILE ALLOCATION IN ADUS20 SDEUSE : WORD; "# OF USED SECONDARY ENTRIES0END;7 MODFNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "FILE NAME 7* MODREC : WORD;  "RECORD NUMBER OF FILE*0 MODRAF : WORD; "POINTER TO ACTUAL FILE NAME0 MODLNK : WO$RD; "LINK TO NEXT MODIFIED ENTRY$END; (*$ RESUME LIST *)CE/CLASS SCI0(*  STRING (FOR 'ALL' OPTION OF 'MO')(  ENDREC  PAGE  LIST  8 ] OF BYTE; "SECONDARY OVERLAY FILED( SC0OFF : WORD;  "OVERLAY FILE SWITCH(I$ SC0IL1 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "PRIMARY INTERMEDIATE LOADER IK% SC0IL2 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "SECONDARY INTERMEDIATE LOADER K- SC0ILF : WORD;  "INTERMEDIATE LOADER FLAG -B SC0DIN : PACKED ARRAY [ 1.. 8 ] OF BYTE; "DIAGNOSTIC FILE NAMEB$ SC0DIF : WORD; "DIAGNOSTIC FLAG$2 SC0DRS : WORD; "DBUILD DETERMINES DEFAULT PRS24 SC0BAL : WORD; "STARTING SECTOR OF BAD ADU LIST4/ SC0SPR : WORD; "TRACK 0 SECTORS PER RECORD / SC0WF1 : PACKED AINS P H2*3z(*$ NO LIST *)?"************************************************************ ?"** '"*INSTALL UCB  (INS) 9/05/79* '"** %"* LOCATION: SYSTEM TABLE AREA * %"** ?"************************************************************ ? INS = PACKED RECORD   INSOP: BYTE; "SVC OP CODE ( INSERR : BYTE;  "RETURNED ERROR CODE(& INSPFL : BYTE;  "PROGRAM FILE LUNO& INSID: BYTE; "ID NUMBER2 INSNAM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "NAME2CASE INTEGER OF  1 : ( "TASK VARIANT INSFLG : BYTE; "FLAGS INTPRI : BYTE; "PRIORITY  INTPR1 : BYTE; "PROC 1 ID INTPR2 : BYTE; "PROC 2 ID  INTOBJ : BYTE; "OBJECT LUNO  INTFL2 : BYTE; "FLAGSAG@: INTLOD : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LOAD ADDRESS:< INTLNG : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LENGTH (BYTES)<> INTLEN : PACKED ARRAY [ 1.. 2 ] OF BYTE; "TASK ROOT LENGTH> );  2 : ( "PROCEDURE VARIANT  FILL00 : BYTE; "FLAGS  INPOBJ : BYTE; "OBJECT LUNO : INPLOD : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LOAD ADDRESS:< INPLNG : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LENGTH (BYTES)< );  3 : ( "SEGMENT VARIANT  FILL01 : BYTE; "FLAGS  INSOBJ : BYTE; "OBJECT LUNO : INSLOD : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LOAD ADDRESS:< INSLNG : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LENGTH (BYTES)<) INSFL2 : BYTE;  "SECOND BYTE OF FLAGS ) );  4 : ( "OVERLAY VARIANT   FILL02 : BYTE; "FLAGS' INOTID : BYTE;  "ASSOCIATED TASK ID ' INOOBJ : BYTE; "OBJECT  FILL03 : BYTE; " : INOLOD : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LOAD ADDRESS:< INOLNG : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LENGTH (BYTES)< ); END; (*$ RESUME LIST *) # ) # ), " #   %   PPTCP  `P /'` " "$/('` "/(` "CI  B I /Jg!!!!D>( ( ! Dd   t "$/(` "Ę "!JMR P I%R3z@(*$ NO LIST *)>"***********************************************************>"* *0"* JOB MANAGEMENT REQUEST(JMR) 04/28/79 *0&"*LOCATION: SYSTEM TABLE AREA *&"* *>"***********************************************************><"* THE JMR IS A DESCRIPTION OF A JOB MANAGEMENT SVC BLOCK.<;"* IT IS USED WITHIN JOB MANAGMENT TO SCAN THE USER'S SVC ; "* REQUEST.  JMR = PACKED RECORD # JMRSVC : BYTE; "SVC CODE (48) # JMRERR : BYTE; "ERROR CODE * JMROP: BYTE;  "JOB MANAGER SUBOPCODE*! JMRPRI : BYTE; "JOB PRIORITY !6 JMRFLG : PACKED RECORD  "JOB MANAGER CONTROL FLAGS65 JMFNID : BOOLEAN; "NEW USED ID SPECIFIED (CREATE) 5, JMFVER : BOOLEAN;  "BYPASS VERFY CHECKS I,N JM  JMFBCH : BOOLEAN; "BATCH JOB /JMFRES : 0..255; "FLAG BITS 3 - 10 RESERVED /$JMFPVL : 0..31; "PRIVILEGE LEVEL$END; JMRJID : WORD; "JOB ID E" JMRNAM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER SPECIFIED JOB NAME E, JMRTID : BYTE;  "TASK ID OF INITIAL TASK,' JMRSSZ : BYTE; "SIZE OF JCA1,2,3 'A JMRPRM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "TASK BID PARAMETERS A- JMRSID : BYTE;  "STATION ID OF TASK (JOB) -. JMRPFL : BYTE;  "PROGRAM FILE LUNO OF TASK./ JMRSYN : WORD; "SYNONYM SEGMENT SEGMENT ID /2 JMRLNM : WORD; "LOGICAL NAME BLOCK SEGMENT ID25 JMRUID : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER ID 56 JMRPWD : PACKED ARRAY [ 1.. 8 ] OF CHAR; "PASSWORD6 JMRACC : PACKED ARRAY& [ 1..16 ] OF CHAR; "ACCOUNT NUMBER&END; (*$ RESUME LIST *))t )|`)l+N) )`)J+N) )`()+) )`%J)+*$ *,`() LIST ()0)*+n* *`6* )`(*2*B)(&B ,` ޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭ():"):")8Np *,* +`$V*:+! UTILNAME; ECEC; WPWP; PCPC; STST,$,$NFJOBC PI3 z(*$ NO LIST *) NFJOBC : PACKED RECORD* NXTJID : WORD;  "NEXT AVAILABLE JOB ID*. FSTJID : WORD;  "BEGINING AVAILABLE JOB ID.- LSTJID : WORD;  "LAST AVALIBLE ID IN LIST -- JOBCNT : WORD;  "NUMBER OF JOBS IN SYSTEM -0 JOBLMT : WORD; "SYSTEM LIMIT ON ACTIVE JOBS01 JCAMIN : WORD; "SIZE OF JCA IN BYTES (SMALL) 1/ JCAAVG : WORD; "SIZE OF JCA IN BYTES (MED) /1 JCAMAX : WORD; "SIZE OF JCA IN BYTES (LARGE) 1/ JWTQUE : @JSB ; "FOREGROUND JOB WAIT LIST /0 JOBQ : @QHR ; "JOB MANAGER REQUEST QUEUE0) JOBBCT : WORD;  "BACKGROUND JOB COUNT )) JOBBLM : WORD;  "BACKGROUND JOB LIMIT )/ JOBBWT : @JSB ; "BACKGROUND JOB WAIT LIST /END; (*$ RESUME LIST *)RTO@BDTYPE P!I "2z@(*$ NO LIST *)!(  type % (ZERONE = 0..1; SMALLINT = 0..100;BYTE = 0..#FF;POSINT = 0..MAX_INTEGER;WORD = 0..#FFFF; ADDRESS = 0..#FFFF;($B2= packed array[1..2]of BYTE;$(,BOOL16 = packed array[1..16]of boolean; ,,BOOL32 = packed array[1..32]of boolean; ,($W2 = packed array[1..2]of WORD; $$W3 = packed array[1..3]of WORD; $$W5 = packed array[1..5]of WORD; $($C4= packed array[1..4]of char;$$C6= packed array[1..6]of char;$$C8= packed array[1..8]of char;$&C10 = packed array[1..10]of char; &&C16 = packed array[1..16]of char; &&C32 = packed array[1..32]of char; & C42 = packed array[1..42]of char; &C64 = packed array[1..64]of char; &&C80 = packed array[1..80]of char; &&C96 = packed array[1..96]of char; &(FC6PTR = @C6;"USED FOR IDENTIFYING TRAILER ON MULTI-VOLUME TAPES F(""SECTORS OF 2 SIZES MAY OCCUR "2S256 = packed array[0..SMALLSECTOR-1]of BYTE; 20S288 = packed array[0..BIGSECTOR-1]of BYTE; 0(""7 KINDS OF SECTORS MAY OCCUR "D DIR_SECTOR = (ADRSEC,CDRSEC,EODSEC,FILSEC,DIRSEC,KDRSEC,NULSEC);D( FDR_BUFF = record  case integer of@1 : (LVL256 : array[1..MAX_NEST,1..SECT_PER_LEVEL]of S256); @@2 : (LVL288 : array[1..MAX_NEST,1..SECT_PER_LEVEL]of S288); @<3 : (SEC256 : array[1..SECT_PER_LEVEL*MAX_NEST]of S256); <4 : (SEC288 : .array[1..SECT_PER_LEVEL*MAX_NEST]of S288); .end;(*FDR_BUFF*) FDR_PTR = @FDR_BUFF;(>"Note--IO buffers may be larger than this type declaration >@"  indicates we will turn off index checking and reference@&"  the IO buffer thru a pointer.&" &,IO_BUFFER = array[0..DUMY_INDEX]of WORD;,(IO_PTR= @IO_BUFFER; ( NAME = packed recordcase boolean of  true :( LENGTH : BYTE); ,false:(CH : packed array[0..9]of char); ,END;(*NAME*)!( LEVEL_INFO = record : START: WORD; "START ADU NUMBER FOR THIS DIRECTORY :D LENGTH : longint;"TOTAL LENGTH OF THIS DIRECTORY(IN SECTORS) D: INBUFF : SMALLINT; "NUMBER OF ENTRIES(SECTORS) CURREN:TLY IN BUFFER < TOPADU : WORD; "ADU NUMBER FOR 1ST SECTOR THIS LEVEL << TOPSEC : WORD; "SEC OFFSET FOR 1ST SECTOR THIS LEVEL <F EODIN: boolean;"IS THE EOD MARK IN THE FDR BUFFER THIS LEVEL?F< "COMPONENT OF PATHNAME OF CURRENT FILE BEING BACKED UP < P%%NAME: NAME;  end;(*LEVEL_INFO*)(6HREC =record"BAKUP FILE HEADER RECORD TEMPLATE6, HDRBUF  : C6; "TEXT FOR TAPE HEADER,$ HDATE : C8; "DATE IN HEADER$: HVOL  : integer;  "VOLUME # IN HEADER(0=NO MULTI) :. HBLK  : integer;  "BLOCK SIZE OF TAPE.4 HSECSZ  : integer;  "SECTOR SIZE OF SOURCE 4@ HTRLFG  : integer;  "TAPE TRAILERS USED FLAG(YES=>8000)@$ HASDAT  : C42;  "ASCII DATE &$ TIME OF BACKUP . HASVOL  : C16;  "ASCII VOLUME NUMBER .2 HASSEC  : C16;  "ASCII SOURCE SECTOR SIZE 22 HASSRC  : C64;  "ASCII SOURCE INPUT NAME 2D HFSTPG  : integer;  "PROGRAM FILES DONE WITH FAST COPY FLAGD< FASTLABEL : C16;  "UNIQUE ASCII LABEL FOR FAST BACKUP<end;(*HREC*)!( PATH = packed record  case boolean of true :( LENGTH : BYTE);. false:(CH : packed array[0..49]of char); . END;(*PATH*) !( (*$ RESUME LIST *)(D" COPY IN TEMPLATES FOR SYSTEM DATA STRUCTURESAND CALL BLOCKS D<?COPY DSC.TEMPLATE.PTABLE.ADR  "ALIAS DESCRIPTOR RECORD<>?COPY DSC.TEMPLATE.PTABLE.DOR  "DIRECTORY OVERHEAD RECORD> ?COPY DSC.TEMPLATE*.PTABLE.FDR  "FILE DESCRIPTOR RECORD *6?COPY DSC.TEMPLATE.PTABLE.IRB  "I/O REQUEST BLOCK 6@?COPY DSC.TEMPLATE.PTABLE.S03 "GET DATE & TIME CALL BLOCK @B?COPY DSC.TEMPLATE.PTABLE.S17 "GET BID PARAMETERS SVC BLOCK B@?COPY DSC.TEMPLATE.PTABLE.SC0 "SECTOR 0 INFOMATION RECORD @(((*$ NO LIST*) !,FDRPTR = @FDR; "POINTER AT FDR TEMPLATE,(@"DEFINE TYPES FOR THE 2NDARY ALLOCATION TABLE PART OF AN FDR @SATREC = record 6 ASIZ : WORD; "SIZE IN ADUS OF THIS ALLOCATION 68 BADU : WORD; "BEGINNING ADU NUMBER OF ALLOCATION8end; (*SATREC*) (*SAT = array[1..MAX_2NDARIES]of SATREC;*(PATHPTR = @PATH;IRBPTR= @IRB; (VIF = record"N"EEDED DISK VOLUME INFORMATION "  SC0VNM : C8;"VOLUME NAME 4 SC0TNA : WORD;"TOTAL NUMBER OF ADUs ON DISK 40 SC0RL : 0..BIGSECTOR; "BYTES PER SECTOR 00 SC0VDA : WORD; "VCATALOG START ADU NUMBER 00 SC0SPA : 0..MAX_SEC_ADU;"SECTORS PER ADU0> SC0SBM : BYTE;"SECTOR OFFSET IN TRACK 0 OF 1ST BIT MAP>8 SC0TBM : BYTE;"TOTAL NUMBER OF BIT MAPS ON DISK 8end;(*VIF*) !(> ALLOCATION = record "INFORMATION ABOUT A FILE ALLOCATION >2SADU : WORD;"START ADU OF THIS ALLOCATION 24NADU : WORD;"NEXT ADU TO READ IN ALLOCATION 44SSEC : WORD;"START SECTOR OF THIS ALLOCATION 4@SREM : longint; "NUMBER OF SECTORS UN-READ IN ALLOCATION@TADU : WORD;"TOTAL& NUMBER OF ADUS IN THIS ALLOCATION& end; (*ALLOCATION*) (F!"A NODE ON THE 'UNFORMAT' CHAIN(UNFORMATTED AREAS IN READ BUFFER) FU_LINK = record &RB: 0..1;  "WHICH READ BUFFER?&B RB_SEC_INDX : SMALLINT;  "SECTOR OFFSET INTO THE READ BUFFERBBLENGTH: SMALLINT;  "LENGTH OF THIS READ(IN SOURCE SECTORS)B.ADUNUM: WORD;  "ADU NUMBER OF THE READ .4SECNUM: POSINT;  "SECTOR OFFSET OF THE READ 42READ_DONE : boolean; "HAS READ COMPLETED? 2<NEXT : 0..MAX_INITIATES; "NEXT LINK IN U_CHAIN(0=NONE) <end;(*U_LINK*) ( YESNO = (Y, N);( MSG = packed recordcase integer of  1:(LENGTH : BYTE); * 2:(CH : packed array[0..1] of char); *@ end;(*MSG*)"( DISK_ADDRESS = recordADUNUM : WORD; SECOFF : WORD;  end;(*DISK_ADDRESS*) ( TAPE_REC = record  VERIFIED : boolean; COUNT  : longint; end;(*TAPE_REC*) (,PRM_ARRAY = array[1..DUMY_INDEX]of C96; ,PRM_PTR = @PRM_ARRAY; (>"THE FOLLOWING TYPES ARE USED IN TRACING PATHNAMES IN THE >"WRITE BUFFERS. F!" NOTE-- WE WILL ALLOW FOR 1 DIRECTORY PATH PER EVERY 7 FILES THATFD"  COULD POSSIBLY FIT IN THE SPACE ALLOCATED TO THESE BUFFERS D( DTRC_REC = record 0 DPATH: PATH;  "directory pathname stub 0F EODSEEN: boolean; "has the last of directory been thru FDR buffFend;(*DTRC_REC*) (LTRC_REC = record   NAM : NAME; "leaf name  6 DPART : integer;  "points at entry in 'DIREC@' 6 end; (*LTRC_REC*) (<" ARRAY BUT IT IS LOGICALLY THOUGHT OF IN THE CODE AS : <" '6" LTRACE = array[0..1,1..MAX_LEAF_TRC]of LTRC_REC;6(6LTRACE = array[0..(MAX_LEAF_TRC*2)-1]of LTRC_REC; 6.DTRACE = array[1..MAX_DIR_TRC]of DTRC_REC;.(DPTR = @DTRACE; LPTR = @LTRACE; (0"PARTIAL BIT MAP(AS IT APPEARS ON DISK ONLY)0DSKBM = record!4 BIGFREE: WORD; "UNUSED PBM RELATIVE OFFSET 4@ ADUS : packed array[0..((SMALLSECTOR-2)*8)-1]of boolean; @end;(*DSKBM*) !($"A TYPE TO HOLD DISK ALLOCATIONS$( ALLOC_ARRAY = array[0..MAX_2NDARIES]o(f SATREC; (@ "MESSAGES ISSUED TO USER FALL INTO ONE OF THESE CATEGORIES @L$ MTYPE = (HDR,ENDLIN,SUBH,INFORM,BYTES,COUNTEM,IMPERATIVE,QUERY,ERROR); L(F!"-----------------------------------------------------------------F( (*$ RESUME LIST *)ER;  "RVS OUTER FUNCTIONS OVERLAY ID<2OVYMVD : INTEGER;  "MOVE DATA OVERLAY ID 22OVYSCI : INTEGER;  "SCI STUFF OVERLAY ID 2(PDTBEG : WORD;  "ADDRESAP=@$CLST.MAP.TASK2780,  ASSEMBLER INPUT=@TEMP, @@* PR6"Wk4`4@.OFFKFL : WORD; "OFFSET TO KSB FLAGS .,OFFLNK : WORD; "OFFSET TO PDT LINK ,*OFFDTF : WORD; "OFFSET TO PDTDTF **OFFDSF : WORD; "OFFSET TO PDTDSF *NFER30 PI2>3 z@(*$ NO LIST *) NFER30 : PACKED RECORD6 ERR30: BYTE; "FILMGR -ACCESS BEYOND END OF FILE6# ERR31: BYTE; "IN USE BY COMM ## ERR32: BYTE; "IN USE BY COMM ## ERR33: BYTE; "IN USE BY COMM ## ERR34: BYTE; "IN USE BY COMM ## ERR35: BYTE; "IN USE BY COMM ## ERR36: BYTE; "IN USE BY COMM ## ERR37: BYTE; "IN USE BY COMM ## ERR38: BYTE; "IN USE BY COMM ## ERR39: BYTE; "IN USE BY COMM ## ERR3A: BYTE; "IN USE BY COMM #5 ERR3B: BYTE; "SVC00 -ACCESS PRIVILEGES DENIED 50 ERR3C: BYTE; "FILMGR -USER BUFFER TOO BIG01 ERR3D: BYTE; "FILMGR -PHYSICAL REC TOO BIG 11 ERR3E: BYTE; "FILMGR -INVALID BLOCK NUMBER 1& ERR3F: BYTE;  "FILMGR -INCONSIST&ENT FCB/PDT VAL.END; (*$ RESUME LIST *) BYTES8*  WHERE AT ALL POSSIBLE.* >************************************************************>BYTE20 EQUERR20 BYTE21 EQUERR21 BYTE22 EQUERR22 BYTE23 EQUERR23 BYTE24 EQUERR24 BYTE25 EQUERR25 BYTE26 EQUERR26 BYTE27 EQUERR27 BYTE28 EQUERR28 BYTE29 EQUERR29 WWRT,O@&+ "!,@#f *  # ) # ), " #   %   PPTCP  `P /'` " "$/('` "/(` "CI  S43 PI83z(*$ NO LIST *)>"***********************************************************>1"*S43 - NAME MANAGER REQUEST BLOCK 02/07/82 1>"***********************************************************>S43 = PACKED RECORD  S43SOC : BYTE; "SVC CODE  S43EC: BYTE; "ERROR CODE  S43OC: BYTE; "SUBOPCODE+ S43FLG : PACKED RECORD "USER SET FLAGS +& S43FSL : BOOLEAN; "LN = 1, SYN = 0&* S43FIT : BOOLEAN;  "INITIAL TASK IN JOB*( S43BID : BOOLEAN;  "BID = 1, TERM = 0() S43GLO : BOOLEAN;  "GLOBAL REQUEST = 1 )+ S43RID : BOOLEAN;  "RUN ID SPECIFIED = 1 +- S43NMX : BOOLEAN;  "NO MORE EXPANSIONS = 1 -# S43PRO : BOOLEAN; "PROTECT NAME #/S43UNF : 0.. 1; "FLAG BIT 7 UNUSED 02/07/82 /END;- S43NAM : WORD;  "TO "NAME" (OR NAME LIST) -+ S43VAL : WORD;  "TO "VALUE" OR PATHNAME +$ S43PRM : WORD; "TO "PARMS" LIST$% S43SSP : WORD;  "SIZE/PN NUM/FLAG % S43RES : WORD; " END; (*$ RESUME LIST *)FILL02 : 0..2047; END;8 S42WT2 : PACKED RECORD "SECOND WORD OF RETURN FLAGS8 FILL03 : 0..65535;END;% S42RES : WORD;  "*** RESERVED *** %END; (*$ RESUME LIST *)9  &MEMORY RESIDENT? FOR IT COMMAND 30EXRSYN EQU9  SYNONYM FOR RUNTIME ID FOR XT0,INVLDR EQU9  &TRACK #1 LOADER PATHNAME,3IPWTP EQU9  &INSTALL PROCEDURE WRITE PROTECT 33IPSEXP EQU9  &EXECUTE PROTECT FOR IPS COMMAND 36IOSEGT EQU9  &ASSOCIATED SEGMENT TYPE FOR IO CMD6RERIB PI>F3fz@(*$ NO LIST *)?"************************************************************ ?"** 3"* RETURN INFORMATION BLOCK (RIB)02/08/79* 3"** -"* LOCATION: RPSDAT AND SVC PROCESSORS* -?"*****************%%******************************************* ?8"* THE RIB FOR A GIVEN SVC TELLS HOW MUCH AND WHERE TO8;"* RETURN INFORMATION FROM A BUFFERED CALL BLOCK THAT WAS ;9"* USED BY THE SVC PROCESSOR. THE RIB IS IN THE MODULE 9;"* RPSDAT BUILT DURING SYSTEM GENERATION IF THE SVC IS AN ;="* OPTIONAL SVC OR IS ONE PROCESSED BY A QUEUE SERVER TASK. =>"* OTHERWISE THE RIB IS IN ONE OF THE SVC PROCESSOR MODULES.>>"* THE RIB FOR A PARTICULAR SVC IS ACTUALLY SPECIFIED AS ONE> "* FIELD FOR RIBPRO, THEN #ANY NUMBER OF PAIRS OF VALUES FOR #A "* OFFSET AND LENGTH, THEN A WORD OF ZERO TO TERMINATE THE RIB. A RIB = PACKED RECORD 3 RIBPRO : WORD; "POSTPROCESSOR (IF SPECIAL ONE) 3& RIBOFF : BYTE;  "CALL BLOCK OFFSET&/ RIBLEN : BYTE; "LENGTH TO UNBUFFER (BYTES) /END; (*$ RESUME LIST *)ODSTATIC(0) OR DYNAMIC BUFFER +. FLAG RDFDSJDYNAMIC BUFFER - STA(0) OR JCA.) FLAG RDFREV REVISING A BUFFER (1=YES) )& FLAG RDFINT CAN(1) OR CANNOT(0) BE&*  AN INITIATED EVENT* FLAG RDFQIJ QUEUE HDR IN STA(0) OR JCA* BITS 7 RESERVED0RDBSRV DATA 0  ADDRESS OF PROCESSOR ENTRY OR0$* QUEUE HDR ADDRESS(RDFQIJ=0) OR$!* QHR OFFSET IN JIT(RDFQIJ=1) !&RDBRIB PTRRIB  ADDRESS OF RETURN&XREFVAR PID|2z(*$ NO LIST *)!* REFFILE : RANDOM FILE OF REFERENCES; * MODULE : TEXT;  (*$ RESUME LIST *)LOCK 10/29/81 1>"***********************************************************> S43 = PACKED RECORD  S43SOC : BYTE; "SVC CODE  S43EC: BYTE; "ERROR CODE  S43OC: BYTE; "SUBOPCODE+ S43FLG : PACKED RECORD "USER SET FLAGS +& S43FSL : BOOLEAN; "LN = 1, SYN = 0&* S43FIT : BOOLEAN ɣk4`4ESSED BY A QUEUE SERVER TASK. >"* OTHERWISE THE RIB IS IN ONE OF THE SVC PROCESSOR MODULES.>>"* THE RIB FOR A PARTICULAR SVC IS ACTUALLY SPECIFIED AS ONE>="* FIELD FOR RIBPRO, THEN ANY NUMBER OF PAIRS OF VALUES FOR =0"* OFFSET AND LENGTH, THEN A WORD OF ZERO TO T0CPCOMN P IG(82z@(*$ NO LIST *)!<"******************************************************* < "  * 0" GLOBAL COMMON DEFINITIONS 07/12/79  * 0 "  * <"******************************************************* <" '& MNOT : BYTE; "MAX NO. OF TASKS &* TOFF : BYTE; "OFFSET TO TASK PFI'S *, MNOP : BYTE; "MAX NO. OF PROCEDURES ,* POFF : BYTE; "OFFSET TO PROC PFI'S ** MNOO : BYTE; "MAX NO. OF OVERLAYS ** OOFF : BYTE; "OFFSET TO OVLY PFI'S *4 TREC : WORD;  "STARTING RECORD OF TASK PFI'S 44 PREC : WORD;  "STARTING RECORD OF PROC PFI'S 44 OREC : WORD;  "STARTING RECORD OF OVLY PFI'S 4, MODID : PHASE_ID; "MODULE ID AND TYPE ,  PATID : PHASE_ID;  "PATCH AR EA ID AND TYPE ( MODLEN : WORD; "LENGTH OF MODULE (. INSERT : BOOLEAN; "PATCH TYPE INDICATOR ., PATCHNUMBER : INTEGER;  "PATCH NUMBER,0 BUFID : PHASE_ID; "ID OF MODULE IN BUFFER 02 BUFADD : WORD;  "LOG. ADDR. START OF BUFFER20 BUFREC : WORD; "RECORD NUMBER IN BUFFER 08 CURLOD : WORD;  "LOAD ADDRESS OF MODULE IN BUFFER8> BUF : RECORD CASE INTEGER OF  "PROGRAM FILE I/O BUFFER > 1: ( SHORT : BUFFER);* 2: ( LONG : ARRAY [0..400] OF WORD);*  END; 4 BUFSIZ : INTEGER;  "SIZE OF PROG. FILE BUFFER 46 MODIFIED : BOOLEAN; "PF BUFFER HAS BEEN WRITTEN64 PATWORDS : INTEGER; "NUMBER OF WORDS TO PATCH4* PATCH_TYPE : PATCHES; "INSERT TYPE * PATCH0 : ARRAY[1..500] OF WORD;  "PATCH TO MAKE 0H" RELOCATABLE : ARRAY[1..500] OF BOOLEAN;"IS PATCH WORD RELOCATABLE? H8 VERWORDS : INTEGER; "NUMBER OF VERIFICATION WORDS8: OBJ_SIZE : INTEGER; "SIZE IN WORDS OF PATCH OBJECT :  EMPTY_PATCH_AREA : BOOLEAN; (*$ LIST *) "x checking and reference@&"  the IO buffer thru a pointer.&" &,IO_BUFFER = array[0..DUMY_INDEX]of WORD;,(IO_PTR= @IO_BUFFER; ( NAME = packed recordcase boolean of  true :( LENGTH : BYTE); ,false:(CH : packed array[0..9]of char); ,END;(*NAME*)!( LEVEL_INFO = record : START: WORD; "START ADU NUMBER FOR THIS DIRECTORY :D LENGTH : longint;"TOTAL LENGTH NFER90 PIP3 z(*$ NO LIST *) NFER90 : PACKED RECORD?"************************************************************ ?"** ;"*NFER90 - ERROR CONSTANTS COMMON AREA # 10 04/28/82 * ;"** ?"************************************************************ ?4 ERR90: BYTE; "IOU -BAD DIRECTORY HOLE SEARCH4+ ERR91: BYTE; "IOU -DIRECTORY LOOKUP +. ERR92: BYTE; "IOU -BAD PATHNAME SYNTAX.6 ERR93: BYTE; "IOU-CONTRL GROUP DOES NOT EXIST64 ERR94: BYTE; "IOU -INVALID OPER. ON 'PUBLIC'44 ERR95: BYTE; "IOU -SECURITY ACCESS VIOLATION43 ERR96: BYTE; "IOU -INVALID REMOTE OPERATION 35 ERR97: BYTE; "IOU-KDB ALIGNED ON ODD ADDRESS 53 ERR98: BYTE; "IOU -INVALID PARAMETER NUMBER 36 ERR99: BYTE; "IOU-CANNOT GENERATE LUNO NUMBER66 ERR9A: BYTE; "IOU-PATHNAME COMPONENT IS NOT A6) ERR9B: BYTE; "IOU-DEVICE OFFLINE )2 ERR9C: BYTE; "IOU -DEVICE IN DIAG STATE OR23 ERR9D: BYTE; "IOU -DEVICE IN USE BY SPOOLER 35 ERR9E: BYTE; "IOU-CHANNEL SCOPE CONFLICT FOR 50 ERR9F: BYTE; "SVC00 -RESERVED FOR RTS9150END; (*$ RESUME LIST *)+N( (`R)l+N( (`p) .S$BTLF03+T+N)0 )8`h)l+N)B )8```+N)V )^` )l+N@+N:``+)t )|`)l+NSPMSG PIV3 Jz(*$ NO LIST *) SPMSG : PACKED RECORD; MSGTBL :PACKED ARRAY [ 1..20] OF MSG  ; "MESSAGE TABLE ;END; (*$ RESUME LIST *)_ρaVςaVσaVk$CLS$ ρB#ςVhςVhςVh\8c ģ£ʣ£ʣρVhkbabb bf b`8 b`7 b`7bxbbba$$FN LEAFNAMEb$=bb0c cb| b`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LOISTYPE IY`2z@(*$ NO LIST *)!@"*********************************************************** @<"  OISTYPE - SYSTEM OPERATOR TASK TYPE DEFINITIONS * <" 13 NOVEMBER 1984 * @"*********************************************************** @$?COPY DSC.TEMPLATE.PTABLE.TYPES $"?COPY DSC.TEMPLATE.PTABLE.MRB ""?COPY DSC.TEMPLATE.PTABLE.IRB ""?COPY DSC.TEMPLATE.PTABLE.S02 ""?COPY DSC.TEMPLATE.PTABLE.S21 ""?COPY DSC.TEMPLATE.PTABLE.JSB ""?COPY DSC.TEMPLATE.PTABLE.TSB "(*$ NO LIST *)!" '@"----------------------------------------------------------- @&"  SECTION ONE: DEFINE POINTERS &@"----------------------------------------------------------- @" ' MRBPTR = @MRDBUFT;$" POINTER TO CHANNEL I/O BUFFER $. ORTPTR = @ORTENTT; " POINTER TO ORT ENTRY.4 UIDPTR = @UIDENTT;" POINTER TO IUD TABLE ENTRY 42JSBPTR = @JSB;" POINTER TO JOB STATUS BLOCK 2<PDTPTR = @PDT;" POINTER TO PHYSICAL DEVICE TABLE ENTRY<" '@"----------------------------------------------------------- @$"  SECTION TWO: DEFINE BUFFERS$@"----------------------------------------------------------- @" '4 DATBUFT = PACKED RECORD  " DATE AND TIME BUFFER4 DATYR: WORD; " YEAR DATDAY : WORD; " DAY  DATHR: WORD; " HOUR DATMIN : WORD; " MINUTE DATSEC : WORD" SECOND  END; " " '< MRDBUFT = PACKED RECORD " MASTER READ BUFFER (ALSO WRITE<)  CASE INTEGER OF 1:( " USED FOR MOVE @ MRDDAT : PACKED ARRAY [1..(MXRPLL+WRTRPL) DIV 2] OF WORD;);@ 2:(#0 MRDMRB : MRB;" USED TO ACCESS MRB FIELDS 0B MRDRES : PACKED ARRAY [1..(MXRPLL+WRTRPL-MXMRBL)] OF BYTE;); B 3:(#@ MRDHDR : PACKED ARRAY [1..WRTRPL] OF BYTE;" REAL MRB LENGTH@6 MRDCHB : PACKED RECORD " OPERATOR CHANNEL BUFFER 60CHNOPC : BYTE;" OPERATOR INTERFACE OPCODE 0CASE INTEGER OF  " INCOMING BUFFERS1:( 6CHNFLG : PACKED RECORD " OPERATOR INTERFACE FLAGS 6: CHFRAM : BOOLEAN; " RELAY ALL MESSAGES FOR 'ROM' CMD :< CHFNOR : BOOLEAN; " NO OPERATOR RESPO%%NSE FOR 'ROR' CMD << CHFNEG : BOOLEAN; " NEGATIVE OPERATOR RESPONSE FOR ROR <@< CHFRRQ : BOOLEAN; " RESPONSE REQUIRED FOR GENERAL REQ. <: CHFJID : BOOLEAN; " USER JID PASSED IN BUFFER FOR QRG:" CHFRES : BITS3  " RESERVED "  END;   CASE INTEGER OF " ROM, LOM, KOM COMMANDS 1:( >CHNSID : PACKED ARRAY [1..2] OF CHAR;);"STATION ID STRING > " POR, ROR COMMANDS 2:( (CHNRN1 : WORD; " REQUEST ID NUMBER (:CHNRS1 : BYTE;" FILLER TO PUT ARRAY ON WORD BOUNDARY:"CHNPC1 : BYTE;" PROMPT COUNT"<CHNRD1 : PACKED ARRAY [1..MXRPDL] OF BYTE;);"REPLY DATA < " GENERAL REQUEST 3:( :CHNJID : WORD;" JOB ID OF ACTUAL USER MAKING REQUEST:0CHNTOC : BYTE;" TIMEOUT COUNT (IN MINUTES) 0"CHNPC2 : BYTE;" PROMPT COUNT" CHNDT1 : P 4ACKED ARRAY [1..MXRQDL] OF BYTE;);"REQUEST DATA 4);! " OUTGOING BUFFERS2:( 4CHNERC : BYTE; " OPERATOR INTERFACE ERROR CODE4 CASE INTEGER OF " GENERAL REQUEST 1:( :CHNRS2 : BYTE;" FILLER TO PUT ARRAY ON WORD BOUNDARY:"CHNPC3 : BYTE;" PROMPT COUNT"<CHNRD2 : PACKED ARRAY [1..MXRPDL] OF BYTE;);"REPLY DATA < " READ 2:( (CHNRN2 : WORD; " REQUEST ID NUMBER ($CHNUID : ALFA;" USER ID STRING$:CHNTIM : PACKED ARRAY [1..6] OF CHAR;"TIME OF REQUEST :$" BYTE 6 OF TIME REFLECTS CHFRRQ $@CHNDT2 : PACKED ARRAY [1..MXTXTL+1] OF BYTE;);"REQUEST TEXT @" POR COMMAND 3:( (CHNRD3 : WORD; " REQUEST ID NUMBER (CHNRS3 : BYTE;*" FILLER TO PUT ARRAY ON WORD BOUNDARY*"CHNPC5 : BYTE;" PROMPT COUNT">CHNDT3 : PACKED ARRAY [1..MXRQDL] OF BYTE;);"REQUEST DATA >);!END;  ); #  END; " " '4 ADRSTR = PACKED RECORD " MAILBOX ADDRESS BUFFER 4& MAXLEN : BYTE; " MAXIMUM LENGTH&& LENGTH : BYTE; " ADDRESS LENGTH&2 CH : PACKED ARRAY [1..4] OF CHAR " ADDRESS 2  END; " " ':LOGBUFT = PACKED ARRAY [1..256] OF CHAR;" LOG MESSAGE : " NOTE: CHAR[1] IS LENGTH " '@"----------------------------------------------------------- @,"  SECTION THREE: DEFINE TABLE ENTRIES,@"----------------------------------------------------------- @" '" ORTENTT = PACKED RECORD " OPER" ATOR REQUEST TABLE ENTRY 0 ORTFLK : ORTPTR;  " FORWARD LINK IN CHAIN 00 ORTBLK : ORTPTR;  " BACKWARD LINK IN CHAIN 08 ORTTFL : ORTPTR; " FORWARD LINK IN TIMEOUT CHAIN 88 ORTTBL : ORTPTR; " BACKWARD LINK IN TIMEOUT CHAIN 82 ORTTOT : LONGINT; " TIMEOUT TIME (IN TICKS) 2& ORTUID : ALFA; " USER ID STRING&* ORTREQ : WORD;  " REQUEST ID NUMBER *$ ORTRSP : WORD; " RESPONDER ID$"  #0000 => NO RESPONDER $" #FFFF => OPERATOR RESPONDING$*"  ELSE => PTR TO UID ENTRY OF RESP.*. ORTFLG : PACKED RECORD " ORT ENTRY FLAGS .0ORFSNT : BOOLEAN; " MESSAGE SENT TO OPERATOR 0*ORFRRQ : BOOLEAN; " RESPONSE REQUIRED * ORFRES : BITS14 " RESERVED END;  ORTMR8B : MRBPTR; " POINTER TO PACKED MRDBUF FOR REQUEST88 ORTRQT : PACKED ARRAY [1..5] OF CHAR;" REQUEST TIME 8  END; " " '< UIDENTT = PACKED RECORD " USER ID TABLE ENTRY ('ROM') <0 UIDFLK : UIDPTR;  " FORWARD LINK IN CHAIN 00 UIDBLK : UIDPTR;  " BACKWARD LINK IN CHAIN 0& UIDUID : ALFA; " USER ID STRING&. UIDJSB : JSBPTR;  " JSB ADDRESS FOR USER.( UIDJID : WORD;  " JOB ID FOR USER (> UIDSID : PACKED ARRAY [1..2] OF CHAR;" STATION ID OF USER>@ UIDRPT : ORTPTR; " POINTER TO REQUEST BEING RESPONDED TO @4 UIDALL : BOOLEAN;" RECEIVE ALL MESSAGES FLAG 4""  TRUE => SEND ALL MESSAGES "*"  FALSE => SEND ONLY USERID MATCHES*( UIDOPR : BOOLEAN  " USER IS OPERATOR(  FLAG  END; " " ' (*$ NO WARNINGS *) (*$ RESUME LIST *) WORD;  "LOCATION OF MOVE DATA FILENAME8<LSTNAM : DEV"k4|`4@ end;(*MSG*)"( DISK_ADDRESS = recordADUNUM : WORD; SECOFF : WORD;  end;(*DISK_ADDRESS*) ( TAPE_REC = record  VERIFIED : boolean; COUNT  : longint; end;(*TAPE_REC*) (,PRM_ARRAY = array[1..DUMY_INDEX]of C96; ,PRM_PTR = @PRM_ARRAY; (>"THE FOLLOWING TYPES ARE USED IN TRACING PATHNAMES IN THE >"WRITE BUFFERS. F!" NOTE-- WE WILL ALLOW FOR 1 DIRECTORY PATH PER EVERY 7 FILES THATFD"  COULD POSSIBLY FIT IN THE SPACE ALLOCATED TO THESE BUFFERS D(ORS PIt(3z(*$ NO LIST *)?"************************************************************ ?"** 5"* OFFSETS FOR REGISTER STACK  (ORS) 06/21/79 * 5'"*FOR ASSEMBLY LANGUAGE USE ONLY * '?"************************************************************ ? OR9 = PACKED RECORD  OR9: WORD; "  OR8: WORD; "  OR7: WORD; "  OR6: WORD; "  OR5: WORD; "  OR4: WORD; "  OR3: WORD; "  OR2: WORD; "  OR1: WORD; " END; (*$ RESUME LIST *)`FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LPICTCON PIw!2z@(*$ NO LIST*) !B"************************************************************* B(" CONSTANTS FOR THE PICTURE PROGRAM.(B"************************************************************* B CADDR= 'ADDR ';  CARRAY = 'ARRAY ';  CBITS= 'BITS ';  CBYTE= 'BYTE ';  CBSS = 'BSS ';  CCHAR= 'CHAR ';  CCOPY= 'COPY ';  CCEND= 'CEND ';  CCSEG= 'CSEG ';  CDATA= 'DATA ';  CDORG= 'DORG ';  CECHO= 'ECHO ';  CENDREC= 'ENDREC';  CEQU = 'EQU ';  CEVEN= 'EVEN ';  CFLAGS = 'FLAGS ';  CFLAG= 'FLAG ';  CINT = 'INT ';  CLONG= 'LONG ';  CPAGE= 'PAGE  ';  CPCKREC= 'PCKREC';  CPOSINT= 'POSINT';  CPTR = 'PTR ';  CREC = 'REC ';  CRORG= 'RORG ';  CVARNT = 'VARNT ';  CWORD= 'WORD '; (*$ LIST*)#SICAL DEVICE TABLE ENTRY<" '@"----------------------------------------------------------- @$"  SECTION TWO: DEFINE BUFFERS$@"----------------------------------------------------------- @" '4 DATBUFT = PACKED RECORD  " DATE AND TIME BUFFER4 DATYR: WORD; " YEAR DATDAY : WORD; " DAY  DATHR: WORD; " HOUR DATMIN : WORD; " MINUTE DATSEC : WORD" SECOND  END; " " '< MRDBUFT = PACKED RECORD " MASTER READ BUFFER (ALSO WRITE<XOITYPE I}b2z@(*$ NO LIST *)!@"*********************************************************** @>"  XOITYPE - OPERATOR INTERFACE TASK TYPE DEFINITIONS * >" 02 DECEMBER 1980 * @"*********************************************************** @$?COPY DSC.TEMPLATE.PTABLE.TYPES $"?COPY DSC.TEMPLATE.PTABLE.IRB ""?COPY DSC.TEMPLATE.PTABLE.S0F ""?COPY DSC.TEMPLATE.PTABLE.S41 ""?COPY DSC.TEMPLATE.PTABLE.S42 "(*$ NO LIST *)!" '@"----------------------------------------------------------- @&"  SECTION ONE: DEFINE POINTERS &@"----------------------------------------------------------- @" '0PRPTR = @PRSTRT; " POINTER TO PROMPT STRING 0*IVPTR = @IVSTRT; " POINTER TO INIT VAL * STRING " '@"----------------------------------------------------------- @$"  SECTION TWO: DEFINE BUFFERS$@"----------------------------------------------------------- @" ', WRTBUFT = PACKED RECORD " WRITE BUFFER,2 CHNOPC : BYTE; " OPERATOR INTERFACE OPCODE 26 CHNFLG : PACKED RECORD " OPERATOR INTERFACE FLAGS 68CHFRAM : BOOLEAN; " RELAY ALL MESSAGES FOR 'ROM' CMD8:CHFNOR : BOOLEAN; " NO OPERATOR RESPONSE FOR 'ROR' CMD::CHFNEG : BOOLEAN; " NEGATIVE OPERATOR RESPONSE FOR ROR::CHFRRQ : BOOLEAN; " RESPONSE REQUIRED FOR GENERAL REQ.::CHFJID : BOOLEAN; " USER JID PASSED IN BUFFER FOR QRG :CHFRES : BITS3" RESERVEDEND; CASE INTEGER OF " ROM, LOM, KOM COMMANDS  1:(#> CHNSID : PACKED ARRAY [1..2] OF CHAR;);"STATION ID STRING> " POR, ROR COMMANDS  2:(#* CHNRID : WORD;  " REQUEST ID NUMBER *< CHNRES : BYTE; " FILLER TO PUT ARRAY ON WORD BOUNDARY<$ CHNPRC : BYTE; " PROMPT COUNT$< CHNRPD : PACKED ARRAY [1..MXRPDL] OF BYTE;);"REPLY DATA <" COM COMMAND  3:(#0 CHNJID : WORD;  " JOB ID FIELD (NOT USED) 00 CHNTOC : BYTE;  " TIMEOUT COUNT (MINUTES) 0$ CHNPC2 : BYTE; " PROMPT COUNT$: CHNDAT : PACKED ARRAY [0..MXDFTL] OF CHAR;);"MESSAGE :  END; " " '* RDBUFT%% = PACKED RECORD" READ BUFFER *2 CHNOPC : BYTE; " OPERATOR INTERFACE OPCODE 2. CHNERC : BYTE;  " OPERATOR INTERFACE ERROR.  CODE * CHNRID : WORD;  " REQUEST ID NUMBER *& CHNUID : ALFA; " USER ID STRING&: CHNTIM : PACKED ARRAY [1..6] OF CHAR;"TIME OF REQUEST :&" BYTE 6 OF CHNTIM REFLECTS CHFRRQ&> CHNDAT : PACKED ARRAY [0..MXTXTL] OF BYTE;" REQUEST TEXT >  END; " " ', RPLBUFT = PACKED RECORD " REPLY BUFFER,2 CHNOPC : BYTE; " OPERATOR INTERFACE OPCODE 26 CHNERC : BYTE; " OPERATOR INTERFACE ERROR CODE 6" '8"  REMAINDER OF RECORD USED ONLY FOR POR COMMANDS 8" '* CHNRID : WORD;  " REQUEST ID NUMBER *< CHNRES : BYTE; " FILLER TO PUT ARRAY ON WORD BOUNDARY<$ CHNPRC : BYTE; " PROMPT COUNT$< CHNDAT : PACKED ARRAY [1..MXRQDL] OF BYTE;"REQUEST DATA <  END; " " '2 DSPBUFT = PACKED RECORD  " CRT DISPLAY BUFFER22 CH : PACKED ARRAY [1..MXMSGL] OF CHAR "STRING2  END; " " '@"----------------------------------------------------------- @6"  SECTION THREE: DEFINE SPECIAL STRING RECORDS 6@"----------------------------------------------------------- @" ', PRSTRT = PACKED RECORD" PROMPT STRING ,& MAXLEN : BYTE; " MAXIMUM LENGTH&& LENGTH : BYTE; " ACTUAL LENGTH &2 CH : PACKED ARRAY [1..MXPRTL] OF CHAR " TEXT 2  END; " " '@ IVSTRT = PACKED RECORD" INITAL VALUE/RETURNED VALUE STRING@& MAXLEN : BYTE; " MAXIMUM LENGTH&& LENGTH : BYTE; " ACTUAL LENGTH &2 CH : PACKED ARRAY [1..MXDFTL] OF CHAR " TEXT 26  END; " " '>STRING09 = PACKED ARRAY [0..9] OF CHAR;" PATHNAME FOR LOM >:CH14 = PACKED ARRAY [1..14] OF CHAR;" 14 CHAR STRING :" ' (*$ RESUME LIST *); " " '4 ADRSTR = PACKED RECORD " MAILBOX ADDRESS BUFFER 4& MAXLEN : BYTE; " MAXIMUM LENGTH&& LENGTH : BYTE; " ADDRESS LENGTH&2 CH : PACKED ARRAY [1..4] OF CHAR " ADDRESS 2  END; " " ':LOGBUFT = PACKED ARRAY [1..256] OF CHAR;" LOG MESSAGE : " NOTE: CHAR[1] IS LENGTH " '@"----------------------------------------------------------- @,"  SECTION THREE: DEFINE TABLE ENTRIES,@"----------------------------------------------------------- @" '" ORTENTT = PACKED RECORD " OPER"CGR PI2z@(*$ NO LIST *)>"***********************************************************>"* *2"* CONTROL GROUP RECORD(CGR)  08/30/79  *2"* *"* LOCATION: DISK  *>"***********************************************************> CGR = PACKED RECORD . CGRCGR : WORD;  "NEXT CONTROL GROUP RECORD.1 CGRCNT : BYTE; "MAX NUMBER OF CONTROL GROUPS 1/ CGRAVL : BYTE; "AVAILABLE NUMBER OF GROUPS /= CGRCG1 : PACKED ARRAY [ 1.. 8 ] OF CHAR; "CONTROL GROUP 1 =9 CGRAT1 : PACKED RECORD "ATTRIBUTES FOR CONTROL GROUP 9#CGFACT : 0.. 1; "USER IS ACTIVE #*CGFDCG : 0.. 1;  "DEFAULT CONTROL GROUP*)CGFCGL : 0.. 1;  "CONTROL GROUP LEADER ) FILL00 : 0..8191; END; CGRCG2 : PACKED ARRAY [% 1.. 8 ] OF CHAR; "CONTROL GROUP 2 %1 CGRAT2 : WORD; "ATTRIBUTES FOR CONTROL GROUP 1= CGRCG3 : PACKED ARRAY [ 1.. 8 ] OF CHAR; "CONTROL GROUP 3 =1 CGRAT3 : WORD; "ATTRIBUTES FOR CONTROL GROUP 1= CGRCG4 : PACKED ARRAY [ 1.. 8 ] OF CHAR; "CONTROL GROUP 4 =1 CGRAT4 : WORD; "ATTRIBUTES FOR CONTROL GROUP 1= CGRCG5 : PACKED ARRAY [ 1.. 8 ] OF CHAR; "CONTROL GROUP 5 =1 CGRAT5 : WORD; "ATTRIBUTES FOR CONTROL GROUP 1END; (*$ RESUME LIST *)PERATOR INTERFACE TASK TYPE DEFINITIONS * >" 02 DECEMBER 1980 * @"*********************************************************** @$?COPY DSC.TEMPLATE.PTABLE.TYPES $"?COPY DSC.TEMPLATE.PTABLE.IRB ""?COPY DSC.TEMPLATE.PTABLE.S0F ""?COPY FDR PIJ3xz@(*$ NO LIST *)?"************************************************************ ?"** 3"* FILE DESCRIPTION RECORD  (FDR)09/09/83* 3"** "* LOCATION: DISK * ?"************************************************************ ??"* THE FDR IS THE DISK-RESIDENT FILE DESCRIPTOR TELLING WHERE ?>"* THE FILE RESIDES, ITS CHARACTERISTICS, AND SECURITY DATA.>="* SECURITY DATA IS STORED IN ACCESS CONTROL ENTRIES (ACEs) ="*ACE = PACKED RECORD ? ACEAGN : PACKED ARRAY [ 1.. 8 ] OF CHAR; "ACCESS GROUP NAME ?" ACEFLG : PACKED RECORD "FLAGS"' ACERDF : BOOLEAN;  "READ ACCESS FLAG '( ACEWRF : BOOLEAN;  "WRITE ACCESS FLAG() ACEDLF : BOOLEAN;  "DELETE ACCESS FLAG ) ACEEXF : BOOLEAN;  "EXECUTE ACCESS FLAG* ACECTF : BOOLEAN;  "CONTROL ACCESS FLAG* FILL00 : 0..2047; END;END;"* FDR = PACKED RECORD # FDRHKC : WORD; "HASH KEY COUNT ## FDRHKV : WORD; "HASH KEY VALUE #7 FDRFNM : PACKED ARRAY [ 1.. 8 ] OF BYTE; "FILE NAME 76 FDRRSV : PACKED ARRAY [ 1.. 2 ] OF BYTE; "RESERVED6) FDRFL1 : PACKED RECORD "FLAGS WORD 1 )' FDFSEC : BOOLEAN;  "FILE SECURED BIT ' FILL01 : 0..32767;END;) FDRFLG : PACKED RECORD "FLAGS WORD 2 )$FDFFU : 0.. 3; "FILE USAGE BITS$%FDFFMT : 0.. 3;  "FILE FORMAT BITS %+ FDFALL : BOOLEAN;  "EXTENDABLE FILE FLAG +#FDFFT : 0.. 3; "FILE TYPE BITS #( FDFWPB : BOOLEAN;  "WRITE PROTECT BIT( FDFDPB : BOOLEAN; "DELETE  PROTECT BIT * FDFTMP : BOOLEAN;  "TEMPORARY FILE FLAG*( FDFBLB : BOOLEAN;  "BLOCKED FILE FLAG(% FDFALI : BOOLEAN; "ALIAS FLAG BIT %3 FDFFWT : BOOLEAN; "FORCED WRITE/PARTIAL LOGGING 3FILL02 : 0.. 3; $ FDFCDR : BOOLEAN; "RECORD IS CDR$END;) FDRPRS : WORD;  "PHYSICAL RECORD SIZE )( FDRLRS : WORD;  "LOGICAL RECORD SIZE(, FDRPAS : WORD;  "PRIMARY ALLOCATION SIZE,/ FDRPAA : WORD; "PRIMARY ALLOCATION ADDRESS /. FDRSAS : WORD;  "SECONDARY ALLOCATION SIZE.- FDRSAA : WORD;  "OFFSET OF SCONDARY TABLE -1 FDRRFA : WORD; "RECORD NUMBER OF FIRST ALIAS 1I$ FDREOM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "END OF MEDIUM RECORD NUMBER I> FDRBKM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "END OF MEDIUM BL> OCK NUMBER * FDROFM : WORD;  "END OF MEDIUM OFFSET/*C! FDRFBQ : PACKED ARRAY [ 1.. 4 ] OF BYTE; "FREE BLOCK QUEUE HEAD C) FDRBTR : WORD;  "B-TREE ROOTS BLOCK # )? FDREBQ : PACKED ARRAY [ 1.. 4 ] OF BYTE; "EMPTY BLOCK QUEUE ?. FDRKDR : WORD;  "KEY DESCRIPTIONS RECORD #.> FDRUD: PACKED ARRAY [ 1.. 6 ] OF BYTE; "LAST UPDATE DATE>; FDRCD: PACKED ARRAY [ 1.. 6 ] OF BYTE; "CREATION DATE ;$ FDRAPB : BYTE; "ADU'S PER BLOCK$# FDRBPA : BYTE; "BLOCKS PER ADU #, FDRMRS : WORD;  "MINIMUM KIF RECORD SIZE,H# FDRSAT : PACKED ARRAY [ 1..64 ] OF BYTE; "SECONDARY ALLOCATION TABLEH6 FDRRES : PACKED ARRAY [ 1..10 ] OF BYTE; "RESERVED6E" FDRUID : PACKED ARRAY [ 1.. 8 ] OF BYTE; "USER ID OF FILE CREATOR EH/ FDRPSA : WORD; "PUBLIC SECURITY ATTRIBUTES /F FDRACE :PACKED ARRAY [ 1.. 9] OF ACE ; "9 ACCESS CONTROL ENTRIESF6 FDRFIL : PACKED ARRAY [ 1..12 ] OF BYTE; "NOT USED6END; (*$ RESUME LIST *)RBTR DATA 0  B-TREE ROOTS BLOCK #(&FDREBQ BSS4  EMPTY BLOCK QUEUE &.FDRKDR DATA 0  KEY DESCRIPTIONS RECORD # .$FDRUD BSS6 LAST UPDATE DATE$"FDRCD BSS6 CREATION DATE "$FDRAPB BSS1 ADU'S PER BLOCK $"FDRBPA BSS1 BLOCKS PER ADU",FDRMRS DATA 0  MINIMUM KIF RECORD SIZE ,.FDRSAT BSS64 SECONDARY ALLOCATION TABLE .FDRRES BSS10RESERVED* '"* START OF ACCESS GROUP DATA "* ',FDRUID BSS8  USER ID OF FILE CREATOR ,FDRPSA DATA 0 SCA PI3$z@(*$ NO LIST *)C!"**************************************************************** C/"* SYSTEMS COMMUNICATION AREA (SCA) 1/09/80 /"*-"* TERMINAL ENTRY DEFINITION ON FILE .S$SCA -"*C!"**************************************************************** C SCA = PACKED RECORD ? SCADN: PACKED ARRAY [ 1.. 4 ] OF CHAR; "SCA DEVICE NUMBER ? FILL00 : BYTE; " = SCAUID : PACKED ARRAY [ 1.. 8 ] OF CHAR; "DEFAULT USER ID = FILL01 : BYTE; " D! SCACCD : PACKED ARRAY [ 1..16 ] OF CHAR; "DEFAULT ACCOUNT NUMBERD FILL02 : BYTE; " > SCAPSD : PACKED ARRAY [ 1.. 8 ] OF CHAR; "DEFAULT PASSCODE> FILL03 : BYTE; " > SCAJND : PACKED ARRAY [ 1.. 8 ] OF CHAR; "DEFAULT JOB NAME>  FILL04 :  BYTE; " . FILL05 : PACKED ARRAY [ 1..23 ] OF BYTE; ".# SCALG: BYTE; "LOGIN REQUIRED # SCAMD: BYTE; "VDT MODE + SCAJN: BYTE;  "DON'T SOLICIT JOB NAME +' SCARC: BYTE;  "RECONNECT DISABLED '+ SCAAC: BYTE;  "SOLICIT ACCOUNT NUMBER +/ SCASL: BYTE; "SOLICIT NAME MANAGER FILES /! SCAOFF : BYTE; "TERMINAL OFF !% SCADFM : BYTE;  "VDT MODE DEFAULT %END; (*$ RESUME LIST *)A : WORD;  "VOLUME DIRECTORY ADU SC0 -4 SC0VPL : WORD; "VCATALOG PHYSICAL RECORD LENGTH4  SC0SPA : WORD; "SEC%%TORS/ADU @ SC0DCD : PACKED ARRAY [ 1.. 4 ] OF BYTE; "DISK CREATION DATE@B SC0PF1 : PACKED ARRAY [ 1.. 8 ] OF BYTE; "PRIMARY PROGRAM FILEB* SC0PF2 : PACKED ARRAY [ 1.. 8 ] OF BYTE*S02 PI 3z(*$ NO LIST *)A "************************************************************** A"** 1"* DELAY TASK SVC BLOCK (S02) 05/14/80 * 1"** A "************************************************************** AS02 = PACKED RECORD + S02SVC : BYTE;  "DELAY TASK OP CODE=#02 +* S02ERC : BYTE;  "DELAY TASK ERROR CODE*8 S02ICT : WORD; "INTERVAL COUNT FOR DELAY(50 MS INT)8END; (*$ RESUME LIST *)`=$4R$PROGkk ))=$4RS$NEWρǂ;‘k$Բ« j @k$4REST$TρOlҬ J ρR¬ρ@Zk$BREWRT$ρOl¡ρR¡ ¬ JρRLk R$EOF ҡ J LNFERE0 PI3 Iz@(*$ NO LIST *) NFERE0 : PACKED RECORD?"************************************************************ ?"** ;"*NFERE0- ERROR CONSTANTS COMMON AREA # 1505/04/83* ;"** ?"************************************************************ ?/ ERRE0: BYTE; "DSKMGR -ALLOCATION FAILURE /2 ERRE1: BYTE; "DSKMGR -INVALID ADU SPECIFIED2/ ERRE2: BYTE; "DSKMGR -INVALID BLOCK SIZE /2 ERRE3: BYTE; "DSKMGR -DISK IS NOT INSTALLED29 ERRE4: BYTE; "DSKMGR -BIT ALREADY IN DESIRED STATE 95 ERRE5: BYTE; "SVC00 -BAD CALL BLOCK ACCORDING 52 ERRE6: BYTE; "IPC -NON-SH REQUESTER CLOSED23 ERRE7: BYTE; "IPC -NON-SH REQUESTER ABORTED 30 ERRE8: BYTE; "SVC00 -INVALID PASSCODE-DI0 AG PORT 9 ERRE9: BYTE; "SVC00-INVALID TILINE CMD-DIAG PORT 97 ERREA: BYTE; "SVC00-OFFSET ACTIVE ON DISK HEAD 76 ERREB: BYTE; "SVC00 -VOLUME UNLOADED/DOOR OPEN65 ERREC: BYTE; "IPC-NON-SH CHAN ALREADY IN USE 52 ERRED: BYTE; "SVC00 -SECURITY VIOLATION ON22 ERREE: BYTE; "SVC00 -SECURITY VIOLATION ON24 ERREF: BYTE; "SVC00 -VALIDATION ERROR (DIOU)4END; (*$ RESUME LIST *) h( !  ! PgE `#΋$Hê'!!!(!g D*'g DD gg DDD  'g DD g' gE `#΋$L! /// '` "(` "`#Ƌ!$>>SOB PI&3z(*$ NO LIST *)?"************************************************************ ?"** 1"* SEGMENT OWNER BLOCK  (SOB) 09/23/81 * 1"** "* LOCATION: SMT* ?"************************************************************ ?="* THE SOB IS USED TO IDENTIFY THE TASK WHICH HAS EXCLUSIVE =0 "* USE OF A SEGMENT. IT IS LINKED TO THE SSB.0 SOB = PACKED RECORD / SOBJSB : @JSB ; "JSB ADDRESS OF SSB OWNER // SOBTSB : @TSB ; "TSB ADDRESS OF SSB OWNER /END; (*$ RESUME LIST *)"SEGMENT MANAGER SUB-OPCODE /! SMRLUN : BYTE; "LOGICAL UNIT !" SMRFLG : PACKED RECORD "FLAGS"# SMFINS : BOOLEAN; "INSTALLED ID ## SMFNMD : BOOLEAN; "NOT MODIFIED # SMFREL : BOOLEAN; "RELEANFCONS PI&3 z@(*$ NO LIST *) NFWORD : PACKED RECORD WD0003 : WORD; "(3) WD0005 : WORD; "(5) WD0006 : WORD; "(6) WD0007 : WORD; "(7) WD0009 : WORD; "(9) WD000A : WORD; "(10)  WD000C : WORD; "(12)  WD000D : WORD; "(13)  WD000E : WORD; "(14)  WD000F : WORD; "(15)  WD0012 : WORD; "  WD0018 : WORD; "(24)  WD003C : WORD; "(60)  WD0064 : WORD; "(100) WD00FD : WORD; "  WDFF00 : WORD; "  WDFFFF : WORD; "(-1)  WD8000 : WORD; "  WD4000 : WORD; "  WD2000 : WORD; "  WD1000 : WORD; "  WD0800 : WORD; "  WD0400 : WORD; "  WD0200 : WORD; "  WD0100 : WORD; "  WD0080 : WORD; "  WD0040 : WORD; "  WD0020 : WORD; "  WD0010 : WORD; "  WD0008 : WORD; "  WD0004 : WORD; "  WD0002 : WORD; "  WD0001 : WORD; "  WDFE00 : WORD; " END;****************************************>*  *8*  NFERR3 - ERROR CONSTANTS >80 => >BF 08/14/81 *8*  *>************************************************************>" COPY DSC.TEMPLATE.COMMON.NFER80"" COPY DSC.TEMPLATE.COMMON.NFER90"" COPY DSC.TEMPLATE.COMMON.NFERA0"" COPY DSC.TEMPLATE.COMMON.NFERB0" LIST  UNL>************************************************************>*  *8*  NFERR4 - ERROR CONSTANTS >C0 => >FF 08/14/81 *8*  ***************DPRPAS P I)2 z@(*$ NO LIST *)!@"*********************************************************** @ "* * 6"* DIOU DEVICE PARAMETERS(DPR)  03/11/83  * 6 "* * ."* USED IN CODE THAT PROCESSES A DCB * . "* * <"*NOTE: THIS TEMPLATE AND THE ASSEMBLER LANGUAGE  * <4"* VERSION MUST ALWAYS HAVE CORRESPONDING  * 4"* CHANGES MADE. * @"*********************************************************** @*"*PARAMETER RANGE  PARAMETER USAGE**"*---------------  ---------------*&"* >01 - >5F OPERATING SYSTEM &""* >60 - >FF NOT SUPPORTED""*'* DPRNAM = #01; "RO" DEVICE NAME *, DPRNUM = #02; "RO" DEVICE NUMBER , DPRFLG = #03; " WORD OF FLAGS ( DPRDSF = #04; " DEVICE STATUS (* DPRTYP = #05; "RO" DEVICE TYPE *( DPRJOB = #06; "RO" OWNER JOB (. DPRRPB = #07; "RO " RPB LIST HEADER .& DPRLC= #08; "RO" LUNO COUNT&$ DPRCDT = #09; " CDT NUMBER$" DPRCDE = #0A; " CDE MASK"* DPRPDT = #0B; "RO" PDT ADDRESS *0 DPRDTF = #0C; "RO " DEVICE TYPE FLAGS 0, DPRSTK = #0D;  " SECTORS PER TRACK ,. DPROHD = #0E;  " OVERHEAD PER RECORD .* DPRWTK = #0F;  " WORDS PER TRACK *6 DPRDRS = #10; " DEFAULT PHYSICAL RECORD SIZE 6: DPRFMS = #11; " VCAT FD SPECIAL AREA SSB ADDRESS:. DPRFDB = #12;  " VCATALOG FDB ADDRESS . DPRTFL = #13; " TEMP ORARY FILE NAME SEED & DPRECT = #14; " RETRY COUNT && DPRVNM = #15; " VOLUME NAME &( DPRCHR = #16; " BID CHARACTER (: DPRBLN = #17; " BUFFER LENGTH OR #VIRT TERMINALS: (*$ RESUME LIST *)RRAY [ 1.. 4 ] OF BYTE; "FREE BLOCK QUEUE HEAD C) FDRBTR : WORD;  "B-TREE ROOTS BLOCK # )? FDREBQ : PACKED ARRAY [ 1.. 4 ] OF BYTE; "EMPTY BLOCK QUEUE ?. FDRKDR : WORD;  "KEY DESCRIPTIONS RECORD #.  FDRUD: INUTES) 0$ CHNPC2 : BYTE; " PROMPT COUNT$: CHNDAT "k4`4@I$ FDREOM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "END OF MEDIUM RECORD NUMBER IH# FDRBKM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "END OF MEDIUM BLOCK NUMBERH) FDROFM : WORD;  "END OF MEDIUMDS923CP1P6IR3z@(*$ NO LIST *) EXT = PACKED RECORD ) EXTTMR : WORD;  "TIMER DURATION COUNT )* EXTCDY : WORD;  "DYNAMIC "CLICK" COUNT*) EXTCST : WORD;  "STATIC "CLICK" COUNT ) EXTFLG : WORD; "HSR FLAGS# EXTTMP : WORD; "TEMPORARY CELL ## EXTTM1 : WORD; "TEMPORARY CELL #/ EXTSPD : WORD; "SAVED SPEED SELECTION CODE /0 EXTPSL : WORD; "SAVED PARITY SELECTION CODE07 EXTLDC : WORD; "LOAD CRU INSTRUCTION FOR 9902/9903 7" EXTTYP : WORD; "HARDWARE TYPE", EXTOVR : WORD;  "RECEIVER OVERRUN ERRORS,+ EXTFER : WORD;  "RECEIVE FRAMING ERRORS +* EXTPER : WORD;  "RECEIVE PARITY ERRORS*END;"* 1C  CC  CS "* 0I  II  I3 "* /4  44  40 "* A0  22  20 !"* 12 2  11  2 EVDT ! "* 85 "* 99  99  99 !"* PP  99  99  99 !!"* II  00  00  00 !/"* NN  DESCRIPTION 22  23  22 /?"************************************************************ ??"*CON * 1 * PROTECTIVE GROUND * Y *Y * Y *Y * Y *Y * ?="* 1 * 2 * TRANSMIT DATA * Y *Y * Y *Y * Y *Y * =="*2 * 3 * RECEIVEDATA * Y *Y * Y *Y * Y *Y * =?"* 3 * 4 * REQUEST TO SEND * Y *Y * Y *Y * Y *Y * ?="* 4 * 5 * CLEAR TO SEND * Y *Y * Y *Y * Y *Y * =?"************************************************************ ?"*4"*************************************************4 *********** ?"* 5 * 6 * DATA SET READY  * Y$*Y * Y *Y * Y *Y * ?= "* 16 * 7 * S%%IGNAL GROUND * Y *Y * Y *Y * Y *Y * =?"*6 * 8 * DATA CARRIER DETEC* N$*Y * Y *Y * Y *N * ?9 "* -- * 9 * + VOLTAGE * N *N * N *N * N *N * 99 "* -- * 10 * - VOLTAGE * N *N * N *N * N *N * 9?"************************************************************ ?"*?"************************************************************ ?; "* -- * 11 * UNASSIGNED  * N *N * N *N * N *N * ;?"*8 * 12 * SDCD (OR SPEED I)* N *Y * Y *Y * Y *Y * ??"* 15 * 13 * ANALOG LOOPBACK * Y *Y * N *N * N *N * ?="* 9 * 14 * SEC XMIT DATA * N *N * N *N * N *N * ="* 10 9 * 15 * DCE XMIT CLOCK  * N *N * N *Y * N *N * 9?"************************************************************ ?"*?"************************************************************ ?= "* -- * 16 * SEC RCV DATA  * N *N * N *N * N *N * == "* 11 * 17 * DCE RCV CLOCK * N *N * N *Y * N *N * =; "* -- * 18 * UNASSIGNED  * N *N * N *N * N *N * ;?"*7 * 19 * SEC REQUEST TO SND* N *Y * Y *Y * N *N * ??"* 12 * 20 * DATA TERM READY * Y *Y * Y *Y * Y *N * ??"************************************************************ ?"*?"************************************************************ ??"* -- * 21 * SIGNAL QUAL DETECT* N *N * N *N * N *N * ? "* 13 * 22 5 * RING INDICATOR  * Y *Y * Y *Y * Y *N * 55 "* -- * 23 * DSRS  * N *N * N *N * N *N * 5?"* 14 * 24 * DTE XMIT CLOCK  * N *N * N *Y * N *N * ?; "* -- * 25 * UNASSIGNED  * N *N * N *N * N *N * ;?"************************************************************ ?"*="* $ - DCD IS NOT IMPLEMENTED ON THIS INTERFACE. DCD OR DSR =:"* MAY BE JUMPERED AS SOURCE FOR DSR CHIP INPUT ON THE: "* 9902. "* 1C  CC  CS "* 0I  II  I3 "* /4  44  40 "* A0  22  20  "* 12 2  11  2EVDT "* 85 "* 99  99  99 !"* PP  99  99  99 !!"* II  00  00  00 !"* N)N  DESCRIPTION 22  23  22 )?"************************************************************ ??"*CON * 1 * PROTECTIVE GROUND * Y *Y * Y *Y * Y *Y * ?="* 1 * 2 * TRANSMIT DATA * Y *Y * Y *Y * Y *Y * =="*2 * 3 * RECEIVEDATA * Y *Y * Y *Y * Y *Y * =?"* 3 * 4 * REQUEST TO SEND * Y *Y * Y *Y * Y *Y * ?="* 4 * 5 * CLEAR TO SEND * Y *Y * Y *Y * Y *Y * =?"* 5 * 6 * DATA SET READY  * Y$*Y * Y *Y * Y *Y * ??"************************************************************ ?"*?"************************************************************ ??"*6 * 8 * DATA CARRIER DETEC* N$*Y * Y *Y * Y *N * ?""*7 * 19 * SEC REQUEST TO SND*" N *Y * Y *Y * N *N * ?"*8 * 12 * SDCD (OR SPEED I)* N *Y * Y *Y * Y *Y * ?="* 9 * 14 * SEC XMIT DATA * N *N * N *N * N *N * =?"* 10 * 15 * DCE XMIT CLOCK  * N *N * N *Y * N *N * ??"************************************************************ ?"*?"************************************************************ ?= "* 11 * 17 * DCE RCV CLOCK * N *N * N *Y * N *N * =?"* 12 * 20 * DATA TERM READY * Y *Y * Y *Y * Y *N * ??"* 13 * 22 * RING INDICATOR  * Y *Y * Y *Y * Y *N * ??"* 14 * 24 * DTE XMIT CLOCK  * N *N * N *Y * N *N * ??"* 15 * 13 * ANALOG LOOPBACK * Y *Y * N *N * N *N * ?*"**************************************** ********************* "*?"************************************************************ ?= "* 16 * 7 * SIGNAL GROUND * Y *Y * Y *Y * Y *Y * =; "* 17 * -- * KEYING PIN  * Y *Y * Y *N * N *N * ;; "* 18 * -- * KEYING PIN  * Y *Y * Y *N * N *N * ;?"************************************************************ ?"*="* $ - DCD IS NOT IMPLEMENTED ON THIS INTERFACE. DCD OR DSR =:"* MAY BE JUMPERED AS SOURCE FOR DSR CHIP INPUT ON THE: "* 9902. "* 1  C C C C S"* 0  I I I I 3"* /  4 4 4 4 0"* A  0 2 2 2 0"*  2 1 1 2"*"* 9  9 9 9 9 9"* 9  9 9 9 9 9"* 0  0 0 0 0 0,"*FUNCTION NAME 2  2 2 3 2 2,9"****************************************************** 9"*  OUTPUT BITS"*9"****************************************************** 99"* ENBCOM 39* Y* Y* Y* Y* Y* Y* 99"* ENBINT 38* Y* Y* Y* Y* Y* Y* 99"* ENBHDP 37* N* Y* N* N* Y* N* 97"* SRTS 34* N* Y* Y* Y* N* N* 75"* AL 33* Y* Y* N* N* N* N* 55"* DTR32* Y* Y* Y* Y* Y* $* 59"****************************************************** 9"*"*  INPUT BITS 9"****************************************************** 9 "* REDCOM 39* N* Y * N* N* Y* Y* 9"* REDINT 38* N* Y* N* N* Y* $$* 99"* REDHDP 37* N* Y* N* N* Y* N* 97"* CLOCK36* Y* Y* Y* Y* Y* Y* 79"* CRU902 35* Y* Y* Y* Y* Y* Y* 97"* SDCD 34* N* Y* Y* Y* Y* $$* 77"* RING 33* Y* Y* Y* Y* Y* N* 75"* DCD32* N* Y* Y* Y* Y* N* 59"****************************************************** 9"*7"*$ - ENBCOM IS CONNECTED TO DTR ON THIS INTERFACE. 7"*5"* $$ - SDCD IS SENSED ON BIT 38 ON THIS INTERFACE. 5 "* REDINT IS NOT IMPLEMENTED. "*"*,"* OUTPUT BIT DEFINITION, EXTERNAL TO 9903,"*"*1"* OUTPUT BIT DEFINITION, EXTERNAL TO 9902/9903 1"*"*,"* OUTPUT BIT DEFINITION, INTERNAL TO 9903,"*"*"*"* 9903 PARAMETER EQUATES"*"*,"* OUTPUT BIT DEFINITION, INTERNAL TO 9902,0"*EQU 31  RESET (REQUIRES 11 CLOCK DELAY)01"*EQU 21  DATA SET CHANGE INTERRUPT ENABLE 1'"*EQU 20  TIMER INTERRUPT ENABLE '1"*EQU 19  TRANSMIT BUFFER INTERRUPT ENABLE 1*"*EQU 18  RECEIVER INTERRUPT ENABLE*"*EQU 15  TEST MODE&"*EQU 14  LOAD CONTROL REGISTER&'"*EQU 13  LOAD INTERVAL REGISTER '"*""*EQU 3 CLOCK DIVIDE SELECT""*EQU 2 NOT USED "*"*"* 9902 PARAMETER EQUATES"*"* "* INPUT B &IT DEFINITION, EXTERNAL TO 9902/9903&"*"* 0 = 4 MHZ "* 1 = 2.5 MHZ "* 0 = 9903"* 1 = 9902"*"*+"* INPUT BIT DEFINITION, INTERNAL TO 9903 +$"* 0-8 RECEIVE BUFFER REGISTER$"*+"* INPUT BIT DEFINITION, INTERNAL TO 9902 +6"*EQU 31  INTERRUPT (DSCINT!TIMINT!XBINT!RBINT)63"*EQU 30  FLAG (LDCTRL!LDIR!LRDR!LXDR!BRKON) 3'"*EQU 29  DATA SET CHANGE ENABLE '"*EQU 28  CLEAR TO SEND"*EQU 27  DATA SET READY "*EQU 25  TIMER ELAPSED"*EQU 24  TIMER ERROR/"*EQU 22  TRANSMIT BUFFER REGISTER EMPTY /&"*EQU 21  RECEIVE BUFFER LOADED&:"*EQU 20  DATA SET CHANGE INTERRUPT (DSCH & DSCENB):"*EQU 19  TIMER I NTERRUPT (TIMELP & TIMENB)!"*EQU 18  9902 PRESENT = 0 !2"*EQU 17  XMITTER INTERRUPT (XBRE & XBIENT)22"*EQU 16  RECEIVER INTERRUPT (RBRL & RIENB)2"*EQU 15  RECEIVE INPUT)"*EQU 14  RECEIVE START BIT DETECT )("*EQU 13  RECEIVE FULL BIT DETECT(&"*EQU 12  RECEIVE FRAMING ERROR& "*EQU 11  RECEIVE OVERRUN %"*EQU 10  RECEIVE PARITY ERROR %2"*EQU 9 RECEIVE ERROR (RFER ! ROVER ! RPER)2$"* 0-8 RECEIVE BUFFER REGISTER$"*"**"*RECEIVE CHARACTER STATUS FLAGS MASKS*"*"*3"*THIS COPY MODULE DEFINES SOME WORD CONSTANTS. 35"*IT IS INTENDED TO BE USED NO ONLY TO BE FOR ITS 54"*CONSTANT VALUES ONLY, BUT ALSO TO DEFINE OTHER462"*SECONDARY SYMBOLS USED FOR BIT MANIPULATION.2"* WDF060 : WORD; "  WDC060 : WORD; "  WD8000 : WORD; "  WD4000 : WORD; "  WD3000 : WORD; "  WD2000 : WORD; "  WD1000 : WORD; "  WD0F06 : WORD; "  WD0C06 : WORD; "  WD0800 : WORD; "  WD0400 : WORD; "  WD0300 : WORD; "  WD0200 : WORD; "  WD0100 : WORD; "  WD0080 : WORD; "  WD0040 : WORD; "  WD0020 : WORD; "  WD0010 : WORD; "  WD000A : WORD; "  WD0008 : WORD; "  WD0006 : WORD; "  WD0004 : WORD; "  WD0002 : WORD; "  WD0001 : WORD; "  WD0000 : WORD; " "*"* HSPPSL ROUTINE BIT MASKS"* @"*"*#"*TRANSMIT PROCESSING CONSTANTS #"*& FFULL: WORD;  "SIZE OF XMIT FIFO&"*"*, FILL00 : WORD;  "MACRO DEBUG INSTRUCTION,+ RCVRTN : WORD;  "RCV CHAR RETURN VECTOR +0 XMTRTN : WORD; "TRANSMIT CHAR RETURN VECTOR0. SIGRTN : WORD;  "SIGNAL/FUNC CHANGE VECTOR.0 TIMRTN : WORD; "TIMER EXPIRED RETURN VECTOR04 ILLRTN : WORD; "ILLEGAL INTERRUPT RETURN VECTOR4"* FILL01 : WORD; " %% FILL02 : WORD; "  FILL03 : WORD; " END;"*"*(PDXFLG)9"*FLAG BYTE IN THE LOCAL PDT EXTENSION CONTAINS FLAGS 97"*INDICATING THE EIA RS232C SIGNALS FOR WHICH THERE 76"*HAS BEEN A STATUS CHANGE NOTIFICATION REQUESTED.6 "* IF THERE HAS BEEN A REQUES  T FOR STATUS CHANGE 6"*NOTIFICATION ON SIGNAL "X" THEN THE BIT POSITION63"*CORRESPONDING TO SIGNAL "X" WILL CONTAIN A 1. 3"*8"*FOR TWO SIGNALS (TSRE AND RI), THERE WILL A STATUS86"*CHANGE NOTIFICATION ONLY WHEN THE SIGNAL CHANGES60"* FROM 0 TO 1 (OFF TO ON).WHEN ENABLED THE05"*NOTIFICATION FOR ALL OTHER SIGNALS WILL BE MADE 50"*FOR ANY STATUS CHANGE (0 --> 1 OR 1 -->0).0"*$"*0  12  34  56  7$0"* +----+----+----+----+----+----+----+----+08"* PDXFLG ! DCD! RI! DSR! CTS! DCD! RI! DSR! CTS!80"* +----+----+----+----+----+----+----+----+0"*&"*BIT 0 - DATA CARRIER DETECT ---+&*"* BIT 1 - RING INDICATOR !___ SIGNAL*"* BIT 2 - DATA SET READY !STATES&"*BIT 3 - CLEAR TO SEND ---------+&"*&"*BIT 4 - DATA CARRIER DETECT ---+&*"* BIT 5 - RING INDICATOR !___ NOTIFY*'"* BIT 6 - DATA SET READY !FLAGS '&"*BIT 7 - CLEAR TO SEND ---------+&"*"*(PDXSIG)7"*THIS BYTE IN THE LOCAL PDT EXTENSION CONTAINS THE 75"*CURRENT STATE (0 OR 1) OF SEVEN SIGNALS.THESE 5:"*ARE THE SIGNALS FOR WHICH STATUS CHANGE NOTIFICATION:3"*CAN BE REQUESTED. A VALUE OF 1 INDICATES THE 36"*CORRESPONDING SIGNAL IS 1 (ON,SET,POSITIVE,LOGIC67"*FALSE). A VALUE OF 0 INDICATES THE CORRESPONDING 72"*SIGNAL IS 0 (OFF,RESET,NEGATIVE,LOGIC FALSE)2"*"**"*8  9 10 11 12 13 14 15*"* +----+----+---- +----+----+----+----+----+4"* PDXFL1 !!SDCD!TSRE!  !!SDCD!TSRE!  !40"* +----+----+----+----+----+----+----+----+0"*"* BIT 8 - RESERVED 2"*BIT 9 - SECONDARY DATA CARRIER DETECT STATE2,"*BIT 10 - TRANSMIT SHIFT REGISTER EMPTY,"* BIT 11 - RESERVED "*"* BIT 12 - RESERVED 2"*BIT 13 - SEC DATA CARRIER DETECT NOTIFY FLAG28"*BIT 14 - TRANSMIT SHIFT REGISTER EMPTY NOTIFY FLAG8"* BIT 15 - RESERVED "* PDXFLG - FLAG DEFINITIONS ,"* THESE FLAGS INDICATE IF STATUS CHANGE,&"* NOTIFICATION HAS BEEN REQUESTED&"*"*"*7"*PDXFLG - FLAG DEFINITIONS USED TO REFERENCE SAVED 7"* SIGNAL VALUES"* (*$ RESUME LIST *)* 13 * 2  ROB PI3}z(*$ NO LIST *)?"************************************************************ ?"** 3"* RESOURCE OWNERSHIP BLOCK(ROB) 08/29/83* 3"** "* LOCATION: JCA* ?"************************************************************ ?@"* AN ROB IS BUILT FOR AN I/O RESOURCE WHEN AN ATTACH RESOURCE@< "* OPERATION IS PERFORMED.THE ROB IS LINKED INTO THE ROB<"* LIST ANCHORED IN THE JCA. ROB = PACKED RECORD ' ROBROB : @ROB ; "NEXT ROB ADDRESS '# ROBACT : BYTE; "ATTACHED COUNT #" ROBATN : BYTE; "ATTACH NUMBER" ROBFMT : @SSB ;"  ROBFCB : @FSC ;" END; (*$ RESUME LIST *) JSB ADDRESS(* RLTBN: LONGINT; "LOCKED BLOCK NUMBER* RLTOFF : WORD; "LOCKED OFSMR P I'3z@(*$ NO LIST *)>"***********************************************************>8"* SEGMENT MANAGEMENT REQUEST (SMR) 11/05/81  *8"* *&"*LOCATION: SYSTEM TABLE AREA  *&>"***********************************************************>;"* THE SMR IS A SEGMENT MANAGEMENT SVC BLOCK WITH SEVERAL ;9"* ADDITIONAL FIELDS DEFINED FOR USE BY SEGMENT MANAGER 9""* DURING PROCESSING OF THE SVC." SMR = PACKED RECORD  SMRSVC : BYTE; "SVC CODE  SMRERR : BYTE; "ERROR CODE / SMROP: BYTE; "SEGMENT MANAGER SUB-OPCODE /! SMRLUN : BYTE; "LOGICAL UNIT !" SMRFLG : PACKED RECORD "FLAGS"# SMFINS : BOOLEAN; "INSTALLED ID ## SMFNMD : BOOLEAN; "NOT MODIFIED # SMFREL : BOOLEAN; "RELEASABLE # SMFMBS : BOOLEAN; "MEMORY BASED #5 SMFPOS : BOOLEAN; "0 IF POSITION NUMBER SPECIFIED 5# SMFTSK : BOOLEAN; "TASK SEGMENT #2 SMFVLD : BOOLEAN; "VERIFY PROG. FILE LOAD ADDR2, SMFSRE : BOOLEAN;  "SET/RESET FLAG ENABLE,% SMFSEU : BOOLEAN; "SET/RESET FLAG %" SMFSYS : BOOLEAN; "SYSTEM TASK"FILL00 : 0..15; /SMFPSN : 0.. 3; "POSITION NUMBER(1,2, OR 3) /END;* SMRNS1 : WORD;  "NEW SEGMENT ID WORD 1** SMRNS2 : WORD;  "NEW SEGMENT ID WORD 2*# SMROSG : WORD; "OLD SEGMENT ID #$ SMRADR : WORD; "SEGMENT ADDRESS$# SMRLEN : WORD; "SEGMENT LENGTH #2 SMRATR : WORD; "SEGMENT ATTRIBUTE (AS IN SSB)2" SMRFMT : @SSB ;"FDP ADDRESS" SMRFCB : @FSC ;" END;(*$ RESUME LIST *)Z2 EQU$-SLBSLB3 DORG SLBVR2 TYPE 3 - ABNORMAL TASK TERMINATION 3,SLBWP WORD 0  WORKSPACE POINTER AT ERROR,!SLBPC WORD 0 PROGRAM COUNTER !!SLBST WORD 0 STATUS AT ERROR !SLBSZ3 EQU$-SLBSLB/ DORG SLBVR1 TYPE 4 - STATISTICS FROM A DSR /&SLBRDG WORD 0  NUMBER OF GOOD READS&'SLBWRG WORD 0  NUMBER OF GOOD WRITES '*SLBOTG WORD 0  NUMBER OF GOOD OTHER OPS*%SLBRDB WORD 0  NUMBER OF BAD READS %&SLBWRB WORD 0  NUMBER OF BAD WRITES&)SLBOTB WORD 0  NUMBER OF BAD OTHER OPS )SLBSZ4 EQU$-SLBSLB4 DORG SLBVR1 TYPE 5 - USER ISSUED SYSTEM LOG SVC4(SLBLEN BYTE 0  LENGTH OF USER MESSAGE( BYTE 0 RESERVED#SLBMXL EQU255 MAX USER LENGTH #SLBUMSNRB P J/3z@(*$ NO LIST *)>"***********************************************************>"* *,"* NAME REQUEST BLOCK(NRB) 09/09/83 *,"* *&"*LOCATION: SYSTEM TABLE AREA  *&>"***********************************************************> NRB = PACKED RECORD  NRBSOC : BYTE; "SVC CODE  NRBEC: BYTE; "ERROR CODE  NRBOC: BYTE; "SUBOPCODE+ NRBFLG : PACKED RECORD "USER SET FLAGS +2 NRFLOG : BOOLEAN; "LOG = 1, ELSE SYN OPERATION22 NRFINT : BOOLEAN; "INITIAL TASK IN JOB IF TRUE2/ NRFBID : BOOLEAN;  "BID = 1, TERMINATION = 0 /) NRFGLO : BOOLEAN;  "GLOBAL REQUEST = 1 )+ NRFRID : BOOLEAN;  "RUN ID SPECIFIED = 1 +1 NRFNMX : BOOLEAN; "NAME SEGMENT CANNOT EXPAND 1 NRFPRO :  BOOLEAN; "PROTECT NAME &NRF007 : 0.. 1;  "FLAG BIT 7 UNUSED&END;3 NRBNAM : @VSTG ;"PTR TO "NAME" (OR NAME LIST) 31 NRBVAL : @VSTG ;"PTR TO "VALUE" OR PATHNAME 1* NRBPRM : @VSTG ; "PTR TO "PARMS" LIST*CASE INTEGER OF   1 : ( " $ NRBPNO : WORD; "PATHNAME NUMBER$ NRBRSV : WORD; "RESERVED  NRBTSK : BYTE; "TASK ID! NRBSTG : BYTE; "STAGE NUMBER !+ NRBSMT : @SSB ; "SMT FOR NAME SEGMENT ++ NRBSSB : @SSB ; "SSB FOR NAME SEGMENT +( NRBVBL : BYTE;  "VALUE BUFFER LENGTH(( NRBPBL : BYTE;  "PARMS BUFFER LENGTH(4 NRBLNA : @VSTG ;"NAME POINTER -LOGICAL ADDRESS44 NRBLVA : @VSTG ;"VALUE POINTER-LOGICAL ADDRESS4, NRBLPA : @VSTG ; "PARMS POINTER-LOGICAL,  ADDRESS  );   2 : ( " ! NRBSSZ : WORD; "SEGMENT SIZE ! );   3 : ( " / NRBSPF : WORD; "SUCCESSOR/PREDECESSOR FLAG / ); END; (*$ RESUME LIST *)ATING ,.JSTEK>K>RTxO&+,@ .P#f *  # ) # ), " #   %   PPTCP  `P /'` " "$/('` "/(` "CI  B I /Jg!!!!D>( ( ! Dd   t "$/(` "Ę "!NFERR4 PJM3 z@(*$ NO LIST *) NFERC0 : PACKED RECORD?"************************************************************ ?"** ;"*NFERC0- ERROR CONSTANTS COMMON AREA # 1304/28/82* ;"** ?"************************************************************ ?3 ERRC0: BYTE; "FILMGR -RECORD TOO SMALL - KIF 3. ERRC1: BYTE;  "FILMGR -KIF NOT SUPPORTED.8 ERRC2: BYTE; "FILMGR -BLOCKED FILES NOT SUPPORTED85 ERRC3: BYTE; "FILMGR -UNABLE TO DO I/O ON OPEN 57 ERRC4: BYTE; "SVC00-RESERVED FOR COMPATIBILITY 7 ERRC5: BYTE; " 5 ERRC6: BYTE; "SVC00 -KIF FILE MUST BE REBUILT 56 ERRC7: BYTE; "FILMGR -EXPANDABLE FILES NOT SUPP68 ERRC8: BYTE; "SVC40-NOT ENOUGH MEMORY IN SYSTEM8 E0RRC9: BYTE; "SVC40 -SEGMGR TABLE OVERFLOW0/ ERRCA: BYTE; "IOU -BAD PARAMETER LENGTH /1 ERRCB: BYTE; "IOU -NOT ALL OF KIF SET WAS 12 ERRCC: BYTE; "IOU -NOT ALL SPECIFIED KIF'S24 ERRCD: BYTE; "IOU -CAN'T CONCAT. BLOCKED AND43%% ERRCE: BYTE; "IOU -CAN'T CONCAT. FILES WITH 35 ERRCF: BYTE; "FILMGR -INVALID WRITE TO CONCAT. 5END;6 ERRD0: BYTE; "FILMGR -OP. INVALID FOR FILE TYPE67 ERRD1: BYTE; "FILMGR -SELF CONFLICTING OPEN REQ. 72 ERRD2: BYTE; "FILMGR -RECORD ALREADY LOCKED2 ERRD3: BYTE; "  ERRD4: BYTE; " 6 ERRD5: BYTE; "FILMGR -SEQ. FILE STRUCTURE ERROR6 ERRD6: BYTE; " / ERRD7: BYTE; "SVC00 -ODD BUFFER ADDRESS /  ERRD8 /: BYTE; "FILMGR -ACCESS MODE DENIES REQUEST /6 ERRD9: BYTE; "FILMGR -FILE LOCATED AT FIRST REC67 ERRDA: BYTE; "FILMGR -SEC. ALLOCATION TABLE FULL 71 ERRDB: BYTE; "FILMGR -DEFERRED WRITE ERROR 15 ERRDC: BYTE; "FILMGR -RECORD CAN'T REP OLD ONE 51 ERRDD: BYTE; "FILMGR -WRITE PROTECTED FILE 17 ERRDE: BYTE; "FILMGR -UNABLE TO FIND PRIMARY KEY 79 ERRDF: BYTE; "IOU -LUNO RESERVED FOR SYSTEM USE(FF 9END;/ ERRE0: BYTE; "DSKMGR -ALLOCATION FAILURE /2 ERRE1: BYTE; "DSKMGR -INVALID ADU SPECIFIED2/ ERRE2: BYTE; "DSKMGR -INVALID BLOCK SIZE /2 ERRE3: BYTE; "DSKMGR -DISK IS NOT INSTALLED29 ERRE4: BYTE; "DSKMGR -BIT ALREADY IN DESIRED STATE 9 ERRE5: BYTE; #"SVC00 -BAD CALL BLOCK ACCORDING #2 ERRE6: BYTE; "IPC -NON-SH REQUESTER CLOSED23 ERRE7: BYTE; "IPC -NON-SH REQUESTER ABORTED 37 ERRE8: BYTE; "SVC00-INVALID PASSCODE-DIAG PORT 79 ERRE9: BYTE; "SVC00-INVALID TILINE CMD-DIAG PORT 97 ERREA: BYTE; "SVC00-OFFSET ACTIVE ON DISK HEAD 76 ERREB: BYTE; "SVC00 -VOLUME UNLOADED/DOOR OPEN65 ERREC: BYTE; "IPC-NON-SH CHAN ALREADY IN USE 52 ERRED: BYTE; "SVC00 -SECURITY VIOLATION ON22 ERREE: BYTE; "SVC00 -SECURITY VIOLATION ON24 ERREF: BYTE; "SVC00 -VALIDATION ERROR (DIOU)4END;9 ERRF0: BYTE; "SVC 00-FF -SVC UNDEFINED IN THIS CPU 97 ERRF1: BYTE; "SVC 00-FF -SVC NOT ALIGNED ON WORD 7 ERRF2: BYTE; &"SVC 00-FF -SVC REQUIRES SYSTEM TASK&9 ERRF3: BYTE; "SVC 00-FF -SVC REQUIRES SOFTWARE PRV 95 ERRF4: BYTE; "MANY SVCS -I/O ERROR ENCOUNTERED 5 ERRF5: BYTE; "  ERRF6: BYTE; " 7 ERRF7: BYTE; "SVC00-RESERVED FOR COMPATABILITY 76 ERRF8: BYTE; "SVC2B -NOT ENOUGH MEMORY IN SYS.64 ERRF9: BYTE; "SVC2B -PROG FILE NOT AVAILABLE43 ERRFA: BYTE; "SVC2B -ATTEMPT TO REPLICATE A 33 ERRFB: BYTE; "SVC00 -ERROR ACCESSING .S$CLF 38 ERRFC: BYTE; "SVC00-NIO - COMMUNICATION SESSION84 ERRFD: BYTE; "SVC00 -NIO - INVALID SITE NAME48 ERRFE: BYTE; "SVC00-NIO-REMOTE SITE UNAVAILABLE87 ERRFF: BYTE; "SVC00-RESERVED FOR COMPATABILITY 7END;(*$ RESUME LIST *)***** * *  BYTE EQUATES * =*********************************************************** =BYTEF0 EQUERRF0 BYTEF1 EQUERRF1 BYTEF2 EQUERRF2 BYTEF3 EQUERRF3 BYTEF4 EQUERRF4 BYTEF5 EQUERRF5 BYTEF6 EQUERRF6 BYTEF7 EQUERRF7 BYTEF8 EQUERRF8 BYTEF9 EQUERRF9 BYTEFA EQUERRFA BYTEFB EQUERRFB BYTEFC EQUERRFC BYTEFD EQUERRFD BYTEFE EQUERRFE BYTEFF EQUERRFF  CEND 'NFERF0' EVEN  LIST  LIST  LIST  TYPE IN PASS1? & SR6,R5  JEQCAL120 LI R1,ERP1P2 E THE LUNO" MOVB PRBERC(R2),R4  LIBCL5%  AI T ttk4D`4CSMTERCMPJ" 2z(*$ NO LIST *)!:TERM : PACKED RECORD " CSM TERM CODE COMMON BLOCK ::READ_TERM_CODE: BYTE; " TERM CODE FROM READ PROCESS :<WRITE_TERM_CODE : BYTE; " TERM CODE FROM WRITE PROCESS<:COPY_TERM_CODE: BYTE; " TERM CODE FROM COPY REQUEST :>VERIFY_TERM_CODE: BYTE; " TERM CODE FROM VERIFY REQUEST >>UPDATE_TERM_CODE: BYTE; " TERM CODE FROM UPDATE PROCESS >  END;  (*$ RESUME LIST *)67 ERRD1: BYTE; "FILMGR -SELF CONFLICTING OPEN REQ. 72 ERRD2: BYTE; "FILMGR -RECORD ALREADY LOCKED26 ERRD3: BYTE; "FILMGR -NOT ENOUGH SYS TABLE AREA67 ERRD4: BYTE; "NAMMGR -ERROR MAPPING IN A SEGMENT 76 ERRD5: BYTE; "FILMGR -SEQ. FILE STRUCTURE ERROR6 ERRD6: BYTE; "FNFDATA PJ% 3 z@(*$ NO LIST *) NFDATA : PACKED RECORD/ TMTOL: WORD; "START OF TIME ORDERED LIST // TOLBET : WORD; "BEET ADDRESS OF TOL HEADER /& TMTOLN : @OVB ;"FORWARD POINTER&' TMTOLO : @OVB ; "BACKWARD POINTER '" TMTTYP : WORD; "TYPE OF BLOCK" FILL00 : WORD; " 0 FILL01 : WORD; "SCHEDULER ENTRY VECTOR (WP)0 FILL02 : WORD; "(PC)  FILL03 : WORD; "(ST) 6 FILL04 : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESERVED63 INTCDT : WORD; "FAKE CDT FOR SYSTEM INIT. TASK 3& RESPFL : BYTE;  "PROGRAM FILE LUNO&. RESTSK : BYTE;  "ID OF SYSTEM RESTART TASK., RESTRT : WORD;  "ID OF USER RESTART TASK, FILL05 : WORD; " 0 RELOCA : WORD; "RELOCATION VALUE FOR LOADER0 CHELST : WORD;  "START OF CACHE LIST0 CHEBET : WORD; "BEET ADDRESS OF LIST HEADER0& CHEFWD : @OVB ;"FORWARD POINTER&' CHEBKW : @OVB ; "BACKWARD POINTER '" CHETYP : WORD; "TYPE OF BLOCK"- SMTBMP : WORD;  "SEG MANAGER SCRATCH WORD -I$ USERPF : PACKED ARRAY [ 1.. 8 ] OF CHAR; "NAME OF PF CONTAINING USER- I1 TSKDOA : WORD; "FOR INTERRUPT 2 PROCESSOR TO 1) FILL06 : WORD;  "* RESERVED * (SMRID) )& CPU12: WORD;  "SET IF 990/12 CPU&% AJSBCT : WORD;  "ACTIVE JSB COUNT %% ATSBCT : WORD;  "ACTIVE TSB COUNT %* WTSBCT : WORD;  "COUNT OF TSB'S ON WOM*, UAHEAD : WORD;  "START OF FREE USER AREA,* UAPTR: WORD;  "BEET ADDRESS OF BLOCK** UAFWD: @OVB ; "FOWARD LINK POINTER* UABKW: @OVB ; "BACKWARD LINK POINTER1 UABADD : WORD; "START ADDRESS OF USER MEMORY 10 UATLEN : WORD; "TOTAL LENGTH OF USER MEMORY01 UADSTR : WORD; "START OF DYNAMIC USER MEMORY 12 UADLEN : WORD; "LENGTH OF DYNAMIC USER MEMORY21 UADMIN : WORD; "MIN AMOUNT OF DYNAMIC MEMORY 13 USEMEM : WORD; "SUM OF ALL CURRENT FREE MEMORY 33 USEFRG : WORD; "NUMBER OF FREE MEMORY FRAGMENT 3/ TICFRQ : WORD; "CLOCK FREQUENCY (TICS/SEC) /. UNTSLC : WORD;  "CLOCK TICS PER TIME SLICE.% TPU: WORD;  "TICS PER TIME UNIT %+ TSENAB : WORD;  "TIME SLICE ENABLE FLAG +1 TICLMT : WORD; "LIMIT FOR CURRENT TIME SLICE 1) BTAHED : WORD;  "SIZE OF ANCHOR BLOCK )/ BTAPTR : WORD; "BEET ADDRESS OF THIS BLOCK / BTA"FWD : @OVB ;"FORWARD POINTER"& BTAREV : @OVB ;"REVERSE POINTER&/ BTAADD : WORD; "BEET ADDRESS OF TABLE AREA /2 BTALEN : WORD; "LENGTH OF TABLE AREA IN BEETS2- BTAMAX : WORD;  "MAXIMUM AREA FOR BUFFERS -) BTAALL : WORD;  "ALLOCATED TABLE AREA )& BTAHDN : WORD;  "HIDDEN TABLE AREA&6 FILL07 : PACKED ARRAY [ 1.. 2 ] OF BYTE; "RESERVED6, MEMSIZ : WORD;  "SIZE OF SYSTEM IN BEETS,0 CMEMSZ : WORD; "SIZE OF CRASH FILE IN BEETS0. CRSHTL : WORD;  "CRASH FILE TILINE ADDRESS., CRSHHD : BYTE;  "CRASH FILE HEAD ADDRESS,. CRSHSC : BYTE;  "CRASH FILE SECTOR ADDRESS.0 CRSHCL : WORD; "CRASH FILE CYLINDER ADDRESS0- CRSHSL : WORD;  "CRASH FILE TILINE SELECT - TMBHED : WORD; "SIZE OF A NCHOR BLOCK / TMBPTR : WORD; "BEET ADDRESS OF THIS BLOCK /$ TMBFWD : WORD; "FORWARD POINTER$! TMBBWD : WORD; "BACK POINTER !* TMBADD : WORD;  "TEMP ADDRESS BOUNDARY*' TMBLEN : WORD;  "TEMP BUFFER LENGTH ' FILL08 : WORD; "RESERVED  FILL09 : WORD; "RESERVED + EXTIME : WORD;  "EXTEND TIME SLICE FLAG +- FUTPDT : WORD;  "IOU PDT CURRENTLY IN USE -- UNLPDT : WORD;  "UNLOAD VOLUME PDT IN USE -. SYSUNT : WORD;  "ELASPED SYSTEM TIME UNITS.( JCABT: WORD;  "BEET ADDRESS OF JCA(, TDLEXP : WORD;  "TIME DELAY EXPIRED FLAG,' WJSBCT : WORD;  "WOM LIST JSB COUNT '. LDTDSC : PACKED ARRAY [ 1..14 ] OF BYTE; ".0 IOINDX : WORD; "VALUE OF X IN I/O INDICATOR0 INTPRI : PACKED A2RRAY [ 1.. 4 ] OF BYTE; "INSTALLED PRI 1 -> 1882J$ JPRMOD : PACKED ARRAY [ 1.. 4 ] OF BYTE; "VALUE FOR INSTALLED PRI OF 1JJ$ DYNMOD : PACKED ARRAY [ 1.. 4 ] OF BYTE; "VALUE FOR INSTALLED PRI OF 1JJ$ AGEIND : PACKED ARRAY [ 1.. 4 ] OF BYTE; "VALUE FOR INSTALLED PRI OF 1J4 ENDLMT : WORD; "END ACTION EXECUTION TIME LIMIT40 CLMXBF : WORD; "MAX # BUFFERS ON CACHE LIST05 CLMXPS : WORD; "MAX # PROGRAM SEGS ON CACHE LIST 5 CLMNBF : WORD; "RESERVED 6 CLNBUF : WORD; "# BUFFERS CURRENTLY ON CACHE LIST68 CLNPRG : WORD; "# PROG SEGS CURRENTLY ON CACHE LIST83 TLSPND : WORD; "MIN # SYS TIME UNITS TASK MUST 36 TLEXEC : WORD; "MIN # SYS TIME UNITS OF EXECUTION6* TOLCNT : WORD;  "# TASKS ON TOL ELIGIB* LE FOR ROLL 0 TOLS24 : WORD; "IF NOT 0 STATE 24 TASKS ARE01 LDRTDY : WORD; "TASK LOADER TIME DELAY VALUE 12 NUMROL : WORD; "NUMBER OF SEGMENTS ROLLED OUT2. ROLSPA : WORD;  "AMOUNT OF ROLL SPACE USED.2 LDREXC : WORD; "TASK LOADER IS EXECUTING FLAG2- TSKCNT : WORD;  "COUNT OF TASKS IN SYSTEM -* FRCROL : WORD;  "F%%ORCED ROLL-OUT COUNT*+ PMSTSB : WORD;  "ADDRESS OF TSB TO ROLL +7 SITENM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "SITE NAME 7J MGRCG : PACKED ARRAY [ 1.. 8 ] OF CHAR; "SYSTEM MANAGER CONTROL GROUPJA PUBLIC : PACKED ARRAY [ 1.. 8 ] OF CHAR; "PUBLIC ACCESS GROUP A= SYSOPT : PACKED RECORD "SYSGEN OPTIONS WORD(FLAGS BELOW) =* OPTDSK : BOOLEAN;  "SYSTEM DISK PRESENT*OPTMFM : BOOLE(AN; "MINIMUM FILE MANAGEMENT PRESENT(4 OPTCDF : BOOLEAN; "CREATE/DELETE FILE CAPABILITY4. OPTBLK : BOOLEAN;  "BLOCKED FILE CAPABILITY.7 OPTBSF : BOOLEAN; "BLANK SUPPRESSED FILE CAPABILITY 70 OPTEXF : BOOLEAN;  "FILE EXTENSION CAPABILITY00 OPTACC : BOOLEAN;  "ACCOUNTING DATA COLLECTED0& OPTOSP : BOOLEAN; "OUTPUT SPOOLING&" OPTIPC : BOOLEAN; "IPC PRESENT" OPTSEC : BOOLEAN; "SECURITY " OPTKIF : BOOLEAN; "KIF PRESENT"% OPTEXJ : BOOLEAN; "EXPANDABLE JCA %2 OPTRAW : BOOLEAN; "DM READ AFTER WRITE ENABLED2( OPTWCS : BOOLEAN;  "1=PERFORMANCE WCS(, OPTPFR : BOOLEAN;  "1=POWER FAIL RECOVERY,FILL0A : 0.. 1; END;/ JCARES : WORD; "RESERVED TABLE AREA AMOUNT / EXPLEN : WORD; "L ENGTH TO EXPAND TABLE AREA1 CONTRY : WORD; "COUNTRY CODE FOR THIS SYSTEM 13 ITSKMX : WORD; "MAX ALLOC FOR GET AND PUT DATA 32 ITSKCR : WORD; "CURR ALLOC FOR GET & PUT DATA2+ DCPYAC : WORD;  "DCOPY ACTIVE INDICATOR +< VERS : PACKED ARRAY [ 1.. 6 ] OF CHAR; "VERSION NUMBER<1 MEMTIC : WORD; "COUNT BEFORE MEM CNTRL CHECK 1< SYSTEM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "NAME OF SYSTEM<3 COMFLG : WORD; "TO SCHEDULE OR NOT TO SCHEDULE 3/ WCSMAP : WORD; "LD MAP TO LOAD WCS (LIMIT) / FILL0B : WORD; "(BIAS)  FILL0C : WORD; "RESERVED + IOTFLG : WORD;  "SCHEDULER, IOTBID FLAG +, CLOCNT : WORD;  "FILE CLOSES OUTSTANDING, CPUID: WORD; "CPU ID " ATTNDV : PACKED ARRAY [ 1.. 4 ]"# OF CHAR; "ATTENTION DEVICE NAME #6 FILL0D : PACKED ARRAY [ 1.. 4 ] OF BYTE; "RESERVED65 CLFLUN : BYTE; "STORAGE PLACE FOR LUNO TO .S$CLF 53 FILL0E : BYTE; "RSVD-FORCE CLFLUN IN LEFT BYTE 36 UALGFB : WORD; "LARGEST FREE BLOCK OF DYNAMIC MEM66 TILADD : WORD; "SAVE TILINE ADDR FOR POWER UP-MUX60 PWRFLG : WORD; "CONTROLLER POWERUP FLAG-MUX0I$ SYSBUF : PACKED ARRAY [ 1..84 ] OF BYTE; "MAXIMUM TO BUFFER IN SYSTEM I' CAOVLY : WORD;  "CACHE OVERLAY FLAG '% LDRWOM : WORD;  "PROCESS WOM FLAG %1 LDRBSY : WORD; "PMTLDR IS NOT SUSPENDED FLAG 19 LDRSKP : WORD; "COUNT OF TIMES SCHEDULER SKIPPED LDR 94 XPDFLG : WORD; "SHOULD XPD COLLECT EXTRA STUFF?4END; (*$ RESUME LIST *)DELAY TASKFCB PJC 2z(*$ NO LIST *)@"************************************************************ @"** ."* FILE CONTROL BLOCK (FCB) 05/24/79 * ."** ("* LOCATION: SYSTEM AREA AND JCA * (@"************************************************************ @>"* SEE THE FILE STRUCTURE COMMON (FSC) FOR THE FCB VARIANT. >4"* THE FCB DOES NOT EXIST AS A SEPARATE STRUCTURE.4 (*$ RESUME LIST *)V : PACKED ARRAY [ 1.. 4 ] OF CHAR; "ATTENTION DEVICE NAME C3 INTCDT : WORD; "FAKE CDT FOR SYSTEM INIT. TASK 3. FILL04 : WORD;  "ID OF SYSTEM RESTART TASK., RESTRT : WORD;  "ID OF USER RESTART TASK, FILL05 : WORD; " 0 RELOCA : WORD; "RELOCATION VALUE FOR LOADER0( CHELST : WORD;  "START OF CACHE LIST(,DPD P JF0z3z@(*$ NO LIST *)?"************************************************************ ?"** -"* DISK PDT EXTENSION (DPD) 01/17/83 * -"** %"* LOCATION: SYSTEM TABLE AREA * %?"************************************************************ ?="* THE DPD APPEARS AFTER THE STANDARD PDT INFORMATION FOR A =="* DISK DEVICE. IT IS USED AS A WORK AREA BY THE DSR AND BY = "* THE DISK MANAGER TASK.  DPD = PACKED RECORD : DPDTIL : PACKED ARRAY [ 1..16 ] OF BYTE; "TILINE IMAGE:I$ DPDSLG : PACKED ARRAY [ 1..16 ] OF BYTE; "TILINE IMAGE FOR SYSTEM LOG I, DPDECT : WORD;  "TILINE UNIT ERROR COUNT,$ DPDWTK : WORD; "WORDS PER TRACK$& DPDSTK : BYTE;  "SECTORS PER TRACK& DPDOHD : BYTE; "OVERHEAD  PER RECORD & DPDCYL : WORD;  "HEADS & CYLINDERS&' DPDSRD : BYTE;  "SECTORS PER RECORD '& DPDRTK : BYTE;  "RECORDS PER TRACK&% DPDWRD : WORD;  "WORDS PER RECORD %( DPDILF : WORD;  "INTERLEAVING FACTOR(0 DPDMAD : WORD; "MAX NUMBER OFADUS ON DISK0$ DPDSAD : WORD; "SECTORS PER ADU$1 DPDDRS : WORD; "DEFAULT PHYSICAL RECORD SIZE 1" DPDFLG : PACKED RECORD "FLAGS"FILL00 : 0.. 1; , DPFRAW : BOOLEAN;  "DISK READ AFTER WRITE,/ DPFBRW : BOOLEAN;  "BIT MAP READ AFTER WRITE /# DPFRST : BOOLEAN; "RESTORE FLAG #4 DPFSTR : BOOLEAN; "STORE REGISTER FLAG (1= STORE44 DPFODI : BOOLEAN; "1 = ONLINE DIAGNOSTIC REQUEST42 DPFWRP : BOOLEAN; "SOFTWARE WRITE PROTECT FLAG2 DPFBLF : BOOLEAN;  "BUFFER LOCK FLAG.- DPFDTN : BOOLEAN;  "DIRECT TILINE I/O FLAG -FILL01 : 0..127;END;C! DPDIBF : PACKED ARRAY [ 1.. 6 ] OF BYTE; "INITIALIZATION BUFFER C7 DPDFMS : @SSB ;"VCAT FD SPECIAL AREA SSB ADDRESS 7. DPDFDB : @FDB ; "POINTER TO VCATALOG FCB.5 DPDPBM : @PBM ;"DISK MANAGER TABLE/BUFFER ADDR 59 DPDVNM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "VOLUME NAME 9F" DPDTFL : PACKED ARRAY [ 1.. 8 ] OF CHAR; "TEMPORARY FILE NAME SEEDF3 DPDIVD : WORD; "INSTALLED VOLUME CREATION DATE 33 DPDIVT : WORD; "INSTALLED VOLUME CREATION TIME 3END; (*$ RESUME LIST *) OF CHAR; "DESCRIPTION OF USER AJ UDRAGE :PACKED ARRAY [ 1.. 5] OF AGE ; "5 ACCESS GROUP ENTRIES (AGE)J );  4 : (CROSSCOM PJOP"2z@P(*$NO LIST*) PP"----------------------------------------------------------------------- PP" PP" GLOBAL VARIBLES (COMMON) FOR OBJECT CROSS REFERENCE PROGRAM PP" PP"----------------------------------------------------------------------- PP CARD_COLUMN: INTEGER; PP COLUMN_NUM: COLUMNS; PP COMMAND_TABLE: ARRAY[ COMMAND_RANGE ] OF COMMAND_TYPE; P COJM_REF: ARRAY[ 1 .. NC ] OF BOOLEAN; JP COM_TABLE: ARRAY[ 1 .. NC ] OF DEFPOINT; PP COMMON_ACCESS_NAME: PACKED ARRAY[ 1 .. PHL ] OF CHAR; PP COMPRESSED: BOOLEAN; PP CURRENT_MODULE: MODPOINT; PP DSEG_LENGTH: CHAR4; PP DIR_NAME_LENGTH: INTEGER; PP DIRECTORY_NAME: PACKED ARRAY[ 1 .. AL ] OF CHAR; PP DP: DEFPOINT; P FIRST: B DOOLEAN; DP FRST_COMMON: DEFPOINT; PP FRST_2_DEF: DBLPOINT; PP FRST_DEF: DEFPOINT; PP FRST_ISOLATED: MODPOINT; PP FRST_MODULE: MODPOINT; PP FRST_NOGRAPH: NGPOINT; PP FRST_ROOT: ROOTPOINT; PP FOUND_FILE: BOOLEAN; P GRA_8_LINES_PE>R_INCH: BOOLEAN; >P GRA_OFFSET_CHAR: INTEGER; PP GRA_PER_LINE_CHAR: INTEGER; PP GRAPH_COMPRESSED: BOOLEAN; PP HEXCHAR: PACKED ARRAY[ 1 .. 16 ] OF CHAR; PP HIGHEST_RANK: INTEGER; PP INPUT_RECORD: PACKED ARRAY[ 1 .. 80 ] OF CHAR; PP LAST_DEF: DEFPOINT; PP LAST_ISOLATED: MODPOINT; P LAST_MODULE: MODPOIN8T; 8P LAST_ROOT: ROOTPOINT; PP LINE: PACKED ARRAY [ 1 .. LL ] OF CHAR; PP LINE_NUMBER: INTEGER; %% PP LINK_CONTROL_FILE: BOOLEAN; PP LIST_REQUESTED: BOOLEAN; PP MODULE_NAME: CHAR8; PP MP: MODPOINT; PP NOW: CHAR8; P OBJ_PATH: STRING; 2 2P OBJECT_RECORD: PACKED ARRAY [ COLUMNS ] OF CHAR; PP ONLY_FORWARD_REFS: BOOLEAN; PP OPTION: PACKED ARRAY[ 1 .. MAX_OPTION ] OF BOOLEAN; PP (* OPTION[1] = LIST MODULE NAMES AS PROCESSED? *) PP (* OPTION[2] = LIST MODULE NAMES IN ORDER? *) PP (* OPTION[3] = LIST DEFS OF SYMBOLS BY MODULES? *) PP (* OPTION[4] = LIST REFS OF SYMBOLS BY MODULES? *) PP (* OPTION[5] = LIST REFS OF MODULES BY MODULES? *) P$ (* OPTION[6] = $,SYMBOL CROSS-REFERENCE? *) ,P (* OPTION[7] = MODULE CROSS-REFERENCE? *) PP (* OPTION[8] = SHOW CALL GRAPH? *) PP (* OPTION[9] = PRINT MODULE INDEX? *) PP (* OPTION[10] = LINK EDIT CONTROL IS INPUT? *) PP (* OPTION[11] = PRINT WARNING MESSAGES? *) PP (* OPTION[12] = CALL GRAPH COMPRESSED? *) PP (* OPTION[13] = CALL GRAPH 8 LINES PER INCH? *) PP (* OPTION[14] = PAGING DESIRED? *) P* OVLY01: INTEGER; *& &P OVLY02: INTEGER; PP OVLY03: INTEGER; PP OVLY04: INTEGER; PP PAGE_HEADING: PACKED ARRAY[ 1 .. PHL ] OF CHAR; PP PAGE_NUMBER: INTEGER; PP PAGING_DESIRED: BOOLEAN; PP PATH_LIST_REQUESTED: BOOLEAN; PP PATH_REC_NUMBER: INTEGER; P0 PRINT_WARNINGS: BOOLEAN; 0 P PSEG_LENGTH: CHAR4; PP RP: REFPOINT; PP TAG: CHAR; PP TODAY: CHAR8; PP TOTAL_NUMBER_OF_MODULES: INTEGER; PP(*$RESUME LIST*) P"ok4`4@END;/ JCARES : WORD; "RESERVED TABLE AREA AMOUNT /0 EXPLEN : WORD; "LENGTH TO EXPAND TABLE AREA01 CONTRY : WORD; "COUNTRY CODE FOR THIS SYSTEM 13 ITSKMX : WORD; OAW PJj\3z@(*$ NO LIST *)?"************************************************************ ?"** 3"* OVERLAY AREA WAIT BLOCK  (OAW)11/08/79* 3"** %"* LOCATION: SYSTEM TABLE AREA * %?"************************************************************ ?:"* THE OAW IS USED TO REPRESENT THE TASK WAITING FOR ONE:<"* SYSTEM OVERLAY OF A POOL OF OVERLAYS.THE POOL MANAGER<;"* MAINTAINS A LIST OF OAW ENTRIES AND WHEN AN OVERLAY IS ;?"* FREE, CHECKS TO SEE IF ANY TASK IS WAITING FOR IT. IF SO, ?4"* THE OVERLAY IS LOADED AND TH TASK IS ACTIVATED.4 OAW = PACKED RECORD & OAWOAW : @OAW ;"NEXT WAIT BLOCK&* OAWJSB : @JSB ; "JSB OF WAITING TASK** OAWTSB : @TSB ; "TSB OF WAITING TASK*  OAWOVN /: WORD; "NUMBER OF OV AREA BEING WAITED FOR /END; (*$ RESUME LIST *)"!Ę "!/(  !  ,` " ( !  !  ! ,  !!  !"` E ! ! !. V ## !$!$T`| , V ,  =@  /  ` " EE [΋$F/' #e0` "΋$FgE %g    F ! ՠ! `#΋$F/'` "g !!6! "!`H`#΋$D g'  h( !  ! PgE `#΋$Hê'!!!(!g D*'gAGR PJp 3z(*$ NO LIST *)>"***********************************************************>"* *6"* ACCESS GROUP NAME RECORD(AGR)  11/24/82  *6"* *"* LOCATION: DISK  *>"***********************************************************>>"* THE AGR IS USED BY TASKS WHICH CREATE, DELETE, AND MODIFY>= "* ACCESS GROUP NAMES.IT IS A VARIANT OF THE CAPABILITIES =2 "* LIST FILE RECORD (CLR). FOR DETAILS SEE CLR.2 (*$ RESUME LIST *)`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LDS403REXPJs&3z(*$ NO LIST *) EXT = PACKED RECORD ) EXTTMR : WORD;  "TIMER DURATION VALUE )) EXTRG3 : WORD;  "ACE REGISTER 3 IMAGE )) EXTRG4 : WORD;  "ACE REGISTER 4 IMAGE )) EXTRG7 : WORD;  "ACE REGISTER 7 IMAGE )$ EXTSPD : BYTE; "SPEED CODE COPY$7 EXTSDC : BYTE; "DATA BYTE TO SAVE SDCD STATUSR08 7# EXTR0: WORD; "01R0 TEMP SAVE ## EXTR7: WORD; "01R7 TEMP SAVE #$ EXTR11 : WORD; "01R11 TEMP SAVE$7 EXTCNT : WORD; "06TEMP SAVE FOR 1/4 SEC DELAY LOOP 7END; (*$ RESUME LIST *)WORD; " , EXTOVR : WORD;  "RECEIVER OVERRUN ERRORS,+ EXTFER : WORD;  "RECEIVE FRAMING ERRORS +* EXTPER : WORD;  "RECEIVE PARITY ERRORS*END;"**"*THIS T9KiKiRTO@KCB PJv(3z@(*$ NO LIST *)?"************************************************************ ?"** -"* KIF CURRENCY BLOCK(KCB) 01/22/82* -"** %"* LOCATION: SYSTEM TABLE AREA * %"** ?"************************************************************ ?="* THE KCB IS USED TO MAINTAIN CURRENCY INFORMATION ABOUT A =="* KEY INDEXED FILE IN USE. THE KCB IS BUFFERED ALONG WITH =("* THE IRB DESCRIBING THE I/O REQUEST.("*"* SPECIAL FIELD COMMENTS: >"*KCBKAD - FIRST TWO WORDS GIVE THE PHYSICAL RECORD NUMBER>4"* OF THE LOGICAL RECORD. THE THIRD WORD IS THE4 "* ID OF THE LOGICAL RECORD. >"*KCBBTP - FIRST TWO WORDS GIVE THE PHYSICAL RECORD NUMBER>$"* OF THE KEY FROM WHICH THE CUR$ RENCY WAS CREATED.7"* THE THIRD WORD IS THE LOGICAL ADDRESS OF THE KEY 72"* WHEN THE PHYSICAL RECORD IS MAPPED INTO KIF2"* PROCESSING CODE. CASE INTEGER OF   1 : ( "  KCB = PACKED RECORD . KCBINF : BYTE;  "CURRENCY INFORMATION CODE. KCBKNM : BYTE; "KEY NUMBER   KCBKAD : WORD; "KEY ADDRESS , KCBDBK : WORD;  "DATA BASE KEY (3 WORDS), FILL00 : WORD; "  FILL01 : WORD; " - KCBBTP : WORD;  "B-TREE POINTER (3 WORDS) - FILL02 : WORD; "  FILL03 : WORD; " & KCBBES : WORD;  "B-TREE ENTRY SIZE&% KCBLOC : BYTE;  "LAST OPCODE USED %# KCBCOC : BYTE; "CURRENT OPCODE # ); END; (*$ RESUME LIST *) "PASSWORD6 JMRACC : PACKED ARRAYBDCONS P!J| 2z@(*$ NO LIST *)!4(*R01 04/08/84 - WD900 HAS 27 SECTORS PER ADU*) 4D (*R02 05/05/84 - MAKE CHANGES TO ALLOW BDD TO BE REPLICATIBLE*) D  const% ( ?COPY DSC.CONDPASC.OS ( ?IF DX10$ @ MAX_INITIATES = 4; "MAXIMUM NUMBER OF INITIATE IOs ALLOWED@(6"INDEX INTO THE MESSAGE TEXT FOR AN SVC ERROR CODE6:"FOR MESSAGE 'SVCERR' (INDEXED FROM 1 FOR ENCODE CALL) :ERR_SVC_INDEX = 19; BERR_UTL_INDEX = 19; "SAME GAME FOR UTILITY ERROR MESSAGES B(:"INDEX INTO THE EXPANDED MESSAGE TEXT FOR AN SVC ERROR : "FOR MESSAGE 'SVCERR' TXT_SVC_INDEX = 24; ?ELSE % @ MAX_INITIATES = 2; "MAXIMUM NUMBER OF INITIATE IOs ALLOWED@("INDEX%% INTO THE MESSAGE TEXT FOR AN SVC ERROR CODE:"FOR MESSAGE 'SVCERR' (INDEXED FROM 1 FOR ENCODE CALL) :ERR_SVC_INDEX = 21; BERR_UTL_INDEX = 25; "SAME GAME FOR UTILITY ERROR MESSAGES B(:"INDEX INTO THE EXPANDED MESSAGE TEXT FOR AN SVC ERROR : "FOR MESSAGE 'SVCERR' TXT_SVC_INDEX = 26; ?ENDIF% ( "OP-CODES AND FLAGS CLOSE_OP= #01;OPEN_REWIND = #03;TIME_OP = #03;FORWARD_SPACE = #06;BACK_SPACE= #07;EXCLUSIVE_ALL = #08;READ_OP = #09;WRITE_OP= #0B;REWIND_OP = #0E;GET_BIDPARM = #17;READ_ONLY = #18;INITIATE_FLAGS= #80;ASSIGN_OP = #91;DELETE= #92;"R02RELEASE_OP= #93;FREE_FLAG = #FF;(D "CONSTANTS USED AS INDEXES INTO ARRAYS OF DEVICE AND PATH NAMES D SDEV = 1;# DDEV = 2;# LDEV = 3;# IDEV = 4;#( SPATH = 1; " DPATH = 2; "(D "OFFSETS INTO THE FIELDS OF THE BACKUP FILE HEADER RECORD(HREC) D8"OF WHERE TO BEGIN THE VARIABLE TEXT OF ASCII ITEMS. 8"ASCVOL = 9;  "VOLUME NUMBER " ASCSEC = 13; "SECTOR SIZE  $ASCSRC = 8;  "SOURCE PATHNAME $ ASCYER = 15; "YEAR IN DATE ASCDAY = 26; "DAY IN DATE  ASCHR = 33; "HOUR IN TIME $ASCMIN = 36; "MINUTES IN TIME $$ASCSCN = 39; "SECONDS IN TIME $(HDUMY_INDEX = 2;  "DUMMY INDEX FOR ARRAY SO RIFLE WON'T COMPLAIN H(BIGS>ECTOR  = 288;  "SIZE OF LARGEST SUPPORTED DISK SECTOR >B SMALLSECTOR = 256;  "SIZE OF SMALLEST SUPPORTED DISK SECTORB(>"CHANGE THESE FIELDS TO CHANGE THE SIZE OF THE FDR BUFFER >>MAX_NEST= 23; "MAX NUMBER OF COMPONENTS IN PATHNAME - 1>@SECT_PER_LEVEL= 2; "SECTORS PER LEVEL IN THE FDR BUFFER @(>MAXBAK = 9;  "MAXIMUM NUMBER OF RE-RUNS OF FBU ALLOWED>(@ MAX_SEC_ADU = 45; "(*R01-15 TO 45 FOR WD900(27) AND UP*) @ "MAXIMUM SECTORS PER ADU 4  "(MAY CHANGE WITH NEW DISKS)[TELL ME ABOUT IT] 4(@ MAX_2NDARIES = 16; "MAXIMUM 2NDARY ALLOCATIONS FOR A FILE @(8BFLAGS = #CC20;  "FDR FLAGS FOR BACKUP FILE(DISK) 8(& TTY_INDICATOR = 1;  "VALUE FOR TT& Y TERMINAL AFTER OPEN DEVICE F DISK_INDICATOR = 6;  "VALUE FOR DISK RETURNED AFTER OPEN DEVICE F(J#PFILE_PATH_LENGTH = 8; "LEN. OF THE PARAMETER FILE PATHNAME(.S$FBU)R02J(8 KDRVALUE = #FFFD;  "HASH KEY VALUE FOR A KDR(= -3) 8(@DIR_FLAG = 1;  "FILE USAGE BITS(IN FDR) FOR DIRECTORY FILE@(D NO_OF_PARAMS = 6;  "NUMBER OF PARAMETERS SENT BY INITIAL TASK D(8KIFLAGS = 3; "FDR FLAGS TO INDICATE KIF FILE TYPE 8(& ADRKDR_SIZE = #40;  "FIX LATER &(8UBVNXT = 8;  "MAX SIZE OF QUEUED BUFFERS TO VERIFY 8(:MAX_RETRIES = 3; "NUMBER OF TIMES WILL TRY TO VERIFY :(@ SECTOR_LCM = 2304; "L-EAST C-OMMON M-ULTIPLE OF 256 & 288 @( MAX_INTEGER = #7FFF;$ "LARGEST POSITIVE INTEGER VALUE $(<MAX_LONGINT = #7FFFFFFF; "LARGEST POSITIVE LONG INTEGER <(8MAX_WORD= #FFFF; "LARGEST UNSIGNED 16 BIT VALUE 8(,ONEBEET = 32;  "NUMBER OF BYTES/BEET,(4"CONSTANST USED BY THE MESSAGE HANDLING ROUTINE 4, EXTEND  = #02; " Use extended block ,8 EXT_FLAGS = #0210; " Beep, return on term char 8& CR  = #0D; " Carriage return &  LF  = #0A; " Line feed   BLANKS  = '';8 ERRLINES  = 14; "VDT LINES AVAILABLE FOR ERRORS 8(D "HERE ARE SOME CONSTANTS USED IN INTERPRETING THE PARAMETER FILED<DEV_LEN = 4; "LENGTH OF THE INTERACTIVE DEVICE NAME <8PFLAG_LEN = 2; "LENGTH OF THE 'FLAGS' PARAMETER(LA8ST RECORD)H""------------------------------------------------------------------ H(F!"CONSTANTS USED IN CREATING THE PATHNAME TRACING DATA STRUCTURES :F"MAX_BUFFER = 3 * SECTOR_LCM; "@ AVG_FILE_IN_DIR = 7;"ESTIMATED AVERAGE FILES PER DIRECTORY @, "USED FOR CALCULATING HOW MUCH SPACE TO ,& "ALLOW FOR WHEN TRACING PATHNAMES &(B"MAXIMUM NUMBER OF FILES THAT CAN EVER BE IN AN OUTPUT BUFFER B<MAX_LEAF_TRC = (MAX_BUFFER div SMALLSECTOR) div 2 + 1; <(H"" AN EXPERIMENTAL AVERAGE OF THE MOST DIRECTORIES THAT WE WILL EVER HH"" HAVE TO CONTEN WITH IN THE 2 OUTPUT BUFFER, NOTE-- IT IS POSSIBLE HF!" TO OVERFLOW THIS AMOUNT, IN WHICH CASE ON ERRORS ONLY LEAF NAMESF " WILL BE PRINTED FOR THE USERBMAX_DIR_TRC  = 2 * ((MAX_LEAF_TRC div AVG_FILE_IN_DIR) + 1);BJ#"-------------------------------------------------------------------- J(DOT  = '.'; BLANK = #20; BLANKC = ' '; BLANK2 = #2020; CHARONE= '1'; ((0"INDEX INTO THE MESSAGE TEXT FOR A PATHNAME 0 "FOR MESSAGE 'BADPTH' BAD_PTH_INDEX = 21;(MAX_PTH_LENGTH = 48;BMAX_DPTH = 17; "MAXIMUM LENGTH OF DESTINATION PATHNAME BDMAX_NAM_LEN  = 8;  "MAXIMUM NUMBER OF CHARACTERS IN "NAME"D(D "INDEXES INTO THE MOUNT REQUEST MESSAGE FOR VOLUME NAME & NUMBERDM_VOL_NDX = 15; MV_LEN= 8; M_NUM_NDX = 25; MV_DRIV = 31; MN_LEN= 2; (6"INDEXES INTO MESSAGE TEXTS USED BY PUTIME ROUTINE6PTTIME= 21 - 1; PTCRUN= 13; PTTRUN= 18; PTEND = 23 - 1;  PTABNRM = 25 - 1; PTSHSP= 7 - 1;PTSHDP= 58 - 1; (2"INDEXES INTO "CNTLIN" MESSAGE SCREEN COUNTERS2 CNTBYT = 2;! CNTFIL = 29; (D ADUS_PER_BITMAP = 2032;"MAXIMUM ADUS REPRESENTED IN 1 PARTIALD"BIT MAP ON DISK(8SAT_OFFSET= #0046; "OFFSET TO THE SAT IN AN FDR 8(4TRAILER = '**TRLR'; "TRAILER RECORD FOR TAPES 4.TRLR_LENGTH = 6; "BYTE LENGTH OF ABOVE .(<BOT = #41;"ERROR RETURNED BY DSR FOR BEGIN-TAPE-MARK<8EOT = #42;"ERROR RETURNED BY DSR FOR END-OF-TAPE8@<EOTERROR= #4F;"DSR SIGNAL FOR END-OF-TAPE WITH ERROR<(<NUM_BUFFERS = 5; "NUMBER OF BUFFERS WHOSE SIZES ARE < "DETERMINED AT RUNTIME (HMAX_BEETS = #7FF;  "THE MAXIMUM NUMBER OF BEETS OF MEM FOR TASK H(J#"MINIMUM NUMBER OR BEETS THAT CAN BE OBTAINED FOR BUFFERS & STILL RUN J&" = 2304 BYTES PER DYNAMIC BUFFER &@MIN_BEETS = (SECTOR_LCM * NUM_BUFFERS) div ONEBEET; "=360 @((FDOLLARS = '$$$$$$$$'; "TO STOP USER FROM USING THE DESTINATIONF " DISK  (<NEWSCREEN = 20; "CAUSE SCREEN STATISTICS TO BE PRINTED<"EVERY 20 WRITES(F!"UTILITY ERROR CODES--------------------------------------------- F,PRMMEM = #9320;  "INITIALIZATION ERROR(PA,RAMTER FILE OR "ERROR OBTAINING MEMORY) 4VRFERR = #9321; "VERIFICATION ERRORS OCCURRED 4@ALLOC = #9327; "SVC ERROR OCCURRED MANIPULATING BIT MAPS @,TRCOVR = #92E1;  "TRACE BUFFER OVERFLOW,<INTERN = #92E2; "INTERNAL DATA STRUCTURE INCONSISTENCY<H" "------------------------------------------------------------------HH" "------------------------------------------------------------------H( (*$ RESUME LIST *)MM24REQVDT : BOOLEAN;  "MESSAGE REQUIRES VDT? 4(0SENDID : BYTE; "SEND ID FOR TASK COMM 0@SFT  : SKIP_FILE_ARRAY;  "IF SYSTEM VOLUME, SKIP THESE@8SMGFBN : MESSAGE;  "VOLUME STATISTICS MESSAGE 8$SMGFBL : MESSAGE;  "VOLUME S$DDB P J063z@(*$ NO LIST *)?"************************************************************ ?"** 3"* DIOU DATA BASE DEFINITION (DDB) 12/01/81* 3"** 3"* LOCATION: DIOU NAME MANAGER SEGMENTS AND * 3"* RELATIVE RECORD FILE* ?"************************************************************ ?DDB = PACKED RECORD "*  DEVICE NAMES "*  DEVICE NUMBERS "*""*RELATIVE RECORD FILE RECORDS""* DDB0R1 : WORD; "*RESERVED# DDB0RT : WORD; "*RESOURCE TYPE #! DDB0DT : BYTE; "*DEVICE TYPE !  DDB0CT : BYTE; "*CDT NUMBER  DDB0CE : WORD; "*CDE MASK# DDB0WT : BYTE; "*WRITE TASK ID # DDB0R2 : BYTE; "*RESERVED# DDB1NU : WORD; "*DEVICE NUMBER # DDB1R&R : WORD;  "*RELATIVE RECORD NUMBER&! DDB1PA : WORD; "*PDT ADDRESS ! DDB1F1 : WORD; "*FLAGS  DDB1F2 : WORD; "*FLAGS ) DDB1LC : BYTE;  "*ASSIGNED LUNO COUNT )) DDB1TC : BYTE;  "*ATTACHED TASK COUNT ) DDB1OJ : WORD; "*OWNER JOB 2 DDB1LP : WORD; "*LOCKED PARAMETER LIST ANCHOR2  DDB1RP : WORD; "*RPB ANCHOR  DDB2R1 : BYTE; "*RESERVED& DDB2NF : BYTE;  "*DEVICE NAME FILE&, DDB2RR : WORD;  "*RELATIVE RECORD NUMBER,! DDB2NA : BYTE; "*DEVICE NAME !& OSPPRM : BYTE;  "*PARAMETER NUMBER&* OSPSTR : BYTE;  "*STRUCTURE IDENTIFIER*+ OSPOFF : BYTE;  "*OFFSET INTO STRUCTURE +) OSPLEN : BYTE;  "*LENGTH OF PARAMETER ) STRES: BYTE; "*RESERVED STID : BYTE; "* SESSION IDENTIFIER/ STFNAS : WORD; "*FIRST NAME SEGMENT RUN ID /1 STFNUS : WORD; "*FIRST NUMBER SEGMENT RUN ID 1B FILL00 : PACKED ARRAY [ 1..20 ] OF BYTE; "*REST OF THE RUN%% IDSBA STPTNM : PACKED ARRAY [ 1..18 ] OF BYTE; "*PATHNAME OF SYSTEM AEND; (*$ RESUME LIST *)ER DDB0CE WORD 0  *CDE MASK$DDB0WT BYTE 0  *WRITE TASK ID $DDB0R2 BYTE 0  *RESERVED8DDB0VL EQU$  *BEGINNING OF VARIABLE LENGTH PARMS 8(DDB0PD EQU$  *PRINT DEVICE NAME (,DDB0VD EQU$  *VIRTUAL DEVICE SERVER ,&DDB0UP EQU$  *USER PARAMETERS &*DDBNOS EQU$  *NON O.S. PARAMETERS ** '6*  NAME MANAGER SEGMENTS ORDERED BY DEVICE NAMES6* '  DORG 0 ! $DDB1NUDSVDTLEXPJ*3Kz(*$ NO LIST *)"* 4"* 7 UNUSED -"* 0- IGNORE INPUT AND DO NOT DO OUTPUT -&"* 4- ACCEPT INPUT AND DO OUTPUT&="********************************************************** =."* THESE ARE THE FLAG DEFINITIONS FOR VDTSC1.="********************************************************** ="* 0 - 940"* 1 - 931"* THIS IS FOR OPTIMIZATION "*"*="********************************************************** =""*THIS IS THE LAYOUT OF GENSPD"="********************************************************** ="*"*BIT  USAGE"* 0 SWITCHED "* 0 - NOT SWITCHED "* 1 - SWITCHED "* 1-2 UNUSED "* 3-7 SPEED"* 8-10  UNUSED "* 11-15 SPEED"*="********************************************************** =""*THIS IS THE LAYOUT OF GENTTP"="********************************************************** ="*"*BIT  USAGE"* 0-7 TYPE OF TERMINAL "*>01 - 931 "*>02 - 940 "*"*"* 9-14  UNUSED &"* 15  ALLOW BLINKING (940 ONLY)&"*"* (*$ RESUME LIST *)10 RBS NULL CHARS STUFF(0CNBFLG EQU11RBS CONVERT NULLS TO BLANKS 0,STATIG EQUPDXCPF STATE OF THE INPUT ,.* 0 - IGNORE INPUT AND DO NOT DO OUTPUT.(* 4 - ACCEPT INPUT AND DO OUTPUT ((>********************************************************** >0* THESE ARE THE FLAG DEFINITIONS FTSB PJ3z@(*$ NO LIST *)?"************************************************************ ?"** /"* TASK STATUS BLOCK  (TSB) 05/22/84 * /"** "* LOCATION:JCA * ?"************************************************************ ?<"* EACH TASK WHICH HAS BEEN BID IS REPRESENTED BY A TSB IN<>"* ITS JOB'S JCA. THE TSB INCLUDES STATE INFORMATION, LINKS>="* TO VARIOUS QUEUES, CHARACTERISTICS OF THE TASK, LOCATION =?"* INFORMATION, MAPPING INFORMATION, AND STATISTICS COUNTERS. ?"*%"* DETAILS ABOUT PARTICULAR FIELDS: %>"* TSBTSK - OFFSET INTO MAP FILE AND SSB ADDRESSES FOR THE>8"*SEGMENT THAT IS THE TASK SEGMENT (0=FIRST SEGMENT,8("*4=SECOND SEGMENT, 8=THIRD SEGMENT)("*"* T8SBIOI - I/O BOUND INDICATOR, MODIFIED BY THE SCHEDULER8"*A"* TSBGEN - GENERATION NUMBER IS ONE GREATER THAN THAT OF THE A8"* PARENT OF THIS TASK.IF THE PARENT TASK DIES, THE85"*GENERATION NUMBER OF THIS TASK IS REDUCED BY 1, 56"*AS ARE THE GENERATION NUMBERS OF ANY DESCENDENTS67"*OF THIS TASK. THIS VALUE IS 0 FOR QUEUE SERVERS. 7"*B"* TSBSBN - SMT AND SSB PAIR FOR THE NEW SEGMENT WHEN A CHANGEB;"* TSBSTN SEGMENT OPERATION IS ISSUED.TSBPSN IS THE ;?"* TSPPSN POSITION OF THE SEGMENT (0,4, OR 8).THESE ARE ?5"*USED ONLY WHEN THE SSB FOR THE NEW SEGMENT MUST 5"*BE INITIALIZED. "*B"* TSBLSE - LOAD SEGMENT ENTRIES INCLUDE THE JCA AND ANY OTHERB"*SEGMENTS T&HAT NEED TO BE LOADED IN MEMORY WHEN&7"*THIS TASK EXECUTES, THOUGH THEY MAY NOT BE MAPPED 7"*IN TO THE TASK. "*>"* TSBOSE - OWNED SEGMENTS ARE TEMPORARILY SHARE-PROTECTED>"*TSB = PACKED RECORD 7 TSBQL: @TSB ;"QUEUEING LINK FOR DYNAMIC QUEUES 7/ TSBWP: ADDRESS; "ACTIVE WORKSPACE POINTER /- TSBPC: ADDRESS; "ACTIVE PROGRAM COUNTER -" TSBST: WORD; "ACTIVE STATUS"- TSBPRI : BYTE;  "TASK PRIORITY (RUN TIME) - TSBSTA : BYTE; "TASK STATE * TSBIPR : BYTE;  "INITIAL TASK PRIORITY*, TSBINP : BYTE;  "INSTALLED TASK PRIORITY,. TSBIID : BYTE;  "INSTALLED TASK IDENTIFIER.- TSBRID : BYTE;  "RUN TIME TASK IDENTIFIER -& TSBSTG : BYTE;  "TASK STAGE NUMBER&* TSBIEC : BYTE;  "INITIATED EVENT COUNT*6 TSBFL1 : PACKED RECORD  "TASK FLAGS - SYSTEM FLAGS6" TSFSYS : BOOLEAN; "SYSTEM TASK"& TSFPRI : BOOLEAN; "PRIVILEGED TASK&4 TSFMEM : BOOLEAN; "CURRENT SEGMENT SET IN MEMORY4/ TSFENA : BOOLEAN;  "TAKE END ACTION ON ERROR /4 TSFIOA : BOOLEAN; "I/O HAS BEEN ABORTED FOR TASK4) TSFABT : BOOLEAN;  "TASK BEING ABORTED )& TSFSEC : BOOLEAN; "BYPASS SECURITY&( TSFQSR : BOOLEAN;  "QUEUE SERVER TASK(0 TSFACT : BOOLEAN;  "ACTIVATE TASK OUTSTANDING0' TSFBID : BOOLEAN;  "INITIAL TASK BID ') TSFSPR : BOOLEAN;  "SOFTWARE PRIVILEGE )) TSFTOA : BOOLEAN;  "ABORT TIMEOUT FLAG )- TSFIOE : BOOLEAN;  "I/O EVENT PEND. UNBUFF -FILL00 : 0.. 7; END;  TSBFL2 : -PACKED RECORD "TASK FLAGS - CONTROL FLAGS -, TSFCNT : BOOLEAN;  "TASK BEING CONTROLLED,+ TSFSSC : BOOLEAN;  "STOPPED BY SCHEDULER +, TSFSBK : BOOLEAN;  "STOPPED BY BREAKPOINT,( TSFHLT : BOOLEAN;  "TASK TO BE HALTED(- TSFRST : BOOLEAN;  "RESTART PARENT ON TERM -  TSFRBD : BOOLEAN; "RBID TASK " TSFXOP : BOOLEAN; "REISSUE XOP". TSFCHO : BOOLEAN;  "JOB-LOCAL CHANNEL OWNER.FILL01 : 0..255;END;" TSBJSB : @JSB ;"JSB ADDRESS", TSBXOP : ADDRESS; "EFFECTIVE XOP ADDRESS,2 TSBTSK : BYTE; "2 WORD OFFSET TO TASK (0,4,8)2& TSBIO: BYTE;  "GENERAL I/O COUNT&( TSBIOI : BYTE;  "I/O BOUND INDICATOR(( TSBPSN : BYTE;  "POSITION OF NEW SSB(0 TSBCPT : LONGINT; "CPU EXECUTION TIME (TICKS0) 2 TSBRPC : LONGINT;"NUMBER SERVICE CALLS ISSUED21 TSBBY1 : WORD; "NUMBER I/O BYTES TRANSFERRED 13 TSBBY2 : WORD; "I/O BYTES TRANSFERRED - WORD 2 33 TSBSPN : WORD; "TICK COUNTER AT TIME SUSPENDED 34 TSBTSB : @TSB ;"TSB FIXED LINK IN SET FOR JOB4/ TSBSTI : BYTE; "STATION ID (FF=NO STATION) /& TSBGEN : BYTE;  "GENERATION NUMBER&  TSBPM1 : WORD; "PARAMETER 1  TSBPM2 : WORD; "PARAMETER 2 3 TSBIN1 : WORD; "COMPLETED EVENT FLAGS - WORD 1 33 TSBIN2 : WORD; "COMPLETED EVENT FLAGS - WORD 1 3. TSBLDT : @LDT ; "LDT LIST HEADER POINTER.0 TSBEOR : @BRO ; "END OF REQUEST PROCESSING01 TSBEAP : ADDRESS;"END ACTION PROGRAM COUNTER 1+ TSBEAW : ADDRESS; "END ACTION WORKSPACE +@4 TSBDIA : @DIA ;"END ACTION STATUS INFORMATION4) TSBSBN : @SSB ; "ADDRESS OF NEW SSB )3 TSBSTN : @SSB ;"SM TABLE SSB FOR NEW SEGMENT 32 TSBSB1 : @SSB ;"SSB ADDRESS FOR 1ST SEGMEMT23 TSBST1 : @SSB ;"SM TABLE SSB FOR 1ST SEGMENT 32 TSBSB2 : @SSB ;"SSB ADDRESS FOR 2ND SEGMEMT23 TSBST2 : @SSB ;"SM TABLE SSB FOR 2ND SEGMENT 32 TSBSB3 : @SSB ;"SSB ADDRESS FOR 3RD SEGMENT23 TSBST3 : @SSB ;"SM TABLE SSB FOR 3RD SEGMENT 3+ TSBML1 : WORD;  "MAP LIMIT ONE REGISTER +* TSBMB1 : WORD;  "MAP BIAS ONE REGISTER*+ TSBML2 : WORD;  "MAP LIMIT TWO REGISTER +* TSBMB2 : WORD;  "MAP BIAS TWO REGISTER*- TSBML3 : WORD;  "MAP LIMIT THREE REGISTER -$ TSBMB3 : WORD; "MAP BIAS THREE $ REGISTER 8 TSBBLN : POSINT; "LENGTH OF MAPPED SEGMENTS (BEETS)84 TSBTLM : POSINT; "TOTAL ROLLABLE MEMORY (BEETS)4* TSBMXM : POSINT;  "MAX VALUE OF TSBTLM*5 TSBLSE : @LSE ;"LOAD SEGMENT ENTRY LIST HEADER 56 TSBOSE : @OSE ;"OWNED SEGMENT ENTRY LIST HEADER65 TSBSRT : LONGINT;"TICK COUNTER WHEN TASK STARTED 52 TSBFMT : @SSB ;"THE FDP OF PROGRAM FILE FOR2' TSBFCB : @FSC ; "THE TASK SEGMENT '' TSBAIC : BYTE;  "ABORTING I/O COUNT ' TSBRES : BYTE; "RESERVED 0 TSBSVB : WORD; "SAVED MB3 WHEN OVLY ENTERED00 TSBSVL : WORD; "SAVED ML3 WHEN OVLY ENTERED0END; (*$ RESUME LIST *)D % BYTE 4,8,8  WORD 4,BYTE 0,EXSPRG EQU$-EXSVCB * PROGRAM FILE LUNO, BYTE BECOMM PJJ2!z (* $NO LIST *) " '*" COMMON SEGMENT FOR THE BEMF UTILITY *" ' BECOMM : PACKED RECORD IRB_PTR  : @IRB ;  MAX_KEY_SIZE : INTEGER ; KEY_ALREADY_FOUND: BOOLEAN ; *KEY  : PACKED ARRAY[1..80] OF CHAR; *" 'F!" NOTE: ARRAY 'KEYBUF' IN FOLLOWING PACKED RECORD MUST IMMEDIATELYF$" PRECEDE THE ARRAY 'CHAR' !!!$" 'PARA : PACKED RECORD, KEYBUF : PACKED ARRAY[1..82] OF CHAR; ,4 CHR  : PACKED ARRAY[1..MAX_PARA_LEN] OF CHAR; 4END;  END; "  (* $LIST *)"; "I/O HAS BEEN ABORTED FOR TASK4) TSFABT : BOOLEAN;  "TASK BEING ABORTED )& TSFSEC : BOOLEAN; "BYPASS SECURITY&( TSFQSR : BOOLEAN;  "QUEUE SERVER TASK( TSFACT : STR PJ3z@%%(*$ NO LIST *)?"************************************************************ ?"** 3"* STATUS REGISTER EQUATES (STR) 09/22/81* 3"** "* LOCATION: A REGISTER * ?"************************************************************ ? STR = PACKED RECORD , STRFLG : PACKED RECORD "STATUS REGISTER,+ STFLGT : BOOLEAN;  "LOGICAL GREATER THAN +. STFAGT : BOOLEAN;  "ARITHMETIC GREATER THAN. STFEQU : BOOLEAN; "EQUAL STFCAR : BOOLEAN; "CARRY STFOVF : BOOLEAN; "OVERFLOW & STFODD : BOOLEAN; "ODD PARITY BYTE&& STFXOP : BOOLEAN; "XOP IN PROGRESS&% STFPRV : BOOLEAN; "PRIVILEGED = 0 % STFMP1 : BOOLEAN; "MAP ONE, STFMPE : BOOLEAN;  "MEMORY PROTECT ENABLE, STFOIE : ( BOOLEAN;  "OVERFLOW INTERRUPT ENABLE(+ STFCSE : BOOLEAN;  "CONTROL STORE ENABLE +#STFINT : 0..15; "INTERRUPT MASK #END;END; (*$ RESUME LIST *)* INITIALIZED)- FLAG SSFNRPDO NOT REPLICATE SSB (SINCE A -*  GET MEMORY WAS DONE) FLAG SSFRELRELEASABLE FLAG SSFMODMODIFIED FLAG SSFMEMIN MEMORY # FLAG SSFLLM LOGICALLY IN MEMORY #+ FLAG SSFERRDISK ERROR OCCURRED ON READ +4SSBOVL BYTE 0  LAST OVERLAY NUMBER LOADED IN SEG42SSBPRI BYTE 0  INSTALLED PRIORITY (TASKS ONLY)20SSBSTE PTRSTE  POINTER TO SWAP TABLE ENTRY03SSBSOB PTRSOB  POINTER TO SEGMENT OWNER BLOCK 3!SSBSIZ EQU$  BASIC SSB SIZE !*  *  EXTE9WWRTO@S31 PJn3z@(*$ NO LIST *)A "************************************************************** A"** 5"* MAP NAME TO ID SVC BLOCK (S31) 09/30/81 * 5"** A "************************************************************** AS31 = PACKED RECORD / S31SVC : BYTE; "MAP NAME TO ID OP CODE=#31 /. S31ERC : BYTE;  "MAP NAME TO ID ERROR CODE.1 S31FLG : PACKED RECORD  "MAP NAME TO ID FLAGS 1&S31FTY : 0.. 3;  "TYPE 00 = TASK ID&, S31FID : BOOLEAN;  "1 = PROG NAME REQUEST,FILL00 : 0..15; 1 S31FLU : BOOLEAN; "1 = PROG FILE LUNO IS OPEN 1END;# S31UNU : BYTE; "*** UNUSED *** #7 S31TSK : PACKED ARRAY [ 1.. 8 ] OF CHAR; "TASK NAME 7# S31LUN : BYTE; "PROG FILE LUNO # S31IID : BYTE;  "INSTALLED ID OF TASK % S31RES : WORD;  "*** RESERVED *** %END; (*$ RESUME LIST *)TION!S2BLUN BYTE 0  PROG FILE LUNO !* * 0 => SYSTEM PROG FILE/S2BJID DATA 0  JOB ID OF JOB TO BID TASK IN /  ENDREC  PAGE  LIST XPANSION FLAGS,4 RDFTYP : BOOLEAN; "TYPE OF CALL BLOCK OFFSET PTR45 RDFJCA : BOOLEAN; "1=BUFFER THIS IN JCA BY ITSELF 54 RDFMOR : BOOLEAN; "MORE EXPANSION BLOCKS (1=YES)43 RDFJAV : BOOLEAN; "1=WERE ABLE TO GET JCA SPACE 3FILL02 : 0..15; END;/ RDBLEN : BYTE; "EXPANSION LENGTH TO BUFFER /) RDBCOF : BYTE;  "OFFSET IN CALL BLOCK )9 RDBBOF : BYTE; "OFFSET IN BRB (0=CONTINUE FROM LAST) 9END; (*$ RESUME LIST *)ID FOR XT CO(LDT P JD43Hz@(*$ NO LIST *)?"************************************************************ ?"** /"* LOGICAL DEVICE TABLE (LDT) 01/27/83 * /"** '"* LOCATION: SYSTEM AREA AND JCA * '?"************************************************************ ??"* THE LDT CONTAINS INFORMATION DESCRIBING AN I/O RESOURCE TO ?>"* WHICH A LOGICAL UNIT NUMBER (LUNO) HAS BEEN ASSIGNED.IT>;"* INCLUDES TYPE FLAGS, OWNERSHIP, AND STATE INFORMATION. ;LDT = PACKED RECORD ' LDTLDT : @LDT ; "LINK TO NEXT LDT '' LDTIOC : BYTE;  "INITIATE I/O COUNT '( LDTLUN : BYTE;  "LOGICAL UNIT NUMBER(CASE INTEGER OF   1 : ( " & LDTTYP : BYTE;  "I/O RESOURCE TYPE&0 LDTTF: BYTE; "FLAGS FOR LDT TYPE (SEE LDT0XFL)" LDTFLG : PACKED RECORD "FLAGS". LDFDEL : BOOLEAN;  "LDT IS DELETE PROTECTED.3 LDFFWT : BOOLEAN; "FORCED (IMMEDIATE) WRITE BIT 3, LDFCBA : BOOLEAN;  "CREATED BY ASSIGN BIT,2 LDFNUS : BOOLEAN; "LDT IS CURRENTLY NON-USABLE2- LDFPRM : BOOLEAN;  "PARAMETERS ARE PRESENT -3 LDFUBI : BOOLEAN; "UNBLOCKED(1)/BLOCKED(0) OPEN 3(LDFACU : 0.. 3;  "ACCESS PRIV. IN USE(2LDFSC1 : 0.. 3; "LDT SCOPE (TASK, JOB, GLOBAL)2+ LDFDWE : BOOLEAN;  "DEFERRED WRITE ERROR +4 LDFVNT : BOOLEAN; "EVENTS REQUESTED (KB DEVICES)4( LDFUSD : BOOLEAN;  "LDT HAS BEEN USED(' LDFDIA : BOOLEAN;  "DIAGNOSTIC STATE 'FILL00 : 0.. 3; END;5 LDTRLK : @PDT ;"RESOURCE LINK: FCA, PDT OR CCB 5 LDTTSB : @TSB ; "OWNER TSB LIST ANCHOR( LDTJSB : @JSB ; "OWNER JSB ADDRESS(CASE INTEGER OF  1 : ( "DEVICE, CHANNEL LDT  LDTSID : WORD; "SESSION ID  );  2 : ( "FILE LDT& LDTFMT : @SSB ;"SSB FOR THE FMT&- LDTFCB : @FSC ; "FCB ADDRESS IN THE FMT -4 LDTCAR : PACKED RECORD  "COMPOSITE ACCESS RIGHTS4' LDFRDF : BOOLEAN;  "READ ACCESS FLAG '( LDFWRF : BOOLEAN;  "WRITE ACCESS FLAG() LDFDLF : BOOLEAN;  "DELETE ACCESS FLAG )* LDFEXF : BOOLEAN;  "EXECUTE ACCESS FLAG** LDFCTF : BOOLEAN;  "CONTROL ACCESS FLAG* FILL01 : 0..2047; END; );  );   2 : ( " 2 LDTXFL : PACKED RECORD  "RESOURCE TYPE / FLAGS2FILL02 : 0..255;' LDFJLO : BOOLEAN;  "1=JOB LEVEL OPEN '*FILL03 : 0.. 3; / LDFVD : BOOLEAN;  "LDT FOR A VIRTUAL DEVICE /. LDFREM : BOOLEAN;  "LDT FOR REMOTE RESOURCE.& LDFCHN : BOOLEAN; "LDT FOR CHANNEL&% LDFDEV : BOOLEAN; "LDT FOR DEVICE %# LDFFIL : BOOLEAN; "LDT FOR FILE #END; ); END; (*$ RESUME LIST *)XF EXECUTE ACCESS FLAG&& FLAG LDFCTF CONTROL ACCESS FLAG& BITS 11 **RESERVED** "LDTFSZ EQU$  FILE LDT SIZE" VARNT LDTIOC+2 ,LDTXFL FLAGS 16  RESOURCE TYPE / FLAGS,* BITS 8  ** ACTUALLY LDTTYP FIELD ***$ FLAG LDFJLO 1=JOB LEVEL OPEN $ BITS 2  **RESERVED** , FLAG LDFVD  LDT FOR A VIRTUAL DEVICE ,* FLAG LDFREM LDT FOR REMOTE RESOURCE*" FLAG LDFCHN LDT FOR CHANNELDDP PJH3z(*$ NO LIST *)?"************************************************************ ?"** 7"*DIRECTORY DESCRIPTOR PACKET (DDP)  04/08/80 * 7"** %"* LOCATION: SYSTEM TABLE AREA * %?"************************************************************ ?="* THE DDP IS USED TO INDICATE WHAT TASK TO ACTIVATE WHEN A =!"* DIRECTORY BECOMES AVAILABLE. ! DDP = PACKED RECORD / DDPOWP : @DDP ; "NEXT WAITING DDP ADDRESS /$ DDPTSB : @TSB ;"TSB OF WAITER$$ DDPJSB : @JSB ;"JSB OF WAITER$END; (*$ RESUME LIST *)b .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`L#KIB PJ"3z@(*$ NO LIST *)?"************************************************************ ?"** 1"* KIF INFORMATION BLOCK (KIB) 02/26/80* 1"** +"* LOCATION: DISK AND BUFFER SEGMENT* +?"************************************************************ ?5"* THE KIB DESCRIBES A KEY INDEXED FILE DATA BLOCK. 5"* "* SPECIAL FIELD COMMENTS:>"* KIBBLK - THE PHYSICAL RECORD NUMBER OF THIS BLOCK.THIS>4"* FIELD IS MAINTAINED SO THAT IF A SYSTEM CRASH45"* OCCURS WHILE THIS BLOCK IS BEING MODIFIED, THE 57"* LOGGED IMAGE CAN BE RESTORED TO THE CORRECT FILE 7"* RECORD.:"* KIBCMD - THE OPCODE OF THE CURRENT COMMAND. THIS IS:'"* MAINTAINED FOR LOGGING PURPOSES. '"* KIBSR- THE, NUMBER OF BYTES REMAINING IN THE PHYSICAL,"* RECORD.?"* KIBFCB - THIS FIELD IS USED TO LINK THE BLOCK ON THE FREE ?"* BLOCK CHAIN. <"* KIBRSZ - THE SIZE IN BYTES OF THE FIRST LOGICAL RECORD<"* INCLUDING THIS WORD.  KIB = PACKED RECORD # KIBBLK : LONGINT;"BLOCK NUMBER ## KIBCMD : WORD; "COMMAND NUMBER #- KIBSR: WORD;  "SPACE REMAINING IN BYTES -) KIBFCB : LONGINT; "FREE CHAIN POINTER )3 KIBHID : WORD; "HIGHEST LOGICAL RECORD ID USED 3. KIBRSZ : WORD;  "RECORD SIZE OF 1ST RECORD./ KIBRID : WORD; "ID OF FIRST LOGICAL RECORD /END; (*$ RESUME LIST *) +`$V*:+! UTILNAME; ECEC; WPWP; PCPC; STST,$,$DUS PJ3_z(*$ NO LIST *)?"************************************************************ ?"** 7"* DEVICE UTILITY SESSION TABLE (DUS)  09/09/83 * 7"** "* LOCATION: IN DUDATA * "** ?"************************************************************ ? DUS = PACKED RECORD ( DUSRES : BYTE;  "RESERVED AT PRESENT(( DUSLUN : BYTE;  "LUNO OF ACTIVE FILE(F" DUSNAM : PACKED ARRAY [ 1.. 3 ] OF WO%%RD; "NAME MANAGER SEGMENT IDSFH# DUSVOL : PACKED ARRAY [ 1.. 8 ] OF BYTE; "VOLUME NAME OF SYSTEM DISKH9 DUSSYS : PACKED ARRAY [ 1.. 8 ] OF BYTE; "SYSTEM NAME 9I$ DUSDTB : PACKED ARRAY [ 1..14 ] OF BYTE; "TABLE OF DEVICE TYPE COUNTS I (*$ RESUME LIST *)%SGCOMMONPJ2)z@(*$NO LIST*)"4 COMM_DROP : BOOLEAN; " PROTOCOL QUESTION FLAG 42 COMLIN : INTEGER; " CURRENT PROTOCOL NUMBER2> COMOID : PROTOCOL;  " COM PROTOCOL FOR CURRENT CHANNEL >8 RTSFLAG : BOOLEAN;  " RTS PROTOCOL HAS BEEN GENED 8* CMXTRA : PACKED ARRAY[1..6] OF CHAR; * READ : BOOLEAN;0 SYSOPT : INTEGER; " SYSTEM OPTIONS BIT MAP 02 SDINFO : ARRAY [ 1..MAXSD] OF SPEC_DEV_INFO; 2 CHNRSF : INTEGER;8 OPENIO : INTEGER; " LUNO TO BE USED BY COPY MODULES 86 DVFLAGS : PACKED RECORD " FLAGS INSERTED INTO PDT 6* ORI: BOOLEAN; " DEVICE ORIENTATION ** ADD: BOOLEAN; " TILINE ADDRESSABLE *  TIM : BOOLEAN; " TIME OUT  " PRIV : BOOLEAN; " PRIVELEDGED" KBD: BOOLEAN; " KEYBOARD DEVICE" COMM : BOOLEAN; " COMM DEVICE"" TYPD : 0..1023 " DEVICE TYPE"  END; " * DSRCONT : ASMNAM; " PDT REGISTER SIX*@ CNAME : WRD;  " DEVICE NAME USED BY COPY TO BUILD PDT'S@ WPNAME : WRD; > INTUSE : ARRAY[3..15] OF INTEGER; " INTRPT LEVEL USEAGE >D CHSINUSE : ARRAY[0..7] OF BOOLEAN; " EXPANSION CHASSIS PRESENT D8 CASFLAG : BOOLEAN; " CURRENT DEVICE IS A CASSETTE 86 CASCNT : INTEGER; " USED BY RENAME AS A COUNTER, 60  " USED BY BUILD PHASE AS A ASR PRESENT FLAG0> DCODE : BOOLEAN; " PDT FOR UNIT 0 OF A TILINE DEVICE FLAG >: ADDR : INTEGER;" CURRENT DEVICE ADDRESS CRU/TILINE : BUFLEN : INTEGER; CRUIN : INTEGER;  CURPOS : INTEGER; CURINT : INTEGER; TIMWC : INTEGER;  INT : INTEGER;  KMI : INTEGER;  CRDLY : INTEGER;  CHARDLY : INTEGER; " PRI : ARRAY[1..24] OF DEVPTR;"( STID : PACKED ARRAY[1..2] OF CHAR; ( SSBLEN : INTEGER; CJOBID : INTEGER; NJOBID : INTEGER; CJOBPR : INTEGER; CJSIZE : INTEGER; SBADDR : INTEGER; SEGUSE : INTEGER; SEGFLG : INTEGER; SRUNID : INTEGER; CHNFLG : INTEGER; DDVFLG : INTEGER;8 PRFLAG : BOOLEAN; (* PRINT FLAG FOR COPY MODULES *) 8( SGPTR : PACKED ARRAY[1..9] OF CHAR;( CCID : INTEGER;, BATCH : BOOLEAN; (* BATCH MODE FLAG *) ,> FRSIO : IOPTR; (* START OF SEQUENTIAL I/O CALL BLOCKS *) >@, G : RELREC; (* REL-REC CALL BLOCK *) ,> CCSNAM : PACKED ARRAY [1..8] OF CHAR; (* CONFIGURATION *) >> FRSJOB : JOBPTR;  (* GLOBAL POINTER TO START OF JOBS *)>. PATH : PATHNAME;  (* GLOBAL PATHNAME *).D FRSDEV : DEVPTR;  (* GLOBAL POINTER TO START OF DEVICES *) D@ CDEV : DEVPTR;  (* GLOBAL POINTER TO CURRENT DEVICE *) @( XOPA : ARRAY [0..14] OF XOPVECTOR; (6 XOPV : XOPVECTOR; (* SCRATCH XOP FOR ADDXOP *) 6D TILPRE : ARRAY [3..15] OF BOOLEAN; (* MAP OF TILINE DEVICES *) D PSUSED : ARRAY [1..7] OF  ARRAY [0..23] OF INTEGER;  (* INTERRUPT LEVEL IN USE *) 0 TXT : STRING; (* GENERAL PURPOSE BUFFER *) 0: RDTXT : STRING; " COPY OF INPUT CONFIGURATION BUFFER :RS>@F MESTATUS : INTEGER;(* STATUS RETURNED BY READ DEVICE STATUS *) F0 BUF : BUFOUT;(* GENERAL PURPOSE BUFFER *) 02 RPBUF : STRING;(* CONTAINS USER ANSWERS *) 2& LEGALDEVICES  : SET OF DEVTYPE; &$ TILINETYPES : SET OF DEVTYPE; $& XCESSREQUIRED : SET OF DEVTYPE; && TIMEOUTDEVICES : SET OF DEVTYPE; &$ CHARQTYPES  : SET OF DEVTYPE; $: NEWDEVICE : DEVICE; (* SCRATCH DEVICE FOR ADDDEV *) :$ PDTNAM : ARRAY[DEVTYPE] OF WRD;$* LETTER : CHAR; (* FLAG FOR DEFDEV *) *2 CALLBLK : XCBD; (* INTERACTIVE CALLBLOCK *) 2@ TRTEMP,TR : RESPONSE; (* THE ANSWER GIVEN TO A QUESTION *) @< QANSBUS : ARRAY[1..LQ] OF BOOLEAN; (* USER ANSWERED *) <* QLIST : ARRAY[1..LQ] OF BOOLEAN; " QU*ESTION LISTABLE > QHASDEF : ARRAY[1..LQ] OF BOOLEAN; (* HIDDEN QUESTIONS *) >< QANS  : ARRAY[1..LQ] OF BOOLEAN; (* YES/NO ANSWERS *) <* QTX : ARRAY[1..FINALQST] OF INTEGER; *F! (* YESINF AND NOINF ARE THE IMPLICATION TABLES USED BY SYSGEN *) F@ DEVNAM : ARRAY[DEVTYPE] OF WRD; (* NAMES OF THE DEVICES *) @: QTA : INTEGER; (* THE CURRENT QUSTION BEING ASKED *) :0 QP : INTEGER; (* POINTER TO '?' IN TEXT *) 0: ENDREC : INTEGER; (* NUMBER OF MESSAGES IN FILE G *) :D JMSG : GENMSG; (* ALL INTERACTION MESSAGES ARE OF THIS TYPE *) DB ENTFLAG : BOOLEAN; (* WE HAVE REACHED "ENTITY?" IN READCN *) B8 BC : INTEGER; (* BYTE COUNTER IN NAME TRANSFERS *) 8* NAMRT : NAME; (* THE NAME THE USER ANSW* ERED *)  & NUMBIN : ARRAY[1..LQ] OF INTEGER;&F!(* NUMBIN EITHER HOLDS THE NUMBER THAT WAS ENTERED OR THE ADDRESS F< OF THE PATHNAME OR NAME THAT WAS ENTERED BY THE USER *) << TQ : ARRAY[1..LQ] OF QTYPE; (* THE TYPE OF QUESTION *) <6 CQ : INTEGER; (* CURRENT QUESTION BEING SAVED *) 68 OC : INTEGER; (* RECORD NUMBER OF CONFIGURATION *) 8H" X, Y : INTEGER; (* THE CURRENT POINTERS TO TEXT IN THE GENDAT FILE H USED BY ERRMSG *) . CXOP : INTEGER; (* GLOBAL XOP LEVEL *) .0 HELP : BOOLEAN; (* THE USER HIT HELP KEY *)0< INTERACTIVE : BOOLEAN; (* ARE WE READING OR ASKING? *) <D NOMOREQUESTIONS : BOOLEAN; (* SYSTEM QUESTIONS ALL ANSWERED *) D, INLIST : BOOLEAN; (* LIST OR A SAVE *) , OPSVC : SVCDEF;. DESVC : ARRAY[1..NOSVCGROUPS] OF BOOLEAN;.( SVCGRP : ARRAY[0..#7F] OF INTEGER; ( COMSTATUS : COM_STATUS; MAPBRD  : BOARD_MAP;  PRODSR  : COMDSR_BLD;2 DSRNAMES : ARRAY[1..NO_OF_PROTO] OF DSRNAME;2 COMSWS  : BOOLEAN;  PRONDX  : PROTO_INDEX; , DEVNMB  : PACKED ARRAY[1..2] OF CHAR;,, FRSNMB  : PACKED ARRAY[1..2] OF CHAR;, CHNACU  : INTEGER;  PROSPEC : INTEGER;  DEVCNT  : INTEGER; , NXTHLT  : PACKED ARRAY[1..2] OF CHAR;,((*ASYNC DEVICE SUPPORT CHANGES *) ($ ASYNCTYPES  : SET OF DEVTYPE; $, DVCCTLTP : ARRAY[3..15] OF DVCCNTRLTP;, CENTNMB : INTEGER;  DVDT401 : BOOLEAN;  DVDT902 : BOOLEAN;  DVDTANC : BOOLEAN;  DLPANC  : BOOLEAN;  HOLD_ANS : INTEGER; (*$RESUME LIST*) STANST USED BY THE MESSAGE HANDLING ROUTINE 4, EXTEND  = #02; " Use extended block ,8 EXT_FLAGS = #0210; " Beep, return on term char 8& CR  = #0D; " Carriage return &  LF  = #0A; " Line feed   BLANKS  = '';8 ERRLINES  = 14; "VDT LINES AVAILABLE FOR ERRORS 8(D "HERE ARE SOME CONSTANTS USED IN INTERPRETING THE PARAMETER FILED<DEV_LEN = 4; "LENGTH OF THE INTERACTIVE DEVICE NAME <8PFLAG_LEN = 2; "LENGTH OF THE 'FLAGS' PARAMETER(LA8D;"NEXT ADU TO READ IN ALLOCATION 44SSEC : WORD;"STA9 VVk4`4%S48 PK3z@(*$ NO LIST *)>"***********************************************************>1"*S48 - JOB MANAGER REQUEST BLOCK  07/16/80 1>"***********************************************************>S48 = PACKED RECORD # S48SOC : BYTE; "SVC CODE = >48 # S48EC: BYTE; "ERROR CODE  S48OC: BYTE; "SUBOPCODE! S48JPR : BYTE; "JOB PRIORITY !' S48JFL : PACKED RECORD "FLAGS WORD '' S48FNU : BOOLEAN;  "NEW USER ID FLAG '% S48FNV : BOOLEAN; "NO VERIFY FLAG %! S48FBT : BOOLEAN; "BATCH FLAG !S48RES : 0..255; "RESERVEDS48PVL : 0..31; "PRIV LEVEL END; S48JID : WORD; "ID 6 S48JNM : PACKED ARRAY [ 1.. 8 ] OF CHAR; "JOB NAME6$ S48IID : BYTE; "INITIAL TASK ID$ S48!JCA : BYTE;  "INITIAL JCA SIZE !< S48BPM : PACKED ARRAY [ 1.. 4 ] OF BYTE; "BID PARAMETERS<$ S48SID : BYTE; "TASK STATION ID$+ S48PFL : BYTE;  "TASK PROGRAM FILE LUNO + S48SSI : WORD; "SEGMENT ID $ S48LNI : WORD; "NAME SEGMENT ID$5 S48UID : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER ID 5; S48PWD : PACKED ARRAY [ 1.. 8 ] OF CHAR; "USER PASSWORD ;= S48ACT : PACKED ARRAY [ 1..16 ] OF CHAR; "USER ACCOUNT ID =END; (*$ RESUME LIST *) WRITE PROTECT22IPSEXP =9; "&EXECUTE PROTECT FOR IPS COMMAND25IOSEGT =9; "&ASSOCIATED SEGMENT TYPE FOR IO CMD 5REUSE = 10; "&REUSEABLE? *IPWCS = 10; "&INSTALL PROCEDURE WCS*2IPSWTP = 10; "&WRITE PROTECT FOR IPS COMMAND2IONO'DSTDIB P K C35z@(*$ NO LIST *) DIB = PACKED RECORD 4 DIBACR : WORD; "*ACU CRU ADDRESS(>FFFF IF NONE)4$ DIBHWR : BYTE; "*INTERFACE TYPE$ FILL00 : BYTE; "RESERVED 3 DIBRTO : WORD; "*READ TIMEOUT (IN 1/4 SECONDS) 33 DIBWTO : WORD; "*WRITE TIMEOUT(IN 1/4 SECONDS) 33 DIBDT1 : WORD; "*FIRST DIRECT TIMEOUT(1/4 SEC) 33 DIBDT2 : WORD; "*SECOND DIRECT TIMEOU%%T(1/4 SEC 3; DIBGFL : PACKED RECORD "*SYSGEN FLAGS (SAME AS DIBTFL) ;( GFLECO : BOOLEAN;  "*ECHO (1=NO ECHO)(FILL01 : 0.. 1; + GFLXPE : BOOLEAN;  "*XMIT PARITY ENABLED +FILL02 : 0.. 3; - GFLRPE : BOOLEAN;  "RECEIVE PARITY ENABLED -FILL03 : 0.. 3; END;( DIBSTF : PACKED RECORD "STATE FLAGS( STFONL : BOOLEAN; "ONLINE * STFCIP : BOOLEAN;  "CONNECT IN PROGRESS* STFOPN : BOOLEAN; "OPEN # STFDLE : BOOLEAN; "DLE RECEIVED #2 STFHDX : BOOLEAN; "HDUX LINE BELONGS TO REMOTE2" STFRSD : BOOLEAN; "RESEND FLAG"FILL04 : 0.. 3; END;( DIBLNF : PACKED RECORD "*LINE FLAGS(3 LNFHDX : BOOLEAN; "*HALF DUPLEX (1=HALF DUPLEX) 32 LNFSWT : BOOLEAN; "*SWITCHED LINE (1=SWITCHED)2" LNFRCL : BOOLEAN; "REFUSE CALL"/ LNFADE : BOOLEAN;  "*AUTO-DISCONNECT ENABLED /. LNFDLE : BOOLEAN;  "*DLE/EOT FOR DISCONNECT.- LNFSCF : BOOLEAN;  "SCF READY/BUSY MONITOR -1 LNFEXC : BOOLEAN; "FILE XFER EXCLUSIVE ACCESS 1- LNFHDL : BOOLEAN;  "HALF DUPLEX LTA ENABLE -END;3 DIBTFL : PACKED RECORD  "TEMPORARY ACCESS FLAGS 3TFLE#CO : BOOLEAN;  "ECHO (1=NO ECHO) #FILL05 : 0.. 1; * TFLXPE : BOOLEAN;  "XMIT PARITY ENABLED*FILL06 : 0.. 3; - TFLRPE : BOOLEAN;  "RECEIVE PARITY ENABLED -FILL07 : 0.. 3; END;' DIBSPD : BYTE;  "*BAUD RATE (SPEED) ') DIBEOR : BYTE;  "*END OF RECORD (=CR) )) DIBEOF : BYTE;  "*END OF MEDIUM (=EM) ), DIBLTA : BYTE;  "*LINE TURNAROUND (=EOT),4 DIBSUB : BYTE; "*PARITY ERROR SUBSTITUTE (='?')43 DIBDLA : BYTE; "CARRIAGE RETURN DELAY INTERVAL 31 DIBPCR : WORD; "PARITY CHECK ROUTINE ADDRESS 1/ DIBPSR : WORD; "PARITY SET ROUTINE ADDRESS /0 DIBMXC : WORD; "MAXIMUM CHARACTERS BUFFERED00 DIBTRM : BYTE; "*TERMINAL TYPE (TYPE - 700)0, DIBLCR : BYTE;  "LAST CHARACTER RECEIVED,1 DIBXFL : PACKED RECORD  "SAVED EXTENDED FLAGS 1 FILL08 : 0..65535;END;. DIBSVE : BYTE;  "SAVED ERROR CODE FROM DSR.4 DIBGSP : BYTE; "*CURRENT SPEED (SAME AS DIBSPD)4 DIBISR : WORD; "RESERVED 4 DIBGTO : WORD; "*GENNED TIMEOUT(IN 1/4 SECONDS)4, DIBPEC : WORD;  "NUMBER OF PARITY ERRORS,. DIBLCC : WORD;  "NUMBER OF LOST CHARACTERS.END; (*$ RESUME LIST *) FLAG LNFSWT *SWITCHED LINE (1=SWITCHED) 0  FLAG LNFRCL  REFUSE CALL , FLAG LNFADE  *AUTO-DISCONNECT ENABLED ,, FLAG LNFDLE  *DLE/EOT FOR DISCONNECT ,, FLAG LNFSCF  SCF READY/BUSY MONITOR ,0 FLAG LNFEXC  FILE XFER EXCLUSIVE ACCESS 0, FLAG LNFHDL  HALF DUPLEX LTA ENABLE ,*DIBTFL FLAGS 8&SEMCMM PK2-z (* $NO LIST *) " '("  COMMON SEGMENT FOR SEM UTILITY (" ' SEMCMM : RECORD0IRB_PTR : IRBPTR;  "PTR TO I/O CALL BLOCK 0,CURRENCY: CURR_BLK; "CURRENCY BLOCK ,(KEY : PACKED ARRAY[0..16] OF CHAR; (" '( PROC_TYPE : STRING; "SCI PROC TYPE (,CATAGORY: STRING;  "MESSAGE CATAGORY ,.EXPL_STG: STRING;  "EXPLANATION STRING ..UACT_STG: STRING;  "USER ACTION STRING .0SHORT_MSG : LONGSTRING; "SHORT FORM MESSAGE 0$MSG_ID: STRING; "MESSAGE ID $,KEYLEN: INTEGER; "KEY LENGTH OF FILE ,,BUFFER: PACKED ARRAY[1..1600] OF CHAR; ,  END; "  (* $LIST *)" DIBSTF : PACKED RECORD "STATE FLAGS( STFONL : BOOLEAN; "ONLINE )NFER40 PK3 z(*$ NO LIST *) NFER40 : PACKED RECORD?"************************************************************ ?"** ;"*NFER40- ERROR CONSTANTS COMMON AREA # 5 05/04/83* ;"** ?"************************************************************ ?1 ERR40: BYTE; "JOBMGR -INVALID JOB PRIORITY 1+ ERR41: BYTE;  "JOBMGR -BAD STATION ID +7 ERR42: BYTE; "JOBMGR -INVALID ID FOR SYNONYM SEG 78 ERR43: BYTE; "JOBMGR -INVALID ID FOR LOG NAME SEG8, ERR44: BYTE;  "JOBMGR -INVALID USER ID,- ERR45: BYTE;  "JOBMGR -INVALID PASSCODE -4 ERR46: BYTE; "JOBMGR -JOB NOT FOUND IN SYSTEM47 ERR47: BYTE; "JOBMGR -JOB NOT ACTIVE ON HALT SVC 75 ERR48: BYTE; "JOBMGR -JOB NOT HALTED ON RESUME 5/ ERR49: BYTE; "JOBMGR -JOB NAME NOT FOUND // ERR4A: BYTE; "JOBMGR -DUPLICATE JOB NAME / ERR4B: BYTE; " 7 ERR4C: BYTE; "JOBMGR -ILLEGAL REQUEST FOR SYSJOB 78 ERR4D: BYTE; "JOBMGR -INVALID OPERATION FOR A JOB8, ERR4E: BYTE;  "JOBMGR -ILLEGAL OP CODE,3 ERR4F: BYTE; "SVC00 -MAG TAPE EOT AND ERROR 3END; (*$ RESUME LIST *)+N( (`R)l+N( (`p) .S$BTLF03+T+N)0 )8`h)l+N)B )8```+N)V )^` )l+N@+N:``+)t )|`)l+N*IOPDSD PK!X3 dz(*$ NO LIST *) IOPDSD : PACKED RECORDEND; (*$ RESUME LIST *)@"* *@"*IOPDSD - PRIORITY DSR SCHEDULER DATA AREA  10/07/83  *@$"* USED BY NFTRTN AND IODBGN  *$"* *@"*************************************************************@XRTOX ",$FC="",$FD="",$FE=""/.SYN $FF="",$PRI="",$R="",$MOE$I="",$MOE$N="" /$.SYN $PF$D="",$PF$P="", $MSD$CN=""$?.SYN $CU1="",$CU2="",$CU3="",$CU4= XXRT`O^ODE=1,5PARMS=((&INPUT ACCESS NAME),"@&OUTPUT ACCESS NAME", 5,NO,"&REPLACE",NO,"&MAXIMUM RECORD LENGTH"),ST="CB1@$$MO^$@$$ST":.IF @$$CC,EQ,0 .IF &PROCESS,GE,Y .SYN $CB$P="T".ELSE .SYN $CB$P="F".ENDIF )NFERR2 PK$M3 xz(*$ NO LIST *) NFER40 : PACKED RECORD?"************************************************************ ?"** ;"*NFER40- ERROR CONSTANTS COMMON AREA # 5 05/04/83* ;"** ?"************************************************************ ?1 ERR40: BYTE; "JOBMGR -INVALID JOB PRIORITY 1+ ERR41: BYTE;  "JOBMGR -BAD STATION ID +7 ERR42: BYTE; "JOBMGR -INVALID ID FOR SYNONYM SEG 78 ERR43: BYTE; "JOBMGR -INVALID ID FOR LOG NAME SEG8, ERR44: BYTE;  "JOBMGR -INVALID USER ID,- ERR45: BYTE;  "JOBMGR -INVALID PASSCODE -4 ERR46: BYTE; "JOBMGR -JOB NOT FOUND IN SYSTEM47 ERR47: BYTE; "JOBMGR -JOB NOT ACTIVE ON HALT SVC 75 ERR48: BYTE; "JOBMGR -JOB NOT HALTED ON RESUME 5@/ ERR49: BYTE; "JOBMGR -JOB NAME NOT FOUND // ERR4A: BYTE; "JOBMGR -DUPLICATE JOB NAME / ERR4B: BYTE; " 7 ERR4C: BYTE; "JOBMGR -ILLEGAL REQUEST FOR SYSJOB 78 ERR4D: BYTE; "JOBMGR -INVALID OPERATION FOR A JOB8, ERR4E: BYTE;  "JOBMGR -ILLEGAL OP CODE,3 ERR4F: BYTE; "SVC00 -MAG TAPE EOT AND ERROR 3END;5 ERR50: BYTE; "SVC00 -TPD DEV CHAR=EXCL ACCESS 50 ERR51: BYTE; "SVC00 -TPD - FRAMING ERROR05 ERR52: BYTE; "SVC00 -TPD-CHARACTERS WERE LOST 56 ERR53: BYTE; "SVC00 -CDE DOES NOT EXIST (DIOU)64 ERR54: BYTE; "SVC00-DEVICE IS BUSY (DIOU)4 ERR55: BYTE; " 7 ERR56: BYTE; "SVC00-INVALID PARM NUMBER (DIOU) 7 ERR57: BYTE; "SVC00-B UFFER TOO SMALL (DIOU)8 ERR58: BYTE; "SVC31-NAME NOT FOUND IN DIRECTORY8 ERR59: BYTE; "  ERR5A: BYTE; " 9 ERR5B: BYTE; "SVC00-CAN'T REDIRECT NON ASSIGN LU 91 ERR5C: BYTE; "SVC2A -INVALID OVERLAY LINK 19 ERR5D: BYTE; "SVC00-ILLEGAL PARM DEFN LIST(DIOU) 99 ERR5E: BYTE; "SVC00-WRITE-PROTECT VIOLATION (DIO 96 ERR5F: BYTE; "SVC00 -ILLEGAL CDE NUMBER (DIOU)6END;3 ERR60: BYTE; "IOU -ODD RECORD LEN SPECIFIED 32 ERR61: BYTE; "IOU -ZERO INITIAL ALLOCATION25 ERR62: BYTE; "IOU-SEQ PHYS REC SIZ TOO SMALL 52 ERR63: BYTE; "IOU -PHYS REC SIZE LESS THAN25 ERR64: BYTE; "IOU-KIF LOGICAL REC LNG = ZERO 5" ERR65: BYTE; "IOU-KEY BLK" LNG WRONG FOR # OF , ERR66: BYTE; "IOU -NO KEYS SPECIFIED,5 ERR67: BYTE; "IOU-NUMBER OF KEYS EXCEEDS MAX 5, ERR68: BYTE; "IOU -NUMBER OF RECORDS,/ ERR69: BYTE; "IOU -PRIMARY KEY CAN'T BE /0 ERR6A: BYTE; "IOU -KEN LENGTH IS ZERO OR05 ERR6B: BYTE; "IOU-PHYS REC LNG TOO SMALL FOR 53 ERR6C: BYTE; "IOU -B-TREE PHYS REC SIZE TOO 33 ERR6D: BYTE; "IOU -PHYSICAL RECORD SIZE TOO 35 ERR6E: BYTE; "IOU-INTERSECTION OF MODIFIABLE 52 ERR6F: BYTE; "SVC34 -LUNO ASSIGNED TO FILE2END;. ERR70: BYTE; "IOU -DIRECTORY NOT EMPTY.6 ERR71: BYTE; "IOU-INVALID FILE TYPE SPECIFIED64 ERR72: BYTE; "IOU -BAD USAGE FLAGS SPECIFIED4 ERR73: BYTE; "I!OU-FILE ALLOC. TOO FRAGMENTED !6 ERR74: BYTE; "IOU-INVALID FILE CREATION PARMS60 ERR75: BYTE; "IOU -LUNO ASSIGNED TO FILE03 ERR76: BYTE; "IOU -FILE IS DELETE PROT%%ECTED 34 ERR77: BYTE; "IOU -LUNO NOT ASSIGNED TO FILE46 ERR78: BYTE; "IOU-LUNO & PATHNAME DON'T MATCH6/ ERR79: BYTE; "IOU -FILE IS NOT AN ALIAS /4 ERR7A: BYTE; "IOU -"DON'T REPLACE" SPECIFIED46 ERR7B: BYTE; "IOU-LUNO & PATHNAME NOT ON SAME65 ERR7C: BYTE; "IOU-BAD DATA FORMAT (10 OR 11) 54 ERR7D: BYTE; "IOU -BAD LUNO OR CHANNEL SCOPE47 ERR7E: BYTE; "IOU-ATTEMPT TO CREATE MULTI-FILE 75 ERR7F: BYTE; "IOU-INVALID OPER. ON .VCATALOG 5END; (*$ RESUME LIST *)E PROTECTE2+SEM PK3 20z(*$ NO LIST *) SEM = PACKED RECORD  SEMSEM : @SEM ; SEMVAL : BYTE;  SEMNUM : BYTE;  SEMTSB : WORD; END; (*$ RESUME LIST *)5 08/14/81 *:"** ?"************************************************************ ?1 ERR40: BYTE; "JOBMGR -INVALID JOB PRIORITY 1+ ERR41: BYTE;  "JOBMGR -BAD STATION ID +7 ERR42: BYTE; "JOBMGR -INVALID ID FOR SYNONYM SEG 78 ERR43: BYTE; "JOBMGR -INVALID ID FOR LOG NAME SEG8, ERR44: BYTE;  "JOBMGR -INVALID USER ID,- ERR45: BYTE;  "JOBMGR -INVALID PASSCODE -4 ERR46: BYTE; "JOBMGR -JOB NOT FOUND IN SYSTEM47 ERR47: BYTE; "JOBMGR -JOB NOT ACTIVE ON HALT SVC 75 ERR48: BYTE; "JOBMGR -JOB NOT HALTED ON RESUME 58+NFPWER P K6$83 z@(*$ NO LIST *) NFPWER : PACKED RECORD"*B PWDNWP : PACKED ARRAY [ 1..26 ] OF BYTE; "POWER DOWN WORKSPACEB FILL00 : WORD; "R13 FILL01 : WORD; "R14 FILL02 : WORD; "R15 FILL03 : WORD; "R13 FILL04 : WORD; "R14 FILL05 : WORD; "R15% FILL06 : WORD;  "OVERHEAD FOR MSG % PWFMSG : WORD; "SLBSLB " FILL07 : WORD; "SLBFLG/SLBCNT" FILL08 : WORD; "SLBDAY  FILL09 : WORD; "SLBHR FILL0A : WORD; "SLBMIN  FILL0B : WORD; "SLBTYP  FILL0C : WORD; "SLBTYP  FILL0D : WORD; "SLBLEN 8 PWFLUC : WORD; "POWER DOWN/UP FLUCTUATION INDICATOR8I$ OFFLIN : PACKED ARRAY [ 1.. 2 ] OF BYTE; "COUNT OF DISK UNITS OFFLINE I TIMER : PACKED ARRAY [ 12.. 4 ] OF BYTE; "ELAPSE TIMER TO BRING DISKS ON2J PWWP  : PACKED ARRAY [ 1.. 2 ] OF BYTE; "POWER DOWN WORKSPACE POINTERJH PWPC : PACKED ARRAY [ 1.. 2 ] OF BYTE; "POWER DOWN PROGRAM COUNTERH? PWST : PACKED ARRAY [ 1.. 2 ] OF BYTE; "POWER DOWN STATUS ?G PWMAP: PACKED ARRAY [ 1.. 2 ] OF BYTE; "POWER DOWN CURMAP POINTER GL% MEMBPT : PACKED ARRAY [ 1.. 2 ] OF BYTE; "MEMORY BREAK POINT ADDRESS FORL; M12LST : PACKED ARRAY [ 1.. 2 ] OF WORD; "4 EXTRA PAIRS ;. FILL0E : PACKED ARRAY [ 1.. 2 ] OF WORD; ".. FILL0F : PACKED ARRAY [ 1.. 2 ] OF WORD; ".. FILL10 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".. FILL11 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".B TRACES : PACKED ARRAY [ 1..64 ] OF BYTE; "TRACE SAVE AREA FOR B /12 ERRORS END; (*$ RESUME LIST *)` E ! ! !. V ## !$!$T`| , V ,  =@  /  ` " EE [΋$F/' #e0` "΋$FgE %g    F ! ՠ! `#΋$F/'` "g !!6! "!`H`#΋$D g'  h( !  ! PgE `#΋$Hê'!!!(!g D*'g DD gg DDD  'g DD g' gE `#΋$L! /// '` "(` "`#Ƌ!$>>-S03 PK? 23{(*$ NO LIST *)!( S03 = packed recordS03SVC : BYTE; S03ERC : BYTE; S03DBA : WORD;  end;(*S03*)"( (*$ RESUME LIST *) "POWER DOWN PROGRAM COUNTERH? PWST : PACKED ARRAY [ 1.. 2 ] OF BYTE; "POWER DOWN STATUS ?G PWMAP: PACKED ARRAY [ 1.. 2 ] OF BYTE; "POWER DOWN CURMAP POINTER GL% MEMBPT : PACKED ARRAY [ 1.. 2 ] OF BYTE; "MEMORY BREAK POINT ADDRESS FORL; M12LST : PACKED ARRAY [ 1.. 2 ] OF WORD; "4 EXTRA PAIRS ;. FILL0E : PACKED ARRAY [ 1.. 2 ] OF WORD; ".. FILL0F : PACKED ARRAY [ 1.. 2 ] OF WORD; ".. FILL10 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".. FILL11 : PACKED ARRAY [ 1.. 2 ] OF WORD; ".B TRACES : PACKED ARRAY [ 1..64 ] OF BYTE; "TRACE SAVE AREA FOR B/VDT PKB2<{(*$ NO LIST *) VDT = PACKED RECORD  VDTXUF : PACKED RECORD  XUFDEF : BOOLEAN;  XUFNTN : BOOLEAN;  XUFBLN : BOOLEAN;  XUFGRA : BOOLEAN;  XUFEBA : BOOLEAN;  XUFCCF : BOOLEAN;  XUFBEP : BOOLEAN;  XUFRDB : BOOLEAN;  XUFPOS : BOOLEAN;  XUFFLC : BOOLEAN;  XUFFIN : BOOLEAN;  XUFRIF : BOOLEAN;  XUFNEC : BOOLEAN;  XUFVRQ : BOOLEAN;  XUFVER : BOOLEAN;  XUFWBF : BOOLEAN; END; VDTFIL : BYTE;  VDTEVT : BYTE;  VDTPOS : WORD;  VDTDEF : WORD;  VDTVTA : WORD;  VDTJIN : WORD;  VDTSC1 : WORD;  VDTSC2 : WORD; END; (*$ RESUME LIST *)UT PARAMETER 0: BAD_LINE_1 = #91B0 ; "LINE 1 OF INPUT FILE IS BAD:>VRB PKE3 7{@(*$ NO LIST *)D!"*****************************************************************D"* *2"* VIRTUAL REQUEST BLOCK(VRB) 8/22/83  *2"* *."* LOCATION: SYSTEM TABLE AREA AND JCA *."* *D!"*****************************************************************DB"*DEFINITIONS OF FIELDS IN DSR CALL BLOCK (DATA BUFFER FOR I/OB2"*SVC SUBOPCODE >17) FOR VIRTUAL TERMINAL DSR.2"*VRB = PACKED RECORD ' VRBOC: BYTE;  "VTDSR REQUEST CODE '& VRBEC: BYTE;  "VTDSR RETURN CODE&2 VRBVT: WORD; "VIRTUAL TERMINAL NUMBER (HEX)2 VRBCHR : BYTE; "BID CHAR # VRBLC: BYTE; "LUNO USE COUNT # VRBJOB : WORD; "PDTJOB 4 VRBRDN :PACKED ARRAY [ 1.. 7] OF WORD; "REMOTE4 DEVICE NAME' VRBJID : WORD;  "REAL TERM JOB I.D. '< VRBIPC :PACKED ARRAY [ 1.. 6] OF WORD ; "OWNER IPC NAME<END; (*$ RESUME LIST *)JZ)JZJ$***** **{;{;{J#[kΉΈ·Ά΅΄΃΂΁[./1с /*//p  9/ ?@j)l *:)l `)* *:+n$ %`+n%  %`'' )>)P+N%:`+N%B``+N%N %V`%F+N%~ %V`+N% %V`+n% %`%F%z%%%+% %`+N% %`~+N% &` p+N%''  &` +N% V'+N%-' '+N& &` H+N& &` )) 1NFSHDD PD3 y(*$ NO LIST *) NFSHDD : PACKED RECORD< SCHTMP : PACKED ARRAY [ 1.. 2 ] OF WORD; "SCHEDULAR TEMP<END; (*$ RESUME LIST *)/"** ?"************************************************************ ?ςVhςVh\8c ģ£ʣ£ʣρVhkbabb bf b`8 b`7 b`7bxbbba$$FN LEAFNAMEb$=bb0c cb| b`9Xbbc.9c.9c.b b`9bc.9c.9`:"`:$`R aacZK``FJ c.b b`:<pb .S$BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`L2DMT PDT3y(*$ NO LIST *)>"***********************************************************>8"*DISC MANAGER TASK WORK AREA (DMT)  06/26/79  *8"* * "*LOCATION: TASK AREA  * >"***********************************************************> DMT = PACKED RECORD   DMTAPB : WORD; "ADU'S/BLOCK  DMTBPA : WORD; "BLOCKS/ADU # DMTPBM : WORD; "STARTING PBM # #' DMTBIT : WORD;  "STARTING PBM BIT # '1 DMTSPM : WORD; "LARGEST BLOCK STARTING PBM # 1 DMTSBT : WORD; "BIT # DMTSLB : WORD; "SIZE END; (*$ RESUME LIST *)BTLF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`L3LGLCOM PDV3 {y(*$ NO LIST *) LGLCOM : PACKED RECORD- FILL00 : WORD;  "FLAGS (SEE LFD TEMPLATE) -2 FILL01 : WORD; "MAX MESSAGE COUNT (0=>NO MAX)2. FILL02 : BYTE;  "ID OF TASK TO BID ON FULL.3 FILL03 : BYTE; %%"ID OF USER TASK TO BID ON FULL 3L% FILL04 : PACKED ARRAY [ 1.. 4 ] OF CHAR; "LOG DEVICE NAME (BLANKS=>NONE)L8 FILL05 : PACKED ARRAY [ 1.. 8 ] OF CHAR; "FILENAME 188 FILL06 : PACKED ARRAY [ 1.. 8 ] OF CHAR; "FILENAME 28( FILL07 : WORD;  "LOG FILE ALLOCATION(3 FILL08 : PACKED ARRAY [ 1.. 2 ] OF BYTE; "LUNOS 3END; (*$ RESUME LIST *)LF03+Tcc$c`p acZabK8c aacNcKbcR cZ`Kccccfcrccj cZ`Kbc.cv cZ`Kc.c c`Lbc.c c`L`LEOD COMMON D fKWff{l{)NFER50 KU2{{-@ UNL# CSEG 'NFER50'@************************************************************ @ *  * >*  NFER50- ERROR CONSTANTS COMMON AREA # 605/05/83 * > *  * @************************************************************ @8ERR50 BYTE >50  SVC00 -TPD DEV CHAR=EXCL ACCESS 8,* SVC25 THRU SVC27 -BAD OBJECT FORMAT,(*  JOBMGR -ERROR ACCESSING .S$CLF (2ERR51 BYTE >51  SVC00 -TPD - FRAMING ERROR20* SVC25 THRU SVC27 -ID IS ALREADY DEFINED 0,*  JOBMGR -ERROR BIDDING INITIAL TASK ,8ERR52 BYTE >52  SVC00 -TPD-CHARACTERS WERE LOST 82* SVC25 THRU SVC27 -NAME IS ALREADY DEFINED 2**  JOBMGR -STATION SPECIFIED IN USE * ERR53 BYTE >53  SVC00-CDE  DOES NOT EXIST (DIOU) 2* SVC25 THRU SVC27 -MISSING COLON RECORD IN 2*  OBJECT .*  JOBMGR -INVALID ACCT ID ON CREATE JOB .6ERR54 BYTE >54  SVC00-DEVICE IS BUSY (DIOU) 6.* SVC25 THRU SVC27 -NO ID IS AVAILABLE ..*  SVC48-REQUESTOR NOT SYSTEM OPERATOR .ERR55 BYTE >55 **  SVC25 -LENGTH IN OBJECT IS ZERO ***  SVC26 -LENGTH IN OBJECT IS ZERO ***  SVC27 -LENGTH IN OBJECT IS ZERO *:ERR56 BYTE >56  SVC00-INVALID PARM NUMBER (DIOU) :6* SVC25 THRU SVC27-NO OBJECT LUNO GIVEN(ZERO) 66ERR57 BYTE >57  SVC00 -BUFFER TOO SMALL (DIOU) 64* SVC25 THRU SVC2A -NO PF LUNO GIVEN(SPECIAL) 4**  SVC31 -NO PF LUNO GIVEN(SPECIAL) **  S$VC37 -NO PF LUNO GIVEN(SPECIAL) $:ERR58 BYTE >58  SVC31-NAME NOT FOUND IN DIRECTORY :ERR59 BYTE >59 2* SVC25 THRU SVC2A -PF LUNO NOT A PROG FILE 2(*  SVC31 -PF LUNO NOT A PROG FILE ((*  SVC37 -PF LUNO NOT A PROG FILE (&*  SVC38 -INTERACTIVE BAD TRACK & *  ACCESS NAME NOT ALLOWED ERR5A BYTE >5A >ERR5B BYTE >5B  SVC00-CAN'T REDIRECT NON ASSIGN LUNO >*  CALL BLOCKS,* SVC25 THRU SVC2A -LUNO NOT ASSIGNED,"*  SVC31 -LUNO NOT ASSIGNED""*  SVC37 -LUNO NOT ASSIGNED"4ERR5C BYTE >5C  SVC2A -INVALID OVERLAY LINK 4**  SVC00 -MRB TOO SMALL FOR ENTIRE **  CALL BLOCK 4ERR5D BYTE >5D  SVC00 -ILLEGAL PARM DEFN LIST(4 DIOU) 6* SVC28 THRU SVC2A-ID NOT PROVIDED AS REQUIRD 6,*  SVC31-ID NOT PROVIDED AS REQUIRD ,>ERR5E BYTE >5E  SVC00-WRITE-PROTECT VIOLATION (DIOU) >,*  SVC31-INVALID TYPE GIVEN FOR MAP ,*  NAME 8ERR5F BYTE >5F  SVC00 -ILLEGAL CDE NUMBER (DIOU) 84* SVC29 THRU SVC2A -SPECIFIED ID NOT DEFINED 4**  SVC31 -SPECIFIED ID NOT DEFINED *@************************************************************ @* ':*  BYTE DEFINITIONS.MAKE THEM EQU'S TO ERROR BYTES :*  WHERE AT ALL POSSIBLE.* '@************************************************************ @BYTE50 EQUERR50 BYTE51 EQUERR51 BYTE52 EQUERR52 BYTE53 EQUERR53 BYTE54 EQUERR54 BYTE55 EQUERR55 BYTE56 EQUERR56 BYTE57 EQUERR57 BYTE58 EQUERR58 BYTE59 EQUERR59 BYTE5A EQUERR5A BYTE5B EQUERR5B BYTE5C EQUERR5C BYTE5D EQUERR5D BYTE5E EQUERR5E BYTE5F EQUERR5F * ' CEND 'NFER50'  EVEN "  LIST " S040% ( SRAR3,1 MAKE A WORD DISPLACEMENT (  DECR3!  C@MAXPOS,R3EXCEED MAX?   JLTCAL110" C@MAXNEG,R3TOO FAR BACK? " JLTCAL910OK VALUE CAL110% " LI R1,DISVAL  POST ERROR " JMPCAL810* ' *  CRU SIZE OR SHIFT COUNT * ' CALSHF% CALCRU%  COC@EVABS,R2 ABSOLUTENFERR4 PK 2|{. UNL#@************************************************************ @ *  * :*  NFERR4 - ERROR CONSTANTS >C0 => >FF 08/14/81 * : *  * @************************************************************ @$ COPY DSC.TEMPLATE.COMMON.NFERC0$$ COPY DSC.TEMPLATE.COMMON.NFERD0$$ COPY DSC.TEMPLATE.COMMON.NFERE0$$ COPY DSC.TEMPLATE.COMMON.NFERF0$  LIST " 2ERR51 BYTE >51  SVC00 -TPD - FRAMING ERROR20* SVC25 THRU SVC27 -ID IS ALREADY DEFINED 0,*  JOBMGR -ERROR BIDDING INITIAL TASK ,8ERR52 BYTE >52  SVC00 -TPD-CHARACTERS WERE LOST 82* SVC25 THRU SVC27 -NAME IS ALREADY DEFINED 2**  JOBMGR -STATION SPECIFIED IN USE * ERR53 BYTE >53  SVC00-CDE LGLCOM K2}{0 UNL=@************************************************************$@ *  *$ 2*  LGLCOM - SYSTEM LOG COMMON 09/09/83 *$2* TEMPLATE : LFD *$ *  *$ @************************************************************$@ CSEG 'LGLCOM'7LGLCOM EQU$ ;& WORD 0  FLAGS (SEE LFD TEMPLATE)'&, WORD 0 MAX MESSAGE COUNT (0=>NO MAX) $,( BSS1  ID OF TASK TO BID ON FULL &(, BSS1 ID OF USER TASK TO BID ON FULL$,, CHAR 4 LOG DEVICE NAME (BLANKS=>NONE)$, CHAR 8 FILENAME 1. CHAR 8 FILENAME 2." WORD 0  LOG FILE ALLOCATION )" BSS2 LUNOS 0 CEND 'LGLCOM'8  PAGE <  LIST < SPECIFIED IN USE * ERR53 BYTE >53  SVC00-CDE SPDATA Kw2{2@0********************************************0**  SPDATA - SPOOLER DATA COMMON  *** 06/08/83  *.*  SEGMENT IS SHARED BY DST AND SPINIT *.0********************************************0" COPY DSC.TEMPLATE.ATABLE.FID "" COPY DSC.TEMPLATE.ATABLE.IRB "" COPY DSC.TEMPLATE.ATABLE.MRB "" COPY DSC.TEMPLATE.ATABLE.S2B "" COPY DSC.TEMPLATE.ATABLE.S31 "" COPY DSC.TEMPLATE.ATABLE.S3D "" COPY DSC.TEMPLATE.ATABLE.S43 "" COPY DSC.TEMPLATE.ATABLE.CNT "" COPY DSC.TEMPLATE.ATABLE.SDT "" COPY DSC.TEMPLATE.ATABLE.SDQ "" COPY DSC.TEMPLATE.ATABLE.SPM " UNL#* PCKREC HR QUEUE FILE HEADER RECORD *&HDRNAM RECFID FILE IDENTIFIER &HDRCLS DATA 0 NU MBER OF CLASS NAME RECORDS 2HDRDEV DATA 0 NUMBER OF DEVICE TABLE RECORDS 2  ENDREC ! * ' PCKREC CNR ARRAYCNTNUM,CNT  ENDREC ! * '$ PCKREC MRA MASTER READ BUFFER$*MRHDR RECMRB  MASTER READ OVERHEAD*.MRMSG RECSPM  USER MESSAGE TO SPOOLER .  ENDREC ! * '* PCKREC SID SPOOL ID CREATION AREA *$SPLLNG DATA 0 SPOOL ID LENGTH $"SPLRID CHAR 6 SPOOL ID TEXT "  ENDREC ! * '* PCKREC QR  QUEUE RECORD DEFINITION* ARRAYSDQNUM,SDQ  ENDREC ! * ' CSEG 'SPDATA'6*-------------------------------------------------6* BUFFER AREAS!*-- &4CNTREC RECCNR  CLASS NAME RECORD BUFFER AREA 4@*-- &*-- &8SDTREC ARRAYSDTNUM,SDT DEVICE TABLE RECORD BUFFER8*-- &*-- &.QREC1 RECQR QUE ENTRY RECORD BUFFER #1 ..QREC2 RECQR QUE ENTRY RECORD BUFFER #2 .*-- &2*--  QUEUE RECORD BUFFER ONE IS USED TO HOLD26*--  THE QUEUE RECORD ENTRY (SDQ) JUST BUILT OR 6*--  JUST LOCATED.*-- &.*--  QUEUE RECORD BUFFER TWO IS USED TO .0*--  HOLD THE SDQ ENTRY THAT IS POSITIONED00*--  PRIOR TO THE NEW OR LOCATED ENTRY IN 02*--  THE PRIORITY CHAIN. IT IS USED IN QUEUE2*--  MAINTENANCE. *-- &*-- &(HDRREC RECHR FILE HEADER RECORD (*-- &.MRAREA RECMRA  MASTER READ BUFFER AREA.*-- & *--------- ,----------------------------------------,* ' * SUPERVISOR REQUEST BLOCKS  * '4SDFBLK RECIRB BLOCK FOR I/O TO .SDT$QUE FILE 4.MREAD RECIRB  MASTER READ/WRT SVC BLK .&DEVIRB RECIRB DEVICE I/O BLOCK&(ACCIRB RECIRB  ACCOUNTING CHANNEL(4LNBLK RECS43 CREATE/DELETE LOGICAL NAME BLK 4,BIDSVC RECS2B  BLOCK FOR BID TASK SVC,2MAPPRG RECS31 BLOCK FOR MAP NAME TI ID SVC 22SEMWAT RECS3D SEMAPHORE OPERATIONS SVC BLK 2>*-------------------------------------------------------- >&* WORKING PARAMETERS AND ADDRESSES&* '*MISFLG FLAGS 16  MISCELLANE%%OUS FLAGS *( FLAG QTYP TRUE=DEVICE QUEUE ENTRY (, FLAG HOLFND TRUE=AVAILABLE SPACE FOUND ,.@* FLAG ACCOFF TRUE=ACCOUNTING DISABLED *, FLAG DISABL TRUE=DISABLE ALL CMDS THAT ,*  USE SEMAPHORES , FLAG QFC TRUE=QUEUE FILE JUST CREATED ,$ BITS 11 *** RESERVED BITS *** $*SP$ID RECSID  SPOOL ID NAME AREA *0MSGADR PTRSPM  ADDRESS OF MESSAGE TO DST 0*CURFRM CHAR 8  WORKING SPACE FOR FORM*SPLID DATA 0 SPOOLER ID.CURCR DATA 0  CURRENT CLASS NAME RECORD.0CURDR DATA 0  CURRENT DEVICE TABLE RECORD00FIRSTD DATA 0  FIRST DEVICE RECORD NUMBER 00FIRSTQ DATA 0  FIRST QUEUERECORD NUMBER 02PRIOPT DATA 0 PRINT BY PRIORITY OPTION FLAG 2*-- &"MAXQR WORD MAX QUEUE RECORD".INIERR BYTE 0  INITIALIZATION ERROR CODE .*-- &.QUEOF1 BYTE 0  OFFSET INTO QUE BUFFER ONE .2QUERN1 WORD QUEUE RECORD NUMBER IN BUFFER 1 2*-- &2QUERN2 WORD QUEUE RECORD NUMBER IN BUFFER 2 2.QUEOF2 BYTE 0  OFFSET INTO QUE BUFFER TWO .*-- &&NDX  BYTE 0  INDEX INTO RECORD &$RESRV1 BYTE 0 *** RESERVED ***$*-- &(QFPN CHAR 52 QUEUE FILE PATHNAME ( CEND 'SPDATA'  PAGE "  LIST " GN LUNO >*  CALL BLOCKS,* SVC25 THRU SVC2A -LUNO NOT ASSIGNED,"*  SVC31 -LUNO NOT ASSIGNED""*  SVC37 -LUNO NOT ASSIGNED"4ERR5C BYTE >5C  SVC2A -INVALID OVERLAY LINK 4**  SVC00 -MRB TOO SMALL FOR ENTIRE **  CALL BLOCK 4ERR5D BYTE >5D  SVC00 -ILLEGAL PARM DEFN LIST(4NFER20  K=2؀{3 UNL#@************************************************************ @ *  * >*  NFER20- ERROR CONSTANTS COMMON AREA # 303/07/83 * > *  * @************************************************************ @ CSEG 'NFER20'&ERR20 BYTE >20  IOU-LUNO BUSY&*ERR21 BYTE >21  IOU-BAD DISK NAME*$*  IOU -VOLUME NOT INSTALLED $6ERR22 BYTE >22  IOU -LUNO PREVIOUSLY ASSIGNED 66ERR23 BYTE >23  IOU -DX10 3.3 FUTIL ERROR (KIF 6$*  AND SYSTEM SUPPORT DIFFER) $&*  SVC40 -UNABLE TO ADD SEGMENT &6ERR24 BYTE >24  IOU -INVALID EXPANSION BLK LEN 64ERR25 BYTE >25  IOU -INSUFFICIENT DISC SPACE 46ERR26 BYTE >26  IOU -FILE/CHAN/DEVICE ALREADY 6 :*  EXISTS 4ERR27 BYTE >27  IOU -RESOURCE DOES NOT EXIST 44ERR28 BYTE >28  RPPRCK -PROTECTION VIOLATION 4*  (NOTE: THIS ERROR IS $*  POSSIBLE FOR ALL SVCS THAT $$*  CAN RETURN ANY INFORMATION) $2ERR29 BYTE >29  DIOU  -ILLEGAL CDT NUMBER 26ERR2A BYTE >2A  IOU -NO FM SPECIAL AREA AVAIL. 6,*  SVC20,SVC38 -NO FM TABLE AREA FOR ,*  VCATALOG FDB 4ERR2B BYTE >2B  IOU -FUNCTION NOT SUPPORTED 4,*  SVC38-BAD TRACK LUNO NOT ASSIGNED , *  TO LOCAL FILE OR DEVICE :ERR2C BYTE >2C  IOU-CANNOT RELEASE PROTECTED LUNO :,ERR2D BYTE >2D  IOU-BAD DEVICE NAME,ERR2E BYTE >2E 6ERR2F BYTE >2F  DIOU  -DEV/VOL DOES NOT EXIST 68@************************************************************ @* ':*  BYTE DEFINITIONS.MAKE THEM EQU'S TO ERROR BYTES :*  WHERE AT ALL POSSIBLE.* '@************************************************************ @BYTE20 EQUERR20 BYTE21 EQUERR21 BYTE22 EQUERR22 BYTE23 EQUERR23 BYTE24 EQUERR24 BYTE25 EQUERR25 BYTE26 EQUERR26 BYTE27 EQUERR27 BYTE28 EQUERR28 BYTE29 EQUERR29 BYTE2A EQUERR2A BYTE2B EQUERR2B BYTE2C EQUERR2C BYTE2D EQUERR2D BYTE2E EQUERR2E BYTE2F EQUERR2F   EVEN "  CEND 'NFER20'  PAGE "  LIST " 00 -ILLEGAL PARM DEFN LIST(4IOPDSD PK2؁{5 UNL#B************************************************************* B * * >* IOPDSD - PRIORITY DSR SCHEDULER DATA AREA10/07/83* >&*  USED BY NFTRTN AND IODBGN * & * * B************************************************************* B CSEG 'IOPDSD' PDSWP EQU $! DATAM 0,16 PDSSTK EQU $! DATAM 0,6  CEND 'IOPDSD'   PAGE "  LIST " 6ERR23 BYTE >23  IOU -DX10 3.3 FUTIL ERROR (KIF 6$*  AND SYSTEM SUPPORT DIFFER) $&*  SVC40 -UNABLE TO ADD SEGMENT &6ERR24 BYTE >24  IOU -INVALID EXPANSION BLK LEN 64ERR25 BYTE >25  IOU -INSUFFICIENT DISC SPACE 46ERR26 BYTE >26  IOU -FILE/CHAN/DEVICE ALREADY 6 :SLDATA P K32؃{7@$ COPY DSC.TEMPLATE.COMMON.PMDATA$ UNL#@************************************************************ @ *  * >*  SLDATA - DATA AREA FOR SYSTEM LOADER  04/09/81  * > *  * @************************************************************ @ CSEG 'SLDATA'LDMAP DATA 0,0 $*-------------------------------$4* THE NEXT THREE STATEMENTS MUST BE CONTIGUOUS 42SLMAP DATA 0,0 MAP FILE FOR ROOT,JCA,LOADER 2*SYSMAP DATA 0,0  MAP FILE FOR LOADER * DATA 0,0 $*-------------------------------$*INT2WP DATA 0  SYSTEM INTERRUPT 2 WP *INT2PC DATA 0  & PC &CP12 DATA 0  /12 YES OR NO FLAG&(CPUTYP DATA 0  CPU TYPE ID -> CPUID(WCSVER DATA >2120  WCS VERSION NUMBER,STBEET DATA 0  STARTING BEET OF LOADER ,,MAPADJ DATA 0  MAP ADJUSTMENT CONSTANT ,*BUFFER DATA 0  BUFFER LOGICAL ADDRESS*,BUFADD DATA 0  ADJUSTED BUFFER ADDRESS ,(BUFBET DATA 0  BUFFER BEET ADDRESS (,SMEMSZ DATA 0  SAVED MEMORY SIZE(BEETS) ,&PFIPTR DATA 0  SAVED PFI ADDRESS &&FDPPTR DATA 0  SAVED FDP ADDRESS &.FRSTIM DATA -1 USING "FAKE" FMT (SLDISK) .0FDPS DATA IMGFDP,SYSTEM SYSTEM FDP TABLE0 DATA APLFDP,USERPF  DATA SYSFDP,SYSPNC  DATA ROLFDP,ROLL  DATA SHRFDP,SHRPN+2 DATA 0,0  END OF LISTROLL TEXT 'S$ROLLA 'VCAT TEXT 'VCATALOG' CRASH TEXT 'S$CRASH 'WCSFIL CHAR 8 WRITEABLE CONTROL STORE FILE &IMAGE CHAR 8  SYSTEM IMAGE FILE &(UTIL CHAR 8  UTILITY PROGRAM FILE($SLRID DATA 0 SAVED SSB RUN ID$&SAVSSB DATA 0  SAVED SSB ADDRESS &*SAVSMT DATA 0  SAVED SMT SSB ADDRESS * SLVERS TEXT '1.2.XX'4SLUD DATA >07C0,>0040  SELF-DESTRUCT: 02/1/844* ' CEND 'SLDATA'  PAGE "  LIST " j j j j j j j j j j j j j j j j j j j j j1T  MDB3.U$STR.TEMPSTR1@UPB .MSI.PROC @X .R37.RUNC LP$1. .S$SPOOLC 2/,NY> STNFERE0  K92؅{8 UNL= CSEG 'NFERE0'8@************************************************************$@ *  *$ >*  NFERE0- ERROR CONSTANTS COMMON AREA # 15 05/04/83 *$> *  *$ @************************************************************$@2ERRE0 BYTE >E0  DSKMGR -ALLOCATION FAILURE (2$*  SVC 00 -ALLOCATION FAILURE ($4ERRE1 BYTE >E1  DSKMGR -INVALID ADU SPECIFIED'4&*  SVC 00 -INVALID ADU SPECIFIED'&2ERRE2 BYTE >E2  DSKMGR -INVALID BLOCK SIZE (2$*  SVC 00 -INVALID BLOCK SIZE ($4ERRE3 BYTE >E3  DSKMGR -DISK IS NOT INSTALLED'4&*  SVC 00 -DISK IS NOT INSTALLED'&<ERRE4 BYTE >E4  DSKMGR -BIT ALREADY IN DESIRED STATE #<.*  SVC 00 -BIT ALREADY IN DESIRED STATE #.2@8ERRE5 BYTE >E5  SVC00 -BAD CALL BLOCK ACCORDING %8*  TO CHANNEL OWNER TASK'4ERRE6 BYTE >E6  IPC -NON-SH REQUESTER CLOSED&46ERRE7 BYTE >E7  IPC -NON-SH REQUESTER ABORTED %6:ERRE8 BYTE >E8  SVC00-INVALID PASSCODE-DIAG PORT $:<ERRE9 BYTE >E9  SVC00-INVALID TILINE CMD-DIAG PORT #<:ERREA BYTE >EA  SVC00-OFFSET ACTIVE ON DISK HEAD $:8ERREB BYTE >EB  SVC00 -VOLUME UNLOADED/DOOR OPEN%88ERREC BYTE >EC  IPC-NON-SH CHAN ALREADY IN USE $84ERRED BYTE >ED  SVC00 -SECURITY VIOLATION ON'4*  SPECIFIED PATHNAME (**  SVC22 -DISK IS BEING INITIALIZED%*4ERREE BYTE >EE  SVC00 -SECURITY VIOLATION ON'4 *  FILE SPECIFIED BY LUNO & ERREF BYTE >EF $ SVC00 -VALIDATION ERROR (DIOU)&$@*********************************************************** $@* A*  BYTE EQUATES 8* A@*********************************************************** $@BYTEE0 EQUERRE0 9BYTEE1 EQUERRE1 9BYTEE2 EQUERRE2 9BYTEE3 EQUERRE3 9BYTEE4 EQUERRE4 9BYTEE5 EQUERRE5 9BYTEE6 EQUERRE6 9BYTEE7 EQUERRE7 9BYTEE8 EQUERRE8 9BYTEE9%% EQUERRE9 9BYTEEA EQUERREA 9BYTEEB EQUERREB 9BYTEEC EQUERREC 9BYTEED EQUERRED 9BYTEEE EQUERREE 9BYTEEF EQUERREF 9 CEND 'NFERE0'8  EVEN <  LIST < BYTE22 EQUERR22 BYTE23 EQUERR23 BYTE24 EQUERR24 NFERR2 PL 2؆{: UNL#@************************************************************ @ *  * :*  NFERR2 - ERROR CONSTANTS >40 => >7F 08/14/81 * : *  * @************************************************************ @$ COPY DSC.TEMPLATE.COMMON.NFER40$$ COPY DSC.TEMPLATE.COMMON.NFER50$$ COPY DSC.TEMPLATE.COMMON.NFER60$$ COPY DSC.TEMPLATE.COMMON.NFER70$  LIST "  USING "FAKE" FMT (SLDISK) k4D`4@ UNL= CSEG 'NFERE0'8@************************************************************$@ *  *$ >*  NFERE0- ERROR CONSTANTS COMMON AREA # 15 05/04/83 *$> *  *$ @************************************************************$@ERRE0 BYTE >E0 NFERB0 P LE2؇{<@ UNL# CSEG 'NFERB0'@************************************************************ @ *  * >*  NFERB0- ERROR CONSTANTS COMMON AREA # 12 04/26/82 * > *  * @************************************************************ @6ERRB0 BYTE >B0  NAMMGR -OUTPUT BUFFER TOO SMALL 6,*  SVC00-KIF STRUCTURE INCONSISTENT ,:ERRB1 BYTE >B1  FILMGR -MAX B-TREE LEVELS EXCEEDED :**  NAMMGR -ATTEMPT TO CREATE GLOBAL *"*  NAME SEG WHEN IT ALREADY ""*  EXISTS OR TO RESTORE INTO " *  ONE THAT DOESN'T EXIST :ERRB2 BYTE >B2  NAMMGR -SPECIFIED NAME IS UNDEFINED :,*  FILMGR -NEW REC TOO BIG FOR PHY REC ,8ERRB3 BYTE >B3  NAMMGR -TOO MANY SDB'S ALLOCATED 8**  KIF-INFO -NO MORE RECORDS TO READ *8ERRB4 BYTE >B4  NAMMGR -BAD "PN" NUMBER SPECIFIED 8,*  KIF-INFO -DUPLICATE KEY VALUE FOUND ,8ERRB5 BYTE >B5  NAMMGR -INVALID SYNONYM OPERATION 8&*  KIF-INFO -RECORD NOT IN FILE &:ERRB6 BYTE >B6  SVC00-INVALID CURRENCY PARAMETER ::ERRB7 BYTE >B7  NAMMGR -INVALID RTN-TO-PREV-STG OP :(*  KIF-INFO -RECORD ALREADY LOCKED (8ERRB8 BYTE >B8  NAMMGR -NO NAME DEF'N SEG EXISTS 8(*  KIF-INFO -RECORD DOES NOT EXIST (:ERRB9 BYTE >B9  NAMMGR -NAME DEF'N SEGMENT OVERFLOW :$*  SVC00 -ATTEMPT TO MODIFY A$*  NON-MODIFIABLE KEY 8ERRBA BYTE >BA  NAMMGR -INVALID LIST OF SYNONYMS 8(*  FILMGR -REC NOT LOCKED BY REQUEST(OR 4ERRBB BYTE >BB  SVC00 -OUT OF LOGGING BLOCKS 4**  NAMMGR -BAD FILE ON RESTORE OPER *4ERRBC BYTE >BC  NAMMGR -LEN FOR LOG. NAME > 8 4:ERRBD BYTE >BD  KIF-INFO -CANNOT LOCATE NEXT RECORD : *  ON "GET NEXT" OPERATION ,*  NAMMGR -ATTEMPT TO MODIFY A DELETE ,*  PROTECTED NAME 8ERRBE BYTE >BE  FILMGR -NO SUCH RECORD ON REWRITE 8:ERRBF BYTE >BF  NAMMGR -INVALID APPEND-PN OPERATION :(*  SVC00 -SPECIFIED KEY NUMBER IS ( *  TOO LARGE FOR THE FILE @*********************************************************** @* '*  BYTE EQUATES * '@*********************************************************** @BYTEB0 EQUERRB0  BYTEB1 E QUERRB1 BYTEB2 EQUERRB2 BYTEB3 EQUERRB3 BYTEB4 EQUERRB4 BYTEB5 EQUERRB5 BYTEB6 EQUERRB6 BYTEB7 EQUERRB7 BYTEB8 EQUERRB8 BYTEB9 EQUERRB9 BYTEBA EQUERRBA BYTEBB EQUERRBB BYTEBC EQUERRBC BYTEBD EQUERRBD BYTEBE EQUERRBE BYTEBF EQUERRBF * ' CEND 'NFERB0'  EVEN "  LIST " ******************************** @* ':*  BYTE DEFINITIONS.MAKE THEM EQU'S TO ERROR BYTES :*  WHERE AT ALL POSSIBLE.* '@************************************************************ @BYTE50 EQUERR50 BYTE51 EQUERR51 BYTE52 EQUERR52 BYTE53 EQUERR5!NFCONS PL2؈{= UNL#@************************************************************ @ *  * 2*  NFCONS - HANDY CONSTANTS  06/28/79  * 2 *  * @************************************************************ @$ COPY DSC.TEMPLATE.COMMON.NFWORD$$ COPY DSC.TEMPLATE.COMMON.NFERR1$$ COPY DSC.TEMPLATE.COMMON.NFERR2$$ COPY DSC.TEMPLATE.COMMON.NFERR3$$ COPY DSC.TEMPLATE.COMMON.NFERR4$$ COPY DSC.TEMPLATE.ATABLE.NFCRSH$$ COPY DSC.TEMPLATE.ATABLE.NFSTAT$  LIST " STS OR TO RESTORE INTO " *  ONE THAT DOESN'T EXIST :ERRB2 BYTE >B2  NAMMGR -SPECIFIED NAME IS UNDEFINED :,*  FILMGR -NEW REC TOO BIG FOR PHY REC ,8ERRB3 BYTE >B3  NAMMGR -TOO MANY SDB'S ALLOCATED 8"NFER70 P L92؉{>@ UNL# CSEG 'NFER70'@************************************************************ @ *  * >*  NFER70- ERROR CONSTANTS COMMON AREA # 8 04/21/82 * > *  * @************************************************************ @0ERR70 BYTE >70  IOU -DIRECTORY NOT EMPTY08ERR71 BYTE >71  IOU-INVALID FILE TYPE SPECIFIED 8**  IOU-INVALID DEF. RESOURCE TYPE *6ERR72 BYTE >72  IOU -BAD USAGE FLAGS SPECIFIED 6**  SVC38 -BAD FILE USAGE FLAGS (NOT **  IMAGE FILE)8ERR73 BYTE >73  IOU-FILE ALLOC. TOO FRAGMENTED 88ERR74 BYTE >74  IOU-INVALID FILE CREATION PARMS 82ERR75 BYTE >75  IOU -LUNO ASSIGNED TO FILE 2&ERR76 BYTE >76  IOU-FILE IS DEL&ETE PROTECTED 6ERR77 BYTE >77  IOU -LUNO NOT ASSIGNED TO FILE 6**  SVC38 -LUNO IS NOT A LOCAL FILE *8ERR78 BYTE >78  IOU-LUNO & PATHNAME DON'T MATCH 82ERR79 BYTE >79  IOU -FILE IS NOT AN ALIAS 26ERR7A BYTE >7A  IOU -"DON'T REPLACE" SPECIFIED 68ERR7B BYTE >7B  IOU-LUNO & PATHNAME NOT ON SAME 8*  DISK 8ERR7C BYTE >7C  IOU-BAD DATA FORMAT (10 OR 11) 86ERR7D BYTE >7D  IOU -BAD LUNO OR CHANNEL SCOPE 6:ERR7E BYTE >7E  IOU-ATTEMPT TO CREATE MULTI-FILE :$*  KIF WITH RECORDS IN A FILE $"*  OTHER THAN THE FIRST FILE "8ERR7F BYTE >7F  IOU-INVALID OPER. ON .VCATALOG 8@************************************************************ @D* ':*  BYTE DEFINITIONS.MAKE THEM EQU'S TO ERROR BYTES :*  WHERE AT ALL POSSIBLE.* '@************************************************************ @BYTE70 EQUERR70 BYTE71 EQUERR71 BYTE72 EQUERR72 BYTE73 EQUERR73 BYTE74 EQUERR74 BYTE75 EQUERR75 BYTE76 EQUERR76 BYTE77 EQUERR77 BYTE78 EQUERR78 BYTE79 EQUERR79 BYTE7A EQUERR7A BYTE7B EQUERR7B BYTE7C EQUERR7C BYTE7D EQUERR7D BYTE7E EQUERR7E BYTE7F EQUERR7F * ' CEND 'NFER70'  EVEN "  LIST " N SEGMENT OVERFLOW :$*  SVC00 -ATTEMPT TO MODIFY A$*  NON-MODIFIABLE KEY 8ERRB%NFWORD P L4>2؋{A UNL#@************************************************************ @ *  * :*  NFWORD - WORD CONSTANTS COMMON AREA05/21/82 * :,* ADD NEW ITEMS AT END OF TEMPLATE * ,@************************************************************ @ CSEG 'NFWORD' WD0003 DATA >0003 (3)  WD0005 DATA >0005 (5)  WD0006 DATA >0006 (6)  WD0007 DATA >0007 (7)  WD0009 DATA >0009 (9)  WD000A DATA >000A (10) WD000C DATA >000C (12) WD000D DATA >000D (13) WD000E DATA >000E (14) WD000F DATA >000F (15) WD0012 DATA >0012  WD0018 DATA >0018 (24) WD003C DATA >003C (60) WD0064 DATA >0064 (100)  WD00FD DATA >00FD @ WDFF00 DATA >FF00  WDFFFF DATA >FFFF (-1)@************************************************************ @MASTAB EQU$ BIT MASKS * ' WD8000 DATA >8000  WD4000 DATA >4000  WD2000 DATA >2000  WD1000 DATA >1000  WD0800 DATA >0800  WD0400 DATA >0400  WD0200 DATA >0200  WD0100 DATA >0100  WD0080 DATA >0080  WD0040 DATA >0040  WD0020 DATA >0020  WD0010 DATA >0010  WD0008 DATA >0008  WD0004 DATA >0004  WD0002 DATA >0002  WD0001 DATA >0001 "*  NEW ITEMS FOR RELEASE 1.1" WDFE00 DATA >FE00 * '8*  ADD NEW ITEMS TO THIS TEMPLATE AFTER THIS LINE 8* ' BBAOFF EQUWD0010 BUFFER OF  FSET IN BTA REQUEST   CEND "  LIST " BYTE7A EQUERR7A BYTE7B EQUERR7B BYTE7C EQUERR7C %%BYTE7D EQUERR7D BYTE7E EQUERR7E BYTE7F EQUERR7F * ' CEND 'NFER70'  EVEN "  LIST " erves a queue.ND The general SVC decoder is unable to bid the needed system task.D(NThe system program file has been modified.Discuss this with your systemsNNprogrammer to determine the cause.If no intended modifications have beenNHmade, attempt to restore the file from backup media.If necessary, H0call a customer representative for assistance.0*************************************************** @BYTE 22k4`4,NFER40 L&X22،{B@ UNL= CSEG 'NFER40'8@************************************************************$@ *  *$ >*  NFER40- ERROR CONSTANTS COMMON AREA # 5 05/04/83 *$> *  *$ @************************************************************$@4ERR40 BYTE >40  JOBMGR -INVALID JOB PRIORITY '4&*  SVC00 -MT CONTROLLER TIMEOUT'&.ERR41 BYTE >41  JOBMGR -BAD STATION ID *. *  SVC00-BOT ENCOUNTERED* :ERR42 BYTE >42  JOBMGR -INVALID ID FOR SYNONYM SEG $: *  SVC00-EOT ENCOUNTERED* **  SVC40 -ATTEMPT TO FORCE WRITE A %* *  NON-UPDATEABLE SEGMENT & :ERR43 BYTE >43  JOBMGR -INVALID ID FOR LOG NAME SEG$: *  SVC00-MT UNIT OFFLINE* $*  SVC40 -SEGMENT CHANGE NOT AL$ LOWED $ *  WHEN I/O OUTSTANDING '.ERR44 BYTE >44  JOBMGR -INVALID USER ID*.$*  SVC00 -WRITE-RING MISSING ($(*  SVC40 -INVALID SEG. GROUP FOR &(*  THIS OPERATION *0ERR45 BYTE >45  JOBMGR -INVALID PASSCODE )0&*  SVC00 -PARITY ERROR ON TAPE '&(*  SVC40 -REQUESTOR CALL BLOCK IN&(*  SEGMENT BEING REMOVED'6ERR46 BYTE >46  JOBMGR -JOB NOT FOUND IN SYSTEM&6$*  SVC00 -MEMORY PARITY ERROR($*  DURING WRITE TO MT (**  SVC40 -NOT ENOUGH MEMORY IN THE %* *  SYSTEM TO LOAD SEGMENT & *  WITH THE TASK+(*  SVC4F -JOB NOT FOUND IN SYSTEM&(:ERR47 BYTE >47  JOBMGR -JOB NOT ACTIVE ON HALT SVC $:$*  SVC00 -MT CONTROLLER OPERATI$ON&*  TERMINATE ABNORMALLY '8ERR48 BYTE >48  JOBMGR -JOB NOT HALTED ON RESUME %8$*  SVC00 -INVALID MEMORY ADDR($$*  SPECIFIED FOR MT OPERATION $$**  SVC40 -CANT SPECIFY INSTALLED ID%*"*  ON RESERVE OR RELEASE OP.%"2ERR49 BYTE >49  JOBMGR -JOB NAME NOT FOUND (2 *  SVC00-MT FORMAT ERROR* ,*  SVC40-ATTEMPT TO RELEASE SEGMENT $,"*  NOT RESERVED BY THIS JOB %"2ERR4A BYTE >4A  JOBMGR -DUPLICATE JOB NAME (2(*  SVC00 -TIMING ERROR DURING MT &(*  TRANSFER -**  SVC40 -SEGMENT MAY NOT BE LOADED%**  AT SPECIFIED POSITION'ERR4B BYTE >4B ::ERR4C BYTE >4C  JOBMGR -ILLEGAL REQUEST FOR SYSJOB $: *  SVC00 -NIO - NIO FAILURE ):ERR4D BYTE >4D  JOBMGR -INVALID OPERATION FOR A JOB$:*  NOT THAT OF REQUESTOR'&*  SVC00 -NIO - NETWORK FAILURE'&.ERR4E BYTE >4E  JOBMGR -ILLEGAL OP CODE*.$*  SVC00 -NIO - DNCS FAILURE ($6ERR4F BYTE >4F  SVC00 -MAG TAPE EOT AND ERROR &6&*  JOBMGR -CAN NOT GET JCA AREA '&@************************************************************$@* A:*  BYTE DEFINITIONS.MAKE THEM EQU'S TO ERROR BYTES&:*  WHERE AT ALL POSSIBLE.1* A@************************************************************$@BYTE40 EQUERR40 9BYTE41 EQUERR41 9BYTE42 EQUERR42 9BYTE43 EQUERR43 9BYTE44 EQUERR44 9BYTE45 EQUERR45 9BYTE46 EQUERR46 9BYTE47 EQUERR47 9BYTE48 EQUERR48 9BYTE49 EQUERR49 9BYTE4A EQUERR4A 9BYTE4B EQUERR4B 9BYTE4C EQUERR4C 9BYTE4D EQUERR4D 9BYTE4E EQUERR4E 9BYTE4F EQUERR4F 9* A CEND 'NFER40'8  EVEN <  LIST < 5F EQUERR5F * ' CEND 'NFER50'  EVEN "  LIST " =CON LALN LOGICAL=CON, ACCESS=@ME ! What the terminal ought to be called ! L RLN LOGICAL=EYEDEV BALN LOGICAL=EYEDEV, ACCESS=@ME  ! Redirected I/O goes here B:! .SYN $XB$I=.DUANE.BATCH. , $XB$L=.DUANE.BATCHLOG. :8.SYN$PS=P.SOURCE, $PO=P.OBJECT , $PL=P.LISTING ,8:$PF=P.PROGRAM , $XLE$L=P.LINKMAP , $XLE$C=P.CONTROL , : $XLE$O1JMDATA PL52؍{D@ UNL#@************************************************************ @ *  * :*  JMDATA - JOB MANAGER COMMON AREA  06/08/82  * :.*  LOCATED IN JOB MANAGER TASK AREA  * . *  * @************************************************************ @ CSEG 'JMDATA'* '*CURJSB PTRJSB  CURRENT JSB POINTER **JMRPTR PTRJMR  CURRENT JOB REQUEST **BROPTR PTRBRO  CURRENT BRO REQUEST **PARFMT PTRSSB  PARENTS FMT POINTER **PARFCB PTRFSC  PARENTS FCB POINTER *6*=============== JOB & TASK STATES ============== 6JSTCRE BYTE 1 CREATINGJSTEXC BYTE 2 EXECUTABLEJSTHLT BYTE 3 HALTED JSTTRM BYTE 4 TERMINATING  TSTJHT BYTE 2 TASK SUSPENDED BY JOBMGR .TSTJMR BYTE >48  TASK WAITING ON JMR SVC . CEND 'JMDATA'  PAGE "  LIST " RROR CONSTANTS COMMON AREA # 5 05/04/83 *$> *  *$ @************************************************************$@4ERR40 BYTE >40  JOBMGR -INVALID JOB PRIORITY '4&*  SVC00 -MT CONTROLLER TIMEOUT'&.ERR41 BYTE >41  JOBMGR -BAD STATION ID *. *  SVC00-BOT ENCOUNTERED* :ERR42 BYTE >42  JOBMGR -INVALID ID FOR SYNONYM SEG $: *  SVC00-EOT ENCOUNTERED* **  SVC40 -ATTEMPT TO FORCE WRITE A %* *  NON-UPDATEABLE SEGMENT & :ERR43 BYTE >43  JOBMGR -INVALID ID FOR LOG NAME SEG$: *  SVC00-MT UNIT OFFLINE* $*  SVC40 -SEGMENT CHANGE NOT AL$4NFJOBC L;<2؏{E@ UNL#@************************************************************ @ *  * 6*  NFJOBC - JOB MANAGER COMMON AREA 11/09/79 * 6 *  * @************************************************************ @:* THIS COMMON SEGMENT CONTAINS DATA VALUES USED BY THE :* JOB MANAGER.! CSEG 'NFJOBC'*NXTJID WORD 0  NEXT AVAILABLE JOB ID *.FSTJID WORD 0  BEGINING AVAILABLE JOB ID .,LSTJID WORD 0  LAST AVALIBLE ID IN LIST ,,JOBCNT WORD 0  NUMBER OF JOBS IN SYSTEM ,0JOBLMT WORD 0 SYSTEM LIMIT ON ACTIVE JOBS 00JCAMIN WORD 0 SIZE OF JCA IN BYTES (SMALL) 0.JCAAVG WORD 0  SIZE OF JCA IN BYTES (MED) .0JCAMAX WORD 0 SIZE OF JCA IN BYTES (LARGE) 0JWTQUE PTRJSB FORE GROUND JOB WAIT LIST 0JOBQ PTRQHR  JOB MANAGER REQUEST QUEUE 0(JOBBCT WORD 0  BACKGROUND JOB COUNT((JOBBLM WORD 0  BACKGROUND JOB LIMIT(.JOBBWT PTRJSB  BACKGROUND JOB WAIT LIST .$NFJSIZ EQU$-NXTJIDCSEG SIZE $ CEND 'NFJOBC'  PAGE "  LIST " Y '4&*  SVC00 -MT CONTROLLER TIMEOUT'&.ERR41 BYTE >41  JOBMGR -BAD STATION ID *. *  SVC00-BOT ENCOUNTERED* :ERR42 BYTE >42  JOBMGR -INVALID ID FOR SYNONYM SEG $: *  SVC00-EOT ENCOUNTERED* **  SVC40 -ATTEMPT TO FORCE WRITE A %* *  NON-UPDATEABLE SEGMENT & :ERR43 BYTE >43  JOBMGR -INVALID ID FOR LOG NAME SEG$: *  SVC00-MT UNIT OFFLINE* $*  SVC40 -SEGMENT CHANGE NOT AL$4LGACOM PLA2ؐ{G UNL#@************************************************************ @ *  * 6*  LGACOM - ACCOUNTING LOG COMMON 04/26/82 * 6* TEMPLATE : LFD * (*  (40 MAX = 2 KB OF MESSAGES)  * (@************************************************************ @ CSEG 'LGACOM'LGACOM EQU$ !$ DATA >200 FLAGS AND ERROR BYTE$* DATA 40MAX MESSAGE COUNT (0 = NONE) *( BYTE 0  ID OF TASK TO BID ON FULL (. BYTE >54 ID OF USER TASK TO BID ON FULL .0 TEXT '  'LOG DEVICE NAME (' ' = NONE) 0  TEXT 'S$ACT1 'FILENAME 1  TEXT 'S$ACT2 'FILENAME 2 * DATA 1000 ACCOUNTING FILE ALLOCATION * BSS2 LUNOS  CEND 'LGACOM'  PAGE "  LIST " GROUND JOB WAIT LIST 0JOBQ PTRQHR  JOB MANAGER REQUEST QUEUE 0(JOBBCT WORD 0  BACKGROUND JOB COUNT((JOBBLM WORD 0  BACKGROUND JOB LIMIT(.JOBBWT PTRJSB  BACKGROUND JOB WAIT LIST .$NFJSIZ EQU$-NXTJIDCSEG SIZE $ CEND 'NFJOBC'  PAGE "  LIST " Y '4&*  SVC00 -MT CONTROLLER TIMEOUT'&.ERR41 BYTE >41  JOBMGR -BAD STATION ID *. *  SVC00-BOT ENCOUNTERED* :ERR42 BYTE >42  JOBMGR -INVALID ID FOR SYNONYM SEG $: *  SVC00-EOT ENCOUNTERED* **  SVC40 -ATTEMPT TO FORCE WRITE A %* *  NON-UPDATEABLE SEGMENT & :ERR43 BYTE >43  JOBMGR -INVALID ID FOR LOG NAME SEG$: *  SVC00-MT UNIT%% OFFLINE* $*  SVC40 -SEGMENT CHANGE NOT AL$6NFER10 P LG6r2ؓ{H@ UNL#@************************************************************ @ *  * >*  NFER10- ERROR CONSTANTS COMMON AREA # 204/28/82 * > *  * @************************************************************ @ CSEG 'NFER10'8ERR10 BYTE >10  TASK ERR -ABORTED BY "BREAK" KEY 8,*  SVC00-ABNORMAL COMPLETION OF I/O ,"* DELINK -ENTRY NOT ON LIST"4ERR11 BYTE >11  SVC00 -ID WORD ERROR ON DISK 48ERR12 BYTE >12  SVC00 -RATE OR GAP ERROR ON DISK 8:ERR13 BYTE >13  SVC00-CONTROLLER TIMEOUT FOR DISK :4ERR14 BYTE >14  TASK ERR -ILLEGAL XOP ISSUED 4,*  SVC00-MEM PARITY ERR ON DISK XFER ,<ERR15 BYTE >15  TASK ERR -DISK ERROR ON INITIAL LOAD <* " SVC00 -PARITY ERROR ON DISK "8ERR16 BYTE >16  SVC00 -TILINE TIMEOUT FROM DISK 84ERR17 BYTE >17  SVC00 -SEARCH ERROR ON DISK 42ERR18 BYTE >18  SVC00 -DISK UNIT OFF LINE 22ERR19 BYTE >19  SVC00 -DISK UNIT NOT READY28ERR1A BYTE >1A  SVC00 -DISK UNIT WRITE PROTECTED 88ERR1B BYTE >1B  SVC00 -UNIT CHECK ERROR ON DISK 84ERR1C BYTE >1C  SVC00 -INVALID DISK ADDRESS 46ERR1D BYTE >1D  SVC00 -SEEK INCOMPLETE ON DISK 6:ERR1E BYTE >1E  SVC00-DELETED SECTOR READ ON DISK ::ERR1F BYTE >1F  SVC00-INVALID DISK ADDRESS IN PRB :@************************************************************ @* ':*  BYTE DEFINITIONS.MAKE THEM EQU'S TO ERROR BYTES :*  WHERE AT ALL POSSIBLE.* '@************************************************************ @BYTE10 EQUERR10 BYTE11 EQUERR11 BYTE12 EQUERR12 2BYTE13 EQUERR13  IOU -DIRECT OPEN OP CODE2BYTE14 EQUERR14 BYTE15 EQUERR15 BYTE16 EQUERR16 BYTE17 EQUERR17 BYTE18 EQUERR18 BYTE19 EQUERR19 BYTE1A EQUERR1A BYTE1B EQUERR1B BYTE1C EQUERR1C BYTE1D EQUERR1D BYTE1E EQUERR1E BYTE1F EQUERR1F   EVEN "  CEND 'NFER10'  PAGE "  LIST " -MAG TAPE EOT AND ERROR &(&*  JOBMGR -CAN NOT GET JCA AREA '&@************************************************************$@:NFERD0  LP2F2ؕ{J@ UNL# CSEG 'NFERD0'@************************************************************ @ *  * >*  NFERD0- ERROR CONSTANTS COMMON AREA # 14 05/06/82 * > *  * @************************************************************ @8ERRD0 BYTE >D0  FILMGR -OP. INVALID FOR FILE TYPE 8:ERRD1 BYTE >D1  FILMGR -SELF CONFLICTING OPEN REQ. :4ERRD2 BYTE >D2  FILMGR -RECORD ALREADY LOCKED 4ERRD3 BYTE >D3 ERRD4 BYTE >D4 8ERRD5 BYTE >D5  FILMGR -SEQ. FILE STRUCTURE ERROR 8ERRD6 BYTE >D6 2ERRD7 BYTE >D7  SVC00 -ODD BUFFER ADDRESS 2:ERRD8 BYTE >D8  FILMGR -ACCESS MODE DENIES REQUEST :8ERRD9 BYTE >D9  FILMGR -FILE LOCATED AT FIRST REC 8 ERRDA BYT 0E >DA  FILMGR -SEC. ALLOCATION TABLE FULL 04ERRDB BYTE >DB  FILMGR -DEFERRED WRITE ERROR 4&*  SVC40 -DEFERRED WRITE ERROR &8ERRDC BYTE >DC  FILMGR -RECORD CAN'T REP OLD ONE 84ERRDD BYTE >DD  FILMGR -WRITE PROTECTED FILE 4:ERRDE BYTE >DE  FILMGR -UNABLE TO FIND PRIMARY KEY :$*  DURING A DELETE RECORD OPER $<ERRDF BYTE >DF  IOU -LUNO RESERVED FOR SYSTEM USE(FF) <@*********************************************************** @* '*  BYTE EQUATES * '@*********************************************************** @BYTED0 EQUERRD0 BYTED1 EQUERRD1 BYTED2 EQUERRD2 BYTED3 EQUERRD3 BYTED4 EQUERRD4 BYTED5 EQUERRD5 BYTED6 EQUERRD6 BYTED7 EQUERRD7 BYTED8 EQUERRD8 BYTED9 EQUERRD9 BYTEDA EQUERRDA BYTEDB EQUERRDB BYTEDC EQUERRDC BYTEDD EQUERRDD BYTEDE EQUERRDE BYTEDF EQUERRDF  CEND 'NFERD0'  EVEN "  LIST "  DIS030% . S@THSPCV,R3 DISPLACEMENT FROM LOC CTR .* ':* IF FORMAT 17 THEN ADD A CONSTANT 2 TO THE EXPRESSION :* ' MOV OBJPT2(RPRVWP),R1  CB OBWD3(R1),F17+1  JNEDIS040  DECT R3! DIS040% ( SRAR3,1 MAKE A WORD DISPLACEMENT (  DECR3!  C@MAXPOS,R3EXCEED MAX?   JLTCAL110" C@MAXNEG,R3TOO FAR BACK? " JLTCAL910OK VAL=NFER90 P LY8"2ؖ{K@ UNL# CSEG 'NFER90'@************************************************************ @ *  * >*  NFER90 - ERROR CONSTANTS COMMON AREA # 1004/28/82 * > *  * @************************************************************ @6ERR90 BYTE >90  IOU -BAD DIRECTORY HOLE SEARCH 6.ERR91 BYTE >91  IOU -DIRECTORY LOOKUP .*  INCONSISTENCY0ERR92 BYTE >92  IOU -BAD PATHNAME SYNTAX08ERR93 BYTE >93  IOU-CONTRL GROUP DOES NOT EXIST 86ERR94 BYTE >94  IOU -INVALID OPER. ON 'PUBLIC' 66ERR95 BYTE >95  IOU -SECURITY ACCESS VIOLATION 66ERR96 BYTE >96  IOU -INVALID REMOTE OPERATION 68ERR97 BYTE >97  IOU-KDB ALIGNED ON ODD ADDRESS 8ERR98 BYTE >98 $ IOU -INVALID PARAMETER NUMBER $8ERR99 BYTE >99  IOU-CANNOT GENERATE LUNO NUMBER 88ERR9A BYTE >9A  IOU-PATHNAME COMPONENT IS NOT A 8*  DIRECTORY,ERR9B BYTE >9B  IOU-DEVICE OFFLINE , *  SVC34-DEVICE OFFLINE  4ERR9C BYTE >9C  IOU -DEVICE IN DIAG STATE OR 4*  LUNO ALREADY ASSIGNED ** SVC20,SVC38 -DEVICE IN DIAG. STATE *6ERR9D BYTE >9D  IOU -DEVICE IN USE BY SPOOLER 6.* SVC20,34,38 -DEVICE IN USE BY SPOOLER .8ERR9E BYTE >9E  IOU-CHANNEL SCOPE CONFLICT FOR 8*  OWNER2ERR9F BYTE >9F  SVC00 -RESERVED FOR RTS9152@*********************************************************** @* '*  BYTE EQUATES * '****<******************************************************* <BYTE90 EQUERR90 BYTE91 EQUERR91 BYTE92 EQUERR92 BYTE93 EQUERR93 BYTE94 EQUERR94 BYTE95 EQUERR95 BYTE96 EQUERR96 BYTE97 EQUERR97 BYTE98 EQUERR98 BYTE99 EQUERR99 BYTE9A EQUERR9A BYTE9B EQUERR9B BYTE9C EQUERR9C BYTE9D EQUERR9D BYTE9E EQUERR9E BYTE9F EQUERR9F * ' CEND 'NFER90'  EVEN "  LIST " DIS040  DECT R3! DIS040% ( SRAR3,1 MAKE A WORD DISPLACEMENT (  DECR3!  C@MAXPOS,R3EXCEED MAX?   JLTCAL110" C@MAXNEG,R3TOO FAR BACK? " JLTCAL910OK VAL@SPMSG PLb2ؘ{M4************************************************4$*  SPMSG - SPOOLER MESSAGES *$* 02/19/80  *4************************************************4.MAXMSG EQU20 MAXIMUM NUMBER OF MESSAGES .,MSGLNG EQU50 MESSAGE LENGTH (MAXIMUM) ,* ' PCKREC MSG BSSMSGLNG  ENDREC !  CSEG 'SPMSG' , MSGTBL ARRAY MAXMSG,MSG MESSAGE TABLE ,* '2*  MSGTBL:PACKED ARRAY(1..MAXMSG) OF MSGFMT;2* ' CEND 'SPMSG'   PAGE " E >94  IOU -INVALID OPER. ON 'PUBLIC' 66ERR95 BYTE >95  IOU -SECURITY ACCESS VIOLATION 66ERR96 BYTE >96  IOU -INVALID REMOTE OPERATION 68ERR97 BYTE >97  IOU-KDB ALIGNED ON ODD ADDRESS 8ERR98 BYTE >98 BNFSHDD PLe2ؙ{N UNL#@************************************************************ @ *  * 6*  NFSHDD - SCHEDULER DATA AREA  02/21/79  * 6 *  * @************************************************************ @ CSEG 'NFSHDD'(SCHDWP EQU$  SCHEDULER WORK SPACE( DATAM >5750,16 $SCHSTK EQU$ SCHEDULER STACK $( DATAM >3333,100 CHANGED 200 TO 100($SCHTMP DATA 0,0SCHEDULAR TEMP$ CEND 'NFSHDD'  PAGE "  LIST " XIST 86ERR94 BYTE >94  IOU -INVALID OPER. ON 'PUBLIC' 66ERR95 BYTE >95  IOU -SECURITY ACCESS VIOLATION 66ERR96 BYTE >96  IOU -INVALID REMOTE OPERATION 68ERR97 BYTE >97  IOU-KDB ALIGNED ON ODD ADDRESS 8ERR98 BYTE >98 DNFERA0 P Lh;>2ؚ{P@ UNL# CSEG 'NFERA0'@************************************************************ @ *  * >*  NFERA0- ERROR CONSTANTS COMMON AREA # 11 05/06/82 * > *  * @**********************************************%%************** @8ERRA0 BYTE >A0  IOU-CC -OWNER-PROCESSES-ALL FLG 8"*  SET ON SYMMETRIC CHANNEL ".ERRA1 BYTE >A1  IOU -DIRECTORY IS FULL.8ERRA2 BYTE >A2  IPC-REQUEST SPECIFIED IN MASTER 8 *  WRITE NOT FOUND ON IPC *  IN-PROGRESS QUEUEERRA3 BYTE >A3 8ERRA4 BYTE >A4  IPC-OWNER OPER. ALREADY QUEUED 82ERRA5 BYTE >A5  IPC -MISMATCH OF OWNER AND 2*  REQUESTOR OPERATIONS 4ERRA6 BYTE >A6  IPC -REQUESTORS MUST CLOSE;OWN4ER  *  HAS CLOSED, MAY REOPEN 6ERRA7 BYTE >A7  IOU/IPC-OWNER TASK HAS ABORTED 68ERRA8 BYTE >A8  IPC-MAX OPENS TO CHAN EXCEEDED 86ERRA9 BYTE >A9  IPC -TASK SEGMENT TOO LARGE TO 6 *  ALLOW IPC DATA MOVEMENT ERRAA BYTE >AA 8ERRAB BYTE >AB  IPC-FIRST ASSIGN TO CHAN ILLEGL 88ERRAC BYTE >AC  IOU-ILLEGAL MOD. SECURITY FLAGS 86ERRAD BYTE >AD  IOU -CCB PROGRAM FILE LUNO NOT 6*  FOUND4ERRAE BYTE >AE  IOU -A MEMBER OF THE CONCAT. 4"*  LIST IS ALREADY IN USE OR "$*  FILE ALREADY IN USE AS PART $*  OF A CONCATENATED SET ERRAF BYTE >AF @*********************************************************** @* '*  BYTE EQ UATES  * '@*********************************************************** @BYTEA0 EQUERRA0 BYTEA1 EQUERRA1 BYTEA2 EQUERRA2 BYTEA3 EQUERRA3 BYTEA4 EQUERRA4 BYTEA5 EQUERRA5 BYTEA6 EQUERRA6 BYTEA7 EQUERRA7 BYTEA8 EQUERRA8 BYTEA9 EQUERRA9 BYTEAA EQUERRAA BYTEAB EQUERRAB BYTEAC EQUERRAC BYTEAD EQUERRAD BYTEAE EQUERRAE BYTEAF EQUERRAF * ' CEND 'NFERA0'  EVEN "  LIST " L  NO, POST ERROR & JMPCAL810 CRU010%  CI R3,>80 CHECK JLTCAL910 DISPLACE- CI R3,>FF7F MENT JH CAL910 LI R1,CRUVAL GNFER60 LqY2؛{Q@ UNL# CSEG 'NFER60'@************************************************************ @ *  * >*  NFER60- ERROR CONSTANTS COMMON AREA # 7 02/21/83 * > *  * @************************************************************ @6ERR60 BYTE >60  IOU -ODD RECORD LEN SPECIFIED 6(*  SVC25 -NO P1 FOR SYSTEM TASKS (**  SVC40 -RESET EXCL USE ON SEGMENT **  ALREADY OWNED4ERR61 BYTE >61  IOU -ZERO INITIAL ALLOCATION 4*  SPECIFIED** SVC25 THRU SVC2A-ID OUT OF RANGE* *  SVC31-ID OUT OF RANGE *  SVC20-BAD DISK NAME**  SVC40 -INVALID FILE TYPE FOR OP *8ERR62 BYTE >62  IOU-SEQ PHYS REC SIZ TOO SMALL 8*  SVC40-TRYING TO CREATE SEG BY RID 4ERR63 BYTE >63  IOU -PHYS REC SIZE LESS THAN 4*  LOGICAL REC SIZE &*  SVC34,SVC38-BAD VOLUME NAME&**  SVC40 -CREATING EXISTING SEGMENT *8ERR64 BYTE >64  IOU-KIF LOGICAL REC LNG = ZERO 8**  SVC40 -ATTEMPT TO FORCE WRITE A *"*  SEGMENT IN THE SWAP FILE "8ERR65 BYTE >65  IOU-KEY BLK LNG WRONG FOR # OF 8*  KEYS .*  SVC20,SVC38 -SINGLE DENSITY FLOPPY- .*  NOT A DISK DEVICE.ERR66 BYTE >66  IOU -NO KEYS SPECIFIED.**  SVC20 -VOLUME NAMES DON'T MATCH *8ERR67 BYTE >67  IOU-NUMBER OF KEYS EXCEEDS MAX 8.ERR68 BYTE >68  IOU -NUMBER OF RECORDS.*  SPECIFIED WAS ZERO *  SVC20-NON REL EASE 3.X DISK-CAN'T *  FIND VCATALOG2ERR69 BYTE >69  IOU -PRIMARY KEY CAN'T BE 2*  OPTIONAL (MODIFIABLE) 0*  SVC20,SVC38 -DISK PREVIOUSLY INSTALLED 02ERR6A BYTE >6A  IOU -KEN LENGTH IS ZERO OR 2$*  KEY FIELD EXCEEDS PHYS REC $&*  SVC38 -BAD ADU LIST IS FULL &8ERR6B BYTE >6B  IOU-PHYS REC LNG TOO SMALL FOR 8 *  MIN KEY BLOCKING FACTOR **  SVC38 -NOT ENOUGH CONTIG. ADU'S *6ERR6C BYTE >6C  IOU -B-TREE PHYS REC SIZE TOO 6$*  SMALL FOR SPECIFIED NUMBER $*  OF RECORDS **  SVC38 -TASK MEMORY ALLOCATION OR **  MEMORY RELEASE ERROR 6ERR6D BYTE >6D  IOU -PHYSICAL RECORD SIZE TOO 6*  SMALL FOR MINIMUM BLOCKING *  OF LOGICAL RECORDS ,*  SVC38-NO GOOD CYLINDER FOR DIAG. ,$*  FILE OR TRACK 0 OR 1 IS BAD $8ERR6E BYTE >6E  IOU-INTERSECTION OF MODIFIABLE 8*  NON-MODIFIABLE KEYS**  SVC34 -CANNOT UNLOAD SYSTEM DISK *.*  SVC38-INTERLEAVING FACTOR TOO LARGE .4ERR6F BYTE >6F  SVC34 -LUNO ASSIGNED TO FILE 4&*  SVC38 -IDS NEEDED BEFORE INV &@************************************************************ @* ':*  BYTE DEFINITIONS.MAKE THEM EQU'S TO ERROR BYTES :*  WHERE AT ALL POSSIBLE.* '@************************************************************ @BYTE60 EQUERR60 BYTE61 EQUERR61 BYTE62 EQUERR62 BYTE63 EQU ERR63  BYTE64 EQUERR64 BYTE65 EQUERR65 BYTE66 EQUERR66 BYTE67 EQUERR67 BYTE68 EQUERR68 BYTE69 EQUERR69 BYTE6A EQUERR6A BYTE6B EQUERR6B BYTE6C EQUERR6C BYTE6D EQUERR6D BYTE6E EQUERR6E BYTE6F EQUERR6F * ' CEND 'NFER60'  EVEN "  LIST " ?   JNECAL025( LI R1,ERNRES  NO, REPORT ERROR ( JMPCAL810 CAL025%  MOVR2,R5  ANDI R5,>F  MOVREG9(RPRVWP),R6 & ANDI R6,>F  SAME TYPE IN PASS1? & SR6,R5  JEQCAL120 LI R1,ERP1P2 E THE LUNO" MOVB PRBERC(R2),R4  LIBCL5%  AI T ttk4D`4INFERR3 PL 2؜{S UNL#@************************************************************ @ *  * :*  NFERR3 - ERROR CONSTANTS >80 => >BF 08/14/81 * : *  * @************************************************************ @$ COPY DSC.TEMPLATE.COMMON.NFER80$$ COPY DSC.TEMPLATE.COMMON.NFER90$$ COPY DSC.TEMPLATE.COMMON.NFERA0$$ COPY DSC.TEMPLATE.COMMON.NFERB0$  LIST " *  ALREADY OWNED4ERR61 BYTE >61  IOU -ZERO INITIAL ALLOCATION 4*  SPECIFIED** SVC25 THRU SVC2A-ID OUT OF RANGE* *  SVC31-ID OUT OF RANGE *  SVC20-BAD DISK NAME**  SVC40 -INVALID FILE TYPE FOR OP *8ERR62 BYTE >62  IOU-SEQ PHYS REC SIZ TOO SMALL 8*  SVC40-TRYING TOJNMCOMM P L62؞{T@* ' * NAME MANAGER COMMON AREA* ':* NOTE: THE FIRST PART OF THIS MODULE MUST CORRESPOND :8*  EXACTLY WITH THE FILE ".TEMPLATE.PTABLE.NMCOMM" 88*  (THE PASCAL TEMPLATE FOR THIS COMMON SEGMENT.) 8* ' CSEG 'NMCOMM'4NDSPTR DATA $-$  PTR TO NAME DEF'N SEGMENT NOW 4*  MAPPED IN4NRBPTR DATA $-$  PTR TO NAME MGR REQUEST BLOCK 44SDBCUR DATA $-$  PTR TO CURRENT STAGE'S SDB IN 4$*  SEGMENT FIRST MAPPED IN FOR$*  THIS REQUEST..CURSEG DATA $-$  SEGMENT NOW MAPPED IN. .&*  0=UNKNOWN; 1=SYN; 2=LN; 3=JCA &6SYNDEF DATA $-$  0=SYN SEGMENT DEF'D; 1=UNDEF'D 66LNSDEF DATA $-$  0=LN SEGMENT DEF'D; 1=UNDEF'D 6SYNSBP DATA $-$  PTR TO SS B INFO FOR SYN SEGMENT 6LNSSBP DATA $-$  PTR TO SSB INFO FOR LN SEGMENT 6,REQTID DATA $-$  TASK ID OF REQUESTOR ,4CURSTG DATA $-$  REQUESTOR'S CURRENT STAGE ID 46SYORLN DATA $-$  0=SYN OPERATION; 1=LN OPERATION 6:E$$  DATA D$$CC  PTRS TO STRINGS CONTAINING NAMES :. DATA D$$ES  FOR THE FIVE SYNONYMS WHICH.2 DATA D$$MN  COMPRISE THE TERMINATION INFO. 22 DATA D$$FN  * (NOTE: ORDER OF THIS ARRAY IS 2( DATA D$$VT  * VERY IMPORTANT !) (* '. NULSTG DATA NULST  PTR TO A NULL STRING .* '@* ADD ADDITIONAL ENTRIES WHICH MUST BE ACCESSABLE BY PASCAL @>* ROUTINES ABOVE THIS POINT AND CHANGE THE PASCAL TEMPLATE >,* IN THE FILE ".TEMPLATE.PTABLE.NMCOMM" CO,RRESPONDINGLY. * 'NULST BYTE 0 !4D$$CC BYTE 4  ERROR PROCESSING SYNONYM NAMES 4 TEXT '$$CC' *D$$ES BYTE 4  * TEXT '$$ES' *D$$MN BYTE 4  * TEXT '$$MN' *D$$FN BYTE 4  * TEXT '$$FN' *D$$VT BYTE 4  * TEXT '$$VT' *(OLDNAM DATA $-$  OLD NAME POINTER ((OLDVAL DATA $-$  OLD VALUE POINTER((OLDPRM DATA $-$  OLD PARMS POINTER(8NAME BSS256  SPACE FOR A SYNONYM OR LOG. NAME 82VALUE BSS256  SPACE FOR A "VALUE" STRING 20PARMS BSS256  SPACE FOR A "PARMS" LIST 0  CEND " EMORY RELEASE ERROR 6ERR6D BYTE >6D  IOU -PHYSICAL RECORD SIZE TOO 6*  SMALL FOR MINIMUM BLOCKKNFQHDR LH2ء{V UNL=@**************************************%%**********************$@ *  *$ 8*  NFQHDR - SYSTEM QUEUE HEADERS  10/01/81  *$8&*  NTH OF M OS CSEG MODULES  *$& *  *$ @************************************************************$@ *------ > " CSEG 'TBDQUE'TASK BID QUEUE,"$TBDQ DATA $+2  NEWEST ENTRY +$ DATA 0  OLDEST ENTRY +. BYTE 0,>9C  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ > $ CSEG 'IOUQUE'IOU QUEUE HEADER+$$IOUQ DATA $+2  NEWEST ENTRY +$ PTRIRB  OLDEST ENTRY +, BYTE 0,3  NUMBER OF ENTRIES/SERVER ID$,SS0 PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ ( BYTE 1,0  PROG.FILE LUNO/RESERVED&(  CEND < *------ > , CSEG 'LDRQUE' TASK LOADER QUEUE HEADER',$LDRQ DATA $+2  NEWEST ENTRY +$ DATA 0  OLDEST ENTRY +. BYTE 0,>9D  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ > 0 CSEG 'DMRQUE'DISK MANAGEMENT QUEUE HEADER%0$DMRQ DATA $+2  OLDEST ENTRY +$ PTRIRB  NEWEST ENTRY +. BYTE 0,>9E  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < @ *------ > 2 CSEG 'KILQUE'KILL QUEUE HEADER (DIAGNOSTIC)$2$KILQ DATA $+2  NEWEST ENTRY +$ PTRKIL  OLDEST ENTRY +, BYTE 0,4  NUMBER OF ENTRIES/SERVER ID$, PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ > , CSEG 'JOBQUE' JOB MANAGER QUEUE HEADER',$JOBQU DATA $+2  NEWEST ENTRY +$ PTRJMR  OLDEST ENTRY +. BYTE 0,>48  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ > $ CSEG 'IPCQUE'IPC QUEUE HEADER+$$IPCQ DATA $+2  NEWEST ENTRY +$ PTRIRB  OLDEST ENTRY +, BYTE 0,6  NUMBER OF ENTRIES/SERVER ID$, PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ > & CSEG 'NMRQUE' NAME MANAGER QUEUE*&$NMRQ DATA $+2  NEWEST ENTRY +$ PTRIRB  OLDEST ENTRY +. BYTE 0,>43  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER* * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ > . CSEG 'WRTQUE' FORCED WRITE QUEUE HEADER &.$WRTQ DATA $+2  NEWEST ENTRY +$ PTROVB  OLDEST ENTRY +. BYTE 0,>A0  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ > . CSEG 'NMQUE'  NAME MANAGER SPECIAL QUEUE&.$NMQ  DATA $+2  NEWEST ENTRY +$ DATA 0  OLDEST ENTRY +( BYTE 0,0  NUMBER OF ENTRIES/ ZERO&(  CEND < *------ > & CSEG 'SBRQUE' FORCED ROLL QUEUE *&$SBRQ DATA $+2  NEWEST ENTRY +$ PTRIRB  OLDEST ENTRY +. BYTE 0,>4A  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB ADDRESS, DATA JOB00  JSB ADDRESS,, BYTE 0,0  PROGRAM FILE LUNO/ RESERVED$,  CEND < *------ > . CSEG 'OVYQUE' TASK OVERLAY LOADER QUEUE &.$OVYQ DATA $+2  NEWEST ENTRY +$ PTRIRB  OLDEST ENTRY +. BYTE 0,>9F  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB ADDRESS, DATA JOB00  JSB ADDRESS,, BYTE 0,0  PROGRAM FILE LUNO/RESERVED $,  CEND < *------ > * CSEG 'RWTQUE' READ/WRITE TASK QUEUE (*$RWTQ DATA $+2  NEWEST ENTRY +$ PTRIRB  OLDEST ENTRY +. BYTE 0,>2D  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB ADDRESS, DATA JOB00  JSB ADDRESS,, BYTE 0,0  PROGRAM FILE LUNO/RESERVED $,  CEND < *------ > 0 CSEG 'IUVQUE'INSTALL/UNLOAD VOLUME QUEUE %0$IUVQ DATA $+2  NEWEST ENTRY +$ DATA 0  OLDEST ENTRY +. BYTE 0,>20  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  SERVER TSB , DATA JOB00  SERVER JSB ,( BYTE 0,0  PROG FILE LUNO/RESERVED&(  CEND < *------ > @. CSEG 'SBTQUE' SCHD BID TASK QUEUE HEADER&.$SBTQ DATA $+2  NEWEST ENTRY +$ DATA 0  OLDEST ENTRY +. BYTE 0,>1F  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ >  CSEG 'LOGQUE'LOG QUEUE .$LOGQ DATA $+2  NEWEST ENTRY +$ DATA 0  OLDEST ENTRY +, BYTE 0,0  NUMBER OF ENTRIES/SERVER ID$,*  SERVER ID IS >21 ) PTRTSB  SERVER TSB , DATA JOB00  SERVER JSB ,( BYTE 0,0  PROG FILE LUNO/RESERVED&(  CEND < *------ > $ CSEG 'ACCQUE'ACCOUNTING QUEUE+$$ACCQ DATA $+2  NEWEST ENTRY +$ DATA 0  OLDEST ENTRY + BYTE (0,>47  NUMBER OF ENTRIES/SERVER ID$( PTRTSB  SERVER TSB , DATA JOB00  SERVER JSB ,( BYTE 0,0  PROG FILE LUNO/RESERVED&(  CEND < *------ > * CSEG 'SRQUE'  SAVE AND RESTORE QUEUE(*$SRQ  DATA $+2  NEWEST ENTRY +$ DATA 0  OLDEST ENTRY +. BYTE 0,>68  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  SERVER TSB , DATA JOB00  SERVER JSB ,( BYTE 0,0  PROG FILE LUNO/RESERVED&(  CEND < *------ >  CSEG 'DUQUE' DIOU QUEUE.$DIOUQ DATA $+2  NEWEST ENTRY +$ PTRDCB  OLDEST ENTRY +. BYTE 0,>75  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER* * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ >  CSEG 'XPDQ'XPD QUEUE .$XPDQUE DATA $+2  NEWEST ENTRY +$ DATA 0  OLDEST ENTRY +. BYTE 0,>A9  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  SERVER TSB , DATA JOB00  SERVER JSB ,( BYTE 0,0  PROG FILE LUNO/RESERVED&(  CEND <  LIST < O 4. MOV@REG2(RPRVWP),R2 CURRENT REGISTERS.* JEQCPYDUN FORGET IT IF NULL INPUT * CPY010% & MOVB @BL(R2),R3GET BLOCK LENGTH&( AI R2,4 POINT R2 AT CHAR STRING ( SRLR3,8 . JEQNULBLKSKIP CALL IF 0 CHARS IN BLK . CALL BSTRG,PASSER"NULBLK AI R2,-4 RESTORE R2". MOV@C(R2),R2  MORE BLOCKS IN CHAIN ?? . JNECPY010YES  CPYDUN CALL LWPRL,PASSERLSLDISK P LE2آ{X@" COPY DSC.TEMPLATE.ATABLE.FSC "" COPY DSC.TEMPLATE.ATABLE.SAT " UNL#@************************************************************ @ *  * <*  SLDISK - DATA AREA FOR LOADER DISK I/O ROUTINES * <* 09/10/82 *  *  * @************************************************************ @ CSEG 'SLDISK'@*----------------------------------------------------------- @0DIOWP EVEN WORKSPACE FOR DISK I/O ROUTINE 02TICMD BSS1 R0 = TILINE COMMAND/HEAD ADDR 2TIHEAD BSS1 !2TISPR BSS1 R1 = SECS PER RECD/SECTOR NUM 2TISEC BSS1 !*TICYL DATA 0  R2 = CYLINDER ADDRESS *(TICNT DATA 0  R3 = CHARACTER COUNT($TIBUFF DATA 0  R4 = BUFFER ADDRES$ S(LSW) 2TISEL BSS1 R5 = UNIT SELECT/BUFF ADDR MSB 2TIMSB BSS1 !$TIADU DATA 0 R6 = ADU TO READ$0TIOFF DATA 0 R7 = SECTOR OFFSET INTO ADU 0 DATA 0 R8 = SCRATCH DATA 0 R9 = SCRATCH DATA 0 R10 = SCRATCH ,SPT  DATA 0  R11 = SECTORS PER TRACK ,(TIBASE DATA 0  R12 = TILINE ADDRESS( DATA 0 RETURN CONTEXT  DATA 0 !  DATA 0 ! @*----------------------------------------------------------- @ INTWP DATA 0 R0 = SCRATCH 2ADUPPR DATA 0 R1 = SCRATCH/ADU'S PER PHY REC 2 DATA 0 R2 = SCRATCH0MAXENT DATA 0 R3 = NUM OF VCATALOG ENTRIES 0(MAXADU DATA 0  R4 = MAX # OF ADU'S (*CATADU DATA 0  R5 = VCAT STARTING ADU*2PHYREC DATA 0 R6 = VCAT PHYSICAL REC LENGTH 2$SPADU DATA 0 R7 = SECTORS/ADU$$SECSIZ DATA 0 R8 = SECTOR SIZE$(HEADS DATA 0  R9 = NUMBER OF HEADS(DSKREG EVEN "*WPT  DATA 0  R10 = WORDS PER TRACK *2SECPT BSS1 R11 = SECS PER TRACK/OVERHEAD 2OVHPS BSS1 !2TPC  BSS1 R12 = TRACKS PER CYLINDER(0-4) 2.CYLS BSS1 /NUMBER OF CYLINDERS(5-11) . DATA 0 R13  DATA 0 R14  DATA 0 R15 2IPLMSB BYTE 0 TILINE ADDRESS MSB FOR LOADER 22SYSMSB BYTE 0 TILINE ADDRESS MSB FOR SYSTEM 2.CNTPBM DATA 0  NUMBER OF PARTIAL BIT MAPS ..PRPADU DATA 0  VCAT PHYSICAL RECORDS/ADU .,VOLUME CHAR 8  SYSTEM DISK VOLUME NAME ,FAKFDP DATA 0 FMT POINTER  DATA FAKFCBFCB POINTER FAKFCB EVEN ", BSSFCBPSZ TEMP FCB FOR S$IMAGE FILE ,6ALOTAB BSSSATSIZALLOCATION TABLE FOR FILE I/O 6.DOICAR DATA 0  IGNORE DISK I/O ERROR FLAG .2DIOERR DATA 0 DISK I/O ERROR HAS OCCURED%% FLG 2&DISKCD DATA 0  DISK CREATION DATE&&DISKCT DATA 0  DISK CREATION TIME& CEND 'SLDISK'  PAGE "  LIST " +$ PTRJMR  OLDEST ENTRY +. BYTE 0,>48  NUMBER OF ENTRIES/SERVER ID$. PTRTSB  TSB OF SERVER+  DATA JOB00  JSB OF SERVER+ * BYTE 0,0  PROG. FILE LUNO/RESERVED %*  CEND < *------ > $ CSEG 'IPCQUE'IPC QUEUE HEADER+$$IPCQ DATA $+2  NEWEST ENTRY +$ PTRIRB  OLDEST ENTRPNFDATA P-L2ئ{Y@ UNL#@************************************************************ @ *  * 4*  NFDATA - GLOBAL DATA VALUES 03/08/83  * 4 *  * @************************************************************ @@* THIS COMMON SEGMENT CONTAINS GLOBAL DATA VALUES INCLUDING @<* THE FOLLOWING:BEET ANCHORS FOR THE TIME ORDERED LIST <>* (TOL), CACHE LIST, FREE MEMORY LIST, STATIC BUFFER AREA, >>* AND THE TEMPORARY MEMORY BUFFER; PARAMETERS FOR PRIORITY >@* COMPUTATION AND SCHEDULING; ROLL OUT AND LOAD PARAMETERS. @>* A NUMBER OF MISCELLANEOUS DATA VALUES ARE ALSO FOUND IN >>* THIS CSEG.COMMENTS IN THIS TEMPLATE'S SOURCE FILE SHOW >.* PRIORITY, AGING, AND ROLLOUT PARAMETERS..* '* NO6TE: CHANGES TO THIS TEMPLATE REQUIRE CORRESPONDING 6*  CHANGES TO SYSGEN.* ' CSEG 'NFDATA'.TMTOL WORD 0  START OF TIME ORDERED LIST ..TOLBET WORD 0  BEET ADDRESS OF TOL HEADER .&TMTOLN PTROVB FORWARD POINTER &&TMTOLO PTROVB BACKWARD POINTER&"TMTTYP WORD 0 TYPE OF BLOCK "  WORD 0 ! NFSBWP EQU$-26 * WORD 0 SCHEDULER ENTRY VECTOR (WP) * WORD 0 (PC) DATA >000F (ST) BSS4 RESERVED2INTCDT WORD 0 FAKE CDT FOR SYSTEM INIT. TASK 2&RESPFL BSS1  PROGRAM FILE LUNO &.RESTSK BSS1  ID OF SYSTEM RESTART TASK .,RESTRT WORD 0  ID OF USER RESTART TASK ,  DATA 0 ! 0RELOCA WORD 0 RELOCATION VALUE FOR LOADER 0@* '$*  BEET ANCHOR FOR CACHE LIST $* '(CHELST WORD 0  START OF CACHE LIST (0CHEBET WORD 0 BEET ADDRESS OF LIST HEADER 0&CHEFWD PTROVB FORWARD POINTER &&CHEBKW PTROVB BACKWARD POINTER&"CHETYP WORD 0 TYPE OF BLOCK ",SMTBMP WORD 0  SEG MANAGER SCRATCH WORD ,0USERPF CHAR 8 NAME OF PF CONTAINING USER- 0"*  DEFINED MEMORY-RES. TASKS "0TSKDOA WORD 0 FOR INTERRUPT 2 PROCESSOR TO 0&* RETURN TASK ERR CODE TO SCHD. &" WORD 0  * RESERVED * (SMRID)"&CPU12 WORD 0  SET IF 990/12 CPU &$AJSBCT WORD 0 ACTIVE JSB COUNT$$ATSBCT WORD 0 ACTIVE TSB COUNT$*WTSBCT WORD 0  COUNT OF TSB'S ON WOM ** '$* BEET ANCHOR FOR FREE MEMORY LIS$T * ',UAHEAD WORD 0  START OF FREE USER AREA ,*UAPTR WORD 0  BEET ADDRESS OF BLOCK **UAFWD PTROVB  FOWARD LINK POINTER *,UABKW PTROVB  BACKWARD LINK POINTER ,0UABADD WORD 0 START ADDRESS OF USER MEMORY 00UATLEN WORD 0 TOTAL LENGTH OF USER MEMORY 00UADSTR WORD 0 START OF DYNAMIC USER MEMORY 02UADLEN WORD 0 LENGTH OF DYNAMIC USER MEMORY 20UADMIN WORD 0 MIN AMOUNT OF DYNAMIC MEMORY 02USEMEM WORD 0 SUM OF ALL CURRENT FREE MEMORY 22USEFRG WORD 0 NUMBER OF FREE MEMORY FRAGMENT 2.TICFRQ WORD 0  CLOCK FREQUENCY (TICS/SEC) ..UNTSLC WORD 0  CLOCK TICS PER TIME SLICE .&TPU  WORD 0  TICS PER TIME UNIT&*TSENAB WORD 0  TIME SLICE ENABLE FLAG*@0TICLMT WORD 0 LIMIT FOR CURRENT TIME SLICE 0* '** BEET ANCHOR FOR STATIC BUFFER AREA ** '(BTAHED WORD 0  SIZE OF ANCHOR BLOCK(.BTAPTR WORD 0  BEET ADDRESS OF THIS BLOCK .&BTAFWD PTROVB FORWARD POINTER &&BTAREV PTROVB REVERSE POINTER &.BTAADD WORD 0  BEET ADDRESS OF TABLE AREA .2BTALEN WORD 0 LENGTH OF TABLE AREA IN BEETS 2,BTAMAX WORD 0  MAXIMUM AREA FOR BUFFERS ,(BTAALL WORD 0  ALLOCATED TABLE AREA(&BTAHDN WORD 0  HIDDEN TABLE AREA & BSS2 RESERVED,MEMSIZ WORD 0  SIZE OF SYSTEM IN BEETS ,0CMEMSZ WORD 0 SIZE OF CRASH FILE IN BEETS 0.CRSHTL WORD 0  CRASH FILE TILINE ADDRESS .,CRSHHD BSS1  CRASH FILE HEAD ADDRESS ,CR,SHSC BSS1  CRASH FILE SECTOR ADDRESS ,0CRSHCL WORD 0 CRASH FILE CYLINDER ADDRESS 0,CRSHSL WORD 0  CRASH FILE TILINE SELECT ,* '** BEET ANCHOR FOR TEMP MEMORY BUFFER ** '(TMBHED WORD 0  SIZE OF ANCHOR BLOCK(.TMBPTR WORD 0  BEET ADDRESS OF THIS BLOCK .$TMBFWD WORD 0 FORWARD POINTER $ TMBBWD WORD 0 BACK POINTER *TMBADD WORD 0  TEMP ADDRESS BOUNDARY *&TMBLEN WORD 0  TEMP BUFFER LENGTH& WORD 0 RESERVED WORD 0 RESERVED*EXTIME WORD 0  EXTEND TIME SLICE FLAG*,FUTPDT WORD 0  IOU PDT CURRENTLY IN USE ,,UNLPDT WORD 0  UNLOAD VOLUME PDT IN USE ,.SYSUNT WORD 0  ELASPED SYSTEM TIME UNITS .(JCABT WORD 0  BEET ADDRESS OF JCA (,TDLEXP WORD 0  TIME DELAY EXPIRED FLAG ,&WJSBCT WORD 0  WOM LIST JSB COUNT&LDTDSC BSS14! *------ $ <*  PARAMETERS FOR MAPPING PRIORITY, DYNAMIC PRIORITY, <"*  AGING, AND I/O INDICATOR "* '2IOINDX DATA 128 VALUE OF X IN I/O INDICATOR 2* FORMULA.8*  THIS WILL BE THE VALUE OF THE I/O INDICATOR FOR 8**  TASKS WHICH SUSPEND ONCE PER TIC.*<*  THIS SHOULD BE SET SO THAT THE AVERAGE TIME BETWEEN <>*  SUSPENSIONS FOR ALL TASKS IN THE SYSTEM WILL GENERATE >:*  AN I/O INDICATOR VALUE IN THE MIDDLE OF ITS RANGE :2*  (128). THE FOLLOWING TABLE CAN BE USED: 2*  AVE. TIME BETWEEN* SUSPENSIONS  X*  ------------------ * 1/4 TIC  32 * 1/2 TIC  64 * 1 TIC 128 * 2 TICS256 * 4 TICS512 * 8 TICS 1024  *------ $ >*  DATA TABLE FOR MAPPING INSTALLED PRIORITY TO INITIAL >.*  PRIORITY (INSTALLED PRIORITIES 1-4). .*INTPRI BSS4  INSTALLED PRI 1 -> 188** 2 -> 196* 3 -> 208* 4 -> 192 *------ $ :*  DATA TABLE FOR EFFECT OF JOB PRIORITY ON INITIAL :>*  PRIORITY.MAY INDICATE A RANGE OF MODIFICATION FROM >:*  +/- 16 TO +/- 0 OR INDICATE TO COMPUTE A MAXIMUM :4*  ALLOWABLE TASK PRIORITY FROM JOB PRIORITY. 4*  ALLOWABLE VALUES ARE:<*  0 = MODIFY TASK PRIORITY BY +/- 64 BASED ON JOB PRI <*  1 = +/- 32 *  2 = +/- 16 *  3 = +/- 8 *  4 = +/- 4 *  5 = +/- 2 *  6 = +/- 1 *  7 = +/- 0 6*  80 = MAX TASK PRI OF 80 - FF BASED ON JOB PRI60JPRMOD BSS4 VALUE FOR INSTALLED PRI OF 1 0* INSTALLED PRI 2 * INSTALLED PRI 3 * INSTALLED PRI 4  *------ $ 4*  TABLE FOR ALLOWABLE DYNAMIC PRIORITY RANGE.48*  INDICATES THE RANGE TO MODIFY THE TASK PRIORITY 80*  BASED ON THE I/O INDICATOR OF THE TASK.0*  ALLOWABLE VALUES ARE:*  0 = +/- 128*  1 = +/- 64 *  2 = +/- 32 *  3 = +/- 16 *  4 = +/- 8 *  5 = +/- 4 *  6 = +/- 2 *  7 = +/- 1 *  8 = +/- 0 DY.NMOD BSS4 VALUE FOR INSTALLED PRI OF 1 .* INSTALLED PRI 2 * INSTALLED PRI 3 * INSTALLED PRI 4  *------ $ *  TABLE TO INDICATE AGING :*  A VALUE OF 0 INDICATES NO AGING FOR THE PRIORITY :**  AND A VALUE OF 1 INDICATES AGING.*0AGEIND BSS4 VALUE FOR INSTALLED PRI OF 1 0* INSTALLED PRI 2 * INSTALLED PRI 3 * INSTALLED PRI 4  *------ $ 4ENDLMT WORD 0 END ACTION EXECUTION TIME LIMIT 4*  IN SYSTEM TIME UNITS  *------ $ * '*  ROLL OUT PARAMETERS* ' *------ $ ,*  CACHE LIST PARAMETERS FOR ROLL OUT ,* '0CLMXBF WORD 0 MAX # BUFFERS ON CACHE LIST 0 CLMXPS WORD 0 MAX # PROGRAM  SEGS ON CACHE LIST CLMNBF WORD 0 RESERVED(* WAS MIN # BUFFERS ON CACHE LIST (6CLNBUF WORD 0 # BUFFERS CURRENTLY ON CACHE LIST 68CLNPRG WORD 0 # PROG SEGS CURRENTLY ON CACHE LIST 8 *------ $ $*  TOL PARAMETERS FOR ROLL OUT$* '2TLSPND WORD 0 MIN # SYS TIME UNITS TASK MUST 2**  BE SUSPENDED BEFORE ELIGIBLE FOR *(*  ROLL OUT BY LOWER PRIORITY TASK(6TLEXEC WORD 0 MIN # SYS TIME UNITS OF EXECUTION 6"*  TASK MUST RECEIVE BEFORE ""*  ELIGIBLE FOR ROLL OUT BY " *  AN EQUAL PRIORITY TASK 4TOLCNT WORD 0 # TASKS ON TOL ELIGIBLE FOR ROLL 4"*  OUT (NOT MEMORY RESIDENT) "0TOLS24 WORD 0 IF NOT 0 STATE 24 TASKS ARE 0*  IMMEDIATELY ELIGIBLE FOR "*  ROLL OUT UPON SUSPENSION " *------ $ *  TASK LOADER PARAMETERS  * '0LDRTDY WORD 0 TASK LOADER TIME DELAY VALUE 0*  IN SYSTEM TIME UNITS 2NUMROL WORD 0 NUMBER OF SEGMENTS ROLLED OUT 2.ROLSPA WORD 0  AMOUNT OF ROLL SPACE USED .2LDREXC WORD 0 TASK LOADER IS EXECUTING FLAG 2,TSKCNT WORD 0  COUNT OF TASKS IN SYSTEM ,*FRCROL WORD 0  FORCED ROLL-OUT COUNT **PMSTSB WORD 0  ADDRESS OF TSB T%%O ROLL*SITENM CHAR 8 SITE NAME 0MGRCG CHAR 8 SYSTEM MANAGER CONTROL GROUP 0(PUBLIC CHAR 8  PUBLIC ACCESS GROUP (6SYSOPT FLAGS 16 SYSGEN OPTIONS WORD(FLAGS BELOW) 6& FLAG OPTDSK SYSTEM DISK PRESENT & FLAG OPTMFMMINIMUM  FILE MANAGEMENT PRESENT 0 FLAG OPTCDFCREATE/DELETE FILE CAPABILITY 0* FLAG OPTBLK BLOCKED FILE CAPABILITY *2 FLAG OPTBSFBLANK SUPPRESSED FILE CAPABILITY 2, FLAG OPTEXF FILE EXTENSION CAPABILITY ,, FLAG OPTACC ACCOUNTING DATA COLLECTED ," FLAG OPTOSPOUTPUT SPOOLING " FLAG OPTIPCIPC PRESENT  FLAG OPTSECSECURITY FLAG OPTKIFKIF PRESENT   FLAG OPTEXJEXPANDABLE JCA . FLAG OPTRAWDM READ AFTER WRITE ENABLED .$ FLAG OPTWCS 1=PERFORMANCE WCS $( FLAG OPTPFR 1=POWER FAIL RECOVERY ( BITS 1 RESERVED.JCARES WORD 0  RESERVED TABLE AREA AMOUNT .0EXPLEN WORD 0 LENGTH TO EXPAND TABLE AREA 00CONTRY WORD 0 COUNTRY CODE FOR THIS SYSTEM 0@2ITSKMX WORD 0 MAX ALLOC FOR GET AND PUT DATA 22ITSKCR WORD 0 CURR ALLOC FOR GET & PUT DATA 2*DCPYAC WORD 0  DCOPY ACTIVE INDICATOR*$* 0=DCOPY NOT ACTIVE, 1=ACTIVE $"VERS CHAR 6 VERSION NUMBER"0MEMTIC WORD 0 COUNT BEFORE MEM CNTRL CHECK 0"SYSTEM CHAR 8 NAME OF SYSTEM"2COMFLG WORD 0 TO SCHEDULE OR NOT TO SCHEDULE 2.WCSMAP WORD 0  LD MAP TO LOAD WCS (LIMIT) . WORD 0  (BIAS)  WORD 0 RESERVED*IOTFLG WORD 0  SCHEDULER, IOTBID FLAG*** 0=BID REQ OUTSTANDING->BID NFTBID **  -1= DO NOT BID NFTBID ,CLOCNT WORD 0  FILE CLOSES OUTSTANDING ,CPUID WORD 0 CPU ID*ATTNDV CHAR 4  ATTENTION DEVICE NAME * BSS4 RESERVEDCLFLUN. BSS1 STORAGE PLACE FOR LUNO TO .S$CLF ., BSS1 RSVD-FORCE CLFLUN IN LEFT BYTE ,6UALGFB WORD 0 LARGEST FREE BLOCK OF DYNAMIC MEM 66TILADD WORD 0 SAVE TILINE ADDR FOR POWER UP-MUX 60PWRFLG WORD 0 CONTROLLER POWERUP FLAG-MUX 0  EVEN " 0SYSBUF BSS84MAXIMUM TO BUFFER IN SYSTEM 0&CAOVLY WORD 0  CACHE OVERLAY FLAG&$LDRWOM WORD 0 PROCESS WOM FLAG$0LDRBSY WORD 0 PMTLDR IS NOT SUSPENDED FLAG 08LDRSKP WORD 0 COUNT OF TIMES SCHEDULER SKIPPED LDR84XPDFLG WORD 0 SHOULD XPD COLLECT EXTRA STUFF? 4  EVEN " ,NFSIZE EQU$-TMTOL  SIZE OF THIS CSEG , CEND 'NFDATA'  PAGE "  LIST " L PSHSTK,PASSER * MOVSOURCE,R1  BUFFER ADDR INTO R1 *,PNFCLKD L~2ب{[@ UNL=@************************************************************$@ *  *$ 2*  NFCLKD - CLOCK DATA AREA  01/31/82  *$2 *  *$ @************************************************************$@>* THIS COMMON SEGMENT INCLUDES FLAGS AND COUNTERS USED FOR%>>* PERFORMANCE DATA GATHERING AND SYSTEM CLOCK WORKSPACES. %>@* THE WORKSPACE STARTING AT CLKWP2 IS USED FOR UPDATING THE $@>* CLOCK; THAT AT CLKWP IS THE NORMAL CLOCK WORKSPACE. IN %>>* THE LATTER, THE ESTIMATED UTILIZATION VARIABLES (R4,R5) %>:* CONTAIN VALUES IN THE RANGE 0 THROUGH >8000 WHERE 0 '::* REPRESENTS 0% UTILIZATION AND >8000 REPRESENTS 100% ':* UTILIZATION.;* A CSEG 'NFCLKD'7NBFLGS DATA 7 NU MBER OF STATISTIC FLAGS &2NBSAM1 DATA 0 NUMBER SAMPLES ON FLAGS (WD 1)$22NBSAM2 DATA 0 NUMBER SAMPLES ON FLAGS (WD 2)$2.STFLG0 DATA 0  FLAG 0 - FOR DISK UTILITY &.0FLG0H1 DATA 0 HIT COUNT FOR FLAG 0 (WD 1) %00FLG0H2 DATA 0 HIT COUNT FOR FLAG 0 (WD 2) %0,STFLG1 DATA 0  FLAG 1 - CPU UTILIZATION',0FLG1H1 DATA 0 HIT COUNT FOR FLAG 1 (WD 1) %00FLG1H2 DATA 0 HIT COUNT FOR FLAG 1 (WD 2) %0&STFLG2 DATA 0  FLAG 2 - SCHEDULER*&0FLG2H1 DATA 0 HIT COUNT FOR FLAG 2 (WD 1) %00FLG2H2 DATA 0 HIT COUNT FOR FLAG 2 (WD 2) %0*STFLG3 DATA 0  FLAG 3 - FILE MANAGER (*0FLG3H1 DATA 0 HIT COUNT FOR FLAG 3 (WD 1) %00FLG3H2 DATA 0 HIT COUNT FOR FLAG 3 (WD 2) %0STFLG4 DATA 0 FL AG 4 - TASK LOADER)0FLG4H1 DATA 0 HIT COUNT FOR FLAG 4 (WD 1) %00FLG4H2 DATA 0 HIT COUNT FOR FLAG 4 (WD 2) %0.STFLG5 DATA 0  FLAG 5 - MAP ONE ACTIVITY &.0FLG5H1 DATA 0 HIT COUNT FOR FLAG 5 (WD 1) %00FLG5H2 DATA 0 HIT COUNT FOR FLAG 5 (WD 2) %0.STFLG6 DATA 0  FLAG 6 - SVC CODE FILE MGR&.0FLG6H1 DATA 0 HIT COUNT FOR FLAG 6 (WD 1) %00FLG6H2 DATA 0 HIT COUNT FOR FLAG 6 (WD 2) %0STFLG7 DATA 0 FLAG 700FLG7H1 DATA 0 HIT COUNT FOR FLAG 7 (WD 1) %00FLG7H2 DATA 0 HIT COUNT FOR FLAG 7 (WD 2) %0STFLG8 DATA 0 FLAG 800FLG8H1 DATA 0 HIT COUNT FOR FLAG 8 (WD 1) %00FLG8H2 DATA 0 HIT COUNT FOR FLAG 8 (WD 2) %0STFLG9 DATA 0 FLAG 90FLG9H1 DATA 0 HIT COUN T FOR FLAG 9 (WD 1) %0FLG9H2 DATA 0 HIT COUNT FOR FLAG 9 (WD 2) %0STFLGA DATA 0 FLAG 10 /0FLGAH1 DATA 0 HIT COUNT FOR FLAG 10 (WD 1)%00FLGAH2 DATA 0 HIT COUNT FOR FLAG 10 (WD 2)%0STFLGB DATA 0 FLAG 11 /0FLGBH1 DATA 0 HIT COUNT FOR FLAG 11 (WD 1)%00FLGBH2 DATA 0 HIT COUNT FOR FLAG 11 (WD 2)%0STFLGC DATA 0 FLAG 12 /0FLGCH1 DATA 0 HIT COUNT FOR FLAG 12 (WD 1)%00FLGCH2 DATA 0 HIT COUNT FOR FLAG 12 (WD 2)%0STFLGD DATA 0 FLAG 13 /0FLGDH1 DATA 0 HIT COUNT FOR FLAG 13 (WD 1)%00FLGDH2 DATA 0 HIT COUNT FOR FLAG 13 (WD 2)%0STFLGE DATA 0 FLAG 14 /0FLGEH1 DATA 0 HIT COUNT FOR FLAG 14 (WD 1)%00FLGEH2 DATA 0 HIT COUNT FOR FLAG 14 (WD 2)%0STFLGF DATA 0 FLAG 15 /0FLGFH1 DATA 0 HIT COUNT FOR FLAG 15 (WD 1)%00FLGFH2 DATA 0 HIT COUNT FOR FLAG 15 (WD 2)%0STFLGG DATA 0 FLAG 16 /0FLGGH1 DATA 0 HIT COUNT FOR FLAG 16 (WD 1)%00FLGGH2 DATA 0 HIT COUNT FOR FLAG 16 (WD 2)%0STFLGH DATA 0 FLAG 17 /0FLGHH1 DATA 0 HIT COUNT FOR FLAG 17 (WD 1)%00FLGHH2 DATA 0 HIT COUNT FOR FLAG 17 (WD 2)%0STFLGI DATA 0 FLAG 18 /0FLGIH1 DATA 0 HIT COUNT FOR FLAG 18 (WD 1)%00FLGIH2 DATA 0 HIT COUNT FOR FLAG 18 (WD 2)%00SFESIZ EQU6 STATISTICS FLAGS ENTRY SIZE %0* A*  STATISTIC COUNTERS 5* A0STCNT0 DATA 0 COUNTER 0 - # JOBS COMPLETED%02STCNT1 DATA 0 COUNTER 1 - # TASKS COMPLETED $2STCNT2* DATA 0 COUNTER 2 - # SEG MGR CALLS %*0STCNT3 DATA 0 COUNTER 3 - # FILE MGR CALLS%0,STCNT4 DATA 0  COUNTER 4 - # IPC CALLS ',,STCNT5 DATA 0  COUNTER 5 - # ROLL OUTS ',0STCNT6 DATA 0 COUNTER 6 - # FILE MGR Q REQ%02STCNT7 DATA 0 COUNTER 7 - # SYSTEM OVLY LDS $24STCNT8 DATA 0 COUNTER 8 - # NAME MANAGER CALLS#4,STCNT9 DATA 0  COUNTER 9 - # IOU CALLS ',4STCNTA DATA 0 COUNTER 10- # SYSTAB SCHED CALLS#4,STCNTB DATA 0  COUNTER 11- # JCA CALLS ',6STCNTC DATA 0 COUNTER 12 # DIRECTORY OVHD CALLS"6*STCNTD DATA 0 COUNTER 13# DISK I/O(*4STCNTE DATA 0 COUNTER 14- # DISK MANAGER REQS #4* A&*  WORKSPACE FOR UPDATING CLOCK 0&* ACLKWP2 DATA 0 R02CKTI.C1 DATA 0 R1 - 32 BIT CLOCK TIC COUNTER$.*CKTIC2 DATA 0 R2-  WORDS 1 AND 2(*,YEAR DATA 0 R3 - CLOCK YEAR COUNTER',,DAY  DATA 0 R4 - CLOCK DAY COUNTER ',,HOUR DATA 0 R5 - CLOCK HOUR COUNTER',.MIN  DATA 0 R6 - CLOCK MINUTE COUNTER&..SEC  DATA 0 R7 - CLOCK SECOND COUNTER&.,TIC  DATA 0 R8 - CLOCK TIC COUNTER ',& DATA 60R9 - SECONDS PER MINUTE'&" DATA 24 R10 - HOURS PER DAY )"$ DATA 365  R11 - DAYS PER YEAR )$ DATA 0 R12 - SCRATCH , DATA 0 R13 - SCRATCH , DATA 0 R14 1, DATA 1 R15 - TIC COUNT FOR TIME UNITS$,* A *  NORMAL CLOCK WORKSPACE 3 * A"CLKWP DATA 0 R0- SCRATCH ," DATA 0 R1- SCRATCH , DATA 0 R2- SCRATCH ,& DATA >6800 R3- FOR BAR GRAPH )&0DSUTIL DATA 0 R4 - ESTIMATED DISK UTILIZ %0.CPUTIL DATA 0 R5 - ESTIMATED CPU UTILIZ&..TSTIC DATA 0 R6 - TIME SLICE TIC COUNT&.4DSPFG1 DATA 0 R7- INDEX TO FLAGS TO DISPLAY #4,DSPFG2 DATA 6 R8-  ON FRONT PANEL &,0 DATA >FE01 R9 - FOR FRONT PANEL DISPLAY $00 DATA >7F80 R10 - FOR FRONT PANEL DISPLAY $0 DATA 0 R11 - SCRATCH ,, DATA >1FE0  R12 - FRONT PANAL ADDRESS &,& DATA 0  R13 - WORKSPACE POINTER '&$ DATA 0  R14 - PROGRAM COUNTER ($ DATA 0 R15 - STATUS-* A* LOCAL DATA: ;* A2PFG0H2 DATA 0 PREV NUMBER HITS FLAG 0 (WD 2)$2"PFG1H2 DATA 0 PREV NUMBER HITS" FLAG 1 (WD 2)$* ANFCSIZ EQU$-NBFLGS8* A CEND 'NFCLKD'8  PAGE <  LIST <  7 = +/- 0 6*  80 = MAX TASK PRI OF 80 - FF BASED ON JOB PRI60JPRMOD BSS4 VALUE FOR INSTALLED PRI OF 1 0* INSTALLED PRI 2 * INSTALLED PRI 3 * INSTALLED PRI 4  *------ $ 4*  TABLE FOR ALLOWABLE DYNAMIC PRIORITY RANGE.48*  INDICATES THE RANGE TO MODIFY THE TASK PRIORITY 80*  BASED ON THE I/O INDICATOR OF THE TASK.0*  ALLOWABLE VALUES ARE:*  0 = +/- 128*  1 = +/- 64 *  2 = +/- 32 *  3 = +/- 16 *  4 = +/- 8 *  5 = +/- 4 *  6 = +/- 2 * %% 7 = +/- 1 *  8 = +/- 0 DYPPMDATA LKL2ت{]@ UNL=@************************************************************$@ *  *$ 4*  PMDATA - GLOBAL DATA VALUES 04/09/81  *$4"*  FOR PROGRAM MANAGEMENT  *$" *  *$ @************************************************************$@@* THIS COMMON SEGMENT CONTAINS THE PROGRAM MANAGEMENT ERROR $@<* RECOVERY SAVE AREA (IN THIS AREA SEG1SB THROUGH SEGID2&<8* MUST BE CONTIGUOUS), THE COMMON DATA FOR TASK BID (8>* ROUTINES, THE COMMON DATA FOR TASK LOADER ROUTINES, THE %>>* PROGRAM FILE DIRECTORY DOOR, THE PATHNAME FOR THE SYSTEM%>B* PROGRAM FILE, AND THE PATHNAME FOR THE SHARED PROGRAM FILE. #B CSEG 'PMDATA'7,SEG1SB DATA $-$  SEGMENT 1 SSB ADDRESS (,SEG1ST DATA $-$ SEGMEN T 1 SM TABLE SSB ADDRESS$,SEG2SB DATA $-$  SEGMENT 2 SSB ADDRESS (,4SEG2ST DATA $-$ SEGMENT 2 SM TABLE SSB ADDRESS$4,SEG3SB DATA $-$  SEGMENT 3 SSB ADDRESS (,4SEG3ST DATA $-$ SEGMENT 3 SM TABLE SSB ADDRESS$4*CPYLDT DATA $-$  ADDRESS OF LDT COPY )**CPYRPB DATA $-$  ADDRESS OF RPB COPY )* ****************************4 .*** COMMON DATA FOR TASK BID ROUTINES *** -.4SEGID1 DATA $-$ SEGMENT INSTALLED ID(2 WORDS) $4SEGID2 DATA $-$ :2ATRSG1 DATA $-$ ATTRIBUTES OF 1ST ATT. SEG. %22ATRSG2 DATA $-$ ATTRIBUTES OF 2ND ATT. SEG. %2.ATRTSK DATA $-$  ATTRIBUTES OF TASK SEG. '.2LENSG1 DATA $-$ BYTE LENGTH OF 1ST ATT. SEG.%22LENSG2 DATA $-$ BYTE LENGTH OF 2ND ATT. SEG.%24@.LENTSK DATA $-$  BYTE LENGTH OF TASK SEG.'.0LODTSK DATA $-$  LOAD ADDRESS OF TASK SEG. &04TSKREP DATA $-$ SSB REPLICATED IN MEMORY FLAG $44JCASSB DATA 0 SSB FOR JCA OF JOB FOR TASK BID #44JCASMT DATA 0 SMT FOR JCA OF JOB FOR TASK BID #4$*** TASK LOADER COMMON DATA *** 2$0SG1BET DATA $-$  BEET ADDRESS OF SEGMENT 1 &00SG2BET DATA $-$  BEET ADDRESS OF SEGMENT 2 &00SG3BET DATA $-$  BEET ADDRESS OF SEGMENT 3 &04LODFLG DATA $-$ FLAG FOR LOADED/NOT LOADED SEG$4 ****************************4 *ROLDIR DATA 0  ROLL DIRECTORY POINTER(*4ROLPRS DATA 0 PHYSICAL RECORD LENGTH ROLL FILE#4*SYSFDP DATA $-$  SYSTEM PF FDP ADDR. )**SYSFMT DATA $-$  SYSTEM PF FMT ADDR. )* SYSFCB D "ATA $-$  SYSTEM PF FCB ADDR. )"*ROLFDP DATA $-$  ROLL FILE FDP ADDR. )*&ROLFMT DATA $-$ FMT OF ROLL FILE+&&ROLFCB DATA $-$ FCB OF ROLL FILE+&.APLFDP DATA $-$  APPLICATION PF FDP ADDR.'.0APLFMT DATA $-$  APPLICATION PF FMT ADDRESS&00APLFCB DATA $-$  APPLICATION PF FCB ADDRESS&0*IMGFDP DATA $-$  IMAGES PF FDP ADDR. )**IMGFMT DATA $-$  IMAGES PF FMT ADDR. )**IMGFCB DATA $-$  IMAGES PF FCB ADDR. )*,SHRFDP DATA $-$  S$SHARED PF FDP ADDR. (,,SHRFMT DATA $-$  S$SHARED PF FMT ADDR. (,,SHRFCB DATA $-$  S$SHARED PF FCB ADDR. (,< TIMSPN DATA >0200,>0002 TIME DELAY SVC FOR TASK LOADER$<*  SPIN ON DISK ERRORS )8 SYSPN DATA >092E PATHNAME SYSTEM UTILITY PROG FL #8SYSPNC CHAR 8 ;6 SHRPN DATA >092E PATHNAME FOR S$SHARED PROG FL $6 TEXT 'S$SHARED'72WOMPRI BYTE 0 PRIORITY OF TASK BEING LOADED $2 BYTE 0 RESERVED/* A(PMLFDP DATA 0,0  LOCAL COPY OF FDP *(* APMDSIZ EQU$-SEG1SB8 CEND 'PMDATA'8  PAGE <  LIST < STCNT3 DATA 0 COUNTER 3 - # FILE MGR CALLS%0,STCNT4 DATA 0  COUNTER 4 - # IPC CALLS ',,STCNT5 DATA 0  COUNTER 5 - # ROLL OUTS ',0STCNT6 DATA 0 COUNTER 6 - # FILE MGR Q REQ%02STCNT7 DATA 0 COUNTER 7 - # SYSTEM OVLY LDS $24STCNT8 DATA 0 COUNTER 8 - # NAME MANAGER CALLS#4,STCNT9 DATA 0  COUNTER 9 - # IOU CALLS ',4STCNTA DATA 0 COUNTER 10- # SYSTAB SCHED CALLS#4STCNTB DATA 0 COUNSNFPTR PM I2ج{^@ UNL#@************************************************************ @ *  * 2*  NFPTR - SYSTEM POINTERS  09/20/83  * 2 *  * @************************************************************ @>* THIS COMMON SEGMENT CONTAINS POINTERS USED BY MANY PARTS >* OF DNOS.# CSEG 'NFPTR ',TDLHDR PTRTDL  TIME DELAY LIST HEADER,4WOMQUE PTRWOM WAITING ON MEMORY QUEUE HEADER 4.EXTSB PTRTSB  CURRENTLY EXECUTING TASK .0EXJSB PTRJSB  EXECUTING TASK JSB ADDRESS 0(PDTLST PTRPDT  START OF PDT LIST ((LDTLST PTRLDT  START OF LDT LIST ((JSBLST PTRJSB  START OF JSB LIST (.ACTJSB PTRJSB  START OF ACTIVE JSB LIST .$WOMJSB PTRJSB START OF JSBS WA$ITING ON MEMORY ,JCASTR PTRJIT  START OF ALL JCA AREAS,,MBSSTR PTRSGB  POINTER TO SYSTEM SGB ,4PDTSAV PTRPDT POINTER TO SAVED PDT FOR DSRS 42MAPSHD WORD 0 POINTER TO SCHEDULER MAP FILE 22MAPSV2 WORD 0 POINTER TO SVC SECOND MAP FILE 22CURMAP WORD 0 POINTER TO CURRENT MAP 0 FILE 2.RUTSSB PTRSSB  POINTER TO SSB FOR ROOT .0COMSSB PTRSSB  SSB ADDR OF SYSTEM COMMON 02SMSTR PTRSSB SSB ADDR OF FIRST SM SEGMENT 22SMEND PTRSSB SSB ADDR OF LAST SM SEGMENT 22FMSTR PTRSSB SSB ADDR OF FIRST SM SEGMENT 22FMEND PTRSSB SSB ADDR OF LAST SM SEGMENT 24YRPTR WORD 0 PTR TO YEAR COUNTER (DATE&TIME) 40SYSTAB WORD 0 OVERHEAD PTR FOR TABLE AREA 02@.SPATCH WORD 0  START OF PATCH AREA S$$PAT .IXPTR WORD 0 ILLEGAL PC&PCAPTR WORD 0  MUX DEV/INT ENTRY & WORD 0 RESERVED WORD 0 RESERVED WORD 0 RESERVED WORD 0 RESERVED WORD 0 RESERVED2TRCPTR WORD 0 POINTER TO /12 TRACE SAVE AREA 2.BIDREQ PTRPDT  ANCHOR FOR BID REQUESTS ..EORNKR PTRPDT  ANCHOR FOR EOR REQUESTS .0SYSJSB PTRJSB  POINTER TO SYSTEM JOB JSB 0.CCBSTR PTRCCB  START OF THE GLOBAL CCBS .,SC0TID BSS2  NFTBID TASK ID AND LUNO ,.MAP1SV WORD 0  POINTER TO MAP FILE 1 SAVE .$* AREA FOR LEVEL 2 INTERRUPTS $,MSGQUE WORD 0  PTR TO PUT DATA MESSAGES ,2SOPJSB PTRJSB SYSTEM OPERATOR JSB ADDRESS 2 SYSPDT P &TRPDT  SYSTEM DISK PDT ADDRESS &,ETBPTR WORD 0  EXPANSION CHASSIS TABLE ,(PCSPTR WORD 0  SINGLE DEV/INT ENTRY(*PCMPTR WORD 0  MULTIPLE DEV/INT ENTRY*,PCEPTR WORD 0  EXPANSION CHASSIS ENTRY ,0OVYTAB WORD 0 SYSTEM OVERLAY TABLE ADDRESS 02IDTAB WORD 0 IPL LOADED OVERLAY TABLE ADDR. 2*COMPTR WORD 0  POINTER TO COMM MODULE**BADWP WORD 0  ILLEGAL XOP WORKSPACE *&CLOK12 WORD 0  12 MS CLOCK VECTOR&,WOTJSB PTRJSB  TABLE AREA WAIT QUEUE ,4PDSOLD WORD 0 PRIORITY DSR SCHEDULER QUE HEAD 44PDSNEW WORD 0 PRIORITY DSR SCHEDULER QUE TAIL 4,MAPOVY EVEN TABLE OF MAP FILE POINTERS , WORD 0 SVCSHD MAP FILE  WORD 0 SVCTWO MAP FILE MAPSV3 WORD 0 SVC3 MAP FILE $MAPSV4 WORD 0 SVC4 MAP FILE $NFPSIZ EQU$-TDLHDR CEND 'NFPTR '  PAGE "  LIST " C2 DATA 0 R2-  WORDS 1 AND 2(*,YEAR DATA 0 R3 - CLOCK YEAR COUNTER',,DAY  DATA 0 R4 - CLOCK DAY COUNTER ',,HOUR DATA 0 R5 - CLOCK HOUR COUNTER',.MIN  DATA 0 R6 - CLOCK MINUTE COUNTER&..SEC  DATA 0 R7 - CLOCK SECOND COUNTER&.,TIC  DATA 0 R8 - CLOCK TIC COUNTER ',& DATA 60R9 - SECONDS PER MINUTE'&" DATA 24 R10 - HOURS PER DAY )"$ DATA 365  R11 - DAYS PER YEAR )$ DATA 0 R12 - SCRATCH , DATA 0 R13 - SCRATCH , DATDST 0*CURFRM CHAR 8  WORKING SPACE FOR FORM*SPLID ";k4`4QNFER30 P M3 2د{`@ UNL#@************************************************************ @ *  * >*  NFER30- ERROR CONSTANTS COMMON AREA # 404/21/82 * > *  * @************************************************************ @ CSEG 'NFER30'8ERR30 BYTE >30  FILMGR -ACCESS BEYOND END OF FILE 8&ERR31 BYTE >31  IN USE BY COMM &&ERR32 BYTE >32  IN USE BY COMM &&ERR33 BYTE >33  IN USE BY COMM &&ERR34 BYTE >34  IN USE BY COMM &&ERR35 BYTE >35  IN USE BY COMM &&ERR36 BYTE >36  IN USE BY COMM &&ERR37 BYTE >37  IN USE BY COMM &&ERR38 BYTE >38  IN USE BY COMM &&ERR39 BYTE >39  IN USE BY COMM &&ERR3A BYTE >3A  IN USE BY COMM &ERR3B BYTE >3B & SVC00 -ACCESS PRIVILEGES DENIED &&*  FILMGR -ACCESS TO FILE DENIED &2ERR3C BYTE >3C  FILMGR -USER BUFFER TOO BIG24ERR3D BYTE >3D  FILMGR -PHYSICAL REC TOO BIG 44ERR3E BYTE >3E  FILMGR -INVALID BLOCK NUMBER 48ERR3F BYTE >3F  FILMGR -INCONSISTENT FCB/PDT VAL. 8@************************************************************ @* ':*  BYTE DEFINITIONS.MAKE THEM EQU'S TO ERROR BYTES :*  WHERE AT ALL POSSIBLE.* '@************************************************************ @BYTE30 EQUERR30 BYTE31 EQUERR31 BYTE32 EQUERR32 BYTE33 EQUERR33 %%BYTE34 EQUERR34 BYTE35 EQUERR35 BYTE36 EQUERR36 BYTE37 EQUERR37 BYTE38 EQUERR38 BYTE39 EQUERR39 BYTE3A EQUERR3A BYTE3B EQUERR3B BYTE3C EQUERR3C BYTE3D EQUERR3D BYTE3E EQUERR3E BYTE3F EQUERR3F   EVEN "  CEND 'NFER30'  PAGE "  LIST " CURMAP WORD 0 POINTER TO CURRENT MAP 0 FILE 2.RUTSSB PTRSSB  POINTER TO SSB FOR ROOT .0COMSSB PTRSSB  SSB ADDR OF SYSTEM COMMON 02SMSTR PTRSSB SSB ADDR OF FIRST SM SEGMENT 22SMEND PTRSSB SSB ADDR OF LAST SM SEGMENT 22FMSTR PTRSSB SSB ADDR OF FIRST SM SEGMENT 22FMEND PTRSSB SSB ADDR OF LAST SM SEGMENT 24YRPTR WORD 0 PTR TO YEAR COUNTER (DATE&TIME) 40SYSTAB WORD 0 OVERHEAD PTR FOR TABLE AREA 02UNFPWER M"-2ذ{b@ UNL#@************************************************************ @ *  * 8*  NFPWER - DATA AREA FOR POWER UP AND11/16/79 * 8 *  POWER DOWN ROUTINES  * *  * @************************************************************ @ CSEG 'NFPWER'* '(PWDNWP BSS26 POWER DOWN WORKSPACE( DATA 0 R13  DATA 0 R14  DATA 0 R15 *PWUPWP EQU$-26 POWER UP WORKSPACE * DATA 0 R13  DATA 0 R14  DATA 0 R15   DATA 0  OVERHEAD FOR MSG  PWFMSG DATA 0  SLBSLB   DATA >0500  SLBFLG/SLBCNT  DATA 0  SLBDAY  DATA 0  SLBHR DATA 0  SLBMIN  DATA 0  SLBTYP  DATA 0  SLBTYP  DATA 28*256 SLBLEN ( TEXT '**** POWER FAILURE OCCURRED '(< PWFLUC DATA >FFFF  POWER DOWN/UP FLUCTUATION INDICATOR <0OFFLIN BSS2  COUNT OF DISK UNITS OFFLINE08TIMER BSS4  ELAPSE TIMER TO BRING DISKS ONLINE 82PWWP BSS2  POWER DOWN WORKSPACE POINTER 20PWPC BSS2  POWER DOWN PROGRAM COUNTER 0&PWST BSS2  POWER DOWN STATUS&.PWMAP BSS2  POWER DOWN CURMAP POINTER.8MEMBPT BSS2  MEMORY BREAK POINT ADDRESS FOR /12 8$M12LST DATA 0,0  4 EXTRA PAIRS$ DATA 0,0  DATA 0,0  DATA 0,0  DATA 0,0 4TRACES BSS64 TRACE SAVE AREA FOR /12 ERRORS 4 CEND 'NFPWER'  PAGE "  LIST " OVERHEAD PTR FOR TABLE AREA 02UNFERF0 M(mf2س{c@ UNL# CSEG 'NFERF0'@************************************************************ @ *  * >*  NFERF0- ERROR CONSTANTS COMMON AREA # 16 03/08/83 * > *  * @************************************************************ @>* THE NEXT FOUR ERRORS ARE RESERVED FOR RPROOT TO USE AS >>* GENERAL ERRORS; MOST SVCS COULD IN SOME WAY CAUSE THESE >:ERRF0 BYTE >F0 SVC 00-FF -SVC UNDEFINED IN THIS CPU :8ERRF1 BYTE >F1 SVC 00-FF -SVC NOT ALIGNED ON WORD 8:ERRF2 BYTE >F2 SVC 00-FF -SVC REQUIRES SYSTEM TASK ::ERRF3 BYTE >F3 SVC 00-FF -SVC REQUIRES SOFTWARE PRV :* '@* THE NEXT ERROR CODE IS NOT ACTUALLY RETURNED BY ANY SVCS, @** AND MAY NOT BE RETURNED IN THE FUTURE* BY ANY SVC WHICH >* IS CODED TO PASS BACK I/O ERROR CODES. THE RETURN CODE >>* PROCESSOR USES THIS CODE TO GET AN APPROPRIATE MESSAGE > * DISPLAYED TO THE USER. 6ERRF4 BYTE >F4 MANY SVCS -I/O ERROR ENCOUNTERED 6ERRF5 BYTE >F5 ERRF6 BYTE >F6 :ERRF7 BYTE >F7  SVC00-RESERVED FOR COMPATABILITY :*  WITH DX5 8ERRF8 BYTE >F8  SVC2B -NOT ENOUGH MEMORY IN SYS. 8*  FOR THE TASK ,*  SVC12-LAST SEGMENT IS UPDATEABLE ,.*  SVC40-UNLOAD OF SEGMENT NOT LOADED .0*  SVC00-INVALID OR MISSING PARMS (945) 06ERRF9 BYTE >F9  SVC2B -PROG FILE NOT AVAILABLE 6"*  TO TASK BEING BID(OCCURS "*  WHEN BIDDING TASK IN *  DIFFERE NT JOB)  ,*  SVC13-SVC BLOCK IN MEM TO RELEASE ,&*  SVC40 -SEGMENT ALREADY OWNED &6ERRFA BYTE >FA  SVC2B -ATTEMPT TO REPLICATE A 6*  NON-REPLICATABLE TASK .*  SVC12-SVC13 -LAST SEGMENT IN USE BY .*  MORE THAN ONE TASK ,*  SVC40-ATTEMPT TO MAP IN NONREPL. , *  SEGMENT ALREADY IN USE 6ERRFB BYTE >FB  SVC00 -ERROR ACCESSING .S$CLF 6$*  WHILE DOING SECURITY CHECKS $*  SVC2B-TASK ABORTED ,*  SVC12-MEMORY REQUESTED TOO LARGE ,*  FOR USER AREA.*  SVC40-EXCL ACCESS TO SPECIAL TABLE .:ERRFC BYTE >FC  SVC00-NIO - COMMUNICATION SESSION :*  LIMIT EXCEEDED **  SVC2B -PROCEDURE DIRECTORY ERROR ** & SVC40-SEGMENT DIRECTORY ERROR &**  SVC12 -MEMORY REQUEST TOO LARGE *"*  FOR ADDRESS SPACE(GETMEM) "(*  SVC13 -ILLEGAL RETURN ADDRESS (*  SPECIFIED(RETMEM)6ERRFD BYTE >FD  SVC00 -NIO - INVALID SITE NAME 6(*  SVC3E -TASK PREVIOUSLY KILLED (,*  SVC2B-TASK DIRECTORY ENTRY ERROR ,.*  SVC12-SVC13 -LAST SEGMENT OF TASK IS .*  SHARABLE **  SVC14 -ATTEMPT TO LOAD OVLY INTO **  SHARABLE SEGMENT (*  SVC40 -SEGMENT IN USE OR OWNED (:ERRFE BYTE >FE  SVC00-NIO-REMOTE SITE UNAVAILABLE :**  SVC3E -NO TASK WITH RUN ID GIVEN ***  SVC40 -LUNO ASSIGNED TO A DEVICE *(*  SVC2B -LUNO NOT ASSIGNED TO PF (*  SVC12-SVC13-T ILINE I/O IN PROGRESS (*  PMOVLY -LUNO NOT ASSIGNED TO PF (:ERRFF BYTE >FF  SVC00-RESERVED FOR COMPATABILITY :*  WITH DX5 $*  SVC0B -ILLEGAL INPUT FIELD$$*  SVC0D -ILLEGAL INPUT FIELD$**  PMTSCH -NO TASK WITH RUN ID GIVEN ***  SVC35 -NO TASK WITH RUN ID GIVEN *"*  OR NOT AT SPECIFIED STAT. "(*  PMOVYL -ILLEGAL OVERLAY NUMBER ($*  SVC1C -OUT OF BUFFER SPACE$&*  SVC1D -MESSAGE ID NOT FOUND &$*  SVC1F -UNABLE TO BID TASK $,*  SVC21-SYSTEM LOG TASK NOT AVAIL. ,.*  SVC12-SVC13 -TASK IS MEMORY RESIDENT .(*  SVC10 -ILLEGAL GET COMMON CALL ((*  SVC3E -NO END ACTION SPECIFIED (****************************************** ******************* * '*  BYTE EQUATES * '@*********************************************************** @BYTEF0 EQUERRF0 BYTEF1 EQUERRF1 BYTEF2 EQUERRF2 BYTEF3 EQUERRF3 BYTEF4 EQUERRF4 BYTEF5 EQUERRF5 BYTEF6 EQUERRF6 BYTEF7 EQUERRF7 BYTEF8 EQUERRF8 BYTEF9 EQUERRF9 BYTEFA EQUERRFA BYTEFB EQUERRFB BYTEFC EQUERRFC BYTEFD EQUERRFD BYTEFE EQUERRFE BYTEFF EQUERRFF  CEND 'NFERF0'  EVEN "  LIST " " 뮔 PXNFERR1 PM: 2ش{e UNL#@************************************************************ @ *  * :*  NFERR1 - ERROR CONSTANTS >00 => >3F08/14/81 * : *  * @************************************************************ @$ COPY DSC.TEMPLATE.COMMON.NFER00$$ COPY DSC.TEMPLATE.COMMON.NFER10$$ COPY DSC.TEMPLATE.COMMON.NFER20$$ COPY DSC.TEMPLATE.COMMON.NFER30$  LIST " SVC 00-FF -SVC UNDEFINED IN THIS CPU :8ERRF1 BYTE >F1 SVC 00-FF -SVC NOT ALIGNED ON WORD 8:ERRF2 BYTE >F2 SVC 00-FF -SVC REQUIRES SYSTEM TASK ::ERRF3 BYTE >F3 SVC 00-FF -SVC REQUIRES SOFTWARE PRV :* '@* THE NEXT ERROR CODE IS NOT ACTUALLY RETURNED BY ANY SVCS, @** AND MAY NOT BE RETURNED IN THE FUTURE*[NFER00 M= l2ط{f UNL#@************************************************************ @ *  * >*  NFER00- ERROR CONSTANTS COMMON AREA # 103/07/83 * > *  * @************************************************************ @ CSEG 'NFER00'ERR00 BYTE 0 !.ERR01 BYTE >01  TASK ERR -MEMORY PARITY.$*  QUEUE ROUTINES -EMPTY QUEUE$&*  PMGUM -INVALID REQUEST SIZE &$*  NFTBID -INVALID STATION ID $"*  SVC00 -LUNO NOT ASSIGNED" *  IOU -LUNO NOT ASSIGNED ,*  SVC02-DELAY STOPPED BY ACT.TD SVC ,(*  SVC1F -INVALID TIME SPECIFIED ($*  SVC2B -INVALID STATION ID $**  SVC2C -MODIFICATION ADDRESS OUT **  OF RANGE *  SVC30-BUFFER EMPTY @,*  SVC33-RUN ID OR ST. ID NOT FOUND ,**  SVC38 -LOADER LUNO NOT ASSIGNED **  SVC39-BUFFER EMPTY $*  SVC3D -SEMAPHORE OVERFLOW $"*  SVC3F -INVALID DATA TYPE""*  SVC40 -LUNO NOT ASSIGNED"(*  SVC41 -ILLEGAL OPERATION INIT ($*  SVC42 -NO WAIT MASK GIVEN $&*  SVC4A -ATTEMPT TO EXPAND BTA &*  BEYOND SYSGEN'D MAX**  SVC4B -TASK TO BE HALTED NOT IN *$*  JOB OR IS NOT AT %%SPECIFIED $*  STATION,*  SVC4C-VAR. TEXT BUFFER TOO SHORT ,.*  SVC4F-CANNOT POST EVENT IN SYS JOB .,*  SVC52-TASK SAMPLER ILLEGAL ON /10 ,4ERR02 BYTE >02  TASK ERR -ILLEGAL INSTRUCTION 4$*  PMGUM -NO MEMORY AVAILABLE$ *  NFTBI  D -NO RUN ID'S AVAILABLE &*  SVC00 -ILLEGAL I/O OPERATION &"*  IOU -INVALID SUB OP CODE"$*  NAMMGR -INVALID SUB OP CODE$&*  SVC2B -NO RUN ID'S AVAILABLE &&*  SVC30 -STATION NOT AVAILABLE &&*  SVC39 -STATION NOT AVAILABLE & *  SVC3D-ILLEGAL OPCODE  $*  SVC3F -INVALID INDEX INTO $*  DATA TYPE(*  SVC40 -INVALID OPERATION CODE ($*  SVC41 -EVENT NUMBER IN USE$"*  SVC42 -NO EVENT FINISHED"$*  SVC4A -INVALID SUB OP CODE$&*  SVC4C -INVALID LUNO IN BLOCK &(*  SVC 52 -TSK SMPLR IS EXECUTING (0ERR03 BYTE >03  TASK ERR -TILINE TIME OUT0"* NFTBID -JCA NOT IN MEMORY" *  SVC00-LUNO NOT OPENED *  SVC2B  -JCA NOT IN MEMORY(*  SVC30 -INVALID STATION NUMBER (*  SVC39-INVALID LUNO (*  SVC3F -OFFSET IS OUT OF RANGE (&*  SVC41 -EVENT LIMIT EXCEEDED &(*  SVC42 -NO SPACE FOR TIME DELAY (,*  SVC4A-ATTEMPT TO RELEASE MORE BTA ,"*  THAN CURRENTLY ALLOCATED "**  SVC4C -ERROR ACCESSING REQUESTOR **  TASK SEGMENT .*  SVC52-NOT ENOUGH STA FOR TSK SMPLR .8ERR04 BYTE >04  TASK ERR -SVC PROCESSOR HAD ERROR 8&*  NFTBID -INVALID PROGRAM FILE &**  SVC00 -RECORD LOST DUE TO POWER **  FAIL &*  SVC2B -INVALID PROGRAM FILE &**  SVC21 -QUEUE FULL, MESSAGE LOST ***  SVC2D -RUNTIME ID DOES NOT EXIST **  SVC2C-RUNTI ME ID DOES NOT EXIST **  SVC40 -UNABLE TO REMOVE SEGMENT ***  SVC4B -CANNOT HALT FILE MANAGER ***  SVC4C -CALL BLOCK PASSED HAS NO **  ERROR BYTE **  SVC52 -INVALID OP FOR TSK SMPLR *8ERR05 BYTE >05  TASK ERR -ILLEGAL MEMORY ADDRESS 8* RPSGCK -MAPPING ERROR(*  SMLOAD -INVALID BUFFER ADDRESS (**  SMBUFF -BUFFER NOT IN TASK SPACE ***  FILMGR -BUFFER NOT IN USER'S MAP **  SVC00-MAPPING ERROR&*  SVC0E -SUCCESSFUL COMPLETION &(*  SVC1C -INVALID BUFFER POINTER ((*  SVC1D -INVALID BUFFER POINTER ((*  SVC2D -ILLEGAL MEMORY ADDRESS (*  SPECIFIED(*  SVC52 -TSK SMPLR NOT EXECUTING (ERR06 BYTE >06  T ASK ERR -PRIVILEGED OPCODE"* SMBUFF -JCA NOT IN MEMORY"(*  SVC00 -I/O OPERATION TIMED OUT (&*  SVC07 -SUCCESSFUL COMPLETION &$*  NFTBID -INVALID JSB ADDRESS$ *  SVC2B-INVALID JOB ID  **  SVC40 -MAY NOT CHANGE TASK SEG. *,*  SVC40-JCA NOT IN MEMORY; SUBOP 6 ,**  SVC4A -ATTEMPT TO EXPAND MEMORY **  RESIDENT SEGMENT ,ERR07 BYTE >07  TASK ERR -TASK KILLED,(*  SVC40 -INVALID SEGMENT LENGTH (*  SVC00-DEVICE ERROR ,*  SMBUFF -BUFFER SEGMENT NOT IN MEM. ,**  NFTBID -STATION NOT AVAIL. TO JOB ***  SVC2B -STATION NOT AVAIL. TO JOB ***  SVC4A -ATTEMPT TO EXPAND SEGMENT **  BEYOND 65K LIMIT ERR08 BYTE >0*8  TASK ERR -INSUFFICIENT USER TASK **  AREA ,*  SVC40-SEGMENT TOO BIG FOR LOGICAL ,*  ADDRESS SPACE,*  SVC00-CHAR CT IN CALL BLK DOESN'T ,"*  AGREE WITH SUM OF LENGTHS "$*  OF INDIVIDUAL RECORDS (FOR $*  MULTI-RECORD WRITES) 8ERR09 BYTE >09  TASK ERR -MAP SEGMENT NOT PRESENT 8(*  SVC00 -DD I/O BY NON-PRIV TASK ((*  SVC40 -OLD SEGMENT NOT IN TASK (8ERR0A BYTE >0A  TASK ERR -EXEC PROTECT VIOLATION 8**  SVC40 -INSTALLED ID NOT USED FOR **  MEMORY BASED SEGMENTS ,*  SVC00-LOSS OF DCD ON REMOTE TERM ,8ERR0B BYTE >0B  TASK ERR -WRITE PROTECT VIOLATION 8,*  SVC00-LUNO IN USE BY ANOTHER TASK ,*  SVC40-SEGME NT HAS SYSTEM ACCESS *  ONLY 0ERR0C BYTE >0C  TASK ERR -STACK OVERFLOW 0"*  SVC40 -SEGMENT IS IN USE"**  SVC00 -ANOTHER TASK ALREADY HAS **  TERMINAL IN CHAR MODE 4ERR0D BYTE >0D  TASK ERR -HARDWARE BREAKPOINT 4*  SVC40-JCA OVERFLOW *  SVC14-JCA OVERFLOW *  SVC1F-JCA OVERFLOW *  SVC2B-JCA OVERFLOW *  IOU-JCA OVERFLOW * NFTBID -JCA OVERFLOW *  SVC43-JCA OVERFLOW 4ERR0E BYTE >0E  TASK ERR -12 MS CLOCK EXPIRED 4**  SVC40 -SEGMENT ID DOES NOT EXIST ***  SVC00 -UNABLE TO GET I/O BUFFERS ***  SVC4A -SEGMENT ID DOES NOT EXIST *4ERR0F BYTE >0F  TASK ERR -ARITHMETIC OVERFLOW 4* "  SMMJCA -JCA IS NOT IN MEMORY "**  IOU-TERMINAL OWNED BY OTHER JOB *@************************************************************ @* ':*  BYTE DEFINITIONS.MAKE THEM EQU'S TO ERROR BYTES :*  WHERE AT ALL POSSIBLE.* '@************************************************************ @BYTE00 EQUERR00 BYTE01 EQUERR01 BYTE02 EQUERR02 BYTE03 EQUERR03 BYTE04 EQUERR04 BYTE05 EQUERR05 BYTE06 EQUERR06 BYTE07 EQUERR07 BYTE08 EQUERR08 BYTE09 EQUERR09 BYTE0A EQUERR0A BYTE0B EQUERR0B BYTE0C EQUERR0C BYTE0D EQUERR0D BYTE0E EQUERR0E BYTE0F EQUERR0F  ******** 8**************************************************** 8* '*  HANDY EQUATE(S)* '@************************************************************ @6SG3BGN EQU>C000  SYSTEM MAP 3RD SEG'S BEGIN AT 68SG2MAX EQU>3000  MAXIMUM SIZE OF SYSTEM 2ND SEGS 8  EVEN "  CEND 'NFER00'  PAGE "  LIST " OPTSECSECURITY FLAG OPTKIFKIF PRESENT   FLAG OPTEXJEXPANDABLE JCA . FLAG OPTRAWDM READ AFTER WRITE ENABLED .$ FLAG OPTWCS 1=PERFORMANCE WCS $( FLAG OPTPFR 1=POWER FAIL RECOVERY ( BITS 1 RESERVED.JCARES WORD 0  RESERVED TABLE AREA AMOUNT .0EXPLEN WORD 0 LENGTH TO EXPAND TABLE AREA 00CONTRY WORD 0 COUNTRY CODE FOR THIS SYSTEM 0\NMCOMN PM[ 2ظ{h UNL#@************************************************************ @ *  * 8* NAME MANAGER COMMON AREA FOR DNOS 1.1 08/20/81 * 8 *  * @************************************************************ @ CSEG 'NMCOMN'.GLOSMT PTRSSB  GLOBAL NAME SMT ADDRESS ..GLOSSB PTRSSB  GLOBAL NAME SSB ADDRESS .  CEND "  LIST "  -INVALID REQUEST SIZE &$*  NFTBID -INVALID STATION ID $"*  SVC00 -LUNO NOT ASSIGNED" *  IOU -LUNO NOT ASSIGNED ,*  SVC02-DELAY STOPPED BY ACT.TD SVC ,(*  SVC1F -INVALID TIME SPECIFIED ($*  SVC2B -INVALID STATION ID $**  SVC2C -MODIFICATION ADDRESS OUT **  OF RANGE *  SVC30-BUFFER EMPTY _NFERC0  M^>"2ع{i@ UNL# CSEG 'NFERC0'@************************************************************ @ *  * >*  NFERC0- ERROR CONSTANTS COMMON AREA # 13 04/28/82 * > *  * @************************************************************ @6ERRC0 BYTE >C0  FILMGR -RECORD TOO SMALL - KIF 60ERRC1 BYTE >C1  FILMGR -KIF NOT SUPPORTED0:ERRC2 BYTE >C2  FILMGR -BLOCKED FILES NOT SUPPORTED :8ERRC3 BYTE >C3  FILMGR -UNABLE TO DO I/O ON OPEN 8*  TO KIF FILE:ERRC4 BYTE >C4  SVC00-RESERVED FOR COMPATIBILITY :"*  WITH DX10 WHERE IT MEANT: "$*  ATTEMPT TO OPEN A KIF FILE $"*  PREVIOUSLY MARKED "DEAD" "ERRC5 BYTE >C5 (ERRC6 BYTE >C6  SVC00-KIF FILE MU(ST BE REBUILT 8ERRC7 BYTE >C7  FILMGR -EXPANDABLE FILES NOT SUPP 8:ERRC8 BYTE >C8  SVC40-NOT ENOUGH MEMORY IN SYSTEM :"*  TO LOAD SEGMENT WITH TASK ""*  SVC00 -SAME AS FOR SVC40"4ERRC9 BYTE >C9  SVC40 -SEGMGR TABLE OVERFLOW 4"*  SVC00 -SAME AS FOR SVC40""*  SVC2B -SAME AS FOR SVC40"2ERRCA BYTE >CA  IOU -BAD PARAMETER LENGTH 24ERRCB BYTE >CB  IOU -NOT ALL OF KIF SET WAS 4$*  SPECIFIED FOR CONCATENAT'N $4ERRCC BYTE >CC  IOU -NOT ALL SPECIFIED KIF'S 4 *  ARE FROM SAME FILE SET 6ERRCD BYTE >CD  IOU -CAN'T CONCAT. BLOCKED AND 6*  UNBLOCKED FILES6ERRCE BYTE >CE  IOU -CAN'T CONCAT. FILES WITH 6*  DIFFERENT LOG. REC. LENGTH 8ERRCF BYTE >CF  FILMGR -INVALID WRITE TO CONCAT. 8"*  SEQ FILE - NOT AT END OF "*  LAST FILE. @*********************************************************** @* '*  BYTE EQUATES * '@*********************************************************** @BYTEC0 EQUERRC0 BYTEC1 EQUERRC1 BYTEC2 EQUERRC2 BYTEC3 EQUERRC3 BYTEC4 EQUERRC4 BYTEC5 EQUERRC5 BYTEC6 EQUERRC6 BYTEC7 EQUERRC7 BYTEC8 EQUERRC8 %%BYTEC9 EQUERRC9 BYTECA EQUERRCA BYTECB EQUERRCB BYTECC EQUERRCC BYTECD EQUERRCD BYTECE EQUERRCE BYTECF EQUERRCF  CEND 'NFERC0'  EVEN "  LIST "  SVC30 -INVALID STATION NUMBER (*  SVC39-INVALID LUNO (*  SVC3F -OFFSET IS OUT OF RANGE (&*  SVC41 -EVENT LIMIT EXCEEDED &(*  SVC42 -NO SPACE FOR TIME DELAY (,*  SVC4A-ATTEMPT TO RELEASE MORE BTA ,"*  THAN CURRENTLY ALLOCATED "**  SVC4C -ERROR ACCESSING REQUESTOR **  TASK SEGMENT .*  SVC52-NOT ENOUGH STA FOR TSK SMPLR .8ERR04 BYTE >04  TASK ERR -SVC PROCESSOR HAD ERROR 8&*  NFTBID -INVALID PROGRAM FILE &**  SVC00 -RECORD LOST DUE TO POWER **  FAIL &*  SVC2B -INVALID PROGRAM FILE &**  SVC21 -QUEUE FULL, MESSAGE LOST ***  SVC2D -RUNTIME ID DOES NOT EXIST **  SVC2C-RUNTIbNFER80 PMjY2ػ{k UNL# CSEG 'NFER80'@************************************************************ @ *  * >*  NFER80- ERROR CONSTANTS COMMON AREA # 903/08/83* > *  * @************************************************************ @:ERR80 BYTE >80  SVC11-INVALID PRIORITY SPECIFIED :&*  IOU -PATHNAME IS NOT A FILE &4ERR81 BYTE >81  SVC38 -INVALID HEAD/CYLINDER 4$*  SVC00 -RESERVED FOR RTS915$:ERR82 BYTE >82  SVC20,SVC38 -DUPLICATE VOLUME NAME :**  IOU-ILLEGAL OP FOR CONCAT. FILE *2*  SVC28,SVC29-CAN'T DELETE UPDATABLE WHEN 2*  SEGMENT IS IN MEMORY 6ERR83 BYTE >83  SVC28 -FREED AREA NOT IN LIST 6(*  SVC29 -FREED AREA NOT IN LIST (MU,@(*  SVC2A -FREED AREA NOT IN LIST (,*  SVC20-DUP.VOL.NAME IN THIS DRIVE ,$*  SVC00 -RESERVED FOR RTS915$2ERR84 BYTE >84  SVC28 -LIST TABLE OVERFLOW2$*  SVC29 -LIST TABLE OVERFLOW$$*  SVC2A -LIST TABLE OVERFLOW$(*  IOU -CAN'T CONCATENATE SPECIAL (*  USAGE FILES,ERR85 BYTE >85  SVC25-BAD PRIORITY ,&*  IOU -CAN'T CONCATENATE FILES &*  OF DIFFERENT TYPES :ERR86 BYTE >86  SVC25-BAD OBJECT LUNO ASSIGNMENT :,*  SVC26-BAD OBJECT LUNO ASSIGNMENT ,,*  SVC27-BAD OBJECT LUNO ASSIGNMENT ,&*  IOU -CAN'T CONCATENATE KIF'S &*  WITH DIFFERENT PRL'S 2ERR87 BYTE >87  IOU -RESOURCE NOT ATTACHED 2ERR88 BYTE >88  SVC28-DELETE PROTECT  *  SVC29-DELETE PROTECT  *  SVC2A-DELETE PROTECT  (*  IOU -KIF'S TO CONCATENATE NOT (*  IN CORRECT SEQUENCE6ERR89 BYTE >89  IOU -ATTACH NOT VALID FOR TASK 6*  OR JOB LOCAL CHANNEL 4ERR8A BYTE >8A  SVC25 -TASK LENGTH TOO LONG 4&*  SVC26 -TASK LENGTH TOO LONG &&*  SVC27 -TASK LENGTH TOO LONG &&*  IOU -PATHNAME NOT A CHANNEL &:ERR8B BYTE >8B  SVC27-ASSOC. TASK DOES NOT EXIST :(*  IOU -NOT PROG FILE LUNO ON CC (:ERR8C BYTE >8C  SVC25-ASSOC. PROCEDURES ARE SAME :**  IOU-UNABLE TO BID CHANNEL OWNER *:ERR8D BYTE >8D  SVC37-NO HOLE LARGE ENOUGH IN PF : * SVC25 THRU SVC27-NO HOLE  LARGE ENOUGH IN PF (*  IOU -MAX MSG LENGTH TOO LARGE (0ERR8E BYTE >8E  SVC25 -END ACTION TAKEN 0,* SVC26 THRU SVC2A -END ACTION TAKEN ,"*  SVC31 -END ACTION TAKEN ""*  SVC37 -END ACTION TAKEN "**  IOU-CONTRL GROUP ALREADY EXISTS *:ERR8F BYTE >8F  RPROOT -UNABLE TO BID QUEUE SERVER :*  (NOTE: THIS ERROR IS *  POSSIBLE FOR ANY QUEUE * SERVER) $*  SVC00 -RESERVED FOR RTS915$* '@*********************************************************** @* '*  BYTE EQUATES * '@*********************************************************** @BYTE80 EQUERR80 BYTE81 EQUERR81 BYTE82 EQUERR82 BYTE83 EQUERR83 BYTE84 EQUERR84 BYTE85 EQUERR85 BYTE86 EQUERR86 BYTE87 EQUERR87 BYTE88 EQUERR88 BYTE89 EQUERR89 BYTE8A EQUERR8A BYTE8B EQUERR8B BYTE8C EQUERR8C BYTE8D EQUERR8D BYTE8E EQUERR8E BYTE8F EQUERR8F * ' CEND 'NFER80'  EVEN "  LIST " BYTEC3 EQUERRC3 BYTEC4 EQUERRC4 BYTEC5 EQUERRC5 BYTEC6 EQUERRC6 BYTEC7 EQUERRC7 BYTEC8 EQUERRC8 BYTEC9 EQUERRC9 BYTECA EQUERRCA BYTECB EQUERRCB BYTECC EQUERRCC BYTECD EQUERRCD BYTECE EQUERRCE BYTECF EQUERRCF  CEND 'NFERC0'EOD EOD 2PERFORM D T$||OBJECT D T(|| PFTS12 PT@( 4;|@P"000C6PFTS12 M0192NFDATA0001M0072NFPTR 0002P00000001P000200017F232F PFTS0001PR#P00040001P00060001P00080001P000A0001P000C0001P000E0001P001000017F2C6F PFTS0002RP#B000FP00120001P00160001P00180001P00180001P001A0001P001C0001B00007F287FPFTS00P03R#P001E0001P00200001P00220001P00240001P00260001P00280001P002A00017F2CBF PFTS0004RR#P002C0001P00340001P00360001P00380001P003A0001P003C0001P003E00017F2A0F PFTS0005RF"P00400001P00420001P00440001P00460001P00480001P004A0001P004C00017F2BEFF PFTS0006R#P004E0001P00500001P00520001P00540001P00560001P00580001P005A00017F2B6F PFTS0007RR#P005C0001P005E0001P00600001P00620001P00640001P00660001P006800017F2AEF PFTS0008R<P006A0001P006C0001P006E0001P00700001P00720001P00740001P007<600017F29FF PFTS0009R#P00780001P007A0001P007A0001P007C0001P007E0001P00800001P008200017F28BF PFTS0010RR#P00840001P00860001P00880001P008A0001P008C0001P008E0001P009000017F28EF PFTS0011R2P00920001P00940001P00960001P00980001P009A0001P002" 9C0001P009E00017F286F PFTS0012"N!P00AC0001B0080P00AE0001P00B20001P00B60001P00BA0001P00BE00017F319F PFTS0013NR#P00C00001P00C20001P00C40001P00C60001P00C80001P00CA0001P00CC00017F255F PFTS0014R,P00CE0001P00D00001P00D20001P00D40001P00D60,(001P00D80001P00DA00017F24DF PFTS0015(R#P00DC0001P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA00017F235F PFTS0016RR#P00FC0001P00FE0001P01000001P01020001P01040001P01060001P010C00017F29AF PFTS0017R"P010E0001P01160001P01180001P011A"20001P011C0001P011E0001P012000017F2A8F PFTS00182R#P01220001P01240001P01280001P012C0001P012C0001P012E0001P013000017F2B3F PFTS0019RR#P01320001P01340001P01880001P018A0001P018C0001P018E0001P019000017F295F PFTS0020R P00000002P00020002P000<40002P00060002P00080002P000A0002P000C00027F2D3F PFTS0021<R#P000E0002P00100002P00120002P00140002P00160002P00180002P001A00027F2CBF PFTS0022RR#P001C0002P001E0002P00200002P00220002P00240002P00260002P002800027F2C3F PFTS0023RP002A0002P00F2C0002P002E0002P00300002P00320002P00340002P003600027F2B4F PFTS0024FR#P00380002P003A0002P003C0002P003E0002P00400002P00420002P004400027F2ACF PFTS0025RR#P00460002P00480002P004A0002P004C0002P004E0002P00500002P005200027F2A4F PFTS0026RP0P"0540002P00560002P00580002P005A0002P005C0002P005E0002P006000027F29CF PFTS0027PR#P00620002P00640002P00660002P00680002P006A0002P006C0002P006E00027F294F PFTS0028RP#P00700002A0000C0004C002EN00980001B0000B0000B0000B0000B0000B00127F2DFF PFTS00P29R(B0000B0000B0000BFFFFC0024B1FC0B0000B0000B0000B0000B0000B0000B00007F226F PFTS0030RR#B0000BC209BC1F8BC060N00040002B1334BC0A0N00060002BC0E2B0010BC0A27F224F PFTS0031RF"B0012BC162B0010B6150B0784BC163B0010B6150B0784B0C09B0161B0010B13227F2F06F PFTS0032R(B0784BD0E1B0018B0983BA0C1B0784BC0A3B0044B0784BC063B0046BC161B00107F199F PFTS0033RR(B6150B0784B006AB86E2B0022B0784BD822B0005C002CBA206B0607B1109BC0587F1B1F PFTS0034R<B1305B004AB96D8B070AB16F7B1002B006AB961BB0228B000CB0C09B02< 2DB001E7F185F PFTS0035R(B1601B8E38B0598B1702B05A8BFFFEBC3EDB001EBC3ADB001CBC36DB001AB1E057F0E9F PFTS0036RB03807FEBCF PFTS0037(50000PFTS1250016TABADD7FA98FPFTS0038(@:  PFTS12  01/26/85 09:48:47  SDSMAC 1.2.0 83.138PFTS@0039TIALIZE AND PROCEED WITH CONVERSION . *------ $ ( SETO R6 SET DIGIT FOUND FLAG FALSE ( SRLR8,2IGNORE 2 BITS  LI R7,13 BIT POSITION$ASC2 SRLR8,1PUNCH PRESENT?$ JNCASC3NO - JUMP . PFPS12 PTNU4|@P"004F0PFPS12 M0192NFDATA0001M0072NFPTR 0002P00000001P000200017F235F PFPS0001PR#P00040001P00060001P00080001P000A0001P000C0001P000E0001P001000017F2C6F PFPS0002RP#B000FP00120001P00160001P00180001P00180001P001A0001P001C0001B00007F287FPFPS00P03R#P001E0001P00200001P00220001P00240001P00260001P00280001P002A00017F2CBF PFPS0004RR#P002C0001P00340001P00360001P00380001P003A0001P003C0001P003E00017F2A0F PFPS0005RF"P00400001P004200%%01P00440001P00460001P00480001P004A0001P004C00017F2BEFF PFPS0006R#P004E0001P00500001P00520001P00540001P00560001P00580001P005A00017F2B6F PFPS0007RR#P005C0001P005E0001P00600001P00620001P00640001P00660001P006800017F2AEF PFPS0008R<P006A0001P006C0001P006E0001P00700001P00720001P00740001P007<600017F29FF PFPS0009R#P00780001P007A0001P007A0001P007C0001P007E0001P00800001P008200017F28BF PFPS0010RR#P00840001P00860001P00880001P008A0001P008C0001P008E0001P009000017F28EF PFPS0011R2P00920001P00940001P00960001P00980001P009A0001P002" 9C0001P009E00017F286F PFPS0012"N!P00AC0001B0080P00AE0001P00B20001P00B60001P00BA0001P00BE00017F319F PFPS0013NR#P00C00001P00C20001P00C40001P00C60001P00C80001P00CA0001P00CC00017F255F PFPS0014R,P00CE0001P00D00001P00D20001P00D40001P00D60,(001P00D80001P00DA00017F24DF PFPS0015(R#P00DC0001P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA00017F235F PFPS0016RR#P00FC0001P00FE0001P01000001P01020001P01040001P01060001P010C00017F29AF PFPS0017R"P010E0001P01160001P01180001P011A"20001P011C0001P011E0001P012000017F2A8F PFPS00182R#P01220001P01240001P01280001P012C0001P012C0001P012E0001P013000017F2B3F PFPS0019RR#P01320001P01340001P01880001P018A0001P018C0001P018E0001P019000017F295F PFPS0020R P00000002P00020002P000<40002P00060002P00080002P000A0002P000C00027F2D3F PFPS0021<R#P000E0002P00100002P00120002P00140002P00160002P00180002P001A00027F2CBF PFPS0022RR#P001C0002P001E0002P00200002P00220002P00240002P00260002P002800027F2C3F PFPS0023RP002A0002P00F2C0002P002E0002P00300002P00320002P00340002P003600027F2B4F PFPS0024FR#P00380002P003A0002P003C0002P003E0002P00400002P00420002P004400027F2ACF PFPS0025RR#P00460002P00480002P004A0002P004C0002P004E0002P00500002P005200027F2A4F PFPS0026RP0P"0540002P00560002P00580002P005A0002P005C0002P005E0002P006000027F29CF PFPS0027PR#P00620002P00640002P00660002P00680002P006A0002P006C0002P006E00027F294F PFPS0028RP#P00700002A0000C0004C00A6N00980001B0000B0000B0000B0000B0000B00007F2E2F PFPS00P29R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF PFPS0030RR(B0000B0000B0000B0000B0000B0000B0000B0000BFFFFB0000B0000B0000B00007F257F PFPS0031RF"B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2FAFF PFPS0032R(B0000B0000B0000B0000B0000B0604B0000B0504B0000B0000B0000B0000B00007F29CF PFPS0033RR(B0000B0000B0120BFF06B0809B0080B0340B8000B4000B2000B1000B0800B04007F23FF PFPS0034R<B0200B0100B0080B0040B0802B0B02B0A02B0203B0400A00A6B020CB1F< A0B1E017F1FCF PFPS0035R(B020CB1FC0B1E05BC22DB001EB0248B000FB02C9B0248BFFF0BE248B0089B070C7F134F PFPS0036RR#BC260N00040002B130DBC1E0N00060002BC0E7B0010BC0A7B0012BC162B00107F236F PFPS0037R2B6150B0784BC163B0010B6150BC2E0C004AB164DBC2E0C002"28B22E0C0088B13277F19BF PFPS0038"R(BC249B1325B0784B9829B000CC0026B1620BC185B0784B0C09B0169B0010B131A7F1B7F PFPS0039RR(B0784BD0E9B0018B0983BA0C9B0784BC0A3B0044B0784BC063B0046BC161B00107F189F PFPS0040R(B6150B0784B004CB8822B0022C002CB1606BC2(,E0C0048B1305B82E7B0002B130B7F1C0F PFPS0041,R(B0460C03B2B9820C0034C007FB1305B004CB8827B0014C0034B166EBC146BD2E07F1A3F PFPS0042RR(C0027B1304B0784B92E9B000DB1666B0784BD829B000DC0047BC827B0002C00487F1ADF PFPS0043RB0720C004AB0201C00A0B06A0C036E6B1055BC249B1312B8827B0002C0048B16057F1DDF PFPS00446R(B0784B9829B000DC0047B134AB8827B0002C0044B1605B0784B9829B000DC00467F1C9F PFPS0045RR#B1344BC0A0N000C0002B1307B8822B0002C0048B1305BC0A2B0000B16F9B04607F213FPFPS0046R C03BABC0E2B0010BC0@A2B0012BC162B0010B6150B0784B0C09B01E3B0018B162C7F19EF PFPS0047@R#B0784BC163B0010B6150BC0E0N00120002B0784BC263B009EB1309B0784B98297F1F0FPFPS0048RR(B000DC0047B1312B0784BC269B002AB16F7BC2E0C0028B22E0C0096B1302B04607F1ACF PFPS0049R C03BAB04 J$E0C004AB0201C009EB06A0C03E6B100BB0784B0C09B0169B0010B13ED7F181F PFPS0050JR(B04E0C0062B1005B0720C0062B1002B0460C03B2BC205B04C6BC1C6B0A17BA1C97F1A5F PFPS0051RR(B0784BC0E7B0044B133FB0784BC167B0046B1303BC165B0010B6150B0784B0C097F1A8F PFPS0052ROVV@R(B0023B0018B1602B04CAB101CB0784BC2E3B000EB0784B0C09B006BB0008B13247F1ADF PFPS0053RR(B0784BC2A3B0004BD28AB161FB898AC004CB130CBC806C006CB06CABD80AC006C7F11DF PFPS0054RN&B06CAB0201C006AB06A0C03E6BC98AC004CB0784BD1E3B001ABA2A0C0052B96877F14BF PFPSN0055R(B1309BD687BC806C0070BD807C0070B0201C006EB06A0C03E6BC148B05C6B02867F182F PFPS0056RR(B0006B11BABC148B0784BD069B0009BC0A0C0028BC1ADB001EBC2E0C0062B130C7F15DF PFPS0057RD!B21A0C0084B1603B0207B0104B1039B20A0C009AB1334B0207B0206B1019B02077DF20BF PFPS0058R(B0306B21A0C0084B130EBC1ADB001CB028640000NFIDLEE00000002B1609B88267F182F PFPS0059RR(BFFFEC0086B1605B20A0C008CB1320B0207B0406B20A0C0094B131BB20A0C009A7F18FF PFPS0060R:B1318B20A0C008EB1603B9801C0081B1312B20A0C0090B1603B9801C: 0082B130C7F1E9F PFPS0061R(B20A0C0092B1603B9801C0083B1306B20A0C0098B1605B9801C0025B1602B04607F200F PFPS0062RR(C03B2B20A0C0088B1603BC1A0C003EB1005B20A0C008AB160BBC1A0C002AB07847F193F PFPS0063R0B006CBC829B0050C0072B07A0C0072BC0D6B1009B0287B0$0104B1603BC0EDB001C7F198F PFPS0064$R(B1003B0784BC0E9B0004BC807C0064BC803C0066B06C1BD060C007EBC801C00687F18FF PFPS0065RR(B0201C0064B06A0C03E6B020CB1FA0B1D01B100FB0201C009CB06A0C03E6BC0607F192F PFPS0066R&C0054B0202BFFFEB07E0C0040BC442B04E0N&.00620002B0720C003CBC3EDB001E7F1AAFPFPS0067.R(BC3ADB001CBC36DB001AB0380BC801C0462BC80BC0464B9811C00A2B1306B98117F16AF PFPS0068RR(C00A3B1303B9811C00A4B1621B020BC005CBC6DBB1315B96D1B1610B8AE1B00027F18DF PFPS0069R B0002B160CB9AE1B0005B0005B81608B982BB0004C0080B1304BBAE0C007EB00047F1B7F PFPS00708R(B1016BC04BB06A0C0466BC060C0462B020BC005CBCEF1BCEF1BC6D1B100BB02017F141F PFPS0071RR(C005CBC451B1303B06A0C0466B04D1BC060C0462B06A0C0466BC060C0462BC2E07F193F PFPS0072RC0464B045BA0462AB 0464A0466BC800C04E8BC802C04EABC803C04ECBC80BC04EE7F132F PFPS0073BR(B0202C0040BC2E0C0054B0792BC2EBB0002BC011B7000BC0CBBA2C0B05CBB62E07F161F PFPS0074RR(C0054B62E0C005AB1114B1313B0792B04D3BC2E0C0054B0792B071BB880BC00567F1A7F PFPS0075RB1603BL%C2E0C0058B1002BC2E0C0056BC80BC0054BC0CBB0223B0004B070BB002F7F189F PFPS0076LR(B07D2B006BB0CD1B002EBC2E0C0054B07D2BCAC3B0002BC020C04E8BC0A0C04EA7F128F PFPS0077R@BC0E0C04ECBC2E0C04EEB045BA04E8A04EAA04ECA04EE7F54DF PFPS0078@5003EPCSAPP500<5APCSBLN50054PCSCBF50044PCSDJI50040PCSDMF7F209F PFPS0079<J50046PCSDRI50024PCSINP50048PCSJID50028PCSOPT50052PCSOTA7F1E1F PFPS0080JJ5005CPCSPRD503E6PCSPRE50056PCSSB150058PCSSB250026PCSSII7F1EDF PFPS0081J5003CPCSSIP50034PCSSJN50027P.CSSRI5004CPCSSSI5002CPCSSTN7F187F PFPS0082.45004APCSTRF50047PCSTRI50000PFPS127F787F PFPS00834D:  PFPS12  01/26/85 09:45:33  SDSMAC 1.2.0 83.138PFPS0084D017E 00A0'3 0303 0180 06A0 BL @PCSPRE RAW DATA ENTRY 3PFSVCP PTkI04|@L 002DEPFSVCP M0192NFDATA0001M0010NFER000002M0072NFPTR 00037F236FPFSV0001LN!M0044NFWORD0004P00000001P00020001P00040001P00060001P000800017F2F7FPFSV0002NN!P000A0001P000C0001P000E0001P00100001B000FP00120001P001600017F387F PFSV0003NP001J80001P00180001P001A0001P001C0001B0000P001E0001P002000017F391F PFSV0004JR#P00220001P00240001P00260001P00280001P002A0001P002C0001P003400017F2C7F PFSV0005RR#P00360001P00380001P003A0001P003C0001P003E0001P00400001P004200017F2B2F PFSV0006R3BV@R#P00440001P00460001P00480001P004A0001P004C0001P004E0001P005000017F2AAF PFSV0007RR#P00520001P00540001P00560001P00580001P005A0001P005C0001P005E00017F2A2F PFSV0008RN#P00600001P00620001P00640001P00660001P00680001P006A0001P006C00017F2B0F PFSVN0009R#P006E0001P00700001P00720001P00740001P00760001P00780001P007A00017F2A8F PFSV0010RR#P007A0001P007C0001P007E0001P00800001P00820001P00840001P008600017F298F PFSV0011RD!P00880001P008A0001P008C0001P008E0001P00900001P00920001P009400017F2D90F PFSV0012N!P00960001P00980001P009A0001P009C0001P009E0001P00AC0001B00807F341F PFSV0013NR#P00AE0001P00B20001P00B60001P00BA0001P00BE0001P00C00001P00C200017F24EF PFSV0014R>P00C40001P00C60001P00C80001P00CA0001P00CC0001P00CE0001P00D00>0017F241F PFSV0015R#P00D20001P00D40001P00D60001P00D80001P00DA0001P00DC0001P00DE00017F239F PFSV0016RR#P00E00001P00E80001P00F00001P00F80001P00FA0001P00FC0001P00FE00017F231F PFSV0017R4P01000001P01020001P01040001P01060001P010C0001P010E4 0001P011600017F2D0F PFSV0018 R#P01180001P011A0001P011C0001P011E0001P01200001P01220001P012400017F2BAF PFSV0019RR#P01280001P012C0001P012C0001P012E0001P01300001P01320001P013400017F2B1F PFSV0020R*P01880001P018A0001P018C0001P018E0001P019**00001P00000002B0001B02037F269FPFSV0021*L B0405B0607B0809B0A0BB0C0DB0E0FP00000003P00020003P000400037F3A2F PFSV0022LR#P00060003P00080003P000A0003P000C0003P000E0003P00100003P001200037F2B9F PFSV0023R&P00140003P00160003P00180003P001A0003&.P001C0003P001E0003P002000037F2B1F PFSV0024.R#P00220003P00240003P00260003P00280003P002A0003P002C0003P002E00037F2A9F PFSV0025RR#P00300003P00320003P00340003P00360003P00380003P003A0003P003C00037F2B7F PFSV0026R P003E0003P00400003P004200083P00440003P00460003P00480003P004A00037F2AFF PFSV00278R#P004C0003P004E0003P00500003P00520003P00540003P005600%%03P005800037F2A7F PFSV0028RR#P005A0003P005C0003P005E0003P00600003P00620003P00640003P006600037F298F PFSV0029RP00680003P006A00B03P006C0003P006E0003P00700003P00000004B0003B00057F26AFPFSV0030BR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F PFSV0031RR(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF PFSV0032RB0010BL 0008B0004B0002B0001BFE00A0000BCE8BB04C0BC181BC2E0N003800017F1FFFPFSV0033LR(B133CBC066B0002B0981B0A11B0281B000AB1442B0161C001EC0038C00A6C00F27F1CCF PFSV0034RR(C019AC0206B0000BFFFFBFFFFB0902B0802B8000B0100B2020BC020C002AB15277F180F PFSV0035RTR#BC020B0000B1524BC826B0004C0028BD026B0003B0980BC0C0B3820N001400047F226FPFSV0036RR(B0221B0026B04C2B2E85C0094BC483BC802B0000B0760C002AB002BB0820B00007F1D9F PFSV0037RN!N00620003B020CB1FC0B1E05B020CB1FA0B1D01BC046B04C0B2EC0BD9A07F2A3F PFSV0038NP"N00010002B0001B10F9BD9A0N00020002B0001B10F5BD9A0N00030002B00017F2AAFPFSV0039PR#B04C0B10F0BD9A0N00040002B0001B10ECBC2E0C002AB111FB020CB1FA0B1E017F1AEFPFSV0040RN!B04E0N00620003BC0A0C0064BC0D2B05C3B05C2BC060C0028B0709BC0207F2EDF PFSV0041NP@R#N00140004B002FB07D5B0069B0C72B002EB0603B15F9BC060C00B8B2E83BFFFF7F186FPFSV0042RR#B0720C002ABC046B04C0B2EC0BD9A0N00050002B0001B10F9BC020C0040B15497F1E7FPFSV0043RN&BC020C002AB1546B0760C00F4B0200B0018B0709B0069B0826B0002B0000BC8157F1F1F PFSVN0044R#B0000BC825B000240000PCSDMFE00000002BC260N00040003BD829B000DB00007F1F4FPFSV0045RR#BC260N00060003BC829B0002B0000B0795BC820B0000B0000B0795BC820B00027F233FPFSV0046RD!B0000B0795BC820B0004B0000BC820C0134B0000B0209B0000B04F9B04F9B04D97DF1E1F PFSV0047R(B04E0B0000B04E0B0000B04E0B0000B0201B0100B04C2B2E85C0192BC802B00007F1F9F PFSV0048RR#B002BB0820B0000N00620003B020CB1FC0B1E05B020CB1FA0B1D01BC046B04C07F1DBFPFSV0049R:B2EC0BD9A0N00020002B0001B10F9BD9A0N00030002B0001B10F5BC2:E0C01007F222F PFSV0050R#B112FBD2E6B0003B130CB020CB1FA0B1E01B04E0N00620003B0201C002EB06A07F1D6FPFSV0051RR#B0000B04E0C015CB100CBC2E0C01BAB1617B020CB1FA0B1E01B04E0N006200037F1C8FPFSV0052R0B0201C0030B06A0C01B6B0720C019CBC060C016EB2E83B0$FFFFBC060C014AB02027F16CF PFSV0053$N!BFFFEB07E0C0112BC442B1003B4820C0034B0000BC046B04C0B2EC0BD9A07F276FPFSV0054NR#N00060002B0001B10F9BC2E0C01D8B1149BC2E0C01C0B164ABC2E0C01F6B22E07F1A9FPFSV0055R*C0032B1649BC060N00040003BD2E0B0000B1303B**984BB000DB1645B0709BD0E17F1F4FPFSV0056*R#B0018B0983BA0C1BC0A3B0044BC0E3B0046B0200N00980001B04C4BC163B00107F1F2FPFSV0057RN!B6150B0784B0049B8822B0022B0000B1634B9860B0000B000CB1634BC0E07F2FFFPFSV0058N$N00060003BC2E0C0158B1304B88CBB0002$0B1630B1009B9820B0000C0036B13057F22AFPFSV00590R(B0049B88E0C0272B0014B162ABD821B000DB0000BC823B0002C0264B0720C020E7F1CFF PFSV0060RN!BC826B0004B0000BC046B04C0B2EC0BD9A0N00060002B0001B10F9BD9A07F2DDF PFSV0061NN00070002B0001B10F5BD9A0N000480002B0001B10F1BD9A0N00090002B00017F2A0FPFSV00624L B10EDBD9A0N000A0002B0001B10E9BD9A0N000B0002B0001B10E5BD9A07F306FPFSV0063L>N000C0002B0001B10E1BD9A0N000D0002B0001B10DD7F688F PFSV0064>040000GTA0 40000NFGTA040000NFRTA 30296PCSAPP300144PCSBLN7F2DDF PFSV0065J301E4PCSCBF3012CPCSDJI301ECPCSDMF30122PCSDRI3010EPCSINP7F1D9F PFSV0066JJ3028CPCSJID30214PCSOPT301DCPCSOTA30160PCSPRD301D4PCSPRE7F1A5F PFSV0067J>30148PCSSB13013CPCSSB230258PCSSII30208PCSSIP3027CPCSSJN7F1EA>F PFSV0068J30222PCSSRI3014EPCSSSI30252PCSSTN30290PCSTRF30286PCSTRI7F19BF PFSV0069JJ30174PFPS1250000PFSVCP3006EPFTS1240000RTA  40000SPOP 7F308F PFSV0070J(40000SPUSH 300DATABADD7FA6AFPFSV0071( :  PFSVCP  01/26/85 09:47 &:18  SDSMAC 1.2.0 83.138PFSV0072&MPLER D: 042204240469062506360637063706410643:l^MiK-RTHO&$ ERROR 4 - INVALID SUB OP CODE & MOVB @ERR04,@1(R6)  JMPSCP090 EOD EOD 6SCI990 D T||S$OBJECTD fTff}|eS$STAT PUp4t|@R#00016S$STAT M0010$DATA 0000A0000B04DDBC06DB0006B1306BC02AB00027F215F S$ST0001RR(BCC50BC02AB0000BCC50B0380S0000B0000T0004B020AT000CB0460C0000B00007F1BEF S$ST0002RB00007FEC7F S$ST00032X000CCODE 0000X000EPARM1 0000W0000S$STAT0000X002 00W$STAT00007F1FCFS$ST0004D:  S$STAT  01/26/85 12:19:56  SDSMAC 1.2.0 83.138S$ST0005D .SYN $XMA$OPL = "@$XMA$OPL,SYMT"$  .ENDIF tXXRTO* '>*(C) COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, SR$TAD PV!4|R00014R$TAD A0000B0004B0024B0008B000EBD471B0420B0000BC040B046B7F292F R$TA0001RB00007FEC7F R$TA0002430012R$RETM50000R$TAD 3000CS$TAD 7F84BF R$TA00034B:  R$TAD 01/26/85 12:05:32  SDSMAC 1.2.0 83.138R$TA0004BC%dSS$BID PV" 4*|@R00062S$BID M000C$DATA 0000A0000B0100A0002B0F00B0000C0008B04DD7F293F S$BI0001RR(BD82DB0002T0009BD82DB0003T0002BD82DB0004T0006BD82DB0005T0003BC0207F168F S$BI0002RN&B0000B9820T0003C0000B1302B4020C0002BC800T0004B0420B0000BC000B16107F225F S$BIN0003R(B0200T0000B2FD0BD060T0001B1604BDB60T0002B0003B0380BC800B0000B02007F1CCF S$BI0004RN!B0000BC800B0000BC740B0380S0000B2B00B0000B0000B0000B0000B00007F348FS$BI0005NH!W0000BIDTSK000030024PARM1 50004S$BID 30038S$PTCA30058S$SVC 7F238F S$HBI0006>3005CS$XF0 30054S$XF1 40000TRMNUM30004W$BID 7F5BFF S$BI0007>B:  S$BID 01/26/85 12:05:45  SDSMAC 1.2.0 83.138S$BI0008B00BBFFK5K5RTO0003R(C0028B04C4B0420B0000BC000B1633B0581BC4A0C0026B04S$BIDT PU4@|@R#000FES$BIDT M0018$DATA 0000A0000B01FFBC02AB0004B0410BC000B16777F20FF S$BI0001RR(BC02DB0006B0201B0020B2001B130DB0201B4300B0202B0700B04C3B04C4B04C57F1FAF S$BI0002RN&B04C6B04C7B2FC1B0241B00FFB164FBC02DB0004B131FB0201B4300B0202B06007F198F S$BIN0003R(B0203B0000BA0CAB78E3B0003B0003B04C4B04C5B04C6B04C7B2FC1BC040BC0AA7F15EF S$BI0004RR(B0008BD8E0C0000B0003BC131B1308B0412B0304BC000B1636BB8E0C0000B00037F1EAF S$BI0005RD!B10F6BC02AB0006B0410BC000B162DB0201B2B00BC0ADB0006B04C4BD102BD0AD7DF171F S$BI0006R(B0002B0203B00F0B4083BC0EAB000ABC0D3BC16DB0002B7145BC02DB0006B02067F197F S$BI0007RR(B0040B2006B1602BD160C0001B04C6B2FC1B0241B00FFB160DBC02DB0006B02017F1B4F S$BI0008R:B0080B2001B1602BDB42B0002B04C0B1005B0200BFFFDB1012B0200B: FFFEBC06D7F16EF S$BI0009R(B0006B0202B0020B2042B130AB0201B4300B0202B0800B04C3B04C4B04C5B04C67F202F S$BI0010RR(B04C7B2FC1BC740B0380S0000B0000T0004B020AT000CB0460C0002B0300B00007F1CDF S$BI0011R& B0000B0000B0000B00007FBC1FS$BI0012&X001J6PARM1 0000W0000S$BIDT0000X0010S$GTCA0000X0012S$PTCA00007F20FFS$BI0013J0X0014S$SETS0000X0000W$BIDT00007F8C0FS$BI00140D:  S$BIDT  01/26/85 12:06:07  SDSMAC 1.2.0 83.138S$BI0015DTING ACCESS NAME").ELSE  .BIDTASK R$CMSG PU64|@R#0002AR$CMSG A0000B000EB0024B0008B0024BC471BC082B1301B0582BC1457F23DF R$CM0001RN!B1303B0585B1601B0705BC186B1301B0586B0420B0000BC040B046BB00007F311FR$CM0002N450000R$CMSG30028R$RETM30022S$CMSG7F7F1F R$CM00034:  R$CMSG  01/26/85 , 12:04:24  SDSMAC 1.2.0 83.138R$CM0004, S$IADD PU 4||@R#0006AS$IADD M0014$DATA 0000A0000B04DDBC30DB05CCBC07CBC0BCBC0F17F1ACF S$IA0001RR(BC131BA0F2B1901B071DBA132B1703B0583B1901B071DB06A0C004EB0380B04DD7F186F S$IA0002RN&BC30DB05CCB04C3B04C4BC07CB1302BC0F1BC131BC0BCB60F2B1901B071DB61327F127F S$IAN0003R(B1803B0603B1901B071DB06A0C004EB0380BC0C3B1601BC104B02C0B09D0B0A3F7F192F S$IA0004RR(BE3C0B0B3FBC06DB0006B1302BCC43BC444B045BS0000B0000T0004B0460C00007F187F S$IA0005R0B0000T000CB0460C0024B0460C004E7F963FS$IA00060W0010S$$RES000@0W0000S$IADD0000W0008S$ISUB0000X0000W$IADD00007F21EFS$IA0007@" X0008W$ISUB00007FC3BF S$IA0008"D:  S$IADD  01/26/85 12:11:27  SDSMAC 1.2.0 83.138S$IA0009DS$DS0008R:B0380C0000C00D0B1B62BC1EDB000EBC120C0006B05E7C00C0BC0A7C: S$ISUB " "S$$RES  S$SPLR PU44L|%%@R#00470S$SPLR M020C$DATA 0000A0000BC0ADB0002B04C0BD012B1503B020B7F204F S$SP0001RR(B906BB1017B0280B0700B15FABC302B091CB1703B020BB9206B100EBC32AB00027F1A1F S$SP0002RN&B04ECB0006B04ECB0004B2FDCBD02CB0001B1306B020BB90FFBCB4CB0002BC74B7F123F S$SPN0003R(B0380BC26AB000ABC652BC209B0228B0002B0200B2020B020BB0034BA2C9BCE007F1A3F S$SP0004RR(B82C8B1AFDBCA6CB0006B0012BDA6CB0003B0036BC2EAB000EB04DBBC0C2B02237F115F S$SP0005RD!B000AB0200B0008BD2E2B0001B0A1BB1708BC0E2B0020B06A0C03FEC0092BC2EA7DF179F S$SP0006R(B000EB071BBC209B0228B0016B0280B0009B1102B0200B0008BDE33B0600B15FD7F1C9F S$SP0007RR(BCA62B0004B0026BCA62B0006B0028BCA62B0008B002ABC022B0012B1302BD2F07F1A8F S$SP0008R:B1605B020BB0800BC00CB0220B001CB098BB028BB0008B15F7BC0C9B: 0223B00027F1A7F S$SP0009R(BDCF0B060BB16FDBC022B0014B1302BD2F0B1605B020BB0800BC00CB0220B00087F181F S$SP0010RR(B098BB028BB0008B15F7BC0C9B0223B000ABDCF0B060BB16FDBC022B0018B13097F14BF S$SP0011R0BD2F0B1307B098BBC0C9B0223B002CBDCF0B060BB16FDB0$C0E2B0002B40E0C045A7F124F S$SP0012$R(BCA43B0014BD2D2B097BBC2EBC0428B045BBC0E2B0016B1303BC043BD033B16047F154F S$SP0013RR(B020BB9112B0460C003EBC2EAB000CBD6C0B0980B0280B0030B15F5BC2C3BA2C07F160F S$SP0014R&B060BB981BC0050B1602B0600B10FAB0A80B&.13EBBD440BC0C9B0223B003ABC1837F16DF S$SP0015.R(B04D3BC16AB0004BD973B0002B04E5B000AB04E5B0008B04E5B000CBC1C6B02277F17EF S$SP0016RR(B0100BC941B0004B0208B1000B81C3B1419BC107B6103B06C4BD4C4BC943B00067F1B6F S$SP0017R B2FD5BD2E5B0001B1615BB5A0C80192BC125B000AB131BBD113B0984B0584BA0C47F161F S$SP00188R(BEA48B0014BD960C0192B0002B10E5B020BB9205BC22AB000CBD458B10B5BC0C17F168F S$SP0019RR(BC106BDD20C0192BD013B0980B0580BDD33B0600B16FDB1014BC1C9B0227B001E7F16CF S$SP0020RBC2C1BC0CBBD03BBB 0980B0280B0008B150AB983BC046FB1307B0600B16FBBD0337F14AF S$SP0021BR(B0980BDDF3B0600B16FDBC2EAB000CBD45BBC2EAB000EBC2DBB132DBC0C9B02237F0CEF S$SP0022RR(B003BB06A0C03FEC0238B1026BC2EAB0012B2FDBBC2EAB0014BC20BB0204B00087F14CF S$SP0023RB9838CL%0050B1303B0604B15FBB0588B620BB06C8BB8C8BFFFFB06C8BC2C3BA2C07F0FFF S$SP0024LR(B060BBC10BBA108BD51BB0600B1303B060BB0604B10FABC12AB0014B0608B13027F194F S$SP0025RR(BDEF4B10FCBD6E0C0463B8A60C0050B002CB1609B0200C0420BC0C9B0223B002C7F167F S$SP0026RT@R(BCCF0BCCF0BCCF0BCCF0BD2E2B001DB1602B020BB3E00BDA4BB0035BD2E2B001C7F0C4F S$SP0027RR(B1502B020BB0100BDA4BB0034B1032BCA62B001AB0038B102EBDA62B001EB00367F19DF S$SP0028RN&B8822B0004C045CB1627BD2E2B0001B0A2BB1723BC0E2B0022B06A0C03FEC02E47F17AF S$SPN0029R(BC209B0228B001EB0280B0009B1102B0200B0008BDE33B0600B15FDB1012BC1897F1C0F S$SP0030RR(B0226B003AB0200B2020BCD80BCD80BCD80BCD80BC229B0014B0A18B1105B0AC87F15DF S$SP0031RD!B1703B020BB9195B1056BC32AB0000B04DCBDB20C045FB0002BCB20C0456B00107DF196F S$SP0032R(BCB20C0458B0016BC2EAB000EBC2DBB1317BC022B0020B0580BC2EAB0010BC1CB7F13DF S$SP0033RR(BCB0BB0016B75D7BB5E0C045EBD6F0B983BC0463B16FABC020C0458BD130BB5C47F100F S$SP0034R:B0984BDEF0B0604B15FDB04ECB0018B2FDCBC2DCB1302B0460C0036B: DB0BB00027F11DF S$SP0035R(BDB20C046EB0005B2FDCBC01CB16F6BDB20C0460B0002BDB20C0461B0005B02007F169F S$SP0036RR(B013ABCB00B000ABCB09B0006BC12AB0006BCB04B000CBC1EAB0008BCD07B02007F155F S$SP0037R0B0008BCD00BCD00B2FDCBC2DCB16DCBD2E7B0001B1305B0$097BBC2EBC0438B04607F0FCF S$SP0038$R(C003EBD2D2B098BB060BB1606B05C7B0222B0004BCCB7BCCB7BCCB7BDB20C045E7F0F5F S$SP0039RR(B0002B2FDCBC2DCB16C4BDB20C0462B0002B2FDCBC2DCB16BEB10E7BD033B09807F0ECF S$SP0040R&B1308BC203B9838C0463B1306B0600B15FBB&.C008B6003BC2DBB045BB0600BC0C87F175F S$SP0041.R(B05CBB045BB5354B414EB4441B5244B0000C0138C0320C02BCC0320C02C4C02FC7F198F S$SP0042RR(C0320B0000B9110B906BB9111B910FB9112B925FB9255B9187B907DB9191B91937F1A2F S$SP0043R B9192B9194B9195B4400C0464B81871B414CB0191B0B40B933AB092EB5324B44537F1A8F S$SP00448R(B5443B484EB102ES0000B0000T0004B020AT000CB0460C0000T0022T0076T00B27F19DF S$SP0045RR(T00C0T00C6T00D0T00CET020AT0062T004AT005AS0022S004AB3F00B8500B00007F110F S$SP0046RB00E0B0008B0000TB 005AB0000S005AS0062B0053B4954B454EB414DB453AB2E537F191F S$SP0047BR(B2444B5354B4348B4E00S0076B4800B0900S007AS00B2B4300B0080B0000B00007F1D4F S$SP0048RN!B0000B0000B0000B0000B0000B0000S00C6S00CEB0000S00D0S020AB00007F305FS$SP0049N 40000ASSUM 2EW0000S$SPLR0000X0000W$SPLR00007F5E4F S$SP00502D:  S$SPLR  01/26/85 12:17:39  SDSMAC 1.2.0 83.138S$SP0051D9,R3 ADDRESS OF MSG BLOCK 7> 0263 00D8 0223 AI R3,SPMUSR OFFSET TO USER ID FIELD> 00DA 0002  MB$SND PU14e0|@R#00122MB$SND M0154$DATA 0000A0000T0000C000CB203AB110BB0040B00017F265F MB$S0001RR(S0000S0020B0000B0B00B0040T004AB0000B0000T002ET0034B0002B0000S00347F1F2F MB$S0002RN&S0036B0002S0038S004AA000CBC0ADB0004B1376BD1F2B137AB9807C0006B1B777F169F MB$SN0003R(B0987B0201T0039B04C3B94A0C0005B1309BDC72B0583B0607B16F9BC0ADB00047F17CF MB$S0004RR(BD1F2B0987B100BB0201T0038B0A83BD443B0420B0000BC000B160AB0582B06077F1AFF MB$S0005RD!B100BBC020B0000B1608B0420B0000BC000B1304BCB41B0002B0460C011EBC06D7DF1DCF MB$S0006R(B0002B1345BD1B1B1349B0204T004ABCD20C000AB0205B0008BC202BC247B06097F1AAF MB$S0007RR(B1145B9838C0004B13FBBDD32B0605B0607B15FCB0605B1103BDD20C0004B10FB7F17BF MB$S0008R:BDD06B0986BC1C6B0227B000BBDD31B0606B15FDB0203T0020B04D3B: D8E0C00077F14BF MB$S0009R(B0002BD8E0B0000B0003BC8E0C0008B0004BC8C7B000AB0206T004ABC8C6B00067F18DF MB$S0010RR(B0206T0034B04D6B0207T002EBC8C7B000CBCDC6BCDE0T0036B04D7B2FD3BC0137F0FAF MB$S0011R0B1614BC020T0034B1615B04DDB0380B0200B0000B1010B0$0200B0000B100DB02007F214F MB$S0012$R(B0000B100AB0200B0000B1007B0200B0000B1004B0200B0000BCB43B0002BC7407F23EF MB$S0013RB03807FEBCF MB$S0014J30118E90FF 300FAE9100 30100E9101 30106E9102 3010CE9103 7F4A1F MB$S0015J30112E9104 30054:INITZD30046MB$INS3005AMB$INT50000MB$SND7F303F MB$S0016: 300BCMBLUN 7FD13F MB$S0017D:  MB$SND  01/26/85 07:11:05  SDSMAC 1.2.0 83.138MB$S0018D50F MB$I0014J>6910DE910D W0094INITZD000050004MB$INS50000MB$INTW0096MBLUN 0>S$IASC PU7K4|@R#001B8S$IASC M0048$DATA 0000A0000B2D00A0002B04DDBC06DB0002BC1717F215F S$IA0001RR(BC191B04C2BC0EDB0006B70C3B04C4B0208B3030B0283B0001B1341B1506B02037F1C6F S$IA0002RN&B000AB06A0C0168B0208B2020BC1CAB0227B0002BC24AB0229B0023BDDC8B82477F190F S$IAN0003R(B12FDB06A0C0126B0228B0030B0288B0039B1202B0228B0007B06C8BD648B06097F1C6F S$IA0004RR(BC145B16F2BC186B16F0BC104B1504B1303BD660C0000B0609BC00AB0220B00237F1AEF S$IA0005RD!B6009B06C0BD06DB0006B1602BD640B100BB0281B20FFB1B0EB9040B1B0CB70407DF17AF S$IA0006R(B0981B6241B06C1BB040BD641BC049BC0ADB0004B06A0C0192B0380B071DB03807F18FF S$IA0007RR(B04DDBC06DB0002BC171BC191BC06DB0004BC0B1BC0D1B06A0C0168B06A0C01267F153F S$IA0008R:BC104B1505B0546B0545B0586B1701B0585BC06DB0008B1302BCC47B: C448BC0C57F187F S$IA0009R(BC106BC2EAB0000B069BB0380B04DDBC06DB0002BC0ADB0004BC172BC192BC0B17F135F S$IA0010RR(BC0D1B06A0C0168BC204BC003B38C6B3982B3940BC144BC103BA106BA107BC2087F166F S$IA0011R0B1505B0544B0545B0585B1701B0584BC0C4BC105BC2EAB0$0000B069BB0380BC0827F196F S$IA0012$R(B1602BC0C3B131BB04C7B04C8B020CB0020B0A17B0A18B1701B0587B0A15B17017F1A2F S$IA0013RR(B0588B0A16B1701B0585B8087B1B03B1A07B80C8B1A05B6203B1801B0607B61C27F1A9F S$IA0014R&B0586B060CB15EAB045BB071DB045BB0204B&.0001BC082B1507B1306B0504B05427F1B6F S$IA0015.R(B0543B0583B1701B0582BC145B1507B1306B0504B0545B0546B0586B1701B05857F1F3F S$IA0016RR(B045BBC041B1603B0201C01B6BA049BD031B9480B1B06BDC80B0980B1306BDCB17F16DF S$IA0017R B0600B10FCB0200B901BBC740B8045BB0000S0000B0000T0004B020AT000CB04607F1BFF S$IA00188R(C0002B0000S000ES002ES0030B0000T0034B020AT000CB0460C00A6B0000T00407F1C1F S$IA0019R& B020AT000CB0460C00E47FB65FS$IA0020&>X000CS$$RES0000W0000S$IASC0000W0030S$IDIV0000W003CS$IMUL0000>7F1D3FS$IA0021@X0000W$IASC0000X0030W$IDIV0000X003CW$IMUL00007F534F S$IA0022@D:  S$IASC  01/26/85 12:11:45  SDSMAC 1.2.0 83.138S$IA0023D' "@$XMA$OPL",@&MACRO LIBRARY PATHNAME, '% @$XMA$MC,&PRINT WIDTH,&PAGE LENGTH) %KS$IMUL \\S$IDIV SS$RBID PV%*4}@R#0010AS$RBID M002F$DATA 0000S0000S0020B2B00B0020B0000B0000B00007F264F S$RB0001RR(B0000B0700B0000A0000T0000C0010B0624B2452B4249B4401B4106B4000B04C27F238F S$RB0002RN&B0201C0004BD0EDB0007B20E0C000EB1602B0202C000BB0420B0000B0102BC0007F1FAF S$RBN0003R(B164DB0420B0000BC000B1649BD0EDB0007B1111B0200B0901B2FC0BD82DB00067F1ACF S$RB0004RR(T002EB2FE0T002CBC020T002CB0280B0706B1325B0280B07FFB1347B1041BD82D7F150F S$RB0005RD!B0002T0029BD82DB0003T0022BD82DB0004T0026BD82DB0005T0027BD820B00007DF185F S$RB0006R(T0024BC020B0000BD800T0028B06C0BD800T0025B2FE0T0020BC020T%%0020B02807F188F S$RB0007RR(B2B00B161BBDB60T0022B0006B1002B2FE0C000DB0420B0000BC000B160EB02017F1BCF S$RB0008R:C0004B0202T0006B0203B0100B0420B0000B0102BC000B1603BD0C3B: 1620B10197F224F S$RB0009R(BC800B0000B101CB0200T0020BC800B0000B0200B0000BC800C00CAB100DB02007F1F5F S$RB0010RR(B0000BC800C00DCB100EB0200T002CBC800C00D4B0200C00D8BC800C00E6BD0ED7F166F S$RB0011R0B0007B0263B4000BDB43B0007BC740B03807F848F S$0RB0012J30078PARM1 300E2S$903C300A6S$GTCA300BAS$MAPS30030S$PTCA7F2F3F S$RB0013JJ50000S$RBID40000S$REG 30026S$SETS300F4S$SVC 300F8S$XF0 7F31CF S$RB0014J(300F0S$XF1 3007ETRMNUM7FA68FS$RB0015(&:  S$RBID  01/26/85 12:15:51 & SDSMAC 1.2.0 83.138S$RB0016 3 SVC R3 9 0220 007E 0243 ANDI R3,>00FF  ISOLATE ERROR CODE 9 0080 00FF - 0221 0082 1309 JEQ LKP030  NO ERROR -< 0222 0084 0283 CI R3,BADNAM UNDEFINED PARAMETER ?< @S$TAD P UO4|@R0022BS$TAD M0084$DATA 0000A0000B04DDB2FEAB0002BD02AB0003B16FB7F20AF S$TA0001RR(BC1EDB0002BD317B098CB75D7BC16AB000AB06A0C0110B020AB06A0C0136B06A07F164F S$TA0002RN&C0146B0202C0193B06A0C0146BC16AB000CB06A0C0110B020AB06A0C0136B06A07F1CAF S$TAN0003R(C0146B0202C0193B06A0C0146BC16AB000EB06A0C0110B020AB06A0C0136B06A07F1C8F S$TA0004RR(C0146B0202C019AB06A0C0146BC12AB0006B0284B07B9B1147B0224BF84BBC1447F19EF S$TA0005RD!B0585B3960C018CB0924BA184BA1AAB0008B3D60C018EB0A16BC0A6C0166B06A07DF162F S$TA0006R(C0146B0202C0195B06A0C0146BDAA0C0192B006DBC12AB0006B0AE4B1603BBAA07F17AF S$TA0007RR(C0191B006DB0204B006CBA10ABC16AB0008BD0D4B0983B8143B1403B6143B05847F19DF S$TA0008R:B10F9B610AB0224BFF94B0A14BC0A4C0174B06A0C0146B0202C019AB: 06A0C01467F185F S$TA0009R(B06A0C0110B020AB06A0C0146B0202C0195B06A0C0146BC16AB0006B06A0C01107F1DDF S$TA0010RR(B040AB06A0C0146B0202C0198B06A0C0146B0380B0200B901BB75D7BC740B03807F1C4F S$TA0011R0BCA85B0012B0201B0010BA04AB04D1B0202B0014BA08AB0$DAA0C018FB0014BC0FB7F16FF S$TA0012$R(BC22AB0000B0418BC000B16EBB045BB982AB0016C019BB1603BDAA0C0190B00167F184F S$TA0013RR(B045BBD012B0980B6300B11DCBC247BD119BD232BB648B0984BA244B0589B09887F15DF S$TA0014R&BDE72B0608B16FDB045BC019CC01A5C01ACC&.01B3C01BBC01C5C01CEC01D5C01DD7F101F S$TA0015.R(C01E6C01ECC01F2C01F6C01FBC0200C0207C0211C0219C0222B016DB0007B30017F1BAF S$TA0016RR(B1C01B3A02B2C20B012EB0120B0853B4154B5552B4441B5906B5355B4E44B41597F1BCF S$TA0017R B064DB4F4EB4441B5907B5455B84553B4441B5909B5745B444EB4553B4441B59087F18AF S$TA00188R(B5448B5552B5344B4159B0646B5249B4441B5907B4A41B4E55B4152B5908B46457F1AEF S$TA0019RR(B4252B5541B5259B054DB4152B4348B0541B5052B494CB034DB4159B044AB554E7F19EF S$TA0020RB4504B4A55B4C59BB 0641B5547B5553B5409B5345B5054B454DB4245B5207B4F437F19CF S$TA0021BR(B544FB4245B5208B4E4FB5645B4D42B4552B0844B4543B454DB4245B5200S00007F191F S$TA0022RR(B0000T0004B020AT000CB0460C0000B0000B0300T0012B0000B0000B0000B00007F23EF S$TA0023RB0000BH0000B0000S0020S0028S0078B1F1CB1F1EB1F1EB1F1FB1E1FB1E1F7F256FS$TA0024H@X000CS$IASC0000W0000S$TAD 0000X0000W$TAD 00007F5B4F S$TA0025@B:  S$TAD 01/26/85 12:20:09  SDSMAC 1.2.0 83.138S$TA0026B$W OF  R03 0*  RETURNES$WSP2 PUX<$4|@400000S$WSP2 M0020$DATA 0000S00007F8B6F S$WS00014N!W0000W$$A3I0000W0000W$BID 0000W0000W$GTCA0000W0000W$QBID00007F272FS$WS0002N@W0000W$RIT 0000W0000W$SNCT0000W0000W$WIT 00007F578F S$WS0003@,:  S$WSP2  01/26/85 12:22:09  SDSMA,C 1.2.0 83.138S$WS0004EQU $  0047  0000" W$IMUL EQU $  0048  0000" W$ISUB EQU $  0049  0000" W$MAPK EQU $  0050  0000" W$MAPS EQU $  0051  0000" W$NEWEQU $  0052  0000" W$OPEN EQ S$IO  01/26/85 12:12:46  SDSMAC 1.2.0 83.138S$IO0049>C06DB0002BD0F1B0983B1328BD131B91C4B160DBD131B09847F170F S$IO0016RR(B8182B1506BC00AB0220B0032BA002BD405B0582B0604B15F6B100CBD144B02847F1B9F S$IO0017R B2000B1A08B8182B1506BC00ABZS$WRIT ^^S$WEOL S$OPNS S$OPNX ==S$OPN NNS$OPEN %%S$CLOS S$WSP4 PUa4 |400000S$WSP4 M0020$DATA 0000S00007F8B4F S$WS00014@W0000W$DSPL0000W0000W$TAD 0000W0000W$XFER00007F572F S$WS0002@D:  S$WSP4  01/26/85 12:22:30  SDSMAC 1.2.0 83.138S$WS0003DES$.* WORKSPACES FOR ALL LEVEL 3 SUBROUTINES`W$TAD !S$XFER P U `40|@R#001E0S$XFER M0068$DATA 0000A0000B0000C0006B%%3B00A0006BC020T00547F240F S$XF0001RR(B160ABC020T0060B0280B0004B1B02B0460C0118BC060T005EB1302B0460C01D27F1C5F S$XF0002RN&BC820B0000T0002B1328BC820B0000T0002B1324B04C2BC120B0000BC144B61207F1E1F S$XFN0003R(B0000B9920B0000B0001B13FAB6160C003EB8144B1308BD094B0982BA084BD8A07F1AEF S$XF0004RR(C0042B0001BB520B0000B0202T0006BC802T0002BDC94BD494B0420B0000B04027F1DCF S$XF0005RD!BDCA0B0000BC820B0000T0004BC160T0062B1631BC0E0T0060B0283B9020B16037DF1A3F S$XF0006R(B0205B0000B1629B0283B9021B1603B0205B0000B1623B0201B8000B0283B92087F235F S$XF0007RR(B1601B0911B0283B9039B1602B04C1B100BB0283B903AB1306B0283B903BB13037F1E0F S$XF0008R:B0283B903EB1602B0201BF000B0204B0003BC0A0T0064B1316BC142B: 0202T00187F1D2F S$XF0009R(BD495B0420C006EB0502B100EB0200B4C00BC045B0202T0018BD4A0C0004B04C37F1AEF S$XF0010RR(B04C4B2FC0B0201B8000B0204B0007BC801T005ABC802T0016BC803T0056BC8047F17DF S$XF0011R0T0058BC820T0066T005CB105DB0280B0001B1313B0280B0$0004B1603B0720T00547F1C2F S$XF0012$R(B100DB0280B0002B1306B0280B0003B164EB0720T005EB104BB8820T005CT00007F1BDF S$XF0013RR(B1639BC060T005ABC0A0T0016BC0E0T0058BC120T0056BC020C0026B1609BCB417F14CF S$XF0014R&B0002BCB42B0004BCB43B0006BCB44B0008B&.1025B0420B0000BC0A0T0002B13207F1CBF S$XF0015.R(BD0F2B0983BA083B0582BD4A0B0000B04C4BC160T0004B02A1B0221B0008B04C37F195F S$XF0016RR(B0420B0000BC0E0T0002BD112BB4C4B0984BDCA0B0000BA084BD4A0B0000BB4E07F16AF S$XF0017R B0000B0202B0000B0420B0000B80203B04E0T0004B04E0T0002B04E0T0016B020B7F1FEF S$XF00188R(T0056B04FBB04FBB04FBB04FBB04FBB1002B020BT0060B04FBB04FBB04FBB04FB7F0D7F S$XF0019RR(B0380S0000B574EB0000B0000S0006S0016B0000S0018S0054B0000B0000B00007F20BF S$XF0020RB0000B0000B0000B& 0000B0000B0000B00007F8BBF S$XF0021&JV005EBYTE01V01AABYTE03V0180BYTE0830156CIFLAGV002EDEPTH 7F212F S$XF0022JJV0074LPARENV0038NAMPTRV008EPRBI V009APRBO V01AEQ$$PN 7F21CF S$XF0023J4V0078RECNUMV01A6RPAREN60003S$HEC 30192S$IASC60002S4$REC 7F285F S$XF0024J300DES$SCPY60001S$SEC 301B2S$SETS60004S$TEC 3016ES$TERM7F2A5F S$XF0025JN!W0060S$XF0 0000W0062S$XF1 0000W0064S$XF2 0000W0066S$XF3 00007F2AFFS$XF0026N>50000S$XFERV01A0SEMICLV0058STAR 30000W$XFERV004AWD000A7F26C>F S$XF0027D:  S$XFER  01/26/85 12:22:50  SDSMAC 1.2.0 83.138S$XF0028D570187" EPRNTI005C03`i(hRT OAIT,OPTION=(@$OPT),  ERROR=".XMAERR@$$ST"EC.IF @$$CC,GT,0:AF%S$DPAG P U( 4|@R#002E6S$DPAG M000E$DATA 0000A0000B302EB2E2EB3A2EB2E2EB0000C000C7F1E7F S$DP0001RR(BC020B0000B1302B0460C00E8BC020B0000B1506B0201B0000BD860B0000B00007F226F S$DP0002RN&B2FD1B04C1B04C8BC1EDB0002BD9E0B0000C0024B05E7B0000BC0A7C0038BC0207F166F S$DPN0003R(C0018B1107B05E7C003CBDCA0B0000BD4A0B0000B0602B0602BC260B0000B06097F1C9F S$DP0004RR(BC020C0040B1502B0609B1136B2FD7BC017B1633BD127B0000B7120B0000B132E7F1D5F S$DP0005RD!B0588BC0E7B0000BC003B131ABC127C0046BC160B0000B2160B0000B1303B98147DF1D7F S$DP0006R(B0000B120CB9814B0000B120AB0760B0000B1306B9814B0000B1A03B9814B00007F217F S$DP0007RR(B1201BD500B0584B0600B16EABC020C005CB1101B05C3B0A83BD483B0983B04C47F194F S$DP0008R:B0420B0000BC000B1606B0221B0100B10C5BCB48B0006B04C0BC740B: 0667C00807F1E2F S$DP0009R(BC020C00B4B1102B0667C00DAB0380B04DDBC020B0000BC040B0980B7041B05817F1B8F S$DP0010RR(BC801T0006B04C2B0203B0A00B3C81B8080B1101BC002B3840BC802B0000BC06D7F1ACF S$DP0011R0B0006B1301B0600BC800T0000BC12DB0002B0201C010CB0$05C1BC901C00E4B02017F1DAF S$DP0012$R(B0100BC901B0000B5920B0000B0000BD920B0000C0034B04E0T0004B04C7BC1ED7F1D0F S$DP0013RR(B0004B1302B0207BFFF8BC807T0002B04C7B0620T0000B1166BC020T0002B131E7F193F S$DP0014R&BC2C3B0203B0600BC0A4C0126B0602BD312B&.D483B0201T000ABC86DB0018B00027F19CF S$DP0015.R(BA860T0004B0002BC46DB0016B1701B0591B0420B0000BDC8CB06C3BA083BCCA07F171F S$DP0016RR(B0000BC902C0166BC0CBBC1C7B1611B05A0T0004B2FD4BC1D4B1605BD1E4C006C7F138F S$DP0017R B21E0C0070B1609B0620T0004B8A920T0002C0196B04E0T0002B04E4C0078BC02D7F19DF S$DP00188R(B0006BC064C01BABC081BC0E4C01C2BC160T0002BA160T0006B0580B0601B05837F186F S$DP0019RR(B0603B1503B0201C0192B1017B0581BC1A0C0084B21A0C0088B1303B9811C008E7F1E7F S$DP0020RB12F2B9811C0094BB 1209B0760C009AB13ECB9811C00A0B1AE9B9811C00A6B1BE67F165F S$DP0021BR(B0600B15E4BDC91B0605B15E1BC902C01CAB1097B0201B0050BC901C012EBC02D7F176F S$DP0022RR(B0006B133CBC264C0220BC289BA2A0T0006BC16DB0004B1306B0205B0008BDE607F18FF S$DP0023RC01E6BL%0605B16FCB04C4B04C5BC1ADB0006B3D60B0000B3D20C0258B0A84B02247F176F S$DP0024LR(B3000B0A85B0225B3100B0285B3900B1204B0205B3000B0224B0100B8289B15177F223F S$DP0025RR(B0286B0008B1305B1B07BDE66C0000B0586B10F6BDE44B0586B10F3BDE45B04C67F161F S$DP0026RT@R(B0225B0100B0285B3A00B1AECB0205B3000B0224B0100B10E7B0201C001EBD8607F1DCF S$DP0027RR(B0000C013AB2FD1B0202C0120BD860B0000C02B2BC872C01D0BC842C0234B04E17F1ACF S$DP0028RN&B0000B0202B0003BC842C01AABC860C01EEB0000B2FD1BC751BCB60T0004B00067F182F S$DPN0029@B0380S0000B0000B0000B0000B0000B0000B0000B00007F69BF S$DP0030@J30248BLANK 302B8BUFFER30132BYTE0130138BYTE093004EBYTE0A7F29CF S$DP0031JJ302BCBYTE0C3004ABYTE0D302B0BYTE0E301F8BYTE1F301FEBYTE7F7F21BF S$DP0032J30204CODE8 300<0EDSTATE30210EXHIGH3020AEXLOW 30056LNECNT7F266F S$DP0033<J30032OPCRAS30022OPCREW302C6PRBBAD302C2PRBCHC302CAPRBFLD7F1FAF S$DP0034JJ302ACPRBO 302BEPRBOPC3022APRBRCL302D2PRBSFL30134PRBUFL7F1F4F S$DP0035J302D8PRBXFL50008S$DPAG30188S.$IASC300C4S$WIT 301AESFLEOF7F251F S$DP0036.J300DESTATE 300ECVDTSIZ30008W$DPAG3025CWD000A40000WD0A007F2A2F S$DP0037J(301F2WD1000302D6WITOPT7FA6BFS$DP0038(D:  S$DPAG  01/26/85 12:08:06  SDSMAC 1.2.0 83.138S$DP0039DRS (%S$SETS PU 4|@R#0006CS$SETS M0010$DATA 0000A0000B020AB0002B1001B04CAB04DDB06A07F20FF S$SE0001RR(C0058BC141BC182B1305BD116B1303B0204B0200B1002B0204B0400B0203B43007F21DF S$SE0002RN&BE10AB2FC3B0243B00FFB130CB0283B00B9B130AB0283B00B2B1306B0283B00BD7F173F S$SEN0003R(B1307B0200BFF05BC740B0380B0200BFF06B10FBB0200BFF0FB10F8B064EBC0BE7F12FF S$SE0004RR(BC042B0971BA04DBC051B06C2B0972BA08DBC092B045BS0000B0000C0006T00007F186F S$SE0005R,C0000B0460C0056B0460C00587FA90F S$SE0006, W0008S$$ARB0000W00<0CS$$GRB0000W0004S$SETP0000W0000S$SETS00007F1FFFS$SE0007<" X0004W$SETS00007FC33F S$SE0008"D:  S$SETS  01/26/85 12:16:39  SDSMAC 1.2.0 83.138S$SE0009D0 MOV R0,R0 ANY ERRORS ? /; 0178 00C0 1603 JNE P$R900  -- YESS$$GRB 9'9S$$ARB  ' S$$ADS '&S$TCA$ PUXV4|@R#0003CS$TCA$ M001A$DATA 0000A0000BC02AB0000B1613BC02AB0004B04107F266F S$TC0001RR(BC02AB0002BC010B130CB0204B0A00B0203B4300B2FC3B0243B00FFB1304B02007F1CCF S$TC0002RN&BFF05BC740B0380B072AB0000B04DDB0380B04DDB0380B04DDB0380S0000B00007F185F S$TCN0003N!T0004B020AT000CB0460C0000B0000B0000B0000B0000C0034B0000C00387F344FS$TC0004NN!X000EPARM1 0000W0000S$GTCA0000X0010S$NEW 0000W0012S$PTCA00007F21BFS$TC0005NL!W0016S$RTCA0000X0000W$GTCA0000X0012W$PTCA0000X0016W$RTCA00007F1D6FS$TC00L06D:  S$TCA$  01/26/85 12:20:39  SDSMAC 1.2.0 83.138S$TC0007D-------------------------------------- @:*  ISSUE SVC TO GET DATE/TIME BLOCK, CHECK FOR ERROR :2*  ERRORS ARE EXTREMELY RARE. IF THEY OCCUR 2@*-------XS$RTCA D(DS$PTCA O(OS$GTCA ()R$OPNS PU4|@R#0004AR$OPNS A0000B0008B003CB000CB0044B1300B0210BC041B1304B05817F24DF R$OP0001RR(BD451B1601B04C1BC10FB0224B0022BCD2DB0008BCD2DB000AB0205B0008BDD327F16CF R$OP0002RN&B0605B16FDB0205B0008BDD33B0605B16FDBC08FB0222B0022B0420B0000BC0407F1A2F R$OPN0003B046BB00007FDA9FR$OP0004450000R$OPNS30048R$RETM30042S$OPNS7F7C1F R$OP00054D:  R$OPNS  01/26/85 12:04:41  SDSMAC 1.2.0 83.138R$OP0006Dگ"Ҝ * ֭ڭN ڃگ"ҠNH J ֭)S$NEW PU4^|@R000DES$NEW M003E$DATA 0000A0000B0100B0A00B0200B2E00B2FC0BC0827F22CF S$NE0001RR(B160FBC24AB022AB0026B0229B0006BDA81B0007B2FD9BCAA9B000%%2B0004B2FDA7F14DF S$NE0002RN&B0200B0400B2FC0BC0EAB0020B1303BCCC0BCCC1BCCC2BCA82B0010BC76AB00047F12AF S$NEN0003R(B164AB2FEAB0006BC06AB0008BC02AB0000B130ABC041B1608BC02AB0022B02017F18EF S$NE0004RR(B0001BD050B06C1BCA81B0008BC0C1B0241B00FFB0281B00FFB1611B04EAB001E7F16CF S$NE0005RD!BC02AB0010BC04AB0221B0018B0202B0C00BC442B2FD1B0202B4A4CBDC42B06C27DF179F S$NE0006R(BD442B1018BCA81B001EB0204B4246B0A43B08C3BCA83B000CB1301B06C4BDA847F163F S$NE0007RR(B0018B3860C0000B3C60C0002BE042B0221B3030BDA81B001DB06C1BDA81B001C7F1B0F S$NE0008R:BC06AB000AB06C1BDA81B000EB7041BCA81B0002B072AB0004B0380S: 0000B00007F1A2F S$NE0009R(T0004B020AT000CB0460C0004B0000B0000B0000B1700B0000B0000B0000B00007F24AF S$NE0010RR(B0000T0020B092EB5324B4654B4C46B3030BFFFFB0000B0000B0000B2B00B54017F1BDF S$NE0011R0B0000B0000BFF00B0000A00D8T002CT002ET00307F70DF0 S$NE0012 N W000CCIFLAG0000W000ECODE0000W0014PARM1 0000W0016PARM2 00007F235FS$NE0013NR#W001APRNTID0000W0000S$NEW 0000V00D8SELFIDV00DCSELFJIV00DASELFSI7EFD3F S$NE0014RD!W0018STATE 0000W003CSVCCB$0000W001ETLFNAM0000W002ATRMNUM00007F14AFD S$NE0015 " X0000W$NEW 00007FC6CF S$NE0016"B:  S$NEW 01/26/85 12:15:08  SDSMAC 1.2.0 83.138S$NE0017B) = 0 $ 0751  *THENRETURN (TRUE);$/ 0752  * IF FIRST(A) = (DECIMAL DIGIT) / 0753  *THENRE+S$SCOM PU4|@R#00030S$SCOM M000E$DATA 0000A0000B071DBC2EAB0000B069BBD0F1BD1327F1E3F S$SC0001RR(BD144B90C4B1A01BD143B0985B1304B9CB1B1604B0605B15FCB04DDB9103B02C07F163F S$SC0002RN&B09D0B0A3FBE3C0B0B3FB0380S0000B0000T0004B020AT000CB0460C0000B00007F19DF S$SCN0003@X000CS$$GRB0000W0000S$SCOM0000X0000W$SCOM00007F563F S$SC0004@D:  S$SCOM  01/26/85 12:16:19  SDSMAC 1.2.0 83.138S$SC0005D PN $ENDIF N*S$TERM P Ue4|@R#001C2S$TERM M0094$DATA 0000A0000B0406B3D00A0004B0001B0424B24437F253F S$TE0001RR(B4304B2424B5654B0424B2445B5304B2424B4D4EC0006C0010C0015B0200B04007F20CF S$TE0002RN&B04EDB0008B04EDB0006B1003B4B60C0020B0006BC24DBC02AB0000B0410BC0007F1B3F S$TEN0003R(B1603BC02AB0008B0690BC26AB005ABC019B1313BC24DB0205B0060BA14ABC0157F187F S$TE0004RR(B1305BC005BC375BC3B5BC3F5B04D0B05C9BC1CDBCDF9B05C7BCDF9BCDF9BCDF97F063F S$TE0005RD!B0380BC02AB0006B0410B2FE0C0022BC02AB005ABC010B160DB0200B4300B02017DF1CAF S$TE0006R(B0800B04C2B04C3B04C4B04C5B04C6B2FC0B0280B4300B13FCBC0EDB0006B70C37F158F S$TE0007RR(B0603B130FB0283B0005B151EBD0EDB0008B161BBC0AAB006EBC092B1317BCB427F15AF S$TE0008R:B0008BCB60C0004B0006B0200B4C00BC06DB0008BC0AAB001ABD4A0C: 0002B04C47F195F S$TE0009R(B2FC0B0280B4C04B1601B04C3BCB42B0004BCB43B0008BC02DB0006B1609BC02D7F172F S$TE0010RR(B0008B1606BC02DB0004B1303BCB60C0020B0006B0205C000BBC0ADB0004BC02A7F1B6F S$TE0011R0B0002B0410B0502BC000B1652B0204B0003B0205C001AB0$C24DB05C9BC079B05C97F1CBF S$TE0012$R(BE660C0022B0206B0004B0202B0068BA08ABC1C2B05C7BC201B1605B0284B00037F1C6F S$TE0013RR(B1302B04C2B1010B0241BF000B0941B0221B3000B0281B3A00B1102B0221B07007F22CF S$TE0014R&BDDC1B0606B1303B0A48BC048B10F0BC0F5B&.C02AB0002B0410B0302BC000B16237F18EF S$TE0015.R(B0604B1304BC322B0004BC079B10D5B0201B000ABA04AB04C2B028CB3745B11107F1BCF S$TE0016RR(B0202B0011BA08ABD460C0001BD84CB0005B06CCBD84CB0006BC02AB0004B04107F193F S$TE0017R B0102BC000B1606BD460C0000B8C02AB0002B0410B0102BC2AAB005EB045BS00007F1C0F S$TE00188R(B0000T0014T0000T001CBC80AT0082B020AT0024B0460C007EB020AT0024B04607F191F S$TE0019RR(C002EB020AT0024B0460C0024B0000B0000B0000B0000T0008B0624B2446B4E207F20AF S$TE0020RB2008B4C45B4146BB 4E41B4D45T0040B3D00S0040S007EB0000B0000B0000B00007F1C8F S$TE0021B6B0000B0000B0000B0530B0000B0000B00007F8B3F S$TE00226JX007ECIFLAG000050022EXPIREX0080PRNTID0000X0024S$GTCA00007F244FS$TE0023J,X0028S$MAPS0000X002AS$PTCA0000X0026S$SETS0,$ 000W0004S$STOP00007F187FS$TE0024$N!W0000S$TERM0000W0040S$VTB 0000X0092SVCCB$0000W0008TRMSYN00007F1A1FS$TE0025N" X0004W$STOP00007FC2CF S$TE0026"D:  S$TERM  01/26/85 12:20:55  SDSMAC 1.2.0 83.138S$TE0027D 0030 0004 eS$STOP ,.S$WAIT PU4|@R#000D0S$WAIT M001C$DATA 0000A0000B0112B0606B2424B5242B4944B03007F24CF S$WA0001RR(B0000B0159BC02AB0000B0410BC000B1659BC02AB0008B0690BC000B1654B02017F1EAF S$WA0002RN&C0003B0202C000EBC02AB0002B0410B0102BC000B164ABC02AB0006B0410BC0007F1EEF S$WAN0003R(B1645BC0EAB000EB1308BC0D3B1306BD8E0C0000B0000B2FD3BC4D3B1638B02017F16DF S$WA0004RR(B0700B04C2BC0AAB000ABD092B2FC1BC001B0281B0706B162DB2FE0C0002BC0C37F15CF S$WA0005RD!B1306BD8E0C0001C0050B2FD3BC4D3B1623BC02AB0000B0410BC000B1620B02017DF1B9F S$WA0006R(C000ABC0AAB000CB0200B0100BC480BC02AB0004B0410B0102BC000B1613B74927F1CDF S$WA0007RR(B0203C0003B02A2B05C2B0201B0100BC02AB0004B0410B0302BC000B1606BD0417F206F S$WA0008R:B1602B04DDB0380B0200B9037BC740B0380S0000B0000T0004B020AT: 000CB04607F1C8F S$WA0009@C0010B0000B0000B0000B0000B0000B0000B0000B00007F6B5F S$WA0010@JX0018CODE 0000V007APRBOPCX0016PRNTID0000X000CS$GTCA00007F268FS$WA0011JJ!X0010S$MAPS0000X0012S$PTCA0000X000ES$SETS0000W0000S$WAIT00007F1A8FS$WAJ0012@Z001ATLF 0000X0014TRMSYN0000X0000W$WAIT00007F545F S$WA0013@D:  S$WAIT  01/26/85 12:21:31  SDSMAC 1.2.0 83.138S$WA0014D 0070  *: 0071  * ERRORS: S$TERM DOES NOT SET ANY ERROR CODES: 0072  *) VR$OPNX PV+4}@R#0001ER$OPNX A0000B0004B0024B0008B0018BC041B1304B0581BD451B16017F246F R$OP0001R0B04C1B0420B0000BC040B046BB00007F96CFR$OP00020450000R$OPNX3001CR$RETM30016S$OPNX7F7AEF R$OP000348:  R$OPNX  01/26/85 12:05:00  SDSMAC 1.2.0 83.1838R$OP0004SYNONYM  VALUE  $$12  Y  $$CC  >00 $$CL  .S$CMDS" $$CMDS  T.DP.BLDPROCS,.S$CMDS" $$ES  00000  $$MO  00  $$SI  RESEARCH   $$ST  03  $$UI  RFC019   $$VN 3S$DSP$ PUCN4 |@R#00582S$DSP$ M003C$DATA 0000A0000B9894B0020B2001B2008B023AB20847F269F S$DS0001RR(B0D0AB8080B8C89B0000B0002B2020B3F24B3039B04DDBC1EDB0002B8A87B00147F182F S$DS0002RN&B1202B0460C01DABC02AB0006BC010B130EB150DBC1ADB000CB160ABC06AB000A7F167F S$DSN0003R(BD860B0000B0000B2FD1BC011B1302B0460C01E6BC0ADB0004B130DBD0D2B130B7F18AF S$DS0004RR(B06A0C04E2B04C1B06A0C0504B04C1B04C4BD0D2B0983B06A0C0548BC02AB00067F17DF S$DS0005RD!BC010B1602B0460C01D8BC1C7B1602B0460C01D8B04C8BC0EDB0006B130DBC2337DF177F S$DS0006R(B0988B0607B1109BC033B13FCBD010B13FAB0980B8200B12F7BC200B10F5B04C97F16CF S$DS0007RR(BC1EDB0002BC12DB0008B130FBC274B0989B0607B110BBC034B13FCBD010B02407F167F S$DS0008R:B7F00B13F8B0980B8240B12F5BC240B10F3BC1EDB0002BC16DB000AB: 05C5B06077F158F S$DS0009R(B110BBC035B13FCBD010B0240B7F00B13F8B0980B8240B12F5BC240B10F3BC0087F16EF S$DS0010RR(BA009BA020C0012B05C0BC06AB0018B6040B116DB0911BA048BC020C0012B09107F1C2F S$DS0011R0BA040B05C1BC16DB0006BCA85B0016BC1ADB0008BCA86B0$0012BCAADB000AB000C7F132F S$DS0012$R(BC1EDB0002BCA87B001EBCA88B001ABCA89B001CBCA81B0020BC02AB0006BC0107F129F S$DS0013RR(B1549BC145B1304B05C5BC186B1301B05C6B0607B1138B06A0C04E2BC145B130A7F196F S$DS0014R&BC0B5B1308BC06AB0020B0A81B7052B0981B&.0641B06A0C0504BC06AB0020B06417F1B0F S$DS0015.R(B0202C0008B06A0C0504B05C1BC26AB001CBA06AB0010BD0E0C0016BC02AB00127F1A5F S$DS0016RR(B1302BC0D0B0A83BDC43B0609B15FDBC186B130ABC0B6B1308BD032B0240B80007F164F S$DS0017R B1604BC06AB0020B06A0C0504B8C06AB001EB6047B04C4B04C3B06A0C0548B10C67F18EF S$DS00188R(B06A0C04E2BC06DB0002B0581B04C4B04C3B06A0C0548B0380B0200BFFF5B10057F187F S$DS0019RR(B0200B901BB1002B0200B9021BC740B0380B04EAB0022BC06DB0002B1508B076D7F1CBF S$DS0020RB0002BC02AB0006BB C010B1502B072AB0022B04DDBC02AB000CB1602B0460C04C87F1AFF S$DS0021BR(BC06DB0004B1306BD011B1304BC120C0002BC081B1007BC02AB0006BC010B150E7F1BEF S$DS0022RR(B0204B0001B04C2B06A0C04E2B04C1B06A0C0504BC06AB001EB0581B04C3B06A07F1A4F S$DS0023RC0548BL%04EDB0004BC1EDB0002B1501B1003B8A87B001EB1202B0460C04CEBC02A7F182F S$DS0024LR(B0006BC010B1503B1133B0460C04D4B06A0C04E2BC0AAB0016B1602B0460C04DA7F1B1F S$DS0025RR(BC007B0A10BA080BC092B1602B0460C04DAB0201B0001B06A0C0504BD012B09807F1C2F S$DS0026RT@R(BA040B0202C0008B06A0C0504B05C1BC0AAB0012B130EBC007B0A10BA080BC0927F19FF S$DS0027RR(B1309BD032B0240B8000B1605B06A0C0504BD012B0980BA040BC0C1B05C3B04C47F1B4F S$DS0028RN&B04C1B06A0C0548BC047B0A81BA06AB0020BC22AB000CBC087B0A12BA202BC2187F168F S$DSN0029R(B1602B0460C01DABC0EAB001CBC120C0006BD618B1503B1302BE120C0014BC0AA7F186F S$DS0030RR(B0010B0602BD4B8B54A0C000FBC02AB0012B1303BC010B%%0A80BD100BC141BC02A7F192F S$DS0031RD!B0022B1308BC26AB0008B06C5BD169B0013B06C5B04EAB0022BC02AB0000B04107DF1AEF S$DS0032R(BC000B1302B0460C04DEBD252B130EB8202B130CB0608BD638B5620C000FBC02A7F188F S$DS0033RR(B0004B0410B0208BC000B1302B0460C04DEBC02AB0006BC010B150ABD609B06A07F1BAF S$DS0034R:C04E2BC06AB001EB0581B04C3B04C4B06A0C0548B9806C0001B1606B: 0607B15027F1ACF S$DS0035R(B0207B0001B0460C0260B9806C0010B13F9B9806C000BB162CBC087B0602B13727F1D9F S$DS0036RR(B0A12BA0AAB000CBC092B136DB0582BC047BC02AB0006BC010B1110B0A11BC02A7F170F S$DS0037R0B0012B1363BA040BC051B1360BD471BC02AB0004B0410B0$0201BC000B1659B04607F1E3F S$DS0038$R(C026EB0A81BA06AB0020BC0EAB001CBC120C0004BC02AB0002B0410BC000B167B7F185F S$DS0039RR(B0460C02D0B9806C000EB160BBC0AAB0012B1306BA087BA087BC092B1302B05827F193F S$DS0040R&B7492B0460C0260B9806C0011B1638BC06AB&.0006BC051B1532BC0AAB0008BD0227F1B1F S$DS0041.R(B0013B0980B602AB0020B0889B8009B1221BA200B0201C0018B0588B0580B80097F1FCF S$DS0042RR(B1116B9C58B15F8B9C58B13F6B9C58B1102B9458B12F2B0201C0018B0588B05807F17FF S$DS0043R B8009B1108B9C58B1506B9C58B81304B9C58B11F4B9458B15F2B0600BA02AB00207F185F S$DS00448R(B1002BC02AB0020B06C0BD880B0013B072AB0022B0460C02D0BD249B161EBC02A7F19EF S$DS0045RR(B0006BC010B1119BC0AAB0012B1317BA087BA087BC092B1312B0582B8202B13107F1C0F S$DS0046RB0608BD638B5620CB 000FBC02AB0004B0410B0208BC000B1306BDB46B0006BCB477F19CF S$DS0047BR(B0002B1011B7618BDB46B0006BCB47B0002B0380B0200BFFF6B1008B0200BFFF57F185F S$DS0048RR(B1005B0200BFFF7B1002B0200BFFF3BC740B0380BC06AB0010BC02AB000EBC0107F171F S$DS0049RBC0EABL%0006BC0D3B1103BCC60C000CB0640BCC60C0016B0640B15FCB045BBC0827F152F S$DS0050LR(B131CBC0EAB000EBC0D3BC02AB0006BC010B1101B0643B60C1B0A83B90D2B1B117F165F S$DS0051RR(BC0C1BA0EAB0010BC02AB0006BC010B1101B05C3B0603BD313BD4D2BC02AB00047F176F S$DS0052RT@R(B0410B0203BD4CCB045BB0200B901BB10CBB0A81BC0AAB0010B0602BC0C3B16047F17CF S$DS0053RR(BC0EAB000EBC0D3B100ABC02AB0006BC010B1106B05C3BC02AB0010BA003B74107F17BF S$DS0054RN&B0583B06C3BD483B06C3BC02AB0002B0410BC000B16AFB045BS0000B0000T00047F194F S$DSN0055R(B020AT0018B0460C001CB0000T0010B020AT0018B0460C01EEB0000B0000B00007F1EBF S$DS0056RR(B0000B0000B0000B0000B0000B0000B0000B0016B0000B0050B0000B0000B00007F2A3F S$DS0057RB0000B00007FDC5FS$DS0058$W0024AVVEC 000040000DSPBFAZ0026DSP$(BFL0000Z0028DSPBUF00007F26EFS$DS0059(FW002ADVVEC 0000W002CKWMAX 00006002EKWSIZ 60016KWSIZ27F327FS$DS0060FNW002EKWVEC 0000W0030LNESIZ0000W0032MKL 0000W0034MVL 00007F23FFS$DS0061N2W0036NKW 000030042OPCREW40000PRBERCZ0020PRBI200007F3D5FS$DS0062JZ0022PRBO 000030044PRBOPCW0000S$FMT 0000W000CS$GKEY00007F2D1FS$DS0063JN!X0018S$RIT 0000X001CS$SCPY0000X001AS$WIT 0000X001ESTATE 00007F1BCFS$DS0064N@X0000W$FMT 0000X000CW$GKEY0000W0038YAXIS 00007F549F S$DS0065@D:  S$DSP$  01/26/85 12:08:45  SDSMAC 1.2.0 83.138S$DS0066D6 01F2 C06D  MOV @R1*2(R13),R1 DOES CURSOR COLUMN GET RESET ? I 01F4 0002 4 0427 01F6 1508 JGT S$GK05 -- YES, CONTINUE4; 0428 01F8 076D ABS @R1*2SS$WSP5 PV-4} 400000S$WSP5 M0020$DATA 0000S00007F8B3F S$WS00014" W0000W$SHOW00007FC36F S$WS0002"D:  S$WSP5  01/26/85 12:22:40  SDSMAC 1.2.0 83.138S$WS0003DOPT  B,T,D,RX / $SDT  12:03:46 SATURDAY, JANUARY 26, 1985. /  $TOS$ 4>S$PARM PUG 4s|@R#000A2S$PARM M0026$DATA 0000A0000BC2EAB0000B069BBC182BC14AB02257F1F3F S$PA0001RR(B0002BC941B0002BC045B06A0C0070B0380B04DDBC2EAB0000B069BB06A0C00287F19AF S$PA0002RN&B0380BC041B1602B0201C006EB9491B1B19BD011B0980BC743BC0C0B0243B00077F1B2F S$PAN0003R(B0930B0580B0543B0A13B0463C005CBDCB1BDCB1BDCB1BDCB1BDCB1BDCB1BDCB17F0B9F S$PA0004RR(BDCB1B0600B15F6BC0DDB04DDB045BB0200B901BBC740B045BB0000B04DDBC1417F12FF S$PA0005RD!BC182B0203B4300B04C4B2FC3B0243B00FFB1309B0283B00B2B1307B0283B00B07DF1AFF S$PA0006R(B1306B0200BFF05BC740B045BB7596B045BB0200B901BB10F9S0000B0000T00047F19EF S$PA0007RR(B020AT000CB0460C0000B0000B0300B0000B0000T0016B020AT000CB0460C001A7F1FBF S$PA0008R& B0460C0028B0460C00707FB9AFS$PA0009&W000EPRMTMP000@0W001ES$$COP0000X000CS$$GRB0000W0022S$$LUP00007F1CBFS$PA0010@N!W0000S$PARM0000W0012S$SCPY0000X0000W$PARM0000X0012W$SCPY00007F1A3FS$PA0011ND:  S$PARM  01/26/85 12:15:30  SDSMAC 1.2.0 83.138S$PA0012DNCE:BLWPS$WIT -  0GS$SCPY >S$$LUP  >S$$COP >EMB$RLS PU 4e|@R#0008EMB$RLS M0020$DATA 0000A0000T0000C0008B0000A0006B0000S00007F26DF MB$R0001RR(A0008BC160B0000B1306B2FE0B0000B2FE0B0000B04E0C000ABC160C0006B131D7F1C5F MB$R0002RN&BC160C0006B131ABC06DB0002BC0ADB0004B0420B0000BC000B1603B04E0C00227F1CCF MB$RN0003R(B1019B0280B0000B1603B04E0C0038B1013BC740B0280B0000B1604B04E0C00447F211F MB$R0004RR(BCB41B0002B0380BC06DB0002B1302BD460C0004BC0ADB0004B1302BD4A0C00047F1B0F MB$R0005RD!B0203C0010BC113B1606B0203C0014BC113B1602B04DDB0380B0200C004CBC7407DF1E8F MB$R0006" BCB43B0002B03807FC8AF MB$R0007"J30070CLSIRB30084E90FF 3003EE910D 30018INITZD50000MB$RLS7F302F MB$R0008J4V0030MBDBUFV0052REQFL 30078RLSIRB7F779F MB$R00094::  MB$RLS  01/26/85 07:10:27  SDSMAC 1.2.0 83.138: MB$R0010 FIER* MOVR4,@IRBDBA(R3)4 MOV@TOKLEN,@IRBOCC(R3) OUTPUT CHARACTER COUNT 4& MOVR3,R4  SET REPLY BLOCK ADDR& AI R4,IRBRPY+2  MOVR4,@IRBRPY(R3)" LI R5,RCVMSG REPLY BUFFER"" CLRFMB$RCV P U X4d|@R#0020CMB$RCV M01A0$DATA 0000A0000T0000C000EB2000B0108B1B0BB00027F242F MB$R0001RR(B00C0S0000S0020B0000B0B00B00C0T0162B0000B001AT002ET0034B012CB00007F1CEF MB$R0002RN&S0034S0160B012CS0162S017CB001AB0000A000EBC020B0000B1610BC06DB00027F1B1F MB$RN0003R(B1302BD460C0005BC0ADB0004B1302BD4A0C0005B0420B0000BC000B1340B04607F1E9F MB$R0004RR(C016EBC020T017EB133BB0203T0020BD123B0004B0A14B1702B0460C0126BC06D7F19DF MB$R0005RD!B0002BC0ADB0004B0420C0176BC000B1307B0280B0000B1602B0460C016EB04607DF1FAF MB$R0006R(C016AB0203T0020B04D3BD8E0C0009B0002BD8E0B0000B0003BC8E0C000CB00047F1A9F MB$R0007RR(B0204T0162BC520C000ABC8C4B0006BC8E0T017CB000ABC103B0224B000EBC8C47F156F MB$R0008R:B000CB0205T0034B04D5BCD05BCD20T0160B04D4B2FD3B04DDB0380B: C06DB00027F140F MB$R0009R(B1302BD460C0005BC06DB0004B1302BD460C0005BC06DB0006B1345BD0B1B13467F1B5F MB$R0010RR(B9802C0008B1B43B9802C0006B1340B0982B0204T0162B0205B001ABDD20C00047F1DBF MB$R0011R0B0605B15FCB0204T0164B0602B1116BD0F1B1334B9803C0$0007B1B31B0983BC1837F1A5F MB$R0012$R(BC1C1B9837C0004B1603B0606B15FBB102BB6083BC144BDD71B0603B15FDB02247F170F MB$R0013RR(B0008B10E8B0720T017EB10A1BC06DB0002B1309BD460C0005BC06DB0004B130C7F196F MB$R0014R&BD460C0005B04DDB0380B0200B0000BC0ADB&.0004B1311BD4A0C0005B100EB02007F1C9F MB$R0015.R(B0000B100BB0200B0000B1008B0200B0000B1005B0200B0000B1002B0200B00007F282F MB$R0016RR(BC740B0380BC740BCB41B0002B0380T0180C017AS0180A017ABC06DB0002BD1117F184F MB$R0017R BC0ADB0004BD152B0203T0020B8C4D3B161FBC1A3B000CBC196BC036B161EBC0417F143F MB$R00188R(B1325BC082B1326BD1F6B91C4B1A28BDC47B0987B0208T0136BD218B9205B1A247F156F MB$R0019RR(BDC88B0988BDC76B0607B15FDB0206T0137BDCB6B0608B15FDB04DDB0380B02007F113F MB$R0020RC005CBCB43B0002BB C041B1302BD460C0005BC082B1314BD4A0C0005B1011B02007F1CCF MB$R0021BR(C0140B10F8B0200C0150BD460C0005B1009B0200B0000B1002B0200B0000BD4607F22EF MB$R0022R,C0005BD4A0C0005BC740B03807FA61F MB$R0023,.301CEE90FF 30168E9105 30162E9106 3015CE9107 . 30156E9108 7F474F MB$R0024J301FEE9109 301F8E910A 301EEE910B 301E8E910C 40000E910D 7F437F MB$R0025JJ30010INITZD3002AMB$INT50000MB$RCV50176MBDBUF30076MBLUN 7F27BF MB$R0026J<W0020RCVIRB0000W0034RCVMSG0000W017EREQFL 00007F4EAF MB$R<0027D:  MB$RCV  01/26/85 07:09:33  SDSMAC 1.2.0 83.138MB$R0028D, " "  .SYN $XMA$E = ""  .ENDIF  .IF @$$MO, EQ, 0  .IF @$$CC, NE, 0 .SYN $$ML = ""  .ENDIF  . B0000B0000BC000B0000B0000BFS$INT PUj4|@R001A4S$INT M0030$DATA 0000A0000B3E4BB2D2BB3039B412FB2A00A000A7F21FF S$IN0001RR(B04DDBC06DB0004BC0ADB0008B1104B1505B0202B000AB1002B0202B0010B04607F1DAF S$IN0002RN&C0026B04C3B04C4BD1B1B0986BC02AB0006B0410BC000B160EBA108B1701B05837F19FF S$INN0003R(BA0C7BC186B1309B9811C0003B13F2B9811C0002B13EFB0200B9002BC740BC2EA7F177F S$IN0004RR(B0000B069BB0380B04DDBC16DB0002BC1E%%DB0004BC1ADB000CB02A0B0220B00107F182F S$IN0005RD!BC040BC0C0BC080B0222B0006B04C4B04C8B0209B0001B04EAB000ABC02AB00087DF19CF S$IN0006R(B0410BC740B161BBC02AB000AB1604BC02AB0004B0410B1003BC02AB0002B04107F1D0F S$IN0007RR(BC740B160FBC186B130DB04EAB000AB9815C0008B1305B072AB000AB9815C00077F18CF S$IN0008R:B1603B0585B0606B10E0BCB45B0002BCB46B000CBCB48B000EBCB49B: 0010B03807F17BF S$IN0009R(B04DDBC16DB000ABC1EDB000EB0208B0001B04C1B04C2B04C9BC1ADB000CB13347F13FF S$IN0010RR(B9815C0003B1304B9815C0002B1605B0508B0585B0606B15F6B1029B9815C00047F1F1F S$IN0011R0B1306B9815C0000B1605B0585B0606B1220B0207B0010B0$0200C0004BD2D5B098B7F1FBF S$IN0012$R(B022BBFFD0B9C15B1116B9C15B1105B1304B9C15B1111B022BBFFF9B81CBB140D7F12FF S$IN0013RR(B3887BC002B3847BA080BC042BC083BA08BB1701B0581B0589B0585B0606B15E27F187F S$IN0014R&BC186B130DB9815C0001B160AB0AA1B0B62B&.C002B0240B03FFB0242BFC00BE0407F173F S$IN0015.R(B0585B0606BC208B1505B0541B0542B0582B1701B0581BCB45B000ABCB46B000C7F1ADF S$IN0016RR(BCB41B0016BCB42B0018BC249B1603B0200B9002BC740B0380S0000B0000T00047F1C1F S$IN0017R B020AT000CB0460C000AB0000B80000B0000T0018T0024B0000B0000T001CB020A7F1EFF S$IN00188@T000CB0460C005EB0000T0028B020AT000CB0460C00DA7F5E9F S$IN0019@N!X000CS$$RES0000X000ES$IDIV0000X0010S$IMUL0000W0000S$INT 00007F1E9FS$IN0020N(X0018W$$A3I0000X0024W$$A4I0000X0000W$I(NT 00007F5F3F S$IN0021B:  S$INT 01/26/85 12:12:16  SDSMAC 1.2.0 83.138S$IN0022BRTO JECT ACCESS NAME" , # $XMA$L = "&LISTING ACCESS NAME", #" $XMA$E = "&ERROR ACCESS NAME" ," $XMA$OP= "&OPTIONHR$PFIL PU"4|@R#00022R$PFIL A0000B0006B0024B0008B0018B0206C001CBC006B05C6BCD817F240F R$PF0001R:BCD82B0420B0000B046BB0000B0004B0000B00007F762F R$PF0002:450000R$PFIL3001AR$RETM30016S$PFIL7F7E4F R$PF00034.:  R$PFIL  01/26/85 12:05:14  SDSMAC .1.2.0 83.138R$PF0004 VALUE  $$12  Y  $$CC  >00 $$CL  .S$CMDS" $$CMDS  T.DP.BLDPROCS,.S$CMDS" $$ES  00000  $$MO  00  $$SI  RESEARCH   $$ST  03  $$UI  RFC019   $$VN JOI$IF PV+X4|@R00350OI$IF M030E$DATA 0000A0000T0000C0004S0000S0020B0000B91007F291F OI$I0001RR(B0000B0000B0000B0000B0000B0000B0400B0000B0000T003EB0000B0000B00007F281F OI$I0002RN&B072EB5324B4F50B4552B0000B0100B0000B0000B0000B0000B0000B0000B00007F253F OI$IN0003R(B0000B0010B0000B0000B0000B0000B0000B0000B9300B0000B0000B0000B00007F2A2F OI$I0004RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000A0004B04DDBC020T00827F24FF OI$I0005RD!B1301B0380B0201T0020B2FD1BC451B1615BD820T0023T0059B0201T0056B2FD17DF18FF OI$I0006R(BC451B160DB0720T0082B04E0T003CBD0A0T0023BD802T0049BD802T0069BD8027F13BF OI$I0007RR(T00ABB0380B0200B92ACBCB41B0002BC740B0380T0084C0060B0001B021CB32DF7F17EF OI$I0008R:B0B00A005AB00C0B1000A005EB0000S0084S00A4B0100T00AAB0000B: 0B00B00C07F1BEF OI$I0009R(T00BCB0000B0000T00B6T0262B006CB0000B0100S00BCS00BEB0000S00C0S00C07F162F OI$I0010RR(B0000S00C2A0060B04DDBC020T0082B1605B0420C0000BC000B1301B0380B02037F1ECF OI$I0011R0T00A8BD123B0004B0A14B1708B0201T00A4B2FD1BD361B0$0001B13F6B0460C01A27F18BF OI$I0012$R(BC1EDB0002BD807T00C0B1307BD820C005CT00BDBD820C0054T003CB1006BD8207F139F OI$I0013RR(C005ET00BDBD820C0053T003CBC820C005AT00ACBC1ADB0004B1363BD236B13647F12CF OI$I0014R&B9808C0057B1B67B0209T00C2BDE48B0988B&.DE76B0608B15FDB0A87BD807T00C17F10CF OI$I0015.R(B1340B9807C0054B1B4DBC06DB0006B1353BD1B1B1345B9806C0055B1B42BDE467F178F OI$I0016RR(B0986BDE71B0606B15FDBC06DB0008B1302BD1B1B1603BDE60C0052B1008B98067F167F OI$I0017R C0056B1B32BDE46B0986BDE71B80606B15FDB9807C0054B111DBC06DB000AB13397F14DF OI$I00188R(BD1B1B1325B9806C0055B1B22BDE46B0986BDE71B0606B15FDBC06DB000CB13027F146F OI$I0019RR(BD1B1B1603BDE60C0052B1008B9806C0056B1B12BDE46B0986BDE71B0606B15FD7F14DF OI$I0020RB04DDB0201T00A8BB 0206T00BCB6246BC8C9B000AB2FD1BD121B0001B1616B03807F15DF OI$I0021BR(B0200B92A2B101DB0200B92A7B101AB0200B9101B1017B0200B92A3B1014B02007F202F OI$I0022RR(B92A5B1011B0200B92A4B100EB0200B92A6B100BB0200B92ACBCB41B0002B10067F1B8F OI$I0023RB0200BL%92ABB1003B0200B92ACB1000B04E0T003CBC740B0380T0242C01C8B20F07F190F OI$I0024LR(BEF00S0242S0262A01C8B04DDBC020T0082B1361B0203T00A8BD123B0004B0A147F169F OI$I0025RR(B1706B0201T00A4B2FD1BC011B0A80B165DBD020T003CB1349B04E0T003CBC1E07F143F OI$I0026RT@R(T0262B0A87B1307B9807C01C5B1346B9807C01C6B1340B1048BC19EBC1C6B02477F174F OI$I0027RR(B00FFB0876B0A17BA18DBA1CDBC196BC1D7BD260T0265B132FB9809C0054B15387F110F OI$I0028RN&BC046B1322B0420C02AABC000B1307B0280B92ACB1602B0460C02A2B0460C029E7F1B4F OI$IN0029R(B9809C0054B110DBC047B1312B0420C02B0BC000B1307B0280B92ACB1602B04607F1CBF OI$I0030RR(C02A2B0460C029EB04DDB0380BC06DB0002B1302B04DDB0380B0200B9100BD4A07F196F OI$I0031RD!C0052B1012B0200B910AB100FB0200B92A1B100CB0200B92A9B1009B0200B92AA7DF1DCF OI$I0032R(B1006B0200B92A8B1003B0200B92ACB1000BC740B0380BC740BCB41B0002B03807F1CEF OI$I0033RR(T02CEC02B6B0000T02CEC02D2B0000S02CEA02B6BC06DB0002BD111B0203T00A87F139F OI$I0034R:BC4D3B1614BC1A3B000CBC196B0586BD036B1612B05C6BC06DB0002B: 1313BD1F67F157F OI$I0035R(B91C4B1A16BDC47B0987BDC76B0607B15FDB04DDB0380B0200B92ACBCB43B00027F124F OI$I0036RR(BC041B130EBD460C0052B100BB0200B9100B1006BD460C0052B1005B0200B910A7F1E9F OI$I0037R0B1000BD460C0052BC740B0380T02EEC031CS02EEA031CB0$04DDBC160T0082B13157F14AF OI$I0038$R(B2FE0T0046B2FE0T0066B04E0T0082B0203T0046BC113B1606B0203T0066BC1137F165F OI$I0039R@B1602B04DDB0380B0200B92ACBC740BCB43B0002B03807F5EFF OI$I0040@850000OI$BGN5004EOI$COM50318OI$END501C0OI$WAT7F553F OI8$I0041B:  OI$IF 01/26/85 09:30:06  SDSMAC 1.2.0 83.138OI$I0042B.RIFLE  VCATSIZE  347 V&hhRTO 0B00B00C07F1BEF OI$I0009R(T00BCB0000B0000T00B6T0262B006CB0000B0100S00BCS00BEB0000S00C0HS$SPLT PV4h|@R#00120S$SPLT M000E$DATA 0000A0000B2C28B2900A0004B04DDBC06DB00027F207F S$SP0001RR(BC0ADB0004BC0EDB0006BD011B1607BC082B1301B7492BC0C3B1379B74D3B10777F167F S$SP0002RN&B0980BC101B04C5B0581B0600B110BB9811C0001B1602B0585B10F8B9811C00027F1E0F S$SPN0003R(B16F5B0605B1168B10F2BC145B1665BC044BD034B0980B9834C0001B1307BC2EA7F183F S$SP0004RR(B0000B069BBC0C3B1359B74D3B1057B0640B1607BC082B1301B7492BC0C3B13507F1A2F S$SP0005RD!B74D3B104EBA100B9814C0002B164BB05C1BC101BC082B1304BD192B0986BC1C27DF178F S$SP0006R(B0587B9814C0000B161BBC145B162BBC082B1304B6044B0501B06C1BD481BC1437F1A3F S$SP0007RR(B1335BD075B0981B0580B8040B1533BDD60C0001B0584B0600B1302BDD74B10FC7F1A2F S$SP0008R:B6143B0605B06C5BD4C5B1024B9814C0002B160BB0605B150DB130CB: 0641BC2EA7F18DF S$SP0009R(B0000B069BBC0C3B1318B74D3B1016B9814C0001B1601B0585BC082B1604B05847F1C3F S$SP0010RR(B0600B16CBB1009B0606B110DBDDF4B0600B16C5B61C2B0607B06C7BD487BC0C37F151F S$SP0011R0B1301B74D3B0380B071DB0380B0200B901BBC740B0380S0$0000B0000T0004B020A7F1D5F S$SP0012$& T000CB0460C0004B00007FB8DFS$SP0013&@X000CS$$COP0000W0000S$SPLT0000X0000W$SPLT00007F53AF S$SP0014@D:  S$SPLT  01/26/85 12:19:29  SDSMAC 1.2.0 83.138S$SP0015D 0503 027E 10FC JMP PF$23IS$WSP1 PVQ 4|@400000S$WSP1 M0020$DATA 0000S00007F8B7F S$WS00014N!W0000W$$A4I0000W0000W$CLOS0000W0000W$IADD0000W0000W$IASC00007F23CFS$WS0002NN!W0000W$IDIV0000W0000W$IMUL0000W0000W$ISUB0000W0000W$MAPK00007F1C2FS$WS0003NW0000W$MAPS0000W0000W$NEW 00200W0000W$OPEN0000W0000W$OVLY00007F1CAFS$WS00042N!W0000W$PARM0000W0000W$PNCT0000W0000W$PTCA0000W0000W$RTCA00007F1CAFS$WS0005NN!W0000W$SCOM0000W0000W$SCPY0000W0000W$SETK0000W0000W$SETS00007F19AFS$WS0006N W0000W$SPLR0000W0000W$SPLT0000 0W0000W$STAT0000W0000W$WEOL00007F18AFS$WS00070" W0000W$WRIT00007FC31F S$WS0008"D:  S$WSP1  01/26/85 12:21:57  SDSMAC 1.2.0 83.138S$WS0009D1606BD0417F206F S$WA0008R:B1602B04DDB0380B0200B9037BC740B0380S0000B0000T0004B020AT:HW$WRIT bM[W$WEOL CMCW$STAT 1MW$SPLT MW$SPLR MW$SETS 0M+W$SCPY M%%W$SCOM MW$RTCA :M8W$PTCA /M)W$PARM _MXW$OPEN 8M8W$NEW PMHW$ISUB -M#W$IMUL  M W$IDIV  MW$IASC WMWW$IADD $M W$CLOS BMBW$$A4I MNS$WSP3 PVTX4|@400000S$WSP3 M0020$DATA 0000S00007F8B5F S$WS00014N!W0000W$BIDT0000W0000W$CMSG0000W0000W$DPAG0000W0000W$FMT 00007F211FS$WS0002NN!W0000W$GKEY0000W0000W$INT 0000W0000W$PKEY0000W0000W$STOP00007F1C7FS$WS0003N W0000W$WAIT00007FC42F S$WS0004D:  S$WSP3  01/26/85 12:22:19  SDSMAC 1.2.0 83.138S$WS0005D W$MAPK D0000" 00490021  W$MAPS D0000" 00500022  W$NEW D0000" 00510023  W$OPEN D0000" 00520024  W$OVLY D0000" 00PW$BIDT RW$STOP SRCW$INT  R W$CMSG RTMB$INT PVV4d|@R#0009CMB$INT M0097$DATA 0000A0000T0000C004ET0000C0008S0000S00207F22CF MB$I0001RR(B0000B9100B0000B0000B0000B0000B0000B0000B0400B0000B0000B0000B00007F2A1F MB$I0002RN&B0000S003CS004EB072EB5324B4D41B494CB3A00S0058B0000B0100B0000B00007F1BEF MB$IN0003R(B0000B0000B0000B0000B0000B0000B0010B0000B0000B0000B0000B0000B00007F2AEF MB$I0004RR(B9300B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2A3F MB$I0005RD!B0000B0000A0008BC06DB0002BD0F1B131FB0983B0200B0008B0202T003DB04C47DF1CDF MB$I0006R(BDCB1B0584B0603B1302B0600B16FAB0201T004EBC141BC182BD1D1B0987B05877F166F MB$I0007RR(BDDB5B0607B15FDBD4A0T0056B0584B0A84BB111B0201T003CBD444B1002B02017F159F MB$I0008R:T004EBC801T0036B04DDBC020T0094B1301B0380B0201T0020B2FD1B: C451B16137F171F MB$I0009R(BD820T0023T006BB0201T0068B2FD1BC451B160BB0720T0094BD0A0T0023BD8027F148F MB$I0010RN!T005BBD802T007BBD802T0096B0380B0200B90FFBCB41B0002BC740B03807F269FMB$I0011N4W0058CLSIRB0000690FFE90FF 69100E9100 69101E9101 694102E9102 7F30EF MB$I0012J69103E9103 69104E9104 69105E9105 69106E9106 69107E9107 7F4ACF MB$I0013JJ69108E9108 69109E9109 6910AE910A 6910BE910B 6910CE910C 7F450F MB$I0014J>6910DE910D W0094INITZD000050004MB$INS50000MB$INTW0096MBLUN 0>0007F10FF MB$I0015" W0078RLSIRB00007FC15F MB$I0016"D:  MB$INT  01/26/85 07:09:12  SDSMAC 1.2.0 83.138MB$I0017D[ j E`B`/9C`E/)    jMMB$INS UYS$CMSG PTR4|@R#00710S$CMSG M00BC$DATA 0000S0000B0000T0004B020AT000CB0460C019E7F209F S$CM0001RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF S$CM0002RN&B0000B0C00B0000B0000B2020T002CB0D00B0000B0000B0000B9100B0018B00007F24AF S$CMN0003R(B0000B0000B0000B0000B0400B0000B0000T005EB0000B0000B0000B0000B00007F27FF S$CM0004RR(B0000B0000B0F2EB5324B4D53B4708B4C45B4146B4E41B4D45T0065T0072B06247F18FF S$CM0005RD!B2446B4E58B5800S007AB0530B5858B5858T0082T00A3T00A5T00A7T00A3T00A97DF121F S$CM0006R(T00A3T00ABT00A3T00AET00A3T00B0T00A3T00B3T00A3T00B6T00BAB1901B3F017F0B5F S$CM0007RR(B5701B5501B5302B5553B0148B0255B4802B5348B0355B5348B0149A0000B91037F205F S$CM0008R:B0906B0E01B9307B0800A000AB901BB0001B202DB4330B3139B2D55B: 4E44B4F437F1AEF S$CM0009R(B554DB454EB5445B4420B4552B524FB522DB494EB5445B524EB414CB2043B4F447F162F S$CM0010RR(B4520B3E3FB3B2EB0424B244DB4E04B2424B5654B1901B3F01B5701B5501B53027F19BF S$CM0011R0B5553B0148B0255B4802B5348B0355B5348B0149B0001C0$017CB0002C0190B00037F206F S$CM0012$R(C016CB0004C010AB0005C0101B0006C0175B0007C017CB0008C0198B0010C00DE7F1F8F S$CM0013RR(B0021C012BB0030C00D6B0031C0180B0032C0156B0041C00EDB0042C011AB00437F208F S$CM0014R&C015BB0044C0123B0045C0168B0046C0184B&.0047C00F3B0048C0162B0049C01707F205F S$CM0015.R(B004AC018BB004BC00F8B0060C00E7B0062C0111BFFFFC0132BFFFFC013BBFFFF7F0F4F S$CM0016RR(C0144BFFFFC014DB0749B4353B3332B3730B0841B5353B454DB424CB5205B42417F186F S$CM0017R B5349B4305B434FB424FB4C04B84442B4D53B0844B4154B4144B4943B5408B44457F1A3F S$CM00188R(B4255B4747B4552B0645B4449B544FB5208B464FB5254B3738B4350B0846B4F527F19BF S$CM0019RR(B5437B3852B5407B444EB4F53B484CB4C06B4C49B4E4BB4552B0820B2020B20207F182F S$CM0020RB2020B2008B2020BB 2020B2020B2020B0820B2020B2020B2020B2008B2020B20207F269F S$CM0021BR(B2020B2020B0444B4E49B4F06B5041B5343B414CB0551B5545B5259B0352B50477F1D3F S$CM0022RR(B0353B4349B0453B4D52B4706B5354B4154B5553B0353B5643B0354B4150B06547F1E1F S$CM0023RB4946BL%4F52B4D04B5449B5045B0755B5449B4C49B5459B044DB4149B4C00A019E7F172F S$CM0024LR(B04DDB020CC05F2B0209B002CBA24AB0201B000EBA04AB04F1B04F1B04F1B04F17F15EF S$CM0025RR(B04F1B04F1B04D1BC0ADB0006B0A82B1705BC0ADB000EB0A12B1701B0711B02017F184F S$CM0026RT@R(C0044B0202B0096BA08ABC02AB0000B0410B0102BC0EDB0002B1303BCAB3B000C7F1AAF S$CM0027RR(B1602B0460C05ECBAA83B000CBCA83B000ABC06DB000AB1305B0281BFFFFB13027F13EF S$CM0028RN&BD091B1635BC0ADB0006B7082B0282B0062B150AB0201C005EB8C42B1602BC0517F1A7F S$CMN0029R(B1029B05C1B0281C00D6B1AF8BC002B2FEAB001CBC06AB0024BC02AB0008BC0107F15BF S$CM0030RR(B1618BC12AB0064BD911B0005BD921B0001B0006BC02AB0004B0410BC000B160C7F1C7F S$CM0031RD!BC0AAB0062BD4A0C0008BC02AB0002B0410B0402BC000B1602BD012B160EB02027DF1BAF S$CM0032R(B0002B0460C033CBC0AAB0062BD4A0C0008BC02AB0000B0410B0102BC000B16C17F1BEF S$CM0033RR(BD1D2BB1E0C0007BDA87B0052BD4A0C0039BDA60C0000B0002B2FD9BD029B00017F160F S$CM0034R:B1641B072AB0012BDA60C0001B0002B2FD9BD029B0001B1638B072AB: 0014BCA437F1A6F S$CM0035R(B0006BCA63BFFFEB0008BDA60C0002B0002B2FD9BD029B0001B162ABC029B000A7F14FF S$CM0036RR(B1327BC043B0221B0004B0202B0096BA08ABC02AB0000B0410B0102BC000B161B7F1E7F S$CM0037R0BC22DB0008B06A0C0668BC000B1615BC0ADB0006B0242B0$F000B1605BC0AAB001A7F181F S$CM0038$R(B1102BC0C8B100BBC083BC06AB000ABDCB8B8048B1AFDBCA82B000AB6083BCA827F102F S$CM0039RR(B000EBC06AB001AB110FBD0AAB0052B0982B0222BFFF9BC06AB0062B0581B04C47F14AF S$CM0040R&B069CB0201C000FB0202B0001B069CBCA83B&.0010BC02AB0016B1620B0201C00277F1D9F S$CM0041.R(B0202B0010BC02AB0018B1304B0201C0014B0202B0023B04C4B069CBC02DB00087F1F3F S$CM0042RR(B2FEAB001CB0202B0005B0201B001EBA04AB069CBC06DB0004B1304BD0B1B13027F18DF S$CM0043R B0982B069CB0460C04DCB8A83B8000AB1423B9833C0037B16FAB9813C0010B16027F195F S$CM00448R(B0583B10F5B9813C0011B1AF2B9813C0013B15EFBD053BC1C3BC203B0587B8A877F15CF S$CM0045RR(B000AB1402BDE37B10FBB062AB000EB062AB000AB06A0C0636BC082B13DEB06037F169F S$CM0046RB0704B069CB10DABB C06DB0006B7041B0281B0001B1678BC06DB0008B7041B02817F1AFF S$CM0047BR(B00F4B1672BD060C0012B06A0C0636BC101B0202B0070BA08ABDCB1BDCB1BDCB17F148F S$CM0048RR(BD491B0202B0028BA08ABDCB4BDCB4BDCB4BD494B2FEAB0026BC200BDA60C00047F0EEF S$CM0049RB0002BL%2FD9BD029B0001B1655BC0EAB000AB05C3BCA83B000ABCA43B0006BC06A7F147F S$CM0050LR(B000CB6043BCA41B0008BDA60C0002B0002B2FD9BD029B0001B1642B06A0C06687F1A0F S$CM0051RR(BC000B163EBC043B0643B8A81B000AB1402BDCF1B10FBB066AB000ABC0C8B06437F14CF S$CM0052RT@R(%%B0201C017CBD0B1B0982B04C4B069CB0201C000FB0202B0001B069CB8A83B000A7F1A3F S$CM0053RR(B1415B9833C0037B16FAB9813C0010B1602B0583B10F5BC043BC083B0581B8A817F1A0F S$CM0054RN&B000AB1402BDCB1B10FBB062AB000EB062AB000AB10E8B0201C003AB0202B006E7F187F S$CMN0055R(BA08ABC02AB0006B0410B0102B0201C003FB04C2BC02AB0006B0410B0102BC0ED7F1ABF S$CM0056RR(B0002B05C3BC1C3BC06AB001AB1115BC1ADB0006B09C6B1311BC06AB0074B0A167F170F S$CM0057RD!BA046BC051BD0B1B0982BAA82B0010B04C4B069CB0201C000CBC0B1BAA82B00107DF16DF S$CM0058R(B069CBC0ADB0006B0242B0800B1308BC0EAB000ABC06DB000CBD0B1B0982B04C47F154F S$CM0059RR(B069CBC0C7BC1AAB000EB1337B6A83B0010B0201C000EBC083B04C8B0223B004E7F16EF S$CM0060R:B9812C0037B1614B9822B0001C0010B1610BC202BC083B6088BC1C8B: C188B05C67F1A8F S$CM0061R(B8A86B000AB1402BDDF6B10FBB066AB000EB066AB000AB100CB9472B1601BC2027F15AF S$CM0062RR(B80C2B1AE4B8A83B000AB1410BC208B1601BC202B6088BC0C8B04C4BA0AAB00107F15DF S$CM0063R0B1301B069CBC083B60EAB0010B8A83B000AB1ACEBC0EAB0$000AB8A83B000CB14037F145F S$CM0064$R(BDCE0C000EB10FABC06DB0002BC46AB000EBC0B1B9831C000EB1403B0601BDC607F136F S$CM0065RR(C0039B0602B15F8BC02AB0014B1304BDA60C0005B0002B2FD9BC02AB0012B13077F1A7F S$CM0066R&BDA60C0006B0002B2FD9B1002BC760C000AB&.0380BC004BC12AB000ABC144BA1407F185F S$CM0067.R(BA142B8A85B000CB1B16BAA82B000EBAA80B000EBCA85B000AB0604B0605B80C47F14EF S$CM0068RR(B1A02BD554B10FAB0281C000EB1602BDCD1B1001BDCF1B0602B15F8B04C4B045B7F149F S$CM0069R BC760C000AB10BFB0A41B09C1B8C001B04C2BC06DB0004B1311BD171B0985BA1417F173F S$CM00708R(BC081B8142B1405B9812C0038B1302B0582B10F9B0600B1303B0582BC042B10F47F1D5F S$CM0071RR(B6081B045BBC053BC0A3B0002B8048B1A1CB8088B1B1AB6201BC048B0958B13097F17FF S$CM0072RBCA48B000ABDA60CB 0003B0002B2FD9BD029B0001B163EBDA60C0002B0002B2FD97F164F S$CM0073BR(BD029B0001B1637B0241B001FB0A11BA043BC051B1603B072AB0018B102EB60487F1C5F S$CM0074RR(B0641B1209BCA41B000ABDA60C0003B0002B2FD9BD029B0001B1622B0669B00067F1B2F S$CM0075RB05E9BL%0008BDA60C0002B0002B2FD9BD029B0001B1617BC029B000AB1314BC0237F1A0F S$CM0076LR(BFFFEB8A40B000AB140FB072AB0016BAA80B000ABAA80B000EBC203B9838C000E7F12AF S$CM0077R:B1303B0600B15FBBC203B04C0B045BB0700B045B7F712F S$CM0078: X0014CIFLAG0000W0000:S$CMSG0000X0010S$GTCA0000X000ES$MAPS00007F1CAFS$CM0079:@X000CS$SCPY0000X0012S$SETS0000X0000W$CMSG00007F51AF S$CM0080@D:  S$CMSG  01/26/85 12:06:29  SDSMAC 1.2.0 83.138S$CM0081D 0014BCA437F1A6F S$CM0035[S$DSPU P U N4k|@R#001A8S$DSPU A0000B0000C0008B1B61B2001BC1EDB000EBC120C0006B05E77F203F S$DS0001RR(B0000BC0A7C0012B0602BC060B0000B0641B0A81BC26DB000CB04C8BC249B12487F1A8F S$DS0002RN&BC9E0B0000B0000BD9E0B0000B0000B2FD7BC017B163FB99E0B0000B0000B133B7F19EF S$DSN0003R(B0588B05ADB0018B1602B05ADB0016BC0E7C0030BC003B1315BC167C0016B98157F19AF S$DS0004RR(B0000B1A0CB9815B0000B120AB0760B0000B1306B9815B0000B1A03B9815B00007F205F S$DS0005RD!B1201BD540B0585B0600B16EDBC2E0C0004B020AB0000BDAA0B0000C0036B02A07DF1B1F S$DS0006R(B0220B0016BCA80C005CBCAA0B0000C0054B2FDABD01AB160BB0A83BD483B09837F151F S$DS0007RR(B0420B0000BC000B1604B0609B0460C0028B04C0B0667C009ABC740BCB48B00087F1CBF S$DS0008R:B0380C0000C00D0B1B62BC1EDB000EBC120C0006B05E7C00C0BC0A7C: 00DAB06027F176F S$DS0009R(B04C1BC26DB000CB0509B04C8BD9E0C0034C0090BC9E0C002EC00A0B2FD7BD0177F13AF S$DS0010RR(B164EB99E0C0040C0042B134AB0588B062DB0018B1802B062DB0016BC0E7C00F67F18FF S$DS0011R0BC003B1315BC167C00DEB9815C0060B1A0CB9815C0066B0$120AB0760C006CB13067F198F S$DS0012$R(B9815C0072B1A03B9815C0078B1201BD540B0585B0600B16EDBC2E0C00CEB020A7F183F S$DS0013RR(C008ABDAA0C008EC00F0B02A0B0220B0016BCA80C011CBCAA0C009EC0114B2FDA7F132F S$DS0014R&BC01AB161AB0A83BD483B0983B0420C00B0B&.C000B1613B0609BC249B120FBD9E07F16BF S$DS0015.R(B0000C0150BC9E0C015EC0160B2FD7BC017B1607B99E0C0100C0102B1303B04607F1B9F S$DS0016R:C00ECB04C0B0667C015ABC740BCB48B0008B03807F6ECF S$DS0017:440000BLANK 40000BUFFER40000BYTE0140000BYTE0940000B4YTE0C7F2EAF S$DS0018J30120BYTE1F30126BYTE7F3012CCODE8 30138EXHIGH30132EXLOW 7F29BF S$DS0019JJ3001CLNECNT3017EOPCBKS300EEOPCRAS3014EOPCWAS3019EPRBBAD7F1B0F S$DS0020JB30186PRBCHC40000PRBFLD3014APRBO 30180PRBOPC40000PRBRCL7F270F B S$DS0021 J30192PRBSFL40000PRBUFL40000PRBXFL500CAS$DSDN50000S$DSUP7F21FF S$DS0022JJ30170S$WIT 30190SFLEOF40000VDTSIZ300CAW$DPAG30184WD00027F2A4F S$DS0023JJ40000WD000A300F4WD005040000WD0A0040000WD100040000WITOPT7F371F S$DS0024JD:  S$DSPU  01/26/85 12:10:57  SDSMAC 1.2.0 83.138S$DS0025D1** -7 0569  *INDICATED THEN ASSUME RECORD 1**1.1** 7 0570  *--- **1.1**  0571  *DSP208**1.1** ! 0572  *CLR R9 **1.1** !7 0]S$MAPS PU4H|@R#00038S$MAPS M000E$DATA 0000A0000B04DDBC2EAB0000B069BB0203B43007F205F S$MA0001RR(B04C4BC141BC182B2FC3B0243B00FFB1309B0283B00B2B1307B0283B00B0B13067F198F S$MA0002RN&B0200BFF05BC740B0380B7596B0380B0200B901BB10F9S0000B0000T0004B020A7F1B5F S$MAN0003& T000CB0460C0000B00007FB91FS$MA0004&@X000CS$$GRB0000W0000S$MAPS0000X0000W$MAPS00007F565F S$MA0005@D:  S$MAPS  01/26/85 12:14:55  SDSMAC 1.2.0 83.138S$MA0006DKEY  SDSMAC 1.2.0 83.138 12:14:03 SATURDAY, JAN 26, 19`S$KEY PU?/4:|@R00382S$KEY M0158$DATA 0000A0000B2000B2001B2020B033AB0AFFB0D307F252F S$KE0001RR(B3941B5A01B0204B0500A0014B04DDBC02AB0004B0690B06A0C019EBCAAAB00187F18DF S$KE0002RN&B0016B06A0C01D6B0380B04DDBC02AB0004B0690BC02AB0006BC010B1360B150F7F19FF S$KEN0003R(BC06AB0008B0601B0A81B04C2B0203B0050BC120C0002BC02AB0012B0410BC02A7F1CCF S$KE0004RR(B0000B0690B06A0C019EB04C4BC02AB0006BC010B1102B0204B0D0ABC081B05C17F1AAF S$KE0005RD!BDC44B06C4BD444BC042BD0D2B0223B0200BDC43B0983BA043B0641BDC60C00077DF15DF S$KE0006R(BD460C0000BC06AB0008B0601B0A81BC120C0000BC02AB0012B0410BC000B16487F1D2F S$KE0007RR(BC02AB0000B0690BC06AB0008B0601B0A81BD212BA043B0223BFFB0B0503BC1207F193F S$KE0008R:C0004BC141BC02AB0010B0410BC000B1634B9212B1318BD012B0980B: 130DBC1427F1CFF S$KE0009R(B0585B9815C0000B1603BB4A0C0009B10F9BC102B0584BDD35B0600B16FDBD0327F183F S$KE0010RR(B0980BA002BD406B0380B0200BFFF7B101AB0200B901BB1017B04DDBC06DB00047F180F S$KE0011R0BC02AB0014BD050B0200B0300B02A5B0203B4300B0204B0$0600B2FC3BC003B02437F1E9F S$KE0012$R(B00FFB1306B0283B00B9B1602B0200BFF06BC740B0380B04EAB011AB1002B072A7F191F S$KE0013RR(B011AB04DDBC02AB0004B0690B06A0C019EBC02AB011AB130FB04EAB0016B06A07F165F S$KE0014R&C01F4BC01DB160BBC0C1BC02AB0000B0690B&.C043BC082B1304BD492B1302B06A07F177F S$KE0015.R(C017AB0380BC141BC182B0203B4300B0204B0200B2FC3BC003B0243B00FFB13067F1BCF S$KE0016RR(B0283B00B9B1602B0200B902BBC740B045BBC302BC0AAB000CBCC8BB0582BD4917F155F S$KE0017R BC02AB0002B0690BC06AB000CB8C2D1BD461B0003BBC60C0006B7C51BC02AB00147F172F S$KE00188R(BDC50BC0AAB000AB06C2BD442B0601B0641BC08CB045BBC24BB06A0C021CC01F07F138F S$KE0019RR(BC06AB0018BC02AB0002B0690BC000B1301BC740B0459B7492B0459BC24BB06A07F193F S$KE0020RC021CC021AB0203BB 4300B0204B0400B2FC3BC003B0243B00FFB13F4B0283B00B07F1B7F S$KE0021BR(B1602B0200B902BBC740B0459BC302BC16AB000EBD961B0001B0001BD961B00027F1B3F S$KE0022RR(B0002BD961B0003B0003BD961B0004B0004B7960C000FB0004BD960C0009B00057F1F4F S$KE0023RBD560CL%0012B0203B4300B0204B0500BC1AAB0016B1301B0716B04C8B2FC3B02437F1CFF S$KE0024LR(B00FFB1620B9560C0011B1B18BD025B0001B1615B9961B0002B0002B1611B99617F1DFF S$KE0025RR(B0003B0003B160DBC085BC20BB06A0C02ACBC2C8BC16AB000EBC000B1306B98657F160F S$KE0026RT@R(B0004B0004B12D8BC2DBB064BBC08CB046BB0002B0200BFF05BC740B10F7B02007F174F S$KE0027RR(B0001B1003B0700B1001B04C0BC0C1BC142B9553B1402BC141BC0C2BD133B09847F1BBF S$KE0028RN&BD1B5B0986BC000B110CB9D73B1655BC000B1304B9D73B1651B0604B0606B9D737F180F S$KEN0029R(B164DB0644B0646BC186B132ABC104B1347B9553B1645B0585B0606B0583B06047F1B4F S$KE0030RR(BC186B1320BC104B133DB9553B1606B9813C0000B16F3B0603B0584B10F0B98137F1B5F S$KE0031RD!C0000B1603B0583B0604B10E4B9813C000DB1A2CB9813C000EB12E6B0760B00007DF1C9F S$KE0032R(B1326B9813B0000B1A23B9813B0000B1B20B10DCBC104B131BB9813C0000B13157F1D6F S$KE0033RR(B9813C000BB1A15B9813C000CB1214B9813C000DB1A0FB9813C000EB1209B07607F1A8F S$KE0034R:C032EB1309B9813C0334B1A06B9813C033AB1B03B0583B0604B10E3B: 04C0B045B7F1A7F S$KE0035R(B0700B045BS0000B0000T0004B020AT003CB0460C0014B0000T0010B020AT003C7F1CDF S$KE0036RR(B0460C002CB0000T001CB020AT003CB0460C0108B0000T0028B020AT003CB04607F1B9F S$KE0037R0C013AT0024T0034B020AT003CB0460C0140B0000B0000B0$0000B0000B000CB00007F20AF S$KE0038$DB0000B0000B0000B0000B0000B0000T0056S0056S0156B00007F55FFS$KE0039DN!502B6APPROX502B2APPRX 30364CODE8 W0046DEPTH 000030370EXHIGH7F187F S$KE0040N83036AEXLOW Z004AKEYBF20000Z0048KEYBUF0000W0044LNECNT008007F22CFS$KE0041N!X003CS$$ARB0000X003ES$$COP0000X0040S$$GRB0000W0024S$KEY 00007F24FFS$KE0042NN!W0000S$MAPK0000W000CS$PKEY0000W0018S$PNCT0000X004C%%S$RIT 00007F1B7FS$KE0043N>W0030S$SETK0000X004ES$WIT 0000Z0050SELFRI0000X0042STATE 0000>7F1A2FS$KE0044N!X0000W$MAPK0000X000CW$PKEY0000X0018W$PNCT0000X0030W$SETK00007F190FS$KE0045NB:  S$KEY 01/26/85 12:14:03  SDSMAC 1.2.0 83.138S$KE0046BkXVRT6O),R0 0148 0004 QS$SNCT PVz4|@R#00020S$SNCT M000E$DATA 0000A0000BFF00A0002BC2EAB0000B069BBC21D7F1E8F S$SN0001RR(BC141BC182B1302BD5A0C0000B0203B4300B0204B0500B2FC3B0380S0000B00007F1E6F S$SN0002R0T0004B020AT000CB0460C0002B00007F962FS$SN00030 X000CS$$GRB0000W0000S$SN(CT0000X0000W$SNCT00007F557F S$SN0004(D:  S$SNCT  01/26/85 12:17:26  SDSMAC 1.2.0 83.138S$SN0005D6 0008 0460 B  @P$$ARB BRANCH TOKKRTO, 0072  * REVISION: 12/31/76 ORIGINAL,% 0073 dS$IT$ P U 4|@R001EES$IT$ M007C$DATA 0000A0000B0000B0800B0200B0010B0001B20007F2B6F S$IT0001RR(B0008B8080BC32AB0008BC31CB1604B0200BFFF7BC740B0380BC06AB0004BC1AA7F159F S$IT0002RN&B0000B04E1B0000B05C6BC846B0000BC261B0000BC0EDB0006BC843C0034BC8437F1A8F S$ITN0003R(B0000BD860B0000B0000B7B6DB000CB000CBC86DB0002B0000BC86DB000AB00007F1B7F S$IT0004RR(B1603BC861C0052C0058BC12DB0008B04E1B0000BD844C0068B0B14BC204B0A947F1A0F S$IT0005RD!B0203C0000B0202BC5F0BC30CB1102B40A0C000EB05C3B0A14B1307B15FCB20937DF1A6F S$IT0006R(B1602B4093B10F8BE093B10F6BC842B0000BD860B0000B0000BC208B1103BF8607F1B0F S$IT0007RR(B0000C00A0B2FD1BC011B1632BCB61C0060B000ABC0AAB0008BC092B1103BCB617F17FF S$IT0008R:C0040B000ABDB61B0000B000CBC208B1113BD0A1C006CB0205B2020B: C0C6B06037F1B6F S$IT0009R(BC121C00C2B130ABA0C4B9153B1302B9093B1603B0603B0604B15F9BC844C00DE7F189F S$IT0010RR(B0606BC161C00F4B06C5BD585BC0ADB0004B1305BC02AB000AB0410B0602BC7407F182F S$IT0011R0BC849C003CB0380B0200B9020B10F9B04DDBC1AAB0008B0$C196B1604B0200BFFF77F155F S$IT0012$R(BC740B0380BC06AB0006BC261C0112BC0EAB0000BD12AB0002B0984BC16DB00087F187F S$IT0013RR(BC205B0B18BDCC5B0604B15FDBC0EAB0000B0583BD4EAB0002BC0ADB0004B13077F131F S$IT0014R&BC02AB000AB0410B0203BC740B1302B103FB&.74D3BD173B0985BC845C00FAB04E17F173F S$IT0015.R(C002ABC843C0030BD860B0000C0046BC0EDB0006BC843C0134BC186B1522BC12D7F185F S$IT0016RR(B0002BC844C005EBC1ADB0008BD846C00D2B0916B0A96B1506B1305BA103B61057F18BF S$IT0017R BC844C0196B1002BC843C0174B80203C0000BC12AB000CB05C3B0A16B1303B15FC7F1A0F S$IT00188R(BE113B10FABC844C009ABD860C009EC00AABC208B1103BF860C00A8C01D2B2FD17F126F S$IT0019RR(BC011B1303B0200B9021BC740B0460C0110S0000B0000T0004B020AT006EB04607F1E9F S$IT0020RC011CB0000T0010BB 020AT006EB0460C0010S0018S006ET0018B5200B0000B00007F1D2F S$IT0021B" B0000B0000B80007FCBBF S$IT0022"R#W006EITBUFA0000W0070ITBUFL000030044OPCRAS30180OPCWAS3017CPRBBAD7F033F S$IT0023R8301B4PRBCHC300B4PRBCUR40000PRBERC300C8PRBEVN3019EPRBFI8L7F1D8F S$IT0024R 301AEPRBFLDZ0072PRBI0000Z0074PRBO 000030182PRBOPC3018APRBRLN7F0ACF S$IT0025RR#30178PRBSFL301DCPRBUFL301CCPRBXFLW000CS$RIT 0000X0078S$SCPY00007F022F S$IT0026R6W0000S$WIT 0000X0076STATE 0000301DAUFLBLK301D0UFLXTD67F329FS$IT0027@X000CW$RIT 0000X0000W$WIT 0000W007AWITOPT00007F517F S$IT0028@B:  S$IT$ 01/26/85 12:13:34  SDSMAC 1.2.0 83.138S$IT0029B/  LISTING ACCESS NAME = T.DPL.S$.LIST.S$IO /$  ERROR ACCESS NAME = .XMAERR03EOD EOD 7DEVDSR D V.}}OBJECT D PV2PP}}1DS403HSRP8V73K_}R#00BB2DS403HSRM0192NFDATA0001P00000001P00020001P00040001P000600017F1C0FDS400001RN!P00080001P000A0001P000C0001P000E0001P00100001B000FP001200017F386F DS400002NN!P00160001P00180001P00180001P001A0001P001C0001B0000P001E00017F38CF DS400003N .R@R#P00200001P00220001P00240001P00260001P00280001P002A0001P002C00017F2CCF DS400004RR#P00340001P00360001P00380001P003A0001P003C0001P003E0001P004000017F2B1F DS400005RN#P00420001P00440001P00460001P00480001P004A0001P004C0001P004E00017F2A9F DS40N0006R#P00500001P00520001P00540001P00560001P00580001P005A0001P005C00017F2B7F DS400007RR#P005E0001P00600001P00620001P00640001P00660001P00680001P006A00017F2AFF DS400008RD!P006C0001P006E0001P00700001P00720001P00740001P00760001P007800017F2DA7F DS400009R#P007A0001P007A0001P007C0001P007E0001P00800001P00820001P008400017F28EF DS400010RR#P00860001P00880001P008A0001P008C0001P008E0001P00900001P009200017F28FF DS400011R:P00940001P00960001P00980001P009A0001P009C0001P009E0001P0:0AC00017F26DF DS400012N!B0080P00AE0001P00B20001P00B60001P00BA0001P00BE0001P00C000017F32AF DS400013NR#P00C20001P00C40001P00C60001P00C80001P00CA0001P00CC0001P00CE00017F240F DS400014R4P00D00001P00D20001P00D40001P00D60001P00D80001P00DA4 0001P00DC00017F24EF DS400015 R#P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA0001P00FC00017F233F DS400016RR#P00FE0001P01000001P01020001P01040001P01060001P010C0001P010E00017F2ADF DS400017R*P01160001P01180001P011A0001P011C0001P011**E0001P01200001P012200017F2B9F DS400018*R#P01240001P01280001P012C0001P012C0001P012E0001P01300001P013200017F2B2F DS400019RR#P01340001P01880001P018A0001P018C0001P018E0001P01900001A0000B00807F261FDS400020R B0040B0010B0008B0002B0004B80F7 4B1000B2000B7000B8020B0100A0018B08007F252F DS4000214R(B0400B0200B0100B4000B0001B0002B0004B0008B0010BF000B0800B0200B30007F271F DS400022RR(B4000B7000B4400B4000B0040B0080BFF00B1000B0040B00C0BE000BC000B80007F218F DS400023R B8000B0000BFFFBB0040>B0022B0700BD027B008AB1132B06C5BD167B008BBCB057F183F DS400024>R(B0004B0627B008CB1302B05CBB045BBF9E0C0014B008ABF9E0C000EB008AB07E77F15DF DS400025RR(B0086BE820C0000B0006B07A7B0086BCB20B0006B0002B02C0B0300B0002BC8007F1EAF DS400026R C00A6B4B20 H#C003AB0000B0300B0000B07E7B0086BC80BB000EB06A0C0B90B07A77F1A2F DS400027HR(B0086BC2E0B000EBEB20C003AB0000B10D6BC2DBB045BBD024B008AB11FBB06C57F138F DS400028RR(BD164B008BBCB05B0004B0624B008CB16C9BF920C0014B008ABF920C000EB008A7F16EF DS400029RR(B07E4B0086BE820C0000B0006B02C0B0300B0002BC800C0110B07A4B0086BCB207F1D2F DS400030RR(B0006B0002B4B20C003AB0000B0300B0000B07E4B0086BC807B000CBC1C4B07E77F1C6F DS400031RN&B0086BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EB07A7B0086BC1E0B000C7F157F DS40N0032R(BEB20C003AB0000B05CBB045BBC2ADB0002B1151B072DB0002BC027B008EB114C7F177F DS400033RR(B028AB0006B1549B0A1AB046AC015EB1006B100AB1025B1043B1046B104EB10557F1C8F DS400034RD!B04CABD2ADB0000BC2DBB045BB0200B0080BC9C0B008CB07E7B0086B4820C00007DF162F DS400035R(B0006BD027B008AB152EB132DB2020C000EB162AB59E0C000EB008AB2020C00107F1B0F DS400036RR(B1324B59E0C0014B008AB05CBBC2DBB045BB04CABD2A7B008BBF2A0C0048BCB0A7F107F DS400037R:B0002B4B20C003AB0000B07E7B0086BC80BB000EB06A0C0B90B07A7B: 0086BC2E07F183F DS400038R(B000EBEB20C003AB0000BC2ACB0002B1105B0A8ABE2A0C0056B1021B0380B022B7F197F DS400039RR(B0008BC2DBB045BBD2ADB0000B098AB028AB0003B15F5B0A1AB046AC028EBD2AD7F11CF DS400040R0B0000B52A0C0016B098ABD2ACB0007B10AEB04CABD2ADB0$0000BD027B008AB22A07F157F DS400041$R(C0018B1607B2020C0018B1604B022BB0004BC2DBB045BB22A0C001AB1603B20207F1D8F DS400042RR(C001AB13F6B22A0C001CB1603B2020C001CB13F0B22A0C001EB16CCB2020C001E7F1A1F DS400043R&B13EAB10C8BC027B008EB2020C0020B1318B&.07A7B0086BC020B0000B0600B11BD7F1ACF DS400044.R(B1508B07E7B0086BC800B0000B022BB0006BC2DBB045BB07E7B0086BC800B00007F197F DS400045RR(B10AFB10AFB10E5B1071B1077B04CABD2A7B008BBF2A0C002CBCB0AB0002B4B207F12DF DS400046R C003AB0000B07E7B0086BC80BB8000EB06A0C0B90B07A7B0086BC2E0B000EBEB207F15FF DS4000478R(C003AB0000BC2ACB0002B1192B42A0C0052B07A7B0086BC020B0008B4020C00527F1DBF DS400048RR(B1328BC28AB16C3B07E7B0086B4820C000AB0008B04CABD2A7B008BBE2A0C00487F158F DS400049RBCB0AB0002B4B20CB 003AB0000B07E7B0086BC80BB000EB06A0C0B90B07A7B00867F177F DS400050BR(BC2E0B000EBEB20C003AB0000BC2ACB0002B11B8B0A8ABE2A0C000AB022BB00047F15DF DS400051RR(BC2DBB045BBC28AB139BB07E7B0086BE820C000AB0008B04CABD2A7B008BBE2A07F10AF DS400052RC0048BL%CB0AB0002B4B20C003AB0000B07E7B0086BC80BB000EB06A0C0B90B07A77F178F DS400053LR(B0086BC2E0B000EBEB20C003AB0000BC2ACB0002B1190B0A8ABE2A0C0054B10D57F168F DS400054RR(BF9E0C0014B008ABF9E0C0015B008AB0380B59E0C0015B008AB04C0BD027B008A7F16DF DS400055RT@R(B2420C0012B1301B0380B59E0C0014B008AB022BB0002BC2DBB045BBF9E0C001C7F19AF DS400056RR(B008AB1017B59E0C001CB008AB1013BF9E0C0018B008AB100FB59E0C0018B008A7F183F DS400057RN&B100BBF9E0C001EB008AB1007B59E0C001EB008AB1003BF9E0C001AB008AB05CB7F14FF DS40N0058R(B045BB59E0C001AB008AB10FABE9E0C0020B008EB10F6B49E0C0020B008EB10F27F152F DS400059RR(B02C0B0300B0002BC800C044EB07A7B0086BC2A0B0006BE2A0C0002BCB0AB00027F1A0F DS400060RD!B100DB02C0B0300B0002BC800C044EB07A7B0086BC2A0B0006B42A0C0002BCB0A7DF19EF DS400061R(B0002B4B%%20C003AB0000B07E7B0086BC80BB000EB06A0C0B90B07A7B0086BC2E07F183F DS400062RR(B000EBEB20C003AB0000B0300B0000B10C4BC2DBB045BB07E7B0086BC800B00007F19FF DS400063R:B045BB0200B0004B07E7B0086BE420C0022B07A7B0086BCB10B0002B: 4B20C003A7F1BBF DS400064R(B0000B07E7B0086BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EBEB20C003A7F15FF DS400065RR(B0000B05CBB045BB0200B0004B07E7B0086B4420C0022B10E3B0200B0004B07E77F1E2F DS400066R0B0086BE420C0024B10DCB0200B0004B07E7B0086B4420C0$0024B10D5BC02CB00007F1CDF DS400067$R(B0930B18C4B0200B0004B07E7B0086BE420C0026B10CABC02CB0000B0930B18B97F1ABF DS400068RR(B0200B0004B07E7B0086B4420C0026B10BFB0200B0004B07E7B0086BE420C00287F1DFF DS400069R&B10B8B0200B0004B07E7B0086B4420C0028B&.10B1B0200B0006B07E7B0086BE4207F1E0F DS400070.R(C0008B10AAB0200B0006B07E7B0086B4420C0008B10A3B0200B0004B07E7B00867F1EBF DS400071RR(BE420C002AB109CB0200B0004B07E7B0086B4420C002AB1095B0200B0002B07E77F1D8F DS400072R B0086BE420C003CB108EB0200B80002B07E7B0086B4420C003CB1087B07E7B00867F1BAF DS4000738R(BE820C0006B0006B07A7B0086BCB20B0006B0002B4B20C003AB0000B07E7B00867F1C9F DS400074RR(BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EBEB20C003AB0000B05CBB045B7F14BF DS400075RB07E7B0086B4820CB 0006B0006B07A7B0086BCB20B0006B0002B4B20C003AB00007F1DAF DS400076BR(B07E7B0086BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EBEB20C003AB00007F15FF DS400077RR(B05CBB045BB02C0B0300B0002BC800C0630B07A7B0086BC2A0B0006BE2A0C00047F1A5F DS400078RBCB0ABL%0002B4B20C003AB0000B07E7B0086BC80BB000EB06A0C0B90B07A7B00867F177F DS400079LR(BC2E0B000EBEB20C003AB0000B07E7B0086B4820C000CB0006B07E7B0086BC80B7F17BF DS400080RR(B000EB06A0C070EB1000B07A7B0086BC2E0B000EBE9E0C004CB008EB0300B00007F18EF DS400081RTN!B05CBB045BB49E0C004CB008EB05CBB045BB8320N01300001B1334BC80C7F2BBF DS400082NR#N01300001B04E0N01320001B0200B0084B07E7B0086B07A7B0086BC820B00067F267F DS400083RR#B0006BC820N01300001N01300001B0600B15F4BC02CB0000B2020C002EB13087F278F DS400084R@R(BCB20C002EB0000BC02CB0000B2020C002EB1674B0200B90ADBC2ACB0000B26A07F198F DS400085RR(C002EB1312B020AB0006B07E7B0086B07A7B0086BC69AB0600B16F2BC02CB00007F199F DS400086RN#B2420C002EB165FBC820N01320001N01320001B165DBC2ACB0000B22A0C00307F23CF DS40N0087R(B1654B04CABD2A7B008BBE2A0C002CBCB0AB0002B4B20C003AB0000B07E7B00867F15BF DS400088RR(BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EBEB20C003AB0000BC2ACB00027F155F DS400089RD!B113EB26A0C0006B1337B103AB04CABD2A7B008BBE2A0C0036B07E7B0086BC80A7DF153F DS400090R(B0006B04CABD2A7B008BBE2A0C0034B07E7B0086BC80AB0004BCB0AB0002B04CA7F148F DS400091RR(BD2A7B008BBE2A0C0032B0200B001ABE280B07E7B0086BC80AB0002B04C0BD9C07F160F DS400092R:B008ABC9C0B008EB07A7B0086B04E0B0000B020AB0800B07E7B0086B: D80AB00087F183F DS400093R#B020AB0080BC9CAB008CBCB20C0038B0000B05CBB045BB0720N01320001BC2DB7F1ACFDS400094RR(B045BBC280B0A9AB095ABE00AB07E7B0086BD800B0003B07A7B0086BCB20B00027F161F DS400095R0B0002B4B20C003AB0000B07E7B0086BC80BB000EB06A0C0$0B90B07A7B0086BC2E07F183F DS400096$R(B000EBEB20C003AB0000B05CBB045BB04C0B07A7B0086BD020B0003BC280B40207F197F DS400097RR(C0058B0A6AB1709BC28AB1304B09AABE2A0C0046B1004BE2A0C0044B1001B09AA7F171F DS400098R&BE00AB045BBC280B0980B42A0C0040B8280B&.166FB028AB0012B156CB06CAB07E77F165F DS400099.R(B0086BD80AB0008B06CAB0A1ABC2AAC08DCB1162B02C0B0300B0002BC800C08C27F15BF DS400100RR(B07A7B0086BC020B0002BE020C003EBCB00B0002B4B20C003AB0000B07E7B00867F1B6F DS400101R BC80BB000EB06A0C0B90B07A7B80086BC2E0B000EBEB20C003AB0000BD00AB09807F15AF DS4001028R(BD027B008BBE020C0042BCB00B0002B4B20C003AB0000B07E7B0086BC80BB000E7F193F DS400103RR(B06A0C0B90B07A7B0086BC2E0B000EBEB20C003AB0000BD2A7B008BBCB0AB00027F152F DS400104RB4B20C003AB0000BB 07E7B0086BC80BB000EB06A0C0B90B07A7B0086BC2E0B000E7F170F DS400105BR(BEB20C003AB0000B07A7B0086BCB20B0002B0002B4B20C003AB0000B07E7B00867F1BBF DS400106RR(BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EBEB20C003AB0000B0300B00007F18DF DS400107RB05CBBL%045BBC2DBB045BB07A7B0086BD2A0B0008BD00AB0980BD00AB045BB0C007F12FF DS400108LR(B0800B0574B0476B0400B0300B0200B0100B0080B0055B0040B002BB0020B00157F24AF DS400109RR(B0010BFFFFB0008BFFFFB0004B04C0BD027B008BBE020C0048B02CAB0300B00027F155F DS400110RT@R(BC80AC09E2BCB00B0002B4B20C003AB0000B07E7B0086BC80BB000EB06A0C0B907F168F DS400111RR(B07A7B0086BC2E0B000EBEB20C003AB0000BC02CB0002B114EB0AB0B174BB022B7F169F DS400112RN&B0006B104BB04C0BD027B008BBE020C0048B02CAB0300B0002BC80AC09E2BCB007F183F DS40N0113R(B0002B4B20C003AB0000B07E7B0086BC80BB000EB06A0C0B90B07A7B0086BC2E07F183F DS400114RR(B000EBEB20C003AB0000BC02CB0002B112AB0AC0B1727B022BB0006B1027B04C07F1ABF DS400115RD!BD027B008BBE020C0048B02CAB0300B0002BC80AC09E2BCB00B0002B4B20C003A7DF188F DS400116R(B0000B07E7B0086BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EBEB20C003A7F15FF DS400117RR(B0000BC02CB0002B1106B0A90B1703B022BB0006B1003B05CBB05CBBC2DBB03007F1A6F DS400118R:B0000B045BB04C0BD027B008BBE020C0048B02CAB0300B0002BC80AC: 09E2BCB007F185F DS400119R(B0002B4B20C003AB0000B07E7B0086BC80BB000EB06A0C0B90B07A7B0086BC2E07F183F DS400120RR(B000EBEB20C003AB0000BC02CB0002B11DCB0AA0B17D9B022BB0006B10D9B04C07F171F DS400121R0BD027B008BBE020C002CB02CAB0300B0002BC80AC09E2B0$CB00B0002B4B20C003A7F17FF DS400122$R(B0000B07E7B0086BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EBEB20C003A7F15FF DS400123RR(B0000BC02CB0002B11B8B0AE0B17B5B022BB0006B10B5B04C0BD027B008BBE0207F18BF DS400124R&C004AB02CAB0300B0002BC80AC09E2BCB00B&.0002B4B20C003AB0000B07E7B00867F19CF DS400125.R(BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EBEB20C003AB0000BC02CB00027F166F DS400126RR(B1194B0AC0B1791B022BB0006B1091B07A7B0086BC020B0006B0AD0B1804B022B7F1B3F DS400127R B0004BC2DBB045BB022BB0006B8045BBC027B008EB11FAB022BB0004BC2DBB045B7F14CF DS4001288R(B07A7B0086BC020B0002B2020C003CB1304B022BB0004BC2DBB045BB022BB00067F1BCF DS400129RR(B045BBF027B008BBCB00B0002B4B20C003AB0000B07E7B0086BC80BB000EB06A07F17DF DS400130RC0B90B07A7B0086BB C2E0B000EBEB20C003AB0000B05CBB045BBF027B008BBE0207F154F DS400131BR(C004EB02CAB0300B0002BC80AC0B78BCB00B0002B4B20C003AB0000B07E7B00867F197F DS400132RR(BC80BB000EB06A0C0B90B07A7B0086BC2E0B000EBEB20C003AB0000BC02CB00027F166F DS400133RB1101BL%1003B05CBBC2DBB1002B022BB0004B0300B0000B045BBC020C0050B045B7F1D2F DS400134LR(BC02CB0000B0260B0020B0240B00FFB045BB07E7B0086BC800B000AB0200B00037F1CEF DS400135RJBD9E7B008BB008BB0600B1301B10FAB07A7B0086BC020B000AB045B7F3A5F DS400136J503CFCDSBCTS503BCDSBDCD503ACDSBDSR503DEDSBRI 50452DSBSCT7F1D1F DS400137FJ503C4ENBCTS503B4ENBDCD503A4ENBDSR503D4ENBRI 50452ENBSCT7F223F DS400138JJ503E6ENSDCD503F6ENTSRE503CCHDSCTS503BCHDSDCD503ACHDSDSR7F18EF DS400139J 503DEHDSRI 50452HD8SSCT503EEHDSSDC50412HDSTSR503C4HESCTS7F1BDF DS4001408J503B4HESDCD503A4HESDSR503D4HESRI 50452HESSCT503E6HESSDC7F1F8F DS400141JJ503F6HESTSR5064AHMRST 50142HNOTIF500C8HOUTP45005AHOUTP77F1B4F DS400142J"50452HRDBIL50AD8HRDCR 50ABEHRDCT"*H5094AHRDCTS50992HRDDCD7F1E8F DS400143*J50902HRDDSR509E6HRDRI 50452HRDSCT50A2EHRDSDC50452HRDSSS7F1DCF DS400144JJ50AE6HRDTB 50A76HRDUIL50640HRESET50B7CHRPDAT507B2HRPPSL7F1A2F DS400145J0508CCHRPSPD50B82HRPTYP504FCHRTAL 50452HRTBIL500636HRTCR 7F1B4F DS400146J50596HRTCTH50498HRTDTR50518HRTRS 504B4HRTRTS50452HRTSRS7F17FF DS400147JJ504D8HRTSRT50550HRTTB 50534HRTUIL50B2EHRUART50774HSPPSL7F17CF DS400148J>507DEHSPSPD504EEHSTAL 50452HSTBIL505CEHSTCR 5055EHSTCTH7F1A5>F DS400149J50460HSTDTR5050AHSTRS 504A6HSTRTS50452HSTSRS504C2HSTSRT7F15DF DS400150JJ50542HSTTB 50526HSTUIL506FCHSWPWR50456HTIMER50B02HWUART7F189F DS400151JJ50142INTHAN500C8OUTC4 5005AOUTC7 5064APWDIAG506FCPWR0707F24FF DS400152JL@J50640PWRUP 50452RDBIL 50AE6RDBRK 50ABERDCTH 5094ARDCTS 7F254F DS400153JJ50992RDDCD 507B2RDDFM 50902RDDSR 50B7CRDREV 509E6RDRI 7F2B5F DS400154JJ50AD8RDRSTM50452RDSCTS50A2ERDSDCD508CCRDSPD 50452RDSSS 7F1B8F DS400155J50B82RDTYP 50B<2ERDUART50A76RDUIL 504FCRSTAL 50452RSTBIL7F1CAF DS400156<J50550RSTBRK50636RSTCHR50596RSTCTH50498RSTDTR504D8RSTRC 7F187F DS400157JJ50518RSTRS 504B4RSTRTS50452RSTSRS50534RSTUIL504EESETAL 7F176F DS400158J50452SETBIL50542SETBRK505CES.ETCHR5055ESETCTH50774SETDFM7F1A7F DS400159.J50460SETDTR504C2SETRC 5050ASETRS 504A6SETRTS507DESETSPD7F19CF DS400160J450452SETSRS50456SETTIM50526SETUIL7F733F DS4001614B:  DS403HSR 01/25/85 23:31:27  SDSMAC 1.2.0 83.138DS4001B62O TIATE READ  06CC 0002 L 1016 06CE 4B20 SZC @INTENB,@SW0(R12) 03DISABLE BOARD INTERRUPT DURINL 06D0 003A' 06D2 0000 + 1017 06D4 07E7 LDD @PDXSMB(R7) 01 + 06D6 0086 ?DS401HSRP!Vb d3J}@R#006FADS401HSRA0000BF040B8000B40E0B4000B3000B2000B1000B0E04B0C007F20FF DS400001RR(B0800B040FB0400B020FB0200B0100B00C0B0080B0040B0030B0020B0010B00087F241F DS400002RN&B0004B0002B0001B0000B0070B8827B008CC0034B1419BC027B008EB07E7B00867F1ECF DS40N0003R(BDC05B0280B0090B1A02B0200B0020BC9C0B008EB05A7B008CB04A7B0092BC9E07F17CF DS400004RR(C006CB0092B1D0FB022BB0002B045BB1004B1000BC2EBB0000B045BB8824B008C7F19EF DS400005RD!C0034B14F9BC024B008E%%B07E4B0086BDC05B0280B0090B1A02B0200B0020BC9007DF1ACF DS400006R(B008EB05A4B008CB04A4B0092BC920C006CB0092B1D0FB022BB0002B045BBC0277F17CF DS400007RR(B008AB1103B1F0EB1303B0380B1E0EB0380B1F08B1628B1D0BB04CAB1F0BB16017F16DF DS400008R:B10FDB360AB07A7B0086B42A0B000AB1F0FB1618B1F0EB1606BE2A0C: 002EB07A77F140F DS400009R(B0086B05A0B0010B1F0DB1606BE2A0C002AB07A7B0086B05A0B0012B1F0CB16067F199F DS400010RR(BE2A0C002CB07A7B0086B05A0B0014B1E0BBC2EBB0000B045BB1F0FB161DB88277F148F DS400011R0B008CC0032B1314BC027B0090B07A7B0086B3230B1E0BB0$0280B0090B1A02B02007F1DAF DS400012$R(B0020BC9C0B0090B0627B008CB1301B0380BC2EBB0002B045BBC9E0C006EB00927F18AF DS400013RR(B1E0FB0380B1F0CB165CBC2A7B008ABC00AB4020C0014B1F02B1306B2420C00067F187F DS400014R&B130DB4020C0006B1005B2020C0006B1307B&.E020C0006B22A0C0016B1602BE0207F213F DS400015.R(C0016B1F05B1306B2420C0020B130DB4020C0020B1005B2020C0020B1307BE0207F226F DS400016RR(C0020B22A0C002AB1602BE020C002AB1F00B1306B2420C0026B130DB4020C00267F1F6F DS400017R B1005B2020C0026B1307BE020C80026B22A0C002EB1602BE020C002EB1F04B13067F1E7F DS4000188R(B2420C0022B130DB4020C0022B1005B2020C0022B1307BE020C0022B22A0C002C7F21EF DS400019RR(B1602BE020C002CB1D0CB49E0C0004B008ABE9C0B008AB2420C0014B1601B03807F1A6F DS400020RBC280B06CABC2EBBB 0004B045BB1F0DB1303BC2EBB0008B045BBC2A7B008ABC00A7F112F DS400021BR(B4020C0014B1F01B1306B2420C0028B1311B4020C0028B1005B2020C0028B130B7F22CF DS400022RR(BE020C0028B22A0C0030B1606BE020C0030B49E0C0028B008AB10D5BE9C0B008A7F1A2F DS400023RB1E0DBL%1D0DB07A7B0086BC020B0000B1601B0380B07A7B0086B0620B0000B15FA7F1A5F DS400024LR(BC2EBB0006B045BBE9E0C002EB008AB1023B49E0C002EB008AB101FBE9E0C002A7F136F DS400025RR(B008AB101BB49E0C002AB008AB1017BE9E0C0030B008AB1013B49E0C0030B008A7F196F DS400026RT@R(B100FBE9E0C0016B008AB100BB49E0C0016B008AB1007BE9E0C002CB008AB10037F180F DS400027RR(B49E0C002CB008AB022BB0002B045BB07E7B0086BC800B0000B045BB1D00B1E007F199F DS400028RN&BC020C02CCB1076BC020C02CEB1073BC28BB06A0C03DCB1D08B1D01B1E0BB102B7F137F DS40N0029R(BC28BB06A0C03DCB1D08B1E01B1E0BB0460C03EEBC28BB06A0C03DCB1D08B1D0A7F0F6F DS400030RR(B1D02B1E08B1E0AB1071BC28BB06A0C03DCB1D08B1D0AB1E02B1E08B1E0AB10687F12AF DS400031RD!BC28BB06A0C03DCB1D08B1D0AB1D07B1E08B1E0AB105FBC28BB06A0C03DCB1D087DF0F0F DS400032R(B1D0AB1E07B1E08B1E0AB1056BC28BB06A0C03DCB1D08B1D0AB1D06B1E08B1E0A7F107F DS400033RR(B104DBC28BB06A0C03DCB1D08B1D0AB1E06B1E08B1E0AB1044BC28BB06A0C03DC7F107F DS400034R:B1D08B1D07B1E0BB103DBC28BB06A0C03DCB1D08B1E07B1E0BB1036B: C9E0C006C7F10EF DS400035R(B0092B07E7B0086BE820C0002B0002B1E0FB1020B1D0FB07E7B0086B4820C00027F1B3F DS400036RR(B0002B1019B1D0EB07E7B0086B4820C0006B0002B1012B1D06B1E06BC020C03B27F1C8F DS400037R0B1003BC020C03B4B1000B02CAB0300B0002BC80AC03D4B0$1D08B0480B1E0BB03007F1B4F DS400038$R(B0000B022BB0002B045BB02C0B0300B0002BC800C03F4B045BBC2AAB0000B10027F1D4F DS400039RR(B022AB0002B0300B000FB045ABC9E0C0002B008ABC2AAB0000B10F7BC28BB06A07F17DF DS400040R&C03DCB1F0BB1603BC2AAB0002B045AB1D08B&.1D0BB06A0C06E2C040EB1F06B13037F147F DS400041.R(BC2AAB0004B1002B022AB0006B1E0BB045ABC0E1BE280BC180BA181BE300BC3007F167F DS400042RR(BA300B8300A0440BC280B07E7B0086BC800B0004B06CAB8280B1620B024AB00FF7F194F DS400043R B028AB000FB141BBD02AC0430B81318B07E7B0086B07A7B0086BC820B0004B00067F1A5F DS4000448R(B02CAB0300B0002BC80AC0488B1D08B1D0AB3080B1E08B0950B30C0B1E0BB03007F188F DS400045RR(B000FB022BB0002B045BBC2EBB0000B045BB1F00B1303BC2EBB0004B045BB022B7F180F DS400046RB0006B045BB1F01BB 13FBB10F7B1F05B13F8B10F4B1F02B13F5B10F1B1F04B13F27F14CF DS400047BR(B10EEB1D08B1D0BBC28BB06A0C06E2C03E8B1F07B1604BC2AAB0004B1E0BB045A7F115F DS400048RR(B1E0BB022AB0006B045ABC020C0002B07A7B0086BC2A0B0002B2280B13D9B10D57F19EF DS400049RBC020CL%0006B10F6B07A7B0086BC020B0006B045BB07A7B0086BC020B0008B045B7F1AEF DS400050LR(B0200B0002B045BB0200B0001B045BB02CAB0300B0002BC80AC05F6B07E7B00867F1C8F DS400051RR(BC800B0004B2020C0012B161AB2020C000AB13AEB1D08B1D03B1E0BB020AB000A7F1AEF DS400052RT@R(B1F0BB1605B060AB16FCBC28BB0460C03E8B2420C000CB1604B1D0AB1D04B1E0B7F14BF DS400053RR(B1010B1D0AB1E04B1E0BB100CB1D08B1E03B1E0BB020AB000AB1F0BB1605B060A7F163F DS400054RN&B16FCBC28BB0460C03E8BC280B024AB00C0B880AC0020B1385B1D08B2420C00227F17FF DS40N0055R(B1602B1D05B1001B1E05B1E0BB020AB000AB1F0BB1609B060AB16FCBC28BB04607F16AF DS400056RR(C03E8BE0FFBC0FFB80FFB00FFBC280B024AB0030B093AB07E7B0086BC82AC05A87F0DCF DS400057RD!B000AB091AB2020C0012B1605B028AB0003B13B1B022AB0001B054AB06CAB1D0A7DF1BAF DS400058R(B022CB000CB308AB022CBFFF4B1E0BB07E7B0086B07A7B0086BC820B0004B00087F15DF DS400059RR(B0300B000FB022BB0002B045BBC027B008AB111FB07E7B0086BE820C0006B00027F1BCF DS400060R:B04E7B008AB07E7B0086BC80BB000CB06A0C0648C0634B06A0C066AC: 0634B07A77F16BF DS400061R(B0086BC2E0B000CB022BB0002B045BB07A7B0086BC2E0B000CBC9E0C0002B008A7F17AF DS400062RR(BC2EBB0000B045BBC9E0C0002B008ABC28BB06A0C03DCB1D08B1D0AB1D05B1E087F11FF DS400063R0B1E0AB1E0BB06A0C06E2C03F8B0460C03EEBC28BB06A0C0$03DCB0200B0020BC9C07F12DF DS400064$R(B008EBC9C0B0090B04E7B008CBC9E0C006EB0092B07A7B0086B04E0B0000B02007F17FF DS400065RR(B0400B1D08B3200B1E0BB06A0C06E2C03F8B1D0AB1D03B1E05B1E0BB06A0C06E27F154F DS400066R&C03F8B1E0DB1D0DB1D0CB1E0FBC027B008AB&.1312B04E7B008AB1F05B1603BE9E07F118F DS400067.R(C0020B008AB1F00B1603BE9E0C0026B008AB1F02B1603BE9E0C0006B008AB1D0E7F17DF DS400068RR(B0460C03EEB0200B000AB1F0BB1605B0600B16FCBC2EBB0000B045BB022BB00027F18AF DS400069RB045B7FEACF DS4000704B@J50036A11JMP50036A12JMP50036A13JMP50296ADSCTS50286ADSDCD7F2BEF DS400071JJ50276ADSDSR502B6ADSRI 50490ADSSCT502A6ADSSDC50490ADSTSR7F20BF DS400072JJ5028EAESCTS5027EAESDCD5026EAESDSR502AEAESRI 50490AESSCT7F1F1F DS400073J5029EAESSDC504<90AESTSR50648AMRST 500ACANOTIF50076AOUTP47F1E6F DS400074<J50036AOUTP750490ARDBIL504F0ARDCR 504DEARDCTH504A6ARDCTS7F217F DS400075JJ504ACARDDCD50496ARDDSR504B8ARDRI 50490ARDSCT504B2ARDSDC7F21CF DS400076J50490ARDSSS50404ARDTB 50648A.RESET5050AARPDAT50500ARPPSL7F20FF DS400077.J504F6ARPSPD50510ARPTYP50330ARTAL 50490ARTBIL503A4ARTCR 7F217F DS400078JJ50396ARTCTH502D6ARTDTR50354ARTRS 502EAARTRTS50490ARTSRS7F18FF DS400079J,5030CARTSRT503BCARTTB 50374ARTUIL50490ARUA, RT50516ASPPSL7F1ABF DS400080 J50440ASPSPD5031EASTAL 50490ASTBIL505FEASTCR 50382ASTCTH7F212F DS400081JJ502D0ASTDTR50342ASTRS 502DCASTRTS50490ASTSRS502FAASTSRT7F161F DS400082J:503B6ASTTB 50366ASTUIL5066AASWPWR502C2ATIMER50490AWUART7:F1ABF DS400083J50296HDSCTS50286HDSDCD50276HDSDSR502B6HDSRI 50490HDSSCT7F20BF DS400084JJ502A6HDSSDC50490HDSTSR5028EHESCTS5027EHESDCD5026EHESDSR7F1B1F DS400085JH502AEHESRI 50490HESSCT5029EHESSDC50490HESTSR50648HMRST 7F1E6F DS4000H86J500ACHNOTIF50076HOUTP450036HOUTP750490HRDBIL504F0HRDCR 7F204F DS400087JJ504DEHRDCTH504A6HRDCTS504ACHRDDCD50496HRDDSR504B8HRDRI 7F1D1F DS400088JJ50490HRDSCT504B2HRDSDC50490HRDSSS50404HRDTB 504BEHRDUIL7F1E8F DS400089J50648HDRESET5050AHRPDAT50500HRPPSL504F6HRPSPD50510HRPTYP7F18EF DS400090DJ50330HRTAL 50490HRTBIL503A4HRTCR 50396HRTCTH502D6HRTDTR7F1FFF DS400091JJ50354HRTRS 502EAHRTRTS50490HRTSRS5030CHRTSRT503BCHRTTB 7F176F DS400092J 50374HRTUIL50490HRUA6RT50516HSPPSL50440HSPSPD5031EHSTAL 7F1C2F DS4000936J50490HSTBIL505FEHSTCR 50382HSTCTH502D0HSTDTR50342HSTRS 7F1D2F DS400094JJ502DCHSTRTS50490HSTSRS502FAHSTSRT503B6HSTTB 50366HSTUIL7F142F DS400095J$5066AHSWPWR502C2HTIMER50490HWUART7$F71AF DS400096D:  DS401HSR 01/25/85 23:29:20  SDSMAC 1.2.0 83.138DS400097DE PROPER CRU OPERATION AFTER THE CI401 ADDRESS@( 0918  * SELECTION HAS BEEN MADE.( 0919  * 0920  *CALL9 0921  *MOV BDS923HSRP*V})3L}@R#009C4DS923HSRA0000BF060BC060B8000B4000B3000B2000B1000B0F06B0C067F208F DS920001RR(B0800B0400B0300B0200B0100B0080B0040B0020B0010B000AB0008B0006B00047F26BF DS920002RN&B0002B0001B0000B0070A0034B8827B008CC0032B1419BC027B008EB07E7B00867F1ECF DS92N0003R(BDC05B0280B0090B1A02B0200B0020BC9C0B008EB05A7B008CB04A7B0092BC9E07F17CF DS920004RR(C006AB0092B1D13B022BB0002B045BB1004B1000BC2EBB0000B045BB8824B008C7F1B2F DS920005RD!C0032B14F9BC024B008EB07E4B0086BDC05B0280B0090B1A02B0200B0020BC9007DF1AEF DS920006R(B008EB05A4B008CB04A4B0092BC920C006AB0092B1D13B022BB0002B045BB1F1F7F17EF DS920007RR(B1301B0380B1F10B1616B1F12B13FBB04CAB360AB1F09B160CB1F0BB1602BE2A07F15DF DS920008R:C002CB1F0CB1602BE2A0C0026B1F0AB1602BE2A0C002AB1D12BC2EBB: 0000B045B7F159F DS920009R(B1F11B1622B8827B008CC0030B1319B1D13B1D19BC027B0090B07A7B0086BD2B07F193F DS920010RR(B07A7B0086B04A0B0010B1E19B0280B0090B1A02B0200B0020BC9C0B0090B06277F1DAF DS920011R0B008CB16C9BC2EBB0002B045BBC9E0C006CB0092B1E13B0$10C1B1F14B1636BC2A77F13AF DS920012$R(B008ABC00AB4020C000EB1F1BB1306B2420C000AB130DB4020C000AB1005B20207F1CEF DS920013RR(C000AB1307BE020C000AB22A0C0018B1602BE020C0018B1F1CB1306B2420C000C7F1CFF DS920014R&B130DB4020C000CB1005B2020C000CB1307B&.E020C000CB22A0C001AB1602BE0207F1E1F DS920015.R(C001AB1D15B49E0C0008B008ABE9C0B008AB2420C0016B13CBBC280BC2EBB00047F1%%5DF DS920016RR(B045BB1F13B1303BC2EBB0008B045BB07A7B0086B0620B0002B1103B1302B04607F1C7F DS920017R C02C0BC2A7B008ABC00AB4020C8000EB1F20B1306B2420C0004B130DB4020C00047F1C0F DS9200188R(B1005B2020C0004B1307BE020C0004B22A0C0012B1602BE020C0012B07E7B00867F20BF DS920019RR(B8820C0026B0012B1602B1F26B1001B1F22B1306B2420C001EB130DB4020C001E7F1EEF DS920020RB1005B2020C001EBB 1307BE020C001EB22A0C002AB1602BE020C002AB1F21B13067F1D4F DS920021BR(B2420C0006B130DB4020C0006B1005B2020C0006B1307BE020C0006B22A0C00147F226F DS920022RR(B1602BE020C0014B07E7B0086B8820C0024B0012B130FB1F17B1303B4020C00207F1F3F DS920023RB100ABL%49E0C002CB008ABE020C0020B22A0C002CB1602BE020C002CBC280B40207F1AEF DS920024LR(C000EB49E0C0002B008ABE9C0B008AB26A0C0010B1308B07E7B0086BC820C002E7F184F DS920025RR(B0002BC2EBB0004B045BB07E7B0086B07A7B0086BC820B0004B0002B07A7B00867F1A4F DS920026RT@R(BC2A0B0000B1309B07A7B0086B0620B0000B150BB1D14BC2EBB0006B045BBC2A77F18BF DS920027RR(B008AB26A0C0010B1602B1E14B1001B1D14B0460C00AABE9E0C0018B008AB10577F1ABF DS920028RN&B49E0C0018B008AB1053BE9E0C001AB008AB104FB49E0C001AB008AB104BB020A7F16FF DS92N0029R(C02F8B0460C040CBE9E0C0012B008AB1D14B1042C0532C02EEC02EEC02EEC05327F15EF DS920030RR(C02EEB020AC0312B10F0B49E0C0012B008AB1035C0532C030AC030AC030AC05327F1B4F DS920031RD!C030AB020AC032EB1074BE9E0C002AB008AB1D14B1027C0532C0324C0324C03247DF1B3F DS920032R(C0324C0324B020AC0348B1066B49E0C002AB008AB101AC0532C0340C0340C03407F1E6F DS920033RR(C0340C0340B07E7B0086B8820C0026B0012B1317BE9E0C0014B008AB1D14B10097F1CEF DS920034R:B07E7B0086B8820C0026B0012B130CB49E0C0014B008AB022BB0002B: 045BB07E77F1B2F DS920035R(B0086B8820C0024B0012B1602B0460C0532BE9E0C002CB008AB1D14B10F0B07E77F1B1F DS920036RR(B0086B8820C0024B0012B13F3B49E0C002CB008AB10E6B07E7B0086BC800B00007F1AFF DS920037R0B1D14B045BB1D20B102DB1E20B102BB07A7B0086BC2A0B0$0012B028AB000AB13027F197F DS920038$R(B1D10B1022B1D11B1D10B101FB07A7B0086BC2A0B0012B028AB000AB1302B1E107F1B0F DS920039RR(B1016B1E11B1E10B1013B1D22B1E22C0532C0418C0418C0532C0532C0418BC0207F1E0F DS920040R&C03F4B020AC03F8B07A7B0086BA2A0B0012B&.C29AB045AB0480B022BB0002B045B7F180F DS920041.R(BC020C03F6B10F1B1D21B1E21C0418C0418C0532C0532C0532C0532BC020C04267F1C7F DS920042RR(B020AC042AB10E6BC020C0428B10FAB1D25B1E25C0532C0418C0532C0418C05327F1A6F DS920043R C0532BC020C0446B020AC044AB810D6BC020C0448B10FAB1D0FB07E7B0086BE8207F16FF DS9200448R(C000AB0006B10D3B1E0FB07E7B0086B4820C000AB0006B10CCB1D11B1E11B1D177F189F DS920045RR(B1E17B07E7B0086BE820C000CB0006B07A7B0086BC2A0B0012B028AB000AB13037F19EF DS920046RBC020C0482B10B8BB C020C0486B10B5B07E7B0086B4820C000CB0006B07A7B00867F1AAF DS920047BR(BC2A0B0012B028AB000AB1303BC020C0484B10A6BC020C0488B10A3B1E13BC9E07F18BF DS920048RR(C006AB0092B07E7B0086BE820C0004B0006B109AB07E7B0086B4820C0004B00067F1CCF DS920049RB1D13BL%1093BC28BB06A0C08AEC0514B07E7B0086B4820C0006B0006B1D27B1D267F182F DS920050LR(B1D15B1D12B022AB0002B045ABC2AAB0000B045ABC28BB06A0C086AB06A0C08AE7F14EF DS920051RR(C0526B07E7B0086BE820C0006B0006B10EEBC2EBB0000B045BB1F1BB1303BC2EB7F155F DS920052RT@R(B0004B045BB022BB0006B045BB1F1CB13FBB10F7C0532C056AC056AC056AC05327F177F DS920053RR(C056AB020AC054EB07A7B0086BA2A0B0012BC29AB045AB1F20B13EAB10E6C05327F159F DS920054RN&C0582C0582C0582C0588C0582B020AC0570B10EEB1F22B13DEB10DAB1F26B13DB7F157F DS92N0055R(B10D7C05A0C05A0C05A0C05A0C0532C05A0B020AC058EB10DFB1F21B13CFB10CB7F147F DS920056RR(B07A7B0086BC2A0B0006B22A0C000AB13C7B10C3B07A7B0086BC2A0B0006B22A07F18CF DS920057RD!C0004B13BFB10BBB07A7B0086BC2A0B0006B22A0C0006B13B7B10B3B07A7B00867DF184F DS920058R(BC2A0B0006B22A0C000CB13AFB10ABB07A7B0086BC2A0B0012B028AB000AB16A77F16AF DS920059RR(B10A3B07A7B0086BC020B000CB045BB07A7B0086BC020B000EB045BB0200B000B7F1A4F DS920060R:B045BB0007B0008B0009B000AB0006B0030B020AC0610B07A7B0086B: A2A0B00127F1F3F DS920061R(BC01AB045BBFFFFB06B6B05D9B0583B055BB0504B04AEB02B6B015BB00E7B00AE7F104F DS920062RR(B0074B0056B003AB002BB001DBFFFFB0741B0638B05D1B05A1B0539B04D0B03417F185F DS920063R0B01A1B0116B00D0B008BB0068B0045B0034BFFFFB001AB0$FFFFB000DB07E7B00867F141F DS920064$R(BC800B0008B07A7B0086BC2A0B0012B028AB000AB134CB028AB0002B132EBC2807F19AF DS920065RR(B097AB024AB01FEB022AC062CB028AC064CB145DBC29AB115BB07E7B0086BC80A7F11EF DS920066R&B000ABC280B0A1AB024AB01FEB022AC062CB&.028AC064CB144EBC29AB114CB1D0C7F123F DS920067.R(B32CAB1E0CB07A7B0086BC2A0B000AB1D0BB32CAB1E0BB07E7B0086B07A7B00867F123F DS920068RR(BC820B0008B000CB022BB0002B045BBC280B097AB024AB01FEB022AC064CB028A7F175F DS920069R C0672B142FBC29AB112DB07E7B80086BC80AB000ABC280B0A1AB024AB01FEB022A7F135F DS9200708R(C064CB028AC0672B1420BC29AB111EB10D1B1E2FB1D2EB1D2DBC280B06CAB024A7F11FF DS920071RR(BFF00B0240BFF00B8280B1612B028AB0E00B1B0FB022CB0050B310AB022CBFFB07F156F DS920072RB1D2CB1E2CB10C5BB 07E7B0086BC800B0008B2020C000AB1602B0460C0532B07A77F19AF DS920073BR(B0086BC2A0B0012B028AB000AB1336B028AB0002B1603BC2A0C0012B1001B04CA7F1C4F DS920074RR(B2020C000CB1302BE2A0C000CB2020C0012B1602BE2A0C000AB2020C001EB16067F1E2F DS920075RB2020CL%001CB1608BE2A0C0006B1005B2020C001CB13DABE2A0C0004B2020C00207F1DCF DS920076LR(B1602BE2A0C0018B2020C0022B1602BE2A0C001AB1D0EB320AB1E0EB07E7B00867F18BF DS920077RR(B07A7B0086BC820B0008B000EB022BB0002B045BB04CAB2020C0012B1607B20207F1D3F DS920078RT@R(C000CB1302BE2A0C0022BE2A0C0020B2020C001EB1608B2020C001CB16B0BE2A07F1B9F DS920079RR(C001ABE2A0C001EB1007B2020C001CB13A8BE2A0C001ABE2A0C001CB2020C00207F1A0F DS920080RN&B1602BE2A0C002CB2020C0022B1602BE2A0C002EBE2A0C0012B04C0B1F1AB16017F1A2F DS92N0081R(B0700B1D0EB330AB1E0EB1D1EB1E1EB024AB0003B0A1AB022AC0858B07E7B00867F14CF DS920082RR(BC81AB0010B0740B13B9B1D10B1D1AB10B6B314AB318AB31CAB320AB1000BC28B7F15DF DS920083RD!B06A0C086AB101BB1D1FB1E27B1E26B1E25B1E22B1E21B1E20B045BB1000BC28B7DF148F DS920084R(B06A0C08AEC08A6B1D27B1D26B1D15B1D12B1F20B1603BE9E0C0004B008AB1F1B7F13DF DS920085RR(B1603BE9E0C000AB008AB022AB0002B045AB1000BC2AAB0000B045AB0200B00207F1C0F DS920086R:BC9C0B008EBC9C0B0090B04E7B008CBC9E0C006CB0092B04E7B008AB: 07A7B00867F134F DS920087R(B04E0B0006B07A7B0086B04E0B0000B07A7B0086B04E0B0002B0200B000DB07E77F1C9F DS920088RR(B0086BC800B0004B1F23B164CB1F12B1602BC2DBB045BB07E7B0086BC820C085E7F15EF DS920089R0B0010B1F24B1310B0200B000FB07E7B0086BC800B0004B0$0200BBA00B3200B1E0D7F1D0F DS920090$R(B0200B0034B3000B0200B0002B101AB0200BB200B3200B1E0DB0200B002BB30007F22EF DS920091RR(B028CB0580B1B03B0200B0006B100DB028CB1700B1303B0200B0004B1007B1F277F1F8F DS920092R&B1603B0200B0000B1002B0200B0008B07E7B&.0086BC800B0012B0200B0820B07E77F218F DS920093.R(B0086BC800B000EB0200B0E0EB07E7B0086BC800B000CB1D0DB0200BFFFFB32007F15EF DS920094RR(B1E0DB05CBB045BB0200B09B2B3300B1E0EB1D1EB1E1EB1F12B1602BC2DBB045B7F120F DS920095R B07E7B0086BC820C085CB0010B81E2FB1D2EB1D2DB0200B0E00B022CB0050B31007F183F DS92009686B022CBFFB0B1D2CB1E2CB0200B000AB10CB7F7D8F DS9200976J60000A21JMP60000A22JMP60000A23JMP502DEBDSCTS50304BDSDCD7F2C0F DS920098J6502CEBDSDSR5036ABDSRI 50532BDSSCT5033ABDSSDC5039CBDS6TSR7F1DEF DS920099J502D6BESCTS502E6BESDCD502C6BESDSR50354BESRI 50532BESSCT7F211F DS920100JJ5031EBESSDC50382BESTSR50860BMRST 500AABNOTIF50074BOUTP47F1F0F DS920101JD50034BOUTP750532BRDBIL505C6BRDCR 505B6BRDCTH50548BRDCTS7F22DF DSD920102J5055ABRDDCD50538BRDDSR5059ABRDRI 50532BRDSCT5057CBRDSDC7F222F DS920103JJ505E6BRDSSS505D6BRDTB 50860BRESET5060ABRPDAT50600BRPPSL7F1E2F DS920104JJ505F6BRPSPD5061CBRPTYP50440BRTAL 50532BRTBIL504F4BRTCR 7F1F8F DS920105J50H4E6BRTCTH503C0BRTDTR50460BRTRS 503DCBRTRTS50532BRTSRS7F186F DS920106HJ50420BRTSRT504AEBRTTB 50474BRTUIL50532BRUART5074CBSPPSL7F1A4F DS920107JJ50672BSPSPD50436BSTAL 50532BSTBIL5051ABSTCR 504D2BSTCTH7F221F DS920108J503BCBSTDTR50456:BSTRS 503C4BSTRTS50532BSTSRS50404BSTSRT7F177F DS920109:J5048ABSTTB 50466BSTUIL5087ABSWPWR503B0BTIMER50532BWUART7F1A5F DS920110JJ502DEHDSCTS50304HDSDCD502CEHDSDSR5036AHDSRI 50532HDSSCT7F1E2F DS920111J 5033AHDSSDC5039CHDSTSR502D6HES ,CTS502E6HESDCD502C6HESDSR7F1A7F DS920112,J50354HESRI 50532HESSCT5031EHESSDC50382HESTSR50860HMRST 7F210F DS920113JJ500AAHNOTIF50074HOUTP450034HOUTP750532HRDBIL505C6HRDCR 7F209F DS920114J.505B6HRDCTH50548HRDCTS5055AHRDDCD50538HRDDSR. 5059AHRDRI 7F1FAF DS920115J50532HRDSCT5057CHRDSDC505E6HRDSSS505D6HRDTB 505A6HRDUIL7F1C9F DS920116JJ50860HRESET5060AHRPDAT50600HRPPSL505F6HRPSPD5061CHRPTYP7F17BF DS920117J<50440HRTAL 50532HRTBIL504F4HRTCR 504E6HRTCTH503C0HRTDTR7F1<F3F DS920118J50460HRTRS 503DCHRTRTS50532HRTSRS50420HRTSRT504AEHRTTB 7F187F DS920119JJ50474HRTUIL50532HRUART5074CHSPPSL50672HSPSPD50436HSTAL 7F1B7F DS920120JJ50532HSTBIL5051AHSTCR 504D2HSTCTH503BCHSTDTR50456HSTRS 7F1C9F DS920121JJ503C4HSTRTS50532HSTSRS50404HSTSRT5048AHSTTB 50466HSTUIL7F172F DS920122J45087AHSWPWR503B0HTIMER50532HWUART7F71CF DS9201234D:  DS923HSR 01/25/85 23:33:56  SDSMAC 1.2.0 83.138DS920124DB2 13C7 JEQ HRD101  YES - TAKE JUMP4!EOD EOD ?NAMMGR D W}}OBJECT D PW %%PP}!} NMPREP PWYZD4s}@L 00318NMPREP M0006$DATA 0000M0010NFER000001M0010NFER2000027F2D3FNMPR0001LN!M0010NFER400003M0010NFERB00004M0072NFPTR 0005M0192NFDATA00067F1E8FNMPR0002NN!M00DANFCLKD0007M0044NFWORD0008M0004NMCOMN0009M0070PMDATA000A7F133FNMPR0003NP000N!00001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000002B20217F26DF NMPR0004NR#B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000003B4041B4243B4445B46477F1E7FNMPR0005RR#B4849B4A4BB4C4DB4E4FP00000004BB0B1BB2B3BB4B5BB6B7BB8B9BBABBBBCBD7F0C6FNMPR0006RN!BBEBFP00000005P00020005P00040005P00060005P00080005P000A00057F355F NMPR0007NR#P000C0005P000E0005P00100005P00120005P00140005P00160005P001800057F2B5F NMPR0008RR#P001A0005P001C0005P001E0005P00200005P00220005P00240005P002600057F2A6F NMPR0009R@R#P00280005P002A0005P002C0005P002E0005P00300005P00320005P003400057F29EF NMPR0010RR#P00360005P00380005P003A0005P003C0005P003E0005P00400005P004200057F296F NMPR0011RN#P00440005P00460005P00480005P004A0005P004C0005P004E0005P005000057F28EF NMPRN0012R#P00520005P00540005P00560005P00580005P005A0005P005C0005P005E00057F286F NMPR0013RR#P00600005P00620005P00640005P00660005P00680005P006A0005P006C00057F294F NMPR0014RD!P006E0005P00700005P00000006P00020006P00040006P00060006P000800067F2DBBF NMPR0015N!P000A0006P000C0006P000E0006P00100006B000FP00120006P001600067F369F NMPR0016NN!P00180006P00180006P001A0006P001C0006B0000P001E0006P002000067F373F NMPR0017NB P00220006P00240006P00260006P00280006P002A0006P002C0006P003400067BF2A4F NMPR0018R#P00360006P00380006P003A0006P003C0006P003E0006P00400006P004200067F28FF NMPR0019RR#P00440006P00460006P00480006P004A0006P004C0006P004E0006P005000067F287F NMPR0020R8P00520006P00540006P00560006P00580006P005A0006P005C00068P005E00067F27FF NMPR0021R#P00600006P00620006P00640006P00660006P00680006P006A0006P006C00067F28DF NMPR0022RR#P006E0006P00700006P00720006P00740006P00760006P00780006P007A00067F285F NMPR0023R.P007A0006P007C0006P007E0006P00800006P0082000.& 6P00840006P008600067F275F NMPR0024&R#P00880006P008A0006P008C0006P008E0006P00900006P00920006P009400067F26DF NMPR0025RN!P00960006P00980006P009A0006P009C0006P009E0006P00AC0006B00807F323F NMPR0026N(P00AE0006P00B20006P00B60006P00BA0006P0(,0BE0006P00C00006P00C200067F22BF NMPR0027,R#P00C40006P00C60006P00C80006P00CA0006P00CC0006P00CE0006P00D000067F21EF NMPR0028RR#P00D20006P00D40006P00D60006P00D80006P00DA0006P00DC0006P00DE00067F216F NMPR0029RP00E00006P00E80006P00F00006P600F80006P00FA0006P00FC0006P00FE00067F20EF NMPR00306R#P01000006P01020006P01040006P01060006P010C0006P010E0006P011600067F2ADF NMPR0031RR#P01180006P011A0006P011C0006P011E0006P01200006P01220006P012400067F297F NMPR0032R P01280006P012C0006@P012C0006P012E0006P01300006P01320006P013400067F28EF NMPR0033@R#P01880006P018A0006P018C0006P018E0006P01900006P00000007B0007B00007F24AFNMPR0034RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF NMPR0035R B0000B00 J$00B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF NMPR0036JR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF NMPR0037RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF NMPR0038R NV@R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF NMPR0039RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF NMPR0040RN&B0000B0000B0000B0000B003CB0018B016DB0000B0000B0000B0001B0000B00007F274F NMPRN0041R(B0000B6800B0000B0000B0000B0000B0006BFE01B7F80B0000B1FE0B0000B00007F21EF NMPR0042RR#B0000B0000B0000P00000008B0003B0005B0006B0007B0009B000AB000CB000D7F285FNMPR0043RD!B000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B10007DF19BF NMPR0044R(B0800B0400B0200B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE007F257F NMPR0045RP"P00000009P00020009P0000000AB0000B0000B0000B0000B0000B0000B00007F326FNMPR0046P<B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00< 00B00007F2AFF NMPR0047R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF NMPR0048RR#B0000B0000B0000B0000B0000B0000B0000B0000B0200B0002B092EP0058000A7F2A1FNMPR0049R2P0060000AB092EB5324B5348B4152B4544B0000B0000B0002" 0A0000B1800C00187F25BFNMPR0050"R(C000CB001CB0E00B0000B0000B0301B0A04B0000S0000B0000B0000B0000A00147F244F NMPR0051RR#B0000B0043B05A0N00880007BC241BC2E040000NAMMAPE00000002B1624BC0607F1DAFNMPR0052R(N0034000AB0202B8400B0203C0014B06A0B000(,0C0062BC821B0010T0002B68207F24FFNMPR0053,R#N00980006T0002BC802T0004BC2E0N001C0005BC320B0000BCF3BBCF3BBCF1B7F1AAF NMPR0054RR(B05CCBC062B0012B0221BC000B0501BC701BC069BFFFCB06A0B0000BFFFFBCA697F114F NMPR0055RB0004B0016BCA69B0006B0018BCA669B0008B001ABDA64B000EB000FBDA64B000D7F178F NMPR00566R(B000EB04E9B0014BC049B0221B0004B04F1B04F1B04D1BD229B0002B0988B02887F1ADF NMPR0057RR#B000FB1B3EB0288B000AB160CBC2E0N00120005BC2EBB0098B1336BC049B02217F1B6FNMPR0058R BFFEEB2E83BFFFFB04@60B0000B0288B000BB132CBD2E9B0003B22E0N002800087F16CFNMPR0059@R#B131CB22E0N002A0008B1626B04C1B04C2BC0C9B0223B000CBC2D3B1602B04607F1D1FNMPR0060RR(C027CB06A0C0032C027CBCA41B0010BCA42B0012BC069BFFFCB06A0C0068BFFFF7F10CF NMPR0061R BDA60N00 H000001B000FB101EBDA60N00000001B000FBCA60N00000009B00107F282FNMPR0062HR#BCA60N00020009B0012B130CB1013B0460C026EBC2E0N00120005BCA6BB00987F220F NMPR0063RR(B0010BCA6BB009AB0012B1608B0288B000DB1305B0288B000FB1302B0460C027C7F1C2F NMPR0064RR(BD2E8C0308B1331BC320C004CBC2E9B0010B132CB028BBFFFFB1329B04C0BC06B7F126F NMPR0065RR#B0010B6060N00980006BC0A9B0012B0780BD2E2B0018B0A8BB171DB0780BC0E27F1CBFNMPR0066RN#B0010B60E0N00980006BCB03B0006BC060T0004B07A0T0000BD2E1B0018B0A8B7F1CBFNMPRN0067R#B170EB07A0T0000BC061B0010B0221BFA00BCB01B000ABC2E0N00120005B079C7F1CBFNMPR0068RR(BD2EBB000FB1301B04CCBD1E8C02D8B1314BC0A9B0016B1311B06A0C028CC02547F158F NMPR0069RD!BC2C3BD05BB0981BA2C1B981BN00000002B1605B74E0N00010001B060BB80CB7F1DF3F NMPR0070R(B16F8BCA43B0004BD1E8C02E8B130ABC0A9B0018B1307B06A0C028CC0254BCA437F147F NMPR0071RR(B0006BDA46B0014BD1E8C02F8B130EBD2E9B0003B1101B100ABC0A9B001AB13077F173F NMPR0072R:B06A0C028CC0254BCA43B0008BDA46B0015BC30CB1304B06A0B0000B: 0460C00C27F19EF NMPR0073R(B0201B0000BC089B0642B0288B000EB1303B0288B000FB1602B0201B0000B06A07F203F NMPR0074RR#B0000BFFFFBC069BFFFABD860N00030003B0009B0460B0000BC080BC069B00047F19CFNMPR0075R0B1302B2E83BFFFFBC069B0006B1302B2E83BFFFFBC002B0$ 1002BD020N000200017F18CFNMPR0076$R#BDA40B0001BC049B0460B0000BC069BFFFCB06A0C0100BFFFFBD020N000800047F187FNMPR0077RR(B10E4BCE8BB04C0B0203B0002B2E82C02CAB0795BD192BD1C7B111ABD0C6B09837F134F NMPR0078R&B0583B2E82C02CABC043BCE82B04C2BC30CB&.1601B0702B2E84C02CCBC001BC0C27F130F NMPR0079.R#B064ABC05AB0795BDCB1B0600B16FCB2EC0BD020N000D0001B064AB10FBB04C37F169FNMPR0080RR(B10F9B0101B0101B0101B0100B0100B0000B0000B0101BFFFFB0101B00FFB00007F1FFF NMPR0081R B00FFB0000B0000B0000BFF00B80100B00FFB0000B0000B0000B0000B0000B01017F228F NMPR008286B0000B0001B0000B0000B0000B0000B00007F8BAF NMPR00836J 40000ASSUME40000GTA 30150NAMMAP40000NFGTA 30242NFQUEH7F2DEF NMPR0084J640000NFRTA 30252NFSRTN30226NFTRTN3000CNMPOST50018NMP6REP7F1D3F NMPR0085J3022ANMRQUE30222NMTRAN50000RDBS433027ARPRTNE40000RPSGCK7F1F3F NMPR0086JJ40000RTA 40000SGCK300EESMFSID30282SMMJCA40000SPOP 7F31FF NMPR0087J440000SPUSH 3023ESRQUE 40000TRTN 7F7E9F NMPR00884 :  NMPRE :P  01/26/85 08:11:32  SDSMAC 1.2.0 83.138NMPR0089:PRE138NOT YET, JUMP *D* &PRE139 EVEN *D* 6 MOVR3,@NRBNAM(R9)BUFFERED COPY OF NAME STRING 64 PRE140 MOVB @VALTAB(R8),R7 VALUE BUFFERING FLAG4 JEQPRE1NMPOST PWx4s0} @P"000B4NMPOST M0044NFWORD0001M0010NFER000002P00000001B0003B00057F1C4FNMPO0001PR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F NMPO0002RP'BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF NMPO00P03R#B0010B0008B0004B0002B0001BFE00P00000002B0001B0203B0405B0607B08097F279FNMPO0004RR(B0A0BB0C0DB0E0FA0000BCE8BB04C0BC242BC129BFFFABC144B0225B0050B98297F10FF NMPO0005RF B0002N00090002B1317B9829B0002N00050002B1307B1B18B9829B00027F39AFNMFPO0006R#N00010002B130EB1B13B1006BC0A9B0016BC329B0004B06A0C0076BC0A9B001A7F1EEFNMPO0007RR(BC329B0008B06A0C0076BC0A9B0018BC329B0006B06A0C0076BC069B0004B13027F1B3F NMPO0008RB B2E83BFFFFBC069B0006B1302B2E83BFFFFBC069B0008B1302B2E83BFFFFBC08B97F0BFF NMPO0009R(B04C0B2EC0BC20BBC30CB1315BD0DCB0983B0583B2E82C00A8B2E81C00A8B20A07F12DF NMPO0010RR#N00400001B1307B0603B1305B07D5BCCBCB0643B15FCB1104B07D5BDCBCB06037F1A1FNMPO0011R8B15FCB0458BC329BFFF8B07D5BDB00B0001B04587F6B6F NMPO00812J40000NFRTA 50000NMPOST40000PRCK 40000RPPRCK40000RPSGCK7F27CF NMPO0013J>40000RTA 40000SGCK40000SPOP 40000SPUSH 7F615F NMPO0014>D:  NMPOST  01/26/85 08:10%%:44  SDSMAC 1.2.0 83.138NMPO0015D A CONCATENATED FILE OR WEEOD EOD DSEGMGR D W}}$}"OBJECT D &W&&}I}#SMEXCU PW4}%L 000BASMEXCU M0010NFER000001M0010NFERC00002M0010NFERF000037F267FSMEX0001LR#M0072NFPTR 0004P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F1C2FSMEX0002RR#P00000002BC0C1BC2C3BC4C5BC6C7BC8C9BCACBBCCCDBCECFP00000003BF0F17F113F SMEX0003RT@P"BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP00000004P00020004P000400047F164FSMEX0004PR#P00060004P00080004P000A0004P000C0004P000E0004P00100004P001200047F2B2F SMEX0005RP#P00140004P00160004P00180004P001A0004P001C0004P001E0004P002000047F2AAF SMEX00P06R#P00220004P00240004P00260004P00280004P002A0004P002C0004P002E00047F2A2F SMEX0007RR#P00300004P00320004P00340004P00360004P00380004P003A0004P003C00047F2B0F SMEX0008RF"P003E0004P00400004P00420004P00440004P00460004P00480004P004A00047F2A8FF SMEX0009R#P004C0004P004E0004P00500004P00520004P00540004P00560004P005800047F2A0F SMEX0010RR#P005A0004P005C0004P005E0004P00600004P00620004P00640004P006600047F291F SMEX0011R<P00680004P006A0004P006C0004P006E0004P00700004A0000BCE8BBD0<207F2E8FSMEX0012N!N000B0003BC186B1357BC0E9BFFFAB04C4B0784BC067B001EB130EBD0207F289F SMEX0013NN!N000D0003B0784B80E1B0002B164AB0784B8A61B0000BFFFCB1645BD0207F2D3F SMEX0014N>N00090003B1042BC046BC087BC103BC0E9BFFFCB06A0B0000B0000BC000B>13037F1C5FSMEX0015R#BD020N000D0003B1035B0201B0006B0702B2E84C00B4BC4A4B0064BC902B00647F205FSMEX0016RR#BC887B0002BC886B0004BC060N001C0004BC221B0006BC845B0006B0321B02017F20AFSMEX0017R4B0004B0702B2E84C0098B69A2BFFFEB0002BC9C2B001EBC8A94 BFFFAB0002BC4A97F0F0F SMEX0018 R#BFFFCB04C0B1010BC060N001C0004BC848B0006B0321BC064B0064BC911B00647F1C4FSMEX0019RBB2E83BFFFFBD020N00090002B1002BD020N000D0001B2EC07F52EF SMEX0020B: 40000ASSUME40000GTA 40000NFGTA 40000NFRTA 40000RTA 7:F389F SMEX0021J40000SCALL 30040SMCHUC50000SMEXCU40000SPOP 40000SPUSH 7F2A5F SMEX0022JD:  SMEXCU  01/26/85 14:28:33  SDSMAC 1.2.0 83.138SMEX0023D002P011A0002P011C0002P011E0002P012000027F2A1F SMDS0027FR#P01220002P012400SMSREU P W<4}&R#0002ASMSREU M0192NFDATA0001P00000001P00020001P00040001P000600017F1CFFSMSR0001RN!P00080001P000A0001P000C0001P000E0001P00100001B000FP001200017F386F SMSR0002NN!P00160001P00180001P00180001P001A0001P001C0001B0000P001E00017F38CF SMSR0003NR@R#P00200001P00220001P00240001P00260001P00280001P002A0001P002C00017F2CCF SMSR0004RR#P00340001P00360001P00380001P003A0001P003C0001P003E0001P004000017F2B1F SMSR0005RN#P00420001P00440001P00460001P00480001P004A0001P004C0001P004E00017F2A9F SMSRN0006R#P00500001P00520001P00540001P00560001P00580001P005A0001P005C00017F2B7F SMSR0007RR#P005E0001P00600001P00620001P00640001P00660001P00680001P006A00017F2AFF SMSR0008RD!P006C0001P006E0001P00700001P00720001P00740001P00760001P007800017F2DA7F SMSR0009R#P007A0001P007A0001P007C0001P007E0001P00800001P00820001P008400017F28EF SMSR0010RR#P00860001P00880001P008A0001P008C0001P008E0001P00900001P009200017F28FF SMSR0011R:P00940001P00960001P00980001P009A0001P009C0001P009E0001P0:0AC00017F26DF SMSR0012N!B0080P00AE0001P00B20001P00B60001P00BA0001P00BE0001P00C000017F32AF SMSR0013NR#P00C20001P00C40001P00C60001P00C80001P00CA0001P00CC0001P00CE00017F240F SMSR0014R4P00D00001P00D20001P00D40001P00D60001P00D80001P00DA4 0001P00DC00017F24EF SMSR0015 R#P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA0001P00FC00017F233F SMSR0016RR#P00FE0001P01000001P01020001P01040001P01060001P010C0001P010E00017F2ADF SMSR0017R*P01160001P01180001P011A0001P011C0001P011**E0001P01200001P012200017F2B9F SMSR0018*R#P01240001P01280001P012C0001P012C0001P012E0001P01300001P013200017F2B2F SMSR0019RR#P01340001P01880001P018A0001P018C0001P018E0001P01900001A0000BCE8B7F227FSMSR0020R BC184BC1C5BC164B0010B6160N0098 40001BC2E9B0004B0A9BB1704B06A0B00007F1D5FSMSR00214:B0000B1003B06A0B0000B0000BC106BC147B2EC07F73BF SMSR0022:J40000SCALL 30018SMEXCU30020SMREXC50000SMSREU40000SPOP 7F264F SMSR0023J 40000SPUSH 7FD22F SMSR0024:  SMSREU  01/226/85 14:50:09  SDSMAC 1.2.0 83.138SMSR00252/- 16 TO +/- 0 OR INDICATE TO COMPUTE A MAXIMUM :4*  ALLOWABLE TASK PRIORITY FROM JOB PRIORITY. 4*  ALLOWABLE VALUES ARE:<*  0 = MODIFY TASK PRIORITY BY +/- 64 BASED ON JSMFLSH PW7b4~}(L 001BASMFLSH M0072NFPTR 0001M0192NFDATA0002M0044NFWORD00037F1F6FSMFL0001LR#P00000001P00020001P00040001P00060001P00080001P000A0001P000C00017F2DAF SMFL0002RR#P000E0001P00100001P00120001P00140001P00160001P00180001P001A00017F2D2F SMFL0003RT@R#P001C0001P001E0001P00200001P00220001P00240001P00260001P002800017F2CAF SMFL0004RR#P002A0001P002C0001P002E0001P00300001P00320001P00340001P003600017F2BBF SMFL0005RN#P00380001P003A0001P003C0001P003E0001P00400001P00420001P004400017F2B3F SMFLN0006R#P00460001P00480001P004A0001P004C0001P004E0001P00500001P005200017F2ABF SMFL0007RR#P00540001P00560001P00580001P005A0001P005C0001P005E0001P006000017F2A3F SMFL0008RD!P00620001P00640001P00660001P00680001P006A0001P006C0001P006E00017F2D9BF SMFL0009R#P00700001P00000002P00020002P00040002P00060002P00080002P000A00027F2E0F SMFL0010RN!P000C0002P000E0002P00100002B000FP00120002P00160002P001800027F389F SMFL0011N>P00180002P001A0002P001C0002B0000P001E0002P00200002P002200027>F390F SMFL0012R#P00240002P00260002P00280002P002A0002P002C0002P00340002P003600027F2BBF SMFL0013RR#P00380002P003A0002P003C0002P003E0002P00400002P00420002P004400027F2ACF SMFL0014R8P00460002P00480002P004A0002P004C0002P004E0002P005000028P005200027F2A4F SMFL0015R#P00540002P00560002P00580002P005A0002P005C0002P005E0002P006000027F29CF SMFL0016RR#P00620002P00640002P00660002P00680002P006A0002P006C0002P006E00027F294F SMFL0017R.P00700002P00720002P00740002P00760002P0078000.& 2P007A0002P007A00027F2A4F SMFL0018&R#P007C0002P007E0002P00800002P00820002P00840002P00860002P008800027F299F SMFL0019RR#P008A0002P008C0002P008E0002P00900002P00920002P00940002P009600027F28AF SMFL0020R$P00980002P009A0002P009C0002P009E00$,02P00AC0002B0080P00AE00027F324F SMFL0021,R#P00B20002P00B60002P00BA0002P00BE0002P00C00002P00C20002P00C400027F256F SMFL0022RR#P00C60002P00C80002P00CA0002P00CC0002P00CE0002P00D00002P00D200027F23BF SMFL0023RP00D40002P00D60002P00D80002P600DA0002P00DC0002P00DE0002P00E000027F233F SMFL00246R#P00E80002P00F00002P00F80002P00FA0002P00FC0002P00FE0002P010000027F23EF SMFL0025RR#P01020002P01040002P01060002P010C0002P010E0002P01160002P011800027F2C0F SMFL0026R P011A0002P011C0002@P011E0002P01200002P01220002P01240002P012800027F2B2F SMFL0027@R#P012C0002P012C0002P012E0002P01300002P01320002P01340002P018800027F2A4F SMFL0028RR(P018A0002P018C0002P018E0002P01900002P00000003B0003B0005B0006B00077F233F SMFL0029R B0009B00 J$0AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFF7F169F SMFL0030JR(B8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B00087F27AF SMFL0031RR(B0004B0002B0001BFE00A0000B2F09BC082B1304BC1A2B000EBC1E2B0010B02017F1CDF SMFL0032R11V@R#B0014B04C2B2E84B0000BC102B0224B000CBCD20N00040001BCD20N000600017F24BF SMFL0033RR#B04F4B04D4B04DABCAA6B0010B0002B6AA0N00980002B0002B079ABC227B00207F1C6FSMFL0034RN&B0248BC000B1303B1502B0A18B1304B079ABD227B0015B09E8BC16ABFFFCB16017F169F SMFLN0035R(B0708B079ABC167B001EB079ABC0E7B001CB1602B0460C018ABC045B06A0B00007F183F SMFL0036RR(BFFFFBC083B0222B0006B05A0B0000BC092B1372BD2E2B0018B0B9BB17FABC0627F13FF SMFL0037RD!B0010B0601BC208B160AB0780B8AA0B0002BFFFCB16F0B0780B8AA0B000ABFFFE7DF124F SMFL0038R#B16EBB04DABCAA6B0010B0002B6AA0N00980002B0002B04EAB0004BC26ABFFFC7F164FSMFL0039RR(B131DBC26ABFFFAB161DB079ABC267B0018B1316B079ABC259B1313B079AB8AA97F104F SMFL0040R:B0004BFFFCB1605B079AB8AA9B0006BFFFEB13F3B079ABCAA9B0004B: 0004B079A7F0F4F SMFL0041R#BCAA9B0006B0006B1003BF8A0N002C0003B0018B0B1BB1815BC2EAB0004B130A7F1BFFSMFL0042RR(B07C0BC82AB0004B0002B07C0BC82AB0006B000ABC092B10B1BCE92BC045B06A07F16AF SMFL0043R0B0000BFFFFB064ABC09AB10A9B0780BD2E0B0016B1110B0$07C0BC804B0012B07C07F15AF SMFL0044$R#BF820N00220003B0016BC081B0201B0000B06A0B0000BFFFFB2FE0C0164B108F7F1D1FSMFL0045RR(B06A0B0000B2FE0C0160B108AB0200B0002B0600B06A0C0158BC163B0002BC0E37F1CFF SMFL0046R&B0004B1302B0460C006CBC06ABFFFAB1606B&.02A2B0222B000CB06A0B0000BFFFF7F15AF SMFL0047.R#BC066B0010B6060N00980002B0780BC1E7B0016B1302B0460C002ABC06ABFFFE7F1BBFSMFL0048RN!B06A0B0000BFFFFBC0D4BC044B0221BFFEEB2E83BFFFFBC003B0A80B2EC97F1C5FSMFL0049N 40000ASSUME40000ENAB40000GTA * 40000INHB 30168NFENAB7F38CF SMFL0050*J40000NFG%%TA 30016NFPWOT3014CNFQOVB40000NFRTA 3007CNOSCHD7F23BF SMFL0051JJ40000RTA 30186SMDSGB30124SMDSSB50000SMFLSH301A4SMMJCA7F280F SMFL0052J0 30070SMMTBL40000SPOP 40000SPUSH 30148WRTQUE7F04FBF SMFL0053D:  SMFLSH  01/26/85 14:30:58  SDSMAC 1.2.0 83.138SMFL0054DAME" ," $XMA$OP= "&OPTIONS", % $$ML = "&MACRO LIBRARY PATHNAME" %= .IF "@$XMA$L", EQ, "@$XMA$E"  !! LISTING & ERRORS MUST =MSG T=SMRSVE PW4^}*@P"0004ESMRSVE M0072NFPTR 0001M0010NFER000002P00000001P000200017F220F SMRS0001PR#P00040001P00060001P00080001P000A0001P000C0001P000E0001P001000017F2C6F SMRS0002RP#P00120001P00140001P00160001P00180001P001A0001P001C0001P001E00017F2BEF SMRS00P03R#P00200001P00220001P00240001P00260001P00280001P002A0001P002C00017F2CCF SMRS0004RR#P002E0001P00300001P00320001P00340001P00360001P00380001P003A00017F2C4F SMRS0005RF"P003C0001P003E0001P00400001P00420001P00440001P00460001P004800017F2BCFF SMRS0006R#P004A0001P004C0001P004E0001P00500001P00520001P00540001P005600017F2ADF SMRS0007RR#P00580001P005A0001P005C0001P005E0001P00600001P00620001P006400017F2A5F SMRS0008R<P00660001P00680001P006A0001P006C0001P006E0001P00700001P000<000027F2A5F SMRS0009N!B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FA0000BCE8BB04C0BC0E07F28FFSMRS0010NR#N00120001B0223B009CBC093B130ABC0C2B0201B0008B05C2BC012B130CB8CB27F1E1FSMRS0011R6B0601B16FBB10F4B0201B0024B0702B2E85C0048BC4C2BC0C2B065C2BCC87BCC867F144F SMRS0012R#BB8E0N00010002B0023BC045B0780B05A7B000AB1002BD020N000D0002B2EC07F232F SMRS0013RJ 40000ASSUME40000GTA040000NFGTA050000SMRSVE40000SPOP 7F2E8F SMRS0014J4:  SMRSVE  01/26/85 14:48:20  SDSMAC 1.2.0 483.138SMRS0015 SEGMENTH 0044 0010 7 0109 0046 0601 DEC R1  POINT TO OVERHEAD BEET 79 0110 0048 0780 LDS R0  DECREMENT TASK IN MEMORY 9( 0111 004A 0620 DEC @OVBTIM TAS(LAG OPTEXF FILE EXTENSION CAPAB SMLSTP PW4}+R#00018SMLSTP A0000B020CB000CBA301B022CBFFFCBC02CB0044B13FBB63017F18BF SMLS0001R" B04C0B046BB00027FC8EF SMLS0002" 50000SMLSTP7FCF1F SMLS0003D:  SMLSTP  01/26/85 14:38:26  SDSMAC 1.2.0 83.138SMLS0004D85. /  $TOS$ 4 SMCHGS PWS4ə}-@L 003D8SMCHGS M0192NFDATA0001M0010NFER000002M0010NFER2000037F274FSMCH0001LN!M0010NFER400004M0010NFERC00005M0010NFERE00006M0072NFPTR 00077F1FCFSMCH0002NN!M0044NFWORD0008P00000001P00020001P00040001P00060001P000800017F2F3FSMCH0003NP000JA0001P000C0001P000E0001P00100001B000FP00120001P001600017F387F SMCH0004JN!P00180001P00180001P001A0001P001C0001B0000P001E0001P002000017F391F SMCH0005NR#P00220001P00240001P00260001P00280001P002A0001P002C0001P003400017F2C7F SMCH0006RP0P"0360001P00380001P003A0001P003C0001P003E0001P00400001P004200017F2B2F SMCH0007PR#P00440001P00460001P00480001P004A0001P004C0001P004E0001P005000017F2AAF SMCH0008RP#P00520001P00540001P00560001P00580001P005A0001P005C0001P005E00017F2A2F SMCH00P09R#P00600001P00620001P00640001P00660001P00680001P006A0001P006C00017F2B0F SMCH0010RR#P006E0001P00700001P00720001P00740001P00760001P00780001P007A00017F2A8F SMCH0011RF"P007A0001P007C0001P007E0001P00800001P00820001P00840001P008600017F298FF SMCH0012R#P00880001P008A0001P008C0001P008E0001P00900001P00920001P009400017F290F SMCH0013RN!P00960001P00980001P009A0001P009C0001P009E0001P00AC0001B00807F341F SMCH0014N@P00AE0001P00B20001P00B60001P00BA0001P00BE0001P00C00001P00C2000@17F24EF SMCH0015R#P00C40001P00C60001P00C80001P00CA0001P00CC0001P00CE0001P00D000017F241F SMCH0016RR#P00D20001P00D40001P00D60001P00D80001P00DA0001P00DC0001P00DE00017F239F SMCH0017R6P00E00001P00E80001P00F00001P00F80001P00FA0001P00FC006 01P00FE00017F231F SMCH0018R#P01000001P01020001P01040001P01060001P010C0001P010E0001P011600017F2D0F SMCH0019RR#P01180001P011A0001P011C0001P011E0001P01200001P01220001P012400017F2BAF SMCH0020R,P01280001P012C0001P012C0001P012E0001P01300,(001P01320001P013400017F2B1F SMCH0021(R#P01880001P018A0001P018C0001P018E0001P01900001P00000002B0001B02037F269FSMCH0022RR#B0405B0607B0809B0A0BB0C0DB0E0FP00000003B2021B2223B2425B2627B28297F203FSMCH0023R"B2A2BB2C2DB2E2FP00000004B4041B42"243B4445B4647B4849B4A4BB4C4DB4E4F7F17CFSMCH00242R#P00000005BC0C1BC2C3BC4C5BC6C7BC8C9BCACBBCCCDBCECFP00000006BE0E17F10FF SMCH0025RP"BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP00000007P00020007P000400077F169FSMCH0026P P00060007P00080007P000A0:007P000C0007P000E0007P00100007P001200077F29DF SMCH0027:R#P00140007P00160007P00180007P001A0007P001C0007P001E0007P002000077F295F SMCH0028RR#P00220007P00240007P00260007P00280007P002A0007P002C0007P002E00077F28DF SMCH0029RP00300007P0032D0007P00340007P00360007P00380007P003A0007P003C00077F29BF SMCH0030DR#P003E0007P00400007P00420007P00440007P00460007P00480007P004A00077F293F SMCH0031RR#P004C0007P004E0007P00500007P00520007P00540007P00560007P005800077F28BF SMCH0032RP005N!A0007P005C0007P005E0007P00600007P00620007P00640007P006600077F27CF SMCH0033NR#P00680007P006A0007P006C0007P006E0007P00700007P00000008B0003B00057F252FSMCH0034RR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F SMCH0035R@R(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF SMCH0036RR#B0010B0008B0004B0002B0001BFE00A0000BCE8BBC060N001C0007BCEA1B00067F1F5FSMCH0037RN#BC069BFFFABCEA1B005EBC2E0N00D80001B1610BC1E9BFFF4B1308BC1E7B00127F116FSMCHN0038L B21E0N00220008B1303BD020N000E0006B101ABC2E1B005EB1302B06207F35BFSMCH0039LR#N00CE0001B04FAB073AB2620N002A0008B1612B0248B0003B130BB0608B0A287F22DF SMCH0040RJ#BC308B1321BA201BC0A8B0044B161DBC0A8B0040B1612BD020N00090002B04607F1F7FJ SMCH0041 R#C018CB8829B000AN00200008B1612B06A0B0000BFFFFBD020N00030003B028C7F216F SMCH0042RR(B0008B14F2B022CB0004B04E0C03D6B05A0C03D6B04C4B04C5B0460C0242BC2297F19AF SMCH0043R@B0004B0A28B1102B056ABFFFEB1802B056ABFFFCB06A0B0000C018CB0A68B1@ 7097F139F SMCH0044R#B06A0B0000C018CBC2E0N001C0007BCAEABFFF8B0006B032BB0700B8029B00067F19BFSMCH0045RR(B1674B8029B0008B1671BC2E9B0004B0A4BB176DBC069BFFFAB06A0C0070BFFFF7F107F SMCH0046R6BD020N00040002BC18CB1352BA301BC16CB0044BC12CB0046BC06 44B1304BC0647F1D2FSMCH0047R#B0010B6060N00980001BC2E9B0004B26E0N002A0008B1606B024BB0003B060B7F24DF SMCH0048RR#B0A2BB818BB1004B0780B8A65B0006B000AB1637BD020N00060002B06C6BC2E97F1CDFSMCH0049R,BFFFAB91ABB0018B132FBC2ECB004CB050BBD020N0,(0050004B8A4BBFFF8B12277F131FSMCH0050(R(B072CB0050B04ECB0044BC329BFFFAB04C0B0780BC1A5B0012B0226B001FB09567F15EF SMCH0051RR(B6B06B005CB0780BC2E5B0008B0A3BB1803B0586B6B06B005EBC2E9BFFF8B07AC7F10EF SMCH0052R"B0050B072BB000AB0780B0625B000CBC"20AABFFFCBC0EABFFFEB06A0B0000BFFFF7F0C6F SMCH00532R#B022ABFFF8BC060N001C0007BC85AB0006B0321BC2E0N00D80001B1607BC0697F1D4F SMCH0054RR#BFFFABC2E1B005EB1302B05A0N00CE0001B2EC0B1027B04C0BCA62B0012B000E7F179FSMCH0055R BCA62B0006B000ABC060N0<01C0007BC86ABFFF8B0006B0321BC160N000400077F1F7F SMCH0056<R(B0225B0050BC069BFFF8B07D5BC869B000AB000ABC2CCB1306BA2C5BC2EBBFFFC7F0C8F SMCH0057RR(B024BBFFE0B050BB07D5BC84BB000CB07D5BC869B000EB000EB10C6BC084B13047F126F SMCH0058RBC0A4B0010B6F0A0N00980001B04C1B0781BC025B0012B0220B003FB0950B07817F213FSMCH0059FN!BC2E5B0008B0A3BB1802B6A80BFFFABC800C03D6B06CCBC069BFFFABD0207F1E7FSMCH0060NR#N00060002B9321B0018B13A8BD84CB001BB06CCBC069B0012B1303BC049B02217F1E5FSMCH0061RB0012BL%C0A9B0004BC0C9B0223B0006BC1E9BFFFCBC229BFFFAB06A0B0000C018C7F111F SMCH0062LR(B8101B1602B8142B13A2BC1C1BC202BD2E8B0018BCA68B0012B000EBC0E8B00087F179F SMCH0063RR#BC1A8B0016BC0A8B000EBC0A2B0008BC060N001C0007BC86ABFFF8B0006B03217F186FSMCH0064RT@R(BC069BFFFABA301B0A4BB1706BC848B0040BC847B0042B0460C03CCB0A12B17107F148F SMCH0065RR(BC2E9B0004B0A7BB170CB04CBB8301B1304BC2ECB004CB024BBFFE0BA18BB13037F116F SMCH0066RN#BD020N000A0004B1034BC0A1B005CBC1A9B000EB0226B003FB182BB0956B0A337F1C7FSMCHN0067R#B1809BAA86BFFFAB8AA0N00500001BFFFAB1403BD020N00080005B1021B61A07F1BCF SMCH0068RR(C03D6B1327BC0ECB0050BC145B1604BC0ECB004CB6301B1010B06A0C00DCBFFFF7F127F SMCH0069RD!BD2E1B001BB098BB830BB1308BC30BBC2E9B0004B0AABB180DBD020N000700027FD18BFSMCH0070R#B1006BA086B0282B0800B1A04BD020N00080002B0460C018CB0A56B60C6BC8427F1F2FSMCH0071RR(B005CBA301BCB03B0050BC86ABFFFAB005EBC145B1335B04C0BC044B1305BC0647F135F SMCH0072R:B0010B6060N00980001B0780B0625B000CB07C0B5960N00040002B00:18BC2E07F266F SMCH0073R#N00D80001B131DBC2E0N001C0007BCAC1B0006B032BBC06ABFFFEB1303BE9607F19FF SMCH0074RR#N002C0008B0018BC06ABFFFCB1303BE960N002E0008B0018BC044BC085B06A07F1D1F SMCH0075R0B0000BFFFFBC2E0N001C0007BCAEABFFF8B0006B032BB10$ 007BC0AABFFFCBC0EA7F0CCFSMCH0076$R(BFFFEB06A0C0188BFFFFBCB08B0044BCB07B0046BC069BFFFAB6301B022ABFFF87F08EF SMCH0077R" B0460B0000B00007FCB9F SMCH0078"J40000ASSUME40000SCALL 50000SMCHGS303A0SMDSSB30%%3D4SMEXIT7F20FF SMCH0079J300A6SDMFNDP30310SMLSTP303BCSMRMVE30262SMSRCH300B0SMSREU7F177F SMCH0080D(40000SPOP 40000SPUSH 7FAACFSMCH0081(D:  SMCHGS  01/26/85 14:18:11  SDSMAC 1.2.0 83.138SMCH0082DERR23,R0$ 0076 0003+@ 0177 0078 028C CI R12 SMBIAS PW4,}/@L 00060SMBIAS M0010NFER000001M0010NFER100002M0010NFER2000037F2C0FSMBI0001LN!M0010NFER300004M0010NFERC00005M0010NFERD00006M0010NFERE000077F210FSMBI0002NR#M0010NFERF00008M0044NFWORD0009P00000001B0001B0203B0405B0607B08097F19CFSMBI0003RR#B0A0BB0C0DB0E0FP00000002B1011B1213B1415B1617B1819B1A1BB1C1DB1E1F7F1BAFSMBI0004RR#P00000003B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000004B30317F247F SMBI0005RN#B3233B3435B3637B3839B3A3BB3C3DB3E3FP00000005BC0C1BC2C3BC4C5BC6C77F15FFSMBIN0006R#BC8C9BCACBBCCCDBCECFP00000006BD0D1BD2D3BD4D5BD6D7BD8D9BDADBBDCDD7F030FSMBI0007RR#BDEDFP00000007BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP000000087F0C3F SMBI0008RD!BF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP00000009B0003B0005B00067FD0CAFSMBI0009R(B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF007F1BAF SMBI0010RR(BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B00107F22AF SMBI0011R:B0008B0004B0002B0001BFE00A0000BCE8BBD020N00020008B2220N0:03400097F26AF SMBI0012R#B1629BD020N00090001BC30CB1125B1324BC0A9BFFF8BC129BFFFAB07A4B00507F16DFSMBI0013RR(BC062B000CB0221B001FB0241BFFE0B07E4B0050BC881B000CBA10CBC0A4B004C7F15DF SMBI0014R0BC0C2B0243B001FB4083BA081B0852B6902B0052B0501B0$E043BC901B004CB610C7F1A7F SMBI0015$,B0224B0050B0334B04C0B2EC07FA67F SMBI0016,( 50000SMBIAS40000SPOP7FA9FFSMBI0017(D:  SMBIAS  01/26/85 14:13:08  SDSMAC 1.2.0 83.138SMBI0018D6SG3BGN EQU>C000  SYSTEM MAP 3RD SEG'S SMMDFY PW&4}1@R#00028SMMDFY A0000B04C4B0784BD0A7B0018B0242BF9FFB0A28B1802B02627F1C6F SMMD0001RJB0200B0A18B1702B0262B0400B07C4BD9C2B0018B04C0B046BB00027F3F1F SMMD0002J(40000ASSUME50000SMMDFY7FA42FSMMD0003(*:  SMMDFY  01/26/85 14:38:50  SDS*MAC 1.2.0 83.138SMMD0004SAVED ML3 WHEN OVLY ENTERED 0  ENDREC !  PAGE "  LIST " ENABLED 9 k4`49 P DATA >FFFF TABLE TERMINATOR SMPREP P!W` N4}}2@L 00366SMPREP M0192NFDATA0001M0072NFPTR 0002M0010NFER0000037F24DFSMPR0001LN!M0010NFER300004M0010NFER400005M0010NFER600006M0010NFERD000077F22EFSMPR0002NN!M0010NFERE00008M0010NFERF00009M0044NFWORD000AM00DANFCLKD000B7F16FFSMPR0003NM007J0PMDATA000CP00000001P00020001P00040001P00060001P000800017F302FSMPR0004JN!P000A0001P000C0001P000E0001P00100001B000FP00120001P001600017F387F SMPR0005NN!P00180001P00180001P001A0001P001C0001B0000P001E0001P002000017F391F SMPR0006NP00220L 001P00240001P00260001P00280001P002A0001P002C0001P003400017F2C7F SMPR0007LR#P00360001P00380001P003A0001P003C0001P003E0001P00400001P004200017F2B2F SMPR0008RR#P00440001P00460001P00480001P004A0001P004C0001P004E0001P005000017F2AAF SMPR0009RT@R#P00520001P00540001P00560001P00580001P005A0001P005C0001P005E00017F2A2F SMPR0010RR#P00600001P00620001P00640001P00660001P00680001P006A0001P006C00017F2B0F SMPR0011RN#P006E0001P00700001P00720001P00740001P00760001P00780001P007A00017F2A8F SMPRN0012R#P007A0001P007C0001P007E0001P00800001P00820001P00840001P008600017F298F SMPR0013RR#P00880001P008A0001P008C0001P008E0001P00900001P00920001P009400017F290F SMPR0014RD!P00960001P00980001P009A0001P009C0001P009E0001P00AC0001B00807F341F D SMPR0015 R#P00AE0001P00B20001P00B60001P00BA0001P00BE0001P00C00001P00C200017F24EF SMPR0016RR#P00C40001P00C60001P00C80001P00CA0001P00CC0001P00CE0001P00D000017F241F SMPR0017R@P00D20001P00D40001P00D60001P00D80001P00DA0001P00DC0001P00DE000@17F239F SMPR0018R#P00E00001P00E80001P00F00001P00F80001P00FA0001P00FC0001P00FE00017F231F SMPR0019RR#P01000001P01020001P01040001P01060001P010C0001P010E0001P011600017F2D0F SMPR0020R6P01180001P011A0001P011C0001P011E0001P01200001P0122006 01P012400017F2BAF SMPR0021R#P01280001P012C0001P012C0001P012E0001P01300001P01320001P013400017F2B1F SMPR0022RR#P01880001P018A0001P018C0001P018E0001P01900001P00000002P000200027F29FF SMPR0023R,P00040002P00060002P00080002P000A0002P000C0,(002P000E0002P001000027F2BFF SMPR0024(R#P00120002P00140002P00160002P00180002P001A0002P001C0002P001E00027F2B7F SMPR0025RR#P00200002P00220002P00240002P00260002P00280002P002A0002P002C00027F2C5F SMPR0026R"P002E0002P00300002P00320002P0034"20002P00360002P00380002P003A00027F2BDF SMPR00272R#P003C0002P003E0002P00400002P00420002P00440002P00460002P004800027F2B5F SMPR0028RR#P004A0002P004C0002P004E0002P00500002P00520002P00540002P005600027F2A6F SMPR0029R P00580002P005A0002P005<C0002P005E0002P00600002P00620002P006400027F29EF SMPR0030<R#P00660002P00680002P006A0002P006C0002P006E0002P00700002P000000037F29EF SMPR0031RR#B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000004B3031B3233B34357F21CFSMPR0032RB3637B3839B3FA3BB3C3DB3E3FP00000005B4041B4243B4445B4647B4849B4A4B7F1ADFSMPR0033FN!B4C4DB4E4FP00000006B6061B6263B6465B6667B6869B6A6BB6C6DB6E6F7F27BF SMPR0034NR#P00000007BD0D1BD2D3BD4D5BD6D7BD8D9BDADBBDCDDBDEDFP00000008BE0E17F0FBF SMPR0035RBE2E3BL E4E5BE6E7BE8E9BEAEBBECEDBEEEFP00000009BF0F1BF2F3BF4F5BF6F77F047FSMPR0036LR#BF8F9BFAFBBFCFDBFEFFP0000000AB0003B0005B0006B0007B0009B000AB000C7F15AFSMPR0037RR(B000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B20007F188F SMPR0038RT@R(B1000B0800B0400B0200B0100B0080B0040B0020B0010B0008B0004B0002B00017F281F SMPR0039RR#BFE00P0000000BB0007B0000B0000B0000B0000B0000B0000B0000B0000B00007F29FFSMPR0040RN&B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF SMPRN0041R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF SMPR0042RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF SMPR0043RD!B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007DF2AFF SMPR0044R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF SMPR0045RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B003CB0018B016DB00007F275F SMPR0046R:B0000B0000B0001B0000B0000B0000B6800B0000B0000B0000B0000B: 0006BFE017F26EF SMPR0047R#B7F80B0000B1FE0B0000B0000B0000B0000B0000P0000000CB0000B0000B00007F27FFSMPR0048RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF SMPR0049R0B0000B0000B0000B0000B0000B0000B0000B0000B0000B0$0000B0000B0000B00007F2AFF SMPR0050$R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B02007F2ADF SMPR0051RR#B0002B092EP0058000CP0060000CB092EB5324B5348B4152B4544B0000B00007F25DF SMPR0052R&B0000A0000B05A0N007C000BBC2E0N001C00&(02BCEABB0006BC089B02097F31CFSMPR0053(L N01340001B0229B0006B04F9B04F9BCE42BC160N00040002BCE45BCE607F30EFSMPR0054LR#N00060002B04F9BC105B0203B0014B2E82C032AB2E81C032ABC2E0N001C00027F21EF SMPR0055R(B0225B0050BC049BCC60N0024000AB07D5BCCA(,0N0024000AB0795BCC72B07957F1E3F SMPR0056,R#BC472B4C60N0034000ABC1E4B0010B1504B1303BE860N0034000ABFFFEB07957F1E0F SMPR0057RR#BCC72B0795BC452BD020N00020003BD1A9B0002B0286B0E00B1453B0986B02867F1DEFSMPR0058RB0001B1B0BB0AB7B1809BD020N006030005BD1E4B0019B0987B1647BD1E4B000F7F1BFFSMPR00596R(B1644BC229B0004B1143B0286B0006B1303B0286B000DB1606BC0A9B0008BC0697F1CEF SMPR0060RR#B0006B131EB1016B0286B0002B1124B2620N002A000AB1621BD020N000900037F27FF SMPR0061R BC308B024CB0003B13@29B060CB0A2CBC0CCBA0C4BC0A3B0044B1322BC063B00467F169F SMPR0062@R#B1307BCAE1B0010B0006B6AE0N00980001B0006B032BBC162B000EBCA65B000A7F1CDFSMPR0063RR#B0012BCA65B000CB0014B0460C02ECB2220N0028000AB160DB04E9B0012B04E97F1E3FSMPR0064R B0014BC0 J60N00140002B04C2B04C3B1058BD020N00080005B0460C032ABD1E97F23EF SMPR0065JR#B0003B1603BC0A0N004C000CB1649BC084B0222B006AB91E0N000F0009B13437F227F SMPR0066RR#BD020N00010003B0222BFFCCBC092B13ECB9887B0003B16FBBD020N000E00097F1D9F SMPR0067R .V@R#BC1E2B0004B25E0N0010000AB16E2B0201B1000B9807N00050003B1325BD0207F25BF SMPR0068RP"N00010006B9807N00020003B16D8BD020N00030003B88A0N00060002B000C7F2E8F SMPR0069PP#B16D2B21E0N0032000AB1609BC1E2B000AB13CCB8127B0002B1306BC1E7B00007F1D6FSMPR00P70R#B10F9B8122B000AB16C3BD020N000B0007BC1E2B0006B21E0N0036000AB13BC7F205F SMPR0071RR#BCA42BFFF4B0201B4000BC1E2B0012B21C1B1303BDA60N000E0008B0001BC0A27F1B3FSMPR0072RF"B0008BCA52B0012BCA62B0002B0014B0286B0002B1433BD029B0001B16A4BC0697F1FCBF SMPR0073R(BFFF8B0795BCA61B000AB000AB0795BCA61B0010B0010B0795BCA61B000EB000E7F157F SMPR0074RR#BC208B1102B0460C031EBC069BFFF4B13FBBC052BC061B0010B6060N009800017F1B9FSMPR0075R<B04C0BC0A2B0002B07C0B88A9B0006B002AB1AEEB1B09B07C0B88A9B00< 08B002C7F15AF SMPR0076R#B1AE8B0780BC0A2B002EB16E4BD020N00000004B0460C032ABDA46B0001B02867F1CFFSMPR0077%%RR#B0004B1305BC208B1503B1302B0460C011CBD020N000E0003BC082B1319B04DA7F20AFSMPR0078R2BC0D2BCAA3B0010B0002B6AA0N00980001B0002BC0A2B0002" 2B079ABC062B001C7F1CDFSMPR0079"R#B135DB079ABC0E2B001EB1307BCAE3B0010B0006B6AE0N00980001B0006B032B7F1BEFSMPR0080RR(BC0A1B0006B1328BC208B1107B88A9B0008B0006B130EBC092B16FAB101FB88A97F171F SMPR0081R(B0008B0004B1604B88A9B0006B0002B1303BC0(,92B16F6B1014BD1E2B0018B0BD77F1B6F SMPR0082,R#B1809BC208B1315B1514B2220N002C000AB1606B0B37B180FB1005BC208B11037F205FSMPR0083RR(B102BB0B37B1709BC092B16D8BC0C1BC063B0004B1323BC0E3B0002B10C6BC0437F17BF SMPR0084RBCA62B0006B000ABC16BB0006BC16C2BCAEABFFFEB0006B032BB020CB0008BC0CC7F0FDF SMPR00856R(BA0C4B80A3B0044B1603B8063B0046B1305B022CBFFFCB15F5B13F4B070CB0A167F158F SMPR0086RR#BC2E6C034ABC181B069BB0000BC2E0N001C0002B064ABCADAB0006B032BBC0697F17BFSMPR0087R BFFF8BC2E9BFFFAB07@EBB0050BD840B0001B0460B0000B0000B0000B0000B00007F181F SMPR0088@DB0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F5B5FSMPR0089DJ40000ASSUME30348NFTRTN40000PRCK 40000RPPRCK40000RPSGCK7F241F SMPR0090J 40000SGCK 3035ASMBIAS3034ASMC ,HGS30352SMCHKS3034CSMCRES7F232F SMPR0091,J30360SMEXCU30354SMFWRS30364SMJREX30356SMJRLS3035CSMLOAD7F194F SMPR0092JJ30358SMMDFY50000SMPREP30362SMREXC30350SMRLSE3034ESMRSVE7F19AF SMPR0093J( 3035ESMUNLD40000TRTN7FA6AFSMPR0094(D:  SMPREP  01/26/85 14:42:50  SDSMAC 1.2.0 83.138SMPR0095D SYS FLAG E 0060 0034+ 0062 FFFE  0194 0064 PRP010 EVEN& 0195 0064 ASSUME SMRFLG+2=SMRNS1& 0196 0064 0795 LDS *R55 0197 0066 CSMBUF2 PX24}5@L 0007ASMBUF2 M0010NFER000001M0010NFER100002M0010NFER2000037F2BEFSMBU0001LN!M0010NFER300004M0072NFPTR 0005M0192NFDATA0006M00ECNFSHDD00077F1A4FSMBU0002NR#P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000002B10117F26FF SMBU0003RR#B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000003B2021B2223B2425B26277F205FSMBU0004RR#B2829B2A2BB2C2DB2E2FP00000004B3031B3233B3435B3637B3839B3A3BB3C3D7F1A8FSMBU0005RN!B3E3FP00000005P00020005P00040005P00060005P00080005P000A00057F373F SMBU0006N@R#P000C0005P000E0005P00100005P00120005P00140005P00160005P001800057F2B5F SMBU0007RR#P001A0005P001C0005P001E0005P00200005P00220005P00240005P002600057F2A6F SMBU0008RN#P00280005P002A0005P002C0005P002E0005P00300005P00320005P003400057F29EF SMBUN0009R#P00360005P00380005P003A0005P003C0005P003E0005P00400005P004200057F296F SMBU0010RR#P00440005P00460005P00480005P004A0005P004C0005P004E0005P005000057F28EF SMBU0011RD!P00520005P00540005P00560005P00580005P005A0005P005C0005P005E00057F2D86F SMBU0012R#P00600005P00620005P00640005P00660005P00680005P006A0005P006C00057F294F SMBU0013RR#P006E0005P00700005P00000006P00020006P00040006P00060006P000800067F2BBF SMBU0014R:P000A0006P000C0006P000E0006P00100006B000FP00120006P00160:0067F369F SMBU0015N!P00180006P00180006P001A0006P001C0006B0000P001E0006P002000067F373F SMBU0016NR#P00220006P00240006P00260006P00280006P002A0006P002C0006P003400067F2A4F SMBU0017R8P00360006P00380006P003A0006P003C0006P003E0006P004000068P004200067F28FF SMBU0018R#P00440006P00460006P00480006P004A0006P004C0006P004E0006P005000067F287F SMBU0019RR#P00520006P00540006P00560006P00580006P005A0006P005C0006P005E00067F27FF SMBU0020R.P00600006P00620006P00640006P00660006P0068000.& 6P006A0006P006C00067F28DF SMBU0021&R#P006E0006P00700006P00720006P00740006P00760006P00780006P007A00067F285F SMBU0022RR#P007A0006P007C0006P007E0006P00800006P00820006P00840006P008600067F275F SMBU0023R$P00880006P008A0006P008C0006P008E00$006P00900006P00920006P009400067F26DF SMBU00240N!P00960006P00980006P009A0006P009C0006P009E0006P00AC0006B00807F323F SMBU0025NR#P00AE0006P00B20006P00B60006P00BA0006P00BE0006P00C00006P00C200067F22BF SMBU0026RP00C40006P00C60006P00C80006P600CA0006P00CC0006P00CE0006P00D000067F21EF SMBU00276R#P00D20006P00D40006P00D60006P00D80006P00DA0006P00DC0006P00DE00067F216F SMBU0028RR#P00E00006P00E80006P00F00006P00F80006P00FA0006P00FC0006P00FE00067F20EF SMBU0029R P01000006P01020006@P01040006P01060006P010C0006P010E0006P011600067F2ADF SMBU0030@R#P01180006P011A0006P011C0006P011E0006P01200006P01220006P012400067F297F SMBU0031RR#P01280006P012C0006P012C0006P012E0006P01300006P01320006P013400067F28EF SMBU0032R P0188000 J6P018A0006P018C0006P018E0006P01900006P00000007B5750B57507F22FFSMBU0033JR(B5750B5750B5750B5750B5750B5750B5750B5750B5750B5750B5750B5750B57507F1D2F SMBU0034RR(B5750B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F20EF SMBU0035RGIV@R(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F SMBU0036RR(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F SMBU0037RN&B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F SMBUN0038R(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F SMBU0039RR(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337F213F SMBU0040RD!B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B33337DF213F SMBU0041R(B3333B3333B3333B3333B3333B3333B3333B3333B3333B3333B0000B0000A00007F238F SMBU0042RR(BCE8BB06A0B0000C006EB0222B0050B04C1BC012B0240BFFE0B0503B1312B80037F1A0F SMBU0043R:B1B10B0222B0004BC040BC012B0240BFFE0B8003B1B08B0222B0004B: C040BC0127F1C0F SMBU0044R(B0240BFFE0B8003B1216B0503BA0C1B0222BFFF4BC2F2BC052BC08BB04C0BC2C17F126F SMBU0045RR#B1305BC061B0010B6060N00980006B0780BD022B0018BC04BB0A80B1708B04C07F205FSMBU0046R0B2EC0BD020N00050001B10FCBD020N00060001B10F9BD00" 20N00070001B10F67F269FSMBU0047">50000SMBUF230004SMMJCA40000SPOP 40000SPUSH 7F556F SMBU0048>D:  SMBUF2  01/26/85 14:15:33  SDSMAC 1.2.0 83.138SMBU0049DE SMT MEM. ALLOC. &4 JMPBLD1509 *------ > >* NO SPACE SMDSGB PX(640}6@L 0012ESMDSGB M0192NFDATA0001M0072NFPTR 0002M0044NFWORD00037F20FFSMDS0001LN!M0010NFER800004M0010NFER900005M0010NFERA00006M0010NFERB000077F21BFSMDS0002NR#P00000001P00020001P00040001P00060001P00080001P000A0001P000C00017F2DAF SMDS0003RN!P000E0001P00100001B000FP00120001P00160001P00180001P001800017F399F SMDS0004NN!P001A0001P001C0001B0000P001E0001P00200001P00220001P002400017F399F SMDS0005NR#P00260001P00280001P002A0001P002C0001P00340001P00360001P003800017F2BDF SMDS0006RTEV@R#P003A0001P003C0001P003E0001P00400001P00420001P00440001P004600017F2B4F SMDS0007RR#P00480001P004A0001P004C0001P004E0001P00500001P00520001P005400017F2ACF SMDS0008RN#P00560001P00580001P005A0001P005C0001P005E0001P00600001P006200017F2A4F SMDSN0009R#P00640001P00660001P00680001P006A0001P006C0001P006E0001P007000017F29CF SMDS0010RR#P00720001P00740001P00760001P00780001P007A0001P007A0001P007C00017F298F SMDS0011RD!P007E0001P00800001P00820001P00840001P00860001P00880001P008A00017F2DA1F SMDS0012R#P008C0001P008E0001P00900001P00920001P00940001P00960001P009800017F299F SMDS0013RN!P009A0001P009C0001P009E0001P00AC0001B0080P00AE0001P00B200017F327F SMDS0014N>P00B60001P00BA0001P00BE0001P00C00001P00C20001P00C40001P00C60>0017F258F SMDS0015R#P00C80001P00CA0001P00CC0001P00CE0001P00D00001P00D20001P00D400017F243F SMDS0016RR#P00D60001P00D80001P00DA0001P00DC0001P00DE0001P00E00001P00E800017F235F SMDS0017R4P00F00001P00F80001P00FA0001P00FC0001P00FE0001P01004 0001P010200017F25FF SMDS0018 R#P01040001P01060001P010C0001P010E0001P01160001P01180001P011A00017F2B7F SMDS0019RR#P011C0001P011E0001P01200001P01220001P01240001P01280001P012C00017F2B6F SMDS0020R*P012C0001P012E0001P01300001P01320001P013**40001P01880001P018A00017F2A7F SMDS0021*R#P018C0001P018E0001P01900001P00000002P00020002P00040002P000600027F2BEF SMDS0022RR#P00080002P000A0002P000C0002P000E0002P00100002P00120002P001400027F2C1F SMDS0023R P00160002P00180002P001A0002P00 41C0002P001E0002P00200002P002200027F2B9F SMDS00244R#P00240002P00260002P00280002P002A0002P002C0002P002E0002P003000027F2B1F SMDS0025RR#P00320002P00340002P00360002P00380002P003A0002P003C0002P003E00027F2A9F SMDS0026R P00400002P00420002P0>0440002P00460002P00480002P004A0002P004C00027F2B7F SMDS0027>R#P004E0002P00500002P00520002P00540002P00560002P00580002P005A00027F2AFF SMDS0028RR#P005C0002P005E0002P00600002P00620002P00640002P00660002P006800027F2A7F SMDS0029R P006A0002P H#006C0002P006E0002P00700002P00000003B0003B0005B0006B00077F23FF SMDS0030HR(B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFF7F169F SMDS0031RR(B8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B00087F27AF SMDS0032RR#B0004B0002B0001BFE00P00000004B8081B8283B8485B8687B8889B8A8BB8C8D7F1C6FSMDS0033RR#B8E8FP00000005B9091B9293B9495B9697B9899B9A9BB9C9DB9E9FP000000067F19FF SMDS0034RN#BA0A1BA2A3BA4A5BA6A7BA8A9BAAABBACADBAEAFP00000007BB0B1BB2B3BB4B57F0AFFSMDSN0035R(BB6B7BB8B9BBABBBBCBDBBEBFA0000B2F04B04C3BC082B1305BC112BC124B00107F0DBF SMDS0036RR#B6120N00980001BCE82B073ABC082B1603BC0A0N00140002%%B1023BC062B00027F23EF SMDS0037RD!B0783BD021B0037B1305BC02ABFFFAB1302B0460C0120B0783BC0A1B001CB13497DF18AF SMDS0038R(B0783BC061B001EB1310B06A0B0000BFFFFB100CBCE82BCE81BC042BC0A2B00047F13FF SMDS0039RR(B1363BC061B0002B1303B06A0C0048BFFFFBC022B0006B16F1BCEA2B0004BCEA27F14EF SMDS0040R:B0002BA862BFFFEB0002BC060N00120002B0221B000EB06A0B0000BF:FFFBC0427F1A9FSMDS0041R(B2E83BFFFFBC0AABFFF8BC06ABFFFAB1313B0281BFFFFB160DB022ABFFF8BC0627F039F SMDS0042RR(B0002B07C3BC86AB0004B001CB07C3BC86AB0006B001EB10ADB06A0C0062BFFFF7F13DF SMDS0043R0B022ABFFF8BC8AAB0004B0004BC8AAB0006B0002B10BFB0$05A0B0000B0783BD0217F15EF SMDS0044$R#B0037B1620B0201B0036B2E85BFFFFB0222B0010BD8A0N00070006B0004BC06A7F1DBFSMDS0045RR(BFFF8BC891B000ABC8A1B0002B000CB04E2B0012BC061B0002B0783BC061B00227F183F SMDS0046R&B07C3BF860N002A0003B0015B0201B0000B0&.6A0B0000BFFFFB06A0B0000B022A7F1EAFSMDS0047.0BFFFCBC02AB0002B0580B16FAB2EC47F8D7FSMDS00480J 40000ASSUME40000ENAB 40000GTA0 40000INHB 30114IOUQUE7F357F SMDS0049JF30084NFDLNK3011ENFENAB40000NFGTA030118NFQUEH40000NFRTA 7F272F SMDSF0050J 300D2NOSCHD40000RTA 50000SMDSGB40000SMMJC240000SMMJCA7F2C2F SMDS0051J4 300BASMMTBL40000SPOP 40000SPUSH 7F7C7F SMDS00524D:  SMDSGB  01/26/85 14:25:11  SDSMAC 1.2.0 83.138SMDS0053D0147  SMCSG0 D0000' 0078SMCHKS PX:4}8@P"0008CSMCHKS M0044NFWORD0001M0072NFPTR 0002P00000001B0003B00057F1B0FSMCH0001PR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F SMCH0002RP'BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF SMCH00P03L B0010B0008B0004B0002B0001BFE00P00000002P00020002P000400027F406F SMCH0004LR#P00060002P00080002P000A0002P000C0002P000E0002P00100002P001200027F2C0F SMCH0005RL#P00140002P00160002P00180002P001A0002P001C0002P001E0002P002000027F2B8F SMLCH0006R#P00220002P00240002P00260002P00280002P002A0002P002C0002P002E00027F2B0F SMCH0007RR#P00300002P00320002P00340002P00360002P00380002P003A0002P003C00027F2BEF SMCH0008RB P003E0002P00400002P00420002P00440002P00460002P00480002P004A00027BF2B6F SMCH0009R#P004C0002P004E0002P00500002P00520002P00540002P00560002P005800027F2AEF SMCH0010RR#P005A0002P005C0002P005E0002P00600002P00620002P00640002P006600027F29FF SMCH0011R8P00680002P006A0002P006C0002P006E0002P00700002A0000BCE88 BB04C0BC0607F1D6F SMCH0012R#N001C0002BC121B0006BC845B0006B0321BC2CABCEE0N002C0001BC027B00187F207F SMCH0013RR#B1102B04EBBFFFEBC029B0014B1603BEAE0N00280001BFFFEBCEE7B0002BCEE77F10BFSMCH0014R.B0004BCEE7B0006B04FBBCEE7B0012BC6E7B0008BC84.&4B0006B0321BC169BFFFA7F10CF SMCH0015&R(BC04CB1109B1308BA045BC061B004CB0241BFFE0B0501BCAC1BFFFCB0225B00507F13AF SMCH0016RR(BC069BFFF8B0221B0004BC2CAB0200B1400B07D5B4440B07D5BEC7BB0200B000C7F158F SMCH0017R$B07D5BCC7BB0640B15FCB2EC07F9FDF $ SMCH0018 >40000ASSUME50000SMCHKS40000SPOP 40000SPUSH 7F52CF SMCH0019>D:  SMCHKS  01/26/85 14:20:13  SDSMAC 1.2.0 83.138SMCH0020D 0413 028C C060 MOV @CURMAP,R1  MAP EXECUTING TASK'S JCA A 028E 001C+/ 0414 SMFWRS PXA4T}:@L 000AASMFWRS M0010NFER000001M0010NFER100002M0010NFER2000037F281FSMFW0001LN!M0010NFER300004M0010NFER400005M0010NFER600006M0044NFWORD00077F1F6FSMFW0002NR#P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000002B10117F26FF SMFW0003RR#B1213B1415B1617B1819B1A1BB1C1DB1E1FP00000003B2021B2223B2425B26277F205FSMFW0004RR#B2829B2A2BB2C2DB2E2FP00000004B3031B3233B3435B3637B3839B3A3BB3C3D7F1A8FSMFW0005RN#B3E3FP00000005B4041B4243B4445B4647B4849B4A4BB4C4DB4E4FP000000067F1F9F SMFWN0006R#B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP00000007B0003B0005B00067F1CCFSMFW0007RR(B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF007F1BAF SMFW0008RD!BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B00107DF22AF SMFW0009R(B0008B0004B0002B0001BFE00A0000BCE8BB04C0BC045B0780BC2E7B0008B0ADB7F182F SMFW0010RR(B174AB0780BD2E7B0018B0B9BB1803B0B5BB1845B103FB0780BC0E7B0010B06037F172F SMFW0011R:B0780BD2E7B0018B024BBFBFFB0A28B1802B026BB0200B0A18B1702B: 026BB04007F175F SMFW0012R#B07C0BD9CBB0018B0A7BB172EB0782BD2E0B0016B112AB07C2BF820N002200077F198FSMFW0013RR(B0016B0201B0000BC083B06A0B0000BFFFFB0201B0014B04C2B2E84BFFFFB02227F176F SMFW0014R0B0012BC8A9BFFF8BFFF8BC129BFFFABC884BFFFABC8A9B0 FFFCBFFFCBC4A07F0F2FSMFW0015 L N00240007B07C2BC802B0012BD920N00000005B0009B0460B0000BD0207F387FSMFW0016L4N00040006B1002BD020N00020005B2EC07F8D3F SMFW00174J 40000ASSUME40000GTA 40000NFGTA 30064NFQOVB3009CNFSRTN7F2A0F SMFW0018J 0NJ50000SMFWRS40000SMMDFY40000SPOP 40000SPUSH 3005EWRTQUE7F21CF SMFW0019JD:  SMFWRS  01/26/85 14:34:57  SDSMAC 1.2.0 83.138SMFW0020D 0158 0092 C06B  MOV @SGBOSB(R11),R1* 0094 0002 D 0159 0096 CAAB MOV @SGBOLKSMCRES PXHD4ʁ};@L 00268SMCRES M0010NFER000001M0010NFER200002M0010NFER4000037F2A5FSMCR0001LN!M0010NFER600004M0010NFERC00005M0072NFPTR 0006M0192NFDATA00077F1E1FSMCR0002NR#M0044NFWORD0008P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F199FSMCR0003RR#P00000002B2021B2223B2425B2627B2829B2A2BB2C2DB2E2FP00000003B40417F247F SMCR0004RR#B4243B4445B4647B4849B4A4BB4C4DB4E4FP00000004B6061B6263B6465B66677F1BAFSMCR0005RN#B6869B6A6BB6C6DB6E6FP00000005BC0C1BC2C3BC4C5BC6C7BC8C9BCACBBCCCD7F0A7FSMCRN0006N!BCECFP00000006P00020006P00040006P00060006P00080006P000A00067F34DF SMCR0007NR#P000C0006P000E0006P00100006P00120006P00140006P00160006P001800067F2AEF SMCR0008RH#P001A0006P001C0006P001E0006P00200006P00220006P00240006P002600067F29FF H SMCR0009 R#P00280006P002A0006P002C0006P002E0006P00300006P00320006P003400067F297F SMCR0010RR#P00360006P00380006P003A0006P003C0006P003E0006P00400006P004200067F28FF SMCR0011R@P00440006P00460006P00480006P004A0006P004C0006P004E0006P0050000@67F287F SMCR0012R#P00520006P00540006P00560006P00580006P005A0006P005C0006P005E00067F27FF SMCR0013RR#P00600006P00620006P00640006P00660006P00680006P006A0006P006C00067F28DF SMCR0014R6P006E0006P00700006P00000007P00020007P00040007P0006006 07P000800077F2B4F SMCR0015N!P000A0007P000C0007P000E0007P00100007B000FP00120007P001600077F363F SMCR0016NN!P00180007P00180007P001A0007P001C0007B0000P001E0007P002000077F36DF SMCR0017N4P00220007P00240007P00260007P00280007P002A0007P002C4 0007P003400077F29DF SMCR0018 R#P00360007P00380007P003A0007P003C0007P003E0007P00400007P004200077F288F SMCR0019RR#P00440007P00460007P00480007P004A0007P004C0007P004E0007P005000077F280F SMCR0020R*P00520007P00540007P00560007P00580007P005**A0007P005C0007P005E00077F278F SMCR0021*R#P00600007P00620007P00640007P00660007P00680007P006A0007P006C00077F286F SMCR0022RR#P006E0007P00700007P00720007P00740007P00760007P00780007P007A00077F27EF SMCR0023R P007A0007P007C0007P007E0007P00 4800007P00820007P00840007P008600077F26EF SMCR00244R#P00880007P008A0007P008C0007P008E0007P00900007P00920007P009400077F266F SMCR0025RN!P00960007P00980007P009A0007P009C0007P009E0007P00AC0007B00807F31DF SMCR0026N P00AE0007P00B20007P00B60:007P00BA0007P00BE0007P00C00007P00C200077F224F SMCR0027:R#P00C40007P00C60007P00C80007P00CA0007P00CC0007P00CE0007P00D000077F217F SMCR0028RR#P00D20007P00D40007P00D60007P00D80007P00DA0007P00DC0007P00DE00077F20FF SMCR0029RP00E00007P00E8D0007P00F00007P00F80007P00FA0007P00FC0007P00FE00077F207F SMCR0030DR#P01000007P01020007P01040007P01060007P010C0007P010E0007P011600077F2A6F SMCR0031RR#P01180007P011A0007P011C0007P011E0007P01200007P01220007P012400077F290F SMCR0032RP012N!80007P012C0007P012C0007P012E0007P01300007P01320007P013400077F287F SMCR0033NR#P01880007P018A0007P018C0007P018E0007P01900007P00000008B0003B00057F243FSMCR0034RR(B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FD7F1E0F SMCR0035R@R(BFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B00207F1FFF SMCR0036RR#B0010B0008B0004B0002B0001BFE00A0000BCE8BB04C0BC2E0N001C0006BCEAB7F1C3FSMCR0037RN#B0006BC060N00040006BCEA1B005EB1302B0620N00CE0007BCEA1B005CB06A07F1F8F SMCRN0038R#B0000BFFFFB2620N002A0008B130BBC2E9B000AB028BBFFFFB164AB022CB00047F163FSMCR0039RR(B028CB0008B151CB1010B04E9B000ABC2C8B024BB0003B060BB1120B0A2BBA04B7F188F SMCR0040RD!BC0A1B0044B1638BC0A1B0040B1318BC30BB0729B000ABC060N00040006BA04C7FD1DAFSMCR0041R#BC1A1B004CBC0CCB04C7B0587B1059BD020N00030002B1017BD020N000600017F223F SMCR0042RP"B1014BD020N00070001B1011BD020N00080001B100EBD020N00090001B100B7F2C2FSMCR0043P<BD020N00040003B1008BD020N00020004B1005BD020N00030004B1002B<D0207F2D3FSMCR0044R#N00080005B022ABFFFABC060N001C0006BC85AB0006B0321BC069BFFFABC2E17F196F SMCR0045RR#B005EB1302B05A0N00CE0007B2EC0BC0CCB06A0B0000C00AAB0A88B1708BCE837F17FFSMCR0046R4B06A0B0000B0000B064ABC000B16E4BC0DABC064B0010B13034 B6060N009800077F1FFFSMCR0047 R(B0780B%%C1E5B0012B0780BC025B0008B0227B003FB0957B0A30B1802B6A87BFFFC7F16BF SMCR0048RR#BC060N001C0006BC86ABFFFAB0006B0321BC060N00040006B06CCB9321B00187F1F0F SMCR0049R*B13AEB06CCBA04CBC1A1B0050BC0A9B000EBC229**B0012B130CB04DABC068B00107F13FF SMCR0050*R#B6060N00980007BCA81B0002BC069B0014B079ABC0A1B0010BC082B139AB02227F1E3FSMCR0051RR#B003FB189AB0952BAA82BFFFCB8AA0N00500007BFFFCB1AA2B6087B130FB80CC7F10BFSMCR0052R B1305BC069B0004B0AA1B1809B1087 4BAA82BFFFEB882ABFFFEN002A0008B1B847F13AFSMCR00534R(B0A52B6182BC208B1313BC2E9BFFF4B1383BC0A9B0004B1583B1382BC209B02287F15FF SMCR0054RR(B0012BC048BC0C9B0223B0006B06A0B0000C01AEB0460C00A0BC048B0702B06A07F1B7F SMCR0055R B0000C00AABC208B130E>BC1E9B0010B0208B0420B4888B0008B0548B41C8BE8877F192F SMCR0056>R(B0008BCA62B0012B000EB1009BC8A9B0010B0008B48A0C0266B0008BC8A9B000E7F19DF SMCR0057RR#B0012BCA62B0008B0010BF8A0N00240008B0018BC1C1BC202BC060N001C00067F22BF SMCR0058R B022ABFFFA HBC85AB0006B0321BC060N00040006BC86AB0004B005CBC86AB00027F19BFSMCR0059HR#B005EBA04CBC848B0044BC847B0046BC846B0050B8829B000AN00200008B131A7F1CEFSMCR0060RR(BC2E9B0004B04C2B0703B0A2BB1101B0543B1801B0542B04C0BC044B1305BC0647F1B4F SMCR0061RR#B0010B6060N00980007B0780B0625B000CB07C0B5960N00040001B0018B06A07F274F SMCR0062R,B0000BFFFFB0460B0000B3B8B7FA2EF SMCR0063,J40000ASSUME40000SCALL 301B4SMBLDS50000SMCRES30264SMEXIT7F21AF SMCR0064J&300CCSMFNDP301A6SMFSID30020SMLSTP302&& 5ESMRMVE300D8SMSREU7F168F SMCR0065&(40000SPOP 40000SPUSH 7FAACFSMCR0066(D:  SMCRES  01/26/85 14:22:09  SDSMAC 1.2.0 83.138SMCR0067D OBJECT ACCESS NAME=  T.DP.SEGMGR.OBJECT.SMCRES 32 LISTING ACCESS NAME= T.DPL.SEGMSMJRLS PX_ 4̓}>L 0002ASMJRLS M0010NFERC00001M0010NFERD00002M0010NFERE000037F25EFSMJR0001LR#M0010NFERF00004M0044NFWORD0005P00000001BC0C1BC2C3BC4C5BC6C7BC8C97F0E6FSMJR0002RR#BCACBBCCCDBCECFP00000002BD0D1BD2D3BD4D5BD6D7BD8D9BDADBBDCDDBDEDF7F018FSMJR0003RT@R#P00000003BE0E1BE2E3BE4E5BE6E7BE8E9BEAEBBECEDBEEEFP00000004BF0F17F0F1F SMJR0004RR#BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP00000005B0003B0005B0006B00077F0F4FSMJR0005RN&B0009B000AB000CB000DB000EB000FB0012B0018B003CB0064B00FDBFF00BFFFF7F169F SMJRN0006R(B8000B4000B2000B1000B0800B0400B0200B0100B0080B0040B0020B0010B00087F27AF SMJR0007RR#B0004B0002B0001BFE00A0000BCE8BBD020N00020004B2220N00340005B160E7F25EF SMJR0008RD!BC069BFFF8BC129BFFFAB07A4B0050BC061B000CB06A0B0000BFFFFB06A0B00007DF0FDF SMJR0009B0000B2EC07FD9BFSMJR0010J40000SCALL 50000SMJRLS3001ESMMJCA30024SMRLSE40000SPOP 7F26DF SMJR0011JD:  SMJRLS  01/26/85 14:36:09  SDSMAC 1.2.0 83.138SMJR0012D PSMCHUC P Xc% 4 }?@P"00062SMCHUC M0192NFDATA0001M0072NFPTR 0002P00000001P000200017F220F SMCH0001PR#P00040001P00060001P00080001P000A0001P000C0001P000E0001P001000017F2C6F SMCH0002RP#B000FP00120001P00160001P00180001P00180001P001A0001P001C0001B00007F287FSMCH00P03R#P001E0001P00200001P00220001P00240001P00260001P00280001P002A00017F2CBF SMCH0004RR#P002C0001P00340001P00360001P00380001P003A0001P003C0001P003E00017F2A0F SMCH0005RF"P00400001P00420001P00440001P00460001P00480001P004A0001P004C00017F2BEFF SMCH0006R#P004E0001P00500001P00520001P00540001P00560001P00580001P005A00017F2B6F SMCH0007RR#P005C0001P005E0001P00600001P00620001P00640001P00660001P006800017F2AEF SMCH0008R<P006A0001P006C0001P006E0001P00700001P00720001P00740001P007<600017F29FF SMCH0009R#P00780001P007A0001P007A0001P007C0001P007E0001P00800001P008200017F28BF SMCH0010RR#P00840001P00860001P00880001P008A0001P008C0001P008E0001P009000017F28EF SMCH0011R2P00920001P00940001P00960001P00980001P009A0001P002" 9C0001P009E00017F286F SMCH0012"N!P00AC0001B0080P00AE0001P00B20001P00B60001P00BA0001P00BE00017F319F SMCH0013NR#P00C00001P00C20001P00C40001P00C60001P00C80001P00CA0001P00CC00017F255F SMCH0014R,P00CE0001P00D00001P00D20001P00D40001P00D60,(001P00D80001P00DA00017F24DF SMCH0015(R#P00DC0001P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA00017F235F SMCH0016RR#P00FC0001P00FE0001P01000001P01020001P01040001P01060001P010C00017F29AF SMCH0017R"P010E0001P01160001P01180001P011A"20001P011C0001P011E0001P012000017F2A8F SMCH00182R#P01220001P01240001P01280001P012C0001P012C0001P012E0001P013000017F2B3F SMCH0019RR#P01320001P01340001P01880001P018A0001P018C0001P018E0001P019000017F295F SMCH0020R P00000002P00020002P000<40002P00060002P00080002P000A0002P000C00027F2D3F SMCH0021<R#P000E0002P00100002P00120002P00140002P00160002P00180002P001A00027F2CBF SMCH0022RR#P001C0002P001E0002P00200002P00220002P00240002P00260002P002800027F2C3F SMCH0023RP002A0002P00F2C0002P002E0002P00300002P00320002P00340002P003600027F2B4F SMCH0024FR#P00380002P003A0002P003C0002P003E0002P00400002P00420002P004400027F2ACF SMCH0025RR#P00460002P00480002P004A0002P004C0002P004E0002P00500002P005200027F2A4F SMCH0026RP0P"0540002P00560002P00580002P005A0002P005C0002P005E0002P006000027F29CF SMCH0027PR#P00620002P00640002P00660002P00680002P006A0002P006C0002P006E00027F294F SMCH0028RP#P00700002A0000B2F07BC1C1B1305BC061B0010B6060N00980001B0780BC1627F25DF SMCH00P29R(B000CB1322BC043B06A0B0000BFFFFBC2C4B0200B0003B04C6B80ABB0044B16067F17DF SMCH0030RR(B81EBB0046B1603B0586B8185B1311B022BB0004B0600B16F3B0224B0062BC1147F1D3F SMCH0031RF"B130BB80A4B0002B16FBB81E4B0004B16F8B0586B8185B16F5B04C0B1001B07007F1F95F SMCH0032B2EC77FE96F SMCH0033J40000ASSUME40000NFCRSH40000SCALL 50000SMCHUC3001ASMMJCA7F254F SMCH0034J(40000SPOP 40000SPUSH 7FAACFSMCH0035(D:  SMCHUC  01/26/85 14:21:07  SDSMAC 1.2.0 83.138SMCH0036DMAX ALLOC SMEXIT PXo,4}A@P"00188SMEXIT M0192NFDATA0001M0044NFWORD0002P00000001P000200017F1DBF SMEX0001PR#P00040001P00060001P00080001P000A0001P000C0001P000E0001P001000017F2C6F SMEX0002RP#B000FP00120001P00160001P00180001P00180001P001A0001P001C0001B00007F287FSMEX00P03R#P001E0001P00200001P00220001P00240001P00260001P00280001P002A00017F2CBF SMEX0004RR#P002C0001P00340001P00360001P00380001P003A0001P003C0001P003E00017F2A0F SMEX0005RF"P00400001P00420001P00440001P00460001P00480001P004A0001P004C00017F2BEFF SMEX0006R#P004E0001P00500001P00520001P00540001P00560001P00580001P005A00017F2B6F SMEX0007RR#P005C0001P005E0001P00600001P00620001P00640001P00660001P006800017F2AEF SMEX0008R<P006A0001P006C0001P006E0001P00700001P00720001P00740001P007<600017F29FF SMEX0009R#P00780001P007A0001P007A0001P007C0001P007E0001P00800001P008200017F28BF SMEX0010RR#P00840001P00860001P00880001P008A0001P008C0001P008E0001P009000017F28EF SMEX0011R2P00920001P00940001P00960001P00980001P009A0001P002" 9C0001P009E00017F286F SMEX0012"N!P00AC0001B0080P00AE0001P00B20001P00B60001P00BA0001P00BE00017F319F SMEX0013NR#P00C00001P00C20001P00C40001P00C60001P00C80001P00CA0001P00CC00017F255F SMEX0014R,P00CE0001P00D00001P00D20001P00D40001P00D60,(001P00D80001P00DA00017F24DF SMEX0015(R#P00DC0001P00DE0001P00E00001P00E80001P00F00001P00F80001P00FA00017F235F SMEX0016RR#P00FC0001P00FE0001P01000001P01020001P01040001P01060001P010C00017F29AF SMEX0017R"P010E0001P01160001P01180001P011A"20001P011C0001P011E0001P012000017F2A8F SMEX00182R#P01220001P01240001P01280001P012C0001P012C0001P012E0001P013000017F2B3F SMEX0019RR#P01320001P01340001P01880001P018A0001P018C0001P018E0001P019000017F295F SMEX0020R P00000002B0003B0005B00<06B0007B0009B000AB000CB000DB000EB000FB00127F25DFSMEX0021<R(B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B1000B0800B0400B02007F1BBF SMEX0022RR(B0100B0080B0040B0020B0010B0008B0004B0002B0001BFE00A0000B04C3BC1077F231F SMEX0023RB1305BC127B0F010B6120N00980001B0783BD0A8B0018B0A32B1132B0783B05A87F20EFSMEX0024FR(B000CBC069BFFFAB0783BC168B0008BC2C5B092BB024BB0010BE84BB0006BA04C7F127F SMEX0025RR(B04C0BC30CB1304BC021B004CB0240BFFE0B0500BC1C0BCA40B000CBC2C5B094B7F140F SMEX0026RB0P"24BB0003B4860N00000002B0050BE84BB0050B0783BCA68B0006B000AB0A527F206FSMEX0027PR#B1709B0783BC0A8B0010B0602B0781BC0A0B0016B0A22B1736BC2E0N00D800017F1E5FSMEX0028RP'B1635B0783BD068B0018B0A31B1704B07C3BCA29BFFF4B001CBC069BFFFAB06A07F110F SMEX00P29R(B0000BFFFFB06A0B0000BFFFFBC081BC069BFFFCB06A0B0000BFFFFBC101BC1427F0B7F SMEX0030RR(B0201B0028B04C2B2E84BFFFFB0229BFFEEB04D9B04E9B0002BCCB9B0641B16FD7F0E9F SMEX0031RF"B0222BFFE8BC4A4B000EBC902B000EBC044BC085B06A0B0000BFFFFB0460B00007F1F38F SMEX0032R#BC2E0N00D80001B164BB0783BC128B0010B0604B0A25B111DB0783BC020B001E7F1DAFSMEX0033RR#B160DB020BN00C60001B0783BD0A0B0008B1302B020BN00C80001B061BBC0847F225F SMEX0034R<B06A0B0000BFFFFB0783B05A0B001EB07C3BC829BFFF4B0002B1304B07< C3BC8297F12CF SMEX0035R#BFFFCB000AB0584B0957B6107BC069BFFFABC2E1B005EB1302B05A0N00CE00017F14CFSMEX0036RR(B8861B005EB0060B1203BC861B005EB0060BA301BCB04B0052B0221B0050B03317F1DAF SMEX0037R2%%BC0A9BFFF8B07D1BC4A0N00240002B0229B000AB0222B0002" AB07D1BCCB9B07D17F174FSMEX0038"6BCCB9B07D1BCC99B0460B0000B04C0B2EC07F7DBF SMEX00396J 40000ASSUME40000GTA 300A0NFDACT30118NFDLOV3009ANFDTL17F2A7F SMEX0040JJ300ACNFDTSK40000NFGTA 300E0NFPACT300E6NFSRTN30182NFTRTN7F1DDF SMEX0041JL>40000SCALL 50000SMEXIT40000SPOP 40000TRTN7F585F SMEX0042>D:  SMEXIT  01/26/85 14:29:38  SDSMAC 1.2.0 83.138SMEX0043DI E>```````H` ```H`! % SMREXC PX~H4}CL 000A0SMREXC M0010NFER000001M0010NFER600002M0010NFERF000037F289FSMRE0001LR#M0072NFPTR 0004P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F1C2FSMRE0002RR#P00000002B6061B6263B6465B6667B6869B6A6BB6C6DB6E6FP00000003BF0F17F1E3F SMRE0003RT@P"BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP00000004P00020004P000400047F164FSMRE0004PR#P00060004P00080004P000A0004P000C0004P000E0004P00100004P001200047F2B2F SMRE0005RP#P00140004P00160004P00180004P001A0004P001C0004P001E0004P002000047F2AAF SMRE00P06R#P00220004P00240004P00260004P00280004P002A0004P002C0004P002E00047F2A2F SMRE0007RR#P00300004P00320004P00340004P00360004P00380004P003A0004P003C00047F2B0F SMRE0008RF"P003E0004P00400004P00420004P00440004P00460004P00480004P004A00047F2A8FF SMRE0009R#P004C0004P004E0004P00500004P00520004P00540004P00560004P005800047F2A0F SMRE0010RR#P005A0004P005C0004P005E0004P00600004P00620004P00640004P006600047F291F SMRE0011R<P00680004P006A0004P006C0004P006E0004P00700004A0000B0708B10< 01B04C87F20EF SMRE0012R(BCE8BB04C0B04C4B0784BC0A7B001EB133DB0784BC0E2B0002BC208B130BB07847F147F SMRE0013RR#BC062B0000B06A0B0000C0098B98E0N00040001B0009B1631B1008B0784B8A627F225FSMRE0014R2B0000BFFFCB1628B8A43BFFFAB1625BC103B0224B0064BC02"54B81E1B0002B16037F158F SMRE0015"R#B81A1B0004B1304BC101BC051B131EB10F6BC511B2E83BFFFFBC060N001C00047F194FSMRE0016RR(BC845B0006B0321B04E7B001EBC042BA9A1BFFFEB0002B2E83BFFFFBC046BC0877F0F2F SMRE0017R(B06A0B0000BFFFFB04C0B1005BD020N0000000(,2B1002BD020N00020001B2EC07F231F SMRE0018," B0420B0000B00467FCB3F SMRE0019"J40000ASSUME3009CNFCRSH40000NFRTA 40000RTA  30086SMDSSB7F29DF SMRE0020JJ50000SMJREX30026SMMJCA50004SMREXC40000SPOP 40000SPUSH 7F25DF SMRE0021J:  S>MREXC  01/26/85 14:45:22  SDSMAC 1.2.0 83.138SMRE0022>P184 NOT PAST EOM, JUMPR09 * LDSR0R09 0 MOV@FCBOFM(R2),R2OFFSET NONZERO? R09 0* JNEPRP184 NOT PAST EOM, JUMPR09 *PRP186 EVEN R09 2"SMFNDP P X J4}E@L 00066SMFNDP M0192NFDATA0001M0010NFER000002M0044NFWORD00037F23AFSMFN0001LR#P00000001P00020001P00040001P00060001P00080001P000A0001P000C00017F2DAF SMFN0002RN!P000E0001P00100001B000FP00120001P00160001P00180001P001800017F399F SMFN0003NN!P001A0001P001C0001B0000P001E0001P00200001P00220001P002400017F399F SMFN0004NR#P00260001P00280001P002A0001P002C0001P00340001P00360001P003800017F2BDF SMFN0005RR#P003A0001P003C0001P003E0001P00400001P00420001P00440001P004600017F2B4F SMFN0006R@R#P00480001P004A0001P004C0001P004E0001P00500001P00520001P005400017F2ACF SMFN0007RR#P00560001P00580001P005A0001P005C0001P005E0001P00600001P006200017F2A4F SMFN0008RN#P00640001P00660001P00680001P006A0001P006C0001P006E0001P007000017F29CF SMFNN0009R#P00720001P00740001P00760001P00780001P007A0001P007A0001P007C00017F298F SMFN0010RR#P007E0001P00800001P00820001P00840001P00860001P00880001P008A00017F2A1F SMFN0011RD!P008C0001P008E0001P00900001P00920001P00940001P00960001P009800017F2D99F SMFN0012N!P009A0001P009C0001P009E0001P00AC0001B0080P00AE0001P00B200017F327F SMFN0013NR#P00B60001P00BA0001P00BE0001P00C00001P00C20001P00C40001P00C600017F258F SMFN0014R>P00C80001P00CA0001P00CC0001P00CE0001P00D00001P00D20001P00D40>0017F243F SMFN0015R#P00D60001P00D80001P00DA0001P00DC0001P00DE0001P00E00001P00E800017F235F SMFN0016RR#P00F00001P00F80001P00FA0001P00FC0001P00FE0001P01000001P010200017F25FF SMFN0017R4P01040001P01060001P010C0001P010E0001P01160001P01184 0001P011A00017F2B7F SMFN0018 R#P011C0001P011E0001P01200001P01220001P01240001P01280001P012C00017F2B6F SMFN0019RR#P012C0001P012E0001P01300001P01320001P01340001P01880001P018A00017F2A7F SMFN0020R*P018C0001P018E0001P01900001P00000002B000*(1B0203B0405B0607B08097F309F SMFN0021(R#B0A0BB0C0DB0E0FP00000003B0003B0005B0006B0007B0009B000AB000CB000D7F215FSMFN0022RR(B000EB000FB0012B0018B003CB0064B00FDBFF00BFFFFB8000B4000B2000B10007F19BF SMFN0023R"B0800B0400B0200B0100B0080B0040B0"2020B0010B0008B0004B0002B0001BFE007F257F SMFN00242R#A0000BCE8BBCE81B04C0BC2E9BFFFABC069B0004B2460N002A0003B160BB02417F16EFSMFN0025RR(B0003B1320B0601BC301B0A2CBA2CCBC16BB0044B1319B101BB020CB0008BC2E97F183F SMFN0026R BFFFABA2CCBC16BB0044B1<30CBC06BB0046B1305BC061B0010B6060N009800017F197FSMFN0027<R#B07C0B8969B000AB0006B1307B022CBFFFCB15EBB13EABD020N00090002B10027F1A2FSMFN0028R" BC12BB0046B2EC17FC66F SMFN0029"4 50000SMFNDP40000SPOP 40000SPUSH 7F7EFF SMFN00304: @ SMFNDP  01/26/85 14:32:35  SDSMAC 1.2.0 83.138SMFN0031@00CONTRY WORD 0 COUNTRY CODE FOR THIS SYSTEM 02 0107 0026 8A61 C  @SOBJSB(R1),@BROJSB(R9)2 00LvLvRTOLLY ELIGIBLE FOR "* "SMSRCH P X N4М}GL 0019ASMSRCH M0010NFER000001M0010NFERF00002M0044NFWORD00037F23BFSMSR0001LR#M0070PMDATA0004P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0F7F1B7FSMSR0002RR#P00000002BF0F1BF2F3BF4F5BF6F7BF8F9BFAFBBFCFDBFEFFP00000003B00037F10DF SMSR0003RT@R(B0005B0006B0007B0009B000AB000CB000DB000EB000FB0012B0018B003CB00647F205F SMSR0004RR(B00FDBFF00BFFFFB8000B4000B2000B1000B0800B0400B0200B0100B0080B00407F1D7F SMSR0005RN#B0020B0010B0008B0004B0002B0001BFE00P00000004B0000B0000B0000B00007F2A2FSMSRN0006R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF SMSR0007RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF SMSR0008RD!B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0200B00027DF2ABF SMSR0009R#B092EP00580004P00600004B092EB5324B5348B4152B4544B0000B0000B00007F27DF SMSR0010RR#A0000B2F04B022AB0014B04E0N00220004BC082B1105B05C3B06A0B0000C01507F232FSMSR0011R:B1009BC041B1604BD020N000A0001B0460C0150B06A0C0012C00C0BC:022B00087F231FSMSR0012R#B2020N00240003B1606BC2EABFFE8B0AABB1802B0460C015EBC2E2B001EB13077F195FSMSR0013RR(B81EBB0000B161AB822BB0002B137EB1016BC2E2B000CB137ABD2E2B0018B11037F188F SMSR0014R0B2020N002C0003B1674BC0C7B130FBC108B06A0B0000B00$ 000BCE80B06A0B00007F1F6FSMSR0015$R(BFFFFB064ABC69AB1367BC6AABFFE8B156FB136EBD2E2B0018BC022B0008B0A507F0C8F SMSR0016RR(B176BB0A4BB1114BC2CAB022BBFFECBCEE2B0008B0222B0012BCEF2BCEF2BCEF27F0AEF SMSR0017R&B05C2BCEF2B8CB2BCEF2BCEF2BCEF2BCEF2B&.CEF2B0720N00220004BC06ABFFEA7F08FFSMSR0018.R(BC2EABFFE8B04C2B0A5BB1101B0702B06A0B0000C0150BC0C7B130DBC0E9BFFF47F104F SMSR0019RR(B130ABC0E9B0010B0204B0420B4884B0008B0544B40C4BE883B0008BC0EABFFE67F164F SMSR0020R BC893B0002BC8A3B0002B0004B8C020N00220004B1323B58A0N00280003B00187F263F SMSR00218R#BC2CAB022BBFFECBC8BBB0008B48A0N00260003B0008BF8A0N00260003B00187F1BEF SMSR0022RR(BC8BBB0012BC8BBB0014BC8BBB0016B058BBC02ABFFE8B0A60B170ABD8BBB001B7F0D2F SMSR0023RBC002B0220B0020BB CC3BBCC3BBCC3BBCC3BBCC3BB04C0B022ABFFECBCA81BFFFE7F069F SMSR0024BR#BCA82BFFFCB2EC4BD020N000B0001B10F6BD020N000C0001B10F3BC2CBB11037F1A1F SMSR0025RP"BD020N000A0002B10EEB8822B0004N00060003B1304B8822B0004N000200037F2B7FSMSR0026P B16F5BC2 JE2B000EB882BB000AN00480004B16EFB882BB000CN004A0004B16EB7F1C3F SMSR0027JB10DA7FEA1F SMSR0028J40000ASSUME40000SCALL 300D2SMBLDS3006ESMCHUC30026SMFSID7F224F SMSR0029J>30076SMMTBL50000SMSRCH40000SPOP 40000SPUSH 7F518F SMSR0030>= BD:  SMSRCH  01/26/85 14:49:07  SDSMAC 1.2.0 83.138SMSR0031DREP,&"LIST=@VOLLST.SEGMGR.LIST.SMPREP,"OPTION=(@$OPT),  ERROR=".XMAERR@$$ST"EC.IF @$$CC,GT,06AFINPUT=".XMAERR@$$ST",OUTPUT=@VOLLST.SEGMGR.LIST.6%SMRLSE PX4}HL 0006ASMRLSE M0010NFER000001M0010NFER400002M0072NFPTR 00037F270FSMRL0001LR#P00000001B0001B0203B0405B0607B0809B0A0BB0C0DB0E0FP00000002B40417F269F SMRL0002RP"B4243B4445B4647B4849B4A4BB4C4DB4E4FP00000003P00020003P000400037F263FSMRL0003PA8T@R#P00060003P00080003P000A0003P000C0003P000E0003P00100003P001200037F2B9F SMRL0004RR#P00140003P00160003P00180003P001A0003P001C0003P001E0003P002000037F2B1F SMRL0005RN#P00220003P00240003P00260003P00280003P002A0003P002C0003P002E00037F2A9F SMRLN0006R#P00300003P00320003P00340003P00360003P00380003P003A0003P003C00037F2B7F SMRL0007RR#P003E0003P00400003P00420003P00440003P00460003P00480003P004A00037F2AFF SMRL0008RD!P004C0003P004E0003P00500003P005200%%03P00540003P00560003P005800037F2DA7F SMRL0009R#P005A0003P005C0003P005E0003P00600003P00620003P00640003P006600037F298F SMRL0010RR(P00680003P006A0003P006C0003P006E0003P00700003A0000BCE8BB04C0BD0207F1D4F SMRL0011R:N00090002BC0E0N00120003B0223B009CBC093B132ABC2C3BC0C2B02:01B00087F22BF SMRL0012R(B05C2B81D2B1603B81A2B0002B1305B0222B0004B0601B16F7B10EFB04F2B04D27F1AEF SMRL0013RR#B04C0B78E0N00010001B0023B1604BC6D3BC043B2E83BFFFFBC2E0N001C00037F1C9F SMRL0014R0BCAC5B0006B032BB0627B000AB1608BC067B000CB1605B0$C046BC087B06A0B00007F192F SMRL0015$BFFFFB2EC07FD43FSMRL0016J 40000NFRTA 40000RTA 30064SMDSSB50000SMRLSE40000SPOP 7F2F5F SMRL0017J 40000SPUSH 7FD22F SMRL0018B:  SMRLSE  01/26/85 14:46:32  SDSMAC 1.2.0 83.138SMRL00B19TSBOSE R4 -> OWNED SEGMENT ENTRY@ 0048 0064 ! 0133 004A C054 MOV *R4,R1 ! 0134 004C REX015 EVEND 0135 004C 81E1 C  @OSESSB(R1),R7  OWNED, OSE SSB'S MATCH?D 004E 0002 5 0136 0050 1603 EOD EOD IMACROS D X }}JCOMM D 6X66}Z}KD$DFX$ D X }MEOD TCB `XD8}N`" 0(}8`"@TCTM@<DATA0NEXTTCBMAPFILEADDRESS<DATA:TC:NEXTTCBADDRESS(RELTOMAPFI<DATASER@  0,0,0REQUEST LENGTH,CHARCNT,DATAO<BYTE:TM:TIMEOUT<BYTE0MOSTSIG8BITSBUFFERA0@DDRESS<DATA0LEASTSIG16BITSBUFFERADDRE$XX'LT',NHUN.V XX.S#=NH.S H.H.RTOH9VE QUEUES &*  BIT6  ASSERT RTS ON OPENS&<*  BIT7  REQIRE DCD AS WELL AS DSR FOR CONNECTIONS<6*  BIT8  DEASSERT RTS AFTER OPEN COMPLETION 68*  BIT9  REPORT DEVICE REPORTED ERRORS ON RCV 8*  B FC3CHN `X 8}O`@"8@B@}`"@BUUNCHNHPRACXX0 @@$XX'LT',NHUN.V NH.S#=XX.S <REF &:NH:CM:UN:<DEF LTCM:UN:LINETAB31@LE ADDRESS<LTCM:UN:EQU'CIST:BU: UN.V#=BU.V <DEF(CIST:UN:<CIST:UN:EQU C@@IST:BU:ISTTABLE ADDRESS<FC3C:UN:EQU$CHANNELTABLE ADDRESS<RORG2*:CH.V:+FCCT:BU:RESET@TOTABLE INSERTION<DATA FC3C:UN:CHANNEL:UN:TABLEADDRESS<RORG FC3C:UN:RESETTOCHAw`@@NNELTABLEADDRESS<DATA >FFFFCHANNELSTATUS<DATA 0,0,0,0SAVEDROSW0-3<DATA 0,&0,0SAVED`t9WOSW0-3<BYTE :UN:,:CH:UNIT,CHANNEL NUMBER<DATA :NH:CM:UN:HIGHERLEVELTABLEA&t@@DDRESS<DATA0,0NUMBEROFOUTSTANDING/TOTALRE<DATA0,0QUEUEOF OUTSTANDINGCRBSTCBX DATA 0,0,0,0,0,0 SAVED MAP FILE FOR SYSTEM REQUESTS >4CCRBSZ EQU$  CRB LENGTH FOR SYSTEM REQUESTS 4:CCTBBA DATA 0  TCB BUFFER BEET ADDRESS FOR SVC REQS :0CCSVSZ EQU$  CRB LENGTH FOR SVC REQUESTS0************ALFIST `X 8}Q`@"8x` }~`"@UNCRNHPRACXX3@$XX'LT',NHUN.V XX.S#=NH.S <REF &:NH:CM:UN:<DEF LTCM:UN:LINETABB B@LEADDRESSIFNONE<LTCM:UN:EQU.$<CIST:UN:DATA>FFFFNIBUSYFLAG<DATA0,0NIEB@NTRY QUEUE<DATA CN:UN:,0NIENTRY VECTOR<DATA0CURRENT CONNECTEDSTATE<BYTE 4CB@,>B0TABLETYPE,FCNS SUPPORTED<DEF*IT:CR:<IT:CR:DATACI:UN:,031 INTERRUPT WORKSPACE,PC*B @<DATA :NH:CM:UN:,0NEXT HIGHER,LOWERTABLEAD<CN:UN:DATA0,0,0,0,CIST:UN:,0,0,0NI WORKSPAC C`E<`t9DATA0,0,0,0,>:CR:,0,0,0<DEFWPCM:UN:DEFFOR INTERRUPT DECODER<WPCM:UN:EQU,$Bt@<CI:UN:DATA%-1,CIRB:UN:,0,CITB:UN:,CIST:UN:,0,0,0IWS<DATA0,0,0,0,>:CR:,0,0,0< CPTISRI2C':@`SRCHANNEL PARAMETERTABLE<DATA0,0MODEMSERVICE WORDS<DATA0,0TIMEOUTQUEUE WORDS6B@<DATA 0,0,0,0,0,0ERRORCOUNTERS<DATA :AC:ACUCRUADDRESS<CITB:UN:DATA0,0,0,0,0,0,0B6B@,0,0,0,0,0,0,0,0XMITXFERCONTR<CIRB:UN:DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0RCVXFERCONTROB>BDBBBCMIST ` XV8}R`@"ؤ "}`"@UNCRNHPRACXX3@ $XX'LT',NHUN.V XX.S#=NH.S <REF &:NH:CM:UN:<DEF LTCM:UN:LINETAB.COM@LEADDRESSIFNONE<LTCM:UN:EQU.$<CIST:UN:DATA>FFFFNIBUSYFLAG<DATA0,0NIEW@ NTRY QUEUE<DATA CN:UN:,0NIENTRY VECTOR<DATA0CURRENT CONNECTEDSTATE<BYTE 3SER@,>B0TABLETYPE,FCNS SUPPORTED<DEF*IT:CR:<IT:CR:DATACI:UN:,031 INTERRUPT WORKSSPACE,P@C<DATA :NH:CM:UN:,0NEXT HIGHER,LOWERTABLEAD<CN:UN:DATA$0,BCRB:UN:,0,BCXB:UN:,CIST:UN:,0,0,A00NIWO`t9<DATA0,0,0,0,>:CR:,0,0,0<DEFWPCM:UN:DEFFOR INTERRUPTDECODER<WPCM:UN:Et@QU-$<CI:UN:DATA$0,BCRB:UN:,0,BCXB:UN:,CIST:UN:,0,0,0IWS<DATA0,0,0,0,>:CR:,0,0,0<Dj@ATA 0,0,0PENDINGREQUESTQUEUEANDERRO<DATA:PR:PROTOCOL SELECTION<DATA0SEQUENCEC.BCM@OUNT<DATA0BOARDSTATUS<DATA0STATUSCOUNT REMAINING<BCXB:UN:EQU-$<D@ATA 0,0,0,0,0,0,0TRANSMITCTL BLK<BCRB:UN:EQU-$<DATA 0,0,0,0,0,0,0RECEIVECTL BLK<0@BCEB:UN:EQU-$<DATA 0,0,0,0,0,0,0OTHERCTLBLK<DATA0 FILLER/STATUSOP(LEAVETHISO#=BUD!<DATA0,0NEXT4BYTESOFSTATUS<BYTD`@E0 COMPLETIONCODE<DATA0LOSTCRBCOUANNE@@NT<DATA0ACTIVECOMMAND PTR<DATA BCEB:UN:PTRTOOTHERCTL BLK<DATA0COMMA:UN@NDINHIBIT<DATA:AC:ACUCRUADDRESS<DATA0BOARDDATA ADDRESSTA >FFFFCHANNELSTATUSDEF*IT:TI:<IT:TI:DATA C H H RT@OH ART OF IST (ISR TABLE) 0 NIBUSY DATA >FFFF  NON INTERRUPT BUSY FLAG 00NIQUE DATA 0,0  NON INTERRUPT ENTRY QUEUE 0$* NEWEST/OLDEST ENTRY POINTERS $6NIWSP DATA NIR0 GEN NON INTERRUPT ENTRY POINT 6NIADD DATA 0  HHRTOH#@ $ASG XX.V+1 TO XX.V $GOTO LP   $ENDIF !  $END FC3IST  LIST "'FC3IST `Y 8}T`@"8@B }`"@UNTINCXXLP1 @@,TIUN.V&XX0<DEF(CIST:UN:<CIST:UN:DATA >FFFFNON INTERRUPTBUSYFLAG<B,@DATA0,0NON INTERRUPTENTRYQUEUE<DATACN:UN:,0NON INTERRUPTENTRYVECTOR<BYTE :UN@@:,0BASEUNITTYPE<BYTE 2%%,>83TABLETYPE,FCNS SUPPORTED<DEF*IT:TI:<IT:TI:DATA C@I:UN:,0 INTERRUPTENTRYVECTOR<DATA0NEXTHIGHERLEVELTABLEADDRES<DATA0NEXTLOWERL@@EVELTABLEADDRESS<CN:UN:DATA0,0,0,0,CIST:UN:,0,0,0NI WORKSPACE<DATA0,0,0,0,>:TI:,0,0,0B <DEF `t9WPCM:UN:DEFFOR INTERRUPTDECODER<WPCM:UN:EQU-$<CI:UN:DATA0,0,0,0,CIST:UN:,0,0,t@0I WORKSPACE<DATA0,0,0,0,>:TI:,0,0,0<DATA>FFFFBOARDFAILURE INDICATOR<DATA 0<@ ,0PENDINGQUEUE<DATA 0DEVICEERRORCOUNT<DATA :NC:NUMBEROF SUPPORTEDCHANNELS< C@FCCT:UN:EQU $STARTOFCHANNEL TABLE XX.V#=NC.V <DATA0CHANNEL:XX.V: TABLE&XX@XX.V+1 LPBYTE0,0SYSFLG-USERFLG<DATA0CRBOWNER<DATA0DSRMAPFILE ADN:,0  RORG " <  00f7212DPL.ERRORS @ GGRTOH,CPTISR `Y 8}U`@"}`">@<DATA0PROTOCOL SELECTIONWORD<DATA0TRANSMIT/RECEIVE INTERCHARACTE<DATA0XMIT@CRU INSTRUCTION<DATA09903CONTROL WORD<DATA0SYNC1,SYNC2 CHARACTERS<DATA0NL@@ MODIFIERS,NO SYNCS<DATA0RECORDLENGTH<DATA0ISR PARAMETER FLAG<DATA0C@ONRTSIDLE,RESERVED<DATA0XMITDATA THRESHOLD<DATA0TRAILINGPAD VALUE,COUNT<B,@@DATA0OPEN COMPLETION, DISCONNECTTI<DATA0IDLETIMER, RESERVED<DATA0COMMIFOW2@,OW3<DATA0COMMIFOW4, RESERVED<DATA0RESERVED<DATA0CHARMODE INSTRUCTION@<DATA0`r8 CHARACTERDETECT FLAG<DATA0CDRTN ADDRESSES<DATA 0,0,0,0POLL ADDRESSESr@<DATA0SYNC INSERTION TIMER<DATA0GLOBALFLAGS R7 TEMP& DATA 0  R8  ENTRY CRB ADDRESS &" DATA 0,0,0 REGISTERS R9-R11"*CRUADD DATA 0  R12GNCRU BASE ADDRESS* DATA 0  R13CALLING WP DATA 0  R14CALLING PC$NIST DATA 0  R15CALLING ST$&0,0,0+@&@,0,0,0,0,0,0,0,0XMITXFERCONTR<C HZHZRTtOK7ST)  DATA 0  R1 TEMP DATA 0  R2 TEMP DATA 0  R3 TEMP4NITAB DATA IST  R4GENPOINTER TO IST BEGINNING 40 DATA 0  R5 CONTROL BLOCK ADDRESS (TEMP) 0 DATA 0  R6 TEMPORARY   DATA 0  /CPDEXT `YP8}W`"X`b`}`"@DN@`,DN0<DEFPS:DN:PDTADDRESS<REF*LT:DN:<DATALT:DN:POINTERTONEXTLOWE@RLEVELTABLE<DATA0,0,0COMMPACKAGE STATISTICS<DATA 0BROFLAG-MUSTBE ZERO4E<DATA 0,0,0,0,0,0MOREOFTHEBRO<DATA>4F00>L@4E+1OPCODE<DATA+0,0,0<DATA)0,0,0,0<DATA 0IRBADDRESS-MUSTBE ZERO@<CRB >70,0CRB DEFINITION- OPCODE,TCBADDRESShx~``Px~`` TSB TSB ADD1COMIST `Y 8}X`@"X`b@}~`"@UNCRNHPRACXX3@`$XX'LT',NHUN.V XX.S#=NH.S <REF &:NH:CM:UN:<DEF LTCM:UN:LINETAB C'@LEADDRESSIFNONE<LTCM:UN:EQU.$<CIST:UN:DATA>FFFFNIBUSYFLAG<DATA0,0NIE@`NTRY QUEUE<DATA CN:UN:,0NIENTRY VECTOR<DATA0CURRENT CONNECTEDSTATE<BYTE 1x@,>B0TABLETYPE,FCNS SUPPORTED<DEF*IT:CR:<IT:CR:DATACI:UN:,031 INTERRUPT WORKSPACE,PCy @<DATA :NH:CM:UN:,0NEXT HIGHER,LOWERTABLEAD<CN:UN:DATA0,0,0,0,CIST:UN:,0,0,0NI WORKSPAC@E<`t9DATA0,0,0,0,>:CR:,0,0,0<DEFWPCM:UN:DEFFOR INTERRUPT DECODER<WPCM:UN:EQU,$t@<CI:UN:DATA%-1,CIRB:UN:,0,CITB:UN:,CIST:UN:,0,0,0IWS<DATA0,0,0,0,>:CR:,0,0,0< CPTISRIw`@@SRCHANNEL PARAMETERTABLE<DATA0,0MODEMSERVICE WORDS<DATA0,0TIMEOUTQUEUE WORDS&@<DATA 0,0,0,0,0,0ERRORCOUNTERS<DATA :AC:ACUCRUADDRESS<CITB:UN:DATA0,0,0,0,0,0,0+@&@,0,0,0,0,0,0,0,0XMITXFERCONTR<CIRB:UN:DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0RCVXFERCONTROCB*BB(2 DATA 0  R1 TEMP DATA 0  R2 TEMP DATA 0  R3 TEMP4NITAB DATA IST  R4GENPOINTER TO IST BEGINNING 40 DATA 0  R5 CONTROL BLOCK ADDRESS (TEMP) 0 D3CRB `Y#P8}Z`" 0(}x`"@OPTC@<DATA0,0CRBQUEUE LINKAGE<DATA0 REQUESTINGTABLE ADDR<BYTE :OP:,0OPCODE-E C@ RROR CODE<BYTE0,0SYSFLG-USERFLG<DATA0CRBOWNER<DATA0DSRMAPFILE ADN:,0@DRESS<DATA0FIRSTTCBMAP FILE<DATA:TC:FIRSTTCB ADDRESS<DATA0TEMPA-.COM@ FIRSTEXTENDEDFLAGS<DATA0TEMP1-SLAVE1<DATA0TEMP2-SLAVE2<DATM:UN@A0TEMP3-SLAVE3<WPCM:UN:EQU,$B<CI:UN:DATA%-1,CIRB:UN:,0,CITB:UN:,CIST:UN:,0,0,0IW BITS 4-7  TEOD UTILITY D 6Y'66}}[D$DFX$ D Y] 3 }]EOD LYN Yi83 }_"}~@`"@FP@<BYTE 4,:F.S:,:P.S: ERROR IN OUTPUT TERMINATION΋%x#~B .#z#|`%΋%z #z #|#~ #| . #|`%΋%~ #z #~#|`%΋%x #z #|#~A #|J ΀#$~J J#|`%΋%z΁΂J!* LIDP Yl83 }a"X`b}~p`"@FLFP@<BYTE7,:F.S:,:LF.S:,:P.S:ATE A BYTE.  $ELSE" , $IFNB.V>16  IF GREATER THAN 16 BITS ,* THEN ERROR  TOO MANY BITS FOR ONE WORD   $ELSE ELSE*  ALLOCATE ONE WORD  BSS2 !  $ASG NB.V TO MX.SV  $ENDIF !  $ENDIF ! 2 $ASG 0 TO L.SV  RESET L (BITߕMMRTO4 2'$ 1@Q .@ 1@@ .v 2  40 DF Yo83 }b"@P‘@H}`"@FS@&SS.L-2<BYTE16,:F.S:,:S.V:<TEXT':S.S:@* * % 0*  ARGUMENTS: X - ENTRY POINT DESIRED %%* %0.* TN- NEVER SPECIFIED ON CALL LINE !* %..* VL- NEVER SPECIFIED ON CALL LINE !* %. * * % :*  PURPOSE: GENERATE CORRECT OVERLAY NUMBER AND* %:2*  OFFSET FOR EACH ENTRY POINT NEEDED IN* %2.*  MEMORY RESIDENT SYSTEM OVERLAYS. * %. * * % <*  NOTE:CHANGES TO THIS MACRO MUST BE COORDINATED * %<*  WITH CHANGES TO THE CORR RTN Yr3 }d"Ž@}~`"@<BYTE*14 m~xxx~x`x`x`x~(xxx0~8}@}@}@!  BSS2 !  $END " @************************************************************ @* '* MACRO WORD !* '*  CALL:#*  [