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

⟦032b93894⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01b0       |    |		.CONST	0x01b0								; 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 006c       | l  |		.CONST	0x006c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001b       |    |		.CONST	0x001b								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; ">>VOID<<"
000e 0129       | )  |		Execute	Any,Make_Visible
000f 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0013 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0015 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0017 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0019 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
001b 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
001d 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
001f 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0021 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0023 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0025 0093 0000  |    |		push_full_address	0x0
0027 6064       |`d  |		Indirect_Literal	Discrete,0x8c,{0x80000000, 0x00010000}
0028 0273       | s  |		Execute	Discrete,Plus
0029 e002       |    |		Load	0x0,0x2
002a 0273       | s  |		Execute	Discrete,Plus
002b e003       |    |		Load	0x0,0x3
002c 0273       | s  |		Execute	Discrete,Plus
002d 4850       |HP  |		Short_Literal	0x50
002e e004       |    |		Load	0x0,0x4
002f 0386       |    |		Declare_Variable	Package,Visible
0030 00d8       |    |		Load_Top	At_Offset_0
0031 020f       |    |		Execute	Module,Activate
0032 e005       |    |		Load	0x0,0x5
0033 00d9       |    |		Load_Top	At_Offset_1
0034 0098       |    |		Execute	Package,Field_Read_Dynamic
0035 e005       |    |		Load	0x0,0x5
0036 00da       |    |		Load_Top	At_Offset_2
0037 0098       |    |		Execute	Package,Field_Read_Dynamic
0038 e005       |    |		Load	0x0,0x5
0039 00db       |    |		Load_Top	At_Offset_3
003a 0098       |    |		Execute	Package,Field_Read_Dynamic
003b 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
003d 4803       |H   |		Short_Literal	0x3
003e 032e       | .  |		Declare_Type	Record,Defined,Visible
003f 00d8       |    |		Load_Top	At_Offset_0
0040 0322       | "  |		Declare_Variable	Record
0041 e20e       |    |		Load	0x1,0xe
0042 e006       |    |		Load	0x0,0x6
0043 e21a       |    |		Load	0x1,0x1a
0044 0096       |    |		Execute	Package,Entry
0045 00d9       |    |		Load_Top	At_Offset_1
0046 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0047 e20e       |    |		Load	0x1,0xe
0048 e006       |    |		Load	0x0,0x6
0049 e21a       |    |		Load	0x1,0x1a
004a 0096       |    |		Execute	Package,Entry
004b 00d9       |    |		Load_Top	At_Offset_1
004c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
004d e20e       |    |		Load	0x1,0xe
004e e006       |    |		Load	0x0,0x6
004f e21a       |    |		Load	0x1,0x1a
0050 0096       |    |		Execute	Package,Entry
0051 00d9       |    |		Load_Top	At_Offset_1
0052 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0053 0129       | )  |		Execute	Any,Make_Visible
0054 c20d       |    |		Store	0x1,0xd
0055 00bf       |    |		Action	Accept_Activation
0056 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
006b 00c7       |    |		Action	Elaborate_Subprogram
006c			BODY_0008:
006c 00bc       |    |		Action	Signal_Activated
006d 00bb       |    |		Action	Signal_Completion
006e 0000 0000  |    |		.XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 e21b       |    |		Load	0x1,0x1b
0074 0322       | "  |		Declare_Variable	Record
0075 00db       |    |		Load_Top	At_Offset_3
0076 8007       |    |		Call	0x0,0x7
0077 e006       |    |		Load	0x0,0x6
0078 e21a       |    |		Load	0x1,0x1a
0079 0096       |    |		Execute	Package,Entry
007a 00d9       |    |		Load_Top	At_Offset_1
007b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
007c e5fe       |    |		Load	0x2,-0x2
007d 8007       |    |		Call	0x0,0x7
007e e006       |    |		Load	0x0,0x6
007f e21a       |    |		Load	0x1,0x1a
0080 0096       |    |		Execute	Package,Entry
0081 00d9       |    |		Load_Top	At_Offset_1
0082 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0083 e5fd       |    |		Load	0x2,-0x3
0084 8007       |    |		Call	0x0,0x7
0085 e006       |    |		Load	0x0,0x6
0086 e21a       |    |		Load	0x1,0x1a
0087 0096       |    |		Execute	Package,Entry
0088 00d9       |    |		Load_Top	At_Offset_1
0089 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
008a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
008b 0000       |    |		.XXX[0x1]
008c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 4823       |H#  |		Short_Literal	0x23
0094 4823       |H#  |		Short_Literal	0x23
0095 e5ff       |    |		Load	0x2,-0x1
0096 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0097 e008       |    |		Load	0x0,0x8
0098 e21a       |    |		Load	0x1,0x1a
0099 0096       |    |		Execute	Package,Entry
009a 01cb       |    |		Execute	Vector,Append
009b e5ff       |    |		Load	0x2,-0x1
009c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
009d e008       |    |		Load	0x0,0x8
009e e21a       |    |		Load	0x1,0x1a
009f 0096       |    |		Execute	Package,Entry
00a0 01cc       |    |		Execute	Vector,Catenate
00a1 01cb       |    |		Execute	Vector,Append
00a2 00db       |    |		Load_Top	At_Offset_3
00a3 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
00a4 e008       |    |		Load	0x0,0x8
00a5 e21a       |    |		Load	0x1,0x1a
00a6 0096       |    |		Execute	Package,Entry
00a7 01cc       |    |		Execute	Vector,Catenate
00a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a9 0000 0000  |    |		.BLANK	0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00bf       |    |		.CONST	0x00bf								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0005       |    |		.CONST	0x0005								; Number of locals
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 01dd       |    |		Execute	Vector,First
00b5 00e4       |    |		Load_Encached	Positive_Cache
00b6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
00b7 00db       |    |		Load_Top	At_Offset_3
00b8 01dc       |    |		Execute	Vector,Last
00b9 00e4       |    |		Load_Encached	Positive_Cache
00ba 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
00bb 00d9       |    |		Load_Top	At_Offset_1
00bc 00e4       |    |		Load_Encached	Positive_Cache
00bd 03f1       |    |		Declare_Variable	Discrete,With_Value
00be 00e4       |    |		Load_Encached	Positive_Cache
00bf			BODY_00b0:
00bf 00cf       |    |		Action	Mark_Auxiliary
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 e5ff       |    |		Load	0x2,-0x1
00c2 01d7       |    |		Execute	Vector,Field_Read
00c3 0f23       | #  |		Execute_Immediate	Equal,0x23
00c4 7005       |p   |		Jump_Nonzero	0xca
00c5 00da       |    |		Load_Top	At_Offset_2
00c6 0a01       |    |		Execute_Immediate	Plus,0x1
00c7 005b       | [  |		Store_Top	Discrete,At_Offset_3
00c8 00c9       |    |		Action	Pop_Auxiliary_Loop
00c9 7ff6       |    |		Jump	0xc0
00ca 00ce       |    |		Action	Pop_Auxiliary
00cb 00d9       |    |		Load_Top	At_Offset_1
00cc 0a01       |    |		Execute_Immediate	Plus,0x1
00cd 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ce 00cf       |    |		Action	Mark_Auxiliary
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 01d7       |    |		Execute	Vector,Field_Read
00d2 0f23       | #  |		Execute_Immediate	Equal,0x23
00d3 7005       |p   |		Jump_Nonzero	0xd9
00d4 00d9       |    |		Load_Top	At_Offset_1
00d5 0a01       |    |		Execute_Immediate	Plus,0x1
00d6 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00d7 00c9       |    |		Action	Pop_Auxiliary_Loop
00d8 7ff6       |    |		Jump	0xcf
00d9 00ce       |    |		Action	Pop_Auxiliary
00da e21b       |    |		Load	0x1,0x1b
00db 0322       | "  |		Declare_Variable	Record
00dc e402       |    |		Load	0x2,0x2
00dd 00db       |    |		Load_Top	At_Offset_3
00de 0aff       |    |		Execute_Immediate	Plus,-0x1
00df e5ff       |    |		Load	0x2,-0x1
00e0 01cf       |    |		Execute	Vector,Slice_Read
00e1 8007       |    |		Call	0x0,0x7
00e2 e006       |    |		Load	0x0,0x6
00e3 e21a       |    |		Load	0x1,0x1a
00e4 0096       |    |		Execute	Package,Entry
00e5 00d9       |    |		Load_Top	At_Offset_1
00e6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e7 00da       |    |		Load_Top	At_Offset_2
00e8 0a01       |    |		Execute_Immediate	Plus,0x1
00e9 00d8       |    |		Load_Top	At_Offset_0
00ea 00e2       |    |		Load_Encached	Integer_Cache
00eb 0260       | `  |		Execute	Discrete,In_Type
00ec 7001       |p   |		Jump_Nonzero	0xee
00ed 0801       |    |		Execute_Immediate	Raise,0x1
00ee 00da       |    |		Load_Top	At_Offset_2
00ef 0aff       |    |		Execute_Immediate	Plus,-0x1
00f0 e5ff       |    |		Load	0x2,-0x1
00f1 01cf       |    |		Execute	Vector,Slice_Read
00f2 8007       |    |		Call	0x0,0x7
00f3 e006       |    |		Load	0x0,0x6
00f4 e21a       |    |		Load	0x1,0x1a
00f5 0096       |    |		Execute	Package,Entry
00f6 00d9       |    |		Load_Top	At_Offset_1
00f7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f8 00d9       |    |		Load_Top	At_Offset_1
00f9 0a01       |    |		Execute_Immediate	Plus,0x1
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb 00e2       |    |		Load_Encached	Integer_Cache
00fc 0260       | `  |		Execute	Discrete,In_Type
00fd 7001       |p   |		Jump_Nonzero	0xff
00fe 0801       |    |		Execute_Immediate	Raise,0x1
00ff e403       |    |		Load	0x2,0x3
0100 e5ff       |    |		Load	0x2,-0x1
0101 01cf       |    |		Execute	Vector,Slice_Read
0102 8007       |    |		Call	0x0,0x7
0103 e006       |    |		Load	0x0,0x6
0104 e21a       |    |		Load	0x1,0x1a
0105 0096       |    |		Execute	Package,Entry
0106 00d9       |    |		Load_Top	At_Offset_1
0107 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0108 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0109 0000 0000  |    |		.BLANK	0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0115 e008       |    |		Load	0x0,0x8
0116 e21a       |    |		Load	0x1,0x1a
0117 0096       |    |		Execute	Package,Entry
0118 e20e       |    |		Load	0x1,0xe
0119 01de       |    |		Execute	Vector,Not_Equal
011a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011b 0000 0000  |    |		.BLANK	0000[0x5]
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 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0125 e008       |    |		Load	0x0,0x8
0126 e21a       |    |		Load	0x1,0x1a
0127 0096       |    |		Execute	Package,Entry
0128 e20e       |    |		Load	0x1,0xe
0129 01df       |    |		Execute	Vector,Equal
012a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012b 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
0134 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0135 e5fe       |    |		Load	0x2,-0x2
0136 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0137 016f       | o  |		Execute	Variant_Record,Equal
0138 00db       |    |		Load_Top	At_Offset_3
0139 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
013a e5fe       |    |		Load	0x2,-0x2
013b 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
013c 016f       | o  |		Execute	Variant_Record,Equal
013d 0279       | y  |		Execute	Discrete,And
013e 00db       |    |		Load_Top	At_Offset_3
013f 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0140 e5fe       |    |		Load	0x2,-0x2
0141 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0142 016f       | o  |		Execute	Variant_Record,Equal
0143 0279       | y  |		Execute	Discrete,And
0144 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0145 0000 0000  |    |		.XXX[0x3]
0147 0000       |    |
0148 ; --------------------------------------------------------------------------------------
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			INIT_0148:
014b 00da       |    |		Load_Top	At_Offset_2
014c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
014d e5fe       |    |		Load	0x2,-0x2
014e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
014f 016f       | o  |		Execute	Variant_Record,Equal
0150 00db       |    |		Load_Top	At_Offset_3
0151 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0152 e5fe       |    |		Load	0x2,-0x2
0153 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0154 016f       | o  |		Execute	Variant_Record,Equal
0155 0279       | y  |		Execute	Discrete,And
0156 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0157 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
015c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
015d e008       |    |		Load	0x0,0x8
015e e21a       |    |		Load	0x1,0x1a
015f 0096       |    |		Execute	Package,Entry
0160 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0161 0000 0000  |    |		.BLANK	0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
016d e008       |    |		Load	0x0,0x8
016e e21a       |    |		Load	0x1,0x1a
016f 0096       |    |		Execute	Package,Entry
0170 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
017d e008       |    |		Load	0x0,0x8
017e e21a       |    |		Load	0x1,0x1a
017f 0096       |    |		Execute	Package,Entry
0180 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0181 0000 0000  |    |		.BLANK	0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b e20e       |    |		Load	0x1,0xe
018c e006       |    |		Load	0x0,0x6
018d e21a       |    |		Load	0x1,0x1a
018e 0096       |    |		Execute	Package,Entry
018f 00db       |    |		Load_Top	At_Offset_3
0190 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0191 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0192 0000 0000  |    |		.BLANK	0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 4601       |F   |		Jump_Case	0x2
019c 7801       |x   |		Jump	0x19e								; case 0x0
019d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
019e 00da       |    |		Load_Top	At_Offset_2
019f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01a0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a1 00da       |    |		Load_Top	At_Offset_2
01a2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01a3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a4 00da       |    |		Load_Top	At_Offset_2
01a5 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
01a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01a8 ; --------------------------------------------------------------------------------------
01a8 ; STRING TABLE
01a8 ; --------------------------------------------------------------------------------------
01a8 0004       |    |		.STRTAB	0x0004->0x01aa							; ">>VOID<<"
01a9 000a       |    |		.STREND 0x000a->0x01ae
01aa 3e3e 564f  |>>VO|		.STRTAB_STRINGS
01ae 0000 0000  |    |		.XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x67b4,0x0000,0x0001,0x000e
01b6 000b 01ee  |    |		.DBG4T	0x000b,0x01ee,0x8000,0x8000
01ba 0056 0210  | V  |		.DBG4T	0x0056,0x0210,0x8000,0x8000
01be 0073 0228  | s (|		.DBG4T	0x0073,0x0228,0x0002,0x0000
01c2 0093 022b  |   +|		.DBG4T	0x0093,0x022b,0x0002,0x0000
01c6 00b3 022e  |   .|		.DBG4T	0x00b3,0x022e,0x0002,0x4000
01ca 0113 0240  |   @|		.DBG4T	0x0113,0x0240,0x0002,0x0000
01ce 0123 0243  | # C|		.DBG4T	0x0123,0x0243,0x0002,0x0000
01d2 0133 0246  | 3 F|		.DBG4T	0x0133,0x0246,0x0002,0x0000
01d6 014b 0249  | K I|		.DBG4T	0x014b,0x0249,0x0002,0x0000
01da 015b 024c  | [ L|		.DBG4T	0x015b,0x024c,0x0002,0x0000
01de 016b 024f  | k O|		.DBG4T	0x016b,0x024f,0x0002,0x0000
01e2 017b 0252  | { R|		.DBG4T	0x017b,0x0252,0x0002,0x0000
01e6 018b 0255  |   U|		.DBG4T	0x018b,0x0255,0x0001,0x0000
01ea 019b 0000  |    |		.DBG4T	0x019b,0x0000,0x0005,0x0000
01ee ; --------------------------------------------------------------------------------------
01ee ; Debug chain
01ee ; --------------------------------------------------------------------------------------
01ee 0010 0000  |    |		.DBGLEN	0x0010,0x0000
01f0 000b 000c  |    |		.DBGLNO	0x000b,0x000c,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0032,0x003f
0200 0002 0003  |    |		.XXX[0x10]
0202 0004 0005  |    |
0204 0006 0007  |    |
0206 0008 0009  |    |
0208 000a 000b  |    |
020a 000c 000d  |    |
020c 000e 000f  |    |
020e 0010 0011  |    |
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug chain
0210 ; --------------------------------------------------------------------------------------
0210 000b 0000  |    |		.DBGLEN	0x000b,0x0000
0212 0056 0058  | V X|		.DBGLNO	0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a
021d 0003 0004  |    |		.XXX[0xb]
021f 0005 0006  |    |
0221 0007 0008  |    |
0223 0009 000a  |    |
0225 000b 000c  |    |
0227 000d       |    |
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug chain
0228 ; --------------------------------------------------------------------------------------
0228 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022a 0073       | s  |		.DBGLNO	0x0073
022b ; --------------------------------------------------------------------------------------
022b ; Debug chain
022b ; --------------------------------------------------------------------------------------
022b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022d 0093       |    |		.DBGLNO	0x0093
022e ; --------------------------------------------------------------------------------------
022e ; Debug chain
022e ; --------------------------------------------------------------------------------------
022e 0004 0006  |    |		.DBGLEN	0x0004,0x0006
0230 00b3 00b7  |    |		.DBGLNO	0x00b3,0x00b7,0x00bb,0x00be,0x00c0,0x00c5,0x00cb,0x00cf,0x00d4,0x00da
023a 0002 0003  |    |		.XXX[0x6]
023c 0004 0006  |    |
023e 0007 0008  |    |
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug chain
0240 ; --------------------------------------------------------------------------------------
0240 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0242 0113       |    |		.DBGLNO	0x0113
0243 ; --------------------------------------------------------------------------------------
0243 ; Debug chain
0243 ; --------------------------------------------------------------------------------------
0243 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0245 0123       | #  |		.DBGLNO	0x0123
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug chain
0246 ; --------------------------------------------------------------------------------------
0246 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0248 0133       | 3  |		.DBGLNO	0x0133
0249 ; --------------------------------------------------------------------------------------
0249 ; Debug chain
0249 ; --------------------------------------------------------------------------------------
0249 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024b 014b       | K  |		.DBGLNO	0x014b
024c ; --------------------------------------------------------------------------------------
024c ; Debug chain
024c ; --------------------------------------------------------------------------------------
024c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024e 015b       | [  |		.DBGLNO	0x015b
024f ; --------------------------------------------------------------------------------------
024f ; Debug chain
024f ; --------------------------------------------------------------------------------------
024f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0251 016b       | k  |		.DBGLNO	0x016b
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug chain
0252 ; --------------------------------------------------------------------------------------
0252 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0254 017b       | {  |		.DBGLNO	0x017b
0255 ; --------------------------------------------------------------------------------------
0255 ; Debug chain
0255 ; --------------------------------------------------------------------------------------
0255 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0257 018b       |    |		.DBGLNO	0x018b
0258 0000 0000  |    |		.BLANK	0000[0x1a8]