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

⟦9239a1e5e⟧

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

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 5900       |Y   |		.CONST	0x5900								; 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 0063       | c  |		.CONST	0x0063								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0018       |    |		.CONST	0x0018								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c e002       |    |		Load	0x0,0x2
000d e003       |    |		Load	0x0,0x3
000e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000f 00e0       |    |		Load_Encached	Standard_Cache
0010 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0011 e004       |    |		Load	0x0,0x4
0012 0386       |    |		Declare_Variable	Package,Visible
0013 00d8       |    |		Load_Top	At_Offset_0
0014 020f       |    |		Execute	Module,Activate
0015 00e4       |    |		Load_Encached	Positive_Cache
0016 4800       |H   |		Short_Literal	0x0
0017 4802       |H   |		Short_Literal	0x2
0018 4801       |H   |		Short_Literal	0x1
0019 4807       |H   |		Short_Literal	0x7
001a 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
001b 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
001d 00d9       |    |		Load_Top	At_Offset_1
001e 012a       | *  |		Execute	Any,Change_Utility
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 e005       |    |		Load	0x0,0x5
0029 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
002a c217       |    |		Store	0x1,0x17
002b 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
002d c216       |    |		Store	0x1,0x16
002e e006       |    |		Load	0x0,0x6
002f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0030 0129       | )  |		Execute	Any,Make_Visible
0031 c210       |    |		Store	0x1,0x10
0032 e007       |    |		Load	0x0,0x7
0033 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
0034 c211       |    |		Store	0x1,0x11
0035 e008       |    |		Load	0x0,0x8
0036 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
0037 c212       |    |		Store	0x1,0x12
0038 e003       |    |		Load	0x0,0x3
0039 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003a e009       |    |		Load	0x0,0x9
003b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
003c 00e4       |    |		Load_Encached	Positive_Cache
003d 00e4       |    |		Load_Encached	Positive_Cache
003e 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
0040 4804       |H   |		Short_Literal	0x4
0041 032d       | -  |		Declare_Type	Record,Defined
0042 c213       |    |		Store	0x1,0x13
0043 00e4       |    |		Load_Encached	Positive_Cache
0044 0266       | f  |		Execute	Discrete,Bounds
0045 e213       |    |		Load	0x1,0x13
0046 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
0048 4801       |H   |		Short_Literal	0x1
0049 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
004a c214       |    |		Store	0x1,0x14
004b e213       |    |		Load	0x1,0x13
004c 00d8       |    |		Load_Top	At_Offset_0
004d 00e3       |    |		Load_Encached	Natural_Cache
004e 00e3       |    |		Load_Encached	Natural_Cache
004f e214       |    |		Load	0x1,0x14
0050 00d8       |    |		Load_Top	At_Offset_0
0051 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
0053 4800       |H   |		Short_Literal	0x0
0054 4802       |H   |		Short_Literal	0x2
0055 4804       |H   |		Short_Literal	0x4
0056 e20e       |    |		Load	0x1,0xe
0057 0307       |    |		Complete_Type	Variant_Record,By_Defining
0058 00bf       |    |		Action	Accept_Activation
0059 029d 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call
005b 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0062 00c7       |    |		Action	Elaborate_Subprogram
0063			BODY_0008:
0063 00bc       |    |		Action	Signal_Activated
0064 00bb       |    |		Action	Signal_Completion
0065 0000 0000  |    |		.XXX[0x3]
0067 0000       |    |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0071       | q  |		.CONST	0x0071								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0002       |    |		.CONST	0x0002								; Number of locals
006b			INIT_0068:
006b 00da       |    |		Load_Top	At_Offset_2
006c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
006d e20e       |    |		Load	0x1,0xe
006e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
006f 00d8       |    |		Load_Top	At_Offset_0
0070 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0071			BODY_0068:
0071 00db       |    |		Load_Top	At_Offset_3
0072 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0073 00d9       |    |		Load_Top	At_Offset_1
0074 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0075 00cf       |    |		Action	Mark_Auxiliary
0076 00d9       |    |		Load_Top	At_Offset_1
0077 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0078 4801       |H   |		Short_Literal	0x1
0079 0263       | c  |		Execute	Discrete,Above_Bound
007a 701f       |p   |		Jump_Nonzero	0x9a
007b e213       |    |		Load	0x1,0x13
007c 0322       | "  |		Declare_Variable	Record
007d 00d9       |    |		Load_Top	At_Offset_1
007e e5ff       |    |		Load	0x2,-0x1
007f 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0080 01d7       |    |		Execute	Vector,Field_Read
0081 e213       |    |		Load	0x1,0x13
0082 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0083 0119       |    |		Execute	Any,Check_In_Formal_Type
0084 00d9       |    |		Load_Top	At_Offset_1
0085 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0086 00d9       |    |		Load_Top	At_Offset_1
0087 e5ff       |    |		Load	0x2,-0x1
0088 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0089 01d7       |    |		Execute	Vector,Field_Read
008a 8218       |    |		Call	0x1,0x18
008b 00d9       |    |		Load_Top	At_Offset_1
008c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
008d 00d9       |    |		Load_Top	At_Offset_1
008e 0a01       |    |		Execute_Immediate	Plus,0x1
008f 00d9       |    |		Load_Top	At_Offset_1
0090 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0091 480b       |H   |		Short_Literal	0xb
0092 00d9       |    |		Load_Top	At_Offset_1
0093 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0094 00d9       |    |		Load_Top	At_Offset_1
0095 e402       |    |		Load	0x2,0x2
0096 2506       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0097 01d6       |    |		Execute	Vector,Field_Write
0098 00c8       |    |		Action	Pop_Auxiliary_Range
0099 3fe1       |?   |		Loop_Increasing	0x7b
009a 00ce       |    |		Action	Pop_Auxiliary
009b e213       |    |		Load	0x1,0x13
009c 0322       | "  |		Declare_Variable	Record
009d e5ff       |    |		Load	0x2,-0x1
009e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009f e213       |    |		Load	0x1,0x13
00a0 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
00a1 0119       |    |		Execute	Any,Check_In_Formal_Type
00a2 00d9       |    |		Load_Top	At_Offset_1
00a3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00a4 e5ff       |    |		Load	0x2,-0x1
00a5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00a6 8218       |    |		Call	0x1,0x18
00a7 00d9       |    |		Load_Top	At_Offset_1
00a8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00a9 00d9       |    |		Load_Top	At_Offset_1
00aa 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00ab 0a06       |    |		Execute_Immediate	Plus,0x6
00ac 00d9       |    |		Load_Top	At_Offset_1
00ad 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00ae 4804       |H   |		Short_Literal	0x4
00af 00d9       |    |		Load_Top	At_Offset_1
00b0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00b3 e213       |    |		Load	0x1,0x13
00b4 0322       | "  |		Declare_Variable	Record
00b5 e003       |    |		Load	0x0,0x3
00b6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b7 e213       |    |		Load	0x1,0x13
00b8 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
00b9 0119       |    |		Execute	Any,Check_In_Formal_Type
00ba 00d9       |    |		Load_Top	At_Offset_1
00bb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bc 0092 0185  |    |		Action	Push_String_Extended,0x185					; "Quit"
00be e009       |    |		Load	0x0,0x9
00bf 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c2 00d9       |    |		Load_Top	At_Offset_1
00c3 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00c4 0a06       |    |		Execute_Immediate	Plus,0x6
00c5 00d9       |    |		Load_Top	At_Offset_1
00c6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00c7 00d9       |    |		Load_Top	At_Offset_1
00c8 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
00c9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ca e009       |    |		Load	0x0,0x9
00cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00cc 0a0a       |    |		Execute_Immediate	Plus,0xa
00cd 00d9       |    |		Load_Top	At_Offset_1
00ce 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00d1 00db       |    |		Load_Top	At_Offset_3
00d2 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00d3 00d9       |    |		Load_Top	At_Offset_1
00d4 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
00d5 00cf       |    |		Action	Mark_Auxiliary
00d6 00d9       |    |		Load_Top	At_Offset_1
00d7 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
00d8 4801       |H   |		Short_Literal	0x1
00d9 0263       | c  |		Execute	Discrete,Above_Bound
00da 7023       |p#  |		Jump_Nonzero	0xfe
00db e213       |    |		Load	0x1,0x13
00dc 0322       | "  |		Declare_Variable	Record
00dd 00d9       |    |		Load_Top	At_Offset_1
00de e5ff       |    |		Load	0x2,-0x1
00df 2506       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x6
00e0 01d7       |    |		Execute	Vector,Field_Read
00e1 e213       |    |		Load	0x1,0x13
00e2 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
00e3 0119       |    |		Execute	Any,Check_In_Formal_Type
00e4 00d9       |    |		Load_Top	At_Offset_1
00e5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e6 00d9       |    |		Load_Top	At_Offset_1
00e7 e5ff       |    |		Load	0x2,-0x1
00e8 2506       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x6
00e9 01d7       |    |		Execute	Vector,Field_Read
00ea 8218       |    |		Call	0x1,0x18
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00ed e402       |    |		Load	0x2,0x2
00ee 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
00ef 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00f0 0a04       |    |		Execute_Immediate	Plus,0x4
00f1 00da       |    |		Load_Top	At_Offset_2
00f2 0273       | s  |		Execute	Discrete,Plus
00f3 00d9       |    |		Load_Top	At_Offset_1
00f4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00f5 480b       |H   |		Short_Literal	0xb
00f6 00d9       |    |		Load_Top	At_Offset_1
00f7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00f8 00d9       |    |		Load_Top	At_Offset_1
00f9 e402       |    |		Load	0x2,0x2
00fa 2507       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x7
00fb 01d6       |    |		Execute	Vector,Field_Write
00fc 00c8       |    |		Action	Pop_Auxiliary_Range
00fd 3fdd       |?   |		Loop_Increasing	0xdb
00fe 00ce       |    |		Action	Pop_Auxiliary
00ff 00d8       |    |		Load_Top	At_Offset_0
0100 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00d1       |    |		Pop_Control	Pop_Count_1
010c 00da       |    |		Load_Top	At_Offset_2
010d 01dc       |    |		Execute	Vector,Last
010e 00db       |    |		Load_Top	At_Offset_3
010f 01dd       |    |		Execute	Vector,First
0110 0263       | c  |		Execute	Discrete,Above_Bound
0111 7006       |p   |		Jump_Nonzero	0x118
0112 00d8       |    |		Load_Top	At_Offset_0
0113 e5ff       |    |		Load	0x2,-0x1
0114 01d5       |    |		Execute	Vector,Field_Reference
0115 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0116 0a01       |    |		Execute_Immediate	Plus,0x1
0117 7ff8       |    |		Jump	0x110
0118 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0119 0000 0000  |    |		.BLANK	0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 e003       |    |		Load	0x0,0x3
0125 1b58       | X  |		Execute	Package,Field_Read,Field_Number 0x58
0126 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0127 e00a       |    |		Load	0x0,0xa
0128 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0129 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
012a e009       |    |		Load	0x0,0x9
012b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
012c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
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 4608       |F   |		Jump_Case	0x9
0134 7808       |x   |		Jump	0x13d								; case 0x0
0135 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0136 780d       |x   |		Jump	0x144								; case 0x2
0137 780c       |x   |		Jump	0x144								; case 0x3
0138 780b       |x   |		Jump	0x144								; case 0x4
0139 780a       |x   |		Jump	0x144								; case 0x5
013a 7809       |x   |		Jump	0x144								; case 0x6
013b 7808       |x   |		Jump	0x144								; case 0x7
013c 7807       |x   |		Jump	0x144								; case 0x8
013d 00da       |    |		Load_Top	At_Offset_2
013e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
013f 0125       | %  |		Execute	Any,Set_Constraint
0140 00da       |    |		Load_Top	At_Offset_2
0141 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0142 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0143 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0144 0869       | i  |		Execute_Immediate	Raise,0x69
0145 0000 0000  |    |		.XXX[0x3]
0147 0000       |    |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			BODY_0148:
014b			INIT_0148:
014b			INIT_0148:
014b 4608       |F   |		Jump_Case	0x9
014c 7808       |x   |		Jump	0x155								; case 0x0
014d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
014e 7835       |x5  |		Jump	0x184								; case 0x2
014f 7834       |x4  |		Jump	0x184								; case 0x3
0150 7833       |x3  |		Jump	0x184								; case 0x4
0151 7832       |x2  |		Jump	0x184								; case 0x5
0152 7831       |x1  |		Jump	0x184								; case 0x6
0153 7814       |x   |		Jump	0x168								; case 0x7
0154 7820       |x   |		Jump	0x175								; case 0x8
0155 00da       |    |		Load_Top	At_Offset_2
0156 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0157 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0158 00da       |    |		Load_Top	At_Offset_2
0159 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
015a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
015b 4800       |H   |		Short_Literal	0x0
015c 00db       |    |		Load_Top	At_Offset_3
015d 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
015e 00da       |    |		Load_Top	At_Offset_2
015f 2506       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0160 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0161 4800       |H   |		Short_Literal	0x0
0162 00db       |    |		Load_Top	At_Offset_3
0163 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0164 00da       |    |		Load_Top	At_Offset_2
0165 2507       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x7
0166 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0167 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0168 00db       |    |		Load_Top	At_Offset_3
0169 4801       |H   |		Short_Literal	0x1
016a e5fe       |    |		Load	0x2,-0x2
016b e214       |    |		Load	0x1,0x14
016c 035b       | [  |		Declare_Type	Array,Constrained
016d 4801       |H   |		Short_Literal	0x1
016e e5fe       |    |		Load	0x2,-0x2
016f e214       |    |		Load	0x1,0x14
0170 035b       | [  |		Declare_Type	Array,Constrained
0171 4802       |H   |		Short_Literal	0x2
0172 e5ff       |    |		Load	0x2,-0x1
0173 031b       |    |		Declare_Type	Variant_Record,Constrained
0174 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0175 00db       |    |		Load_Top	At_Offset_3
0176 00db       |    |		Load_Top	At_Offset_3
0177 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0178 4801       |H   |		Short_Literal	0x1
0179 e5fe       |    |		Load	0x2,-0x2
017a e214       |    |		Load	0x1,0x14
017b 0334       | 4  |		Declare_Variable	Array,With_Constraint
017c 2d06       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6
017d 4801       |H   |		Short_Literal	0x1
017e e5fe       |    |		Load	0x2,-0x2
017f e214       |    |		Load	0x1,0x14
0180 0334       | 4  |		Declare_Variable	Array,With_Constraint
0181 2d07       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7
0182 016a       | j  |		QQ_execute	Variant_Record,XXX
0183 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0184 0869       | i  |		Execute_Immediate	Raise,0x69
0185 ; --------------------------------------------------------------------------------------
0185 ; STRING TABLE
0185 ; --------------------------------------------------------------------------------------
0185 0004       |    |		.STRTAB	0x0004->0x0187							; "Quit"
0186 0006       |    |		.STREND 0x0006->0x0189
0187 5175 6974  |Quit|		.STRTAB_STRINGS
0189 0000 0000  |    |		.BLANK	0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2edb,0x0000,0x0001,0x0007
0196 000b 01b2  |    |		.DBG4T	0x000b,0x01b2,0x8000,0x0000
019a 0059 01be  | Y  |		.DBG4T	0x0059,0x01be,0x8000,0x0000
019e 006b 01c5  | k  |		.DBG4T	0x006b,0x01c5,0x0002,0x0000
01a2 010b 0000  |    |		.DBG4T	0x010b,0x0000,0x0005,0x0000
01a6 0123 01d1  | #  |		.DBG4T	0x0123,0x01d1,0x0002,0x0000
01aa 0133 0000  | 3  |		.DBG4T	0x0133,0x0000,0x0005,0x0000
01ae 014b 0000  | K  |		.DBG4T	0x014b,0x0000,0x0005,0x0000
01b2 ; --------------------------------------------------------------------------------------
01b2 ; Debug chain
01b2 ; --------------------------------------------------------------------------------------
01b2 000a 0000  |    |		.DBGLEN	0x000a,0x0000
01b4 000b 0015  |    |		.DBGLNO	0x000b,0x0015,0x0028,0x002b,0x002e,0x0032,0x0035,0x0038,0x0043,0x004b
01be ; --------------------------------------------------------------------------------------
01be ; Debug chain
01be ; --------------------------------------------------------------------------------------
01be 0005 0000  |    |		.DBGLEN	0x0005,0x0000
01c0 0059 005b  | Y [|		.DBGLNO	0x0059,0x005b,0x005d,0x005f,0x0061
01c5 ; --------------------------------------------------------------------------------------
01c5 ; Debug chain
01c5 ; --------------------------------------------------------------------------------------
01c5 0001 0009  |    |		.DBGLEN	0x0001,0x0009
01c7 006b 0071  | k q|		.DBGLNO	0x006b,0x0071,0x0076,0x007b,0x009b,0x00b3,0x00d1,0x00d6,0x00db,0x00ff
01d1 ; --------------------------------------------------------------------------------------
01d1 ; Debug chain
01d1 ; --------------------------------------------------------------------------------------
01d1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
01d3 0123       | #  |		.DBGLNO	0x0123
01d4 0000 0000  |    |		.BLANK	0000[0x2c]