Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_1_19910112
-
5-galaxy/mtrmac.crf
There are no other files named mtrmac.crf in the archive.
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 1
MTRMAC MAC 3-Oct-84 11:03 Preliminaries
BC ;MTRMAC - Universal file for MOUNTR et al
BSUBTTLC SUBTTL Preliminaries
BC
BC ;
BC ;
BC ; COPYRIGHT (C) 1984
BC ; DIGITAL EQUIPMENT CORPORATION
BC ;
BC ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
BC ; AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
BC ; AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS
BC ; SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR
BC ; OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO
BC ; AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
BC ;
BC ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE
BC ; WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
BC ; BY DIGITAL EQUIPMENT CORPORATION.
BC ;
BC ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
BC ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY
BC ; DIGITAL.
BC
BIFNDEFRELC IFNDEF REL,<REl==0> ;if ~0 assemble rel
BIFERELC IFE REL,<
BUNIVERC Universal MTRMAC - MOUNTR Macro and Data definitions
BIF2C IF2,<
BPRINTXC PRINTX [Assembling MTRMAC.UNV]
BC > ; End IF2
B.DIRECC .directive .nobin
BC >
BIFNRELC IFN REL,<
BC Title MTRMAC - MOUNTR Macro and Data definitions
BC IF2,<
BC PRINTX [Assembling MTRMAC.REL]
BC > ; End IF2
BC >
BC
BSALLC SALL ;FOR CLEAN LISTINGS
BC
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 2
MTRMAC MAC 3-Oct-84 11:03 Preliminaries
BC
BSUBTTLC SUBTTL Required files
BC
BSEARCHC SEARCH MONSYM
BSEARCHC SEARCH MACSYM
BSEARCHC SEARCH ACTSYM
BSEARCHC SEARCH SERCOD
BSEARCHC SEARCH GLXMAC
BSEARCHC SEARCH QSRMAC
BSEARCHC SEARCH ORNMAC
BC
BC
BC
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 3
MTRMAC MAC 3-Oct-84 11:03 Required files
BC
BSUBTTLC SUBTTL Version Information
BC
BMACMANC 000000 MACMAN==:0 ;Maintenance edit number
BMACDEVC 000031 MACDEV==:31 ;Development edit number
BVERSINIFGMACMANMACDEVIFLEMACMANMACDEVMACDEVMACEDTC VERSIN (MAC) ;Gerate edit number
BC
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 4
MTRMAC MAC 3-Oct-84 11:03 Table of Contents
BSUBTTLC SUBTTL Table of Contents
BC
BC
BC ; Table of Contents for MTRMAC
BC ;
BC ;
BC ; Section Page
BC ; 1. Preliminaries. . . . . . . . . . . . . . . . . . . . . 1
BC ; 2. Required files . . . . . . . . . . . . . . . . . . . . 2
BC ; 3. Version Information. . . . . . . . . . . . . . . . . . 3
BC ; 4. Table of Contents. . . . . . . . . . . . . . . . . . . 4
BC ; 5. Revision History . . . . . . . . . . . . . . . . . . . 5
BC ; 6. PROGRAM-WIDE MACROS. . . . . . . . . . . . . . . . . . 6
BC ; 7. MACROS FOR LINKED LISTS. . . . . . . . . . . . . . . . 8
BC ; 8. EQUATES. . . . . . . . . . . . . . . . . . . . . . . . 9
BC ; 9. Device Status Entries
BC ; 9.1. Explanation of device status organization . . 12
BC ; 9.2. Format of device status file. . . . . . . . . 13
BC ; 9.3. Format of device entry. . . . . . . . . . . . 14
BC ; 9.4. MTA Status Block (MSB). . . . . . . . . . . . 15
BC ; 9.5. MSB field definitions . . . . . . . . . . . . 16
BC ; 9.6. MT Status Block . . . . . . . . . . . . . . . 17
BC ; 9.7. Disk Status Block (DSB) . . . . . . . . . . . 18
BC ; 9.8. DSB Field Definitions . . . . . . . . . . . . 19
BC ; 9.9. Structure Status Block (SSB). . . . . . . . . 20
BC ; 9.10. SSB Field Definitions . . . . . . . . . . . . 21
BC ; 10. WTB - Write To Operator with reply Block . . . . . . . 22
BC ; 11. Request Status Block
BC ; 11.1. Tape Mount RSB. . . . . . . . . . . . . . . . 23
BC ; 11.2. Tape Mount Field Definitions. . . . . . . . . 24
BC ; 11.3. Structure Mount RSB . . . . . . . . . . . . . 26
BC ; 11.4. Structure Mount Field Definitions . . . . . . 27
BC ; 11.5. Port RSB. . . . . . . . . . . . . . . . . . . 28
BC ; 11.6. Port Field Definitions. . . . . . . . . . . . 29
BC ; 12. MAGTAPE ACCOUNT STATUS BLOCK
BC ; 12.1. Description . . . . . . . . . . . . . . . . . 30
BC ; 12.2. Field Definitions . . . . . . . . . . . . . . 31
BC ; 13. STRUCTURE ACCOUNT STATUS BLOCK . . . . . . . . . . . . 32
BC ; 14. ADDRESS SPACE ALLOCATION . . . . . . . . . . . . . . . 33
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 5
MTRMAC MAC 3-Oct-84 11:03 Revision History
BSUBTTLC SUBTTL Revision History
BC
BCOMMENC COMMENT \
BC
BC ***** Release 5.0 -- Begin Development edits *****
BC
BC 1 gco 5.1015 4-mar-83
BC Create MTRMAC.UNV with data and macro definitions.
BC
BC 2 5.1018 16-mar-83
BC Move command definitions back to MOUNTR.
BC
BC 3 4.2.1544 17-mar-83
BC Correct definition for bad home block in unit.
BC
BC 4 5.1020 29-mar-83
BC Add definitions for divided ipcf.
BC
BC 5 5.1022 7-apr-83
BC Add value CIPORT for demarcating the CI port on disk status displays.
BC
BC 6 5.1029 24-may-83
BC Add support for SET PORT CI command. Add Port status block.
BC
BC 7 5.1030 22-june-83
BC Add RSBSUP and RSBDSK so that the state of the port request can be
BC maitained while doing a port operation requested dismount.
BC
BC 10 5.1037 23-sept-83
BC Add bit definitions for exclusive.
BC
BC 11 5.1055 8-Nov-83
BC Add bit definition for REMOVE/NOREMOVE.
BC
BC 12 5.1054 15-Nov-83
BC Add a bit, R%EXC, to say we are setting a structure exclusive.
BC Add the displacement to the characteristic to set in the right
BC half of RSBMS1.
BC
BC 13 5.1060 28-Nov-83
BC Add a bit, R%REP, to RSBIFL to indicate a FORCE action to a port
BC operation. Set if FORCE.
BC
BC 14 5.1061 28-Nov-83
BC Define a PORT entry for the DEVICE-STATUS.BIN file.
BC
BC 15 5.1078 4-Feb-84
BC Lots of changes:
BC 1. Eliminate second "Assembling MTRMAC.UNV" message during assembly.
BC 2. Add table of contents
BC 3. Define $STOP macro.
BC 4. Add explanation of device status organization.
BC 5. Reformat device status file entries
BC 6. Rearrange order of description of the various types of status blocks.
BC 7. Add pointers to the DDB in the status blocks.
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 5-1
MTRMAC MAC 3-Oct-84 11:03 Revision History
BC 8. Add a second structure status word to the SSB. STRFLG contains the
BC most recent results of asking the monitor the state of the structure.
BC STRFL1 contains additional information flags to tell if the structure
BC was previously mounted, previously with errors, or is currently being
BC dismounted.
BC 9. Quit defining the MSTR status flags in MTRMAC. Use definitions from MONSYM.
BC
BC 16 5.1084 10-Feb-84
BC Add bit definition for DSPFLG, the display message flag word.
BC
BC 17 5.1088 11-Feb-84
BC Remove structure command table used by old MOUNTR.CMD code.
BC
BC 20 5.1101 20-Feb-84
BC Add some new bits to the "don't care" MS%NTC.
BC
BC 21 5.1102 20-Feb-84
BC Add new TMCTI macro that will accept an address to a TMCT argument
BC string.
BC
BC 22 5.1105 21-Feb-84
BC Increase space of the TMCT buffer, TMCMSG, from 1 to 5 pages.
BC
BC 23 5.1106 23-Feb-84
BC Add bit (STR%EP) to indicate structure has been set exclusive due to
BC port operation. Also, update comment on what is in RSBDSK in the port RSB.
BC
BC 24 5.1118 16-Mar-84
BC Express size of the TMCT buffer as the symbol, MSGLEN
BC
BC 25 5.1142 16-May-84
BC Define STR%UD to state that this structure is unavailable due to
BC dismount/remove.
BC
BC 26 5.1146 31-May-84
BC Add the third word, DSB.VE to the DDB diagram.
BC
BC 27 5.1150 11-Jul-84
BC Increase the size of RMKLEN to decimal 50 words.
BC
BC 30 5.1151 11-Jul-84
BC Define DEFPRO as the default tape protection value when initializing a
BC tape.
BC
BC 31 5.1165 3-Oct-84
BC Define a new MACRO, DVTGEN, to generate device table. Add new symbol
BC MTADVT for device type.
BC
BC \ ;End of Revision History
BC
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 6
MTRMAC MAC 3-Oct-84 11:03 PROGRAM-WIDE MACROS
BSUBTTLC SUBTTL PROGRAM-WIDE MACROS
BC
BC ; MACRO TO PROVIDE A VALUE 1 GREATER THAT IT DID THE LAST TIME
BC
BDEFINENEXTC DEFINE NEXT <NEXT$ ;;GIVE CURRENT VALUE
BC NEXT$==NEXT$+1 ;;INCREMENT IT
BC >
BC
BC ; MACRO TO DEFINE OFFSETS TO FIELDS WITHIN A MEMORY BLOCK
BC
BDEFINEFLDDEFC DEFINE FLDDEF (FLDSYM,FLDLEN) <
BC FLDSYM==FLDPTR ;;DEFINE FIELD-OFFSET SYMBOL
BC FLDPTR==FLDPTR+FLDLEN ;;RESERVE ROOM FOR FIELD
BC >
BC
BC ; SAVEQ MACRO - WORKS LIKE SAVEAC <Q1,Q2,Q3>
BC ; SAVET MACRO - WORKS LIKE SAVEAC <T1,T2,T3,T4>
BC ; STAKT MACRO - WORKS LIKE ASUBR WITH NO ARGUMENTS, DOESN'T USE AC15
BC ; Tn ON STACK MAY BE REFERENCED AS CTn
BC
BDEFINESAVEQC DEFINE SAVEQ <JSP CX,SAVEQR>
BDEFINESAVETC DEFINE SAVET <JSP CX,SAVETR>
BDEFINESTAKTC DEFINE STAKT <JSP CX,STAKTR>
BDEFINECT1C DEFINE CT1<-4(P)> ;CALLER'S T1
BDEFINECT2C DEFINE CT2<-3(P)> ;CALLER'S T2
BDEFINECT3C DEFINE CT3<-2(P)> ;CALLER'S T3
BDEFINECT4C DEFINE CT4<-1(P)> ;CALLER'S T4
BC
BC ; ASSEMBLY-CONTROL
BC
BDEFINEPRINT1C DEFINE PRINT1(PR1) <IF1 <PRINTX PR1>> ;PRINTX FOR PASS1 ONLY
BC
BC ; MACRO TO DEFINE ASSOCIATED-PROCESS TABLES
BC
BDEFINEAPTABLC DEFINE APTABL <
BC APENT QSR ;;QUASAR
BC APENT ORN ;;ORION
BC >
BC
BC ; MACROS TO GENERATE BYTE POINTERS TO FIELDS IN LBUF2
BC ; LPTR(ARG) - BYTE POINTER TO FIELD FOR LDB/DPB
BC ; ILPTR(ARG) - BYTE POINTER TO FIELD FOR ILDB/IDPB
BC ; ARGUMENT IS BYTE POSITION OF FIELD (VALUE BETWEEN 1 AND 80)
BC
BDEFINEC DEFINE LPTR (LCP1)
BLPTRC <POINT 7,LBUF2+<LCP1+4>/5-1,<LCP1-<<LCP1-1>/5*5>>*7-1>
BDEFINEC DEFINE ILPTR (LCP1)
BILPTRC <POINT 7,LBUF2+<LCP1+3>/5-1,<LCP1-<<LCP1+3>/5-1>*5>*7-8>
BC
BC ; CONDITIONAL ASSEMBLY MACROS FOR "NOSHIP" CODE
BC
BIFNDEFSHIPSWC IFNDEF SHIPSW,<SHIPSW==-1>
BDEFINENOSHIPC DEFINE NOSHIP<IFE SHIPSW>
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 7
MTRMAC MAC 3-Oct-84 11:03 PROGRAM-WIDE MACROS
BC
BC ; MACROS TO GENERATE CALLS TO ASCIZ TEXT MESSAGE COMPOSER
BC
BDEFINETMCTC DEFINE TMCT (TMCTA) <
BC MOVEI CX,[ASCIZ\TMCTA\] ;;GET ADDRESS OF FORMATTING STRING
BC CALL TMCT0 ;;CALL FORMATTING ROUTINE
BC >
BC
BDEFINETMCTIC DEFINE TMCTI (ADDR) <
BC MOVEI CX,ADDR ;;Get address of formatting string
BC CALL TMCT0 ;;Call formatting routine
BC >
BC
BDEFINETMCTOC DEFINE TMCTO (TMCTA) <
BC CALL TMCT0 ;;CALL FORMATTING ROUTINE ONLY
BC >
BC
BDEFINETMCTNC DEFINE TMCTN (TMCTA) <
BC MOVEI CX,[ASCIZ\TMCTA\] ;;GET ADDRESS OF FORMATTING STRING ONLY
BC >
BC
BDEFINETMCTRC DEFINE TMCTR (TMCTA) <
BC JSP CX,TMCT0 ;;POINT CX AT STRING AND CALLRET TMCT0
BC ASCIZ\TMCTA\
BC >
BC
BC ; MACROS TO ABORT USER MOUNT REQUEST - RSB ADDRESS MUST BE IN RSB AC
BC
BDEFINEABTREQC DEFINE ABTREQ (ABTCOD,ABTFLG<0>) <
BC CALL AREQ ;;CALL ABORT ROUTINE
BC EXP ABTCOD+ABTFLG
BC >
BC
BDEFINEABTRETC DEFINE ABTRET (ABTCOD,ABTFLG<0>) <
BC CALL ARET ;;CALL ABORT-AND-RET ROUTINE
BC EXP ABTCOD+ABTFLG
BC >
BC
BABT%OPC 400000 000000 ABT%OP==:1B0 ;OPERATOR RESPONSE IS PRESENT
BABT%INC 200000 000000 ABT%IN==:1B1 ;ABTCOD IS ADDRESS OF LOC CONTAINING CODE
BC
BC ; MACRO TO EXECUTE AND TIME OUT I/O JSYS
BC
BDEFINEIOXCTC DEFINE IOXCT (IOJSYS,IOERR,IOTIMO) <
BC CALL IOXCTR ;;CALL DRIVER ROUTINE
BC IOJSYS ;;JSYS TO BE EXECUTED
BC XWD IOERR,IOTIMO ;;ERROR ADDRESS, TIMEOUT ADDRESS
BC >
BC
BC ; MACRO TO CREATE AND INIT STACK AREA AND QSB AC FOR QUEUE SCAN
BC ; ARGUMENT IS ADDRESS OF QUEUE DESCRIPTOR BLOCK (QDB)
BC
BDEFINEQSCANIC DEFINE QSCANI (QDBADR) <
BC JSP CX,QSCNIR ;;CALL DRIVER
BC SETZ QDBADR ;;QDB ADDRESS IN IFIW FORMAT
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 7-1
MTRMAC MAC 3-Oct-84 11:03 PROGRAM-WIDE MACROS
BC >
BC
BC ; MACRO TO MARK PLACES THAT HAVE TO CHANGE IF MORE LABEL TYPES ARE ADDED
BC
BDEFINEMAXLTC DEFINE MAXLT <IFN .LTMAX-4,<IF2 <PRINTX LABEL TYPE ADDED>>>
BC
BC ; Macro to cause a stop while using a reasonable message
BC ; Note: the resulting macro generates one executable instruction so
BC ; it can be SKIPed.
BC
BDEFINE$STOPC DEFINE $STOP (MESS) <
BC CALL STOPNW
BC JUMP [ASCIZ/MESS/]
BC >
BC
BC ; Macro to generate table of device types, for output show status tape-drive
BDEFINEDVTGENC DEFINE DVTGEN(TYPE),<
BC IRP TYPE,<
BC XWD [ASCIZ/ TU'TYPE/],.MTT'TYPE
BC >>
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 8
MTRMAC MAC 3-Oct-84 11:03 MACROS FOR LINKED LISTS
BSUBTTLC SUBTTL MACROS FOR LINKED LISTS
BC
BC
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 9
MTRMAC MAC 3-Oct-84 11:03 EQUATES
BSUBTTLC SUBTTL EQUATES
BC
BC ; IT IS EXPECTED THAT THE EQUATES ON THIS PAGE MAY CHANGE TO
BC ; REFLECT CHANGES IN TOPS-20 OR IN THE REQUIREMENTS OF THIS PROGRAM
BC
BC ; TABLE OF VALID TOPS-20 DENSITIES INDEXED BY MONSYM DENSITY CODE
BC
BDEFINEDENLSTC DEFINE DENLST <
BC 0 ;;ZEROTH ENTRY UNUSED
BC ^D200 ;;.SJDN2
BC ^D556 ;;.SJDN5
BC ^D800 ;;.SJDN8
BC ^D1600 ;;.SJD16
BC ^D6250 ;;.SJD62
BC >
BC ; MISCELLANEOUS
BC
BPOLINTC 000170 POLINT==:^D120 ;NUMBER OF SECONDS BETWEEN MAGTAPE POLLS
BMAXACCC 000400 MAXACC==:400 ;NUMBER OF ACCOUNTING-BLOCKS
BMAXDSKC 000100 MAXDSK==:100 ;MAXIMUM # OF DISK DRIVES SUPPORTED
BMAXMRQC 000400 MAXMRQ==:400 ;MAXIMUM # OF MOUNT REQUESTS
BMAXMTC 000100 MAXMT==:100 ;MAXIMUM # OF MT DEVICES
BMAXMTAC 000100 MAXMTA==:100 ;MAXIMUM # OF MTA DEVICES
BANSVC 000063 ANSV==:"3" ;ANSI LABELING STANDARD VERSION NUMBER
BDECVC 000061 DECV==:"1" ;DEC LABELING STANDARD VERSION NUMBER
BPDLENC 000140 PDLEN==:140 ;LENGTH OF PUSH-DOWN LIST (WORDS)
BRMKLENC 000062 RMKLEN==:^D50 ;MAXIMUM SIZE (WORDS) OF ASCIZ MOUNT REMARK
BDSFPGSC 000001 DSFPGS==:1 ;# OF PAGES IN DEVICE-STATUS FILE
BSYRMSZC 000040 SYRMSZ==:40 ;MAX WORDS IN SYSERR MSG EXCLUDING HEADER
BIFNDEFTSTC IFNDEF TST,<TST==:0> ;1=TEST VERSION, 0=REAL VERSION
BSYRHSZC 000004 SYRHSZ==:4 ;# OF WORDS IN SYSERR ENTRY HEADER
B.MODVTMOSTALC 000006 MOSTAL==:.MODVT+1 ;LENGTH OF .MOSTA MTOPR ARGUMENT BLOCK
BWTOMAX.OHDRSPBMAXC 004242 PBMAX==<WTOMAX-.OHDRS-3>*5 ;Maximum number of bytes orion can handle.
BCIPORTC 000007 CIPORT==7 ;CI PORT NUMBER FOR KL
B.PTSETC 000004 .PTSET==4 ;Request type for Port request block
BDEFPROC 777777 DEFPRO==:777777 ;Default tape protection when initializing a tape
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 10
MTRMAC MAC 3-Oct-84 11:03 EQUATES
BC
BC ; ACCUMULATOR DEFINITIONS
BC
BFC 000000 F==:0 ;FLAGS
BT1C 000001 T1==:1 ;TEMPORARY
BT2C 000002 T2==:2 ;TEMPORARY
BT3C 000003 T3==:3 ;TEMPORARY
BT4C 000004 T4==:4 ;TEMPORARY
BQ1C 000005 Q1==:5 ;PRESERVED
BQ2C 000006 Q2==:6 ;PRESERVED
BQ3C 000007 Q3==:7 ;PRESERVED
BMTAC 000010 MTA==:10 ;ADDRESS OF MTA STATUS BLOCK
BDSKC 000010 DSK==:10 ;ADDRESS OF DISK STATUS BLOCK
BRSBC 000011 RSB==:11 ;ADDRESS OF USER REQUEST STATUS BLOCK
BMTC 000012 MT==:12 ;ADDRESS OF MT STATUS BLOCK
BSTRC 000012 STR==:12 ;ADDRESS OF STRUCTURE STATUS BLOCK
BQSBC 000013 QSB==:13 ;ADDRESS OF QUEUE-SCAN BLOCK
BACCC 000014 ACC==:14 ;ADDRESS OF ACCOUNT BLOCK
BCXC 000016 CX==:16 ;USED BY SUPPORT CODE
BPC 000017 P==:17 ;PUSH-DOWN POINTER
BC
BC ; DEFINITIONS OF BITS IN FLAG REGISTER (F)
BC
BIRETFC 000001 IRETF==:1B35 ;1 = EXTERNAL INTERRUPTS DEBRK TO SCHEDULER
BMRMSFC 000002 MRMSF==:1B34 ;1 = DO MRECV
BMRPGFC 000004 MRPGF==:1B33 ;1 = DO MRECV IN PAGE MODE
BABORTFC 000010 ABORTF==:1B32 ;1 = ABORTED REQUEST(S) EXIST IN RSB QUEUE
BNOMTFC 000020 NOMTF==:1B31 ;1 = MT SHORTAGE EXISTS
BJTOAFC 000040 JTOAF==:1B30 ;1 = JSYS TIMER ARMED
BTALCFC 000100 TALCF==:1B29 ;1 = TAPE-DRIVE ALLOCATION BY SETSPD
BPOLLFC 000200 POLLF==:1B28 ;1 = MAGTAPE POLLING IN PROGRESS
BINITFC 000400 INITF==:1B27 ;1 = IN INITIALIZATION SEQUENCE
BCDENFC 001000 CDENF==:1B26 ;1 = ^D INTERRUPT ENABLED (^D SCHEDULES DDT)
BARGFC 002000 ARGF==:1B25 ;1 = ARGUMENT PRESENT (TMCT0 ROUTINE)
BPORTFC 004000 PORTF==:1B24 ;1 = PORT OPERATION IN PROCES
BC
BC ; PSI PRIORITY EQUATES (IN ORDER OF DESCENDING PRIORITY)
BC
BPRIPANC 000001 PRIPAN==:1 ;PANIC (CRASH) HANDLERS
BPRIEXTC 000003 PRIEXT==:3 ;EXTERNAL INTERRUPTS
BC
BC ;DEFINITIONS FOR COMND JSYS
BC
B.CMKEYCMKEYC 000000 CMKEY==:<.CMKEY>B8 ;PARSE A KEYWORD
B.CMNOICMNOIC 002000 000000 CMNOI==:<.CMNOI>B8 ;PARSE A GUIDE WORD
B.CMCFMCMCFMC 010000 000000 CMCFM==:<.CMCFM>B8 ;CONFIRM
B.CMFLDCMFLDC 007000 000000 CMFLD==:<.CMFLD>B8 ;PARSE AN ARBITRARY FIELD
BC
BC ; OTHER EQUATES
BC
BDAYSECC 250600 DAYSEC==:^D60*^D60*^D24 ;# OF SECONDS IN A DAY (NEVER CHANGES)
BDSFPGSDSFSZC 001000 DSFSZ==:DSFPGS*1000 ;# OF WORDS IN DEVICE-STATUS FILE
BLBLSIZC 000120 LBLSIZ==:^D80 ;SIZE OF TAPE LABELS IN FRAMES
BLBLSIZLB7WDSC 000020 LB7WDS==:<LBLSIZ+4>/5 ;LENGTH IN WORDS OF 7-BIT-BYTE LABEL
BLBLSIZLB8WDSC 000024 LB8WDS==:<LBLSIZ+3>/4 ;LENGTH IN WORDS OF 8-BIT-BYTE LABEL
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 10-1
MTRMAC MAC 3-Oct-84 11:03 EQUATES
BMTNAVC 000001 MTNAV==:1 ;MTRSB VALUE THAT INDICATES MT NOT AVAILABLE
BUSRLHC 500000 USRLH==:500000 ;LEFT HALF OF USER NUMBER WORD
B.MNTDTC 000077 .MNTDT==:77 ;REQUEST TYPE FOR DECTAPE-MOUNT
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 11
MTRMAC MAC 3-Oct-84 11:03 EQUATES
BC
BC ; OFFSETS OF LABEL FIELDS (VALUES IN THE RANGE 1-80)
BC
BV1VIDC 000005 V1VID==:^D5 ;VOL1 - VOLUME IDENTIFIER
BV1ACSC 000013 V1ACS==:^D11 ;VOL1 - ACCESSIBILITY
BV1SCDC 000031 V1SCD==:^D25 ;VOL1 - SYSTEM CODE
BV1OWNC 000046 V1OWN==:^D38 ;VOL1 - OWNER IDENTIFIER
BV1INAMC 000051 V1INAM==:^D41 ;VOL1 - INSTALLATION NAME (ANSI, TOPS-20)
BV1INMEC 000052 V1INME==:^D42 ;VOL1 - INSTALLATION NAME (EBCDIC)
BTPNMSZC 000012 TPNMSZ==:^D10 ;VOL1 - LENGTH OF V1INAM AND V1INME FIELDS
BV1DECVC 000063 V1DECV==:^D51 ;VOL1 - DEC STANDARD VERSION #
BV1ANSVC 000120 V1ANSV==:^D80 ;VOL1 - ANSI STANDARD VERSION #
BC
BV2PROC 000005 V2PRO==:^D5 ;VOL2 - PROTECTION CODE
BV2PPNC 000013 V2PPN==:^D11 ;VOL2 - PROJECT-PROGRAMMER NUMBER
BV2OWNC 000027 V2OWN==:^D23 ;VOL2 - OWNER'S NAME
BV2OWNLC 000047 V2OWNL==:^D39 ;VOL2 - LENGTH OF OWNER'S NAME
BC
BH1SETC 000026 H1SET==:^D22 ;HDR1 - FILE SET IDENTIFIER (SETNAME)
BH1CREC 000052 H1CRE==:^D42 ;HDR1 - CREATION DATE
BH1EXPC 000060 H1EXP==:^D48 ;HDR1 - FILE EXPIRATION DATE
BH1ACSC 000066 H1ACS==:^D54 ;HDR1 - ACCESSIBILITY
BC
BH2PROC 000046 H2PRO==:^D38 ;HDR2 - PROTECTION CODE (TOPS-20 ONLY)
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 12
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- Explanation of device status organization
BSUBTTLC SUBTTL Device Status Entries -- Explanation of device status organization
BC
BCOMMENC COMMENT %
BC
BC The device status information in MOUNTR for a device will normally
BC be composed of two specific entities. This is because some of the
BC information needs to be preserved across system failures. To make
BC things reasonably efficient, only the essential information will
BC be stored in this "static" Disk Data Base. There is additional
BC information that is stored about the status of a particular device
BC which is stored in the Status Block for the device. For example
BC consider the entries for a disk drive:
BC
BC Disk
BC Status . . Static Disk Data Base
BC Block . .
BC . .
BC +------+ |------|
BC | |----------------------->| | Disk DDB Entry
BC | | | |
BC | |<-----------------------| |
BC | | |------|
BC +------+ . .
BC
BC In this example, the disk DDB entry contains the static information
BC about the disk drive (available/unavailable) and the Disk Status
BC Block (DSB) contains the information based on the current use of the
BC disk drive such as the structure currently mounted on the drive etc.
BC
BC The following devices have this kind of storage arrangement:
BC
BC o Disk Drives
BC o Mag Tape Drives
BC o Structures
BC
BC In addition, there are two special cases:
BC
BC o Ports (the CI) have only a DDB since that contains all the
BC information that MOUNTR needs to be concerned with.
BC o MT devices have only status blocks since there is no information
BC to be preserved across system crashes.
BC
BC % ;End comment
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 13
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- Format of device status file
BSUBTTLC SUBTTL Device Status Entries -- Format of device status file
BC
BC ; DEVICE STATUS FILE
BC ; ==================
BC
BC ; TOPS-20 DEVICE STATUS IS KEPT IN SYSTEM:DEVICE-STATUS.BIN. IT
BC ; IS MAINTAINED AND EXAMINED SOLELY BY THIS PROGRAM. ITS PURPOSE IS
BC ; TO PRESERVE SYSTEM PERIPHERAL DEVICE STATUS ACROSS RELOADS. THE
BC ; FILE IS TREATED AS A MONOLITHIC SET OF PAGES THAT IS MAPPED IN
BC ; ITS ENTIRETY INTO THE AREA DSBUF, WHICH HAS THIS FORMAT:
BC
BC ; !=====================================!
BC ; DSB.CK ! CHECKSUM OF FILE !
BC ; !-------------------------------------!
BC ; DSB.PS ! APR SERIAL NUMBER !
BC ; !-------------------------------------!
BC ; DSB.NE ! # OF ENTRIES IN FILE (n) !
BC ; !-------------------------------------!
BC ; DSB.VE ! VERSION # OF FORMAT OF FILE !
BC ; !-------------------------------------!
BC ; DSB.EO ! !
BC ; \ ENTRY 1 \
BC ; ! !
BC ; !-------------------------------------!
BC ; ! . !
BC ; \ . \
BC ; ! . !
BC ; !-------------------------------------!
BC ; ! !
BC ; \ ENTRY n \
BC ; ! !
BC ; !=====================================!
BC
BC
BC ; ENTRY SIZE IS FIXED, SET BY THE EQUATE FOR DSFESZ
BC ; ALL ENTRIES BEGIN AS FOLLOWS:
BC ;
BC ; WORD 0 - DEVICE TYPE CODE
BC ; WORD 1 - DEVICE IDENTIFIER (UNIQUE WITHIN DEVICE TYPE)
BC ; Word 2 - Flags
BC ; Word 3 - Pointer to status block for this entry
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 14
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- Format of device entry
BSUBTTLC SUBTTL Device Status Entries -- Format of device entry
BC
BDSFTYPC 000000 DSFTYP==:0 ;Device type (if DSFSPC is -1, then this entry
BC ; is a free entry and this field is pointer to
BC ; next freen entry or -1 if no more free entries)
BC
BC ; .DVDSK ;Disk drive device -- defined in MONSYM
BC ; .DVMTA ;Mag tape device -- defined in MONSYM
B.DVSTRC 000001 .DVSTR==:1 ;Structure device
B.DVPRTC 000003 .DVPRT==:3 ;Port device
BC
BDSFSPCC 000001 DSFSPC==:1 ;Device specification (-1 if free entry)
BC
BC ; contains: tape TOPS-20 device designator
BC ; disk drive CKU Number (Channel, Kontroller, Unit)
BC ; structure Alias name in SIXBIT
BC ; port Channel number (7)
BC
BDSFFLGC 000002 DSFFLG==:2 ;Device flags
BC
BDSF%AVC 400000 000000 DSF%AV==:1B0 ;On if unavailable, off if available
BDSF%POC 200000 000000 DSF%PO==:1B1 ;On if effected by port operation, off if no effect
BDSF%EXC 100000 000000 DSF%EX==:1B2 ;On if exclusive, off if don't care (can be shared)
BC ; Structure only attribute
BDSF%DOC 040000 000000 DSF%DO==:1B3 ;On if domestic, off if foreign
BC ; Structure only attribute
BDSF%IGC 020000 000000 DSF%IG==:1B4 ;On if ignored, off if acknowledged
BC ; Structure only attribute
BDSF%RGC 010000 000000 DSF%RG==:1B5 ;On if unregulated, off if regulated
BC ; Structure only attribute
BC
BDSFPNTC 000003 DSFPNT==:3 ;Pointer to the status block for this entry
BC ;-1 indicates that the device exists but there
BC ; is no device status block. Port device currently
BC ; has no device status block.
BC ; 0 indicates the device does not exist
BC ;+n indicates the address of the status block
BC
BDSFESZC 000004 DSFESZ==:4 ;SIZE OF DEVICE-STATUS FILE ENTRIES (WORDS)
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 15
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- MTA Status Block (MSB)
BSUBTTLC SUBTTL Device Status Entries -- MTA Status Block (MSB)
BC
BC ; EACH MTA DEVICE SUPPORTED BY THE SYSTEM HAS A STATUS BLOCK THAT
BC ; CONTAINS VARIOUS PIECES OF DEVICE-DEPENDENT INFORMATION. THE MTA
BC ; AC CONTAINS A POINTER TO THE FIRST WORD OF THE BLOCK THAT BELONGS
BC ; TO THE MTA DEVICE CURRENTLY BEING SERVICED.
BC
BC ; !=======================================================!
BC ;MTAVOL ! VOLID OF CURRENTLY-MOUNTED VOLUME !
BC ; !-------------------------------------------------------!
BC ;MTASET ! SETNAME OF CURRENTLY-MOUNTED VOLUME !
BC ; !-------------------------------------------------------!
BC ;MTAIDV ! VOLID FROM IDENTIFY COMMAND !
BC ; !-------------------------------------------------------!
BC ;MTAFLG ! SINGLE-BIT FLAGS !
BC ; !-------------------------------------------------------!
BC ;MTAFIL ! JFN ! GTJFN COUNT !
BC ; !-------------------------------------------------------!
BC ;MTAP1 ! ! STATE ! LABEL TYPE ! DENSITY !
BC ; !-------------------------------------------------------!
BC ;MTAP2 ! MT STATUS BLOCK ADDRESS ! REWIND END-ACTION ADDRESS !
BC ; !-------------------------------------------------------!
BC ;MTASDN ! SUPPORTED DENSITIES ! DRIVE TYPE CODE !
BC ; !-------------------------------------------------------!
BC ;MTAV1 ! !
BC ; \ IMAGE OF VOL1 LABEL ON TAPE \
BC ; ! (ASCII OR EBCDIC, 8-BIT BYTES) !
BC ; !-------------------------------------------------------!
BC ;MTAV2 ! !
BC ; \ IMAGE OF VOL2 LABEL ON TAPE \
BC ; ! (ASCII OR EBCDIC, 8-BIT BYTES) !
BC ; !-------------------------------------------------------!
BC ;MTAPNT ! Pointer to MTA DDB Entry !
BC ; !=======================================================!
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 16
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- MSB field definitions
BSUBTTLC SUBTTL Device Status Entries -- MSB field definitions
BC
BC ; Definitions of fields within MTA Status Block
BC
BFLDPTRC 000000 FLDPTR==0
BC
BFLDDEFFLDPTRMTAVOLFLDPTRFLDPTRC FLDDEF MTAVOL,1 ;CURRENT MTA VOLID (SIXBIT), 0 IF NONE
BFLDDEFFLDPTRMTASETFLDPTRFLDPTRC FLDDEF MTASET,1 ;CURRENT MTA SETNAME (SIXBIT), 0 IF NONE
BFLDDEFFLDPTRMTAIDVFLDPTRFLDPTRC FLDDEF MTAIDV,1 ;QUEUE LINKAGE WORD
BFLDDEFFLDPTRMTAFLGFLDPTRFLDPTRC FLDDEF MTAFLG,1 ;SINGLE-BIT FLAGS
BMA%LODC 400000 000000 MA%LOD==:1B0 ;DRIVE IS LOADED
BMA%OPNC 200000 000000 MA%OPN==:1B1 ;JFN IS OPEN
BMA%AVEC 100000 000000 MA%AVE==:1B2 ;AVR ENABLED
BMA%AVSC 040000 000000 MA%AVS==:1B3 ;AVR SUPPORTED FOR THIS DRIVE
BMA%WENC 020000 000000 MA%WEN==:1B4 ;WRITE PERMITTED
BMA%SCRC 010000 000000 MA%SCR==:1B5 ;VOLUME IS SCRATCH
BMA%UXVC 004000 000000 MA%UXV==:1B6 ;UNEXPIRED LABELED VOLUME
BMA%VMGC 002000 000000 MA%VMG==:1B7 ;VOLUME-MOUNTED MESSAGE GIVEN TO OPERATOR
BMA%ULPC 001000 000000 MA%ULP==:1B8 ;UNLOAD DRIVE WHEN REWIND COMPLETES
BMA%OPFC 000400 000000 MA%OPF==:1B9 ;OVERWRITE-PROTECTION FLAG, IF SET:
BC ; ANSI - VOLUME MAY NOT BE OVERWRITTEN
BC ; TOPS-20 - NON-OWNER MAY NOT OVERWRITE
BFLDDEFFLDPTRMTAFILFLDPTRFLDPTRC FLDDEF MTAFIL,1 ;FILE STATUS
BFLDDEFFLDPTRMTAP1FLDPTRFLDPTRC FLDDEF MTAP1,1 ;DEFSTR-DEFINED DATA
BFLDDEFFLDPTRMTAP2FLDPTRFLDPTRC FLDDEF MTAP2,1 ;DEFSTR-DEFINED DATA
BFLDDEFFLDPTRMTASDNFLDPTRFLDPTRC FLDDEF MTASDN,1 ;DEFSTR-DEFINED DATA
BFLDDEFFLDPTRMTAV1FLDPTRLB8WDSFLDPTRC FLDDEF MTAV1,LB8WDS ;IMAGE OF VOL1 LABEL ON TAPE
BFLDDEFFLDPTRMTAV2FLDPTRLB8WDSFLDPTRC FLDDEF MTAV2,LB8WDS ;IMAGE OF VOL2 LABEL ON TAPE
BFLDDEFFLDPTRMTAPNTFLDPTRFLDPTRC FLDDEF MTAPNT,1 ;Pointer to MTA DDB Entry
BFLDPTRMTASZC 000061 MTASZ==:FLDPTR ;SIZE OF MTA STATUS BLOCK IN WORDS
BC
BDEFSTRMTAJFNIF1DEFINE%MTAJFC DEFSTR (MTAJFN,MTAFIL(MTA),17,18) ;JFN
BDEFSTRMTAJCTIF1DEFINE%MTAJCC DEFSTR (MTAJCT,MTAFIL(MTA),35,18) ;JFN-IN-USE COUNT
BDEFSTRMTASTEIF1DEFINE%MTASTC DEFSTR (MTASTE,MTAP1(MTA),17,9) ;CURRENT STATE OF DRIVE
BC ; MTASTE/ 0 IF AND ONLY IF MTA NOT ASSIGNED TO MY JOB (VIA ASND)
BS.UNAVC 000000 S.UNAV==:0 ;UNAVAILABLE TO MOUNTR
BS.AVC 000001 S.AV==:1 ;AVAILABLE FOR USE BY USERS
BS.INITC 000002 S.INIT==:2 ;INITIALIZING TAPE VOLUMES
BDEFSTRMTALTIF1DEFINE%MTALTC DEFSTR (MTALT,MTAP1(MTA),26,9) ;LABEL TYPE
BDEFSTRMTADENIF1DEFINE%MTADEC DEFSTR (MTADEN,MTAP1(MTA),35,9) ;DENSITY
BDEFSTRMTAMTIF1DEFINE%MTAMTC DEFSTR (MTAMT,MTAP2(MTA),17,18) ;MT STAT BLK ADDR OR 0 IF NONE
BDEFSTRMTAREAIF1DEFINE%MTAREC DEFSTR (MTAREA,MTAP2(MTA),35,18) ;REWIND END-ACTION SCHEDULE ADDR
BDEFSTRMTADRVIF1DEFINE%MTADRC DEFSTR (MTADRV,MTASDN(MTA),26,9) ;Drive type (1 7-track, 2 9-track)
BDEFSTRMTADVTIF1DEFINE%MTADVC DEFSTR (MTADVT,MTASDN(MTA),35,9) ;Device type. (.MTTxx)
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 17
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- MT Status Block
BSUBTTLC SUBTTL Device Status Entries -- MT Status Block
BC
BC ; EACH MT DEVICE SUPPORTED BY THE SYSTEM HAS A STATUS BLOCK THAT
BC ; CONTAINS DEVICE-RELATED INFORMATION. THE MT AC POINTS TO THE
BC ; FIRST WORD OF THE STATUS BLOCK OF THE MT CURRENTLY BEING SERVICED.
BC
BC ; !=======================================================!
BC ;MTP1 ! ADDR OF MTA STATUS BLOCK !ADDR OF REQUEST STATUS BLK !
BC ; !=======================================================!
BC
BC ; DEFINITIONS OF FIELDS WITHIN MT STATUS BLOCK
BC
BFLDPTRC 000000 FLDPTR==0
BC
BFLDDEFFLDPTRMTP1FLDPTRFLDPTRC FLDDEF MTP1,1 ;DEFSTR-DEFINED DATA
BFLDPTRMTSZC 000001 MTSZ==:FLDPTR ;SIZE OF MT STATUS BLOCK
BC
BDEFSTRMTMTAIF1DEFINE%MTMTAC DEFSTR (MTMTA,MTP1(MT),17,18) ;MTA STATUS BLOCK ADDRESS
BDEFSTRMTRSBIF1DEFINE%MTRSBC DEFSTR (MTRSB,MTP1(MT),35,18) ;REQUEST STATUS BLK ADDRESS
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 18
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- Disk Status Block (DSB)
BSUBTTLC SUBTTL Device Status Entries -- Disk Status Block (DSB)
BC
BC ;EACH DISK ON THE SYSTEM HAS A STATUS BLOCK THAT CONTAINS INFORMATION
BC ;ABOUT THAT DRIVE. THE DSK AC CONTAINS A POINTER TO THE FIRST WORD
BC ;OF THE BLOCK THAT BELONGS TO THE DISK CURRENTLY BEING SERVICED.
BC
BC ; !=======================================================!
BC ;DSKSTN ! SIXBIT STRUCTURE NAME !
BC ; !-------------------------------------------------------!
BC ;DSKSTA ! SIXBIT STRUCTURE ALIAS !
BC ; !-------------------------------------------------------!
BC ;DSKPNT ! Pointer to Disk DDB Entry !
BC ; !-------------------------------------------------------!
BC ;DSKFLG ! STATUS OF UNIT !
BC ; !-------------------------------------------------------!
BC ;DSKNS ! LOGICAL UNIT NUMBER ! NUMBER OF UNITS !
BC ; !-------------------------------------------------------!
BC ;DSKP1 ! 0 !
BC ; !-------------------------------------------------------!
BC ;DSKP2 ! STR STATUS BLOCK ADDRESS ! 0 !
BC ; !-------------------------------------------------------!
BC ;DSKCKU ! CKU NUMBERS (CHANNEL, CONTROLLER, AND UNIT NUMBERS) !
BC ; !=======================================================!
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 19
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- DSB Field Definitions
BSUBTTLC SUBTTL Device Status Entries -- DSB Field Definitions
BC
BC ; DEFINITIONS OF FIELDS WITHIN DISK STATUS BLOCK
BC
BFLDPTRC 000000 FLDPTR==0
BC
BFLDDEFFLDPTRDSKSTNFLDPTRFLDPTRC FLDDEF DSKSTN,1 ;CURRENT FILE STRUCTURE NAME(SIXBIT) - 0 IF NONE
BFLDDEFFLDPTRDSKSTAFLDPTRFLDPTRC FLDDEF DSKSTA,1 ;CURRENT FILE STRUCTURE ALIAS(SIXBIT)-0 IF NONE
BFLDDEFFLDPTRDSKPNTFLDPTRFLDPTRC FLDDEF DSKPNT,1 ;Pointer to Disk DDB Entry
BFLDDEFFLDPTRDSKFLGFLDPTRFLDPTRC FLDDEF DSKFLG,1 ;STATUS OF UNIT
BC ;ITEMS BELOW DEFINED IN MONSYM
BC ; MS%MNT==:1B0 ;UNIT IS PART OF A MOUNTED STRUCTURE
BC ; MS%DIA==:1B2 ;UNIT IS BEING USED BY ON-LINE DIAGNOTIC PROGRAM
BC ; MS%OFL==:1B3 ;UNIT IS OFF LINE
BC ; MS%ERR==:1B4 ;UNIT HAS ERROR THAT WAS DETECTED DURING READING
BC ; MS%BBB==:1B5 ;UNIT HAS A BAD BAT BLOCK
BC ; ms%hbb==:1b6 ;Unit has bad home block
BC ; MS%WLK==:1B7 ;UNIT IS WRITE-LOCKED
BC ; MS%TYP==:777B17 ;TYPE OF DISK UNIT
BC ; .MSRP4==:1 ;RP04
BC ; .MSRP5==:5 ;RP05
BC ; .MSRP6==:6 ;RP06
BC ; .MSRP7==:7 ;RP07
BFLDDEFFLDPTRDSKNSFLDPTRFLDPTRC FLDDEF DSKNS,1 ;LOGICAL UNIT # WITHIN STR,,# OF UNITS IN STR
BFLDDEFFLDPTRDSKP1FLDPTRFLDPTRC FLDDEF DSKP1,1 ;UNUSED
BFLDDEFFLDPTRDSKP2FLDPTRFLDPTRC FLDDEF DSKP2,1 ;STR STATUS BLOCK ADDR
BFLDDEFFLDPTRDSKCKUFLDPTRFLDPTRC FLDDEF DSKCKU,1 ;CHANNEL, CONTROLLER, AND UNIT NUMBERS
BFLDPTRDSKSZC 000010 DSKSZ==:FLDPTR ;SIZE OF DSK STATUS BLOCK
BC
BDEFSTRDSKTYPIF1DEFINE%DSKTYC DEFSTR (DSKTYP,DSKFLG,17,11) ;TYPE OF DISK UNIT
BDEFSTRDSKLUNIF1DEFINE%DSKLUC DEFSTR (DSKLUN,DSKNS,17,18) ;LOGICAL UNIT NUMBER OF DISK WITHIN STR
BDEFSTRDSKNOUIF1DEFINE%DSKNOC DEFSTR (DSKNOU,DSKNS,35,18) ;NUMBER OF DISK UNITS IN STRUCTURE
BDEFSTRDSKSSAIF1DEFINE%DSKSSC DEFSTR (DSKSSA,DSKP2,17,18) ;STRUCTURE STATUS BLOCK ADDRESS
BMSKSTRDOP%C2DSKCHNIF1DEFINE%DSKCHC MSKSTR (DSKCHN,DSKCKU,DOP%C2) ;CHANNEL NUMBER
BMSKSTRDOP%K2DSKCTRIF1DEFINE%DSKCTC MSKSTR (DSKCTR,DSKCKU,DOP%K2) ;CONTROLLER NUMBER
BMSKSTRDOP%U2DSKDRVIF1DEFINE%DSKDRC MSKSTR (DSKDRV,DSKCKU,DOP%U2) ;DRIVE NUMBER
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 20
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- Structure Status Block (SSB)
BSUBTTLC SUBTTL Device Status Entries -- Structure Status Block (SSB)
BC
BC ;EACH STRUCTURE HAS A STATUS BLOCK THAT CONTAINS INFORMATION. THE STR
BC ;AC POINTS TO THE FIRST WORD OF THE STATUS BLOCK OF THE STRUCTURE
BC ;CURRENTLY BEING SERVICED.
BC
BC ; !=======================================================!
BC ;STRALI ! SIXBIT STRUCTURE ALIAS !
BC ; !-------------------------------------------------------!
BC ;STRNAM ! SIXBIT STRUCTURE NAME !
BC ; !-------------------------------------------------------!
BC ;STRFLG ! STRUCTURE FLAGS FROM MSTR !
BC ; !-------------------------------------------------------!
BC ;STRFL1 ! OTHER STRUCTURE FLAGS !
BC ; !-------------------------------------------------------!
BC ;STRCNT ! # OF UNITS ! MOUNT COUNT ! ADDR OF REQUEST STATUS BLK!
BC ; !-------------------------------------------------------!
BC ;STRPNT ! POINTER TO STRUCTURE DDB !
BC ; !-------------------------------------------------------!
BC ;STRADD ! !
BC ; \ ADDRESS(ES) OF DISK STATUS BLOCK(S) \
BC ; \ (Displacement based on Disk Entry number !
BC ; \ such as "2nd of 3 disks in structure") !
BC ; ! !
BC ; !=======================================================!
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 21
MTRMAC MAC 3-Oct-84 11:03 Device Status Entries -- SSB Field Definitions
BSUBTTLC SUBTTL Device Status Entries -- SSB Field Definitions
BC
BC ; Definitions of fields in the Structure Status Block
BC
BFLDPTRC 000000 FLDPTR==0
BFLDDEFFLDPTRSTRALIFLDPTRFLDPTRC FLDDEF STRALI,1 ;STRUCTURE ALIAS IN SIXBIT
BC ; (free list pointer if free entry)
BFLDDEFFLDPTRSTRNAMFLDPTRFLDPTRC FLDDEF STRNAM,1 ;STRUCTURE NAME IN SIXBIT
BC ; (0 if free entry)
BFLDDEFFLDPTRSTRFLGFLDPTRFLDPTRC FLDDEF STRFLG,1 ;STRUCTURE STATUS
BC
BC ; The following bits set in this word are defined in MONSYM
BC
BC ; MS%PS==:1B0 ;THIS STRUCTURE IS PUBLIC
BC ; MS%DIS==:1B1 ;STRUCTURE IS BEING DISMOUNTED
BC ; MS%DOM==:1B2 ;STRUCTURE IS DOMESTIC ???
BC ; MS%PPS==:1B3 ;STRUCTURE IS PRIMARY PUBLIC STRUCTURE
BC ; MS%INI==:1B4 ;STRUCTURE IS BEING INITIALIZED
BC ; MS%LIM==:1B5 ;STRUCTURE LIMITED TO 2050 SIZES
BC ; MS%NRS==:1B6 ;STRUCTURE IS NOT REGULATED ???
BC ; MS%EXC==:1B15 ;STRUCTURE IS EXCLUSIVE ???
BC
BC ; Bits we normally don't care about in MOUNTR
BC
BMS%PSMS%PPSMS%INIMS%LIMMS%RWSMS%RWDMS%ASGMS%MXBMS%CRYMS%IDTMS%IUSC MS%NTC==:MS%PS+MS%PPS+MS%INI+MS%LIM+MS%RWS+MS%RWD+MS%ASG+MS%MXB+MS%CRY+MS%IDT+MS%IUS+MS%I
BMS%IDXMS%CRDMS%NTCC 473763 000000 DX+MS%CRD
BC ;PS, initializing, or limited direct.
BC
BFLDDEFFLDPTRSTRFL1FLDPTRFLDPTRC FLDDEF STRFL1,1 ;OTHER STRUCTURE STATUS
BC
BSTR%MTC 400000 000000 STR%MT==:1B0 ;Structure is mounted
BSTR%DTC 200000 000000 STR%DT==:1B1 ;Structure is dismounted
BSTR%DEC 100000 000000 STR%DE==:1B2 ;Structure is on a disk with errors
BSTR%EPC 040000 000000 STR%EP==:1B3 ;Structure is exclusive due to port operation
BSTR%UDC 020000 000000 STR%UD==:1B4 ;Structure is unavailable due to dismount
BC
BC ; Additional status bits are contained in the structure DDB
BC
BFLDDEFFLDPTRSTRCNTFLDPTRFLDPTRC FLDDEF STRCNT,1 ;# OF UNITS IN STR,,RSB ADDR
BFLDDEFFLDPTRSTRPNTFLDPTRFLDPTRC FLDDEF STRPNT,1 ;POINTER TO STRUCTURE DDB
BFLDDEFFLDPTRSTRADDFLDPTRFLDPTRC FLDDEF STRADD,10 ;ADDRESSES OF DISK STRUCTURE BLOCKS
BFLDPTRSTRSZC 000016 STRSZ==:FLDPTR ;SIZE OF STR STATUS BLOCK
BC
BDEFSTRSTRUNIIF1DEFINE%STRUNC DEFSTR (STRUNI,STRCNT,8,9) ;NUMBER OF UNITS IN STRUCTURE
BDEFSTRSTRMCTIF1DEFINE%STRMCC DEFSTR (STRMCT,STRCNT,17,9) ;COUNT OF UNITS MOUNTED IN STRUCTURE
BDEFSTRSTRRSBIF1DEFINE%STRRSC DEFSTR (STRRSB,STRCNT,35,18) ;ADDRESS OF REQUEST STATUS BLOCK
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 22
MTRMAC MAC 3-Oct-84 11:03 WTB - Write To Operator with reply Block
BSUBTTLC SUBTTL WTB - Write To Operator with reply Block
BC
BC ; WHEN A ROUTINE MUST ISSUE A MESSAGE TO THE OPERATOR AND RECEIVE A
BC ; RESPONSE, IT CALLS THE BTWTOR ROUTINE. BTWTOR SENDS A WTOR
BC ; REQUEST TO ORION, BUILDS A WTB, AND PLACES THE WTB ON A QUEUE OF
BC ; OUTSTANDING WTOR REQUESTS. WHEN THE OPERATOR'S RESPONSE IS
BC ; RECEIVED FROM ORION, INWTOR DEQUEUES THE WTB AND CALLS THE
BC ; ROUTINE SPECIFIED IN T1 OF THE BTWTOR CALL WITH:
BC ; T1/ BYTE POINTER TO ASCIZ REPLY FROM OPERATOR
BC ; T2/ ADDRESS OF WTB
BC
BC ; !=======================================================!
BC ;WTBLNK ! WTB QUEUE LINKAGE WORD !
BC ; !-------------------------------------------------------!
BC ;WTBCOD ! ACKNOWLEDGMENT CODE FOR THIS MESSAGE !
BC ; !-------------------------------------------------------!
BC ;WTBENT ! ORIGINATOR'S ROUTINE ADDRESS (BTWTOR T1) !
BC ; !=======================================================!
BC
BFLDPTRC 000000 FLDPTR==0
BFLDDEFFLDPTRWTBLNKFLDPTRFLDPTRC FLDDEF WTBLNK,1 ;QUEUE LINKAGE WORD
BFLDDEFFLDPTRWTBCODFLDPTRFLDPTRC FLDDEF WTBCOD,1 ;ORION ACKNOWLEDGMENT CODE
BFLDDEFFLDPTRWTBENTFLDPTRFLDPTRC FLDDEF WTBENT,1 ;ORIGINATOR'S ROUTINE ADDRESS
BFLDPTRWTBSIZC 000003 WTBSIZ==:FLDPTR ;SIZE OF WTB
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 23
MTRMAC MAC 3-Oct-84 11:03 Request Status Block -- Tape Mount RSB
BSUBTTLC SUBTTL Request Status Block -- Tape Mount RSB
BC
BC ; !=======================================================!
BC ;RSBLNK ! QUEUE LINKAGE WORD !
BC ; !-------------------------------------------------------!
BC ;RSBIFL ! INTERNAL FLAGS !
BC ; !-------------------------------------------------------!
BC ;RSBUFL ! USER-SUPPLIED FLAGS !
BC ; !-------------------------------------------------------!
BC ;RSBMC1 ! USER'S JOB NUMBER ! REQUEST TYPE !
BC ; !-------------------------------------------------------!
BC ;RSBMC2 !CURRENT STATE OR ERROR CODE! ADDR OF ACCOUNT BLOCK !
BC ; !-------------------------------------------------------!
BC ;RSBITN ! INTERNAL TASK NUMBER FROM QUASAR !
BC ; !-------------------------------------------------------!
BC ;RSBUNO ! USER'S USER NUMBER !
BC ; !-------------------------------------------------------!
BC ;RSBPID ! USER'S PID !
BC ; !-------------------------------------------------------!
BC ;RSBCOD ! USER'S ACKNOWLEDGEMENT CODE !
BC ; !-------------------------------------------------------!
BC ;RSBRNM ! SIXBIT MOUNT REQUEST NAME !
BC ; !-------------------------------------------------------!
BC ;RSBWTB ! !
BC ; \ WRITE-TO-OPERATOR-WITH-REPLY BLOCK (WTB) \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;RSBACT ! !
BC ; \ USER'S ACCOUNT STRING \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;RSBRMK ! !
BC ; \ USER'S REMARK \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;RSBSUP ! ! SUPERIOR RSB ADDR !
BC ; !=======================================================!
BC ;RSBSSN ! USER-SUPPLIED VOLUME SET NAME (SIXBIT) !
BC ; !-------------------------------------------------------!
BC ;RSBASN ! ACTUAL VOLUME SET NAME (SIXBIT) !
BC ; !-------------------------------------------------------!
BC ;RSBVLS ! QUEUE DESCRIPTOR BLOCK FOR VOLID LIST !
BC ; !-------------------------------------------------------!
BC ;RSBMT1 ! DENSITY ! DRIVE TYPE ! LABEL TYPE ! 0 !
BC ; !-------------------------------------------------------!
BC ;RSBMT2 ! ADDR OF MT STATUS BLOCK ! VOLUME PROTECTION CODE !
BC ; !-------------------------------------------------------!
BC ;RSBMT3 ! CURRENT VOLID INDEX ! 0 !
BC ; !=======================================================!
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 24
MTRMAC MAC 3-Oct-84 11:03 Request Status Block -- Tape Mount Field Definitions
BSUBTTLC SUBTTL Request Status Block -- Tape Mount Field Definitions
BC
BC ; USER TAPE MOUNT REQUESTS THAT ARE RECEIVED FROM QUASAR ARE
BC ; TRANSFORMED UPON ARRIVAL INTO A FIXED-FORMAT REQUEST BLOCK,
BC ; DESCRIBED BELOW. WHEN A GIVEN MOUNT REQUEST IS BEING REFERENCED,
BC ; RSB POINTS TO THE FIRST WORD OF THE BLOCK.
BC
BFLDPTRC 000000 FLDPTR==0
BFLDDEFFLDPTRRSBLNKFLDPTRFLDPTRC FLDDEF RSBLNK,1 ;LINKAGE TO NEXT ENTRY IN QUEUE
BFLDDEFFLDPTRRSBIFLFLDPTRFLDPTRC FLDDEF RSBIFL,1 ;INTERNAL FLAGS
BR%PRIVC 400000 000000 R%PRIV==:1B0 ;USER IS PRIVILEGED
BR%ORESC 200000 000000 R%ORES==:1B1 ;OPERATOR RESPONSE PRESENT
BR%WVLC 100000 000000 R%WVL==:1B2 ;VOLUME LABELS SHOULD BE WRITTEN
BR%ONVC 040000 000000 R%ONV==:1B3 ;OPERATOR WAS NOTIFIED OF VOLID LIST
BR%OPRC 020000 000000 R%OPR==:1B4 ;REQUEST FROM OPR
BR%DSMC 010000 000000 R%DSM==:1B5 ;DISMOUNT REQUEST
BR%ONRC 004000 000000 R%ONR==:1B6 ;MOUNT-REQUEST MESSAGE SENT TO OPERATOR
BR%PRTC 002000 000000 R%PRT==:1B7 ;Port request
BR%RNRC 000200 000000 R%RNR==:1B10 ;Remove=1, Noremove=0
BR%REPC 000100 000000 R%REP==:1B11 ;Reply bit, Force=1 Cont=0
BR%EXCC 000004 000000 R%EXC==:1B15 ;This is the same as MS%EXC, 1=exclusive
BFLDDEFFLDPTRRSBUFLFLDPTRFLDPTRC FLDDEF RSBUFL,1 ;USER-DEFINED FLAGS
BFLDDEFFLDPTRRSBMC1FLDPTRFLDPTRC FLDDEF RSBMC1,1 ;MISCELLANEOUS DATA
BFLDDEFFLDPTRRSBMC2FLDPTRFLDPTRC FLDDEF RSBMC2,1 ;MISCELLANEOUS DATA
BFLDDEFFLDPTRRSBITNFLDPTRFLDPTRC FLDDEF RSBITN,1 ;QUASAR INTERNAL TASK NUMBER
BFLDDEFFLDPTRRSBUNOFLDPTRFLDPTRC FLDDEF RSBUNO,1 ;USER'S USER NUMBER
BFLDDEFFLDPTRRSBPIDFLDPTRFLDPTRC FLDDEF RSBPID,1 ;USER'S PID
BFLDDEFFLDPTRRSBCODFLDPTRFLDPTRC FLDDEF RSBCOD,1 ;USER'S ACKNOWLEDGMENT CODE
BFLDDEFFLDPTRRSBRNMFLDPTRFLDPTRC FLDDEF RSBRNM,1 ;MOUNT REQUEST NAME (SIXBIT)
BFLDDEFFLDPTRRSBWTBFLDPTRWTBSIZFLDPTRC FLDDEF RSBWTB,WTBSIZ ;WTOR BLOCK
BFLDDEFFLDPTRRSBACTFLDPTRFLDPTRC FLDDEF RSBACT,10 ;USER'S ACCOUNT STRING (ASCIZ)
BFLDDEFFLDPTRRSBRMKFLDPTRRMKLENFLDPTRC FLDDEF RSBRMK,RMKLEN ;USER'S REMARK (ASCIZ)
BFLDDEFFLDPTRRSBSUPFLDPTRFLDPTRC FLDDEF RSBSUP,1 ;RSB of superior request (for subordinate requests)
BFLDPTRRSBCSZC 000110 RSBCSZ==:FLDPTR ;SIZE OF AREA COMMON TO ALL RSB'S
BFLDDEFFLDPTRRSBSSNFLDPTRFLDPTRC FLDDEF RSBSSN,1 ;USER-SUPPLIED VOLUME SET NAME (SIXBIT)
BFLDDEFFLDPTRRSBASNFLDPTRFLDPTRC FLDDEF RSBASN,1 ;ACTUAL VOLUME SET NAME (SIXBIT)
BFLDDEFFLDPTRRSBVLSFLDPTRFLDPTRC FLDDEF RSBVLS,1 ;QUEUE DESCR BLOCK FOR VOLID LIST
BFLDDEFFLDPTRRSBMT1FLDPTRFLDPTRC FLDDEF RSBMT1,1 ;MISCELLANEOUS DATA
BFLDDEFFLDPTRRSBMT2FLDPTRFLDPTRC FLDDEF RSBMT2,1 ;MISCELLANEOUS DATA
BFLDDEFFLDPTRRSBMT3FLDPTRFLDPTRC FLDDEF RSBMT3,1 ;MISCELLANEOUS DATA
BFLDPTRMTRSBSC 000116 MTRSBS==:FLDPTR ;SIZE OF TAPE MOUNT RSB
BC
BDEFSTRRSBJNOIF1DEFINE%RSBJNC DEFSTR (RSBJNO,RSBMC1(RSB),17,18) ;USER'S JOB NUMBER
BDEFSTRRSBTYPIF1DEFINE%RSBTYC DEFSTR (RSBTYP,RSBMC1(RSB),35,18) ;REQUEST TYPE CODE
BDEFSTRRSBSTEIF1DEFINE%RSBSTC DEFSTR (RSBSTE,RSBMC2(RSB),17,18) ;CURRENT STATE OF REQUEST
BDEFSTRRSBACCIF1DEFINE%RSBACC DEFSTR (RSBACC,RSBMC2(RSB),35,18) ;ADDRESS OF ACCOUNT BLOCK
BC
BDEFSTRRSBDENIF1DEFINE%RSBDEC DEFSTR (RSBDEN,RSBMT1(RSB),8,9) ;DENSITY
BDEFSTRRSBDRVIF1DEFINE%RSBDRC DEFSTR (RSBDRV,RSBMT1(RSB),17,9) ;DRIVE TYPE
BDEFSTRRSBLTIF1DEFINE%RSBLTC DEFSTR (RSBLT,RSBMT1(RSB),26,9) ;LABEL TYPE
BDEFSTRRSBMTIF1DEFINE%RSBMTC DEFSTR (RSBMT,RSBMT2(RSB),17,18) ;MT STATUS BLOCK ADDRESS
BDEFSTRRSBVPRIF1DEFINE%RSBVPC DEFSTR (RSBVPR,RSBMT2(RSB),35,18) ;VOLUME PROTECTION CODE
BDEFSTRRSBCVIF1DEFINE%RSBCVC DEFSTR (RSBCV,RSBMT3(RSB),17,18) ;INDEX TO CURRENT VOLID
BC
BNEXT$C 000000 NEXT$==:0 ;DEFINE MAGTAPE REQUEST STATES
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 24-1
MTRMAC MAC 3-Oct-84 11:03 Request Status Block -- Tape Mount Field Definitions
BNEXTNEXT$RST.INNEXT$NEXT$C RST.IN==:NEXT ;RSB BEING INITIALIZED
BNEXTNEXT$RST.WVNEXT$NEXT$C RST.WV==:NEXT ;WAITING FOR VOLID KEYIN
BNEXTNEXT$RST.WMNEXT$NEXT$C RST.WM==:NEXT ;WAITING FOR TAPE MOUNT
BNEXTNEXT$RST.ACNEXT$NEXT$C RST.AC==:NEXT ;ACTIVE (USING VOLUME)
BC ;STATE CODES .GE. .ERBAS IMPLY THAT THE REQUEST IS ABORTED
B.ERBASABRTNRC 600000 ABRTNR==:.ERBAS ;ABORTED, NO RESPONSE TO USER
BC
BC ;DECTAPE RSB DEF'S
BC
BRSBASNRSBDTAC 000111 RSBDTA==:RSBASN ;DECTAPE DEVICE DESIGNATOR
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 25
MTRMAC MAC 3-Oct-84 11:03 Request Status Block -- Tape Mount Field Definitions
BC
BC ; WHEN THE "SET TAPE-DRIVE INITIALIZE" OPR COMMAND IS USED TO
BC ; INITIALIZE TAPES, A SPECIAL RSB WITH R%OPR SET IS ALLOCATED
BC ; AND ATTACHED TO THE MTA VIA A FAKE MT STATUS BLOCK WITHIN
BC ; THE RSB. SPECIAL RSB FIELDS REQUIRED FOR THIS FUNCTION WILL
BC ; OVERLAY THE RSBACT FIELD WHICH IS IGNORED HERE.
BC
BC ; SPECIAL RSB FIELDS FOR OPR-REQUESTED VOLUME INITIALIZATION:
BC
BRSBACTRSBICTC 000015 RSBICT==:RSBACT+0 ;# OF VOLUMES TO INITIALIZE
BRSBACTRSBIVIC 000016 RSBIVI==:RSBACT+1 ;NUMERIC VOLID INCREMENT
BRSBACTRSBIVLC 000017 RSBIVL==:RSBACT+2 ;CURRENT VOLID BEING INITIALIZED
BRSBACTRSBIVNC 000020 RSBIVN==:RSBACT+3 ;INTEGER VOLID
BRSBACTRSBIMTC 000021 RSBIMT==:RSBACT+4 ;FAKE MT STATUS BLOCK
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 26
MTRMAC MAC 3-Oct-84 11:03 Request Status Block -- Structure Mount RSB
BSUBTTLC SUBTTL Request Status Block -- Structure Mount RSB
BC
BC ; !=======================================================!
BC ;RSBLNK ! QUEUE LINKAGE WORD !
BC ; !-------------------------------------------------------!
BC ;RSBIFL ! INTERNAL FLAGS !
BC ; !-------------------------------------------------------!
BC ;RSBUFL ! USER-SUPPLIED FLAGS !
BC ; !-------------------------------------------------------!
BC ;RSBMC1 ! USER'S JOB NUMBER ! REQUEST TYPE !
BC ; !-------------------------------------------------------!
BC ;RSBMC2 !CURRENT STATE OR ERROR CODE! ADDR OF ACCOUNT BLOCK !
BC ; !-------------------------------------------------------!
BC ;RSBITN ! INTERNAL TASK NUMBER FROM QUASAR !
BC ; !-------------------------------------------------------!
BC ;RSBUNO ! USER'S USER NUMBER !
BC ; !-------------------------------------------------------!
BC ;RSBPID ! USER'S PID !
BC ; !-------------------------------------------------------!
BC ;RSBCOD ! USER'S ACKNOWLEDGEMENT CODE !
BC ; !-------------------------------------------------------!
BC ;RSBRNM ! SIXBIT MOUNT REQUEST NAME !
BC ; !-------------------------------------------------------!
BC ;RSBWTB ! !
BC ; \ WRITE-TO-OPERATOR-WITH-REPLY BLOCK (WTB) \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;RSBACT ! !
BC ; \ USER'S ACCOUNT STRING \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;RSBRMK ! !
BC ; \ USER'S REMARK \
BC ; ! !
BC ; !=======================================================!
BC ;RSBSTN ! STRUCTURE NAME (SIXBIT) !
BC ; !-------------------------------------------------------!
BC ;RSBSTA ! STRUCTURE ALIAS (SIXBIT) !
BC ; !-------------------------------------------------------!
BC ;RSBMS1 ! ADDR OF STR STATUS BLOCK ! 0 !
BC ; !=======================================================!
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 27
MTRMAC MAC 3-Oct-84 11:03 Request Status Block -- Structure Mount Field Definitions
BSUBTTLC SUBTTL Request Status Block -- Structure Mount Field Definitions
BC
BRSBCSZFLDPTRC 000110 FLDPTR==:RSBCSZ ;SET POINTER TO END OF COMMON SECTION
BC
BFLDDEFFLDPTRRSBSTNFLDPTRFLDPTRC FLDDEF RSBSTN,1 ;STRUCTURE NAME (SIXBIT)
BFLDDEFFLDPTRRSBSTAFLDPTRFLDPTRC FLDDEF RSBSTA,1 ;STRUCTURE ALIAS (SIXBIT)
BFLDDEFFLDPTRRSBMS1FLDPTRFLDPTRC FLDDEF RSBMS1,1 ;MISCELLANEOUS DATA
BC
BFLDPTRSTRSBSC 000113 STRSBS==:FLDPTR ;SIZE OF STRUCTURE-MOUNT RSB
BC
BDEFSTRRSBSSIF1DEFINE%RSBSSC DEFSTR (RSBSS,RSBMS1(RSB),17,18) ;STR STATUS BLOCK ADDR
BDEFSTRRSBEXIF1DEFINE%RSBEXC DEFSTR (RSBEX,RSBMS1(RSB),35,18) ;OFFSET TO THE CHARACTERISTIC
BC
BC ; SET RSBSIZ = MAX(MTRSBS,STRSBS)
BC
BMTRSBSRSBSIZC 000116 RSBSIZ==:MTRSBS
BIFGSTRSBSMTRSBSC IFG STRSBS-MTRSBS,<RSBSIZ==:STRSBS>
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 28
MTRMAC MAC 3-Oct-84 11:03 Request Status Block -- Port RSB
BSUBTTLC SUBTTL Request Status Block -- Port RSB
BC
BC ; !=======================================================!
BC ;RSBLNK ! QUEUE LINKAGE WORD !
BC ; !-------------------------------------------------------!
BC ;RSBIFL ! INTERNAL FLAGS !
BC ; !-------------------------------------------------------!
BC ;RSBUFL ! USER-SUPPLIED FLAGS !
BC ; !-------------------------------------------------------!
BC ;RSBMC1 ! USER'S JOB NUMBER ! REQUEST TYPE !
BC ; !-------------------------------------------------------!
BC ;RSBMC2 !CURRENT STATE OR ERROR CODE! ADDR OF ACCOUNT BLOCK !
BC ; !-------------------------------------------------------!
BC ;RSBITN ! INTERNAL TASK NUMBER FROM QUASAR !
BC ; !-------------------------------------------------------!
BC ;RSBUNO ! USER'S USER NUMBER !
BC ; !-------------------------------------------------------!
BC ;RSBPID ! USER'S PID !
BC ; !-------------------------------------------------------!
BC ;RSBCOD ! USER'S ACKNOWLEDGEMENT CODE !
BC ; !-------------------------------------------------------!
BC ;RSBRNM ! SIXBIT MOUNT REQUEST NAME !
BC ; !-------------------------------------------------------!
BC ;RSBWTB ! !
BC ; \ WRITE-TO-OPERATOR-WITH-REPLY BLOCK (WTB) \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;RSBACT ! !
BC ; \ USER'S ACCOUNT STRING \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;RSBRMK ! !
BC ; \ USER'S REMARK \
BC ; ! !
BC ; !=======================================================!
BC ;RSBPRT ! FLAGS | CHANNEL # !
BC ; !-------------------------------------------------------!
BC ;RSBDSK ! DDB Pointer | DSK POINTER !
BC ; !=======================================================!
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 29
MTRMAC MAC 3-Oct-84 11:03 Request Status Block -- Port Field Definitions
BSUBTTLC SUBTTL Request Status Block -- Port Field Definitions
BC
BRSBCSZFLDPTRC 000110 FLDPTR==:RSBCSZ ;SET POINTER TO END OF COMMON SECTION
BC
BC
BFLDDEFFLDPTRRSBPRTFLDPTRFLDPTRC FLDDEF RSBPRT,1 ;Flags,,Channel #
BFLDDEFFLDPTRRSBDSKFLDPTRFLDPTRC FLDDEF RSBDSK,1 ;Loop counter,,disk being processed
BC
BFLDPTRPRTSBSC 000112 PRTSBS==:FLDPTR ;SIZE OF STRUCTURE-MOUNT RSB
BC
BDEFSTRRSBPFIF1DEFINE%RSBPFC DEFSTR (RSBPF,RSBPRT(RSB),17,18) ;Port request flags
BDEFSTRRSBCHIF1DEFINE%RSBCHC DEFSTR (RSBCH,RSBPRT(RSB),35,36) ;Channel requested
BC
BNEXT$C 000000 NEXT$==:0 ;Define port request states
BNEXTNEXT$PRT.INNEXT$NEXT$C PRT.IN==:NEXT ;RSB being initialized
BNEXTNEXT$PRT.WTNEXT$NEXT$C PRT.WT==:NEXT ;Waiting for operator response
BNEXTNEXT$PRT.DSNEXT$NEXT$C PRT.DS==:NEXT ;Dismounting
BNEXTNEXT$PRT.FCNEXT$NEXT$C PRT.FC==:NEXT ;Dismounting by force
BNEXTNEXT$PRT.MTNEXT$NEXT$C PRT.MT==:NEXT ;Mounting disks
BNEXTNEXT$PRT.ABNEXT$NEXT$C PRT.AB==:NEXT ;Abort request
BC
BC ; SET RSBSIZ = MAX(MTRSBS,STRSBS,RSBPRT)
BC
BMTRSBSRSBSIZC 000116 RSBSIZ==:MTRSBS
BIFGSTRSBSMTRSBSC IFG STRSBS-MTRSBS,<RSBSIZ==:STRSBS>
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 30
MTRMAC MAC 3-Oct-84 11:03 MAGTAPE ACCOUNT STATUS BLOCK -- Description
BSUBTTLC SUBTTL MAGTAPE ACCOUNT STATUS BLOCK -- Description
BC
BC ;EACH TAPE DISMOUNT CAUSES AN ACCOUNT RECORD TO BE PUT INTO THE SYSTEM
BC ;USAGE FILE. THE ACCOUNT STATUS BLOCK IS MADE WHEN A TAPE IS MOUNTED.
BC
BC ; !=======================================================!
BC ;ACCLNK ! QUEUE LINKAGE !
BC ; !-------------------------------------------------------!
BC ;ACCDD ! DEVICE DESIGNATOR !
BC ; !-------------------------------------------------------!
BC ;ACCNO ! JOB NUMBER ! LINE NUMBER !
BC ; !-------------------------------------------------------!
BC ;ACCUSR ! !
BC ; \ USER NAME \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;ACCSTG ! !
BC ; \ USER'S ACCOUNT STRING \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;ACCCRT ! DATE/TIME OF REQUEST CREATION !
BC ; !-------------------------------------------------------!
BC ;ACCSCD ! DATE/TIME WHEN SCHEDULED !
BC ; !-------------------------------------------------------!
BC ;ACCSVT ! DATE/TIME WHEN SERVICED !
BC ; !-------------------------------------------------------!
BC ;ACCEUT ! ELAPSED TIME OF USE !
BC ; !-------------------------------------------------------!
BC ;ACCDSP ! DISPOSITION !
BC ; !-------------------------------------------------------!
BC ;ACCVID ! VOLUME IDENTIFIER !
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;ACCMC1 !CONTROLLER! LABEL! LABEL ! 0 !
BC ; !-------------------------------------------------------!
BC ;ACCPR ! RECORDS READ !
BC ; !-------------------------------------------------------!
BC ;ACCPW ! RECORDS WRITTEN !
BC ; !-------------------------------------------------------!
BC ;ACCFR ! FRAMES READ / 1000. !
BC ; !-------------------------------------------------------!
BC ;ACCFW ! FRAMES WRITTEN / 1000. !
BC ; !-------------------------------------------------------!
BC ;ACCSR ! NUMBER OF SOFT READ ERRORS !
BC ; !-------------------------------------------------------!
BC ;ACCSW ! NUMBER OF SOFT WRITE ERRORS !
BC ; !-------------------------------------------------------!
BC ;ACCHR ! NUMBER OF HARD READ ERRORS !
BC ; !-------------------------------------------------------!
BC ;ACCHW ! NUMBER OF HARD WRITE ERRORS !
BC ; !-------------------------------------------------------!
BC ;ACCFSI ! FILE SET IDENTIFIER !
BC ; !=======================================================!
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 31
MTRMAC MAC 3-Oct-84 11:03 MAGTAPE ACCOUNT STATUS BLOCK -- Field Definitions
BSUBTTLC SUBTTL MAGTAPE ACCOUNT STATUS BLOCK -- Field Definitions
BC
BFLDPTRC 000000 FLDPTR==0
BFLDDEFFLDPTRACCLNKFLDPTRFLDPTRC FLDDEF ACCLNK,1 ;LINKAGE TO NEXT ENTRY IN QUEUE
BFLDDEFFLDPTRACCDDFLDPTRFLDPTRC FLDDEF ACCDD,1 ;DEVICE DESIGNATOR AS DEFINED BY SYSTEM
BFLDDEFFLDPTRACCNOFLDPTRFLDPTRC FLDDEF ACCNO,1 ;USER JOB NUMBER,,USER LINE NUMBER
BFLDDEFFLDPTRACCUSRFLDPTRFLDPTRC FLDDEF ACCUSR,10 ;ASCIZ USER NAME
BFLDDEFFLDPTRACCSTGFLDPTRFLDPTRC FLDDEF ACCSTG,10 ;USER ACCOUNT STRING
BFLDDEFFLDPTRACCCRTFLDPTRFLDPTRC FLDDEF ACCCRT,1 ;DATE AND TIME OF REQUEST CREATION
BFLDDEFFLDPTRACCSCDFLDPTRFLDPTRC FLDDEF ACCSCD,1 ;DATE AND TIME REQUEST SERVICED
BFLDDEFFLDPTRACCSVTFLDPTRFLDPTRC FLDDEF ACCSVT,1 ;DATE AND TIME WHEN REQUEST SERVICED
BFLDDEFFLDPTRACCEUTFLDPTRFLDPTRC FLDDEF ACCEUT,1 ;ELAPSED TIME OF USE
BFLDDEFFLDPTRACCDSPFLDPTRFLDPTRC FLDDEF ACCDSP,1 ; DISPOSITION OF REQUEST
BFLDPTRACCCSZC 000030 ACCCSZ==:FLDPTR ;SIZE OF AREA COMMON TO ALL ACC BLOCKS
BFLDDEFFLDPTRACCVIDFLDPTRFLDPTRC FLDDEF ACCVID,2 ;VOLUME IDENTIFIER
BFLDDEFFLDPTRACCMC1FLDPTRFLDPTRC FLDDEF ACCMC1,1 ;CONTROLLER TYPE,LABEL TYPE,LABEL STATE
BFLDDEFFLDPTRACCPRFLDPTRFLDPTRC FLDDEF ACCPR,1 ;NUMBER OF PHYSICAL RECORDS READ
BFLDDEFFLDPTRACCPWFLDPTRFLDPTRC FLDDEF ACCPW,1 ;NUMBER OF PHYSICAL RECORDS WRITTEN
BFLDDEFFLDPTRACCFRFLDPTRFLDPTRC FLDDEF ACCFR,1 ;NUMBER OF FRAMES READ/1000.
BFLDDEFFLDPTRACCFWFLDPTRFLDPTRC FLDDEF ACCFW,1 ;NUMBER OF FRAMES WRITTEN/1000.
BFLDDEFFLDPTRACCSRFLDPTRFLDPTRC FLDDEF ACCSR,1 ;NUMBER OF SOFT READ ERRORS
BFLDDEFFLDPTRACCSWFLDPTRFLDPTRC FLDDEF ACCSW,1 ;NUMBER OF SOFT WRITE ERRORS
BFLDDEFFLDPTRACCHRFLDPTRFLDPTRC FLDDEF ACCHR,1 ;NUMBER OF HARD READ ERRORS
BFLDDEFFLDPTRACCHWFLDPTRFLDPTRC FLDDEF ACCHW,1 ;NUMBER OF HARD WRITE ERRORS
BFLDDEFFLDPTRACCFSIFLDPTRFLDPTRC FLDDEF ACCFSI,1 ;FILE SET IDENTIFIER (ASCIZ)
BFLDPTRACCSIZC 000044 ACCSIZ==:FLDPTR ;SIZE OF MAGTAPE ACCOUNT BLOCK
BC
BDEFSTRACCJNIF1DEFINE%ACCJNC DEFSTR (ACCJN,ACCNO(ACC),17,18) ;USER'S JOB NUMBER
BDEFSTRACCLNIF1DEFINE%ACCLNC DEFSTR (ACCLN,ACCNO(ACC),35,18) ;USER'S LINE NUMBER
BDEFSTRACCKTIF1DEFINE%ACCKTC DEFSTR (ACCKT,ACCMC1(ACC),5,6) ;CONTROLLER TYPE
BDEFSTRACCLTIF1DEFINE%ACCLTC DEFSTR (ACCLT,ACCMC1(ACC),11,6) ;LABEL TYPE
BDEFSTRACCLSIF1DEFINE%ACCLSC DEFSTR (ACCLS,ACCMC1(ACC),17,6) ;VOLUME LABEL STATE
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 32
MTRMAC MAC 3-Oct-84 11:03 STRUCTURE ACCOUNT STATUS BLOCK
BSUBTTLC SUBTTL STRUCTURE ACCOUNT STATUS BLOCK
BC
BC ;EACH STRUCTURE DECREMENT CAUSES AN ACCOUNT RECORD TO BE PUT INTO THE
BC ;SYSTEM USAGE FILE. THE ACCOUNT STATUS BLOCK IS MADE WHEN A STRUCURE
BC ;IS INCREMENTED.
BC
BC ; !=======================================================!
BC ;ACCLNK ! QUEUE LINKAGE !
BC ; !-------------------------------------------------------!
BC ;ACCDD ! DEVICE DESIGNATOR !
BC ; !-------------------------------------------------------!
BC ;ACCNO ! JOB NUMBER ! LINE NUMBER !
BC ; !-------------------------------------------------------!
BC ;ACCUSR ! !
BC ; \ USER NAME \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;ACCSTG ! !
BC ; \ USER'S ACCOUNT STRING \
BC ; ! !
BC ; !-------------------------------------------------------!
BC ;ACCCRT ! DATE/TIME OF REQUEST CREATION !
BC ; !-------------------------------------------------------!
BC ;ACCSCD ! DATE/TIME WHEN SCHEDULED !
BC ; !-------------------------------------------------------!
BC ;ACCSVT ! DATE/TIME WHEN SERVICED !
BC ; !-------------------------------------------------------!
BC ;ACCEUT ! ELAPSED TIME OF USE !
BC ; !-------------------------------------------------------!
BC ;ACCDSP ! DISPOSITION !
BC ; !-------------------------------------------------------!
BC ;ACCSTN ! STRUCTURE NAME !
BC ; !-------------------------------------------------------!
BC ;ACCMCT ! MOUNT COUNT BEFORE ! MOUNT COUNT AFTER !
BC ; !-------------------------------------------------------!
BC ;ACCMC2 !CONTROLLER! DEVICE! STR ! NUMBER OF UNITS !
BC ; !-------------------------------------------------------!
BC ;ACCFRK ! NUMBER OF JOB FORKS INCREMENTING MOUNT COUNT !
BC ; !=======================================================!
BC
BC
BACCCSZFLDPTRC 000030 FLDPTR==:ACCCSZ ;SET POINTER TO END OF COMMON SECTION
BC
BFLDDEFFLDPTRACCSTNFLDPTRFLDPTRC FLDDEF ACCSTN,1 ;ASCIZ STRUCTURE PHYSICAL ID
BFLDDEFFLDPTRACCMCTFLDPTRFLDPTRC FLDDEF ACCMCT,1 ;MOUNT COUNT BEFORE,,MOUNT COUNT AFTER
BFLDDEFFLDPTRACCMC2FLDPTRFLDPTRC FLDDEF ACCMC2,1 ;CONTROLLER,DEVICE,STR TYPE,# OF UNITS
BFLDDEFFLDPTRACCFRKFLDPTRFLDPTRC FLDDEF ACCFRK,1 ;NUMBER OF JOB FORKS INCREMENTING COUNT
BC
BDEFSTRACCDTIF1DEFINE%ACCDTC DEFSTR (ACCDT,ACCMC2(ACC),11,6) ;DEVICE TYPE
BDEFSTRACCSTIF1DEFINE%ACCSTC DEFSTR (ACCST,ACCMC2(ACC),17,6) ;STRUCTURE TYPE
BDEFSTRACCNUIF1DEFINE%ACCNUC DEFSTR (ACCNU,ACCMC2(ACC),35,18) ;NUMBER OF UNITS IN STRUCTURE
BDEFSTRACCMBIF1DEFINE%ACCMBC DEFSTR (ACCMB,ACCMCT(ACC),17,18) ;MOUNT COUNT BEFORE MOUNTING STR
BDEFSTRACCMAIF1DEFINE%ACCMAC DEFSTR (ACCMA,ACCMCT(ACC),35,18) ;MOUNT COUNT AFTER DISMOUNTING STR
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 33
MTRMAC MAC 3-Oct-84 11:03 ADDRESS SPACE ALLOCATION
BSUBTTLC SUBTTL ADDRESS SPACE ALLOCATION
BC
BC ; MACRO TO ASSIGN LARGE REGIONS OF ADDRESS SPACE
BC
BDEFINEADASNC DEFINE ADASN (ADSYM,ADSIZ,ADPAG) <
BC IFNB <ADPAG>,<ADPTR==<<ADPTR+777>&777000>> ;;PAGE BOUNDARY
BC ADSYM=ADPTR ;;DEFINE START OF REGION
BC ADPTR==ADPTR+ADSIZ ;;INCREMENT ALLOCATION POINTER
BC >
BADLOWC 050000 ADLOW==:50000 ;START ASSIGNING SPACE AT THIS ADDRESS
BADLOWADPTRC 050000 ADPTR==:ADLOW ;INITIALIZE CURRENT ASSIGNMENT LOCATION
BC
BC ; ASSIGNMENT OF ADDRESS SPACE
BC
BADASNIFNBADPTRADPTRADPTRRBUFADPTRADPTRC ADASN RBUF,1000,PAGE ;BUFFER FOR RECEIVING IPCF MESSAGES
BADASNIFNBADPTRADPTRADPTRTBUFADPTRADPTRC ADASN TBUF,1000,PAGE ;MSEND MESSAGES BUILT HERE
BADASNIFNBADPTRADPTRADPTRBADMSGADPTRADPTRC ADASN BADMSG,1000,PAGE ;BAD GALAXY IPCF MESSAGES SAVED HERE
BADASNIFNBADPTRADPTRADPTRDSBUFADPTRDSFSZADPTRC ADASN DSBUF,DSFSZ,PAGE ;DEVICE-STATUS FILE BUFFER PAGE
BC ;NOTE - LBUF1W MUST BE .GE. MAXPPB*1000 (MAXPPB IS DEFINED IN STG)
BLBUF1WC 030000 LBUF1W==:30000
BADASNIFNBADPTRADPTRADPTRLBUF1ADPTRLBUF1WADPTRC ADASN LBUF1,LBUF1W,PAGE ;DUMPI/DUMPO LABEL BUFFER
BADASNIFNBADPTRSRQADPTRADPTRC ADASN SRQ,^D100*3 ;SCHEDULER REQUEST QUEUE
BMSGLENC 005000 MSGLEN==:5000 ;Length of the TMCMSG buffer
BADASNIFNBADPTRTMCMSGADPTRMSGLENADPTRC ADASN TMCMSG,MSGLEN ;TEXT MESSAGE COMPOSITION AREA
BATMSIZC 000100 ATMSIZ==:100
BADASNIFNBADPTRATMBFRADPTRATMSIZADPTRC ADASN ATMBFR,ATMSIZ ;ATOM BUFFER FOR COMND JSYS
BADASNIFNBADPTRMTA0ADPTRMTASZMAXMTAADPTRC ADASN MTA0,MTASZ*MAXMTA ;MTA STATUS BLOCKS
BADASNIFNBADPTRMT0ADPTRMTSZMAXMTADPTRC ADASN MT0,MTSZ*MAXMT ;MT STATUS BLOCKS
BADASNIFNBADPTRRSB0ADPTRMAXMRQRSBSIZADPTRC ADASN RSB0,<<MAXMRQ+1>*RSBSIZ> ;RSB POOL
BADASNIFNBADPTRDSKSTBADPTRDSKSZMAXDSKADPTRC ADASN DSKSTB,DSKSZ*MAXDSK ;DSK STATUS BLOCKS
BADASNIFNBADPTRSTRSTBADPTRSTRSZMAXDSKADPTRC ADASN STRSTB,STRSZ*MAXDSK ;STR STATUS BLOCKS
BSTRSZMAXDSKSTRSTBMAXSSBC 171672 MAXSSB==:STRSZ*MAXDSK+STRSTB ;Max ssb entry address
BMAXMRQVOLPNC 002405 VOLPN==:<MAXMRQ+1>*5 ;AVERAGE 5 VOLIDS PER TAPE REQUEST
BADASNIFNBADPTRVOLP0ADPTRVOLPNADPTRC ADASN VOLP0,VOLPN*2 ;VOLID STORAGE POOL
BIGNLENC 000020 IGNLEN==:20
BADASNIFNBADPTRIGNTBLADPTRIGNLENADPTRC ADASN IGNTBL,IGNLEN ;STRUCTURE NAMES TO BE IGNORED
BADASNIFNBADPTRACC0ADPTRMAXACCACCSIZADPTRC ADASN ACC0,<<MAXACC+1>*ACCSIZ> ;ACCOUNT BLOCK POOL
BC
BIFGADPTRC IFG ADPTR-700000,<PRINT1 <ADDRESS SPACE OVERFLOW>>
BC
BC
BC ; DEVICE STATUS BUFFER EQUATES
BC
BDSBUFDSB.CKC 053000 DSB.CK==:DSBUF ;CHECKSUM WORD
BDSBUFDSB.PSC 053001 DSB.PS==:DSBUF+1 ;APR SERIAL NUMBER
BDSBUFDSB.NEC 053002 DSB.NE==:DSBUF+2 ;# OF ENTRIES IN DEVICE-STATUS FILE
BDSBUFDSB.VEC 053003 DSB.VE==:DSBUF+3 ;Version number of format of file
BDSBVERC 000010 DSBVER==:10 ;Current version number
BDSBUFDSB.EOC 053004 DSB.EO==:DSBUF+4 ;ORIGIN OF ENTRY LIST IN BUFFER
BC
BC ; Display message type
BC
BMSG%CIC 400000 000000 MSG%CI==:1B0 ;Channel 7 message
BMSG%COC 200000 000000 MSG%CO==:1B1 ;Conflicting bits in STRFLG message
BMSG%ANC 040000 000000 MSG%AN==:1B3 ;There is at least one disk to print
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page 33-1
MTRMAC MAC 3-Oct-84 11:03 ADDRESS SPACE ALLOCATION
BMSG%DUC 020000 000000 MSG%DU==:1B4 ;Dual ported message
BC
BC
BENDC END
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
CPU TIME USED 00:06.450
167P CORE USED
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page S-1
MTRMAC MAC 3-Oct-84 11:03 SYMBOL TABLE
ABORTF 000010 sin CMNOI 002000 000000 sin INITF 000400 sin MTADVT 000777 spd
ABRTNR 600000 sin CX 000016 sin IRETF 000001 sin MTAFIL 000004 spd
ABT%IN 200000 000000 sin DAYSEC 250600 sin JTOAF 000040 sin MTAFLG 000003 spd
ABT%OP 400000 000000 sin DECV 000061 sin LB7WDS 000020 sin MTAIDV 000002 spd
ACC 000014 sin DEFPRO 777777 sin LB8WDS 000024 sin MTAJCT 777777 spd
ACC0 176724 DOP%C2 777700 000000 sin LBLSIZ 000120 sin MTAJFN 777777 000000 spd
ACCCRT 000023 spd DOP%K2 000077 770000 sin LBUF1 054000 MTALT 777000 spd
ACCCSZ 000030 sin DOP%U2 007777 sin LBUF1W 030000 sin MTAMT 777777 000000 spd
ACCDD 000001 spd DSB.CK 053000 sin MA%AVE 100000 000000 sin MTAP1 000005 spd
ACCDSP 000027 spd DSB.EO 053004 sin MA%AVS 040000 000000 sin MTAP2 000006 spd
ACCDT 007700 000000 spd DSB.NE 053002 sin MA%LOD 400000 000000 sin MTAPNT 000060 spd
ACCEUT 000026 spd DSB.PS 053001 sin MA%OPF 000400 000000 sin MTAREA 777777 spd
ACCFR 000035 spd DSB.VE 053003 sin MA%OPN 200000 000000 sin MTASDN 000007 spd
ACCFRK 000033 spd DSBUF 053000 MA%SCR 010000 000000 sin MTASET 000001 spd
ACCFSI 000043 spd DSBVER 000010 sin MA%ULP 001000 000000 sin MTASTE 000777 000000 spd
ACCFW 000036 spd DSF%AV 400000 000000 sin MA%UXV 004000 000000 sin MTASZ 000061 sin
ACCHR 000041 spd DSF%DO 040000 000000 sin MA%VMG 002000 000000 sin MTAV1 000010 spd
ACCHW 000042 spd DSF%EX 100000 000000 sin MA%WEN 020000 000000 sin MTAV2 000034 spd
ACCJN 777777 000000 spd DSF%IG 020000 000000 sin MACDEV 000031 sin MTAVOL 000000 spd
ACCKT 770000 000000 spd DSF%PO 200000 000000 sin MACEDT 000031 sin MTMTA 777777 000000 spd
ACCLN 777777 spd DSF%RG 010000 000000 sin MACMAN 000000 sin MTNAV 000001 sin
ACCLNK 000000 spd DSFESZ 000004 sin MAXACC 000400 sin MTP1 000000 spd
ACCLS 000077 000000 spd DSFFLG 000002 sin MAXDSK 000100 sin MTRSB 777777 spd
ACCLT 007700 000000 spd DSFPGS 000001 sin MAXMRQ 000400 sin MTRSBS 000116 sin
ACCMA 777777 spd DSFPNT 000003 sin MAXMT 000100 sin MTSZ 000001 sin
ACCMB 777777 000000 spd DSFSPC 000001 sin MAXMTA 000100 sin NEXT$ 000006 sin
ACCMC1 000032 spd DSFSZ 001000 sin MAXSSB 171672 sin NOMTF 000020 sin
ACCMC2 000032 spd DSFTYP 000000 sin MOSTAL 000006 sin P 000017 sin
ACCMCT 000031 spd DSK 000010 sin MRMSF 000002 sin PBMAX 004242 spd
ACCNO 000002 spd DSKCHN 777700 000000 spd MRPGF 000004 sin PDLEN 000140 sin
ACCNU 777777 spd DSKCKU 000007 spd MS%ASG 000400 000000 sin POLINT 000170 sin
ACCPR 000033 spd DSKCTR 000077 770000 spd MS%CRD 000001 000000 sin POLLF 000200 sin
ACCPW 000034 spd DSKDRV 007777 spd MS%CRY 000100 000000 sin PORTF 004000 sin
ACCSCD 000024 spd DSKFLG 000003 spd MS%IDT 000040 000000 sin PRIEXT 000003 sin
ACCSIZ 000044 sin DSKLUN 777777 000000 spd MS%IDX 000002 000000 sin PRIPAN 000001 sin
ACCSR 000037 spd DSKNOU 777777 spd MS%INI 020000 000000 sin PRT.AB 000005 sin
ACCST 000077 000000 spd DSKNS 000004 spd MS%IUS 000020 000000 sin PRT.DS 000002 sin
ACCSTG 000013 spd DSKP1 000005 spd MS%LIM 010000 000000 sin PRT.FC 000003 sin
ACCSTN 000030 spd DSKP2 000006 spd MS%MXB 000200 000000 sin PRT.IN 000000 sin
ACCSVT 000025 spd DSKPNT 000002 spd MS%NTC 473763 000000 sin PRT.MT 000004 sin
ACCSW 000040 spd DSKSSA 777777 000000 spd MS%PPS 040000 000000 sin PRT.WT 000001 sin
ACCUSR 000003 spd DSKSTA 000001 spd MS%PS 400000 000000 sin PRTSBS 000112 sin
ACCVID 000030 spd DSKSTB 167072 MS%RWD 001000 000000 sin Q1 000005 sin
ADLOW 050000 sin DSKSTN 000000 spd MS%RWS 002000 000000 sin Q2 000006 sin
ADPTR 220770 sin DSKSZ 000010 sin MSG%AN 040000 000000 sin Q3 000007 sin
ANSV 000063 sin DSKTYP 003777 000000 spd MSG%CI 400000 000000 sin QSB 000013 sin
ARGF 002000 sin F 000000 sin MSG%CO 200000 000000 sin R%DSM 010000 000000 sin
ATMBFR 111454 FLDPTR 000034 sin MSG%DU 020000 000000 sin R%EXC 000004 000000 sin
ATMSIZ 000100 sin H1ACS 000066 sin MSGLEN 005000 sin R%ONR 004000 000000 sin
BADMSG 052000 H1CRE 000052 sin MT 000012 sin R%ONV 040000 000000 sin
CDENF 001000 sin H1EXP 000060 sin MT0 117654 R%OPR 020000 000000 sin
CIPORT 000007 spd H1SET 000026 sin MTA 000010 sin R%ORES 200000 000000 sin
CMCFM 010000 000000 sin H2PRO 000046 sin MTA0 111554 R%PRIV 400000 000000 sin
CMFLD 007000 000000 sin IGNLEN 000020 sin MTADEN 000777 spd R%PRT 002000 000000 sin
CMKEY 000000 sin IGNTBL 176704 MTADRV 777000 spd R%REP 000100 000000 sin
MTRMAC - MOUNTR Macro and Data definitions MACRO %53B(1242) 22:29 24-Jun-85 Page S-2
MTRMAC MAC 3-Oct-84 11:03 SYMBOL TABLE
R%RNR 000200 000000 sin RST.IN 000000 sin WTBLNK 000000 spd
R%WVL 100000 000000 sin RST.WM 000002 sin WTBSIZ 000003 sin
RBUF 050000 RST.WV 000001 sin WTOMAX 000702 spd
REL 000000 spd S.AV 000001 sin .CMCFM 000010 sin
RMKLEN 000062 sin S.INIT 000002 sin .CMFLD 000007 sin
RSB 000011 sin S.UNAV 000000 sin .CMKEY 000000 sin
RSB0 117754 SHIPSW 777777 777777 spd .CMNOI 000002 sin
RSBACC 777777 spd SRQ 104000 .DVPRT 000003 sin
RSBACT 000015 spd STR 000012 sin .DVSTR 000001 sin
RSBASN 000111 spd STR%DE 100000 000000 sin .ERBAS 600000 sin
RSBCH 777777 777777 spd STR%DT 200000 000000 sin .MNTDT 000077 sin
RSBCOD 000010 spd STR%EP 040000 000000 sin .MODVT 000005 sin
RSBCSZ 000110 sin STR%MT 400000 000000 sin .OHDRS 000005 spd
RSBCV 777777 000000 spd STR%UD 020000 000000 sin .PTSET 000004 spd
RSBDEN 777000 000000 spd STRADD 000006 spd
RSBDRV 000777 000000 spd STRALI 000000 spd
RSBDSK 000111 spd STRCNT 000004 spd
RSBDTA 000111 sin STRFL1 000003 spd
RSBEX 777777 spd STRFLG 000002 spd
RSBICT 000015 sin STRMCT 000777 000000 spd
RSBIFL 000001 spd STRNAM 000001 spd
RSBIMT 000021 sin STRPNT 000005 spd
RSBITN 000005 spd STRRSB 777777 spd
RSBIVI 000016 sin STRSBS 000113 sin
RSBIVL 000017 sin STRSTB 170072
RSBIVN 000020 sin STRSZ 000016 sin
RSBJNO 777777 000000 spd STRUNI 777000 000000 spd
RSBLNK 000000 spd SYRHSZ 000004 sin
RSBLT 777000 spd SYRMSZ 000040 sin
RSBMC1 000003 spd T1 000001 sin
RSBMC2 000004 spd T2 000002 sin
RSBMS1 000112 spd T3 000003 sin
RSBMT 777777 000000 spd T4 000004 sin
RSBMT1 000113 spd TALCF 000100 sin
RSBMT2 000114 spd TBUF 051000
RSBMT3 000115 spd TMCMSG 104454
RSBPF 777777 000000 spd TPNMSZ 000012 sin
RSBPID 000007 spd TST 000000 sin
RSBPRT 000110 spd USRLH 500000 sin
RSBRMK 000025 spd V1ACS 000013 sin
RSBRNM 000011 spd V1ANSV 000120 sin
RSBSIZ 000116 sin V1DECV 000063 sin
RSBSS 777777 000000 spd V1INAM 000051 sin
RSBSSN 000110 spd V1INME 000052 sin
RSBSTA 000111 spd V1OWN 000046 sin
RSBSTE 777777 000000 spd V1SCD 000031 sin
RSBSTN 000110 spd V1VID 000005 sin
RSBSUP 000107 spd V2OWN 000027 sin
RSBTYP 777777 spd V2OWNL 000047 sin
RSBUFL 000002 spd V2PPN 000013 sin
RSBUNO 000006 spd V2PRO 000005 sin
RSBVLS 000112 spd VOLP0 171672
RSBVPR 777777 spd VOLPN 002405 sin
RSBWTB 000012 spd WTBCOD 000001 spd
RST.AC 000003 sin WTBENT 000002 spd