OctetView
0x00000…00100 (0, 0, 0) Sector 01254130313235 ┆ %A0125A ┆
0x00100…00200 (0, 0, 1) Sector 00000000000000 ┆ ┆
0x00200…00300 (0, 0, 2) Sector ff00f080ffffff ┆ p p ┆
0x00300…00306 (0, 0, 3) WangDocument {d00=0x16, d01=0x73, d02=0x41, ptr=(29,0, 8), d05=0x00}
0x00306…0030c WangDocument {d00=0x16, d01=0x74, d02=0x41, ptr=(36,0, 8), d05=0x00}
0x0030c…00312 WangDocument {d00=0x16, d01=0x75, d02=0x41, ptr=(45,0, 0), d05=0x00}
0x00312…00320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00320…00340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x003e0…00400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 ┆ ┆
0x00400…00500 (0, 0, 4) Sector 00000000000000 ┆ ┆
0x00500…00600 (0, 0, 5) Sector 86312020202020 ┆ 1 8 7 Q? > 7 H 7n| N 0u| ) 0uH &4'>( 1c5 & & ┆
0x00600…00700 (0, 0, 6) Sector 421c402600415b ┆B @& A[' ! X% % PO P ; sAE C g x g V Wr O 8 :j j K 1673A g ,G < {C < { ; 3 c U 7mH 7m) Y 9 : 8 t xWS ] _ _ ^ _ 1 3 , ┆
0x00700…00800 (0, 0, 7) Sector 00000000000000 ┆ ┆
[…0x8…]
0x01000…01100 (1, 0, 0) WangDocumentBody
[…0x3…]
0x01400…01500 (1, 0, 4) Sector 00000000000000 ┆ ┆
[…0x3…]
0x01800…01900 (1, 0, 8) WangDocumentBody
0x01900…01a00 (1, 0, 9) Sector 010aff00167441 ┆ tA or it can be the Queue list field. 4.2.1.4.14.2 Interface Definition a) MDP WRITE BUFFER (MDP WRITE: MDP WRITE TYPE) b) MDP WRITE BUFFER (R6, R7) Register Conventions Call Registers R6 LINK (Dest.) R7 MDP WRITE TYPE (Dest.) ┆
0x01a00…01b00 (1, 0, 10) Sector 010bff00167441 ┆ tA Return Registers R0 - R7 (Dest.) 4.2.1.4.14.3 Module Components MDP WRITE BUFFER (Internal Procedure) CREATE SCD LIST WRITE PARAMS (Internal Procedure) CREATE QUEUE LIST WRITE PARAMS (Internal Procedure) See Figure 4.2.1.4.14.3-1 ┆
0x01b00…01c00 (1, 0, 11) Sector 00006300167441 ┆ c tA 1 Fig. 4.2.1.4.14.3-1 . Then the internal procedure CREATE HQ MASK is called. The SIC and SDL tables are then accessed via a call to TMP. When the output SDLs are received, it┆
0x01c00…01d00 (1, 0, 12) Sector 00000000000000 ┆ ┆
[…0x3…]
0x02000…02100 (2, 0, 0) WangDocumentBody
[…0x1b7…]
0x1d800…1d900 (29, 0, 8) WangDocumentHead {hdr=WangSectHead {next=(29,0, 9), len=0xff, h3=41167341}, f00=»1673A «, f01=»CPS/SDS/034 «, f02=»bel «, f03=»NJ «, f04=»Fra 1 «, f05=09-02-82 15:21, f06=» 11 «, f07=»15 «, f08=» 48869 «, f09=15-02-84 11:44, f10=» «, f11=»03 «, f12=» 50 «, f13=15-02-84 11:50, f14=15-02-84 13:40, f15=»0125A «, f16=»100 «, f17=» 24 «, f18=»43 «, f19=» 1116 «, f20=» 65595 «, f21=» «, f22=» «, f99=500010000110062710110280aaca15050000000000000137037901df}
0x1d900…1da00 (29, 0, 9) WangDocumentBody
[…0x6e…]
0x24800…24900 (36, 0, 8) WangDocumentHead {hdr=WangSectHead {next=(36,0, 9), len=0xff, h3=41167441}, f00=»1674A «, f01=»CPS/SDS/034 «, f02=»sdv «, f03=»NJ «, f04=»4.2.1.4.2 Mes. Distr «, f05=10-02-82 01:34, f06=» 9 «, f07=»08 «, f08=» 42334 «, f09=08-02-84 09:24, f10=» «, f11=»08 «, f12=» 253 «, f13=08-02-84 09:37, f14=09-02-84 10:10, f15=»0125A «, f16=» 59 «, f17=» 19 «, f18=»54 «, f19=» 516 «, f20=» 60196 «, f21=» «, f22=» @ «, f99=540010000110062710110280aaca1505000000000000013703bc00df}
0x24900…24a00 (36, 0, 9) WangDocumentBody
[…0xa…]
0x25400…25500 (37, 0, 4) Sector 2505ff00167441 ┆% tAibution is performed by use of a set of utility modules and common procedures. 4.2.1.4.2.2 Module Interface a) INC PLAIN MSG DIST b) INC PLAIN MSG DIST (R6) Register Convention 1 ┆
0x25500…25600 (37, 0, 5) Sector 2506ff00167441 ┆% tA Call Register R6 LINK (Dest.) Return Register R0 - R7 (Dest.) 4.2.1.4.2.3 Module Components INC PLAIN MSG DIST (Internal Procedure) READ VIEW AND GET SYS PARAMS (External Procedure) SIC CONTROL (External Procedure) TEST HQ MAS┆
0x25600…25700 (37, 0, 6) Sector 2507ff00167441 ┆% tAK(Internal Procedure) GET SDLS AND SORTSCDS (External Procedure) MDP WRITE BUFFER (External Procedure) TEST MDCO INVOCATION (External Procedure) MDCO DELIVERY (External Procedure) PERFORM DISTRIBUTION (External Procedure) ALTERNATIVE DIST (Ex┆
0x25700…25800 (37, 0, 7) Sector 24088700167441 ┆$ tAternal Procedure) STA SAR DELIVERY (External Procedure) UPDATE MDCO ERROR LIST (External Procedure) See Figure 4.2.1.4.2.3-1 I>K!8=>R 2!8=6 #4 E*8=k L<M% :8=F 28=I!#<:"<>R<2> I E*#<& "< DM L<M% :#<F 2#<> I:g= Ro2M/2 Rl2> IC13!?=4~~ B|2> I:A=!┆
0x25800…25900 (37, 0, 8) WangDocumentBody
[…0x77…]
0x2d000…2d100 (45, 0, 0) WangDocumentHead {hdr=WangSectHead {next=(45,0, 1), len=0xff, h3=41167541}, f00=»1675A «, f01=»CPS/SDS/034 «, f02=»rt «, f03=»NJ «, f04=»fra 4.2.1.4.14.4 «, f05=10-02-82 01:46, f06=» 11 «, f07=»41 «, f08=» 60605 «, f09=08-02-84 09:33, f10=» «, f11=»01 «, f12=» 22 «, f13=08-02-84 09:37, f14=09-02-84 10:10, f15=»0125A «, f16=» 37 «, f17=» 32 «, f18=»07 «, f19=» 376 «, f20=» 80413 «, f21=» «, f22=» «, f99=820000000110062710110280aaca15050000000000000137038400df}
0x2d100…2d200 (45, 0, 1) WangDocumentBody
[…0x6…]
0x2d800…2d900 (45, 0, 8) Sector 2d09d900167541 ┆- Y uAtions are performed by checks in the second word of the QEL. - Garbled SICs After end test of the parameters the MDCO ERROR LIST is checked an if MDCO invocation is necessary the MDCO INV is set to true. ┆
0x2d900…2da00 (45, 0, 9) Sector 2d0aff00167541 ┆- uA 1 4.2.1.4.16 CONV SCD LIST TO Q LIST 4.2.1.4.16.1 Functional Specification This utility module converts a list of SCDs to a Queue List. A fixed number of SCDs is used ┆
0x2da00…2db00 (45, 0, 10) Sector 2d0bff00167541 ┆- uAas keys for access of TMP during each convertion loop run. This gives flexibility in the number of SCD which can be converted. 4.2.1.4.16.2 Interface Definition a) CONV SCD LIST TO Q LIST (SCD POINTER: POINTER TYPE, NO OF SCD : COUNT┆
0x2db00…2dc00 (45, 0, 11) Sector 2d0cff00167541 ┆- uAER TYPE, MAX Q ENTRY: COUNTER TYPE) (SCD POINTER: POINTER TYPE, MAX Q ENTRY: COUNTER TYPE) b) CONV SCD LIST TO Q LIST(R6) Register Conventions Call Registers R6 LINK (DEST) Return Registers R0 - R7 ┆
0x2dc00…2dd00 (45, 0, 12) Sector 2d0d0e00167541 ┆- uA (DEST) 4.2.1.4.14.4 Data Description Refer Source Listings 4.2.1.4.14.5 Module Design This utility module writes a specified part of the MDP BUFFER into the IMF. It is either th┆
0x2dd00…2de00 (45, 0, 13) Sector 2d0eb500167541 ┆- 5 uA 1 Fig. 4.2.1.4.16.3-1 CONV SCD LIST TO Q LIST COMPONENTS he CREATE SCD LIST WRITE PARAMS and CREATE QUEUE LIST WRITE PARAMS called.┆
0x2de00…2df00 (45, 0, 14) Sector 2d0fff00167541 ┆- uA 1 4.2.1.4.16.3 Module Components CONV SCD LIST TO Q LIST (Internal procedure) GET SCD TABLE OUTPUT (Internal procedure) CREATE KEY LIST (Internal procedure) UPDATE ┆
0x2df00…2e000 (45, 0, 15) Sector 2d00ff00167541 ┆- uAQ LIST (Internal procedure) COMPARE REF REC WITH Q LIST (Internal procedure) CREATE NEW Q LINE (Internal procedure) See figure 4.2.1.4.16.3-1 4.2.1.4.16.4 Data Description Refer Source Listings 4.2.1.4.16.5 Module Design This┆
0x2e000…2e100 (46, 0, 0) Sector 2e01ff00167541 ┆. uA2.1.1.16, and requests updates of the MDCO ERROR LIST on basis of the control. 4.2.1.4.15.2 Interface Definition a) TEST MDCO INVOCATION (MDCO ERROR LIST : INTEGER) (MDCO ERROR LIST : INTEGER, MDCO INV : BOOLEAN) b) TEST M┆
0x2e100…2e200 (46, 0, 1) Sector 2e02ff00167541 ┆. uADCO INVOCATION(R6) Register Conventions Call Registers R6 LINK (DEST) Return Registers R0 - R7 (DEST) 4.2.1.4.15.3 Module Components UPDATE MDCO ERROR LIST(External procedure) TEST MDCO INVOCATION(Internal pro┆
0x2e200…2e300 (46, 0, 2) Sector 2e038500167541 ┆. uAcedure) TEST MORE THAN ONE SHI (Internal procedure) TEST SUPV SPEC (Internal procedure) See figure 4.2.1.4.15.3-1 C$3I > S C_* ┆
0x2e300…2e400 (46, 0, 3) Sector 2e04b200167541 ┆. 2 uA 1 TEST MDCO INVOCATION COMPONENTS Fig. 4.2.1.4.15.3-1 NFO TYPE + CTS ATOMAL DELETION LOG) *2 MDP FIELD LIST.FIELD LIST ENTRY(2).┆
0x2e400…2e500 (46, 0, 4) Sector 2e05ff00167541 ┆. uA 1 4.2.1.4.15.4 Data Description Refer Source Listings 4.2.1.4.15.5 Module Design This utility module tests the following conditions and updates the MDCO ERROR LIST i┆
0x2e500…2e600 (46, 0, 5) Sector 2e06ff00167541 ┆. uAn accordance with the result of each test. The message will be send to the MDCO if one of the following conditions are fulfilled. - Supervisor specified a) All incoming messages b) All incoming of specified classification. The ┆
0x2e600…2e700 (46, 0, 6) Sector 2e07ff00167541 ┆. uAfunction is performed by a check in the distribution system parameter record, ref DBD section 5.1.1. - Internal Handling Instruction detected. The function is performed by a check in the second word of the associated received QEL. - Spe┆
0x2e700…2e800 (46, 0, 7) Sector 2d08ff00167541 ┆- uAcial Handling Instruction of type: Exclusive Crypto Security National Eyes Only More Than one detected The function is performed by a check in the access profile of the associated received QEL. - Missing SICs These func┆
0x2e800…2e900 (46, 0, 8) Sector 2e09ff41167541 ┆. A uA1675A CPS/SDS/034 rt NJ fra 4.2.1.4.14.4 10 02 82 01 46 11 41 60605 15 12 83 10 51 00 11 15 12 83 10 51 20 12 83 13 49 0125A 37 32 06 456 80391 B ' *J 7 _┆
0x2e900…2ea00 (46, 0, 9) Sector 2e0a2500167541 ┆. % uA . . . . . . - - - - , , , , , , + + + * * * * * * ) ) ) ) ) ( ( ( ( ' ' ' ' & ┆
0x2ea00…2eb00 (46, 0, 10) Sector 2e0bb400167541 ┆. 4 uA 1 CPS/SDS/034 NJ/831101 MESSAGE DISTRIBUTION DETAILED DESIGN SPECIFICATION ISSUE 1 CAMPS I!e=6 !Z="(=e*$<kas#r 9x2"<! <6 M8)I:^=~ B#.!#<6 ! <6 M&&:!<~ J#.:!<2.=M2┆
0x2eb00…2ec00 (46, 0, 11) Sector 2e0c4d00167541 ┆. M uA 1 ^=~ B[.Mr)Cp.:]=~ Bp.MP- Rm.> IM)-MI,:^=~ B~.> IMB'IM2& 9x2"<!Z="(=^#Vk"$<:]=2#<:^=~ J6.! <6 M8) R6.> I! <6 M8)I!h=6 ! =6 M")IM"):g=~ J /:h=2>=M?.Mj': < Zn.C / E*:=k 0wM% !;=4C┆
0x2ec00…2ed00 (46, 0, 12) Sector 2e0dff00167541 ┆. uA 1 4.2.1.4.14.4 Data Description Refer Source Listings 4.2.1.4.14.5 Module Design This utility module writes a specified part of the MDP BUFFER into the IMF. It is either th┆
0x2ed00…2ee00 (46, 0, 13) Sector 2e0eff00167541 ┆. uAe SCD list field and the associated offsets and counts in the administration field or the Queue list field. The main procedure is the MDP WRITE BUFFER. Via this procedure is the CREATE SCD LIST WRITE PARAMS and CREATE QUEUE LIST WRITE PARAMS called.┆
0x2ee00…2ef00 (46, 0, 14) Sector 2e0fa600167541 ┆. & uA This is done by a case statement. In these procedures the appropriate WRITE PARAMS are setup. The actual WRITE is performed in the procedure MDP WRITE BUFFER. "<6 !&<6 ! "$<!#<6 ! <6 {M)(sC I! <6 ! "(= <q#p!"<6 !#<6 ! "$<!&<6$`i6 {M)(sM &M7 ┆
0x2ef00…2f000 (46, 0, 15) Sector 2e00ff00167541 ┆. uA 1 4.2.1.4.15 Test MDCO Invocation 4.2.1.4.15.1 Functional Specification This utility module controls the message on basis of the specifications described in section 4.┆
0x2f000…2f100 (47, 0, 0) Sector 2f01ff00167541 ┆/ uA 1 The following is common MDP data used in the MDP subpackage. CONST Q LINE START NO = 1; VAR MDP SYS PARAMS: DISTRIBUTION PARAMETER TYPE ref.DBD section┆
0x2f100…2f200 (47, 0, 1) Sector 2f02ff00167541 ┆/ uA 5.1.1 TYPE DESG SINGLE PARAM = RECORD INFO :INTEGER; LINK :INTEGER; KEY :LONG; END; TYPE KEY LIST = ARRAY(1..MAX KEY) OF DESG SINGLE PARAM; TYPE KEY SCD LIST = ARRAY(1..MAX KEY)OF SCD TYPE; TYPE DELV CODE T┆
0x2f200…2f300 (47, 0, 2) Sector 2f03ff00167541 ┆/ uAYPE = (DELIVERY PERFORMED,SIGN OF,ACCESS PROFILE FAULT QUIET HOURS DELV OK QUIET HOURS DELV FAULT ATOMAL PRINT OK ATOMAL PRINT NOT OK VAR DELV CODE :DELV CODE TYPE; NEW DELV CODE: DELV CODE TYPE; TYPE ┆
0x2f300…2f400 (47, 0, 3) Sector 2f04ff00167541 ┆/ uA MDP Q GROUP TYPE=SINGLE,VDU C,VDU REC,VDU REL,PRINT C,PRINT P); VAR MDP Q GROUP: MDP Q GROUP TYPE; MDP MAIN Q ID: INTEGER; TYPE MDP SUB Q ID TYPE = (Main-Q,SUB Q 1,SUB Q 2,SUB Q-3, SUB Q 4,SUB Q 5, SUB┆
0x2f400…2f500 (47, 0, 4) Sector 2f058b00167541 ┆/ uA Q 6); VAR MDP SUB Q ID: MDP SUB Q ID TYPE; CONST MDQ = 1; MDCO MDQ = 2, MDCO CCMDQ = 3; SAR Q = 4; VAR NO OF SIC :COUNTER TYPE; Specifies the number of SICs which shall be used during a distribution VAR MDCO I┆
0x2f500…2f600 (47, 0, 5) Sector 2f06ff00167541 ┆/ uA 1 1 VAR MDCO ERROR LIST: INTEGER; 1 ┆
0x2f600…2f700 (47, 0, 6) Sector 2f07ff00167541 ┆/ uA TYPE ERROR INPUT TYPE= (UP GARBLED SICS,UP MISSING SICS, UP MISSING SICS,UP SPECIAL SICS, UP SDL LISTS EMPTY, UP SPEC BY SUPV,UP INT HAND INST, UP S H I EXCL,UP S H I CRYPTO ┆
0x2f700…2f800 (47, 0, 7) Sector 2e08e100167541 ┆. a uASEC,UP MORE THAN ONE SHI, UP ABB MSG FORMAT), UP NON EXERMSG EXERSICS, UP EXERMSG NON EXERSICS, UP EXERMSL NON SUBJSICS, UP MISSING CONSISTENCE SIC UP SUBJMSG NON SUBJSICS); VAR ERROR INPUT: ERROR INPUT TYPE; ection 10.1.7 INC MSG DIST T┆
0x2f800…2f900 (47, 0, 8) Sector 2f09ff00167541 ┆/ uA 1 VAR NO OF SCD :COUNTER TYPE; Specifies the number of SCDs in the actual SCD list, which shall be converted to a Queue List. VAR NO OF AC Q LINES:COUNTER TYPE; NO┆
0x2f900…2fa00 (47, 0, 9) Sector 2f0aff00167541 ┆/ uA OF INFO Q LINES:COUNTER TYPE; VAR NO OF KEY :COUNTER TYPE; Specifies the number of keys contained in the KEY LIST used in TMP search. TYPE MDP WRITE TYPE = (SCD LIST WRITE;QUEUE LIST WRITE); VAR MDP WRITE :MDP WRITE TYPE; Specifies th┆
0x2fa00…2fb00 (47, 0, 10) Sector 2f0bff00167541 ┆/ uAe actual write to the IMF VAR PREC :PRECEDENCE TYPE; ref DBD section 4 The PREC specifies the current delivery precedence. VAR MDP STA-1 :STA GROUP NO TYPE; ref DBD section 4 specifies the actual statistics group fo┆
0x2fb00…2fc00 (47, 0, 11) Sector 2f0cff00167541 ┆/ uAr the whole distribution. VAR MDP STA 2 :STA GROUP NO TYPE; ref DBD section 4 specifies the Actual statistics group for terminal statistics VAR MDP SAR GROUP :SAR STORAGE TYPE; ref DBD section 4 specifies the a┆
0x2fc00…2fd00 (47, 0, 12) Sector 2f0d1e00167541 ┆/ uActual SAR storage group MDP Buffer size of 1750 the constant is equal 10. TYPE MDP DATA BUFFER = ARRAY(1..MDP BUFFER SIZE) of INTEGER; VAR MDP BUFFER :MDP DATA BUFFER; KEY LIST LENGTH :COUNTER TYPE; OUTPUT LENGTH :COUNTER TY┆
0x2fd00…2fe00 (47, 0, 13) Sector 2f0eff00167541 ┆/ uA 1 VAR NO OF TERM :COUNTER TYPE; Specifies the current no of terminals to which distribution has been performed. VAR Q LINE NO :COUNTER TYPE; Specifies the Queue line no┆
0x2fe00…2ff00 (47, 0, 14) Sector 2f0fff00167541 ┆/ uA from where update of delivery code shall be performed VAR NO OF DELV :COUNTER TYPE; Specifies the number of Queue lines which shall be updated with a new delivery code. TYPE MDCO ASSISTANCE TYPE=(MDCO INV ASS, MDCO ALT ASS); VAR MDCO┆
0x2ff00…30000 (47, 0, 15) Sector 2f00c400167541 ┆/ D uA ASS TYPE: MDCO ASSISTANCE TYPE; VAR ASS REQ INDIC:BOOLEAN; Specifies by TRUE that the message has been or shall be assisted by the MDCO. Used in connection with the statistics record. NO OF AC Q LINES, MSG DELIVERY) ALT DIST = TRUE ? - AC AL┆
0x30000…30100 (48, 0, 0) Sector 3001ff00167541 ┆0 uA 1 TYPE MDP FIELD LIST TYPE = RECORD MDP NO OF FIELDS : NO OF FIELDS; FIELD LIST ENTRY : ARRAY (1.3) OF FIELD LIST ELEMENT; VAR NEW VIEW REF :VIEW REFERENCE; M┆
0x30100…30200 (48, 0, 1) Sector 3002ff00167541 ┆0 uADP VIEW REF 1 :VIEW REFERENCE; OLD VIEW REF :VIEW REFERENCE; MDP QEL ATTR :QEL ATTRIBUTES; QUEUE REF :QUEUE REFERENCE; APP PROFILE :APPLICATION PROFILE; MDP FIELD LIST :MDP FIELD LIST TYPE; MDP SEND PARAMS :SEND PARAMS┆
0x30200…30300 (48, 0, 2) Sector 3003cf00167541 ┆0 O uA; REF ATTR :VIEW ATTRIBUTES; The following data is used in connection with the CSF monitor action. As SUBPROCESS IN INDEX is used the CONST MDP NO which is defined in the DBD section 4. OMAL IND ? CREATE SAR SEND PARAMS CREATE QUE┆
0x30300…30400 (48, 0, 3) Sector 3004ff00167541 ┆0 uA 1 The following data is control parameters used in the control logic between the Modules within MDP. VAR OLD VIEW :BOOLEAN; SPECIFIES BY TRUE THAT a new view had been cr┆
0x30400…30500 (48, 0, 4) Sector 3005ff00167541 ┆0 uAeated during the distribution. VAR SIC STATE :NO OK; Specifies by OK that at least one SIC shall be used for a distribution VAR NO OF SIC :COUNTER TYPE; Specifies the number of SICs which shall be used during a distribution VAR MDCO I┆
0x30500…30600 (48, 0, 5) Sector 3006ff00167541 ┆0 uANV :NO YES; Specifies by YES that no distribution shall be performed on the message but it shall be sent to the MDCO. VAR ALT DIST :BOOLEAN; Specifies by TRUE that alternative distribution shall be performed on the MSG either to Duty Officer or┆
0x30600…30700 (48, 0, 6) Sector 3007ff00167541 ┆0 uA/and MDCO. VAR SDL BUFFER EMPTY :BOOLEAN; Specifies by TRUE that the SDLs is empty or no SDLs have been identified. VAR MAX Q ENTRY :COUNTER TYPE; Specifies the actual number of Queue lines in the Queue List. VAR SCD POINTER :OFFSET T┆
0x30700…30800 (48, 0, 7) Sector 2f086200167541 ┆/ b uAYPE; Specifies the Offset for the Actual SCD List which shall be converted to a Queue List. ption a) Data References STA GROUP NO TYPE ref DBD section 4 SAR STORAGE TYPE ref.DBD section 4 QUEUE LIST ref.DBD section 10.1.7 INC MSG DIST T┆
0x30800…30900 (48, 0, 8) Sector 3009ff00167541 ┆0 uA 1 CREATE SAR SEND PARAMS START MDP SEND PARAMS.CHECK P STATUS = TRUE MDP SEND PARAMS.PROFILE = ZERO MDP SEND PARAMS.HEADER.MAINTYPE = MDP QEL ATTR.HEADER.MAINTYP┆
0x30900…30a00 (48, 0, 9) Sector 300aac00167541 ┆0 , uAE MDP SEND PARAMS.HEADER.SUBTYPE = FOR STORAGE MDP SEND PARAMS.HEADER.FLAGS = MDP QEL ATTR.HEADER FLAGS MDP SEND PARAMS.HEADER.INF = MDP SAR GROUP END statistics and send the message for storage. It contains three internal procedures ┆
0x30a00…30b00 (48, 0, 10) Sector 300bff00167541 ┆0 uA 1 4.2.1.5 Common Subpackage Data The following data is used in connection with the MDP BUFFER the parameters specifies offsets and data length within the buffer. CONST MD┆
0x30b00…30c00 (48, 0, 11) Sector 300cff00167541 ┆0 uAP BUFFER SIZE = 1750; Q LINE LENGTH = 15; MAX KEY this constant is a configuration parameter and therefore it is defined in the common CAMPS configuration prefix which is described in the DBD section 4. However, it is only used by the MDP S┆
0x30c00…30d00 (48, 0, 12) Sector 300dff00167541 ┆0 uAubpackage. With a MDP Buffer size of 1750 the constant is equal 10. TYPE MDP DATA BUFFER = ARRAY(1..MDP BUFFER SIZE) of INTEGER; VAR MDP BUFFER :MDP DATA BUFFER; KEY LIST LENGTH :COUNTER TYPE; OUTPUT LENGTH :COUNTER TY┆
0x30d00…30e00 (48, 0, 13) Sector 300eff00167541 ┆0 uAPE; Q LIST LENGTH :COUNTER TYPE; COOR CHECK MARK LENGTH :COUNTER TYPE; COOR SCD LENGTH :COUNTER TYPE; DIST SCD LENGTH :COUNTER TYPE; KEY LIST OFFSET :POINTER TYPE: OUTPUT OFFSET :POINTER TYPE; Q LIST OFFSET :POINTER┆
0x30e00…30f00 (48, 0, 14) Sector 300fff00167541 ┆0 uA TYPE; AC INFO SCD OFFSET :POINTER TYPE; MDP DIST SCD OFFSET :POINTER TYPE; MDP COOR SCD OFFSET :POINTER TYPE; COOR CHECK MARK OFFSET :POINTER TYPE; ALT DIST LIST OFFSET :POINTER TYPE; IMF READ OFFSET :POINTER TYPE; The┆
0x30f00…31000 (48, 0, 15) Sector 30008800167541 ┆0 uA following data is used in connection with the Queue and Message monitor action. For definition of the types ref. DBD section 4. NES DELIVERY (MDP PARAM.ACTION PREC, Q LINE START NO, NO OF AC Q LINES, MSG DELIVERY) ALT DIST = TRUE ? - AC AL┆
0x31000…31100 (49, 0, 0) Sector 3101ff00167541 ┆1 uA 1 STA SAR DELIVERY (MDP STA 1, MDP STA 2,MDP SAR GROUP,NO OF TERM) START EQUIVALENCE(MDP BUFFER(Q LIST OFFSET) : QUEUE LIST) CREATE STA RECORD SWITCH STA COLL (MDP STA┆
0x31100…31200 (49, 0, 1) Sector 3102ff00167541 ┆1 uA 1, ZERO, ZERO, % MDP STA RECORD, STP COLLECT) ERROR ? ANALYZE ERROR (CC, O) END SWITCH STA COUNT = ZERO STA TERM LOOP STA COUNT + 1 STA COUNT = NO OF TERM EXIT SWITCH STA COLL (MDP STA 2, QUEUE LINE, DEVICE ID, QUEUE ┆
0x31200…31300 (49, 0, 2) Sector 3103ff00167541 ┆1 uALINE.LOGICAL DESIGNATOR, % MDP STA RECORD, STP COLLECT) ERROR ? ANALYZE ERROR (CC, O) END SWITCH END LOOP MDP PARAM.CLASS = COSMIC TOP SECRET ? MDP PARAM.SPEC HAND TYPE.LEAST = ATOMAL IND ? CREATE SAR SEND PARAMS CREATE QUE┆
0x31300…31400 (49, 0, 3) Sector 3104c400167541 ┆1 D uAUE REF (SINGLE, SAR Q, SUB Q 1) (QUEUE REF) SWITCH QMON SEND QEL (% MDP SEND PARAMS, MDP VIEW REF 1, % QUEUE REF) ERROR ? ANALYZE ERROR (CC, O) END SWITCH END Fig. 4.2.1.4.20.5-1 NO OF TERM (DEST) R4 ASS REQ INDIC (DEST) R6 LINK (DEST┆
0x31400…31500 (49, 0, 4) Sector 3105ff00167541 ┆1 uA 1 CREATE STA RECORD (NO OF TERM) START GET VIEW ATTRIBUTES(MDP VIEW REF 1) (REF ATTR,CC): ERROR OK MSG LENGTH = REF ATR.FIELD INF(SCD LIST FIELD).USED LENGTH MS┆
0x31500…31600 (49, 0, 5) Sector 3106ff00167541 ┆1 uAG LENGTH = REF ATTR.FIELD INF(ADDRESS FIELD).USED LENGTH + MSG LENGTH MSG LENGTH = REF ATTR.FIELD INF(TEXT FIELD).USED LENGTH + MSG LENGTH MDP STA RECORD.MSG LENGTH = MSG LENGTH MDP STA RECORD.ACT PREC LEV = MDP PARAM.ACTION PREC MDP STA REC┆
0x31600…31700 (49, 0, 6) Sector 3107ff00167541 ┆1 uAORD.INF PREC LEV = MDP PARAM.INFO PREC MDP STA RECORD.CLASSIFIC CAT = MDP PARAM.CLASS MDP STA RECORD.SPEC HAND = MDP PARAM.SPEC HAND INST MDP STA RECORD.TERM IN DIST = NO OF TERM MDP STA RECORD.ASS REQ INDIC = ASS REQ INDIC STOP ┆
0x31700…31800 (49, 0, 7) Sector 30082200167541 ┆0 " uA Fig. 4.2.1.4.20.5-2 4.2.1.4.20.4 Data Description a) Data References STA GROUP NO TYPE ref DBD section 4 SAR STORAGE TYPE ref.DBD section 4 QUEUE LIST ref.DBD section 10.1.7 INC MSG DIST T┆
0x31800…31900 (49, 0, 8) Sector 3109ff00167541 ┆1 uAERM ref.DBD section 4 OUT MSG DIST TERM ref.DBD section 4 b) External Data Q LIST MDP STA 1 MDP STA 2 MDP SAR GROUP NO OF TERM ASS REQ INDIC MDP SEND PARAMS (m) ref. section 4.2.1.5 QUEUE REF (m) MDP VIEW REF 1 REF ATTR (m) ┆
0x31900…31a00 (49, 0, 9) Sector 310aff00167541 ┆1 uA MDP PARAM SAR Q c) Local Data VAR MDP STA RECORD : INC MSG DIST TERM; VAR STA COUNT : INTEGER; 4.2.1.4.20.5 Module Design This utility module creates statistics and send the message for storage. It contains three internal procedures ┆
0x31a00…31b00 (49, 0, 10) Sector 310bff00167541 ┆1 uAwhich are described in the following: a) STA SAR DELIVERY This is the main procedure within the module. In the start of the procedure it calls "CREATE STA RECORD" which creates the current statistics record. Then first the statistics collection┆
0x31b00…31c00 (49, 0, 11) Sector 310cef00167541 ┆1 o uA monitor procedure is called for the whole distribution, and after this it is called for each of the terminals in the distribution. In the call parameters for these call the current Device ID and the Logical Designator is specified. QUIET HOURS ┆
0x31c00…31d00 (49, 0, 12) Sector 310dff00167541 ┆1 uA 1 In the end of the procedure the message is sent for storage. Before the actual send the CREATE SAR SEND PARAMS and CREATE QUEUE REF are called. See figure 4.2.1.4.20.5-1. b) CRE┆
0x31d00…31e00 (49, 0, 13) Sector 310eff00167541 ┆1 uAATE STA RECORD This procedure create the current Statistics record. The MSG LENGTH is calculated by adding the length of the SCD LIST FIELD, the ADDRESS FIELD and the TEXT FIELD. The other parameters are taken from the MDP PARAM. See figure 4.2.1┆
0x31e00…31f00 (49, 0, 14) Sector 310fff00167541 ┆1 uA.4.20.5-2. c) CREATE SAR SEND PARAMS This procedure creates the send parameters. Maintype and Flags are copied from the MDP QEL ATTR. Subtype is FOR STORAGE and second word in the QEL will contain the current SAR STORAGE TYPE. The APP PROFILE w┆
0x31f00…32000 (49, 0, 15) Sector 31005300167541 ┆1 S uAill be set equal MSG DELIVERY. The Checkpoint status will be set equal true. TRY) NO OF INFO Q LINES = MAX Q ENTRY NO OF AC Q LINES DELIVERY (MDP PARAM.ACTION PREC, Q LINE START NO, NO OF AC Q LINES, MSG DELIVERY) ALT DIST = TRUE ? - AC AL┆
0x32000…32100 (50, 0, 0) Sector 3201b200167541 ┆2 2 uAT DIST = TRUE DELIVERY (MDP PARAM.ACTION PREC, Q LINE START NO, NO OF AC Q LINES, MSG DELIVERY) ALT DIST = TRUE ? - AC ALT SIDT = TRUE END fig. 4.2.4.4.19.5-1 .PROFILE = APP PROFILE MDP SEND PARAMS.HEADER.MAINTYPE = MDP QEL ATT┆
0x32100…32200 (50, 0, 1) Sector 3202ff00167541 ┆2 uA 1 4.2.1.4.20 STA SAR DELIVERY 4.2.1.4.20.1 Functional Specification This utility module creates statistics and call the statistics collection monitor procedure. In the end of the┆
0x32200…32300 (50, 0, 2) Sector 3203ff00167541 ┆2 uA module it sends the view for storage too. 4.2.1.4.20.2 Interface Definition a) STA SAR DELIVERY (MDP STA 1:STA GROUP NO TYPE, MDP STA 2:STA GROUP NO TYPE, MDP SAR GROUP:SAR STORAGE TYPE; NO OF TERM: COUNTER TYPE, ┆
0x32300…32400 (50, 0, 3) Sector 3204ff00167541 ┆2 uA ASS REQ INDIC: BOOLEAN) b) STA SAR DELIVERY (R0, R1, R2, R3, R4, R6) Register Conventions Call Registers R0 MDP STA 1 (DEST) R1 MDP STA 2 (DEST) R2 MDP SAR GROUP (DEST) R3 NO OF TERM (DEST) R4 ASS REQ INDIC (DEST) R6 LINK (DEST┆
0x32400…32500 (50, 0, 4) Sector 3205ff00167541 ┆2 uA) Return Registers R0 - R7 (DEST) 4.2.1.4.20.3 Module Components SAR STA DELIVERY (Internal procedure) CREATE STA RECORD (Internal procedure) CREATE SAR SEND PARAMS (Internal procedure) CREATE QUEUE REF (External procedure) See┆
0x32500…32600 (50, 0, 5) Sector 32061d00167541 ┆2 uA figure 4.2.1.4.20.3-1 Module Components PERFORM DISTRIBUTION (Internal procedure) CONV SCD LIST TO Q LIST (External procedure) DELIVERY (External procedure) See figure 4.2.1.4.19.3-1 Coordination repeat set equal FALSE Quiet Hou┆
0x32600…32700 (50, 0, 6) Sector 3207a900167541 ┆2 ) uA 1 Fig. 4.2.1.4.20.3-1 STA SAR DELIVLERY COMPONENTS MPONENTS END PARAMS This procedure creates the sends parameters. Checkpoint stat┆
0x32700…32800 (50, 0, 7) Sector 3108ff00167541 ┆1 uA 1 4.2.1.4.20.4 Data Description a) Data References STA GROUP NO TYPE ref DBD section 4 SAR STORAGE TYPE ref.DBD section 4 QUEUE LIST ref.DBD section 10.1.7 INC MSG DIST T┆
0x32800…32900 (50, 0, 8) Sector 3209ff00167541 ┆2 uA Q LINES (m) MAX Q ENTRY (m) ref. section 4.2.1.5 MDP PARAM.NUMBER OF INFO SCD MDP PARAM.ACTION PREC MDP PARAM.INFO PREC INFO SCD OFFSET (m) Q LINE START NO c) Local Data None 4.2.1.4.19.5 Module Design The S┆
0x32900…32a00 (50, 0, 9) Sector 320aff00167541 ┆2 uAequence in this utility module is shown on figure 4.2.1.4.19.5-1. First the Utility module CONV SDC LIST TO Q LIST is called with parameter for conversion of the action part of the SCD list. The SCD POINTER received as input points out where in the ┆
0x32a00…32b00 (50, 0, 10) Sector 320bff00167541 ┆2 uAMDP BUFFER the action SCDs starts, and NO OF SCD gives the number of action SCDs. The same utility module is called one time more now with parameters for conversion of the Info part of the SCD List. In the same way is the utility module DELIVERY┆
0x32b00…32c00 (50, 0, 11) Sector 320c0f00167541 ┆2 uA called. QUIET HOURS DELIVERY(NO OF DELV)(MDCO DELV) START REF ENTRY = 1; QUIET HOURS CONTROL LOOP Q LIST.QUEUE LINE(REF ENTRY).DELIVERY CODE NE SIGN OFF? QUIET HOURS ┆
0x32c00…32d00 (50, 0, 12) Sector 320dff00167541 ┆2 uA 1 PERFORM DISTRIBUTION(NO OF SCD, SCD POINTER) START AC ALT DIST = FALSE DIST CASE = OUT PLAIN MSG DIST OR MDCO INV OUTG ? CONV SCD TO QLINE (SCD POINTER, ┆
0x32d00…32e00 (50, 0, 13) Sector 320eff00167541 ┆2 uANO OF SCD, ZERO, DUMMY)(MAX Q ENTRY) CUR Q LINE NO = ZERO CUR Q LINE NO = MAX Q ENTRY NO OF SCD = MDP PARAM.NUMBER OF ACTION SCD SCD POINTER = AC INFO SCD OFFSET MAX Q ENTRY = CUR Q LINE NO CONV SCD TO Q LI┆
0x32e00…32f00 (50, 0, 14) Sector 320fff00167541 ┆2 uANE (SCD POINTER, NO OF SCD, MAX Q ENTRY, AC SCD OFFSET)(MAX Q ENTRY) NO OF AC Q LINES = MAX Q ENTRY NO OF SCD = MDP PARAM, NUMBER OF INFO SCD DIST CASE = MSG REDIST ? SCD POINTER = ALT DIST LIST TYPE.ALT INFO SCD CONV SCD TO Q┆
0x32f00…33000 (50, 0, 15) Sector 3200ff00167541 ┆2 uA LINE (SCD-POINTER, NO OF SCD, MAX Q ENTRY, INFO-SCD OFFSET)(MAX Q ENTRY) NO OF INFO Q LINES = MAX Q ENTRY NO OF AC Q LINES DELIVERY (MDP PARAM.ACTION PREC, Q LINE START NO, NO OF AC Q LINES, MSG DELIVERY) ALT DIST = TRUE ? - AC AL┆
0x33000…33100 (51, 0, 0) Sector 3301ff00167541 ┆3 uA 1 CREATE QUIET HOURS SEND PARAMS START MDP SEND PARAMS.CHECKP STATUS = TRUE MDP SEND PARAMS.PROFILE = APP PROFILE MDP SEND PARAMS.HEADER.MAINTYPE = MDP QEL ATT┆
0x33100…33200 (51, 0, 1) Sector 3302c100167541 ┆3 A uAR.HEADER.MAINTYPE MDP SEND PARAMS.HEADER.SUBTYPE = FOR DISPLAY MDP SEND PARAMS.HEADER.FLAGS = MDP QEL ATTR.HEADER.FLAGS MDP SEND PARAMS.HEADER.INF = QUIET HOURS INF END ore sending the Object the delivery codes are checked against ┆
0x33200…33300 (51, 0, 2) Sector 3303ff00167541 ┆3 uA 1 4.2.1.4.19 Perform Distribution 4.2.1.4.19.1 Functional Specification This utility module is used when distribution shall be performed by both action and info SCDs. It ┆
0x33300…33400 (51, 0, 3) Sector 3304ff00167541 ┆3 uAcalls both of the utility modules CONV SCD LIST TO Q LIST and DELIVERY twice. One time for action and one time for Info. 4.2.1.4.19.2 Interface Definition a) PERFORM DISTRIBUTION(SCD POINTER: POINTER TYPE, NO OF SCD: COUNTER TYPE) ┆
0x33400…33500 (51, 0, 4) Sector 3305ff00167541 ┆3 uA (ALT DIST: BOOLEAN, NO OF AC Q LINES: COUNTER TYPE, NO OF INFO Q LINES: COUNTER TYPE) b) PERFORM DISTRIBUTION (R0, R1, R6) Register Conventions Call Registers R0 NO OF SCD (DEST) R1 SCD POINTER (DEST) R6 LINK ┆
0x33500…33600 (51, 0, 5) Sector 3306cd00167541 ┆3 M uA (DEST) 4.2.1.4.19.3 Module Components PERFORM DISTRIBUTION (Internal procedure) CONV SCD LIST TO Q LIST (External procedure) DELIVERY (External procedure) See figure 4.2.1.4.19.3-1 Coordination repeat set equal FALSE Quiet Hou┆
0x33600…33700 (51, 0, 6) Sector 3307b200167541 ┆3 2 uA 1 Fig. 4.2.1.4.19.3-1 PERFORM DISTRIBUTION COMPONENTS END PARAMS This procedure creates the sends parameters. Checkpoint stat┆
0x33700…33800 (51, 0, 7) Sector 3208ff00167541 ┆2 uA 1 4.2.1.4.19.4 Data Description a) Data References None b) External Data SCD POINTER (m) NO OF SCD (m) ALT DIST NO OF AC Q LINES (m) NO OF INFO┆
0x33800…33900 (51, 0, 8) Sector 3309ff00167541 ┆3 uAIET HOURS DELIVERY (NO OF DELV) REF ENTRY = 1 MDCO CONTROL LOOP Q LIST.QUEUE LINE(REF ENTRY).DELIVERY CODE EQ DELV PERFORMED ? Q LIST.QUEUE LINE(REF ENTRY).DELIVERY CODE EQ ATOMAL PRINT OK? Q LIST.QUEUE LINE(REF ENTRY).DELIVERY CODE EQ ┆
0x33900…33a00 (51, 0, 9) Sector 330aff00167541 ┆3 uAQUIET HOURS DELV? MDCO DELV = TRUE REF ENTRY = NO OF DELV MDCO DELV = FALSE REF ENTRY EQ NO OF DELV? EXIT MDCO CONTROL REF ENTRY = REF ENTRY + 1 END MDCO CONTROL LOOP MDP WRITE BUFFER (QUEUE LIST WRITE) MDCO DELV EQ FALSE┆
0x33a00…33b00 (51, 0, 10) Sector 330b6500167541 ┆3 e uA? MDCO DELIVERY(MDP PARAM.ACTION PREC, MDCO ALT ASS, 01) STOP Fig. 4.2.1.4.18.6-1 E (External procedure) SEND FLASH (External procedure) MDCO DELIVERY (External procedure) See figure 4.2.1.4.18.3-1 END PARAMS.PROFILE = APP PROFIL┆
0x33b00…33c00 (51, 0, 11) Sector 330cff00167541 ┆3 uA 1 QUIET HOURS DELIVERY(NO OF DELV)(MDCO DELV) START REF ENTRY = 1; QUIET HOURS CONTROL LOOP Q LIST.QUEUE LINE(REF ENTRY).DELIVERY CODE NE SIGN OFF? QUIET HOURS ┆
0x33c00…33d00 (51, 0, 12) Sector 330dff00167541 ┆3 uADELV = TRUE REF ENTRY = NO OF DELV QUIET HOURS DELV = FALSE REF ENTRY EQ NO OF DELV? EXIT QUIET HOURS CONTROL REF ENTRY = REF ENTRY + 1 END QUIET HOURS CONTROL LOOP QUIET HOURS DELV EQ FALSE? CREATE QUIET HOURS SEND PARAMS CR┆
0x33d00…33e00 (51, 0, 13) Sector 330eff00167541 ┆3 uAEATE QUEUE REF(VDU REC,MDP SYS PARAM.QUIET HOURS LOG DES, MDP PARAM.ACTION PREC)(QUEUE REF) SEND QEL(MDP SEND PARAMS,MDP VIEW REF 1, QUEUE REF) (MDP SEND PARAMS,CC, ERROR OK ERROR? ANALYZE ERROR(CC,2, PROFILE CHECK, BLOCKED QUEUE) N┆
0x33e00…33f00 (51, 0, 14) Sector 330fff00167541 ┆3 uAEW DELV CODE = QUIET HOURS DELV FAULT NEW DELV CODE = QUIET HOURS DELV OK UPDATE DELV CODE(Q LINE START NO,NO OF DELV,SIGN OFF,NEW DELV CODE MDP PARAM.ACTION PREC NE FLASH? SEND FLASH(VDU C, MDP SYS PARAM.QUIET HOURS LOG DES) STOP F┆
0x33f00…34000 (51, 0, 15) Sector 33001900167541 ┆3 uAig. 4.2.1.4.18.5-2 edure QUIET HOURS DELIVERY will be called. After return from this procedure the delivery code in the Queue List is checked. If other than the following three codes are detected the object is sent to the MDCO too. - DELV PERFORM┆
0x34000…34100 (52, 0, 0) Sector 3401b900167541 ┆4 9 uAED (Normal VDUs and SADs) - ATOMAL PRINT OK - QUIET HOURS DELV OK The delivery to the MDCO is performed via the common procedure MDCO DELIVERY (see figure 4.2.1.4.18.5-1. scribed in the following. a) DELIVERY This procedure contains the┆
0x34100…34200 (52, 0, 1) Sector 3402ff00167541 ┆4 uA 1 b) QUIET HOURS DELIVERY This procedure performs the actual delivery to the Quiet Hours terminal position. Before sending the Object the delivery codes are checked against ┆
0x34200…34300 (52, 0, 2) Sector 3403ff00167541 ┆4 uAthe code "SIGN OFF". If no delivery codes of that type are detected the message will not be sent. The program will instead return to the procedure ALTERNATIVE DIST, where the object will be sent to the MDCO. If delivery shall be performed to the┆
0x34300…34400 (52, 0, 3) Sector 3404ff00167541 ┆4 uA Quiet Hours position the two procedures CREATE QUIET HOURS SEND PARAMS and CREATE QUEUE REF are called. After Delivery the Delivery codes will be updated in accordance with the result of the send by the common procedure UPDATE DELV CODE. If the ┆
0x34400…34500 (52, 0, 4) Sector 3405ff00167541 ┆4 uAObject is of precedence Flash a Flash notification will be sent to the terminals common Queue via the Common procedure SEND FLASH. (See Figure 4.2.1.4.18.5-2) c) CREATE QUIET HOURS SEND PARAMS The following Action on the MDP SEND PARAMS is perf┆
0x34500…34600 (52, 0, 5) Sector 3406ff00167541 ┆4 uAormed in this procedure. Check point status set equal TRUE Maintype and Header Flags copies from QEL attributes Subtype set equal FOR DISPLAY Application profile set equal MSG DELIVERY Coordination repeat set equal FALSE Quiet Hou┆
0x34600…34700 (52, 0, 6) Sector 34072300167541 ┆4 # uArs tern. Delv set equal TRUE Fig. 4.2.1.4.17.5-7 TRUE OTHERWISE? - SIGN ON USER = TRUE END CASE STOP Fig. 4.2.1.4.17.5-2 ed. d) CREATE USER SEND PARAMS This procedure creates the sends parameters. Checkpoint stat┆
0x34700…34800 (52, 0, 7) Sector 3308ff00167541 ┆3 uA 1 ALTERNATIVE DIST (NO OF DELV) START EQUIVALENCE(MDP BUFFER(Q LIST OFFSET), Q LIST : QUEUE LIST); MDP SYS PARAM.QUIET HOURS SWITCH EQ FALSE? - MDCO DELV = TRUE QU┆
0x34800…34900 (52, 0, 8) Sector 3409ff00167541 ┆4 uAnecessary. Though the alternative distribution the delivery codes are updated in the Q-List so it reflects the current situation. 4.2.1.4.18.2 Interface Definition a) ALTERNATIVE DIST (NO OF DELV : COUNTER TYPE) b) ALTERNATIVE DIST (R0, R6) ┆
0x34900…34a00 (52, 0, 9) Sector 340aff00167541 ┆4 uA Register Conventions Call Registers R0 NO OF DELV R6 LINK (DEST) Return Registers R0 - R7 (DEST) 4.2.1.4.18.3 Module Components ALTERNATIVE DIST (Internal procedure) QUIET HOURS DELIVERY (Internal procedure) CREATE QUIET H┆
0x34a00…34b00 (52, 0, 10) Sector 340be000167541 ┆4 ` uAOURS SEND PARAMS (Internal procedure) CREATE QUEUE REF (External procedure) UPDATE DELV CODE (External procedure) SEND FLASH (External procedure) MDCO DELIVERY (External procedure) See figure 4.2.1.4.18.3-1 END PARAMS.PROFILE = APP PROFIL┆
0x34b00…34c00 (52, 0, 11) Sector 340ca900167541 ┆4 ) uA 1 Fig. 4.2.1.4.18.3-1 ALTERNATIVE DIST COMPONENTS PARAMS.HEADER. DEVICE ID EQ VDU SUBTYPE = FOR DISPLAY MDP SEND PARAMS.HEADER. MD┆
0x34c00…34d00 (52, 0, 12) Sector 340dff00167541 ┆4 uA 1 4.2.1.4.18.4 Data Description a) Data References QUEUE LIST ref.DBD sect.10.1.7 b) External Data NO OF DELV MDP SYS PARAM.QUIET HOURS SWITCH NEW DELV CODE (m) ┆
0x34d00…34e00 (52, 0, 13) Sector 340eff00167541 ┆4 uAQ LINE START NO MDP SYS PARAM.QUIET HOURS LOG DES ref.section 4.2.1.5 MDP SEND PARAMS (m) MDP VIEW REF 1 QUEUE REF (m) MDP PARAM.ACTION PREC c) Local Data VAR MDCO DELV :BOOLEAN; QUIET HOURS DELV :BOOLEAN; REF ENTRY :COUNTER TYP┆
0x34e00…34f00 (52, 0, 14) Sector 340fff00167541 ┆4 uAE; CONST INFO CONST 4.2.1.4.18.5 Module Design This utility module contains three internal procedures,each of the procedure is described in the following. a) ALTERNATIVE DIST This procedure tests if Quiet Hours delivery shall be perform┆
0x34f00…35000 (52, 0, 15) Sector 3400ff00167541 ┆4 uAed. If so, the procedure QUIET HOURS DELIVERY will be called. After return from this procedure the delivery code in the Queue List is checked. If other than the following three codes are detected the object is sent to the MDCO too. - DELV PERFORM┆
0x35000…35100 (53, 0, 0) Sector 35017e00167541 ┆5 ~ uACKED: DELV CODE = TERMINAL BLOCKED ALT DIST = TRUE END Q UNE BLOCKED END Fig. 4.2.1.4.17.5-5 file as described in the CREATE USER PARAMS rocedures is described in the following. a) DELIVERY This procedure contains the┆
0x35100…35200 (53, 0, 1) Sector 3502ff00167541 ┆5 uA 1 PERFORM ATOMAL PRINT START DELV CODE = PRINT ATOMAL ON SAD REF ENTRY = Q LINE NO NUMBER OF COPIES = 0 ATOMAL COPY NO LOOP Q LIST.QUEUE LINE(REF ENTRY).DELIVE┆
0x35200…35300 (53, 0, 2) Sector 3503ff00167541 ┆5 uARY CODE NE DELV CODE? NUMBER OF COPIES = NUMBER OF COPIES + Q LIST.QUEUE LINE(REF ENTRY). COPIES REF ENTRY EQ Q LINE NO + NO OF DELV? EXIT ATOMAL COPY NO REF ENTRY = REF ENTRY + 1 END ATOMAL COPY NO LOOP PERFORM┆
0x35300…35400 (53, 0, 3) Sector 35044500167541 ┆5 E uA ATOMAL DELIVERY STOP Fig. 4.2.1.4.17.5-6 TRY + 1 END DELV LOOP ATOMAL PRINT EQ FALSE? PERFORM ATOMAL PRINT STOP Fig. 4.2.1.4.17.5-1 s signed on and that the user is working in USER MODE. The Boolean SIGN ON USER is u┆
0x35400…35500 (53, 0, 4) Sector 3505ff00167541 ┆5 uA 1 PERFORM ATOMAL DELIVERY START CREATE ATOMAL SEND PARAMS(APP PROFILE)(MDP SEND PARAMS) CREATE QUEUE REF SEND QEL(MDP SEND PARAMS,MDP VIEW REF 1, QUEUE REF) (MDP S┆
0x35500…35600 (53, 0, 5) Sector 3506ff00167541 ┆5 uAEND PARAMS,CC):ERROR OK ERROR? - ANALYZE ERROR(CC,2,PROFILE CHECK, BLOCKED QUEUE) NEW DELV CODE = ATOMAL PRINT NOT OK NEW DELV CODE = ATOMAL PRINT OK UPDATE DELV CODE NEW DELV CODE NE ATOMAL PRINT OK ? PREC NE FLASH? SEND ┆
0x35600…35700 (53, 0, 6) Sector 35073c00167541 ┆5 < uAFLASH(PRINT C) STOP Fig. 4.2.1.4.17.5-7 TRUE OTHERWISE? - SIGN ON USER = TRUE END CASE STOP Fig. 4.2.1.4.17.5-2 ed. d) CREATE USER SEND PARAMS This procedure creates the sends parameters. Checkpoint stat┆
0x35700…35800 (53, 0, 7) Sector 3408ff00167541 ┆4 uA 1 4.2.1.4.18 Alternative Dist 4.2.1.4.18.1 Functional Specification This utility module performs alternative distribution, either to the Duty Officer or the MDCO or to both, if ┆
0x35800…35900 (53, 0, 8) Sector 3509ff00167541 ┆5 uA SEND PARAMS, MDP VIEW REF 1, QUEUE REF) (MDP SEND PARAMS, cc): ERROR OK ERROR? - MDP USER ERROR HANDLING PREC NE FLASH? Q LIST.QUEUE LINE(REF ENTRY). MDP Q GROUP = VDU C DEVICE ID EQ VDU MDP Q GROUP = PRINT C SEND F┆
0x35900…35a00 (53, 0, 9) Sector 350a8a00167541 ┆5 uALASH(MDP Q GROUP,Q LIST.QUEUE LINE.LOGICAL DESIGNATOR DELV CODE = DELIVERY PERFORMED STOP Fig. 4.2.1.4.17.5-3 l procedure) SEND FLASH (External procedure) PERFORM ATOMAL PRINT (Internal procedure) PERFORM ATOMAL DELIVERY ┆
0x35a00…35b00 (53, 0, 10) Sector 350bff00167541 ┆5 uA 1 CREATE USER SEND PARAMS(APP PROFILE,REF ENTRY) (MDP Q GROUP,MDP SEND PARAMS) START MDP SEND PARAMS.CHECK STATUS = TRUE MDP SEND PARAMS.PROFILE = APP PROFIL┆
0x35b00…35c00 (53, 0, 11) Sector 350cff00167541 ┆5 uAE MDP SEND PARAMS.HEADER.FLAGS = MDP QEL ATT.HEADER.FLAGS MDP SEND PARAMS.HEADER.MAINTYPE = MDP QEL ATT.HEADER.MAINTYPE Q LIST.QUEUE LINE(REF ENTRY) MDP SEND PARAMS.HEADER. DEVICE ID EQ VDU SUBTYPE = FOR DISPLAY MDP SEND PARAMS.HEADER. MD┆
0x35c00…35d00 (53, 0, 12) Sector 350dff00167541 ┆5 uAP Q GROUP = VDU REC SUBTYPE = FOR PRINT MDP Q GROUP = PRINT P APP PROFILE(BIT 1) EQ MSG COOR? MDP SEND PARAMS.HEADER. SUBTYPE = FOR COORDINATION APP PROFILE(BIT2) EQ MSG RELEASE? MDP SEND PARAMS.HEADER. SUBTYPE = FOR RELEASE ┆
0x35d00…35e00 (53, 0, 13) Sector 350ed000167541 ┆5 P uA MDP Q GROUP = VDU REL CREATE QEL INF(MDP SEND PARAMS.HEADER.INF= Q LIST.QUEUE LINE(REF.ENTRY).COPIES SHIFT LL8 + MDP SEND PARAMS.HEADER.INF) STOP Fig. 4.2.1.4.17.5-4 precedence Flash the common procedure SEND FLAS┆
0x35e00…35f00 (53, 0, 14) Sector 350fff00167541 ┆5 uA 1 MDP USER ERROR HANDLING START SWITCH ANALYZE ERROR(CC,2,QMON PROFILE CHECK, QMON BLOCKED QUEUE) PROFILE CHECK: QLIST.QUEUE LINE DEVICE ID EQ VDU ?┆
0x35f00…36000 (53, 0, 15) Sector 3500ff00167541 ┆5 uA ALT DIST = TRUE DELV CODE = ACESS PROFILE FAULT MDP QEL ATTR.PROFILE.LEAST = ATOMAL IND ? ALT DIST = TRUE ATOMAL PRINT = TRUE DELV CODE = ACESS PROFILE FAULT DELV CODE = PRINT ATOMAL ON SAD END PROFILE CHECK Q UNE BLO┆
0x36000…36100 (54, 0, 0) Sector 3601aa00167541 ┆6 * uA from QEL attributes Subtype set equal FOR PRINT Second word in QEL. Total No of copies 0 - 128 Application profile as described in the CREATE USER PARAMS rocedures is described in the following. a) DELIVERY This procedure contains the┆
0x36100…36200 (54, 0, 1) Sector 3602ff00167541 ┆6 uA 1 DELIVERY START EQUIVALENCE (MDP BUFFER(Q LIST OFFSET), Q LIST: QUEUE LIST); REF ENTRY = Q LINE NO ALT DIST = FALSE ATOMAL PRINT = FALSE DELV LOOP TEST SI┆
0x36200…36300 (54, 0, 2) Sector 3603ff00167541 ┆6 uAGN ON USER SIGN ON USER EQ TRUE? - PERFORM DELIVERY APP PROFILE(BIT 0) EQ FALSE? PREC EQ FLASH? PERFORM DELIVERY PREC EQ IMMEDIATE? DELV = SIGN OF ALT DIST = TRUE Q LIST.QUEUE LINE(REF ENTRY).DELIVERY CODE = DELV CODE RE┆
0x36300…36400 (54, 0, 3) Sector 3604ab00167541 ┆6 + uAF ENTRY EQ Q LINE NO + NO OF DELV? EXIT REF ENTRY = REF ENTRY + 1 END DELV LOOP ATOMAL PRINT EQ FALSE? PERFORM ATOMAL PRINT STOP Fig. 4.2.1.4.17.5-1 s signed on and that the user is working in USER MODE. The Boolean SIGN ON USER is u┆
0x36400…36500 (54, 0, 4) Sector 3605ff00167541 ┆6 uA 1 TEST SIGN ON USER START CASE Q LIST.QUEUE LINE(REF ENTRY).DEVICE ID OF VDU? EQUIVALENCE(MDP BUFFER(OUTPUT OFFSET), MDP PROFILE: TERMINAL PROFILE ┆
0x36500…36600 (54, 0, 5) Sector 3606ff00167541 ┆6 uA SEARCH PRIMARY KEY (TERMINAL TABLE, PROFILE KEY, SINGLE KEY, OUTPUT LENGTH, MDP READ MASK) (MDP PROFILE,CC): ERROR OK ERROR? ANALYZE ERROR(CC,0) MDP PROFILE.SIGN EQ OFF? MDP PROFILE.CURRENT CAP┆
0x36600…36700 (54, 0, 6) Sector 36079c00167541 ┆6 uA NE USER CAP? SIGN ON USER = FALSE SIGN ON USER = TRUE OTHERWISE? - SIGN ON USER = TRUE END CASE STOP Fig. 4.2.1.4.17.5-2 ed. d) CREATE USER SEND PARAMS This procedure creates the sends parameters. Checkpoint stat┆
0x36700…36800 (54, 0, 7) Sector 3508ff00167541 ┆5 uA 1 PERFORM DELIVERY START CREATE USER SEND PARAMS CREATE QUEUE REF(MDP Q GROUP,Q LIST.QUEUE LINE(REF ENTRY). LOGICAL DESIGNATOR,PREC)(QUEUE REF) SEND QEL (MDP┆
0x36800…36900 (54, 0, 8) Sector 3609ff00167541 ┆6 uAn to VDUS: FOR DISPLAY Message/comment distribution to SAD: FOR PRINT Message for coordination to VDUS: FOR COORDINATION Message for Release to VDUs: FOR RELEASE The second word in the QEL is created in the CREATE QEL IMF which is call┆
0x36900…36a00 (54, 0, 9) Sector 360a2800167541 ┆6 ( uAed in the end of this procedure. MS (internal procedure) CREATE QUEUE REF (External procedure) MDP USER ERROR HANDLING (Internal procedure) SEND FLASH (External procedure) PERFORM ATOMAL PRINT (Internal procedure) PERFORM ATOMAL DELIVERY ┆
0x36a00…36b00 (54, 0, 10) Sector 360bff00167541 ┆6 uA 1 e) MDP USER ERROR HANDLING This procedure analyses an error in connection with a SEND QEL. The Current delivery code is updated in accordance with the error. The errors can be o┆
0x36b00…36c00 (54, 0, 11) Sector 360cff00167541 ┆6 uAne of the following: - PROFILE FAULT - BLOCKED Q - PRINT ATOMAL ON SAD f) PERFORM ATOMAL PRINT This procedure counts the total number of copies which shall be printed on the Atomal printer. The actual delivery to the Atomal printer is pe┆
0x36c00…36d00 (54, 0, 12) Sector 360dff00167541 ┆6 uArformed in the PERFORM ATOMAL DELIVERY procedure. g) PERFORM ATOMAL DELIVERY This procedure send a QEL to the Atomal printer. The printer is identified by a System parameter in the distribution record. Before sending the QEL the two procedures ┆
0x36d00…36e00 (54, 0, 13) Sector 360eff00167541 ┆6 uACREATE ATOMAL SEND PARAMS and CREATE QUEUE REF are called. The Queue list is after send updated with the result of the send (OK-NOT OK) via the common procedure UPDATE DELV CODE. If the object is of precedence Flash the common procedure SEND FLAS┆
0x36e00…36f00 (54, 0, 14) Sector 360f5700167541 ┆6 W uAH is called and via this procedure a QEL is sent to the printers command Queue. CONST SINGLE KEY = 1; CONST MDP READ MASK =FFFF; VAR ;D< PROFILE :TERMINAL PROFILE; INE(CUR ENTRY).DIST SCDS(Q LIST.QUEUE LINE(CUR ENTRY). Q SCD NO) = MDP ┆
0x36f00…37000 (54, 0, 15) Sector 3600ff00167541 ┆6 uA 1 h) CREATE ATOMAL SEND PARAMS The following action on the MDP SEND PARAMS is performed in this procedure: Checkpoint status set equal TRUE Maintype and Header Flags copies┆
0x37000…37100 (55, 0, 0) Sector 3701ff00167541 ┆7 uA 1 4.2.1.4.17.5 Module Design This utility module contains ten internal procedures, each of the procedures is described in the following. a) DELIVERY This procedure contains the┆
0x37100…37200 (55, 0, 1) Sector 3702ff00167541 ┆7 uA main delivery loop. Each run through of this loop performs a delivery to a VDU or SAD. The current delivery is based on the Queue line which is reference in the current run through. The actual delivery is done in the procedure PERFORM DELIVERY. ┆
0x37200…37300 (55, 0, 2) Sector 3703ff00167541 ┆7 uA The delivery code in the Queue line is updated in accordance with the result from the procedure PERFORM DELIVERY. After end distribution the BOOLEAN ATOMAL PRINT is tested and if Atomal print is necessary the PERFORM ATOMAL PRINT procedure is ca┆
0x37300…37400 (55, 0, 3) Sector 3704ff00167541 ┆7 uAlled. b) TEST SIGN OF USER In this procedure the Terminal profile is accessed if the current delivery shall be performed to a VDU. It is checked that the user is signed on and that the user is working in USER MODE. The Boolean SIGN ON USER is u┆
0x37400…37500 (55, 0, 4) Sector 37059d00167541 ┆7 uApdated in accordance with the result. c) PERFORM DELIVERY This procedure performs the actual delivery by sending a QEL which reference the view. READ MASK) (MDP SCD REC, CC): ERROR OK ERROR? - ANALYZE ERROR(CC,0) SEARCH COUNT = ZERO ┆
0x37500…37600 (55, 0, 5) Sector 3706ff00167541 ┆7 uA 1 Before sending the QEL the two procedures CREATE USER SEND PARAMS and CREATE QUEUE REF are called after the send is performed it is checked if the object is of precedence Flash. I┆
0x37600…37700 (55, 0, 6) Sector 3707ff00167541 ┆7 uAf that is the case a Flash notification is sent to the current VDU or SAD. If the send QEL results in an error the MDP USER ERROR HANDLING is called. d) CREATE USER SEND PARAMS This procedure creates the sends parameters. Checkpoint stat┆
0x37700…37800 (55, 0, 7) Sector 3608ff00167541 ┆6 uAus is set to true. The application profile received from the current case module is inserted. The MAINTYPE and HEADER FLAGS are copied from the received QEL ATTRIBUTES. The applicable subtype is inserted as follows: Message/comment distributio┆
0x37800…37900 (55, 0, 8) Sector 3709ff00167541 ┆7 uA 1 4.2.1.4.17.3 Module components DELIVERY (Internal procedure) TEST SIGN ON USER (Internal procedure) CREATE PROFILE KEY LIST (Internal procedure) PERFORM DELIVERY (Internal ┆
0x37900…37a00 (55, 0, 9) Sector 370aff00167541 ┆7 uAprocedure) CREATE USER SEND PARAMS (internal procedure) CREATE QUEUE REF (External procedure) MDP USER ERROR HANDLING (Internal procedure) SEND FLASH (External procedure) PERFORM ATOMAL PRINT (Internal procedure) PERFORM ATOMAL DELIVERY ┆
0x37a00…37b00 (55, 0, 10) Sector 370bff00167541 ┆7 uA(Internal procedure) UPDATE DELV CODE (External procedure) CREATE QEL INF (Internal procedure) CREATE ATOMAL SEND PARAMS (Internal procedure) See figure 4.2.1.4.17.3-1 4.2.1.4.17.4 Data Description a) Data References QUEUE LIST ref.┆
0x37b00…37c00 (55, 0, 11) Sector 370cff00167541 ┆7 uA DBD section 10.1.7 TERMINAL PROFILE ref. DBD section 5.3.2 DEVICE ID TYPE ref. DBD section 4 b) External Data PREC Q LINE NO NO OF DELV APP PROFILE ALT DIST(m) ref.section 4.2.1.5 Q LIST (m) D┆
0x37c00…37d00 (55, 0, 12) Sector 370db200167541 ┆7 2 uAELV CODE (m) OUTPUT OFFSET OUTPUT LENGTH MDP Q GROUP(m) QUEUE REF(m) MDP VIEW REF 1 MDP SYS PARAM.ATOMAL PRINTER LOG DES NEW DELV CODE MDP SEND PARAMS (m) ZERO? - CUR ENTRY = 0 Q LIST.QUEUE LINE(CUR ENTRY).LOGICAL DESIGNATOR N┆
0x37d00…37e00 (55, 0, 13) Sector 370eff00167541 ┆7 uA 1 c) Local Data VAR REF ENTRY :COUNTER TYPE; VAR SIGN ON USER :BOOLEAN; VAR ATOMAL PRINT :BOOLEAN; TYPE PROFILE KEY TYPE = RECORD; INFO : INTEGER; LINK : INTEGER; ┆
0x37e00…37f00 (55, 0, 14) Sector 370fb600167541 ┆7 6 uAKEY : LOGICAL DESIGNATOR TYPE; END; VAR PROFILE KEY : PROFILE KEY TYPE; CONST SINGLE KEY = 1; CONST MDP READ MASK =FFFF; VAR ;D< PROFILE :TERMINAL PROFILE; INE(CUR ENTRY).DIST SCDS(Q LIST.QUEUE LINE(CUR ENTRY). Q SCD NO) = MDP ┆
0x37f00…38000 (55, 0, 15) Sector 3700a200167541 ┆7 " uA 1 Fig. 4.2.1.4.17.3-1 DELIVERY COMPONENTS ENTRY + 1 EXIT END COMPARE LOOP STOP Fig. 4.2.1.4.16.5-6 Q ENTRY (KEPT) R5 ┆
0x38000…38100 (56, 0, 0) Sector 3801ff00167541 ┆8 uA 1 COMPARE Q LINE SCDS () SCD LINE COUNT = ZERO; LOOP; SCD LINE COUNT = SCD LINE COUNT + 1 Q LIST QUEUE LINE (CUR ENTRY DIST SCDS (SCD LINE COURT) EQ MDP SCD REC (REF ┆
0x38100…38200 (56, 0, 1) Sector 38029400167541 ┆8 uAENTRY) SCD ? - EQUAL SCD = TRUE EXIT EQUAL SCD = FALSE; SCD LINE COUNT EQ Q LIST QUEUE LINE (CUR ENTRY) Q SCD NO ? EXIT ENDLOOP MAIN SCD MAX KEY NO OF REMAIN SCD = ZERO GET SCD TABLE OUTPUT SCD POINTER = SCD POINTER + (NO OF ┆
0x38200…38300 (56, 0, 2) Sector 3803ff00167541 ┆8 uA 1 CREATE NEW Q LINE(MAX Q ENTRY,REF ENTRY)(MAX Q ENTRY,REF ENTRY) START MAX Q ENTRY = MAX Q ENTRY + 1 Q LIST.QUEUE LINE(MAX Q ENTRY).DEVICE ID = MDP SCD REC(REF ENTRY).┆
0x38300…38400 (56, 0, 3) Sector 3804ff00167541 ┆8 uADEVICE ID Q LIST.QUEUE LINE(MAX Q ENTRY).LOGICAL DESIGNATOR= MDP SCD REC(REF ENTRY).LDLD Q LIST.QUEUE LINE(MAX Q ENTRY).Q SCD NO = 1 Q LIST.QUEUE LINE(MAX Q ENTRY).DIST SCDS(1) = MDP SCD REC(REF ENTRY).SCD Q LIST.QUEUE LINE(MAX Q ENTRY).CO┆
0x38400…38500 (56, 0, 4) Sector 38056200167541 ┆8 b uAPIES = MDP SCD REC(REF ENTRY).COPIES STOP Fig. 4.2.1.4.16.5-7 UFFER(KEY LIST OFFSET), NO OF KEY,OUTPUT LENGTH, MDP READ MASK) (MDP SCD REC, CC): ERROR OK ERROR? - ANALYZE ERROR(CC,0) SEARCH COUNT = ZERO ┆
0x38500…38600 (56, 0, 5) Sector 3806ff00167541 ┆8 uA 1 4.2.1.4.17 Delivery 4.2.1.4.17.1 Functional Specification This utility module performs the actual delivery to the terminal based on the specified Queue List. This module contai┆
0x38600…38700 (56, 0, 6) Sector 3807ff00167541 ┆8 uAns delivery to the Atomal printer too. 4.2.1.4.17.2 Interface Definition a) DELIVERY (PREC : PRECEDENCE TYPE, Q LINE NO: COUNTER TYPE, NO OF DELV:COUNTER TYPE, APP PROFILE: APPLICATION PROFILE) (ALT DIST: BOOLEAN) b) DELIV┆
0x38700…38800 (56, 0, 7) Sector 3708e000167541 ┆7 ` uAERY (R0, R1, R2, R3, R6) Register Conventions Call Registers R0 PREC (DEST) R1 Q LINE NO (DEST) R2 NO OF DELV (DEST) R3 APP PROFILE (DEST) R6 LINK (DEST) Return Registers R0 ALT DIST R2 - R7 (DEST) T = SEARCH COUNT + 1 KEY REC┆
0x38800…38900 (56, 0, 8) Sector 38097f00167541 ┆8 uA(SEARCH COUNT).KEY = SCD(SEARCH COUNT) END MOVE KEY LIST LOOP STOP Fig. 4.2.1.4.16.5-4 ivides the SCD LIST to a set of key SCD lists which each contains "MAX KEY" SCDs, except the last one which contains the remaini┆
0x38900…38a00 (56, 0, 9) Sector 380aff00167541 ┆8 uA 1 UPDATE Q LIST(NO OF OUTPUT) START EQUIVALENCE(MDP BUFFER(OUTPUT OFFSET), MDP SCD REC: MDP SCD TABLE; EQUIVALENCE (MDP BUFFER(Q LIST OFFSET), Q LIST: QUEUE LI┆
0x38a00…38b00 (56, 0, 10) Sector 380bff00167541 ┆8 uAST); REF ENTRY = 1 REFERENCE LOOP COMPARE REF REC WITH Q LIST (MAX Q ENTRY) REF ENTRY EQ NO OF OUTPUT? EXIT REF ENTRY = REF ENTRY + 1 END REFERENCE LOOP Q LIST.QUEUE LINE NUMBER = MAX Q ENTRY STOP Fig. 4.2┆
0x38b00…38c00 (56, 0, 11) Sector 380c1200167541 ┆8 uA.1.4.16.5-5 PDATE Q LIST This procedure contains the reference loop. This loop points out the actual SCD record in table C which shall be used as reference in the compare loop in COMPARE REF REC WITH Q LIST. e) COMPARE REF REC WITH Q LIST ┆
0x38c00…38d00 (56, 0, 12) Sector 380dff00167541 ┆8 uA 1 COMPARE REF REC WITH Q LIST (MAX Q ENTRY) START CUR ENTRY = 1 COMPARE LOOP MAX Q ENTRY EQ ZERO? - CUR ENTRY = 0 Q LIST.QUEUE LINE(CUR ENTRY).LOGICAL DESIGNATOR N┆
0x38d00…38e00 (56, 0, 13) Sector 380eff00167541 ┆8 uAE MDP SCD REC(REF ENTRY).LLDD? Q LIST.QUEUE LINE(CUR ENTRY).DEVICE ID NE MDP SCD REC(REF ENTRY).DEVICE ID? Q LIST.QUEUE LINE(CUR ENTRY).COPIES=Q LIST.QUEUE LINE(CUR ENTRY).COPIES + MDP SCD REC(REF ENTRY).COPIES Q LIST.QUEUE LINE(CUR ENTR┆
0x38e00…38f00 (56, 0, 14) Sector 380fff00167541 ┆8 uAY).DEVICE ID EQ OK SAD? COMPARE Q LINE SCDS EQUAL SCD EQ TRUE EXIT Q LIST.QUEUE LINE(CUR ENTRY).Q SCD NO = Q LIST.QUEUE LINE(CUR ENTRY) Q SCD NO+1 Q LIST,QUEUE LINE(CUR ENTRY).DIST SCDS(Q LIST.QUEUE LINE(CUR ENTRY). Q SCD NO) = MDP ┆
0x38f00…39000 (56, 0, 15) Sector 3800ea00167541 ┆8 j uASCD REC(REF ENTRY).SCD EXIT CUR ENTRY EQ MAX Q ENTRY? - CREATE NEW Q LINE(MAX Q ENTRY,REF ENTRY) (MAX Q ENTRY,REF ENTRY) CUR ENTRY = CUR ENTRY + 1 EXIT END COMPARE LOOP STOP Fig. 4.2.1.4.16.5-6 Q ENTRY (KEPT) R5 ┆
0x39000…39100 (57, 0, 0) Sector 3901ff00167541 ┆9 uA 1 CONV SCD LIST TO Q LIST(SCD POINTER,NO OF SCD, MAX-Q-ENTRY) (SCD POINTER,MA Q ENTRY) START NO OF REMAIN SCD = NO OF SCD LIST CONVERT LOOP NO OF REMAIN SCD ┆
0x39100…39200 (57, 0, 1) Sector 3902ff00167541 ┆9 uAEQ ZERO? EXIT LIST CONVERT NO OF REMAIN SCD GT MAX KEY? - NO OF KEY = MAX KEY NO OF KEY = NO OF REMAIN SCD NO OF REMAIN SCD = NO OF REMAIN SCD MAX KEY NO OF REMAIN SCD = ZERO GET SCD TABLE OUTPUT SCD POINTER = SCD POINTER + (NO OF ┆
0x39200…39300 (57, 0, 2) Sector 39038700167541 ┆9 uAKEY * SCD LENGTH) NO OF OUTPUT EQ ZERO? UPDATE Q LIST END LIST CONVERT LOOP STOP Fig. 4.2.1.4.16.5-2 IST (Internal procedure) GET SCD TABLE OUTPUT (Internal procedure) CREATE KEY LIST (Internal procedure) UPDATE ┆
0x39300…39400 (57, 0, 3) Sector 3904ff00167541 ┆9 uA 1 GET SCD TABLE OUTPUT(SCD POINTER, NO OF KEY)(NO OF OUTPUT) START EQUIVALENCE(MDP BUFFER(SCD POINTER), SCD: KEY SCD LIST); EQUIVALENCE(MDP BUFFER(KEY LIST OFFSET), ┆
0x39400…39500 (57, 0, 4) Sector 3905ff00167541 ┆9 uA KEY REC:MDP KEY LIST) CREATE KEY LIST(NO OF KEY) SEARCH PRIMARY KEY(SCD TABLE, MDP BUFFER(KEY LIST OFFSET), NO OF KEY,OUTPUT LENGTH, MDP READ MASK) (MDP SCD REC, CC): ERROR OK ERROR? - ANALYZE ERROR(CC,0) SEARCH COUNT = ZERO ┆
0x39500…39600 (57, 0, 5) Sector 3906ff00167541 ┆9 uA NO OF OUTPUT = ZERO OUTPUT CHECK LOOP SEARCH COUNT = SEARCH COUNT + 1 KEY REC(SEARCH COUNT).INFO EQ ZERO? NO OF OUTPUT = NO OF OUTPUT + 1 SEARCH COUNT EQ NO OF KEY? EXIT END OUTPUT CHECK LOOP STOP Fig. 4.2.1.4.16.5-┆
0x39600…39700 (57, 0, 6) Sector 39070800167541 ┆9 uA3 AD MASK = # FFFF; VAR CUR ENTRY : COUNTER TYPE; VAR REF ENTRY : COUNTER TYPE; CONST SCD LENGTH = 2; OR LIST)(MDP ERROR LIST) MDP QEL ATTR.PROFILE(BIT 7)? UPDATE MDCO ERROR LIST(UP S H I EXCL EQ EXCL IND MDCO ERROR LIST)(MDCO ER┆
0x39700…39800 (57, 0, 7) Sector 3808ff00167541 ┆8 uA 1 CREATE KEY LIST(NO OF KEY) START SEARCH COUNT = ZERO MOVE KEY LIST LOOP SEARCH COUNT EQ NO OF KEY? EXIT MOVE KEY LIST SEARCH COUNT = SEARCH COUNT + 1 KEY REC┆
0x39800…39900 (57, 0, 8) Sector 3909ff00167541 ┆9 uAn the table manipulations. a) CONV SDC LIST TO Q LIST This procedure works on table A in figure 1.4.16.5-1. It divides the SCD LIST to a set of key SCD lists which each contains "MAX KEY" SCDs, except the last one which contains the remaini┆
0x39900…39a00 (57, 0, 9) Sector 390aff00167541 ┆9 uAng number of SCDs. b) CREATE KEY LIST This procedure creates the Input key List (table B) from a specified key SCD List (table A entry). The key list contains max "MAX KEY" keys. c) GET SCD TABLE OUTPUT This procedure requests TMP ┆
0x39a00…39b00 (57, 0, 10) Sector 390bff00167541 ┆9 uAfor search in the SCD table with the key list used as input. The TMP output is shown in table C. The procedure checks the INFO parameter in each single parameter record in the key list too. By this check the number of Output records are identifi┆
0x39b00…39c00 (57, 0, 11) Sector 390cff00167541 ┆9 uAed. d) UPDATE Q LIST This procedure contains the reference loop. This loop points out the actual SCD record in table C which shall be used as reference in the compare loop in COMPARE REF REC WITH Q LIST. e) COMPARE REF REC WITH Q LIST ┆
0x39c00…39d00 (57, 0, 12) Sector 390dff00167541 ┆9 uA This procedure contains the compare loop. It compares the referenced SCD record with each Queue line in the Queue list. Compare is done on the logical designator and the device ID. If equal the SCD from the referenced SCD record is inserted in ┆
0x39d00…39e00 (57, 0, 13) Sector 390e7400167541 ┆9 t uAthe appropriate Queue line. If no equality is found with any of the Queue lines a new Queue line is created. 4.2.1.4.16.1 Functional Specification This utility module converts a list of SCDs to a Queue List. A fixed number of SCDs is used ┆
0x39e00…39f00 (57, 0, 14) Sector 390fbb00167541 ┆9 ; uA 1 f) CREATE NEW Q LINE This procedure creates a new Queueline on basis on the referenced SCD record. LIST TO Q LIST (SCD POINTER: POINTER TYPE, NO OF SCD : COUNT┆
0x39f00…3a000 (57, 0, 15) Sector 39009400167541 ┆9 uA 1 Fig. 4.2.1.4.16.5-1 IST(R6) Register Conventions Call Registers R0 NO OF SCD (DEST) R4 MAX Q ENTRY (KEPT) R5 ┆
0x3a000…3a100 (58, 0, 0) Sector 3a015e00167541 ┆: ^ uASCD POINTER (KEPT) R6 LINK (DEST) Return Registers R0 - R3, R6 - R7 (DEST) ata Description a) Data References None b) External Data MDCO ERROR LIST (m) MDP QEL ATTR.HEADER.INF MDP QEL ATTR.PROFILE Ref Section┆
0x3a100…3a200 (58, 0, 1) Sector 3a02b500167541 ┆: 5 uA 1 Fig. 4.2.1.4.16.3-1 CONV SCD LIST TO Q LIST COMPONENTS sts the following conditions and updates the MDCO ERROR LIST in accordance┆
0x3a200…3a300 (58, 0, 2) Sector 3a03ff00167541 ┆: uA 1 4.2.1.4.16.3 Module Components CONV SCD LIST TO Q LIST (Internal procedure) GET SCD TABLE OUTPUT (Internal procedure) CREATE KEY LIST (Internal procedure) UPDATE ┆
0x3a300…3a400 (58, 0, 3) Sector 3a04ff00167541 ┆: uAQ LIST (Internal procedure) COMPARE REF REC WITH Q LIST (Internal procedure) CREATE NEW Q LINE (Internal procedure) See figure 4.2.1.4.16.3-1 4.2.1.4.16.4 Data Description a) Data References SCD REC ref. DBD section 6 QUE┆
0x3a400…3a500 (58, 0, 4) Sector 3a05ff00167541 ┆: uAUE LIST ref. DBD section 10.1.7 KEY SCD LIST ref. section 4.2.1.5 b) External Data SCD POINTER (m) ref. section 4.2.1.5 NO OF SCD " MAX Q ENTRY (m) " KEY LIST OFFSET " OUTPUT OFFSET " OUTPUT LENGTH " ┆
0x3a500…3a600 (58, 0, 5) Sector 3a06ff00167541 ┆: uA Q LIST (m) " MAX KEY " KEY LIST " c) Local Data TYPE MDP SCD TABLE = ARRAY(1..MAX KEY)OF SCD REC; VAR NO OF REMAIN SCD : COUNTER TYPE; VAR NO OF KEY : COUNTER TYPE; VAR NO OF OUTPUT : COUNTER TYPE; CONST MDP ┆
0x3a600…3a700 (58, 0, 6) Sector 3a077900167541 ┆: y uAREAD MASK = # FFFF; VAR CUR ENTRY : COUNTER TYPE; VAR REF ENTRY : COUNTER TYPE; CONST SCD LENGTH = 2; OR LIST)(MDP ERROR LIST) MDP QEL ATTR.PROFILE(BIT 7)? UPDATE MDCO ERROR LIST(UP S H I EXCL EQ EXCL IND MDCO ERROR LIST)(MDCO ER┆
0x3a700…3a800 (58, 0, 7) Sector 3908ff00167541 ┆9 uA 1 4.2.1.4.16.5 Module Design This utility module contains six internal procedures each of the procedures are described in the following. In figure 4.2.1.4.16.5-1 is show┆
0x3a800…3a900 (58, 0, 8) Sector 3a091700167541 ┆: uA. 4.2.1.4.15.5-1 D LIST.FIELD LIST ENTRY(3).FIELD BYTE ADDRESS=ACTION OFFSET OFFSET * 2; MDP FIELD LIST.FIELD LIST ENTRY(3).RECORD LENGTH=ACTION INFO OFFSET LENGTH * 2; MDP FIELD LIST.FIELD LIST ENTRY(1).FIELD GROUP ID=SCD LIST F┆
0x3a900…3aa00 (58, 0, 9) Sector 3a0aff00167541 ┆: uA 1 TEST SUPV SPEC START CASE MDP PARAM.CLASS OF UNCLASSIFIED? - MDP SYS PARAM.MDCO UNCLASSIFIED EQ FALSE? UPDATE MDCO ERROR LIST(UP SPEC BY SUPV, MDCO ERRO┆
0x3aa00…3ab00 (58, 0, 10) Sector 3a0bff00167541 ┆: uAR LIST)(MDCO ERROR LIST) RESTRICTED? - MDP SYS PARAM.MDCO RESTRICTED EQ FALSE? UPDATE MDCO ERROR LIST(UP SPEC BY SUPV MDCO ERROR LIST)(MDCO ERROR LIST) CONFIDENTIAL? - MDP SYS PARAM.MDCO CONFIDENTIAL EQ FALSE? UPDATE MDCO ┆
0x3ab00…3ac00 (58, 0, 11) Sector 3a0cff00167541 ┆: uAERROR LIST(OP SPEC BY SUPV MDCO ERROR LIST)(MDCO ERROR LIST) SECRET? - MDP SYS PARAM.MDCO SECRET EQ FALSE? UPDATE MDCO ERROR LIST(UP SPEC BY SUPV MDCO ERROR LIST)(MDCO ERROR LIST) COSMIC TOP SECRET? - MDP SYS PARAM.MDCO┆
0x3ac00…3ad00 (58, 0, 12) Sector 3a0d9e00167541 ┆: uA CTS EQ FALSE? UPDATE MDCO ERROR LIST(UP SPEC BY SUPV MDCO ERROR LIST)(MDCO ERROR LIST) END CASE STOP Fig. 4.2.1.4.15.5-2 RROR LIST : INTEGER) (MDCO ERROR LIST : INTEGER, MDCO INV : BOOLEAN) b) TEST M┆
0x3ad00…3ae00 (58, 0, 13) Sector 3a0eff00167541 ┆: uA 1 4.2.1.4.16 CONV SCD LIST TO Q LIST 4.2.1.4.16.1 Functional Specification This utility module converts a list of SCDs to a Queue List. A fixed number of SCDs is used ┆
0x3ae00…3af00 (58, 0, 14) Sector 3a0fff00167541 ┆: uAas keys for access of TMP during each convertion loop run. This gives flexibility in the number of SCD which can be converted. 4.2.1.4.16.2 Interface Definition a) CONV SCD LIST TO Q LIST (SCD POINTER: POINTER TYPE, NO OF SCD : COUNT┆
0x3af00…3b000 (58, 0, 15) Sector 3a00ff00167541 ┆: uAER TYPE, MAX Q ENTRY: COUNTER TYPE) (SCD POINTER: POINTER TYPE, MAX Q ENTRY: COUNTER TYPE) b) CONV SCD LIST TO Q LIST(R6) Register Conventions Call Registers R0 NO OF SCD (DEST) R4 MAX Q ENTRY (KEPT) R5 ┆
0x3b000…3b100 (59, 0, 0) Sector 3b01ff00167541 ┆; uA 1 4.2.1.4.15.4 Data Description a) Data References None b) External Data MDCO ERROR LIST (m) MDP QEL ATTR.HEADER.INF MDP QEL ATTR.PROFILE Ref Section┆
0x3b100…3b200 (59, 0, 1) Sector 3b02ff00167541 ┆; uA 4.2.1.5 MDCO INV (m) MDP PARAM.CLASS MDP SYS PARAM c) Local Data VAR MORE THAN ONE : BOOLEAN 4.2.1.4.15.5 Module Design This utility module tests the following conditions and updates the MDCO ERROR LIST in accordance┆
0x3b200…3b300 (59, 0, 2) Sector 3b03ff00167541 ┆; uA with the result of each test. - Garbled SIC - Missing SIC - Internal Handling Inst. detected - Special Handling Inst. Crypto Security detected - Special Handling Inst. Exclusive detected - More than one Special Handling Inst. det┆
0x3b300…3b400 (59, 0, 3) Sector 3b04be00167541 ┆; > uAected - All messages of specified classification After end test of the parameters the MDCO ERROR LIST is checked an if MDCO invocation is necessary the MDCO INV is set to true. MDP FIELD LIST.MDP NO OF FIELDS = NO OF QUEUE LIST AREAS MDP FI┆
0x3b400…3b500 (59, 0, 4) Sector 3b05ff00167541 ┆; uA 1 TEST MDCO INVOCATION START MDP QEL ATTR.HEADER.INF(BIT 9)? UPDATE MDCO ERROR LIST(UP GARBLED SICS, EQ GARBLED SIC DET MDCO ERROR LIST)(MDCO ERROR LIST) MD┆
0x3b500…3b600 (59, 0, 5) Sector 3b06ff00167541 ┆; uAP QEL ATTR.HEADER.INF(BIT 10)? UPDATE MDCO ERROR LIST(UP MISSING SICS, EQ MISSING SIC DET MDCO ERROR LIST)(MDCO ERROR LIST) MDP QEL ATTR.HEADER.INF(BIT 8)? UPDATE MDCO ERROR LIST(UP INT HAND INST EQ IHI DET MDCO ERROR LIST)(MDCO ERROR┆
0x3b600…3b700 (59, 0, 6) Sector 3b07ff00167541 ┆; uA LIST) MDP QEL ATTR.PROFILE(BIT 6)? UPDATE MDCO ERROR LIST(UP S H I CRYPTO SEC EQ CRYPTO IND MDCO ERROR LIST)(MDP ERROR LIST) MDP QEL ATTR.PROFILE(BIT 7)? UPDATE MDCO ERROR LIST(UP S H I EXCL EQ EXCL IND MDCO ERROR LIST)(MDCO ER┆
0x3b700…3b800 (59, 0, 7) Sector 3a08ff00167541 ┆: uAROR LIST) TEST MORE THAN ONE SHI ( ) (MORE THAN ONE) MORE THAN ONE EQ TRUE? UPDATE MDCO ERROR LIST(UP MORE THAN ONE SHI MDCO ERROR LIST)(MDCO ERROR LIST) TEST SUPV SPEC CONTROL MDCO ERROR LIST( )(MDCO INV) STOP Fig┆
0x3b800…3b900 (59, 0, 8) Sector 3b09ff00167541 ┆; uAFIELD; MDP FIELD LIST.FIELD LIST ENTRY(3).FIELD BYTE ADDRESS=ACTION OFFSET OFFSET * 2; MDP FIELD LIST.FIELD LIST ENTRY(3).RECORD LENGTH=ACTION INFO OFFSET LENGTH * 2; MDP FIELD LIST.FIELD LIST ENTRY(1).FIELD GROUP ID=SCD LIST F┆
0x3b900…3ba00 (59, 0, 9) Sector 3b0aff00167541 ┆; uAIELD; MDP FIELD LIST.FIELD LIST ENTRY(1).FIELD BYTE ADDRESS = MDP PARAM.ACTION SCD OFFSET * 2; MDP FIELD LIST.FIELD LIST ENTRY(1).RECORD LENGTH = (MDP PARAM.NUMBER OF ACTION SCD + MDP PARAM.NUMBER OF INFO SCD) * 4; WRITE BUFFER SIZE =((MDP P┆
0x3ba00…3bb00 (59, 0, 10) Sector 3b0bf300167541 ┆; s uAARAM.NUMBER OF ACTION SCD + MDP PARAM.NUMBER OF INFO SCD) * 4) + ((ACTION INFO COUNT LENGTH + ACTION INFO OFFSET LENGTH) * 2) MDP WRITE OFFSET: MPD BUFFER(AC INFO SCD OFFSET) STOP Fig. 4.2.1.4.14.5-3 J#.:!<2.=M2┆
0x3bb00…3bc00 (59, 0, 11) Sector 3b0cff00167541 ┆; uA 1 4.2.1.4.15 Test MDCO Invocation 4.2.1.4.15.1 Functional Specification This utility module controls the message on basis of the specifications described in section 4.┆
0x3bc00…3bd00 (59, 0, 12) Sector 3b0dff00167541 ┆; uA2.1.1.16, and requests updates of the MDCO ERROR LIST on basis of the control. 4.2.1.4.15.2 Interface Definition a) TEST MDCO INVOCATION (MDCO ERROR LIST : INTEGER) (MDCO ERROR LIST : INTEGER, MDCO INV : BOOLEAN) b) TEST M┆
0x3bd00…3be00 (59, 0, 13) Sector 3b0eff00167541 ┆; uADCO INVOCATION(R0, R1, R6) Register Conventions Call Registers R0 MDCO ERROR LIST (KEPT) R6 LINK (DEST) Return Registers R1 MDCO INV R2 - R7 (DEST) 4.2.1.4.15.3 Module Components UPDATE MDCO ERROR LIST(E┆
0x3be00…3bf00 (59, 0, 14) Sector 3b0fee00167541 ┆; n uAxternal procedure) TEST MDCO INVOCATION(Internal procedure) TEST MORE THAN ONE SHI (Internal procedure) TEST SUPV SPEC (Internal procedure) CONTROL MDCO ERROR LIST (Internal procedure) See figure 4.2.1.4.15.3-1 DP WRITE BUFFER. ┆
0x3bf00…3c000 (59, 0, 15) Sector 3b00b200167541 ┆; 2 uA 1 TEST MDCO INVOCATION COMPONENTS Fig. 4.2.1.4.15.3-1 E PARAMS are setup. (See figure 4.2.1.4.1.4.5 -2 and 3. The actual WRITE is p┆
0x3c000…3c100 (60, 0, 0) WangDocumentHead {hdr=WangSectHead {next=(60,0, 1), len=0xff, h3=41167441}, f00=»1674A «, f01=»CPS/SDS/034 «, f02=»sdv «, f03=»NJ «, f04=»4.2.1.4.2 Mes. Distr «, f05=10-02-82 01:34, f06=» 9 «, f07=»08 «, f08=» 42334 «, f09=29-06-83 11:48, f10=» «, f11=»05 «, f12=» 127 «, f13=29-06-83 12:32, f14=15-07-83 10:12, f15=»0125A «, f16=» 76 «, f17=» 15 «, f18=»38 «, f19=» 716 «, f20=» 56356 «, f21=» «, f22=» p «, f99=470010000110062710110290aaca1505000000000000013703f300df}
0x3c100…3c200 (60, 0, 1) Sector 3c024c00167441 ┆< L tA < < ( ( ( ( ( ' ' ' ' ' & & & & & % % % % % % $ $ $ $ $ $ # # # # # " " " " " ! ! ! ! ! DOKUMENTOVERSIGT ┆
0x3c200…3c300 (60, 0, 2) Sector 3c03b300167441 ┆< 3 tA 1 CPS/SDS/034 NJ/831101 MESSAGE DISTRIBUTION DETAILED DESIGN SPECIFICATION ISSUE 1 CAMPS > I!e=6 !Z="(=e*$<kas#r 9x2"<! <6 M8)I:^=~ B#.!#<6 ! <6 M&&:!<~ J#.:!<2.=M2┆
0x3c300…3c400 (60, 0, 3) Sector 3c04ff00167441 ┆< tA 1 4.2.1.4.2 INC PLAIN MSG Module 4.2.1.4.2.1 Functional Specification This module performs distribution of an Incoming Message received via an external channel. The actual distr┆
0x3c400…3c500 (60, 0, 4) Sector 3c05ff00167441 ┆< tAibution is performed by use of a set of utility modules and common procedures. 4.2.1.4.2.2 Module Interface a) INC PLAIN MSG DIST b) INC PLAIN MSG DIST (R6) Register Convention 1 ┆
0x3c500…3c600 (60, 0, 5) Sector 3c06ff00167441 ┆< tA Call Register R6 LINK (Dest.) Return Register R0 - R7 (Dest.) 4.2.1.4.2.3 Module Components INC PLAIN MSG DIST (Internal Procedure) READ VIEW AND GET SYS PARAMS (External Procedure) SIC CONTROL (External Procedure) TEST HQ MAS┆
0x3c600…3c700 (60, 0, 6) Sector 3c07ff00167441 ┆< tAK(Internal Procedure) GET SDLS AND SORTSCDS (External Procedure) MDP WRITE BUFFER (External Procedure) TEST MDCO INVOCATION (External Procedure) MDCO DELIVERY (External Procedure) PERFORM DISTRIBUTION (External Procedure) ALTERNATIVE DIST (Ex┆
0x3c700…3c800 (60, 0, 7) Sector 28088700167441 ┆( tAternal Procedure) STA SAR DELIVERY (External Procedure) UPDATE MDCO ERROR LIST (External Procedure) See Figure 4.2.1.4.2.3-1 I>K!8=>R 2!8=6 #4 E*8=k L<M% :8=F 28=I!#<:"<>R<2> I E*#<& "< DM L<M% :#<F 2#<> I:g= Ro2M/2 Rl2> IC13!?=4~~ B|2> I:A=!┆
0x3c800…3c900 (60, 0, 8) Sector 3c094e00167541 ┆< N uAerformed in the procedure MDP WRITE BUFFER. See figure 4.2.1.4.1.4.5-1. q#p! =6 M] : =V V I: =~ B 3: = R 3*$<MMY *%<MMY !\<6 C 3M, !\<6 : =~ B 5: = R$3C/4!e=6 !f=6 !g=6 !h=6 Ml+M;) RE3C#4: 2i=:g=~ JV3C/4!"<6 #6 MB&! =6 !,<6 :]=2'< AMD MB&!,<6 ! ┆
0x3c900…3ca00 (60, 0, 9) Sector 3c0aff00167541 ┆< uA 1 MDP WRITE BUFFER(MDP WRITE) START CASE MDP VIEW WRITE SCD LIST WRITE? CREATE SCD LIST WRITE PARAMS QUEUE LIST WRITE? CREATE QUEUE LIST WRITE PARAMS END CA┆
0x3ca00…3cb00 (60, 0, 10) Sector 3c0bbf00167541 ┆< ? uASE WRITE VIEW (WRITE BUFFER SIZE, MDP FIELD LIST, MDP VIEW REF 1, MDP WRITE OFFSET, (CC): ERROR OK STOP Fig. 4.2.1.4.14.5-1 ┆
0x3cb00…3cc00 (60, 0, 11) Sector 3c0cff00167541 ┆< uA 1 CREATE QUEUE LIST WRITE PARAMS START EQUIVALENCE(MDP BUFFER(Q LIST OFFSET), Q LIST: QUEUE LIST); MDP FIELD LIST.MDP NO OF FIELDS = NO OF QUEUE LIST AREAS MDP FI┆
0x3cc00…3cd00 (60, 0, 12) Sector 3c0dff00167541 ┆< uAELD LIST.ELEMENTS(1).FIELD GROUP ID = QUEUE LIST FIELD; MDP FIELD LIST.ELEMENTS(1).FIELD BYTE ADDRESS = ZERO MDP FIELD LIST.ELEMENTS(1).RECORD LENGTH = COUNT LENGTH + (Q LIST. QUEUE LINE NUMBER * QUEUE LINE LENGTH) MDP WRITE OFFSET = MDP BUFF┆
0x3cd00…3ce00 (60, 0, 13) Sector 3c0ea400167541 ┆< $ uAER(Q LIST OFFSET) WRITE BUFFER SIZE = COUNT LENGTH + (Q LIST.QUEUE LINE NUMBER * QUEUE LINE LENGTH) STOP Fig. 4.2.1.4.14.5-2 + 2 SDL OFFSET = SDL OFFSET + 2 END INFO SCD LOOP LOOP COUNT = LOOP COUNT + 1 LOOP┆
0x3ce00…3cf00 (60, 0, 14) Sector 3c0fff00167541 ┆< uA 1 CREATE SCD LIST WRITE PARAMS START MDP FIELD LIST.MDP NO OF ELEMENTS = NO OF SCD LIST WRITE AREAS MDP FIELD LIST.FIELD LIST ENTRY(2).FIELD GROUP ID = ADM FIELD; MDP ┆
0x3cf00…3d000 (60, 0, 15) Sector 3b08ff00167541 ┆; uAFIELD LIST.FIELD LIST ENTRY(2).FIELD BYTE ADDRESS=ACTION COUNT OFFSET * 2, MDP FIELD LIST.FIELD LIST ENTRY(2).RECORD LENGTH=ACTION INFO COUNT LENGTH * 2, MDP FIELD LIST.FIELD LIST ENTRY(3).FIELD GROUP ID = ADMINISTRATION ┆
0x3d000…3d100 (61, 0, 0) WangDocumentHead {hdr=WangSectHead {next=(61,0, 1), len=0xff, h3=41167541}, f00=»1675A «, f01=»CPS/SDS/034 «, f02=»rt «, f03=»NJ «, f04=»fra 4.2.1.4.14.4 «, f05=10-02-82 01:46, f06=» 11 «, f07=»41 «, f08=» 60605 «, f09=29-06-83 08:25, f10=» «, f11=»01 «, f12=» 15 «, f13=29-06-83 08:42, f14=15-07-83 10:13, f15=»0125A «, f16=» 88 «, f17=» 29 «, f18=»25 «, f19=» 952 «, f20=» 75726 «, f21=» «, f22=» ` «, f99=560000000110062710110290aaca15050000000000000137033201df}
0x3d100…3d200 (61, 0, 1) Sector 3d025800167541 ┆= X uA = = < < < ; ; ; ; : : : : : 9 9 9 9 9 8 8 8 8 8 7 7 7 7 7 6 6 6 6 6 5 5 5 5 5 4 4 4 4 3 3 3 3 3 2 2 2 2 1 1 1 0 0 0 0 / / / / . . . . . - - - - , , , , , , + + + + + * * * * * * ┆
0x3d200…3d300 (61, 0, 2) Sector 3d03b400167541 ┆= 4 uA 1 CPS/SDS/034 NJ/831101 MESSAGE DISTRIBUTION DETAILED DESIGN SPECIFICATION ISSUE 1 CAMPS I!e=6 !Z="(=e*$<kas#r 9x2"<! <6 M8)I:^=~ B#.!#<6 ! <6 M&&:!<~ J#.:!<2.=M2┆
0x3d300…3d400 (61, 0, 3) Sector 3d04ff00167541 ┆= uA 1 4.2.1.4.14.4 Data Description a) Data References MDP WRITE TYPE ref. sect.4.2.1.5 QUEUE LIST ref. DBD, sect.10.1.7 b) External Data MDP PARAM NUMBER.OF ACTION SCD ┆
0x3d400…3d500 (61, 0, 4) Sector 3d05ff00167541 ┆= uA MDP PARAM.NUMBER OF INFO SCD MDP PARAM.ACTION SCD OFFSET MDP FIELD LIST MDP VIEW REF 1 AC INFO SCD OFFSET ACTION COUNT OFFSET ACTION INFO COUNT LENGTH ref. sect.4.2.1.5 ACTION OFFSET OFFSET ACTION INFO OFFSET LENGTH MDP WRITE Q┆
0x3d500…3d600 (61, 0, 5) Sector 3d06ff00167541 ┆= uA LIST QUEUE LINE LENGTH Q LIST OFFSET c) Local Data CONST NO OF QUEUE LIST AREAS = 1; CONST NO OF SCD LIST AREAS = 3; CONST COUNT LENGTH = 1; VAR WRITE BUFFER SIZE: INTEGER; VAR MDP WRITE OFFSET: INTEGER; 4.2.1.4.14.5 Module Desi┆
0x3d600…3d700 (61, 0, 6) Sector 3d07ff00167541 ┆= uAgn This utility module writes a specified part of the MDP BUFFER into the IMF. It is either the SCD list field and the associated offsets and counts in the administration field or the Queue list field. The main procedure is the MDP WRITE BUFFER. ┆
0x3d700…3d800 (61, 0, 7) Sector 3c08ff00167541 ┆< uAVia this procedure is the CREATE SCD LIST WRITE PARAMS and CREATE QUEUE LIST WRITE PARAMS called. This is done by a case statement. In these procedures the appropriate WRITE PARAMS are setup. (See figure 4.2.1.4.1.4.5 -2 and 3. The actual WRITE is p┆
0x3d800…3d900 (61, 0, 8) Sector 00000000000000 ┆ ┆
[…0xf7…]
