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

⟦6b0fa9c08⟧

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

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 0190       |    |		.CONST	0x0190								; 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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0054       | T  |		.CONST	0x0054								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 00d9       |    |		Load_Top	At_Offset_1
000d 00e3       |    |		Load_Encached	Natural_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 00d8       |    |		Load_Top	At_Offset_0
0010 4801       |H   |		Short_Literal	0x1
0011 604e       |`N  |		Indirect_Literal	Discrete,0x60,{0x00000000, 0x7fffffff}
0012 00db       |    |		Load_Top	At_Offset_3
0013 0269       | i  |		Execute	Discrete,Last
0014 026c       | l  |		Execute	Discrete,Minimum
0015 00e9       |    |		Load_Encached	String_Cache
0016 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
0017 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
0019 4800       |H   |		Short_Literal	0x0
001a 4801       |H   |		Short_Literal	0x1
001b 4800       |H   |		Short_Literal	0x0
001c 4800       |H   |		Short_Literal	0x0
001d 4801       |H   |		Short_Literal	0x1
001e 4801       |H   |		Short_Literal	0x1
001f 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0020 4800       |H   |		Short_Literal	0x0
0021 00d9       |    |		Load_Top	At_Offset_1
0022 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0023 00d8       |    |		Load_Top	At_Offset_0
0024 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0025 01dd       |    |		Execute	Vector,First
0026 00e2       |    |		Load_Encached	Integer_Cache
0027 00d9       |    |		Load_Top	At_Offset_1
0028 0267       | g  |		Execute	Discrete,Predecessor
0029 00e9       |    |		Load_Encached	String_Cache
002a 035b       | [  |		Declare_Type	Array,Constrained
002b 0337       | 7  |		Declare_Variable	Array
002c 00d9       |    |		Load_Top	At_Offset_1
002d 00d8       |    |		Load_Top	At_Offset_0
002e 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
002f 00da       |    |		Load_Top	At_Offset_2
0030 01da       |    |		Execute	Vector,Bounds
0031 00da       |    |		Load_Top	At_Offset_2
0032 01da       |    |		Execute	Vector,Bounds
0033 00da       |    |		Load_Top	At_Offset_2
0034 027f       |    |		Execute	Discrete,Equal
0035 7001       |p   |		Jump_Nonzero	0x37
0036 08e0       |    |		Execute_Immediate	Raise,0xe0
0037 00cd       |    |		Action	Spare6_Action
0038 027f       |    |		Execute	Discrete,Equal
0039 7001       |p   |		Jump_Nonzero	0x3b
003a 08e0       |    |		Execute_Immediate	Raise,0xe0
003b 00d2       |    |		Pop_Control	Pop_Count_2
003c 00d9       |    |		Load_Top	At_Offset_1
003d 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
003e 0129       | )  |		Execute	Any,Make_Visible
003f 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
0041 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0043 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0045 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0047 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0049 00bf       |    |		Action	Accept_Activation
004a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0053 00c7       |    |		Action	Elaborate_Subprogram
0054			BODY_0008:
0054 00bc       |    |		Action	Signal_Activated
0055 00bb       |    |		Action	Signal_Completion
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 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
005d 0335       | 5  |		Declare_Variable	Array,Duplicate
005e 00cd       |    |		Action	Spare6_Action
005f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0060 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0064 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
006c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
006d e210       |    |		Load	0x1,0x10
006e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
006f 00db       |    |		Load_Top	At_Offset_3
0070 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0071 00d9       |    |		Load_Top	At_Offset_1
0072 00d8       |    |		Load_Top	At_Offset_0
0073 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0074 00da       |    |		Load_Top	At_Offset_2
0075 01da       |    |		Execute	Vector,Bounds
0076 00da       |    |		Load_Top	At_Offset_2
0077 01da       |    |		Execute	Vector,Bounds
0078 00da       |    |		Load_Top	At_Offset_2
0079 027f       |    |		Execute	Discrete,Equal
007a 7001       |p   |		Jump_Nonzero	0x7c
007b 08e0       |    |		Execute_Immediate	Raise,0xe0
007c 00cd       |    |		Action	Spare6_Action
007d 027f       |    |		Execute	Discrete,Equal
007e 7001       |p   |		Jump_Nonzero	0x80
007f 08e0       |    |		Execute_Immediate	Raise,0xe0
0080 00d2       |    |		Pop_Control	Pop_Count_2
0081 00d9       |    |		Load_Top	At_Offset_1
0082 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0083 e5fe       |    |		Load	0x2,-0x2
0084 016d       | m  |		Execute	Variant_Record,Structure_Write
0085 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0086 0000 0000  |    |		.XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 00da       |    |		Load_Top	At_Offset_2
008c 01db       |    |		Execute	Vector,Length
008d e20e       |    |		Load	0x1,0xe
008e 027d       | }  |		Execute	Discrete,Greater
008f 683b       |h;  |		Jump_Zero	0xcb
0090 e20e       |    |		Load	0x1,0xe
0091 e210       |    |		Load	0x1,0x10
0092 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0093 4801       |H   |		Short_Literal	0x1
0094 e20e       |    |		Load	0x1,0xe
0095 00e9       |    |		Load_Encached	String_Cache
0096 035b       | [  |		Declare_Type	Array,Constrained
0097 0337       | 7  |		Declare_Variable	Array
0098 00d8       |    |		Load_Top	At_Offset_0
0099 01dc       |    |		Execute	Vector,Last
009a 4801       |H   |		Short_Literal	0x1
009b 0263       | c  |		Execute	Discrete,Above_Bound
009c 7005       |p   |		Jump_Nonzero	0xa2
009d 4820       |H   |		Short_Literal	0x20
009e 00d9       |    |		Load_Top	At_Offset_1
009f e403       |    |		Load	0x2,0x3
00a0 01d6       |    |		Execute	Vector,Field_Write
00a1 3ffb       |?   |		Loop_Increasing	0x9d
00a2 00d9       |    |		Load_Top	At_Offset_1
00a3 00d8       |    |		Load_Top	At_Offset_0
00a4 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 01da       |    |		Execute	Vector,Bounds
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 01da       |    |		Execute	Vector,Bounds
00a9 00da       |    |		Load_Top	At_Offset_2
00aa 027f       |    |		Execute	Discrete,Equal
00ab 7001       |p   |		Jump_Nonzero	0xad
00ac 08e0       |    |		Execute_Immediate	Raise,0xe0
00ad 00cd       |    |		Action	Spare6_Action
00ae 027f       |    |		Execute	Discrete,Equal
00af 7001       |p   |		Jump_Nonzero	0xb1
00b0 08e0       |    |		Execute_Immediate	Raise,0xe0
00b1 00d2       |    |		Pop_Control	Pop_Count_2
00b2 00d9       |    |		Load_Top	At_Offset_1
00b3 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00b4 e5fe       |    |		Load	0x2,-0x2
00b5 016d       | m  |		Execute	Variant_Record,Structure_Write
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 01dd       |    |		Execute	Vector,First
00b8 00db       |    |		Load_Top	At_Offset_3
00b9 01dd       |    |		Execute	Vector,First
00ba e5ff       |    |		Load	0x2,-0x1
00bb 01db       |    |		Execute	Vector,Length
00bc 0273       | s  |		Execute	Discrete,Plus
00bd 0aff       |    |		Execute_Immediate	Plus,-0x1
00be 00d8       |    |		Load_Top	At_Offset_0
00bf 00e2       |    |		Load_Encached	Integer_Cache
00c0 0260       | `  |		Execute	Discrete,In_Type
00c1 7001       |p   |		Jump_Nonzero	0xc3
00c2 0801       |    |		Execute_Immediate	Raise,0x1
00c3 e5ff       |    |		Load	0x2,-0x1
00c4 01cf       |    |		Execute	Vector,Slice_Read
00c5 4801       |H   |		Short_Literal	0x1
00c6 e20e       |    |		Load	0x1,0xe
00c7 e5fe       |    |		Load	0x2,-0x2
00c8 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00c9 01ce       |    |		Execute	Vector,Slice_Write
00ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 01db       |    |		Execute	Vector,Length
00cd e210       |    |		Load	0x1,0x10
00ce 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00cf 4801       |H   |		Short_Literal	0x1
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 01db       |    |		Execute	Vector,Length
00d2 00e9       |    |		Load_Encached	String_Cache
00d3 035b       | [  |		Declare_Type	Array,Constrained
00d4 0337       | 7  |		Declare_Variable	Array
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 01dc       |    |		Execute	Vector,Last
00d7 4801       |H   |		Short_Literal	0x1
00d8 0263       | c  |		Execute	Discrete,Above_Bound
00d9 7005       |p   |		Jump_Nonzero	0xdf
00da 4820       |H   |		Short_Literal	0x20
00db 00d9       |    |		Load_Top	At_Offset_1
00dc e403       |    |		Load	0x2,0x3
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 3ffb       |?   |		Loop_Increasing	0xda
00df 00d9       |    |		Load_Top	At_Offset_1
00e0 00d8       |    |		Load_Top	At_Offset_0
00e1 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00e2 00da       |    |		Load_Top	At_Offset_2
00e3 01da       |    |		Execute	Vector,Bounds
00e4 00da       |    |		Load_Top	At_Offset_2
00e5 01da       |    |		Execute	Vector,Bounds
00e6 00da       |    |		Load_Top	At_Offset_2
00e7 027f       |    |		Execute	Discrete,Equal
00e8 7001       |p   |		Jump_Nonzero	0xea
00e9 08e0       |    |		Execute_Immediate	Raise,0xe0
00ea 00cd       |    |		Action	Spare6_Action
00eb 027f       |    |		Execute	Discrete,Equal
00ec 7001       |p   |		Jump_Nonzero	0xee
00ed 08e0       |    |		Execute_Immediate	Raise,0xe0
00ee 00d2       |    |		Pop_Control	Pop_Count_2
00ef 00d9       |    |		Load_Top	At_Offset_1
00f0 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00f1 e5fe       |    |		Load	0x2,-0x2
00f2 016d       | m  |		Execute	Variant_Record,Structure_Write
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 4801       |H   |		Short_Literal	0x1
00f5 e5ff       |    |		Load	0x2,-0x1
00f6 01db       |    |		Execute	Vector,Length
00f7 00d8       |    |		Load_Top	At_Offset_0
00f8 00e2       |    |		Load_Encached	Integer_Cache
00f9 0260       | `  |		Execute	Discrete,In_Type
00fa 7001       |p   |		Jump_Nonzero	0xfc
00fb 0801       |    |		Execute_Immediate	Raise,0x1
00fc e5fe       |    |		Load	0x2,-0x2
00fd 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00fe 01ce       |    |		Execute	Vector,Slice_Write
00ff 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0105 e5fe       |    |		Load	0x2,-0x2
0106 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0107 0273       | s  |		Execute	Discrete,Plus
0108 e210       |    |		Load	0x1,0x10
0109 1c08       |    |		Execute_Immediate	Run_Utility,0x8
010a 00db       |    |		Load_Top	At_Offset_3
010b 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
010c e5fe       |    |		Load	0x2,-0x2
010d 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
010e 01cc       |    |		Execute	Vector,Catenate
010f 00d9       |    |		Load_Top	At_Offset_1
0110 00d8       |    |		Load_Top	At_Offset_0
0111 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0112 00da       |    |		Load_Top	At_Offset_2
0113 01da       |    |		Execute	Vector,Bounds
0114 00da       |    |		Load_Top	At_Offset_2
0115 01da       |    |		Execute	Vector,Bounds
0116 00da       |    |		Load_Top	At_Offset_2
0117 027f       |    |		Execute	Discrete,Equal
0118 7001       |p   |		Jump_Nonzero	0x11a
0119 08e0       |    |		Execute_Immediate	Raise,0xe0
011a 00cd       |    |		Action	Spare6_Action
011b 027f       |    |		Execute	Discrete,Equal
011c 7001       |p   |		Jump_Nonzero	0x11e
011d 08e0       |    |		Execute_Immediate	Raise,0xe0
011e 00d2       |    |		Pop_Control	Pop_Count_2
011f 00d9       |    |		Load_Top	At_Offset_1
0120 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0121 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0122 0000 0000  |    |		.BLANK	0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b e211       |    |		Load	0x1,0x11
012c 00db       |    |		Load_Top	At_Offset_3
012d 016d       | m  |		Execute	Variant_Record,Structure_Write
012e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
012f 0000       |    |		.XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4609       |F   |		Jump_Case	0xa
0134 7809       |x   |		Jump	0x13e								; case 0x0
0135 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0136 7833       |x3  |		Jump	0x16a								; case 0x2
0137 7836       |x6  |		Jump	0x16e								; case 0x3
0138 7852       |xR  |		Jump	0x18b								; case 0x4
0139 7851       |xQ  |		Jump	0x18b								; case 0x5
013a 7850       |xP  |		Jump	0x18b								; case 0x6
013b 7838       |x8  |		Jump	0x174								; case 0x7
013c 7840       |x@  |		Jump	0x17d								; case 0x8
013d 7849       |xI  |		Jump	0x187								; case 0x9
013e 00da       |    |		Load_Top	At_Offset_2
013f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0140 7009       |p   |		Jump_Nonzero	0x14a
0141 00cf       |    |		Action	Mark_Auxiliary
0142 e20e       |    |		Load	0x1,0xe
0143 e5ff       |    |		Load	0x2,-0x1
0144 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0145 00d8       |    |		Load_Top	At_Offset_0
0146 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0147 c5ff       |    |		Store	0x2,-0x1
0148 00ce       |    |		Action	Pop_Auxiliary
0149 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
014a 00da       |    |		Load_Top	At_Offset_2
014b 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
014c 0335       | 5  |		Declare_Variable	Array,Duplicate
014d 00cd       |    |		Action	Spare6_Action
014e 00db       |    |		Load_Top	At_Offset_3
014f 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0150 01d9       |    |		Execute	Vector,Reverse_Bounds
0151 0263       | c  |		Execute	Discrete,Above_Bound
0152 7005       |p   |		Jump_Nonzero	0x158
0153 4820       |H   |		Short_Literal	0x20
0154 00d9       |    |		Load_Top	At_Offset_1
0155 e402       |    |		Load	0x2,0x2
0156 01d6       |    |		Execute	Vector,Field_Write
0157 3ffb       |?   |		Loop_Increasing	0x153
0158 00db       |    |		Load_Top	At_Offset_3
0159 00d8       |    |		Load_Top	At_Offset_0
015a 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
015b 00da       |    |		Load_Top	At_Offset_2
015c 01da       |    |		Execute	Vector,Bounds
015d 00da       |    |		Load_Top	At_Offset_2
015e 01da       |    |		Execute	Vector,Bounds
015f 00da       |    |		Load_Top	At_Offset_2
0160 027f       |    |		Execute	Discrete,Equal
0161 7001       |p   |		Jump_Nonzero	0x163
0162 08e0       |    |		Execute_Immediate	Raise,0xe0
0163 00cd       |    |		Action	Spare6_Action
0164 027f       |    |		Execute	Discrete,Equal
0165 7001       |p   |		Jump_Nonzero	0x167
0166 08e0       |    |		Execute_Immediate	Raise,0xe0
0167 00d1       |    |		Pop_Control	Pop_Count_1
0168 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0169 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
016a 4801       |H   |		Short_Literal	0x1
016b 4802       |H   |		Short_Literal	0x2
016c 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
016d 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
016e e5fd       |    |		Load	0x2,-0x3
016f 00db       |    |		Load_Top	At_Offset_3
0170 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0171 e5fe       |    |		Load	0x2,-0x2
0172 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0173 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0174 00db       |    |		Load_Top	At_Offset_3
0175 4801       |H   |		Short_Literal	0x1
0176 e5fe       |    |		Load	0x2,-0x2
0177 00e9       |    |		Load_Encached	String_Cache
0178 035b       | [  |		Declare_Type	Array,Constrained
0179 4801       |H   |		Short_Literal	0x1
017a e5ff       |    |		Load	0x2,-0x1
017b 031b       |    |		Declare_Type	Variant_Record,Constrained
017c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017d 00db       |    |		Load_Top	At_Offset_3
017e 00db       |    |		Load_Top	At_Offset_3
017f 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0180 4801       |H   |		Short_Literal	0x1
0181 e5fe       |    |		Load	0x2,-0x2
0182 00e9       |    |		Load_Encached	String_Cache
0183 0334       | 4  |		Declare_Variable	Array,With_Constraint
0184 2d02       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
0185 016a       | j  |		QQ_execute	Variant_Record,XXX
0186 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0187 e20e       |    |		Load	0x1,0xe
0188 00db       |    |		Load_Top	At_Offset_3
0189 1c07       |    |		Execute_Immediate	Run_Utility,0x7
018a 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
018b 0869       | i  |		Execute_Immediate	Raise,0x69
018c 0000 0000  |    |		.BLANK	0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x184d,0x0000,0x0001,0x0008
0196 000b 01b6  |    |		.DBG4T	0x000b,0x01b6,0xc000,0x0000
019a 004a 01c0  | J  |		.DBG4T	0x004a,0x01c0,0xc000,0x0000
019e 005b 01c7  | [  |		.DBG4T	0x005b,0x01c7,0x1002,0x0000
01a2 006b 01ca  | k  |		.DBG4T	0x006b,0x01ca,0x1001,0x0000
01a6 008b 01cd  |    |		.DBG4T	0x008b,0x01cd,0x1001,0x0000
01aa 0103 01d4  |    |		.DBG4T	0x0103,0x01d4,0x1002,0x0000
01ae 012b 01d7  | +  |		.DBG4T	0x012b,0x01d7,0x1001,0x0000
01b2 0133 0000  | 3  |		.DBG4T	0x0133,0x0000,0x1005,0x0000
01b6 ; --------------------------------------------------------------------------------------
01b6 ; Debug chain
01b6 ; --------------------------------------------------------------------------------------
01b6 0008 0000  |    |		.DBGLEN	0x0008,0x0000
01b8 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x0020,0x003f,0x0041,0x0043,0x0045,0x0047
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug chain
01c0 ; --------------------------------------------------------------------------------------
01c0 0005 0000  |    |		.DBGLEN	0x0005,0x0000
01c2 004a 004c  | J L|		.DBGLNO	0x004a,0x004c,0x004e,0x0050,0x0052
01c7 ; --------------------------------------------------------------------------------------
01c7 ; Debug chain
01c7 ; --------------------------------------------------------------------------------------
01c7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
01c9 005b       | [  |		.DBGLNO	0x005b
01ca ; --------------------------------------------------------------------------------------
01ca ; Debug chain
01ca ; --------------------------------------------------------------------------------------
01ca 0000 0001  |    |		.DBGLEN	0x0000,0x0001
01cc 006b       | k  |		.DBGLNO	0x006b
01cd ; --------------------------------------------------------------------------------------
01cd ; Debug chain
01cd ; --------------------------------------------------------------------------------------
01cd 0000 0005  |    |		.DBGLEN	0x0000,0x0005
01cf 008b 0090  |    |		.DBGLNO	0x008b,0x0090,0x00b6,0x00cb,0x00f3
01d4 ; --------------------------------------------------------------------------------------
01d4 ; Debug chain
01d4 ; --------------------------------------------------------------------------------------
01d4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
01d6 0103       |    |		.DBGLNO	0x0103
01d7 ; --------------------------------------------------------------------------------------
01d7 ; Debug chain
01d7 ; --------------------------------------------------------------------------------------
01d7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
01d9 012b       | +  |		.DBGLNO	0x012b
01da 0000 0000  |    |		.BLANK	0000[0x26]