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

⟦fb6f93fe5⟧

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

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