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

⟦2247a93fa⟧

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

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 0180       |    |		.CONST	0x0180								; 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003b       | ;  |		.CONST	0x003b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 00bf       |    |		Action	Accept_Activation
000c 029d 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call
000e 029d 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call
0010 029d 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call
0012 029d 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call
0014 029d 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call
0016 029d 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call
0018 029d 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call
001a 029d 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call
001c 029d 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call
001e 029d 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call
0020 029d 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call
0022 029d 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call
0024 0093 0000  |    |		push_full_address	0x0
0026 6031       |`1  |		Indirect_Literal	Discrete,0x58,{0x80000000, 0x00010000}
0027 0273       | s  |		Execute	Discrete,Plus
0028 e002       |    |		Load	0x0,0x2
0029 0273       | s  |		Execute	Discrete,Plus
002a e003       |    |		Load	0x0,0x3
002b 0273       | s  |		Execute	Discrete,Plus
002c a004       |    |		Store_Unchecked	0x0,0x4
002d a005       |    |		Store_Unchecked	0x0,0x5
002e a006       |    |		Store_Unchecked	0x0,0x6
002f 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0030 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0031 a007       |    |		Store_Unchecked	0x0,0x7
0032 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0033 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0034 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0035 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0036 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0037 e008       |    |		Load	0x0,0x8
0038 0387       |    |		Declare_Variable	Package
0039 00d8       |    |		Load_Top	At_Offset_0
003a 020f       |    |		Execute	Module,Activate
003b			BODY_0008:
003b e009       |    |		Load	0x0,0x9
003c 00d9       |    |		Load_Top	At_Offset_1
003d 0096       |    |		Execute	Package,Entry
003e 800a       |    |		Call	0x0,0xa
003f 00bc       |    |		Action	Signal_Activated
0040 00bb       |    |		Action	Signal_Completion
0041 0000 0000  |    |		.BLANK	0000[0x7]
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 e5fd       |    |		Load	0x2,-0x3
004c 0120       |    |		Execute	Any,Is_Value
004d 6803       |h   |		Jump_Zero	0x51
004e e00b       |    |		Load	0x0,0xb
004f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0050 7801       |x   |		Jump	0x52
0051 e5fd       |    |		Load	0x2,-0x3
0052 00e1       |    |		Load_Encached	Boolean_Cache
0053 e5ff       |    |		Load	0x2,-0x1
0054 800c       |    |		Call	0x0,0xc
0055 c5fe       |    |		Store	0x2,-0x2
0056 c5fd       |    |		Store	0x2,-0x3
0057 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0058 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
005c 0000 0000  |    |		.BLANK	0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 e5fb       |    |		Load	0x2,-0x5
0064 e00d       |    |		Load	0x0,0xd
0065 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0066 e00d       |    |		Load	0x0,0xd
0067 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
0068 e5fe       |    |		Load	0x2,-0x2
0069 0120       |    |		Execute	Any,Is_Value
006a 6803       |h   |		Jump_Zero	0x6e
006b e00d       |    |		Load	0x0,0xd
006c 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
006d 7801       |x   |		Jump	0x6f
006e e5fe       |    |		Load	0x2,-0x2
006f e00e       |    |		Load	0x0,0xe
0070 e5ff       |    |		Load	0x2,-0x1
0071 800f       |    |		Call	0x0,0xf
0072 c00e       |    |		Store	0x0,0xe
0073 c5fe       |    |		Store	0x2,-0x2
0074 c5fd       |    |		Store	0x2,-0x3
0075 c5fc       |    |		Store	0x2,-0x4
0076 c5fb       |    |		Store	0x2,-0x5
0077 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b e00e       |    |		Load	0x0,0xe
007c e5fc       |    |		Load	0x2,-0x4
007d e5fd       |    |		Load	0x2,-0x3
007e e5fe       |    |		Load	0x2,-0x2
007f e5ff       |    |		Load	0x2,-0x1
0080 8010       |    |		Call	0x0,0x10
0081 c00e       |    |		Store	0x0,0xe
0082 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0083 0000 0000  |    |		.BLANK	0000[0x5]
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 e00e       |    |		Load	0x0,0xe
008c e5fc       |    |		Load	0x2,-0x4
008d e5fd       |    |		Load	0x2,-0x3
008e e5fe       |    |		Load	0x2,-0x2
008f e5ff       |    |		Load	0x2,-0x1
0090 8011       |    |		Call	0x0,0x11
0091 c00e       |    |		Store	0x0,0xe
0092 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0093 0000 0000  |    |		.BLANK	0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b e5f6       |    |		Load	0x2,-0xa
009c e5f7       |    |		Load	0x2,-0x9
009d e5f8       |    |		Load	0x2,-0x8
009e e5f9       |    |		Load	0x2,-0x7
009f e5fa       |    |		Load	0x2,-0x6
00a0 e5fb       |    |		Load	0x2,-0x5
00a1 e5fc       |    |		Load	0x2,-0x4
00a2 e5fd       |    |		Load	0x2,-0x3
00a3 e5fe       |    |		Load	0x2,-0x2
00a4 e5ff       |    |		Load	0x2,-0x1
00a5 480a       |H   |		Short_Literal	0xa
00a6 e012       |    |		Load	0x0,0x12
00a7 e013       |    |		Load	0x0,0x13
00a8 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
00a9 c5f6       |    |		Store	0x2,-0xa
00aa 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
00ab 0000 0000  |    |		.BLANK	0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 00b9       |    |		.CONST	0x00b9								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 e014       |    |		Load	0x0,0x14
00b5 1b2f       | /  |		Execute	Package,Field_Read,Field_Number 0x2f
00b6 1c02       |    |		Execute_Immediate	Run_Utility,0x2
00b7 8015       |    |		Call	0x0,0x15
00b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b9			TRAP_00b0:
00b9 010e       |    |		Execute	Exception,Is_Constraint_Error
00ba 6803       |h   |		Jump_Zero	0xbe
00bb 00db       |    |		Load_Top	At_Offset_3
00bc 8016       |    |		Call	0x0,0x16
00bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00be 0100       |    |		Execute	Exception,Raise
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 00c9       |    |		.CONST	0x00c9								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 e014       |    |		Load	0x0,0x14
00c5 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00c6 1c02       |    |		Execute_Immediate	Run_Utility,0x2
00c7 8017       |    |		Call	0x0,0x17
00c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c9			TRAP_00c0:
00c9 010e       |    |		Execute	Exception,Is_Constraint_Error
00ca 6803       |h   |		Jump_Zero	0xce
00cb 00db       |    |		Load_Top	At_Offset_3
00cc 8018       |    |		Call	0x0,0x18
00cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ce 0100       |    |		Execute	Exception,Raise
00cf 0000       |    |		.XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 e5fd       |    |		Load	0x2,-0x3
00d4 0120       |    |		Execute	Any,Is_Value
00d5 6803       |h   |		Jump_Zero	0xd9
00d6 e00b       |    |		Load	0x0,0xb
00d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d8 7804       |x   |		Jump	0xdd
00d9 e5fd       |    |		Load	0x2,-0x3
00da e00b       |    |		Load	0x0,0xb
00db 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00dc 0119       |    |		Execute	Any,Check_In_Formal_Type
00dd 00e1       |    |		Load_Encached	Boolean_Cache
00de e5ff       |    |		Load	0x2,-0x1
00df 00d8       |    |		Load_Top	At_Offset_0
00e0 00e3       |    |		Load_Encached	Natural_Cache
00e1 0260       | `  |		Execute	Discrete,In_Type
00e2 7001       |p   |		Jump_Nonzero	0xe4
00e3 0801       |    |		Execute_Immediate	Raise,0x1
00e4 820d       |    |		Call	0x1,0xd
00e5 c5fe       |    |		Store	0x2,-0x2
00e6 c5fd       |    |		Store	0x2,-0x3
00e7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb e5fb       |    |		Load	0x2,-0x5
00ec 00d8       |    |		Load_Top	At_Offset_0
00ed 0120       |    |		Execute	Any,Is_Value
00ee 6804       |h   |		Jump_Zero	0xf3
00ef e019       |    |		Load	0x0,0x19
00f0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f1 011e       |    |		Execute	Any,Convert
00f2 7803       |x   |		Jump	0xf6
00f3 e01a       |    |		Load	0x0,0x1a
00f4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f5 0119       |    |		Execute	Any,Check_In_Formal_Type
00f6 e00d       |    |		Load	0x0,0xd
00f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f8 e00d       |    |		Load	0x0,0xd
00f9 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
00fa e5fe       |    |		Load	0x2,-0x2
00fb 0120       |    |		Execute	Any,Is_Value
00fc 6803       |h   |		Jump_Zero	0x100
00fd e00d       |    |		Load	0x0,0xd
00fe 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00ff 7804       |x   |		Jump	0x104
0100 e5fe       |    |		Load	0x2,-0x2
0101 e00d       |    |		Load	0x0,0xd
0102 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0103 0119       |    |		Execute	Any,Check_In_Formal_Type
0104 e5ff       |    |		Load	0x2,-0x1
0105 00d8       |    |		Load_Top	At_Offset_0
0106 00e3       |    |		Load_Encached	Natural_Cache
0107 0260       | `  |		Execute	Discrete,In_Type
0108 7001       |p   |		Jump_Nonzero	0x10a
0109 0801       |    |		Execute_Immediate	Raise,0x1
010a 820e       |    |		Call	0x1,0xe
010b c5fe       |    |		Store	0x2,-0x2
010c c5fd       |    |		Store	0x2,-0x3
010d c5fc       |    |		Store	0x2,-0x4
010e c5fb       |    |		Store	0x2,-0x5
010f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 e5fc       |    |		Load	0x2,-0x4
0114 00d8       |    |		Load_Top	At_Offset_0
0115 00e3       |    |		Load_Encached	Natural_Cache
0116 0260       | `  |		Execute	Discrete,In_Type
0117 7001       |p   |		Jump_Nonzero	0x119
0118 0801       |    |		Execute_Immediate	Raise,0x1
0119 e5fd       |    |		Load	0x2,-0x3
011a e01b       |    |		Load	0x0,0x1b
011b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011c 00d9       |    |		Load_Top	At_Offset_1
011d 00d0       |    |		Action	Swap_Control
011e 0260       | `  |		Execute	Discrete,In_Type
011f 7001       |p   |		Jump_Nonzero	0x121
0120 0801       |    |		Execute_Immediate	Raise,0x1
0121 e5fe       |    |		Load	0x2,-0x2
0122 e00d       |    |		Load	0x0,0xd
0123 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0124 0119       |    |		Execute	Any,Check_In_Formal_Type
0125 e5ff       |    |		Load	0x2,-0x1
0126 e01c       |    |		Load	0x0,0x1c
0127 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0128 00d9       |    |		Load_Top	At_Offset_1
0129 00d0       |    |		Action	Swap_Control
012a 0260       | `  |		Execute	Discrete,In_Type
012b 7001       |p   |		Jump_Nonzero	0x12d
012c 0801       |    |		Execute_Immediate	Raise,0x1
012d 820f       |    |		Call	0x1,0xf
012e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
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 e5fc       |    |		Load	0x2,-0x4
0134 00d8       |    |		Load_Top	At_Offset_0
0135 00e3       |    |		Load_Encached	Natural_Cache
0136 0260       | `  |		Execute	Discrete,In_Type
0137 7001       |p   |		Jump_Nonzero	0x139
0138 0801       |    |		Execute_Immediate	Raise,0x1
0139 e5fd       |    |		Load	0x2,-0x3
013a e01b       |    |		Load	0x0,0x1b
013b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013c 00d9       |    |		Load_Top	At_Offset_1
013d 00d0       |    |		Action	Swap_Control
013e 0260       | `  |		Execute	Discrete,In_Type
013f 7001       |p   |		Jump_Nonzero	0x141
0140 0801       |    |		Execute_Immediate	Raise,0x1
0141 e5fe       |    |		Load	0x2,-0x2
0142 e00d       |    |		Load	0x0,0xd
0143 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0144 0119       |    |		Execute	Any,Check_In_Formal_Type
0145 e5ff       |    |		Load	0x2,-0x1
0146 e01c       |    |		Load	0x0,0x1c
0147 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0148 00d9       |    |		Load_Top	At_Offset_1
0149 00d0       |    |		Action	Swap_Control
014a 0260       | `  |		Execute	Discrete,In_Type
014b 7001       |p   |		Jump_Nonzero	0x14d
014c 0801       |    |		Execute_Immediate	Raise,0x1
014d 8210       |    |		Call	0x1,0x10
014e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
014f 0000       |    |		.XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 e5f6       |    |		Load	0x2,-0xa
0154 00d8       |    |		Load_Top	At_Offset_0
0155 0120       |    |		Execute	Any,Is_Value
0156 6804       |h   |		Jump_Zero	0x15b
0157 e019       |    |		Load	0x0,0x19
0158 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0159 011e       |    |		Execute	Any,Convert
015a 7803       |x   |		Jump	0x15e
015b e01a       |    |		Load	0x0,0x1a
015c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015d 0119       |    |		Execute	Any,Check_In_Formal_Type
015e e5f7       |    |		Load	0x2,-0x9
015f e5f8       |    |		Load	0x2,-0x8
0160 e01d       |    |		Load	0x0,0x1d
0161 0119       |    |		Execute	Any,Check_In_Formal_Type
0162 e5f9       |    |		Load	0x2,-0x7
0163 e01e       |    |		Load	0x0,0x1e
0164 0119       |    |		Execute	Any,Check_In_Formal_Type
0165 e5fa       |    |		Load	0x2,-0x6
0166 e01f       |    |		Load	0x0,0x1f
0167 0119       |    |		Execute	Any,Check_In_Formal_Type
0168 e5fb       |    |		Load	0x2,-0x5
0169 e01f       |    |		Load	0x0,0x1f
016a 0119       |    |		Execute	Any,Check_In_Formal_Type
016b e5fc       |    |		Load	0x2,-0x4
016c e020       |    |		Load	0x0,0x20
016d 0119       |    |		Execute	Any,Check_In_Formal_Type
016e e5fd       |    |		Load	0x2,-0x3
016f e021       | !  |		Load	0x0,0x21
0170 0119       |    |		Execute	Any,Check_In_Formal_Type
0171 e5fe       |    |		Load	0x2,-0x2
0172 e022       | "  |		Load	0x0,0x22
0173 0119       |    |		Execute	Any,Check_In_Formal_Type
0174 e5ff       |    |		Load	0x2,-0x1
0175 e023       | #  |		Load	0x0,0x23
0176 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0177 00d9       |    |		Load_Top	At_Offset_1
0178 00d0       |    |		Action	Swap_Control
0179 0260       | `  |		Execute	Discrete,In_Type
017a 7001       |p   |		Jump_Nonzero	0x17c
017b 0801       |    |		Execute_Immediate	Raise,0x1
017c 8211       |    |		Call	0x1,0x11
017d c5f6       |    |		Store	0x2,-0xa
017e 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
017f 0000       |    |		.XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x2bf7,0x0000,0x0001,0x0000
0186 0010 0000  |    |		.XXX[0x7a]
0188 0000 05b0  |    |
018a 0000 0a40  |   @|
018c 0000 0040  |   @|
018e 0040 0000  | @  |
0190 0000 1700  |    |
0192 0000 2980  |  ) |
0194 0000 0100  |    |
0196 0100 0000  |    |
0198 0000 5d00  |  ] |
019a 0000 a800  |    |
019c 0000 0400  |    |
019e 0400 0000  |    |
01a0 0001 7800  |  x |
01a2 0002 a800  |    |
01a4 0000 1000  |    |
01a6 1000 0000  |    |
01a8 0005 f000  |    |
01aa 000a c000  |    |
01ac 0000 4000  |  @ |
01ae 4000 0000  |@   |
01b0 0018 0000  |    |
01b2 002b 8000  | +  |
01b4 0001 0001  |    |
01b6 0000 0000  |    |
01b8 0061 0000  | a  |
01ba 00b0 0000  |    |
01bc 0004 0004  |    |
01be 0000 0000  |    |
01c0 0188 0000  |    |
01c2 02c8 0000  |    |
01c4 0010 0010  |    |
01c6 0000 0000  |    |
01c8 0630 0000  | 0  |
01ca 0b40 0000  | @  |
01cc 0040 0040  | @ @|
01ce 0000 0000  |    |
01d0 1900 0000  |    |
01d2 2d80 0000  |-   |
01d4 0100 0100  |    |
01d6 0000 0000  |    |
01d8 6500 0000  |e   |
01da b800 0000  |    |
01dc 0400 0400  |    |
01de 0000 0001  |    |
01e0 9800 0002  |    |
01e2 e800 0000  |    |
01e4 1000 1000  |    |
01e6 0000 0006  |    |
01e8 7000 000b  |p   |
01ea c000 0000  |    |
01ec 4000 4000  |@ @ |
01ee 0000 001a  |    |
01f0 0000 0030  |   0|
01f2 0000 0001  |    |
01f4 0001 0000  |    |
01f6 0000 0069  |   i|
01f8 0000 00c2  |    |
01fa 0000 0004  |    |
01fc 0004 0000  |    |
01fe 0000 01a8  |    |