top - download
⟦45147c27f⟧ Wang Wps File
Length: 23619 (0x5c43)
Types: Wang Wps File
Notes: CPS/SDS/031
Names: »2134A «
Derivation
└─⟦11f497f33⟧ Bits:30005812 8" Wang WCS floppy, CR 0119A
└─ ⟦this⟧ »2134A «
WangText
…00……00……00……00……00…K…02……00……00…K
K…05…K…07…J…0d…J
I…09…I…0b…I…0d……86…1 …02… …02… …02…
…02…CPS/SDS/031
…02…RIM/820505…02……02…
STATISTICS
DETAILED DESIGN SPECIFICATION…02……02…CAMPS
PERFORM ̲INIT ̲MON ̲STP (START ̲UP: START ̲UP ̲TYPE)
(CC)
CASE START ̲UP OF
DEAD1: INIT ̲MON ̲DEAD1
DEAD2: INIT ̲MON ̲DEAD2
COLD: INIT ̲MON ̲COLD
WARM1: INIT ̲MON ̲WARM1
WARM2: INIT ̲MON ̲WARM2
END CASE
REQUEST TIMEOUT ( ) ( )
RETURN
Figure 4.2.1.4.1.5-19
INIT ̲MON ̲DEAD1 ( ) ( )
INIT ̲DISK ̲SDA (SDA ̲START ̲ADDR)
( )
PRESET ̲CHN ̲STATUS ( ) ( )
INIT ̲STP ̲FILE ( ) ( )
PRESET ̲SDA ( ) ( )
RETURN
Figure 4.2.1.4.1.5-20
INIT ̲DISK ̲SDA (SDA ̲START ̲ADDR: POINTER ̲TYPE)
DATA ̲SIZE = 0
LOAD ̲SDA ̲HEAD (SDA ̲START ̲ADDR) ( )
INIT ̲GROUP ̲1 ̲FIELD ̲DESCR ̲PARAMS (SDA ̲START ̲ADDR)
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
INIT ̲GROUP ̲2 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR, POINTER)
(POINTER, SUBGROUP
̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
SDA.HEADER.GROUP ̲DESCR ̲ADDR (2) = POINTER + SIZE ̲DESCR
INIT ̲GROUP ̲3 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR, POINTER)
(POINTER, SUBGROUP
̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
SDA.HEADER.GROUP ̲DESCR ̲ADDR (3) = POINTER + SIZE ̲DESCR
INIT ̲GROUP ̲4 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR, POINTER)
(POINTER, SUBGROUP
̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
CONTINUE NEXT PAGE
Figure 4.2.1.4.1.5-21
PREVIOUS PAGE
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
SDA.HEADER.GROUP ̲DESCR ̲ADDR (4) = POINTER + SIZE ̲DESCR
INIT ̲GROUP ̲5 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR, POINTER)
(POINTER, SUBGROUP
̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
SDA.HEADER.GROUP ̲DESCR ̲ADDR (5) = POINTER + SIZE ̲DESCR
INIT ̲GROUP ̲6 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR, POINTER)
(POINTER, SUBGROUP
̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
SDA.HEADER.GROUP ̲DESCR ̲ADDR (6) = POINTER + SIZE ̲DESCR
INIT ̲GROUP ̲7 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR, POINTER)
(POINTER, SUBGROUP
̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
SDA.HEADER.GROUP ̲DESCR ̲ADDR (7) = POINTER + SIZE ̲DESCR
NEXT PAGE
Figure 4.2.1.4.1.5-22
PREVIOUS PAGE
INIT ̲GROUP ̲8 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR, POINTER)
(POINTER, SUBGROUP
̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
SDA.HEADER.GROUP ̲DESCR ̲ADDR (8) = POINTER + SIZE ̲DESCR
INIT ̲GROUP ̲9 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR, POINTER)
(POINTER, SUBGROUP
̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
SDA.HEADER.GROUP ̲DESCR ̲ADDR (9) = POINTER + SIZE ̲DESCR
INIT ̲GROUP ̲10 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR, POINTER)
(POINTER, SUBGROUP
̲NO,
FIELD ̲NO, RECORD
̲NO,
FIELD ̲DESCR)
LOAD ̲FIELD ̲DESCR (POINTER, SUBGROUP ̲NO,
FIELD ̲NO, RECORD ̲NO,
FIELD ̲DESCR)
(SIZE ̲DESCR, GROUP ̲SIZE)
DATA ̲SIZE = DATA ̲SIZE + GROUP ̲SIZE
SDA.HEADER.GROUP ̲DESCR ̲ADDR (10) = POINTER + SIZE ̲DESCR
DATA ̲POINTER = POINTER + SIZE ̲DESCR
SDA ̲START ̲ADDR.HEADER.DATA ̲AREA ̲SIZE = DATA ̲SIZE
RESET ̲SDA ̲DATA (DATA ̲POINTER, DATA ̲SIZE)
COPY ̲TO ̲DISK ( ) ( )
RETURN
Figure 4.2.1.4.1.5-23
LOAD ̲SDA ̲HEAD (SDA ̲START ̲ADDR: POINTER ̲TYPE) ( )
SDA.HEADER.NO ̲OF ̲GROUPS = MAX ̲STP ̲GROUPS
SDA.HEADER.DATA ̲AREA ̲SIZE = 0
SDA.HEADER.DESCRIPTOR ̲AREA ̲SIZE = 0
SDA.HEADER.SHARE ̲POINTER = SDA ̲START ̲ADDR
SDA.HEADER.GROUP ̲DESCR ̲ADDR (1) = SDA ̲START ̲ADDR +
SDA ̲HEADER ̲OFFSET
RETURN
Figure 4.2.1.4.1.5-24
RESET ̲SDA ̲DATA (DATA ̲POINTER: POINTER ̲TYPE,
DATA ̲SIZE: INTEGER)
( )
BYTE ̲COUNT = 1
LOOP
BYTE ̲COUNT EQ DATA ̲SIZE + 1? EXIT
DATA ̲POINTER (BYTE ̲COUNT) = 0
BYTE ̲COUNT = BYTE ̲COUNT + 1
END LOOP
RETURN
Figure 4.2.1.4.1.5-25
INIT ̲GROUP ̲1 ̲FIELD ̲DESCR ̲PARAMS ( )
(POINTER: POINTER ̲TYPE,
SUBGROUP ̲NO, FIELD ̲NO,
RECORD ̲NO: INTEGER,
FIELD ̲DESCR: INIT ̲FIELD ̲DESCR ̲ARRAY)
POINTER = SDA ̲START ̲ADDR + SDA ̲HEAD ̲OFFSET
SUBGROUP ̲NO = GROUP ̲1 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲1 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = MAX ̲EXCS
INIT ̲FIELD ̲DESCR ̲GROUP ̲1
(FIELD ̲DESCR)
(FIELD ̲DESCR)
Figure 4.2.1.4.1.5-26
INIT ̲FIELD ̲DESCR ̲GROUP ̲1
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
FIELD ̲DESCR (1).BYTES ̲IN ̲SUBFIELD = GROUP ̲1 ̲FIELD
̲1 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (1).NO ̲OF ̲SUBFIELDS = GROUP ̲1 ̲FIELD
̲1 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (1).FIELD ̲FUNC = GROUP ̲1 ̲FIELD ̲1 ̲FIELD
̲FUNC
FIELD ̲DESCR (1).INIT ̲FUNC = GROUP ̲1 ̲FIELD ̲1 ̲INIT
̲FUNC
FIELD ̲DESCR (1).COMPL ̲FUNC = GROUP ̲1 ̲FIELD ̲1 ̲COMPL
̲FUNC
FIELD ̲DESCR (2).BYTES ̲IN ̲SUBFIELD = GROUP ̲1 ̲FIELD
̲2 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (2).NO ̲OF ̲SUBFIELDS = GROUP ̲1 ̲FIELD
̲2 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (2).FIELD ̲FUNC = GROUP ̲1 ̲FIELD ̲2 ̲FIELD
̲FUNC
FIELD ̲DESCR (2).INIT ̲FUNC = GROUP ̲1 ̲FIELD ̲2 ̲INIT
̲FUNC
FIELD ̲DESCR (2).COMPL ̲FUNC = GROUP ̲1 ̲FIELD ̲2 ̲COMPL
̲FUNC
FIELD ̲DESCR (3).BYTES ̲IN ̲SUBFIELD = GROUP ̲1 ̲FIELD
̲3 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (3).NO ̲OF ̲SUBFIELDS = GROUP ̲1 ̲FIELD
̲3 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (3).FIELD ̲FUNC = GROUP ̲1 ̲FIELD ̲3 ̲INIT
̲FUNC
FIELD ̲DESCR (3).INIT ̲FUNC = GROUP ̲1 ̲FIELD ̲3 ̲INIT
̲FUNC
FIELD ̲DESCR (3).COMPL ̲FUNC = GROUP ̲1 ̲FIELD ̲3 ̲COMPL
̲FUNC
FIELD ̲DESCR (4).BYTES ̲IN ̲SUBFIELD = GROUP ̲1 ̲FIELD
̲4 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (4).NO ̲OF ̲SUBFIELDS = GROUP ̲1 ̲FIELD
̲4 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (4).FIELD ̲FUNC = GROUP ̲1 ̲FIELD ̲4 ̲FIELD
̲FUNC
FIELD ̲DESCR (4).INIT ̲FUNC = GROUP ̲1 ̲FIELD ̲4 ̲INIT
̲FUNC
FIELD ̲DESCR (4).COMPL ̲FUNC = GROUP ̲1 ̲FIELD ̲4 ̲COMPL
̲FUNC
CONTINUE ̲NEXT ̲PAGE
Figure 4.2.1.4.1.5-27
PREVIOUS PAGE
FIELD ̲DESCR (5).BYTES ̲IN ̲SUBFIELD = GROUP ̲1 ̲FIELD
̲5 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (5).NO ̲OF ̲SUBFIELDS = GROUP ̲1 ̲FIELD
̲5 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (5).FIELD ̲FUNC = GROUP ̲1 ̲FIELD ̲5 ̲FIELD
̲FUNC
FIELD ̲DESCR (5).INIT ̲FUNC = GROUP ̲1 ̲FIELD ̲5 ̲INIT
̲FUNC
FIELD ̲DESCR (5).COMPL ̲FUNC = GROUP ̲1 ̲FIELD ̲5 ̲COMPL
̲FUNC
FIELD ̲DESCR (6).BYTES ̲IN ̲SUBFIELD = GROUP ̲6 ̲FIELD
̲2 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (6).NO ̲OF ̲SUBFIELDS = GROUP ̲6 ̲FIELD
̲2 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (6).FIELD ̲FUNC = GROUP ̲6 ̲FIELD ̲2 ̲FIELD
̲FUNC
FIELD ̲DESCR (6).INIT ̲FUNC = GROUP ̲6 ̲FIELD ̲2 ̲INIT
̲FUNC
FIELD ̲DESCR (6).COMPL ̲FUNC = GROUP ̲6 ̲FIELD ̲2 ̲COMPL
̲FUNC
RETURN
Figure 4.2.1.4.1.5-28
LOAD ̲FIELD ̲DESCR(POINTER: POINTER ̲TYPE,
SUBGROUP ̲NO, FIELD ̲NO,
RECORD ̲NO: INTEGER,
FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
(SIZE ̲DESCR: INTEGER,
GROUP ̲SIZE: INTEGER)
POINTER.NO ̲OF ̲SUBGROUPS = SUBGROUP ̲NO
POINTER.NO ̲OF ̲FIELDS = FIELD ̲NO
POINTER.RECORD ̲LENGTH = 0
POINTER.NO ̲OF ̲RECORDS = RECORD ̲NO
FIELD ̲COUNT = 0
FIELD ̲POINT = POINTER.FIELD ̲DESCR ̲ARRAY
FIELD ̲LOOP
FIELD ̲COUNT EQ FIELD ̲NO? EXIT
FIELD ̲COUNT = FIELD ̲COUNT + 1
FIELD ̲POINT(FIELD ̲COUNT)BYTES ̲IN ̲SUBFIELD
=
FIELD ̲DESCR(FIELD ̲COUNT).BYTES ̲IN
̲SUBFIELD
FIELD ̲POINT(FIELD ̲COUNT).NO ̲OF ̲SUBFIELDS =
FIELD ̲DESCR(FIELD ̲COUNT).NO ̲OF ̲SUBFIELDS
FIELD ̲POINT(FIELD ̲COUNT).FIELD ̲FUNC =
FIELD ̲DESCR(FIELD ̲COUNT).FIELD ̲FUNC
FIELD ̲POINT(FIELD ̲COUNT).INIT ̲FUNC =
FIELD ̲DESCR(FIELD ̲COUNT).INIT ̲FUNC
FIELD ̲POINT(FIELD ̲COUNT).COMPL ̲FUNC =
FIELD ̲DESCR(FIELD ̲COUNT).COMPL ̲FUNC
POINTER.RECORD ̲LENGTH =
POINTER.RECORD ̲LENGTH +
FIELD ̲DESCR(FIELD ̲COUNT).BYTES ̲IN
̲SUBFIELD*
FIELD ̲DESCR(FIELD ̲COUNT).NO ̲OF ̲SUBFIELDS
END FIELD LOOP
POINTER.SUBGROUP ̲SIZE = POINTER.RECORD ̲LENGTH *
RECORD ̲NO
GROUP ̲SIZE = POINTER.SUBGROUP ̲SIZE * POINTER.NO
̲OF ̲SUBGROUPS
SIZE ̲DESCR = SIZE ̲DESCR ̲ARRAY ̲HEAD + FIELD ̲COUNT
* SIZE ̲FIELD ̲DESCR
RETURN
Figure 4.2.1.4.1.5-29
INIT ̲GROUP ̲2 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR: INTEGER,
POINTER:
POINTER
̲TYPE)
(POINTER:
POINTER ̲TYPE,
SUBGROUP
̲NO, FIELD
̲NO,
RECORD
̲NO: INTEGER,
FIELD
̲DESCR:
INIT ̲FIELD
̲DESCR
̲ARRAY)
POINTER = POINTER + SIZE ̲DESCR
SUBGROUP ̲NO = GROUP ̲2 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲2 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = MAX ̲EXCS
INIT ̲FIELD ̲DESCR ̲GROUP ̲2
(FIELD ̲DESCR)
(FIELD ̲DESCR)
RETURN
Figure 4.2.1.4.1.5-30
INIT ̲FIELD ̲DESCR ̲GROUP ̲2
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
FIELD ̲DESCR (1).BYTES ̲IN ̲SUBFIELD = GROUP ̲2 ̲FIELD
̲1 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (1).NO ̲OF ̲SUBFIELDS = GROUP ̲2 ̲FIELD
̲1 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (1).FIELD ̲FUNC = GROUP ̲2 ̲FIELD ̲1 ̲FIELD
̲FUNC
FIELD ̲DESCR (1).INIT ̲FUNC = GROUP ̲2 ̲FIELD ̲1 ̲INIT
̲FUNC
FIELD ̲DESCR (1).COMPL ̲FUNC = GROUP ̲2 ̲FIELD ̲1 ̲COMPL
̲FUNC
FIELD ̲DESCR (2).BYTES ̲IN ̲SUBFIELD = GROUP ̲2 ̲FIELD
̲2 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (2).NO ̲OF ̲SUBFIELDS = GROUP ̲2 ̲FIELD
̲2 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (2).FIELD ̲FUNC = GROUP ̲2 ̲FIELD ̲2 ̲FIELD
̲FUNC
FIELD ̲DESCR (2).INIT ̲FUNC = GROUP ̲2 ̲FIELD ̲2 ̲INIT
̲FUNC
FIELD ̲DESCR (2).COMPL ̲FUNC = GROUP ̲2 ̲FIELD ̲2 ̲COMPL
̲FUNC
FIELD ̲DESCR (3).BYTES ̲IN ̲SUBFIELD = GROUP ̲2 ̲FIELD
̲3 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (3).NO ̲OF ̲SUBFIELDS = GROUP ̲2 ̲FIELD
̲3 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (3).FIELD ̲FUNC = GROUP ̲2 ̲FIELD ̲3 ̲INIT
̲FUNC
FIELD ̲DESCR (3).INIT ̲FUNC = GROUP ̲2 ̲FIELD ̲3 ̲INIT
̲FUNC
FIELD ̲DESCR (3).COMPL ̲FUNC = GROUP ̲2 ̲FIELD ̲3 ̲COMPL
̲FUNC
FIELD ̲DESCR (4).BYTES ̲IN ̲SUBFIELD = GROUP ̲2 ̲FIELD
̲4 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (4).NO ̲OF ̲SUBFIELDS = GROUP ̲2 ̲FIELD
̲4 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (4).FIELD ̲FUNC = GROUP ̲2 ̲FIELD ̲4 ̲FIELD
̲FUNC
FIELD ̲DESCR (4).INIT ̲FUNC = GROUP ̲2 ̲FIELD ̲4 ̲INIT
̲FUNC
FIELD ̲DESCR (4).COMPL ̲FUNC = GROUP ̲2 ̲FIELD ̲4 ̲COMPL
̲FUNC
CONTINUE ̲NEXT ̲PAGE
Figure 4.2.1.4.1.5-31
PREVIOUS PAGE
FIELD ̲DESCR (5).BYTES ̲IN ̲SUBFIELD = GROUP ̲2 ̲FIELD
̲5 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (5).NO ̲OF ̲SUBFIELDS = GROUP ̲2 ̲FIELD
̲5 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (5).FIELD ̲FUNC = GROUP ̲2 ̲FIELD ̲5 ̲FIELD
̲FUNC
FIELD ̲DESCR (5).INIT ̲FUNC = GROUP ̲2 ̲FIELD ̲5 ̲INIT
̲FUNC
FIELD ̲DESCR (5).COMPL ̲FUNC = GROUP ̲2 ̲FIELD ̲5 ̲COMPL
̲FUNC
RETURN
Figure 4.2.1.4.1.5-32
INIT ̲GROUP ̲3 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR: INTEGER,
POINTER:
POINTER
̲TYPE)
(POINTER:
POINTER ̲TYPE,
SUBGROUP
̲NO, FIELD
̲NO,
RECORD
̲NO: INTEGER,
FIELD
̲DESCR:
INIT ̲FIELD
̲DESCR
̲ARRAY)
POINTER = POINTER + SIZE ̲DESCR
SUBGROUP ̲NO = GROUP ̲3 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲3 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = MAX ̲EXCS
INIT ̲FIELD ̲DESCR ̲GROUP ̲3
(FIELD ̲DESCR)
(FIELD ̲DESCR)
RETURN
Figure 4.2.1.4.1.5-33
INIT ̲FIELD ̲DESCR ̲GROUP ̲3
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
FIELD ̲DESCR (1).BYTES ̲IN ̲SUBFIELD = GROUP ̲3 ̲FIELD
̲1 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (1).NO ̲OF ̲SUBFIELDS = GROUP ̲3 ̲FIELD
̲1 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (1).FIELD ̲FUNC = GROUP ̲3 ̲FIELD ̲1 ̲FIELD
̲FUNC
FIELD ̲DESCR (1).INIT ̲FUNC = GROUP ̲3 ̲FIELD ̲1 ̲INIT
̲FUNC
FIELD ̲DESCR (1).COMPL ̲FUNC = GROUP ̲3 ̲FIELD ̲1 ̲COMPL
̲FUNC
Figure 4.2.1.4.1.5-34
INIT ̲GROUP ̲4 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR: INTEGER,
POINTER:
POINTER
̲TYPE)
(POINTER:
POINTER ̲TYPE,
SUBGROUP
̲NO, FIELD
̲NO,
RECORD
̲NO: INTEGER,
FIELD
̲DESCR:
INIT ̲FIELD
̲DESCR
̲ARRAY)
POINTER = POINTER + SIZE ̲DESCR
SUBGROUP ̲NO = GROUP ̲4 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲4 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = MAX ̲EXCS
INIT ̲FIELD ̲DESCR ̲GROUP ̲4
(FIELD ̲DESCR)
(FIELD ̲DESCR)
RETURN
Figure 4.2.1.4.1.5-35
INIT ̲FIELD ̲DESCR ̲GROUP ̲4
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
FIELD ̲DESCR (1).BYTES ̲IN ̲SUBFIELD = GROUP ̲4 ̲FIELD
̲1 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (1).NO ̲OF ̲SUBFIELDS = GROUP ̲4 ̲FIELD
̲1 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (1).FIELD ̲FUNC = GROUP ̲4 ̲FIELD ̲1 ̲FIELD
̲FUNC
FIELD ̲DESCR (1).INIT ̲FUNC = GROUP ̲4 ̲FIELD ̲1 ̲INIT
̲FUNC
FIELD ̲DESCR (1).COMPL ̲FUNC = GROUP ̲4 ̲FIELD ̲1 ̲COMPL
̲FUNC
Figure 4.2.1.4.1.5-36
INIT ̲GROUP ̲5 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR: INTEGER,
POINTER:
POINTER
̲TYPE)
(POINTER:
POINTER ̲TYPE,
SUBGROUP
̲NO, FIELD
̲NO,
RECORD
̲NO: INTEGER,
FIELD
̲DESCR:
INIT ̲FIELD
̲DESCR
̲ARRAY)
POINTER = POINTER + SIZE ̲DESCR
SUBGROUP ̲NO = GROUP ̲5 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲5 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = MAX ̲SADS
INIT ̲FIELD ̲DESCR ̲GROUP ̲5
(FIELD ̲DESCR)
(FIELD ̲DESCR)
RETURN
Figure 4.2.1.4.1.5-37
INIT ̲FIELD ̲DESCR ̲GROUP ̲5
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
FIELD ̲DESCR (1).BYTES ̲IN ̲SUBFIELD = GROUP ̲5 ̲FIELD
̲1 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (1).NO ̲OF ̲SUBFIELDS = GROUP ̲5 ̲FIELD
̲1 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (1).FIELD ̲FUNC = GROUP ̲5 ̲FIELD ̲1 ̲FIELD
̲FUNC
FIELD ̲DESCR (1).INIT ̲FUNC = GROUP ̲5 ̲FIELD ̲1 ̲INIT
̲FUNC
FIELD ̲DESCR (1).COMPL ̲FUNC = GROUP ̲5 ̲FIELD ̲1 ̲COMPL
̲FUNC
FIELD ̲DESCR (2).BYTES ̲IN ̲SUBFIELD = GROUP ̲5 ̲FIELD
̲2 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (2).NO ̲OF ̲SUBFIELDS = GROUP ̲5 ̲FIELD
̲2 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (2).FIELD ̲FUNC = GROUP ̲5 ̲FIELD ̲2 ̲FIELD
̲FUNC
FIELD ̲DESCR (2).INIT ̲FUNC = GROUP ̲5 ̲FIELD ̲2 ̲INIT
̲FUNC
FIELD ̲DESCR (2).COMPL ̲FUNC = GROUP ̲5 ̲FIELD ̲2 ̲COMPL
̲FUNC
FIELD ̲DESCR (3).BYTES ̲IN ̲SUBFIELD = GROUP ̲5 ̲FIELD
̲3 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (3).NO ̲OF ̲SUBFIELDS = GROUP ̲5 ̲FIELD
̲3 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (3).FIELD ̲FUNC = GROUP ̲5 ̲FIELD ̲3 ̲INIT
̲FUNC
FIELD ̲DESCR (3).INIT ̲FUNC = GROUP ̲5 ̲FIELD ̲3 ̲INIT
̲FUNC
FIELD ̲DESCR (3).COMPL ̲FUNC = GROUP ̲5 ̲FIELD ̲3 ̲COMPL
̲FUNC
FIELD ̲DESCR (4).BYTES ̲IN ̲SUBFIELD = GROUP ̲5 ̲FIELD
̲4 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (4).NO ̲OF ̲SUBFIELDS = GROUP ̲5 ̲FIELD
̲4 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (4).FIELD ̲FUNC = GROUP ̲5 ̲FIELD ̲4 ̲FIELD
̲FUNC
FIELD ̲DESCR (4).INIT ̲FUNC = GROUP ̲5 ̲FIELD ̲4 ̲INIT
̲FUNC
FIELD ̲DESCR (4).COMPL ̲FUNC = GROUP ̲5 ̲FIELD ̲4 ̲COMPL
̲FUNC
CONTINUE ̲NEXT ̲PAGE
Figure 4.2.1.4.1.5-38
PREVIOUS PAGE
FIELD ̲DESCR (5).BYTES ̲IN ̲SUBFIELD = GROUP ̲5 ̲FIELD
̲5 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (5).NO ̲OF ̲SUBFIELDS = GROUP ̲5 ̲FIELD
̲5 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (5).FIELD ̲FUNC = GROUP ̲5 ̲FIELD ̲5 ̲FIELD
̲FUNC
FIELD ̲DESCR (5).INIT ̲FUNC = GROUP ̲5 ̲FIELD ̲5 ̲INIT
̲FUNC
FIELD ̲DESCR (5).COMPL ̲FUNC = GROUP ̲5 ̲FIELD ̲5 ̲COMPL
̲FUNC
FIELD ̲DESCR (6).BYTES ̲IN ̲SUBFIELD = GROUP ̲5 ̲FIELD
̲6 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (6).NO ̲OF ̲SUBFIELDS = GROUP ̲5 ̲FIELD
̲6 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (6).FIELD ̲FUNC = GROUP ̲5 ̲FIELD ̲6 ̲FIELD
̲FUNC
FIELD ̲DESCR (6).INIT ̲FUNC = GROUP ̲5 ̲FIELD ̲6 ̲INIT
̲FUNC
FIELD ̲DESCR (6).COMPL ̲FUNC = GROUP ̲5 ̲FIELD ̲6 ̲COMPL
̲FUNC
FIELD ̲DESCR (7).BYTES ̲IN ̲SUBFIELD = GROUP ̲5 ̲FIELD
̲7 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (7).NO ̲OF ̲SUBFIELDS = GROUP ̲5 ̲FIELD
̲7 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (7).FIELD ̲FUNC = GROUP ̲5 ̲FIELD ̲7 ̲INIT
̲FUNC
FIELD ̲DESCR (7).INIT ̲FUNC = GROUP ̲5 ̲FIELD ̲7 ̲INIT
̲FUNC
FIELD ̲DESCR (7).COMPL ̲FUNC = GROUP ̲5 ̲FIELD ̲7 ̲COMPL
̲FUNC
FIELD ̲DESCR (8).BYTES ̲IN ̲SUBFIELD = GROUP ̲5 ̲FIELD
̲8 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (8).NO ̲OF ̲SUBFIELDS = GROUP ̲5 ̲FIELD
̲8 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (8).FIELD ̲FUNC = GROUP ̲5 ̲FIELD ̲8 ̲FIELD
̲FUNC
FIELD ̲DESCR (8).INIT ̲FUNC = GROUP ̲5 ̲FIELD ̲8 ̲INIT
̲FUNC
FIELD ̲DESCR (8).COMPL ̲FUNC = GROUP ̲5 ̲FIELD ̲8 ̲COMPL
̲FUNC
FIELD ̲DESCR (9).BYTES ̲IN ̲SUBFIELD = GROUP ̲5 ̲FIELD
̲9 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (9).NO ̲OF ̲SUBFIELDS = GROUP ̲5 ̲FIELD
̲9 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (9).FIELD ̲FUNC = GROUP ̲5 ̲FIELD ̲9 ̲FIELD
̲FUNC
FIELD ̲DESCR (9).INIT ̲FUNC = GROUP ̲5 ̲FIELD ̲9 ̲INIT
̲FUNC
FIELD ̲DESCR (9).COMPL ̲FUNC = GROUP ̲5 ̲FIELD ̲9 ̲COMPL
̲FUNC
RETURN
Figure 4.2.1.4.1.5-39
INIT ̲GROUP ̲6 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR: INTEGER,
POINTER:
POINTER
̲TYPE)
(POINTER:
POINTER ̲TYPE,
SUBGROUP
̲NO, FIELD
̲NO,
RECORD
̲NO: INTEGER,
FIELD
̲DESCR:
INIT ̲FIELD
̲DESCR
̲ARRAY)
POINTER = POINTER + SIZE ̲DESCR
SUBGROUP ̲NO = GROUP ̲5 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲5 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = GROUP ̲6 ̲8 ̲NO ̲OF ̲RECORDS
INIT ̲FIELD ̲DESCR ̲GROUP ̲5
(FIELD ̲DESCR)
(FIELD ̲DESCR)
RETURN
Figure 4.2.1.4.1.5-40
INIT ̲GROUP ̲7 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR: INTEGER,
POINTER:
POINTER
̲TYPE)
(POINTER:
POINTER ̲TYPE,
SUBGROUP
̲NO, FIELD
̲NO,
RECORD
̲NO: INTEGER,
FIELD
̲DESCR:
INIT ̲FIELD
̲DESCR
̲ARRAY)
POINTER = POINTER + SIZE ̲DESCR
SUBGROUP ̲NO = GROUP ̲5 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲5 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = MAX ̲SADS
INIT ̲FIELD ̲DESCR ̲GROUP ̲5
(FIELD ̲DESCR)
(FIELD ̲DESCR)
RETURN
Figure 4.2.1.4.1.5-41
INIT ̲GROUP ̲8 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR: INTEGER,
POINTER:
POINTER
̲TYPE)
(POINTER:
POINTER ̲TYPE,
SUBGROUP
̲NO, FIELD
̲NO,
RECORD
̲NO: INTEGER,
FIELD
̲DESCR:
INIT ̲FIELD
̲DESCR
̲ARRAY)
POINTER = POINTER + SIZE ̲DESCR
SUBGROUP ̲NO = GROUP ̲5 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲5 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = GROUP ̲6 ̲8 ̲NO ̲OF ̲RECORDS
INIT ̲FIELD ̲DESCR ̲GROUP ̲5
(FIELD ̲DESCR)
(FIELD ̲DESCR)
RETURN
Figure 4.2.1.4.1.5-42
INIT ̲GROUP ̲9 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR: INTEGER,
POINTER:
POINTER
̲TYPE)
(POINTER:
POINTER ̲TYPE,
SUBGROUP
̲NO, FIELD
̲NO,
RECORD
̲NO: INTEGER,
FIELD
̲DESCR:
INIT ̲FIELD
̲DESCR
̲ARRAY)
POINTER = POINTER + SIZE ̲DESCR
SUBGROUP ̲NO = GROUP ̲9 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲9 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = MAX ̲VDUS
INIT ̲FIELD ̲DESCR ̲GROUP ̲9
(FIELD ̲DESCR)
(FIELD ̲DESCR)
RETURN
Figure 4.2.1.4.1.5-43
INIT ̲FIELD ̲DESCR ̲GROUP ̲9
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
FIELD ̲DESCR (1).BYTES ̲IN ̲SUBFIELD = GROUP ̲9 ̲FIELD
̲1 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (1).NO ̲OF ̲SUBFIELDS = GROUP ̲9 ̲FIELD
̲1 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (1).FIELD ̲FUNC = GROUP ̲9 ̲FIELD ̲1 ̲FIELD
̲FUNC
FIELD ̲DESCR (1).INIT ̲FUNC = GROUP ̲9 ̲FIELD ̲1 ̲INIT
̲FUNC
FIELD ̲DESCR (1).COMPL ̲FUNC = GROUP ̲9 ̲FIELD ̲1 ̲COMPL
̲FUNC
FIELD ̲DESCR (2).BYTES ̲IN ̲SUBFIELD = GROUP ̲9 ̲FIELD
̲2 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (2).NO ̲OF ̲SUBFIELDS = GROUP ̲9 ̲FIELD
̲2 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (2).FIELD ̲FUNC = GROUP ̲9 ̲FIELD ̲2 ̲FIELD
̲FUNC
FIELD ̲DESCR (2).INIT ̲FUNC = GROUP ̲9 ̲FIELD ̲2 ̲INIT
̲FUNC
FIELD ̲DESCR (2).COMPL ̲FUNC = GROUP ̲9 ̲FIELD ̲2 ̲COMPL
̲FUNC
FIELD ̲DESCR (3).BYTES ̲IN ̲SUBFIELD = GROUP ̲9 ̲FIELD
̲3 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (3).NO ̲OF ̲SUBFIELDS = GROUP ̲9 ̲FIELD
̲3 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (3).FIELD ̲FUNC = GROUP ̲9 ̲FIELD ̲3 ̲INIT
̲FUNC
FIELD ̲DESCR (3).INIT ̲FUNC = GROUP ̲9 ̲FIELD ̲3 ̲INIT
̲FUNC
FIELD ̲DESCR (3).COMPL ̲FUNC = GROUP ̲9 ̲FIELD ̲3 ̲COMPL
̲FUNC
FIELD ̲DESCR (4).BYTES ̲IN ̲SUBFIELD = GROUP ̲9 ̲FIELD
̲4 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (4).NO ̲OF ̲SUBFIELDS = GROUP ̲9 ̲FIELD
̲4 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (4).FIELD ̲FUNC = GROUP ̲9 ̲FIELD ̲4 ̲FIELD
̲FUNC
FIELD ̲DESCR (4).INIT ̲FUNC = GROUP ̲9 ̲FIELD ̲4 ̲INIT
̲FUNC
FIELD ̲DESCR (4).COMPL ̲FUNC = GROUP ̲9 ̲FIELD ̲4 ̲COMPL
̲FUNC
CONTINUE ̲NEXT ̲PAGE
Figure 4.2.1.4.1.5-44
PREVIOUS PAGE
FIELD ̲DESCR (5).BYTES ̲IN ̲SUBFIELD = GROUP ̲9 ̲FIELD
̲5 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (5).NO ̲OF ̲SUBFIELDS = GROUP ̲9 ̲FIELD
̲5 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (5).FIELD ̲FUNC = GROUP ̲9 ̲FIELD ̲5 ̲FIELD
̲FUNC
FIELD ̲DESCR (5).INIT ̲FUNC = GROUP ̲9 ̲FIELD ̲5 ̲INIT
̲FUNC
FIELD ̲DESCR (5).COMPL ̲FUNC = GROUP ̲9 ̲FIELD ̲5 ̲COMPL
̲FUNC
RETURN
Figure 4.2.1.4.1.5-45
INIT ̲GROUP ̲10 ̲FIELD ̲DESCR ̲PARAMS (SIZE ̲DESCR: INTEGER,
POINTER:
POINTER
̲TYPE)
(POINTER:
POINTER ̲TYPE,
SUBGROUP
̲NO, FIELD
̲NO,
RECORD
̲NO: INTEGER,
FIELD
̲DESCR:
INIT ̲FIELD
̲DESCR
̲ARRAY)
POINTER = POINTER + SIZE ̲DESCR
SUBGROUP ̲NO = GROUP ̲10 ̲NO ̲OF ̲SUBGROUPS
FIELD ̲NO = GROUP ̲10 ̲NO ̲OF ̲FIELDS
RECORD ̲NO = MAX ̲VDUS
INIT ̲FIELD ̲DESCR ̲GROUP ̲10
(FIELD ̲DESCR)
(FIELD ̲DESCR)
RETURN
Figure 4.2.1.4.1.5-46
INIT ̲FIELD ̲DESCR ̲GROUP ̲10
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
(FIELD ̲DESCR: INIT ̲FIELD ̲DESCR
̲ARRAY)
FIELD ̲DESCR (1).BYTES ̲IN ̲SUBFIELD = GROUP ̲10 ̲FIELD
̲1 ̲SIZE ̲SUBFIELD
FIELD ̲DESCR (1).NO ̲OF ̲SUBFIELDS = GROUP ̲10 ̲FIELD
̲1 ̲NO ̲OF ̲SUBFIELDS
FIELD ̲DESCR (1).FIELD ̲FUNC = GROUP ̲10 ̲FIELD ̲1 ̲FIELD
̲FUNC
FIELD ̲DESCR (1).INIT ̲FUNC = GROUP ̲10 ̲FIELD ̲1 ̲INIT
̲FUNC
FIELD ̲DESCR (1).COMPL ̲FUNC = GROUP ̲10 ̲FIELD ̲1 ̲COMPL
̲FUNC
RETURN
Figure 4.2.1.4.1.5-47
COPY ̲TO ̲DISK ( ) ( )
copies the initial created version of SDA to disk.
Figure 4.2.1.4.1.5-48
