@MASM,S A.SD
MASM 6R3D (050415 1220:45) 2007 Aug 29 Wed 0855:42
Copyright (c) 1994-2005 Unisys Corporation.
All rights reserved.
UNISYS CONFIDENTIAL
SYS$LIB$*SYSLIB.MAXR$ FOUND FOR $INCLUDE
1. $INCLUDE 'MAXR$' .
00LCL*LLPG.PKTGEN$ FOUND FOR $INCLUDE
2. $INCLUDE 'PKTGEN$' .
3. .
4. P$KTGEN,'/DM>FGL' 'SORTOC INTERNAL ELEMENT ENTRY',,'ETELTH' ;
5- 'ELTENT',-1,*'START OF ELEMENT ENTRY' ;
6- 'ELTNAM',-2, 'ELEMENT NAME' ;
7- 'SELWRD',-1,*'SELECTION WORD' ;
8- 'SELFLX',17,*'SELECTION FIELD, SIGN-FILLED' ;
9- 'SELFLD',18, 'SELECTION FIELD' ;
10- 'ELTSEQ',18, 'ORIGINAL SEQUENCE NUMBER IN FILE' ;
11- 'EFLGWD',-1,*'FLAG BIT WORD (MUST SSL 24)' ;
12- 'EFLAGS',12, 'FLAG BITS' ;
13- 'SRTCYC',12, 'CURRENT CYCLE (SORTING POSITION)' ;
14- 'SRTNMC', 6, 'CYCLE COUNT (SORTING POSITION)' ;
15- 'SRTMXC', 6, 'CYCLE LIMIT (SORTING POSITION)' ;
16- '$WORD',-1 ;
17- *'', 18 ;
18- 'PRESIZ',18, 'PREAMBLE SIZE (RELOCATABLES)' ;
19- 'VERNAM',-2, 'VERSION NAME' ;
20- 'ECELLS',-1,*'VARIOUS CELLS' ;
21- 'FILFID',12,*'COMBINED FILE SEQ. # & CHAR.' ;
22- 'FILSEQ', 6, 'FILE SEQUENCE NUMBER (MULTI-FILE MODE)' ;
23- 'FILCHR', 6, 'FILE ID CHARACTER' ;
24- 'FSLSPC', 6, 'F SELECTOR SPEC #' ;
25- 'SUBTYP', 6, 'ELEMENT SUBTYPE (ALL BUT REL)' ;
26- 'SBSBTP', 6, 'ELEMENT SUB-SUBTYPE (ABS, OMN)' ;
27- 'ELTTYP', 6, 'ELEMENT TYPE' ;
28- 'SRTSIZ',-1, 'ELEMENT SECTOR SIZE (IN SORTING POSITION)' ;
29- 'ELTDTM',-1,*'ELEMENT DATE/TIME WORD' ;
30- 'SRTDAT',18,*' DATE (IN SORTING POSITION)' ;
31- 'SRTYR', 6, ' YEAR (IN SORTING POSITION - SHIFTED 1 BIT INTO MONTH)' ;
32- 'SRTMO', 6, 'MONTH (IN SORTING POSITION)' ;
33- 'SRTDY', 6, ' DAY (IN SORTING POSITION)' ;
34- 'ELTDAT',18,*' DATE (IN EDITING POSITION)' ;
35- 'ELTMO', 6, 'MONTH (IN EDITING POSITION)' ;
36- 'ELTDY', 6, ' DAY (IN EDITING POSITION)' ;
37- 'ELTYR', 6, ' YEAR (IN EDITING POSITION)' ;
38- '$WORD', -1 ;
39- 'ELTTIM',18, 'TIME (IN EDITING POSITION)' ;
40- 'SRTTIM',18, 'TIME (IN SORTING POSITION)' ;
41- .
/-----------------------------------------------------------------------------\
. { PKTGEN$ 1R7A }
. ***** SORTOC INTERNAL ELEMENT ENTRY *****
.
. | H1 | H2 |
. | T1 | T2 | T3 |
. | S1 | S2 | S3 | S4 | S5 | S6 |
. |-----------------------------------------------------------------------|
. |_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ELTENT_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
. 0-| ELTNAM |
. 1 | (2 wds) |
. |-----------------------------------------------------------------------|
. |_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ SELWRD_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
. |_+_ _ _ _ _ _ SELFLX_ _ _ _ _ _ _ _|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
. 2 | SELFLD | ELTSEQ |
. |-----------------------------------------------------------------------|
. |_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ EFLGWD_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
. 3 | EFLAGS | SRTCYC | SRTNMC | SRTMXC |
. |-----------------------------------------------------------------------|
. 3 | | PRESIZ |
. |-----------------------------------------------------------------------|
. 4-| VERNAM |
. 5 | (2 wds) |
. |-----------------------------------------------------------------------|
. |_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ECELLS_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
. |_ _ _ _ FILFID_ _ _ _ _|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
. 6 | FILSEQ | FILCHR | FSLSPC | SUBTYP | SBSBTP | ELTTYP |
. |-----------------------------------------------------------------------|
. 7 | SRTSIZ |
. |-----------------------------------------------------------------------|
. |_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ELTDTM_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
. |_ _ _ _ _ _ _ SRTDAT_ _ _ _ _ _ _ _|_ _ _ _ _ _ _ ELTDAT_ _ _ _ _ _ _ _|
. 8 | SRTYR | SRTMO | SRTDY | ELTMO | ELTDY | ELTYR |
. |-----------------------------------------------------------------------|
. 8 | ELTTIM | SRTTIM |
. |-----------------------------------------------------------------------|
.
ETELTH EQU 9 . Packet length for: SORTOC INTERNAL ELEMENT ENTRY
.
. ***** SORTOC INTERNAL ELEMENT ENTRY -- EQUF Table *****
. -----------------------------------------------------------------------------
ELTENT | 0 | START OF ELEMENT ENTRY
ELTNAM | 0 | ELEMENT NAME
SELWRD | 2 | SELECTION WORD
SELFLX | 2,,XH1 | SELECTION FIELD, SIGN-FILLED
SELFLD | 2,,H1 | SELECTION FIELD
ELTSEQ | 2,,H2 | ORIGINAL SEQUENCE NUMBER IN FILE
EFLGWD | 3 | FLAG BIT WORD (MUST SSL 24)
EFLAGS | 3,,T1 | FLAG BITS
SRTCYC | 3,,T2 | CURRENT CYCLE (SORTING POSITION)
SRTNMC | 3,,S5 | CYCLE COUNT (SORTING POSITION)
SRTMXC | 3,,S6 | CYCLE LIMIT (SORTING POSITION)
PRESIZ | 3,,H2 | PREAMBLE SIZE (RELOCATABLES)
VERNAM | 4 | VERSION NAME
ECELLS | 6 | VARIOUS CELLS
FILFID | 6,,T1 | COMBINED FILE SEQ. # & CHAR.
FILSEQ | 6,,S1 | FILE SEQUENCE NUMBER (MULTI-FILE MODE)
FILCHR | 6,,S2 | FILE ID CHARACTER
FSLSPC | 6,,S3 | F SELECTOR SPEC #
SUBTYP | 6,,S4 | ELEMENT SUBTYPE (ALL BUT REL)
SBSBTP | 6,,S5 | ELEMENT SUB-SUBTYPE (ABS, OMN)
ELTTYP | 6,,S6 | ELEMENT TYPE
SRTSIZ | 7 | ELEMENT SECTOR SIZE (IN SORTING POSITION)
ELTDTM | 8 | ELEMENT DATE/TIME WORD
SRTDAT | 8,,H1 | DATE (IN SORTING POSITION)
SRTYR | 8,,S1 | YEAR (IN SORTING POSITION - SHIFTED 1 BIT INTO MONTH)
SRTMO | 8,,S2 | MONTH (IN SORTING POSITION)
SRTDY | 8,,S3 | DAY (IN SORTING POSITION)
ELTDAT | 8,,H2 | DATE (IN EDITING POSITION)
ELTMO | 8,,S4 | MONTH (IN EDITING POSITION)
ELTDY | 8,,S5 | DAY (IN EDITING POSITION)
ELTYR | 8,,S6 | YEAR (IN EDITING POSITION)
ELTTIM | 8,,H1 | TIME (IN EDITING POSITION)
SRTTIM | 8,,H2 | TIME (IN SORTING POSITION)
\-----------------------------------------------------------------------------/
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*///////////////////////////////////////
0 000000 10 16 00 00 0 000011 42. LA,U A0,ETELTH .
U 000001 10 00 01 11 0 000000 43. LA A1,ELTSIZ,X9 .
000002 10 12 02 11 0 000006 44. LA A2,SUBTYP,X9 .
45. .
46. $END .
LOCATION COUNTERS: $(0) 000003 $(1) 000000
EXTERNAL REFERENCES: ELTSIZ
ASSEMBLY CONTAINS WARNINGS: - FLAGS: U
END MASM - LINES: 20408 TIME: 3.267 STORAGE: 29118/15655 WARNINGS: U(1)
(←Back)