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

⟦0a3ce4fad⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

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 0188       |    |		.CONST	0x0188								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0040       | @  |		.CONST	0x0040								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache
000c 0266       | f  |		Execute	Discrete,Bounds
000d e001       |    |		Load	0x0,0x1
000e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
000f 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
0011 4801       |H   |		Short_Literal	0x1
0012 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0013 00e3       |    |		Load_Encached	Natural_Cache
0014 e002       |    |		Load	0x0,0x2
0015 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0016 4801       |H   |		Short_Literal	0x1
0017 6048       |`H  |		Indirect_Literal	Discrete,0x60,{0x00000000, 0x7fffffff}
0018 e20d       |    |		Load	0x1,0xd
0019 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
001a 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
001c 4800       |H   |		Short_Literal	0x0
001d 4801       |H   |		Short_Literal	0x1
001e 4801       |H   |		Short_Literal	0x1
001f 4800       |H   |		Short_Literal	0x0
0020 4801       |H   |		Short_Literal	0x1
0021 4801       |H   |		Short_Literal	0x1
0022 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0023 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0025 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0027 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0029 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
002b 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
002d 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
002f 00bf       |    |		Action	Accept_Activation
0030 029d 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call
0032 029d 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call
0034 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
003f 00c7       |    |		Action	Elaborate_Subprogram
0040			BODY_0008:
0040 00bc       |    |		Action	Signal_Activated
0041 00bb       |    |		Action	Signal_Completion
0042 0000 0000  |    |		.BLANK	0000[0x6]
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 00d1       |    |		Pop_Control	Pop_Count_1
004c 00da       |    |		Load_Top	At_Offset_2
004d 01dc       |    |		Execute	Vector,Last
004e 00db       |    |		Load_Top	At_Offset_3
004f 01dd       |    |		Execute	Vector,First
0050 0263       | c  |		Execute	Discrete,Above_Bound
0051 700a       |p   |		Jump_Nonzero	0x5c
0052 00d8       |    |		Load_Top	At_Offset_0
0053 e5ff       |    |		Load	0x2,-0x1
0054 01d5       |    |		Execute	Vector,Field_Reference
0055 0125       | %  |		Execute	Any,Set_Constraint
0056 00d8       |    |		Load_Top	At_Offset_0
0057 e5ff       |    |		Load	0x2,-0x1
0058 01d5       |    |		Execute	Vector,Field_Reference
0059 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005a 0a01       |    |		Execute_Immediate	Plus,0x1
005b 7ff4       |    |		Jump	0x50
005c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
005d 0000 0000  |    |		.XXX[0x3]
005f 0000       |    |
0060 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0064 0000 0000  |    |		.BLANK	0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0073       | s  |		.CONST	0x0073								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b 00da       |    |		Load_Top	At_Offset_2
006c e003       |    |		Load	0x0,0x3
006d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
006e e5fe       |    |		Load	0x2,-0x2
006f 00d9       |    |		Load_Top	At_Offset_1
0070 e5ff       |    |		Load	0x2,-0x1
0071 e004       |    |		Load	0x0,0x4
0072 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0073			BODY_0068:
0073 00d8       |    |		Load_Top	At_Offset_0
0074 8216       |    |		Call	0x1,0x16
0075 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0076 0000 0000  |    |		.XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0083       |    |		.CONST	0x0083								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0003       |    |		.CONST	0x0003								; Number of locals
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2
007c e003       |    |		Load	0x0,0x3
007d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
007e e5fe       |    |		Load	0x2,-0x2
007f 00d9       |    |		Load_Top	At_Offset_1
0080 e5ff       |    |		Load	0x2,-0x1
0081 e004       |    |		Load	0x0,0x4
0082 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0083			BODY_0078:
0083 00d8       |    |		Load_Top	At_Offset_0
0084 8216       |    |		Call	0x1,0x16
0085 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0086 0000 0000  |    |		.XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0090       |    |		.CONST	0x0090								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0003       |    |		.CONST	0x0003								; Number of locals
008b			INIT_0088:
008b 00da       |    |		Load_Top	At_Offset_2
008c e003       |    |		Load	0x0,0x3
008d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
008e e005       |    |		Load	0x0,0x5
008f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0090			BODY_0088:
0090 e005       |    |		Load	0x0,0x5
0091 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0092 e5fe       |    |		Load	0x2,-0x2
0093 00db       |    |		Load_Top	At_Offset_3
0094 e5ff       |    |		Load	0x2,-0x1
0095 e004       |    |		Load	0x0,0x4
0096 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0097 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0098 e5fd       |    |		Load	0x2,-0x3
0099 00d9       |    |		Load_Top	At_Offset_1
009a e004       |    |		Load	0x0,0x4
009b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
009c c5fd       |    |		Store	0x2,-0x3
009d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a8       |    |		.CONST	0x00a8								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0003       |    |		.CONST	0x0003								; Number of locals
00a3			INIT_00a0:
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 e003       |    |		Load	0x0,0x3
00a5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00a6 e005       |    |		Load	0x0,0x5
00a7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a8			BODY_00a0:
00a8 e005       |    |		Load	0x0,0x5
00a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00aa e5fe       |    |		Load	0x2,-0x2
00ab 00db       |    |		Load_Top	At_Offset_3
00ac e5ff       |    |		Load	0x2,-0x1
00ad e004       |    |		Load	0x0,0x4
00ae 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00af 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00b0 e5fd       |    |		Load	0x2,-0x3
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 e004       |    |		Load	0x0,0x4
00b3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00b4 c5fd       |    |		Store	0x2,-0x3
00b5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00b6 0000 0000  |    |		.XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c0       |    |		.CONST	0x00c0								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0003       |    |		.CONST	0x0003								; Number of locals
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc e003       |    |		Load	0x0,0x3
00bd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00be e005       |    |		Load	0x0,0x5
00bf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c0			BODY_00b8:
00c0 e005       |    |		Load	0x0,0x5
00c1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c2 e5fc       |    |		Load	0x2,-0x4
00c3 e5fd       |    |		Load	0x2,-0x3
00c4 e402       |    |		Load	0x2,0x2
00c5 e5fe       |    |		Load	0x2,-0x2
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 e004       |    |		Load	0x0,0x4
00c8 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00c9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ca e5fb       |    |		Load	0x2,-0x5
00cb 00d9       |    |		Load_Top	At_Offset_1
00cc e004       |    |		Load	0x0,0x4
00cd 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00ce c5fb       |    |		Store	0x2,-0x5
00cf 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d8       |    |		.CONST	0x00d8								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0003       |    |		.CONST	0x0003								; Number of locals
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 e003       |    |		Load	0x0,0x3
00d5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d6 e005       |    |		Load	0x0,0x5
00d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d8			BODY_00d0:
00d8 e005       |    |		Load	0x0,0x5
00d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00da e5fd       |    |		Load	0x2,-0x3
00db 00db       |    |		Load_Top	At_Offset_3
00dc e5fd       |    |		Load	0x2,-0x3
00dd 4800       |H   |		Short_Literal	0x0
00de e5fe       |    |		Load	0x2,-0x2
00df e006       |    |		Load	0x0,0x6
00e0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 e004       |    |		Load	0x0,0x4
00e3 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00e4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00e5 e5fc       |    |		Load	0x2,-0x4
00e6 00d9       |    |		Load_Top	At_Offset_1
00e7 e004       |    |		Load	0x0,0x4
00e8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00e9 c5fc       |    |		Store	0x2,-0x4
00ea 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00eb 0000 0000  |    |		.BLANK	0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f6       |    |		.CONST	0x00f6								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 e005       |    |		Load	0x0,0x5
00f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f5 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00f6			BODY_00f0:
00f6 e005       |    |		Load	0x0,0x5
00f7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f8 e5fe       |    |		Load	0x2,-0x2
00f9 0120       |    |		Execute	Any,Is_Value
00fa 6803       |h   |		Jump_Zero	0xfe
00fb e001       |    |		Load	0x0,0x1
00fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00fd 7801       |x   |		Jump	0xff
00fe e5fe       |    |		Load	0x2,-0x2
00ff e5ff       |    |		Load	0x2,-0x1
0100 e004       |    |		Load	0x0,0x4
0101 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0102 c5fe       |    |		Store	0x2,-0x2
0103 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0104 e5fd       |    |		Load	0x2,-0x3
0105 00d9       |    |		Load_Top	At_Offset_1
0106 e004       |    |		Load	0x0,0x4
0107 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0108 c5fd       |    |		Store	0x2,-0x3
0109 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010a 0000 0000  |    |		.BLANK	0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011e       |    |		.CONST	0x011e								; Address of begin
0111 014f       | O  |		.CONST	0x014f								; Address of exception handler
0112 0003       |    |		.CONST	0x0003								; Number of locals
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0115 e20e       |    |		Load	0x1,0xe
0116 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0117 00d8       |    |		Load_Top	At_Offset_0
0118 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0119 e002       |    |		Load	0x0,0x2
011a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011b 02c7       |    |		Declare_Variable	Any
011c 00d8       |    |		Load_Top	At_Offset_0
011d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011e			BODY_0110:
011e 00d9       |    |		Load_Top	At_Offset_1
011f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0120 e5ff       |    |		Load	0x2,-0x1
0121 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0122 e004       |    |		Load	0x0,0x4
0123 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0124 00da       |    |		Load_Top	At_Offset_2
0125 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0126 00cf       |    |		Action	Mark_Auxiliary
0127 e5ff       |    |		Load	0x2,-0x1
0128 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0129 01dc       |    |		Execute	Vector,Last
012a 4801       |H   |		Short_Literal	0x1
012b 0263       | c  |		Execute	Discrete,Above_Bound
012c 701f       |p   |		Jump_Nonzero	0x14c
012d e402       |    |		Load	0x2,0x2
012e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
012f 00d9       |    |		Load_Top	At_Offset_1
0130 e403       |    |		Load	0x2,0x3
0131 00d9       |    |		Load_Top	At_Offset_1
0132 00db       |    |		Load_Top	At_Offset_3
0133 01d7       |    |		Execute	Vector,Field_Read
0134 0120       |    |		Execute	Any,Is_Value
0135 6807       |h   |		Jump_Zero	0x13d
0136 e001       |    |		Load	0x0,0x1
0137 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0138 00da       |    |		Load_Top	At_Offset_2
0139 e407       |    |		Load	0x2,0x7
013a 01d7       |    |		Execute	Vector,Field_Read
013b 00d1       |    |		Pop_Control	Pop_Count_1
013c 7803       |x   |		Jump	0x140
013d 00d9       |    |		Load_Top	At_Offset_1
013e 00db       |    |		Load_Top	At_Offset_3
013f 01d7       |    |		Execute	Vector,Field_Read
0140 e406       |    |		Load	0x2,0x6
0141 e5ff       |    |		Load	0x2,-0x1
0142 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0143 01d7       |    |		Execute	Vector,Field_Read
0144 8215       |    |		Call	0x1,0x15
0145 00da       |    |		Load_Top	At_Offset_2
0146 e407       |    |		Load	0x2,0x7
0147 01d6       |    |		Execute	Vector,Field_Write
0148 c403       |    |		Store	0x2,0x3
0149 00d2       |    |		Pop_Control	Pop_Count_2
014a 00c8       |    |		Action	Pop_Auxiliary_Range
014b 3fe1       |?   |		Loop_Increasing	0x12d
014c 00ce       |    |		Action	Pop_Auxiliary
014d 00d9       |    |		Load_Top	At_Offset_1
014e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014f			TRAP_0110:
014f 0007       |    |		Action	Break_Optional
0150 0831       | 1  |		Execute_Immediate	Raise,0x31
0151 0000 0000  |    |		.BLANK	0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4608       |F   |		Jump_Case	0x9
015c 7808       |x   |		Jump	0x165								; case 0x0
015d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
015e 7822       |x"  |		Jump	0x181								; case 0x2
015f 7821       |x!  |		Jump	0x181								; case 0x3
0160 7820       |x   |		Jump	0x181								; case 0x4
0161 781f       |x   |		Jump	0x181								; case 0x5
0162 781e       |x   |		Jump	0x181								; case 0x6
0163 780a       |x   |		Jump	0x16e								; case 0x7
0164 7812       |x   |		Jump	0x177								; case 0x8
0165 00da       |    |		Load_Top	At_Offset_2
0166 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
0167 00da       |    |		Load_Top	At_Offset_2
0168 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0169 1c00       |    |		Execute_Immediate	Run_Utility,0x0
016a 00da       |    |		Load_Top	At_Offset_2
016b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
016c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
016d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
016e 00db       |    |		Load_Top	At_Offset_3
016f 4801       |H   |		Short_Literal	0x1
0170 e5fe       |    |		Load	0x2,-0x2
0171 e20d       |    |		Load	0x1,0xd
0172 035b       | [  |		Declare_Type	Array,Constrained
0173 4801       |H   |		Short_Literal	0x1
0174 e5ff       |    |		Load	0x2,-0x1
0175 031b       |    |		Declare_Type	Variant_Record,Constrained
0176 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0177 00db       |    |		Load_Top	At_Offset_3
0178 00db       |    |		Load_Top	At_Offset_3
0179 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
017a 4801       |H   |		Short_Literal	0x1
017b e5fe       |    |		Load	0x2,-0x2
017c e20d       |    |		Load	0x1,0xd
017d 0334       | 4  |		Declare_Variable	Array,With_Constraint
017e 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
017f 016a       | j  |		QQ_execute	Variant_Record,XXX
0180 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0181 0869       | i  |		Execute_Immediate	Raise,0x69
0182 0000 0000  |    |		.BLANK	0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0x46b4,0x0000,0x0001,0x0000
018e 0000 159e  |    |		.XXX[0x16]
0190 0d13 3004  |  0 |
0192 0000 1644  |   D|
0194 0071 fcb9  | q  |
0196 0000 159e  |    |
0198 0011 3c04  |  < |
019a 0800 04b8  |    |
019c 01b8 7100  |  q |
019e 0000 0080  |    |
01a0 0011 3c04  |  < |
01a2 0800 04b8  |    |
01a4 0000 0000  |    |		.BLANK	0000[0x4]
01a8 0011 3c04  |  < |		.XXX[0x4]
01aa 0800 04b8  |    |
01ac 0000 0000  |    |		.BLANK	0000[0x4]
01b0 000e 1404  |    |		.XXX[0x14]
01b2 0800 0100  |    |
01b4 8000 0000  |    |
01b6 0000 0000  |    |
01b8 000e 5004  |  P |
01ba 0000 0100  |    |
01bc 0000 0000  |    |
01be 0008 9816  |    |
01c0 000e 1404  |    |
01c2 0800 0100  |    |
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 0d13 3004  |  0 |		.XXX[0x10]
01ca 0000 1644  |   D|
01cc 0071 fcb9  | q  |
01ce 0000 159e  |    |
01d0 000e 5004  |  P |
01d2 0000 0100  |    |
01d4 0000 0000  |    |
01d6 0008 9816  |    |
01d8 0000 0000  |    |		.BLANK	0000[0x7]
01df 4000       |@   |		.XXX[0x1]
01e0 0000 0000  |    |		.BLANK	0000[0x8]
01e8 000e 1c04  |    |		.XXX[0x18]
01ea 0000 034c  |   L|
01ec 0071 fcb9  | q  |
01ee 0000 14bf  |    |
01f0 0d13 3004  |  0 |
01f2 0000 007f  |    |
01f4 00d5 c40a  |    |
01f6 0000 30f2  |  0 |
01f8 0d13 3004  |  0 |
01fa 0000 003f  |   ?|
01fc 001b 01d6  |    |
01fe 0000 1bb3  |    |