DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦10cf2d862⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0380       |    |		.CONST	0x0380								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001f       |    |		.CONST	0x001f								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0008       |    |		.CONST	0x0008								; Number of locals
000b			INIT_0008:
000b e02e       | .  |		Load	0x0,0x2e
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d e02f       | /  |		Load	0x0,0x2f
000e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000f 02c7       |    |		Declare_Variable	Any
0010 00d8       |    |		Load_Top	At_Offset_0
0011 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0012 e030       | 0  |		Load	0x0,0x30
0013 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0014 02c7       |    |		Declare_Variable	Any
0015 00d8       |    |		Load_Top	At_Offset_0
0016 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0017 00e1       |    |		Load_Encached	Boolean_Cache
0018 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0019 029f 0073  |   s|		Declare_Subprogram	INIT_0070,For_Call
001b 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
001d 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
001f			BODY_0008:
001f e5fe       |    |		Load	0x2,-0x2
0020 e022       | "  |		Load	0x0,0x22
0021 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0022 700b       |p   |		Jump_Nonzero	0x2e
0023 e023       | #  |		Load	0x0,0x23
0024 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0025 e023       | #  |		Load	0x0,0x23
0026 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0027 e5fb       |    |		Load	0x2,-0x5
0028 e022       | "  |		Load	0x0,0x22
0029 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
002a e023       | #  |		Load	0x0,0x23
002b 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
002c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
002d 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
002e e404       |    |		Load	0x2,0x4
002f e403       |    |		Load	0x2,0x3
0030 0120       |    |		Execute	Any,Is_Value
0031 6803       |h   |		Jump_Zero	0x35
0032 e02f       | /  |		Load	0x0,0x2f
0033 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0034 7801       |x   |		Jump	0x36
0035 e403       |    |		Load	0x2,0x3
0036 e022       | "  |		Load	0x0,0x22
0037 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0038 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0039 0092 034f  |   O|		Action	Push_String_Extended,0x34f					; "IDD"
003b e02f       | /  |		Load	0x0,0x2f
003c 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
003d c403       |    |		Store	0x2,0x3
003e c404       |    |		Store	0x2,0x4
003f e402       |    |		Load	0x2,0x2
0040 e403       |    |		Load	0x2,0x3
0041 e02f       | /  |		Load	0x0,0x2f
0042 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0043 e02e       | .  |		Load	0x0,0x2e
0044 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0045 c402       |    |		Store	0x2,0x2
0046 00cf       |    |		Action	Mark_Auxiliary
0047 e5fe       |    |		Load	0x2,-0x2
0048 e022       | "  |		Load	0x0,0x22
0049 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
004a e5fe       |    |		Load	0x2,-0x2
004b e022       | "  |		Load	0x0,0x22
004c 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
004d 0263       | c  |		Execute	Discrete,Above_Bound
004e 7007       |p   |		Jump_Nonzero	0x56
004f 00d8       |    |		Load_Top	At_Offset_0
0050 e5fe       |    |		Load	0x2,-0x2
0051 e022       | "  |		Load	0x0,0x22
0052 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0053 8408       |    |		Call	0x2,0x8
0054 00c8       |    |		Action	Pop_Auxiliary_Range
0055 3ff9       |?   |		Loop_Increasing	0x4f
0056 00ce       |    |		Action	Pop_Auxiliary
0057 00db       |    |		Load_Top	At_Offset_3
0058 680b       |h   |		Jump_Zero	0x64
0059 e023       | #  |		Load	0x0,0x23
005a 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
005b e023       | #  |		Load	0x0,0x23
005c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
005d e5fb       |    |		Load	0x2,-0x5
005e e022       | "  |		Load	0x0,0x22
005f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0060 e023       | #  |		Load	0x0,0x23
0061 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
0062 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0063 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0064 e023       | #  |		Load	0x0,0x23
0065 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0066 e023       | #  |		Load	0x0,0x23
0067 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0068 8210       |    |		Call	0x1,0x10
0069 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
006a 0000 0000  |    |		.BLANK	0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0078       | x  |		.CONST	0x0078								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0002       |    |		.CONST	0x0002								; Number of locals
0073			INIT_0070:
0073 4804       |H   |		Short_Literal	0x4
0074 00db       |    |		Load_Top	At_Offset_3
0075 e022       | "  |		Load	0x0,0x22
0076 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0077 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0078			BODY_0070:
0078 00d8       |    |		Load_Top	At_Offset_0
0079 0092 0350  |   P|		Action	Push_String_Extended,0x350					; "<UNDEFINED_ID>"
007b 01df       |    |		Execute	Vector,Equal
007c 6806       |h   |		Jump_Zero	0x83
007d 4801       |H   |		Short_Literal	0x1
007e e7ff       |    |		Load	0x3,-0x1
007f e022       | "  |		Load	0x0,0x22
0080 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0081 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0082 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0083 4801       |H   |		Short_Literal	0x1
0084 e7ff       |    |		Load	0x3,-0x1
0085 e022       | "  |		Load	0x0,0x22
0086 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0087 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0088 0092 0351  |   Q|		Action	Push_String_Extended,0x351					; " ("
008a 01cc       |    |		Execute	Vector,Catenate
008b 00d9       |    |		Load_Top	At_Offset_1
008c 01cc       |    |		Execute	Vector,Catenate
008d 0092 0352  |   R|		Action	Push_String_Extended,0x352					; ")"
008f 01cc       |    |		Execute	Vector,Catenate
0090 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0091 0000 0000  |    |		.BLANK	0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 480a       |H   |		Short_Literal	0xa
009c e022       | "  |		Load	0x0,0x22
009d 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
009e e023       | #  |		Load	0x0,0x23
009f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00a0 4800       |H   |		Short_Literal	0x0
00a1 e5fc       |    |		Load	0x2,-0x4
00a2 e5fd       |    |		Load	0x2,-0x3
00a3 820d       |    |		Call	0x1,0xd
00a4 480b       |H   |		Short_Literal	0xb
00a5 e022       | "  |		Load	0x0,0x22
00a6 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
00a7 e023       | #  |		Load	0x0,0x23
00a8 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00a9 5822       |X"  |		Indirect_Literal	Float,0xcc,30.0
00aa 4802       |H   |		Short_Literal	0x2
00ab 0092 0353  |   S|		Action	Push_String_Extended,0x353					; "Interface Name (ID)"
00ad 820e       |    |		Call	0x1,0xe
00ae 480b       |H   |		Short_Literal	0xb
00af e022       | "  |		Load	0x0,0x22
00b0 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
00b1 e023       | #  |		Load	0x0,0x23
00b2 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00b3 5814       |X   |		Indirect_Literal	Float,0xc8,20.0
00b4 4802       |H   |		Short_Literal	0x2
00b5 0092 0354  |   T|		Action	Push_String_Extended,0x354					; "IDD\x0aParagraph"
00b7 820e       |    |		Call	0x1,0xe
00b8 480b       |H   |		Short_Literal	0xb
00b9 e022       | "  |		Load	0x0,0x22
00ba 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
00bb e023       | #  |		Load	0x0,0x23
00bc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00bd 5806       |X   |		Indirect_Literal	Float,0xc4,50.0
00be 4800       |H   |		Short_Literal	0x0
00bf 0092 0355  |   U|		Action	Push_String_Extended,0x355					; "Datum Name (ID)"
00c1 820e       |    |		Call	0x1,0xe
00c2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c3 0000       |    |		.XXX[0x1]
00c4 4049 0000  |@I  |		.DBL	50.0
00c6 0000 0000  |    |
00c8 4034 0000  |@4  |		.DBL	20.0
00ca 0000 0000  |    |
00cc 403e 0000  |@>  |		.DBL	30.0
00ce 0000 0000  |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00fc       |    |		.CONST	0x00fc								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 000e       |    |		.CONST	0x000e								; Number of locals
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00d5 e024       | $  |		Load	0x0,0x24
00d6 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00d7 011e       |    |		Execute	Any,Convert
00d8 00e1       |    |		Load_Encached	Boolean_Cache
00d9 e020       |    |		Load	0x0,0x20
00da 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00db 02c7       |    |		Declare_Variable	Any
00dc 00d8       |    |		Load_Top	At_Offset_0
00dd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00de e020       |    |		Load	0x0,0x20
00df 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e0 02c7       |    |		Declare_Variable	Any
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e3 e020       |    |		Load	0x0,0x20
00e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e5 02c7       |    |		Declare_Variable	Any
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e8 e22c       | ,  |		Load	0x1,0x2c
00e9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00ea 00e1       |    |		Load_Encached	Boolean_Cache
00eb 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00ec 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call
00ee 029e 011b  |    |		Declare_Subprogram	INIT_0118,For_Call,Unelaborated
00f0 029f 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call
00f2 480a       |H   |		Short_Literal	0xa
00f3 4803       |H   |		Short_Literal	0x3
00f4 0099       |    |		Action	Reference_Dynamic
00f5 00c7       |    |		Action	Elaborate_Subprogram
00f6 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
00f8 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
00fa 029f 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Call
00fc			BODY_00d0:
00fc 860e       |    |		Call	0x3,0xe
00fd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00fe 0000 0000  |    |		.XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 e608       |    |		Load	0x3,0x8
0104 6809       |h   |		Jump_Zero	0x10e
0105 e607       |    |		Load	0x3,0x7
0106 00db       |    |		Load_Top	At_Offset_3
0107 8406       |    |		Call	0x2,0x6
0108 e22c       | ,  |		Load	0x1,0x2c
0109 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
010a c607       |    |		Store	0x3,0x7
010b 4800       |H   |		Short_Literal	0x0
010c a608       |    |		Store_Unchecked	0x3,0x8
010d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010e e607       |    |		Load	0x3,0x7
010f 0092 0356  |   V|		Action	Push_String_Extended,0x356					; ", "
0111 e9ff       |    |		Load	0x4,-0x1
0112 8406       |    |		Call	0x2,0x6
0113 01cc       |    |		Execute	Vector,Catenate
0114 e22c       | ,  |		Load	0x1,0x2c
0115 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0116 c607       |    |		Store	0x3,0x7
0117 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011d       |    |		.CONST	0x011d								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b 029f 0223  |   #|		Declare_Subprogram	INIT_0220,For_Call
011d			BODY_0118:
011d 00db       |    |		Load_Top	At_Offset_3
011e e031       | 1  |		Load	0x0,0x31
011f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0120 0f06       |    |		Execute_Immediate	Equal,0x6
0121 6801       |h   |		Jump_Zero	0x123
0122 8802       |    |		Call	0x4,0x2
0123 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0124 0000 0000  |    |		.BLANK	0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 014a       | J  |		.CONST	0x014a								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0007       |    |		.CONST	0x0007								; Number of locals
012b			INIT_0128:
012b e020       |    |		Load	0x0,0x20
012c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
012d 02c7       |    |		Declare_Variable	Any
012e 00d8       |    |		Load_Top	At_Offset_0
012f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0130 e020       |    |		Load	0x0,0x20
0131 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0132 02c7       |    |		Declare_Variable	Any
0133 e9ff       |    |		Load	0x4,-0x1
0134 a803       |    |		Store_Unchecked	0x4,0x3
0135 e020       |    |		Load	0x0,0x20
0136 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0137 02c7       |    |		Declare_Variable	Any
0138 00d9       |    |		Load_Top	At_Offset_1
0139 e031       | 1  |		Load	0x0,0x31
013a 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
013b a804       |    |		Store_Unchecked	0x4,0x4
013c e020       |    |		Load	0x0,0x20
013d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
013e 02c7       |    |		Declare_Variable	Any
013f 00da       |    |		Load_Top	At_Offset_2
0140 e031       | 1  |		Load	0x0,0x31
0141 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
0142 a805       |    |		Store_Unchecked	0x4,0x5
0143 e020       |    |		Load	0x0,0x20
0144 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0145 02c7       |    |		Declare_Variable	Any
0146 00d8       |    |		Load_Top	At_Offset_0
0147 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0148 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call
014a			BODY_0128:
014a 00db       |    |		Load_Top	At_Offset_3
014b 8609       |    |		Call	0x3,0x9
014c 00cf       |    |		Action	Mark_Auxiliary
014d 780a       |x   |		Jump	0x158
014e 00db       |    |		Load_Top	At_Offset_3
014f e020       |    |		Load	0x0,0x20
0150 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0151 c806       |    |		Store	0x4,0x6
0152 8807       |    |		Call	0x4,0x7
0153 00db       |    |		Load_Top	At_Offset_3
0154 e020       |    |		Load	0x0,0x20
0155 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0156 c805       |    |		Store	0x4,0x5
0157 00c9       |    |		Action	Pop_Auxiliary_Loop
0158 00db       |    |		Load_Top	At_Offset_3
0159 e020       |    |		Load	0x0,0x20
015a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
015b 6ff2       |o   |		Jump_Zero	0x14e
015c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 e405       |    |		Load	0x2,0x5
0164 6803       |h   |		Jump_Zero	0x168
0165 8407       |    |		Call	0x2,0x7
0166 4800       |H   |		Short_Literal	0x0
0167 a405       |    |		Store_Unchecked	0x2,0x5
0168 4801       |H   |		Short_Literal	0x1
0169 480d       |H   |		Short_Literal	0xd
016a e022       | "  |		Load	0x0,0x22
016b 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
016c 00ea       |    |		Load_Encached	Null_String_Cache
016d 4800       |H   |		Short_Literal	0x0
016e e602       |    |		Load	0x3,0x2
016f e022       | "  |		Load	0x0,0x22
0170 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0171 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0172 4807       |H   |		Short_Literal	0x7
0173 e602       |    |		Load	0x3,0x2
0174 e022       | "  |		Load	0x0,0x22
0175 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0176 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0177 820f       |    |		Call	0x1,0xf
0178 e602       |    |		Load	0x3,0x2
0179 e024       | $  |		Load	0x0,0x24
017a 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
017b 6815       |h   |		Jump_Zero	0x191
017c 4801       |H   |		Short_Literal	0x1
017d 480d       |H   |		Short_Literal	0xd
017e e022       | "  |		Load	0x0,0x22
017f 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0180 00ea       |    |		Load_Encached	Null_String_Cache
0181 e7ff       |    |		Load	0x3,-0x1
0182 e02e       | .  |		Load	0x0,0x2e
0183 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0184 e403       |    |		Load	0x2,0x3
0185 e022       | "  |		Load	0x0,0x22
0186 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0187 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0188 0092 0357  |   W|		Action	Push_String_Extended,0x357					; "IDD "
018a e402       |    |		Load	0x2,0x2
018b e7ff       |    |		Load	0x3,-0x1
018c e02e       | .  |		Load	0x0,0x2e
018d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
018e 01cc       |    |		Execute	Vector,Catenate
018f 820f       |    |		Call	0x1,0xf
0190 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0191 4801       |H   |		Short_Literal	0x1
0192 480d       |H   |		Short_Literal	0xd
0193 e022       | "  |		Load	0x0,0x22
0194 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0195 e023       | #  |		Load	0x0,0x23
0196 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0197 e236       | 6  |		Load	0x1,0x36
0198 820f       |    |		Call	0x1,0xf
0199 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
019a 0000 0000  |    |		.BLANK	0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 e026       | &  |		Load	0x0,0x26
01a5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01a6 0b22       | "  |		Execute_Immediate	Case_Compare,0x22
01a7 7007       |p   |		Jump_Nonzero	0x1af
01a8 4805       |H   |		Short_Literal	0x5
01a9 4807       |H   |		Short_Literal	0x7
01aa 0262       | b  |		Execute	Discrete,In_Range
01ab 7006       |p   |		Jump_Nonzero	0x1b2
01ac 00da       |    |		Load_Top	At_Offset_2
01ad 8609       |    |		Call	0x3,0x9
01ae 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01af 00d1       |    |		Pop_Control	Pop_Count_1
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 8609       |    |		Call	0x3,0x9
01b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b3 0000 0000  |    |		.BLANK	0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01d0       |    |		.CONST	0x01d0								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0006       |    |		.CONST	0x0006								; Number of locals
01bb			INIT_01b8:
01bb e020       |    |		Load	0x0,0x20
01bc 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
01bd 02c7       |    |		Declare_Variable	Any
01be e602       |    |		Load	0x3,0x2
01bf e024       | $  |		Load	0x0,0x24
01c0 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
01c1 e026       | &  |		Load	0x0,0x26
01c2 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01c3 a802       |    |		Store_Unchecked	0x4,0x2
01c4 00d8       |    |		Load_Top	At_Offset_0
01c5 e026       | &  |		Load	0x0,0x26
01c6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01c7 e026       | &  |		Load	0x0,0x26
01c8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01c9 03f1       |    |		Declare_Variable	Discrete,With_Value
01ca 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
01cc 029f 02db  |    |		Declare_Subprogram	INIT_02d8,For_Call
01ce 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
01d0			BODY_01b8:
01d0 00db       |    |		Load_Top	At_Offset_3
01d1 4626       |F&  |		Jump_Case	0x27
01d2 782a       |x*  |		Jump	0x1fd								; case 0x0
01d3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1
01d4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x2
01d5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x3
01d6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x4
01d7 7841       |xA  |		Jump	0x219								; case 0x5
01d8 7840       |x@  |		Jump	0x219								; case 0x6
01d9 783f       |x?  |		Jump	0x219								; case 0x7
01da 781e       |x   |		Jump	0x1f9								; case 0x8
01db 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x9
01dc 781e       |x   |		Jump	0x1fb								; case 0xa
01dd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0xb
01de 781c       |x   |		Jump	0x1fb								; case 0xc
01df 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0xd
01e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0xe
01e1 7819       |x   |		Jump	0x1fb								; case 0xf
01e2 7818       |x   |		Jump	0x1fb								; case 0x10
01e3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x11
01e4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x12
01e5 7813       |x   |		Jump	0x1f9								; case 0x13
01e6 7814       |x   |		Jump	0x1fb								; case 0x14
01e7 7813       |x   |		Jump	0x1fb								; case 0x15
01e8 7812       |x   |		Jump	0x1fb								; case 0x16
01e9 7811       |x   |		Jump	0x1fb								; case 0x17
01ea 7810       |x   |		Jump	0x1fb								; case 0x18
01eb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x19
01ec 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1a
01ed 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1b
01ee 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1c
01ef 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1d
01f0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1e
01f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1f
01f2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x20
01f3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x21
01f4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x22
01f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x23
01f6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x24
01f7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x25
01f8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x26
01f9 8805       |    |		Call	0x4,0x5
01fa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01fb 8806       |    |		Call	0x4,0x6
01fc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01fd 860c       |    |		Call	0x3,0xc
01fe e606       |    |		Load	0x3,0x6
01ff e605       |    |		Load	0x3,0x5
0200 e604       |    |		Load	0x3,0x4
0201 00e1       |    |		Load_Encached	Boolean_Cache
0202 e802       |    |		Load	0x4,0x2
0203 822e       | .  |		Call	0x1,0x2e
0204 c603       |    |		Store	0x3,0x3
0205 c604       |    |		Store	0x3,0x4
0206 c605       |    |		Store	0x3,0x5
0207 c606       |    |		Store	0x3,0x6
0208 e605       |    |		Load	0x3,0x5
0209 860a       |    |		Call	0x3,0xa
020a 4801       |H   |		Short_Literal	0x1
020b 480d       |H   |		Short_Literal	0xd
020c e022       | "  |		Load	0x0,0x22
020d 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
020e 00ea       |    |		Load_Encached	Null_String_Cache
020f 4800       |H   |		Short_Literal	0x0
0210 e602       |    |		Load	0x3,0x2
0211 e022       | "  |		Load	0x0,0x22
0212 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0213 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0214 e607       |    |		Load	0x3,0x7
0215 e22c       | ,  |		Load	0x1,0x2c
0216 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0217 820f       |    |		Call	0x1,0xf
0218 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0219 8804       |    |		Call	0x4,0x4
021a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021b 0000 0000  |    |		.BLANK	0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0234       | 4  |		.CONST	0x0234								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0004       |    |		.CONST	0x0004								; Number of locals
0223			INIT_0220:
0223 e020       |    |		Load	0x0,0x20
0224 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0225 02c7       |    |		Declare_Variable	Any
0226 e9ff       |    |		Load	0x4,-0x1
0227 e031       | 1  |		Load	0x0,0x31
0228 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0229 aa02       |    |		Store_Unchecked	0x5,0x2
022a e020       |    |		Load	0x0,0x20
022b 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
022c 02c7       |    |		Declare_Variable	Any
022d 00d8       |    |		Load_Top	At_Offset_0
022e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022f e020       |    |		Load	0x0,0x20
0230 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0231 02c7       |    |		Declare_Variable	Any
0232 00d8       |    |		Load_Top	At_Offset_0
0233 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0234			BODY_0220:
0234 00cf       |    |		Action	Mark_Auxiliary
0235 7838       |x8  |		Jump	0x26e
0236 00db       |    |		Load_Top	At_Offset_3
0237 e020       |    |		Load	0x0,0x20
0238 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0239 ca04       |    |		Store	0x5,0x4
023a 00d9       |    |		Load_Top	At_Offset_1
023b e031       | 1  |		Load	0x0,0x31
023c 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
023d 4603       |F   |		Jump_Case	0x4
023e 780c       |x   |		Jump	0x24b								; case 0x0
023f 7802       |x   |		Jump	0x242								; case 0x1
0240 7806       |x   |		Jump	0x247								; case 0x2
0241 7809       |x   |		Jump	0x24b								; case 0x3
0242 00d9       |    |		Load_Top	At_Offset_1
0243 e026       | &  |		Load	0x0,0x26
0244 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0245 ca03       |    |		Store	0x5,0x3
0246 7804       |x   |		Jump	0x24b
0247 00d9       |    |		Load_Top	At_Offset_1
0248 860b       |    |		Call	0x3,0xb
0249 00cc       |    |		Action	Pop_Block
024a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
024b 00cf       |    |		Action	Mark_Auxiliary
024c 7809       |x   |		Jump	0x256
024d 00db       |    |		Load_Top	At_Offset_3
024e e020       |    |		Load	0x0,0x20
024f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0250 8609       |    |		Call	0x3,0x9
0251 00db       |    |		Load_Top	At_Offset_3
0252 e020       |    |		Load	0x0,0x20
0253 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0254 ca03       |    |		Store	0x5,0x3
0255 00c9       |    |		Action	Pop_Auxiliary_Loop
0256 00db       |    |		Load_Top	At_Offset_3
0257 e020       |    |		Load	0x0,0x20
0258 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0259 6ff3       |o   |		Jump_Zero	0x24d
025a 00ce       |    |		Action	Pop_Auxiliary
025b e606       |    |		Load	0x3,0x6
025c e605       |    |		Load	0x3,0x5
025d e604       |    |		Load	0x3,0x4
025e 00e1       |    |		Load_Encached	Boolean_Cache
025f ea02       |    |		Load	0x5,0x2
0260 e020       |    |		Load	0x0,0x20
0261 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0262 822e       | .  |		Call	0x1,0x2e
0263 c603       |    |		Store	0x3,0x3
0264 c604       |    |		Store	0x3,0x4
0265 c605       |    |		Store	0x3,0x5
0266 c606       |    |		Store	0x3,0x6
0267 e605       |    |		Load	0x3,0x5
0268 860a       |    |		Call	0x3,0xa
0269 00db       |    |		Load_Top	At_Offset_3
026a e020       |    |		Load	0x0,0x20
026b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
026c ca02       |    |		Store	0x5,0x2
026d 00c9       |    |		Action	Pop_Auxiliary_Loop
026e 00db       |    |		Load_Top	At_Offset_3
026f e020       |    |		Load	0x0,0x20
0270 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0271 6fc4       |o   |		Jump_Zero	0x236
0272 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0273 0000 0000  |    |		.BLANK	0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0282       |    |		.CONST	0x0282								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b e020       |    |		Load	0x0,0x20
027c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
027d 02c7       |    |		Declare_Variable	Any
027e e806       |    |		Load	0x4,0x6
027f e031       | 1  |		Load	0x0,0x31
0280 1857       | W  |		Execute	Package,Field_Execute,Field_Number 0x57
0281 aa02       |    |		Store_Unchecked	0x5,0x2
0282			BODY_0278:
0282 00cf       |    |		Action	Mark_Auxiliary
0283 7829       |x)  |		Jump	0x2ad
0284 00d9       |    |		Load_Top	At_Offset_1
0285 e020       |    |		Load	0x0,0x20
0286 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0287 c803       |    |		Store	0x4,0x3
0288 e803       |    |		Load	0x4,0x3
0289 e026       | &  |		Load	0x0,0x26
028a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
028b c802       |    |		Store	0x4,0x2
028c 00cf       |    |		Action	Mark_Auxiliary
028d 7809       |x   |		Jump	0x297
028e e802       |    |		Load	0x4,0x2
028f e020       |    |		Load	0x0,0x20
0290 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0291 8609       |    |		Call	0x3,0x9
0292 e802       |    |		Load	0x4,0x2
0293 e020       |    |		Load	0x0,0x20
0294 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0295 c802       |    |		Store	0x4,0x2
0296 00c9       |    |		Action	Pop_Auxiliary_Loop
0297 e802       |    |		Load	0x4,0x2
0298 e020       |    |		Load	0x0,0x20
0299 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
029a 6ff3       |o   |		Jump_Zero	0x28e
029b 00ce       |    |		Action	Pop_Auxiliary
029c e606       |    |		Load	0x3,0x6
029d e605       |    |		Load	0x3,0x5
029e e604       |    |		Load	0x3,0x4
029f 00e1       |    |		Load_Encached	Boolean_Cache
02a0 e803       |    |		Load	0x4,0x3
02a1 822e       | .  |		Call	0x1,0x2e
02a2 c603       |    |		Store	0x3,0x3
02a3 c604       |    |		Store	0x3,0x4
02a4 c605       |    |		Store	0x3,0x5
02a5 c606       |    |		Store	0x3,0x6
02a6 e605       |    |		Load	0x3,0x5
02a7 860a       |    |		Call	0x3,0xa
02a8 00d9       |    |		Load_Top	At_Offset_1
02a9 e020       |    |		Load	0x0,0x20
02aa 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02ab ca02       |    |		Store	0x5,0x2
02ac 00c9       |    |		Action	Pop_Auxiliary_Loop
02ad 00d9       |    |		Load_Top	At_Offset_1
02ae e020       |    |		Load	0x0,0x20
02af 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02b0 6fd3       |o   |		Jump_Zero	0x284
02b1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b2 0000 0000  |    |		.BLANK	0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c2       |    |		.CONST	0x02c2								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb e026       | &  |		Load	0x0,0x26
02bc 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
02bd 02c7       |    |		Declare_Variable	Any
02be e802       |    |		Load	0x4,0x2
02bf e026       | &  |		Load	0x0,0x26
02c0 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
02c1 aa02       |    |		Store_Unchecked	0x5,0x2
02c2			BODY_02b8:
02c2 860c       |    |		Call	0x3,0xc
02c3 00d8       |    |		Load_Top	At_Offset_0
02c4 860a       |    |		Call	0x3,0xa
02c5 4801       |H   |		Short_Literal	0x1
02c6 480d       |H   |		Short_Literal	0xd
02c7 e022       | "  |		Load	0x0,0x22
02c8 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
02c9 00ea       |    |		Load_Encached	Null_String_Cache
02ca 4800       |H   |		Short_Literal	0x0
02cb e602       |    |		Load	0x3,0x2
02cc e022       | "  |		Load	0x0,0x22
02cd 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
02ce 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02cf e607       |    |		Load	0x3,0x7
02d0 e22c       | ,  |		Load	0x1,0x2c
02d1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02d2 820f       |    |		Call	0x1,0xf
02d3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d4 0000 0000  |    |		.BLANK	0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e7       |    |		.CONST	0x02e7								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0003       |    |		.CONST	0x0003								; Number of locals
02db			INIT_02d8:
02db e020       |    |		Load	0x0,0x20
02dc 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02dd 02c7       |    |		Declare_Variable	Any
02de e802       |    |		Load	0x4,0x2
02df e02c       | ,  |		Load	0x0,0x2c
02e0 187f       |    |		Execute	Package,Field_Execute,Field_Number 0x7f
02e1 aa02       |    |		Store_Unchecked	0x5,0x2
02e2 e020       |    |		Load	0x0,0x20
02e3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e4 02c7       |    |		Declare_Variable	Any
02e5 00d8       |    |		Load_Top	At_Offset_0
02e6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e7			BODY_02d8:
02e7 860c       |    |		Call	0x3,0xc
02e8 00d9       |    |		Load_Top	At_Offset_1
02e9 e020       |    |		Load	0x0,0x20
02ea 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02eb ca02       |    |		Store	0x5,0x2
02ec 00d9       |    |		Load_Top	At_Offset_1
02ed e020       |    |		Load	0x0,0x20
02ee 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
02ef 7004       |p   |		Jump_Nonzero	0x2f4
02f0 00d9       |    |		Load_Top	At_Offset_1
02f1 e020       |    |		Load	0x0,0x20
02f2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02f3 ca02       |    |		Store	0x5,0x2
02f4 00cf       |    |		Action	Mark_Auxiliary
02f5 780b       |x   |		Jump	0x301
02f6 00da       |    |		Load_Top	At_Offset_2
02f7 e020       |    |		Load	0x0,0x20
02f8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
02f9 ca03       |    |		Store	0x5,0x3
02fa 00d9       |    |		Load_Top	At_Offset_1
02fb 860d       |    |		Call	0x3,0xd
02fc 00da       |    |		Load_Top	At_Offset_2
02fd e020       |    |		Load	0x0,0x20
02fe 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02ff ca02       |    |		Store	0x5,0x2
0300 00c9       |    |		Action	Pop_Auxiliary_Loop
0301 00da       |    |		Load_Top	At_Offset_2
0302 e020       |    |		Load	0x0,0x20
0303 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0304 6ff1       |o   |		Jump_Zero	0x2f6
0305 00ce       |    |		Action	Pop_Auxiliary
0306 4801       |H   |		Short_Literal	0x1
0307 480d       |H   |		Short_Literal	0xd
0308 e022       | "  |		Load	0x0,0x22
0309 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
030a 00ea       |    |		Load_Encached	Null_String_Cache
030b 4800       |H   |		Short_Literal	0x0
030c e602       |    |		Load	0x3,0x2
030d e022       | "  |		Load	0x0,0x22
030e 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
030f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0310 e607       |    |		Load	0x3,0x7
0311 e22c       | ,  |		Load	0x1,0x2c
0312 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0313 820f       |    |		Call	0x1,0xf
0314 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0315 0000 0000  |    |		.XXX[0x3]
0317 0000       |    |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0325       | %  |		.CONST	0x0325								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0003       |    |		.CONST	0x0003								; Number of locals
031b			INIT_0318:
031b e020       |    |		Load	0x0,0x20
031c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
031d 02c7       |    |		Declare_Variable	Any
031e 00d8       |    |		Load_Top	At_Offset_0
031f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0320 e020       |    |		Load	0x0,0x20
0321 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0322 02c7       |    |		Declare_Variable	Any
0323 00d8       |    |		Load_Top	At_Offset_0
0324 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0325			BODY_0318:
0325 860c       |    |		Call	0x3,0xc
0326 e802       |    |		Load	0x4,0x2
0327 e026       | &  |		Load	0x0,0x26
0328 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0329 ca02       |    |		Store	0x5,0x2
032a 00d9       |    |		Load_Top	At_Offset_1
032b e020       |    |		Load	0x0,0x20
032c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
032d ca02       |    |		Store	0x5,0x2
032e 00cf       |    |		Action	Mark_Auxiliary
032f 780b       |x   |		Jump	0x33b
0330 00da       |    |		Load_Top	At_Offset_2
0331 e020       |    |		Load	0x0,0x20
0332 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0333 ca03       |    |		Store	0x5,0x3
0334 00d9       |    |		Load_Top	At_Offset_1
0335 860d       |    |		Call	0x3,0xd
0336 00da       |    |		Load_Top	At_Offset_2
0337 e020       |    |		Load	0x0,0x20
0338 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0339 ca02       |    |		Store	0x5,0x2
033a 00c9       |    |		Action	Pop_Auxiliary_Loop
033b 00da       |    |		Load_Top	At_Offset_2
033c e020       |    |		Load	0x0,0x20
033d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
033e 6ff1       |o   |		Jump_Zero	0x330
033f 00ce       |    |		Action	Pop_Auxiliary
0340 4801       |H   |		Short_Literal	0x1
0341 480d       |H   |		Short_Literal	0xd
0342 e022       | "  |		Load	0x0,0x22
0343 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0344 00ea       |    |		Load_Encached	Null_String_Cache
0345 4800       |H   |		Short_Literal	0x0
0346 e602       |    |		Load	0x3,0x2
0347 e022       | "  |		Load	0x0,0x22
0348 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0349 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
034a e607       |    |		Load	0x3,0x7
034b e22c       | ,  |		Load	0x1,0x2c
034c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
034d 820f       |    |		Call	0x1,0xf
034e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034f ; --------------------------------------------------------------------------------------
034f ; STRING TABLE
034f ; --------------------------------------------------------------------------------------
034f 0014       |    |		.STRTAB	0x0014->0x0359							; "IDD"
0350 0015       |    |		.STRTAB	0x0015->0x035a							; "<UNDEFINED_ID>"
0351 0021       | !  |		.STRTAB	0x0021->0x0361							; " ("
0352 0021       | !  |		.STRTAB	0x0021->0x0362							; ")"
0353 0020       |    |		.STRTAB	0x0020->0x0363							; "Interface Name (ID)"
0354 0031       | 1  |		.STRTAB	0x0031->0x036c							; "IDD\x0aParagraph"
0355 003c       | <  |		.STRTAB	0x003c->0x0373							; "Datum Name (ID)"
0356 0049       | I  |		.STRTAB	0x0049->0x037a							; ", "
0357 0049       | I  |		.STRTAB	0x0049->0x037b							; "IDD "
0358 004b       | K  |		.STREND 0x004b->0x037d
0359 4944 443c  |IDD<|		.STRTAB_STRINGS
037e 0000 0000  |    |		.XXX[0x2]
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug Table
0380 ; --------------------------------------------------------------------------------------
0380 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xfc99,0x0000,0x0001,0x0000
0386 2400 9c24  |$  $|		.XXX[0x7a]
0388 0625 2402  | %$ |
038a 0996 d235  |   5|
038c 750e d235  |u  5|
038e 7d0e d234  |}  4|
0390 1c0c 1225  |   %|
0392 2403 be2e  |$  .|
0394 d235 bd0e  | 5  |
0396 d236 fc0d  | 6  |
0398 9629 2403  | )$ |
039a fd56 d236  | V 6|
039c bdaa d236  |   6|
039e c5aa d236  |   6|
03a0 5811 3a25  |X :%|
03a2 2402 d812  |$   |
03a4 1a29 2403  | )$ |
03a6 cc12 bc1c  |    |
03a8 5801 2401  |X $ |
03aa 8c2e d625  | . %|
03ac 2401 e417  |$   |
03ae 8236 58e7  | 6X |
03b0 9e36 f5aa  | 6  |
03b2 d237 461b  | 7F |
03b4 9e37 01ab  | 7  |
03b6 9e35 1432  | 5 2|
03b8 0e29 2800  | )( |
03ba f80e 6a29  |  j)|
03bc 2803 2433  |( $3|
03be de36 e148  | 6 H|
03c0 5803 2469  |X $i|
03c2 695f fe37  |i_ 7|
03c4 bd44 b47d  | D }|
03c6 2803 79a8  |( y |
03c8 123a 055c  | : \|
03ca 123a 9a18  | :  |
03cc 1238 814f  | 8 O|
03ce fe37 b9a8  | 7  |
03d0 1238 894c  | 8 L|
03d2 1238 f809  | 8  |
03d4 9625 2800  | %( |
03d6 1025 a225  | % %|
03d8 2801 d48b  |(   |
03da fe37 410c  | 7A |
03dc 1238 c158  | 8 X|
03de 1239 8134  | 9 4|
03e0 1238 31af  | 81 |
03e2 fe35 9937  | 5 7|
03e4 fe36 280f  | 6( |
03e6 7a29 2800  |z)( |
03e8 55af fe36  |U  6|
03ea fc0d ae27  |   '|
03ec 9931 ce31  | 1 1|
03ee 2800 e410  |(   |
03f0 2629 2802  |&)( |
03f2 9494 1238  |   8|
03f4 154f fe37  | O 7|
03f6 b50c 123b  |   ;|
03f8 cc11 c627  |   '|
03fa dd33 5229  | 3R)|
03fc 2801 e414  |(   |
03fe 5a39 9414  |Z9  |