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

⟦561068921⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0041       | A  |		.CONST	0x0041								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1
000c 481e       |H   |		Short_Literal	0x1e
000d 00e9       |    |		Load_Encached	String_Cache
000e 035c       | \  |		Declare_Type	Array,Constrained,Visible
000f 4801       |H   |		Short_Literal	0x1
0010 481e       |H   |		Short_Literal	0x1e
0011 00e9       |    |		Load_Encached	String_Cache
0012 035c       | \  |		Declare_Type	Array,Constrained,Visible
0013 e001       |    |		Load	0x0,0x1
0014 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0015 0129       | )  |		Execute	Any,Make_Visible
0016 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated
0018 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
001a 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
001c 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
001e 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0020 00bf       |    |		Action	Accept_Activation
0021 e20d       |    |		Load	0x1,0xd
0022 e20e       |    |		Load	0x1,0xe
0023 02a0       |    |		Declare_Subprogram	Null_Subprogram
0024 4802       |H   |		Short_Literal	0x2
0025 032d       | -  |		Declare_Type	Record,Defined
0026 e002       |    |		Load	0x0,0x2
0027 e003       |    |		Load	0x0,0x3
0028 00da       |    |		Load_Top	At_Offset_2
0029 0092 0376  |   v|		Action	Push_String_Extended,0x376					; "PERMIS    "
002b e001       |    |		Load	0x0,0x1
002c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
002d 01c7       |    |		Execute	Vector,Convert
002e 48c8       |H   |		Short_Literal	0xc8
002f e001       |    |		Load	0x0,0x1
0030 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0031 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0032 e001       |    |		Load	0x0,0x1
0033 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0034 0387       |    |		Declare_Variable	Package
0035 00d8       |    |		Load_Top	At_Offset_0
0036 020f       |    |		Execute	Module,Activate
0037 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0040 00c7       |    |		Action	Elaborate_Subprogram
0041			BODY_0008:
0041 00bc       |    |		Action	Signal_Activated
0042 00bb       |    |		Action	Signal_Completion
0043 0000 0000  |    |		.BLANK	0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b e216       |    |		Load	0x1,0x16
004c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
004d 00ca       |    |		Action	Exit_Nullary_Function
004e 0000 0000  |    |		.XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 00da       |    |		Load_Top	At_Offset_2
0054 e216       |    |		Load	0x1,0x16
0055 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0056 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0057 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 00da       |    |		Load_Top	At_Offset_2
005c e216       |    |		Load	0x1,0x16
005d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
005e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
005f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 e215       |    |		Load	0x1,0x15
0064 0322       | "  |		Declare_Variable	Record
0065 e215       |    |		Load	0x1,0x15
0066 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0067 0337       | 7  |		Declare_Variable	Array
0068 4842       |HB  |		Short_Literal	0x42
0069 4801       |H   |		Short_Literal	0x1
006a 00da       |    |		Load_Top	At_Offset_2
006b 01d6       |    |		Execute	Vector,Field_Write
006c 4837       |H7  |		Short_Literal	0x37
006d 4802       |H   |		Short_Literal	0x2
006e 00da       |    |		Load_Top	At_Offset_2
006f 01d6       |    |		Execute	Vector,Field_Write
0070 4834       |H4  |		Short_Literal	0x34
0071 4803       |H   |		Short_Literal	0x3
0072 00da       |    |		Load_Top	At_Offset_2
0073 01d6       |    |		Execute	Vector,Field_Write
0074 4837       |H7  |		Short_Literal	0x37
0075 4804       |H   |		Short_Literal	0x4
0076 00da       |    |		Load_Top	At_Offset_2
0077 01d6       |    |		Execute	Vector,Field_Write
0078 4820       |H   |		Short_Literal	0x20
0079 4805       |H   |		Short_Literal	0x5
007a 00da       |    |		Load_Top	At_Offset_2
007b 01d6       |    |		Execute	Vector,Field_Write
007c 4820       |H   |		Short_Literal	0x20
007d 4806       |H   |		Short_Literal	0x6
007e 00da       |    |		Load_Top	At_Offset_2
007f 01d6       |    |		Execute	Vector,Field_Write
0080 4820       |H   |		Short_Literal	0x20
0081 4807       |H   |		Short_Literal	0x7
0082 00da       |    |		Load_Top	At_Offset_2
0083 01d6       |    |		Execute	Vector,Field_Write
0084 4820       |H   |		Short_Literal	0x20
0085 4808       |H   |		Short_Literal	0x8
0086 00da       |    |		Load_Top	At_Offset_2
0087 01d6       |    |		Execute	Vector,Field_Write
0088 4820       |H   |		Short_Literal	0x20
0089 4809       |H   |		Short_Literal	0x9
008a 00da       |    |		Load_Top	At_Offset_2
008b 01d6       |    |		Execute	Vector,Field_Write
008c 4820       |H   |		Short_Literal	0x20
008d 480a       |H   |		Short_Literal	0xa
008e 00da       |    |		Load_Top	At_Offset_2
008f 01d6       |    |		Execute	Vector,Field_Write
0090 4820       |H   |		Short_Literal	0x20
0091 480b       |H   |		Short_Literal	0xb
0092 00da       |    |		Load_Top	At_Offset_2
0093 01d6       |    |		Execute	Vector,Field_Write
0094 4820       |H   |		Short_Literal	0x20
0095 480c       |H   |		Short_Literal	0xc
0096 00da       |    |		Load_Top	At_Offset_2
0097 01d6       |    |		Execute	Vector,Field_Write
0098 4820       |H   |		Short_Literal	0x20
0099 480d       |H   |		Short_Literal	0xd
009a 00da       |    |		Load_Top	At_Offset_2
009b 01d6       |    |		Execute	Vector,Field_Write
009c 4820       |H   |		Short_Literal	0x20
009d 480e       |H   |		Short_Literal	0xe
009e 00da       |    |		Load_Top	At_Offset_2
009f 01d6       |    |		Execute	Vector,Field_Write
00a0 4820       |H   |		Short_Literal	0x20
00a1 480f       |H   |		Short_Literal	0xf
00a2 00da       |    |		Load_Top	At_Offset_2
00a3 01d6       |    |		Execute	Vector,Field_Write
00a4 4820       |H   |		Short_Literal	0x20
00a5 4810       |H   |		Short_Literal	0x10
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 01d6       |    |		Execute	Vector,Field_Write
00a8 4820       |H   |		Short_Literal	0x20
00a9 4811       |H   |		Short_Literal	0x11
00aa 00da       |    |		Load_Top	At_Offset_2
00ab 01d6       |    |		Execute	Vector,Field_Write
00ac 4820       |H   |		Short_Literal	0x20
00ad 4812       |H   |		Short_Literal	0x12
00ae 00da       |    |		Load_Top	At_Offset_2
00af 01d6       |    |		Execute	Vector,Field_Write
00b0 4820       |H   |		Short_Literal	0x20
00b1 4813       |H   |		Short_Literal	0x13
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 01d6       |    |		Execute	Vector,Field_Write
00b4 4820       |H   |		Short_Literal	0x20
00b5 4814       |H   |		Short_Literal	0x14
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 01d6       |    |		Execute	Vector,Field_Write
00b8 4820       |H   |		Short_Literal	0x20
00b9 4815       |H   |		Short_Literal	0x15
00ba 00da       |    |		Load_Top	At_Offset_2
00bb 01d6       |    |		Execute	Vector,Field_Write
00bc 4820       |H   |		Short_Literal	0x20
00bd 4816       |H   |		Short_Literal	0x16
00be 00da       |    |		Load_Top	At_Offset_2
00bf 01d6       |    |		Execute	Vector,Field_Write
00c0 4820       |H   |		Short_Literal	0x20
00c1 4817       |H   |		Short_Literal	0x17
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 01d6       |    |		Execute	Vector,Field_Write
00c4 4820       |H   |		Short_Literal	0x20
00c5 4818       |H   |		Short_Literal	0x18
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 01d6       |    |		Execute	Vector,Field_Write
00c8 4820       |H   |		Short_Literal	0x20
00c9 4819       |H   |		Short_Literal	0x19
00ca 00da       |    |		Load_Top	At_Offset_2
00cb 01d6       |    |		Execute	Vector,Field_Write
00cc 4820       |H   |		Short_Literal	0x20
00cd 481a       |H   |		Short_Literal	0x1a
00ce 00da       |    |		Load_Top	At_Offset_2
00cf 01d6       |    |		Execute	Vector,Field_Write
00d0 4820       |H   |		Short_Literal	0x20
00d1 481b       |H   |		Short_Literal	0x1b
00d2 00da       |    |		Load_Top	At_Offset_2
00d3 01d6       |    |		Execute	Vector,Field_Write
00d4 4820       |H   |		Short_Literal	0x20
00d5 481c       |H   |		Short_Literal	0x1c
00d6 00da       |    |		Load_Top	At_Offset_2
00d7 01d6       |    |		Execute	Vector,Field_Write
00d8 4820       |H   |		Short_Literal	0x20
00d9 481d       |H   |		Short_Literal	0x1d
00da 00da       |    |		Load_Top	At_Offset_2
00db 01d6       |    |		Execute	Vector,Field_Write
00dc 4820       |H   |		Short_Literal	0x20
00dd 481e       |H   |		Short_Literal	0x1e
00de 00da       |    |		Load_Top	At_Offset_2
00df 01d6       |    |		Execute	Vector,Field_Write
00e0 e215       |    |		Load	0x1,0x15
00e1 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
00e2 0119       |    |		Execute	Any,Check_In_Formal_Type
00e3 00d9       |    |		Load_Top	At_Offset_1
00e4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e5 e215       |    |		Load	0x1,0x15
00e6 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
00e7 0337       | 7  |		Declare_Variable	Array
00e8 484c       |HL  |		Short_Literal	0x4c
00e9 4801       |H   |		Short_Literal	0x1
00ea 00da       |    |		Load_Top	At_Offset_2
00eb 01d6       |    |		Execute	Vector,Field_Write
00ec 4820       |H   |		Short_Literal	0x20
00ed 4802       |H   |		Short_Literal	0x2
00ee 00da       |    |		Load_Top	At_Offset_2
00ef 01d6       |    |		Execute	Vector,Field_Write
00f0 4831       |H1  |		Short_Literal	0x31
00f1 4803       |H   |		Short_Literal	0x3
00f2 00da       |    |		Load_Top	At_Offset_2
00f3 01d6       |    |		Execute	Vector,Field_Write
00f4 4830       |H0  |		Short_Literal	0x30
00f5 4804       |H   |		Short_Literal	0x4
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 01d6       |    |		Execute	Vector,Field_Write
00f8 4830       |H0  |		Short_Literal	0x30
00f9 4805       |H   |		Short_Literal	0x5
00fa 00da       |    |		Load_Top	At_Offset_2
00fb 01d6       |    |		Execute	Vector,Field_Write
00fc 4830       |H0  |		Short_Literal	0x30
00fd 4806       |H   |		Short_Literal	0x6
00fe 00da       |    |		Load_Top	At_Offset_2
00ff 01d6       |    |		Execute	Vector,Field_Write
0100 4831       |H1  |		Short_Literal	0x31
0101 4807       |H   |		Short_Literal	0x7
0102 00da       |    |		Load_Top	At_Offset_2
0103 01d6       |    |		Execute	Vector,Field_Write
0104 4820       |H   |		Short_Literal	0x20
0105 4808       |H   |		Short_Literal	0x8
0106 00da       |    |		Load_Top	At_Offset_2
0107 01d6       |    |		Execute	Vector,Field_Write
0108 4820       |H   |		Short_Literal	0x20
0109 4809       |H   |		Short_Literal	0x9
010a 00da       |    |		Load_Top	At_Offset_2
010b 01d6       |    |		Execute	Vector,Field_Write
010c 4820       |H   |		Short_Literal	0x20
010d 480a       |H   |		Short_Literal	0xa
010e 00da       |    |		Load_Top	At_Offset_2
010f 01d6       |    |		Execute	Vector,Field_Write
0110 4820       |H   |		Short_Literal	0x20
0111 480b       |H   |		Short_Literal	0xb
0112 00da       |    |		Load_Top	At_Offset_2
0113 01d6       |    |		Execute	Vector,Field_Write
0114 4820       |H   |		Short_Literal	0x20
0115 480c       |H   |		Short_Literal	0xc
0116 00da       |    |		Load_Top	At_Offset_2
0117 01d6       |    |		Execute	Vector,Field_Write
0118 4820       |H   |		Short_Literal	0x20
0119 480d       |H   |		Short_Literal	0xd
011a 00da       |    |		Load_Top	At_Offset_2
011b 01d6       |    |		Execute	Vector,Field_Write
011c 4820       |H   |		Short_Literal	0x20
011d 480e       |H   |		Short_Literal	0xe
011e 00da       |    |		Load_Top	At_Offset_2
011f 01d6       |    |		Execute	Vector,Field_Write
0120 4820       |H   |		Short_Literal	0x20
0121 480f       |H   |		Short_Literal	0xf
0122 00da       |    |		Load_Top	At_Offset_2
0123 01d6       |    |		Execute	Vector,Field_Write
0124 4820       |H   |		Short_Literal	0x20
0125 4810       |H   |		Short_Literal	0x10
0126 00da       |    |		Load_Top	At_Offset_2
0127 01d6       |    |		Execute	Vector,Field_Write
0128 4820       |H   |		Short_Literal	0x20
0129 4811       |H   |		Short_Literal	0x11
012a 00da       |    |		Load_Top	At_Offset_2
012b 01d6       |    |		Execute	Vector,Field_Write
012c 4820       |H   |		Short_Literal	0x20
012d 4812       |H   |		Short_Literal	0x12
012e 00da       |    |		Load_Top	At_Offset_2
012f 01d6       |    |		Execute	Vector,Field_Write
0130 4820       |H   |		Short_Literal	0x20
0131 4813       |H   |		Short_Literal	0x13
0132 00da       |    |		Load_Top	At_Offset_2
0133 01d6       |    |		Execute	Vector,Field_Write
0134 4820       |H   |		Short_Literal	0x20
0135 4814       |H   |		Short_Literal	0x14
0136 00da       |    |		Load_Top	At_Offset_2
0137 01d6       |    |		Execute	Vector,Field_Write
0138 4820       |H   |		Short_Literal	0x20
0139 4815       |H   |		Short_Literal	0x15
013a 00da       |    |		Load_Top	At_Offset_2
013b 01d6       |    |		Execute	Vector,Field_Write
013c 4820       |H   |		Short_Literal	0x20
013d 4816       |H   |		Short_Literal	0x16
013e 00da       |    |		Load_Top	At_Offset_2
013f 01d6       |    |		Execute	Vector,Field_Write
0140 4820       |H   |		Short_Literal	0x20
0141 4817       |H   |		Short_Literal	0x17
0142 00da       |    |		Load_Top	At_Offset_2
0143 01d6       |    |		Execute	Vector,Field_Write
0144 4820       |H   |		Short_Literal	0x20
0145 4818       |H   |		Short_Literal	0x18
0146 00da       |    |		Load_Top	At_Offset_2
0147 01d6       |    |		Execute	Vector,Field_Write
0148 4820       |H   |		Short_Literal	0x20
0149 4819       |H   |		Short_Literal	0x19
014a 00da       |    |		Load_Top	At_Offset_2
014b 01d6       |    |		Execute	Vector,Field_Write
014c 4820       |H   |		Short_Literal	0x20
014d 481a       |H   |		Short_Literal	0x1a
014e 00da       |    |		Load_Top	At_Offset_2
014f 01d6       |    |		Execute	Vector,Field_Write
0150 4820       |H   |		Short_Literal	0x20
0151 481b       |H   |		Short_Literal	0x1b
0152 00da       |    |		Load_Top	At_Offset_2
0153 01d6       |    |		Execute	Vector,Field_Write
0154 4820       |H   |		Short_Literal	0x20
0155 481c       |H   |		Short_Literal	0x1c
0156 00da       |    |		Load_Top	At_Offset_2
0157 01d6       |    |		Execute	Vector,Field_Write
0158 4820       |H   |		Short_Literal	0x20
0159 481d       |H   |		Short_Literal	0x1d
015a 00da       |    |		Load_Top	At_Offset_2
015b 01d6       |    |		Execute	Vector,Field_Write
015c 4820       |H   |		Short_Literal	0x20
015d 481e       |H   |		Short_Literal	0x1e
015e 00da       |    |		Load_Top	At_Offset_2
015f 01d6       |    |		Execute	Vector,Field_Write
0160 e215       |    |		Load	0x1,0x15
0161 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0162 0119       |    |		Execute	Any,Check_In_Formal_Type
0163 00d9       |    |		Load_Top	At_Offset_1
0164 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0165 e216       |    |		Load	0x1,0x16
0166 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0167 e215       |    |		Load	0x1,0x15
0168 0322       | "  |		Declare_Variable	Record
0169 e215       |    |		Load	0x1,0x15
016a 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
016b 0337       | 7  |		Declare_Variable	Array
016c 4841       |HA  |		Short_Literal	0x41
016d 4801       |H   |		Short_Literal	0x1
016e 00da       |    |		Load_Top	At_Offset_2
016f 01d6       |    |		Execute	Vector,Field_Write
0170 4833       |H3  |		Short_Literal	0x33
0171 4802       |H   |		Short_Literal	0x2
0172 00da       |    |		Load_Top	At_Offset_2
0173 01d6       |    |		Execute	Vector,Field_Write
0174 4832       |H2  |		Short_Literal	0x32
0175 4803       |H   |		Short_Literal	0x3
0176 00da       |    |		Load_Top	At_Offset_2
0177 01d6       |    |		Execute	Vector,Field_Write
0178 4830       |H0  |		Short_Literal	0x30
0179 4804       |H   |		Short_Literal	0x4
017a 00da       |    |		Load_Top	At_Offset_2
017b 01d6       |    |		Execute	Vector,Field_Write
017c 4820       |H   |		Short_Literal	0x20
017d 4805       |H   |		Short_Literal	0x5
017e 00da       |    |		Load_Top	At_Offset_2
017f 01d6       |    |		Execute	Vector,Field_Write
0180 4820       |H   |		Short_Literal	0x20
0181 4806       |H   |		Short_Literal	0x6
0182 00da       |    |		Load_Top	At_Offset_2
0183 01d6       |    |		Execute	Vector,Field_Write
0184 4820       |H   |		Short_Literal	0x20
0185 4807       |H   |		Short_Literal	0x7
0186 00da       |    |		Load_Top	At_Offset_2
0187 01d6       |    |		Execute	Vector,Field_Write
0188 4820       |H   |		Short_Literal	0x20
0189 4808       |H   |		Short_Literal	0x8
018a 00da       |    |		Load_Top	At_Offset_2
018b 01d6       |    |		Execute	Vector,Field_Write
018c 4820       |H   |		Short_Literal	0x20
018d 4809       |H   |		Short_Literal	0x9
018e 00da       |    |		Load_Top	At_Offset_2
018f 01d6       |    |		Execute	Vector,Field_Write
0190 4820       |H   |		Short_Literal	0x20
0191 480a       |H   |		Short_Literal	0xa
0192 00da       |    |		Load_Top	At_Offset_2
0193 01d6       |    |		Execute	Vector,Field_Write
0194 4820       |H   |		Short_Literal	0x20
0195 480b       |H   |		Short_Literal	0xb
0196 00da       |    |		Load_Top	At_Offset_2
0197 01d6       |    |		Execute	Vector,Field_Write
0198 4820       |H   |		Short_Literal	0x20
0199 480c       |H   |		Short_Literal	0xc
019a 00da       |    |		Load_Top	At_Offset_2
019b 01d6       |    |		Execute	Vector,Field_Write
019c 4820       |H   |		Short_Literal	0x20
019d 480d       |H   |		Short_Literal	0xd
019e 00da       |    |		Load_Top	At_Offset_2
019f 01d6       |    |		Execute	Vector,Field_Write
01a0 4820       |H   |		Short_Literal	0x20
01a1 480e       |H   |		Short_Literal	0xe
01a2 00da       |    |		Load_Top	At_Offset_2
01a3 01d6       |    |		Execute	Vector,Field_Write
01a4 4820       |H   |		Short_Literal	0x20
01a5 480f       |H   |		Short_Literal	0xf
01a6 00da       |    |		Load_Top	At_Offset_2
01a7 01d6       |    |		Execute	Vector,Field_Write
01a8 4820       |H   |		Short_Literal	0x20
01a9 4810       |H   |		Short_Literal	0x10
01aa 00da       |    |		Load_Top	At_Offset_2
01ab 01d6       |    |		Execute	Vector,Field_Write
01ac 4820       |H   |		Short_Literal	0x20
01ad 4811       |H   |		Short_Literal	0x11
01ae 00da       |    |		Load_Top	At_Offset_2
01af 01d6       |    |		Execute	Vector,Field_Write
01b0 4820       |H   |		Short_Literal	0x20
01b1 4812       |H   |		Short_Literal	0x12
01b2 00da       |    |		Load_Top	At_Offset_2
01b3 01d6       |    |		Execute	Vector,Field_Write
01b4 4820       |H   |		Short_Literal	0x20
01b5 4813       |H   |		Short_Literal	0x13
01b6 00da       |    |		Load_Top	At_Offset_2
01b7 01d6       |    |		Execute	Vector,Field_Write
01b8 4820       |H   |		Short_Literal	0x20
01b9 4814       |H   |		Short_Literal	0x14
01ba 00da       |    |		Load_Top	At_Offset_2
01bb 01d6       |    |		Execute	Vector,Field_Write
01bc 4820       |H   |		Short_Literal	0x20
01bd 4815       |H   |		Short_Literal	0x15
01be 00da       |    |		Load_Top	At_Offset_2
01bf 01d6       |    |		Execute	Vector,Field_Write
01c0 4820       |H   |		Short_Literal	0x20
01c1 4816       |H   |		Short_Literal	0x16
01c2 00da       |    |		Load_Top	At_Offset_2
01c3 01d6       |    |		Execute	Vector,Field_Write
01c4 4820       |H   |		Short_Literal	0x20
01c5 4817       |H   |		Short_Literal	0x17
01c6 00da       |    |		Load_Top	At_Offset_2
01c7 01d6       |    |		Execute	Vector,Field_Write
01c8 4820       |H   |		Short_Literal	0x20
01c9 4818       |H   |		Short_Literal	0x18
01ca 00da       |    |		Load_Top	At_Offset_2
01cb 01d6       |    |		Execute	Vector,Field_Write
01cc 4820       |H   |		Short_Literal	0x20
01cd 4819       |H   |		Short_Literal	0x19
01ce 00da       |    |		Load_Top	At_Offset_2
01cf 01d6       |    |		Execute	Vector,Field_Write
01d0 4820       |H   |		Short_Literal	0x20
01d1 481a       |H   |		Short_Literal	0x1a
01d2 00da       |    |		Load_Top	At_Offset_2
01d3 01d6       |    |		Execute	Vector,Field_Write
01d4 4820       |H   |		Short_Literal	0x20
01d5 481b       |H   |		Short_Literal	0x1b
01d6 00da       |    |		Load_Top	At_Offset_2
01d7 01d6       |    |		Execute	Vector,Field_Write
01d8 4820       |H   |		Short_Literal	0x20
01d9 481c       |H   |		Short_Literal	0x1c
01da 00da       |    |		Load_Top	At_Offset_2
01db 01d6       |    |		Execute	Vector,Field_Write
01dc 4820       |H   |		Short_Literal	0x20
01dd 481d       |H   |		Short_Literal	0x1d
01de 00da       |    |		Load_Top	At_Offset_2
01df 01d6       |    |		Execute	Vector,Field_Write
01e0 4820       |H   |		Short_Literal	0x20
01e1 481e       |H   |		Short_Literal	0x1e
01e2 00da       |    |		Load_Top	At_Offset_2
01e3 01d6       |    |		Execute	Vector,Field_Write
01e4 e215       |    |		Load	0x1,0x15
01e5 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
01e6 0119       |    |		Execute	Any,Check_In_Formal_Type
01e7 00d9       |    |		Load_Top	At_Offset_1
01e8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01e9 e215       |    |		Load	0x1,0x15
01ea 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
01eb 0337       | 7  |		Declare_Variable	Array
01ec 484c       |HL  |		Short_Literal	0x4c
01ed 4801       |H   |		Short_Literal	0x1
01ee 00da       |    |		Load_Top	At_Offset_2
01ef 01d6       |    |		Execute	Vector,Field_Write
01f0 4820       |H   |		Short_Literal	0x20
01f1 4802       |H   |		Short_Literal	0x2
01f2 00da       |    |		Load_Top	At_Offset_2
01f3 01d6       |    |		Execute	Vector,Field_Write
01f4 4831       |H1  |		Short_Literal	0x31
01f5 4803       |H   |		Short_Literal	0x3
01f6 00da       |    |		Load_Top	At_Offset_2
01f7 01d6       |    |		Execute	Vector,Field_Write
01f8 4830       |H0  |		Short_Literal	0x30
01f9 4804       |H   |		Short_Literal	0x4
01fa 00da       |    |		Load_Top	At_Offset_2
01fb 01d6       |    |		Execute	Vector,Field_Write
01fc 4830       |H0  |		Short_Literal	0x30
01fd 4805       |H   |		Short_Literal	0x5
01fe 00da       |    |		Load_Top	At_Offset_2
01ff 01d6       |    |		Execute	Vector,Field_Write
0200 4830       |H0  |		Short_Literal	0x30
0201 4806       |H   |		Short_Literal	0x6
0202 00da       |    |		Load_Top	At_Offset_2
0203 01d6       |    |		Execute	Vector,Field_Write
0204 4832       |H2  |		Short_Literal	0x32
0205 4807       |H   |		Short_Literal	0x7
0206 00da       |    |		Load_Top	At_Offset_2
0207 01d6       |    |		Execute	Vector,Field_Write
0208 4820       |H   |		Short_Literal	0x20
0209 4808       |H   |		Short_Literal	0x8
020a 00da       |    |		Load_Top	At_Offset_2
020b 01d6       |    |		Execute	Vector,Field_Write
020c 4820       |H   |		Short_Literal	0x20
020d 4809       |H   |		Short_Literal	0x9
020e 00da       |    |		Load_Top	At_Offset_2
020f 01d6       |    |		Execute	Vector,Field_Write
0210 4820       |H   |		Short_Literal	0x20
0211 480a       |H   |		Short_Literal	0xa
0212 00da       |    |		Load_Top	At_Offset_2
0213 01d6       |    |		Execute	Vector,Field_Write
0214 4820       |H   |		Short_Literal	0x20
0215 480b       |H   |		Short_Literal	0xb
0216 00da       |    |		Load_Top	At_Offset_2
0217 01d6       |    |		Execute	Vector,Field_Write
0218 4820       |H   |		Short_Literal	0x20
0219 480c       |H   |		Short_Literal	0xc
021a 00da       |    |		Load_Top	At_Offset_2
021b 01d6       |    |		Execute	Vector,Field_Write
021c 4820       |H   |		Short_Literal	0x20
021d 480d       |H   |		Short_Literal	0xd
021e 00da       |    |		Load_Top	At_Offset_2
021f 01d6       |    |		Execute	Vector,Field_Write
0220 4820       |H   |		Short_Literal	0x20
0221 480e       |H   |		Short_Literal	0xe
0222 00da       |    |		Load_Top	At_Offset_2
0223 01d6       |    |		Execute	Vector,Field_Write
0224 4820       |H   |		Short_Literal	0x20
0225 480f       |H   |		Short_Literal	0xf
0226 00da       |    |		Load_Top	At_Offset_2
0227 01d6       |    |		Execute	Vector,Field_Write
0228 4820       |H   |		Short_Literal	0x20
0229 4810       |H   |		Short_Literal	0x10
022a 00da       |    |		Load_Top	At_Offset_2
022b 01d6       |    |		Execute	Vector,Field_Write
022c 4820       |H   |		Short_Literal	0x20
022d 4811       |H   |		Short_Literal	0x11
022e 00da       |    |		Load_Top	At_Offset_2
022f 01d6       |    |		Execute	Vector,Field_Write
0230 4820       |H   |		Short_Literal	0x20
0231 4812       |H   |		Short_Literal	0x12
0232 00da       |    |		Load_Top	At_Offset_2
0233 01d6       |    |		Execute	Vector,Field_Write
0234 4820       |H   |		Short_Literal	0x20
0235 4813       |H   |		Short_Literal	0x13
0236 00da       |    |		Load_Top	At_Offset_2
0237 01d6       |    |		Execute	Vector,Field_Write
0238 4820       |H   |		Short_Literal	0x20
0239 4814       |H   |		Short_Literal	0x14
023a 00da       |    |		Load_Top	At_Offset_2
023b 01d6       |    |		Execute	Vector,Field_Write
023c 4820       |H   |		Short_Literal	0x20
023d 4815       |H   |		Short_Literal	0x15
023e 00da       |    |		Load_Top	At_Offset_2
023f 01d6       |    |		Execute	Vector,Field_Write
0240 4820       |H   |		Short_Literal	0x20
0241 4816       |H   |		Short_Literal	0x16
0242 00da       |    |		Load_Top	At_Offset_2
0243 01d6       |    |		Execute	Vector,Field_Write
0244 4820       |H   |		Short_Literal	0x20
0245 4817       |H   |		Short_Literal	0x17
0246 00da       |    |		Load_Top	At_Offset_2
0247 01d6       |    |		Execute	Vector,Field_Write
0248 4820       |H   |		Short_Literal	0x20
0249 4818       |H   |		Short_Literal	0x18
024a 00da       |    |		Load_Top	At_Offset_2
024b 01d6       |    |		Execute	Vector,Field_Write
024c 4820       |H   |		Short_Literal	0x20
024d 4819       |H   |		Short_Literal	0x19
024e 00da       |    |		Load_Top	At_Offset_2
024f 01d6       |    |		Execute	Vector,Field_Write
0250 4820       |H   |		Short_Literal	0x20
0251 481a       |H   |		Short_Literal	0x1a
0252 00da       |    |		Load_Top	At_Offset_2
0253 01d6       |    |		Execute	Vector,Field_Write
0254 4820       |H   |		Short_Literal	0x20
0255 481b       |H   |		Short_Literal	0x1b
0256 00da       |    |		Load_Top	At_Offset_2
0257 01d6       |    |		Execute	Vector,Field_Write
0258 4820       |H   |		Short_Literal	0x20
0259 481c       |H   |		Short_Literal	0x1c
025a 00da       |    |		Load_Top	At_Offset_2
025b 01d6       |    |		Execute	Vector,Field_Write
025c 4820       |H   |		Short_Literal	0x20
025d 481d       |H   |		Short_Literal	0x1d
025e 00da       |    |		Load_Top	At_Offset_2
025f 01d6       |    |		Execute	Vector,Field_Write
0260 4820       |H   |		Short_Literal	0x20
0261 481e       |H   |		Short_Literal	0x1e
0262 00da       |    |		Load_Top	At_Offset_2
0263 01d6       |    |		Execute	Vector,Field_Write
0264 e215       |    |		Load	0x1,0x15
0265 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0266 0119       |    |		Execute	Any,Check_In_Formal_Type
0267 00d9       |    |		Load_Top	At_Offset_1
0268 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0269 e216       |    |		Load	0x1,0x16
026a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
026b e215       |    |		Load	0x1,0x15
026c 0322       | "  |		Declare_Variable	Record
026d e215       |    |		Load	0x1,0x15
026e 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
026f 0337       | 7  |		Declare_Variable	Array
0270 4844       |HD  |		Short_Literal	0x44
0271 4801       |H   |		Short_Literal	0x1
0272 00da       |    |		Load_Top	At_Offset_2
0273 01d6       |    |		Execute	Vector,Field_Write
0274 4843       |HC  |		Short_Literal	0x43
0275 4802       |H   |		Short_Literal	0x2
0276 00da       |    |		Load_Top	At_Offset_2
0277 01d6       |    |		Execute	Vector,Field_Write
0278 4831       |H1  |		Short_Literal	0x31
0279 4803       |H   |		Short_Literal	0x3
027a 00da       |    |		Load_Top	At_Offset_2
027b 01d6       |    |		Execute	Vector,Field_Write
027c 4830       |H0  |		Short_Literal	0x30
027d 4804       |H   |		Short_Literal	0x4
027e 00da       |    |		Load_Top	At_Offset_2
027f 01d6       |    |		Execute	Vector,Field_Write
0280 4820       |H   |		Short_Literal	0x20
0281 4805       |H   |		Short_Literal	0x5
0282 00da       |    |		Load_Top	At_Offset_2
0283 01d6       |    |		Execute	Vector,Field_Write
0284 4820       |H   |		Short_Literal	0x20
0285 4806       |H   |		Short_Literal	0x6
0286 00da       |    |		Load_Top	At_Offset_2
0287 01d6       |    |		Execute	Vector,Field_Write
0288 4820       |H   |		Short_Literal	0x20
0289 4807       |H   |		Short_Literal	0x7
028a 00da       |    |		Load_Top	At_Offset_2
028b 01d6       |    |		Execute	Vector,Field_Write
028c 4820       |H   |		Short_Literal	0x20
028d 4808       |H   |		Short_Literal	0x8
028e 00da       |    |		Load_Top	At_Offset_2
028f 01d6       |    |		Execute	Vector,Field_Write
0290 4820       |H   |		Short_Literal	0x20
0291 4809       |H   |		Short_Literal	0x9
0292 00da       |    |		Load_Top	At_Offset_2
0293 01d6       |    |		Execute	Vector,Field_Write
0294 4820       |H   |		Short_Literal	0x20
0295 480a       |H   |		Short_Literal	0xa
0296 00da       |    |		Load_Top	At_Offset_2
0297 01d6       |    |		Execute	Vector,Field_Write
0298 4820       |H   |		Short_Literal	0x20
0299 480b       |H   |		Short_Literal	0xb
029a 00da       |    |		Load_Top	At_Offset_2
029b 01d6       |    |		Execute	Vector,Field_Write
029c 4820       |H   |		Short_Literal	0x20
029d 480c       |H   |		Short_Literal	0xc
029e 00da       |    |		Load_Top	At_Offset_2
029f 01d6       |    |		Execute	Vector,Field_Write
02a0 4820       |H   |		Short_Literal	0x20
02a1 480d       |H   |		Short_Literal	0xd
02a2 00da       |    |		Load_Top	At_Offset_2
02a3 01d6       |    |		Execute	Vector,Field_Write
02a4 4820       |H   |		Short_Literal	0x20
02a5 480e       |H   |		Short_Literal	0xe
02a6 00da       |    |		Load_Top	At_Offset_2
02a7 01d6       |    |		Execute	Vector,Field_Write
02a8 4820       |H   |		Short_Literal	0x20
02a9 480f       |H   |		Short_Literal	0xf
02aa 00da       |    |		Load_Top	At_Offset_2
02ab 01d6       |    |		Execute	Vector,Field_Write
02ac 4820       |H   |		Short_Literal	0x20
02ad 4810       |H   |		Short_Literal	0x10
02ae 00da       |    |		Load_Top	At_Offset_2
02af 01d6       |    |		Execute	Vector,Field_Write
02b0 4820       |H   |		Short_Literal	0x20
02b1 4811       |H   |		Short_Literal	0x11
02b2 00da       |    |		Load_Top	At_Offset_2
02b3 01d6       |    |		Execute	Vector,Field_Write
02b4 4820       |H   |		Short_Literal	0x20
02b5 4812       |H   |		Short_Literal	0x12
02b6 00da       |    |		Load_Top	At_Offset_2
02b7 01d6       |    |		Execute	Vector,Field_Write
02b8 4820       |H   |		Short_Literal	0x20
02b9 4813       |H   |		Short_Literal	0x13
02ba 00da       |    |		Load_Top	At_Offset_2
02bb 01d6       |    |		Execute	Vector,Field_Write
02bc 4820       |H   |		Short_Literal	0x20
02bd 4814       |H   |		Short_Literal	0x14
02be 00da       |    |		Load_Top	At_Offset_2
02bf 01d6       |    |		Execute	Vector,Field_Write
02c0 4820       |H   |		Short_Literal	0x20
02c1 4815       |H   |		Short_Literal	0x15
02c2 00da       |    |		Load_Top	At_Offset_2
02c3 01d6       |    |		Execute	Vector,Field_Write
02c4 4820       |H   |		Short_Literal	0x20
02c5 4816       |H   |		Short_Literal	0x16
02c6 00da       |    |		Load_Top	At_Offset_2
02c7 01d6       |    |		Execute	Vector,Field_Write
02c8 4820       |H   |		Short_Literal	0x20
02c9 4817       |H   |		Short_Literal	0x17
02ca 00da       |    |		Load_Top	At_Offset_2
02cb 01d6       |    |		Execute	Vector,Field_Write
02cc 4820       |H   |		Short_Literal	0x20
02cd 4818       |H   |		Short_Literal	0x18
02ce 00da       |    |		Load_Top	At_Offset_2
02cf 01d6       |    |		Execute	Vector,Field_Write
02d0 4820       |H   |		Short_Literal	0x20
02d1 4819       |H   |		Short_Literal	0x19
02d2 00da       |    |		Load_Top	At_Offset_2
02d3 01d6       |    |		Execute	Vector,Field_Write
02d4 4820       |H   |		Short_Literal	0x20
02d5 481a       |H   |		Short_Literal	0x1a
02d6 00da       |    |		Load_Top	At_Offset_2
02d7 01d6       |    |		Execute	Vector,Field_Write
02d8 4820       |H   |		Short_Literal	0x20
02d9 481b       |H   |		Short_Literal	0x1b
02da 00da       |    |		Load_Top	At_Offset_2
02db 01d6       |    |		Execute	Vector,Field_Write
02dc 4820       |H   |		Short_Literal	0x20
02dd 481c       |H   |		Short_Literal	0x1c
02de 00da       |    |		Load_Top	At_Offset_2
02df 01d6       |    |		Execute	Vector,Field_Write
02e0 4820       |H   |		Short_Literal	0x20
02e1 481d       |H   |		Short_Literal	0x1d
02e2 00da       |    |		Load_Top	At_Offset_2
02e3 01d6       |    |		Execute	Vector,Field_Write
02e4 4820       |H   |		Short_Literal	0x20
02e5 481e       |H   |		Short_Literal	0x1e
02e6 00da       |    |		Load_Top	At_Offset_2
02e7 01d6       |    |		Execute	Vector,Field_Write
02e8 e215       |    |		Load	0x1,0x15
02e9 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
02ea 0119       |    |		Execute	Any,Check_In_Formal_Type
02eb 00d9       |    |		Load_Top	At_Offset_1
02ec 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ed e215       |    |		Load	0x1,0x15
02ee 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
02ef 0337       | 7  |		Declare_Variable	Array
02f0 484c       |HL  |		Short_Literal	0x4c
02f1 4801       |H   |		Short_Literal	0x1
02f2 00da       |    |		Load_Top	At_Offset_2
02f3 01d6       |    |		Execute	Vector,Field_Write
02f4 4820       |H   |		Short_Literal	0x20
02f5 4802       |H   |		Short_Literal	0x2
02f6 00da       |    |		Load_Top	At_Offset_2
02f7 01d6       |    |		Execute	Vector,Field_Write
02f8 4831       |H1  |		Short_Literal	0x31
02f9 4803       |H   |		Short_Literal	0x3
02fa 00da       |    |		Load_Top	At_Offset_2
02fb 01d6       |    |		Execute	Vector,Field_Write
02fc 4830       |H0  |		Short_Literal	0x30
02fd 4804       |H   |		Short_Literal	0x4
02fe 00da       |    |		Load_Top	At_Offset_2
02ff 01d6       |    |		Execute	Vector,Field_Write
0300 4830       |H0  |		Short_Literal	0x30
0301 4805       |H   |		Short_Literal	0x5
0302 00da       |    |		Load_Top	At_Offset_2
0303 01d6       |    |		Execute	Vector,Field_Write
0304 4830       |H0  |		Short_Literal	0x30
0305 4806       |H   |		Short_Literal	0x6
0306 00da       |    |		Load_Top	At_Offset_2
0307 01d6       |    |		Execute	Vector,Field_Write
0308 4833       |H3  |		Short_Literal	0x33
0309 4807       |H   |		Short_Literal	0x7
030a 00da       |    |		Load_Top	At_Offset_2
030b 01d6       |    |		Execute	Vector,Field_Write
030c 4820       |H   |		Short_Literal	0x20
030d 4808       |H   |		Short_Literal	0x8
030e 00da       |    |		Load_Top	At_Offset_2
030f 01d6       |    |		Execute	Vector,Field_Write
0310 4820       |H   |		Short_Literal	0x20
0311 4809       |H   |		Short_Literal	0x9
0312 00da       |    |		Load_Top	At_Offset_2
0313 01d6       |    |		Execute	Vector,Field_Write
0314 4820       |H   |		Short_Literal	0x20
0315 480a       |H   |		Short_Literal	0xa
0316 00da       |    |		Load_Top	At_Offset_2
0317 01d6       |    |		Execute	Vector,Field_Write
0318 4820       |H   |		Short_Literal	0x20
0319 480b       |H   |		Short_Literal	0xb
031a 00da       |    |		Load_Top	At_Offset_2
031b 01d6       |    |		Execute	Vector,Field_Write
031c 4820       |H   |		Short_Literal	0x20
031d 480c       |H   |		Short_Literal	0xc
031e 00da       |    |		Load_Top	At_Offset_2
031f 01d6       |    |		Execute	Vector,Field_Write
0320 4820       |H   |		Short_Literal	0x20
0321 480d       |H   |		Short_Literal	0xd
0322 00da       |    |		Load_Top	At_Offset_2
0323 01d6       |    |		Execute	Vector,Field_Write
0324 4820       |H   |		Short_Literal	0x20
0325 480e       |H   |		Short_Literal	0xe
0326 00da       |    |		Load_Top	At_Offset_2
0327 01d6       |    |		Execute	Vector,Field_Write
0328 4820       |H   |		Short_Literal	0x20
0329 480f       |H   |		Short_Literal	0xf
032a 00da       |    |		Load_Top	At_Offset_2
032b 01d6       |    |		Execute	Vector,Field_Write
032c 4820       |H   |		Short_Literal	0x20
032d 4810       |H   |		Short_Literal	0x10
032e 00da       |    |		Load_Top	At_Offset_2
032f 01d6       |    |		Execute	Vector,Field_Write
0330 4820       |H   |		Short_Literal	0x20
0331 4811       |H   |		Short_Literal	0x11
0332 00da       |    |		Load_Top	At_Offset_2
0333 01d6       |    |		Execute	Vector,Field_Write
0334 4820       |H   |		Short_Literal	0x20
0335 4812       |H   |		Short_Literal	0x12
0336 00da       |    |		Load_Top	At_Offset_2
0337 01d6       |    |		Execute	Vector,Field_Write
0338 4820       |H   |		Short_Literal	0x20
0339 4813       |H   |		Short_Literal	0x13
033a 00da       |    |		Load_Top	At_Offset_2
033b 01d6       |    |		Execute	Vector,Field_Write
033c 4820       |H   |		Short_Literal	0x20
033d 4814       |H   |		Short_Literal	0x14
033e 00da       |    |		Load_Top	At_Offset_2
033f 01d6       |    |		Execute	Vector,Field_Write
0340 4820       |H   |		Short_Literal	0x20
0341 4815       |H   |		Short_Literal	0x15
0342 00da       |    |		Load_Top	At_Offset_2
0343 01d6       |    |		Execute	Vector,Field_Write
0344 4820       |H   |		Short_Literal	0x20
0345 4816       |H   |		Short_Literal	0x16
0346 00da       |    |		Load_Top	At_Offset_2
0347 01d6       |    |		Execute	Vector,Field_Write
0348 4820       |H   |		Short_Literal	0x20
0349 4817       |H   |		Short_Literal	0x17
034a 00da       |    |		Load_Top	At_Offset_2
034b 01d6       |    |		Execute	Vector,Field_Write
034c 4820       |H   |		Short_Literal	0x20
034d 4818       |H   |		Short_Literal	0x18
034e 00da       |    |		Load_Top	At_Offset_2
034f 01d6       |    |		Execute	Vector,Field_Write
0350 4820       |H   |		Short_Literal	0x20
0351 4819       |H   |		Short_Literal	0x19
0352 00da       |    |		Load_Top	At_Offset_2
0353 01d6       |    |		Execute	Vector,Field_Write
0354 4820       |H   |		Short_Literal	0x20
0355 481a       |H   |		Short_Literal	0x1a
0356 00da       |    |		Load_Top	At_Offset_2
0357 01d6       |    |		Execute	Vector,Field_Write
0358 4820       |H   |		Short_Literal	0x20
0359 481b       |H   |		Short_Literal	0x1b
035a 00da       |    |		Load_Top	At_Offset_2
035b 01d6       |    |		Execute	Vector,Field_Write
035c 4820       |H   |		Short_Literal	0x20
035d 481c       |H   |		Short_Literal	0x1c
035e 00da       |    |		Load_Top	At_Offset_2
035f 01d6       |    |		Execute	Vector,Field_Write
0360 4820       |H   |		Short_Literal	0x20
0361 481d       |H   |		Short_Literal	0x1d
0362 00da       |    |		Load_Top	At_Offset_2
0363 01d6       |    |		Execute	Vector,Field_Write
0364 4820       |H   |		Short_Literal	0x20
0365 481e       |H   |		Short_Literal	0x1e
0366 00da       |    |		Load_Top	At_Offset_2
0367 01d6       |    |		Execute	Vector,Field_Write
0368 e215       |    |		Load	0x1,0x15
0369 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
036a 0119       |    |		Execute	Any,Check_In_Formal_Type
036b 00d9       |    |		Load_Top	At_Offset_1
036c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
036d e216       |    |		Load	0x1,0x16
036e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
036f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 e216       |    |		Load	0x1,0x16
0374 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0375 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0376 ; --------------------------------------------------------------------------------------
0376 ; STRING TABLE
0376 ; --------------------------------------------------------------------------------------
0376 0004       |    |		.STRTAB	0x0004->0x0378							; "PERMIS    "
0377 000c       |    |		.STREND 0x000c->0x037d
0378 5045 524d  |PERM|		.STRTAB_STRINGS
037d 0000 0000  |    |		.XXX[0x3]
037f 0000       |    |
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug Table
0380 ; --------------------------------------------------------------------------------------
0380 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x8a1d,0x0000,0x0001,0x0007
0386 000b 03a2  |    |		.DBG4T	0x000b,0x03a2,0x8000,0x0000
038a 0021 03ac  | !  |		.DBG4T	0x0021,0x03ac,0x8000,0x0000
038e 004b 03b5  | K  |		.DBG4T	0x004b,0x03b5,0x0002,0x0000
0392 0053 03b8  | S  |		.DBG4T	0x0053,0x03b8,0x0002,0x0000
0396 005b 03bb  | [  |		.DBG4T	0x005b,0x03bb,0x0002,0x0000
039a 0063 03be  | c  |		.DBG4T	0x0063,0x03be,0x0001,0x0000
039e 0373 03c3  | s  |		.DBG4T	0x0373,0x03c3,0x0001,0x0000
03a2 ; --------------------------------------------------------------------------------------
03a2 ; Debug chain
03a2 ; --------------------------------------------------------------------------------------
03a2 0008 0000  |    |		.DBGLEN	0x0008,0x0000
03a4 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x0013,0x0016,0x0018,0x001a,0x001c,0x001e
03ac ; --------------------------------------------------------------------------------------
03ac ; Debug chain
03ac ; --------------------------------------------------------------------------------------
03ac 0007 0000  |    |		.DBGLEN	0x0007,0x0000
03ae 0021 0026  | ! &|		.DBGLNO	0x0021,0x0026,0x0037,0x0039,0x003b,0x003d,0x003f
03b5 ; --------------------------------------------------------------------------------------
03b5 ; Debug chain
03b5 ; --------------------------------------------------------------------------------------
03b5 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03b7 004b       | K  |		.DBGLNO	0x004b
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug chain
03b8 ; --------------------------------------------------------------------------------------
03b8 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03ba 0053       | S  |		.DBGLNO	0x0053
03bb ; --------------------------------------------------------------------------------------
03bb ; Debug chain
03bb ; --------------------------------------------------------------------------------------
03bb 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03bd 005b       | [  |		.DBGLNO	0x005b
03be ; --------------------------------------------------------------------------------------
03be ; Debug chain
03be ; --------------------------------------------------------------------------------------
03be 0000 0003  |    |		.DBGLEN	0x0000,0x0003
03c0 0063 0167  | c g|		.DBGLNO	0x0063,0x0167,0x026b
03c3 ; --------------------------------------------------------------------------------------
03c3 ; Debug chain
03c3 ; --------------------------------------------------------------------------------------
03c3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03c5 0373       | s  |		.DBGLNO	0x0373
03c6 0000 0000  |    |		.BLANK	0000[0x3a]