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

⟦4ee653590⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01c8       |    |		.CONST	0x01c8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001c       |    |		.CONST	0x001c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0011 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0013 00bf       |    |		Action	Accept_Activation
0014 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0015 00c7       |    |		Action	Elaborate_Subprogram
0016 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001b 00c7       |    |		Action	Elaborate_Subprogram
001c			BODY_0008:
001c 00bc       |    |		Action	Signal_Activated
001d 00bb       |    |		Action	Signal_Completion
001e 0000 0000  |    |		.XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 003d       | =  |		.CONST	0x003d								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0006       |    |		.CONST	0x0006								; Number of locals
0023			INIT_0020:
0023 e001       |    |		Load	0x0,0x1
0024 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0025 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0026 e002       |    |		Load	0x0,0x2
0027 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0028 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0029 e001       |    |		Load	0x0,0x1
002a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
002b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
002c 02c7       |    |		Declare_Variable	Any
002d e5fc       |    |		Load	0x2,-0x4
002e 4800       |H   |		Short_Literal	0x0
002f e5fd       |    |		Load	0x2,-0x3
0030 e003       |    |		Load	0x0,0x3
0031 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0032 a404       |    |		Store_Unchecked	0x2,0x4
0033 e001       |    |		Load	0x0,0x1
0034 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0035 02c7       |    |		Declare_Variable	Any
0036 00d8       |    |		Load_Top	At_Offset_0
0037 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0038 e001       |    |		Load	0x0,0x1
0039 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003a 02c7       |    |		Declare_Variable	Any
003b 00d8       |    |		Load_Top	At_Offset_0
003c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003d			BODY_0020:
003d 4800       |H   |		Short_Literal	0x0
003e a5fb       |    |		Store_Unchecked	0x2,-0x5
003f 00da       |    |		Load_Top	At_Offset_2
0040 e001       |    |		Load	0x0,0x1
0041 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0042 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0043 6814       |h   |		Jump_Zero	0x58
0044 e004       |    |		Load	0x0,0x4
0045 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0046 4801       |H   |		Short_Literal	0x1
0047 4801       |H   |		Short_Literal	0x1
0048 e005       |    |		Load	0x0,0x5
0049 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004a 0334       | 4  |		Declare_Variable	Array,With_Constraint
004b e5fd       |    |		Load	0x2,-0x3
004c e005       |    |		Load	0x0,0x5
004d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
004e e005       |    |		Load	0x0,0x5
004f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0050 0119       |    |		Execute	Any,Check_In_Formal_Type
0051 4801       |H   |		Short_Literal	0x1
0052 00da       |    |		Load_Top	At_Offset_2
0053 01d6       |    |		Execute	Vector,Field_Write
0054 6033       |`3  |		Indirect_Literal	Discrete,0x88,{0x00000000, 0x0000882b}
0055 e002       |    |		Load	0x0,0x2
0056 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0057 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0058 00cf       |    |		Action	Mark_Auxiliary
0059 7825       |x%  |		Jump	0x7f
005a e5fc       |    |		Load	0x2,-0x4
005b 4801       |H   |		Short_Literal	0x1
005c e404       |    |		Load	0x2,0x4
005d e003       |    |		Load	0x0,0x3
005e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
005f c406       |    |		Store	0x2,0x6
0060 e5fc       |    |		Load	0x2,-0x4
0061 4801       |H   |		Short_Literal	0x1
0062 00db       |    |		Load_Top	At_Offset_3
0063 e003       |    |		Load	0x0,0x3
0064 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0065 c405       |    |		Store	0x2,0x5
0066 e002       |    |		Load	0x0,0x2
0067 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0068 e5fc       |    |		Load	0x2,-0x4
0069 e5fe       |    |		Load	0x2,-0x2
006a e5ff       |    |		Load	0x2,-0x1
006b e406       |    |		Load	0x2,0x6
006c e405       |    |		Load	0x2,0x5
006d e006       |    |		Load	0x0,0x6
006e 1880       |    |		Execute	Package,Field_Execute,Field_Number 0x80
006f c403       |    |		Store	0x2,0x3
0070 e403       |    |		Load	0x2,0x3
0071 6807       |h   |		Jump_Zero	0x79
0072 e004       |    |		Load	0x0,0x4
0073 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0074 e403       |    |		Load	0x2,0x3
0075 e002       |    |		Load	0x0,0x2
0076 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0077 4800       |H   |		Short_Literal	0x0
0078 a403       |    |		Store_Unchecked	0x2,0x3
0079 00db       |    |		Load_Top	At_Offset_3
007a e001       |    |		Load	0x0,0x1
007b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
007c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
007d c404       |    |		Store	0x2,0x4
007e 00c9       |    |		Action	Pop_Auxiliary_Loop
007f 00db       |    |		Load_Top	At_Offset_3
0080 e001       |    |		Load	0x0,0x1
0081 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0082 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0083 6fd6       |o   |		Jump_Zero	0x5a
0084 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0085 0000 0000  |    |		.XXX[0x3]
0087 0000       |    |
0088 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000882b}
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00ad       |    |		.CONST	0x00ad								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0006       |    |		.CONST	0x0006								; Number of locals
0093			INIT_0090:
0093 e001       |    |		Load	0x0,0x1
0094 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0095 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0096 e002       |    |		Load	0x0,0x2
0097 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0098 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0099 e001       |    |		Load	0x0,0x1
009a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
009b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
009c 02c7       |    |		Declare_Variable	Any
009d e5fc       |    |		Load	0x2,-0x4
009e 4800       |H   |		Short_Literal	0x0
009f e5fd       |    |		Load	0x2,-0x3
00a0 e003       |    |		Load	0x0,0x3
00a1 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00a2 a404       |    |		Store_Unchecked	0x2,0x4
00a3 e001       |    |		Load	0x0,0x1
00a4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a5 02c7       |    |		Declare_Variable	Any
00a6 00d8       |    |		Load_Top	At_Offset_0
00a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a8 e001       |    |		Load	0x0,0x1
00a9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00aa 02c7       |    |		Declare_Variable	Any
00ab 00d8       |    |		Load_Top	At_Offset_0
00ac 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ad			BODY_0090:
00ad 4800       |H   |		Short_Literal	0x0
00ae a5fb       |    |		Store_Unchecked	0x2,-0x5
00af 00da       |    |		Load_Top	At_Offset_2
00b0 e001       |    |		Load	0x0,0x1
00b1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00b2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00b3 6814       |h   |		Jump_Zero	0xc8
00b4 e004       |    |		Load	0x0,0x4
00b5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00b6 4801       |H   |		Short_Literal	0x1
00b7 4801       |H   |		Short_Literal	0x1
00b8 e005       |    |		Load	0x0,0x5
00b9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ba 0334       | 4  |		Declare_Variable	Array,With_Constraint
00bb e5fd       |    |		Load	0x2,-0x3
00bc e005       |    |		Load	0x0,0x5
00bd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00be e005       |    |		Load	0x0,0x5
00bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c0 0119       |    |		Execute	Any,Check_In_Formal_Type
00c1 4801       |H   |		Short_Literal	0x1
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 01d6       |    |		Execute	Vector,Field_Write
00c4 67c3       |g   |		Indirect_Literal	Discrete,0x88,{0x00000000, 0x0000882b}
00c5 e002       |    |		Load	0x0,0x2
00c6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00c7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00c8 00cf       |    |		Action	Mark_Auxiliary
00c9 7825       |x%  |		Jump	0xef
00ca e5fc       |    |		Load	0x2,-0x4
00cb 4801       |H   |		Short_Literal	0x1
00cc e404       |    |		Load	0x2,0x4
00cd e003       |    |		Load	0x0,0x3
00ce 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00cf c406       |    |		Store	0x2,0x6
00d0 e5fc       |    |		Load	0x2,-0x4
00d1 4801       |H   |		Short_Literal	0x1
00d2 00db       |    |		Load_Top	At_Offset_3
00d3 e003       |    |		Load	0x0,0x3
00d4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d5 c405       |    |		Store	0x2,0x5
00d6 e002       |    |		Load	0x0,0x2
00d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d8 e5fc       |    |		Load	0x2,-0x4
00d9 e5fe       |    |		Load	0x2,-0x2
00da e5ff       |    |		Load	0x2,-0x1
00db e406       |    |		Load	0x2,0x6
00dc e405       |    |		Load	0x2,0x5
00dd e006       |    |		Load	0x0,0x6
00de 187f       |    |		Execute	Package,Field_Execute,Field_Number 0x7f
00df c403       |    |		Store	0x2,0x3
00e0 e403       |    |		Load	0x2,0x3
00e1 6807       |h   |		Jump_Zero	0xe9
00e2 e004       |    |		Load	0x0,0x4
00e3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00e4 e403       |    |		Load	0x2,0x3
00e5 e002       |    |		Load	0x0,0x2
00e6 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
00e7 4800       |H   |		Short_Literal	0x0
00e8 a403       |    |		Store_Unchecked	0x2,0x3
00e9 00db       |    |		Load_Top	At_Offset_3
00ea e001       |    |		Load	0x0,0x1
00eb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ec 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00ed c404       |    |		Store	0x2,0x4
00ee 00c9       |    |		Action	Pop_Auxiliary_Loop
00ef 00db       |    |		Load_Top	At_Offset_3
00f0 e001       |    |		Load	0x0,0x1
00f1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00f3 6fd6       |o   |		Jump_Zero	0xca
00f4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0115       |    |		.CONST	0x0115								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0006       |    |		.CONST	0x0006								; Number of locals
00fb			INIT_00f8:
00fb e001       |    |		Load	0x0,0x1
00fc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00fd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00fe e002       |    |		Load	0x0,0x2
00ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0100 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0101 e001       |    |		Load	0x0,0x1
0102 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0103 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0104 02c7       |    |		Declare_Variable	Any
0105 e5fe       |    |		Load	0x2,-0x2
0106 4800       |H   |		Short_Literal	0x0
0107 e5ff       |    |		Load	0x2,-0x1
0108 e003       |    |		Load	0x0,0x3
0109 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
010a a404       |    |		Store_Unchecked	0x2,0x4
010b e001       |    |		Load	0x0,0x1
010c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
010d 02c7       |    |		Declare_Variable	Any
010e 00d8       |    |		Load_Top	At_Offset_0
010f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0110 e001       |    |		Load	0x0,0x1
0111 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0112 02c7       |    |		Declare_Variable	Any
0113 00d8       |    |		Load_Top	At_Offset_0
0114 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0115			BODY_00f8:
0115 4800       |H   |		Short_Literal	0x0
0116 a5fd       |    |		Store_Unchecked	0x2,-0x3
0117 00da       |    |		Load_Top	At_Offset_2
0118 e001       |    |		Load	0x0,0x1
0119 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
011a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
011b 6814       |h   |		Jump_Zero	0x130
011c e004       |    |		Load	0x0,0x4
011d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011e 4801       |H   |		Short_Literal	0x1
011f 4801       |H   |		Short_Literal	0x1
0120 e005       |    |		Load	0x0,0x5
0121 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0122 0334       | 4  |		Declare_Variable	Array,With_Constraint
0123 e5ff       |    |		Load	0x2,-0x1
0124 e005       |    |		Load	0x0,0x5
0125 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0126 e005       |    |		Load	0x0,0x5
0127 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0128 0119       |    |		Execute	Any,Check_In_Formal_Type
0129 4801       |H   |		Short_Literal	0x1
012a 00da       |    |		Load_Top	At_Offset_2
012b 01d6       |    |		Execute	Vector,Field_Write
012c 602f       |`/  |		Indirect_Literal	Discrete,0x15c,{0x00000000, 0x0000882b}
012d e002       |    |		Load	0x0,0x2
012e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
012f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0130 00cf       |    |		Action	Mark_Auxiliary
0131 7823       |x#  |		Jump	0x155
0132 e5fe       |    |		Load	0x2,-0x2
0133 4801       |H   |		Short_Literal	0x1
0134 e404       |    |		Load	0x2,0x4
0135 e003       |    |		Load	0x0,0x3
0136 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0137 c406       |    |		Store	0x2,0x6
0138 e5fe       |    |		Load	0x2,-0x2
0139 4801       |H   |		Short_Literal	0x1
013a 00db       |    |		Load_Top	At_Offset_3
013b e003       |    |		Load	0x0,0x3
013c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
013d c405       |    |		Store	0x2,0x5
013e e002       |    |		Load	0x0,0x2
013f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0140 e5fe       |    |		Load	0x2,-0x2
0141 00db       |    |		Load_Top	At_Offset_3
0142 e405       |    |		Load	0x2,0x5
0143 e006       |    |		Load	0x0,0x6
0144 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
0145 c403       |    |		Store	0x2,0x3
0146 e403       |    |		Load	0x2,0x3
0147 6807       |h   |		Jump_Zero	0x14f
0148 e004       |    |		Load	0x0,0x4
0149 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014a e403       |    |		Load	0x2,0x3
014b e002       |    |		Load	0x0,0x2
014c 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
014d 4800       |H   |		Short_Literal	0x0
014e a403       |    |		Store_Unchecked	0x2,0x3
014f 00db       |    |		Load_Top	At_Offset_3
0150 e001       |    |		Load	0x0,0x1
0151 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0152 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0153 c404       |    |		Store	0x2,0x4
0154 00c9       |    |		Action	Pop_Auxiliary_Loop
0155 00db       |    |		Load_Top	At_Offset_3
0156 e001       |    |		Load	0x0,0x1
0157 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0158 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0159 6fd8       |o   |		Jump_Zero	0x132
015a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
015b 0000       |    |		.XXX[0x1]
015c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000882b}
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 017d       | }  |		.CONST	0x017d								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0006       |    |		.CONST	0x0006								; Number of locals
0163			INIT_0160:
0163 e001       |    |		Load	0x0,0x1
0164 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0165 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0166 e002       |    |		Load	0x0,0x2
0167 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0168 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0169 e001       |    |		Load	0x0,0x1
016a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
016c 02c7       |    |		Declare_Variable	Any
016d e5fd       |    |		Load	0x2,-0x3
016e 4800       |H   |		Short_Literal	0x0
016f e5fe       |    |		Load	0x2,-0x2
0170 e003       |    |		Load	0x0,0x3
0171 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0172 a404       |    |		Store_Unchecked	0x2,0x4
0173 e001       |    |		Load	0x0,0x1
0174 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0175 02c7       |    |		Declare_Variable	Any
0176 00d8       |    |		Load_Top	At_Offset_0
0177 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0178 e001       |    |		Load	0x0,0x1
0179 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017a 02c7       |    |		Declare_Variable	Any
017b 00d8       |    |		Load_Top	At_Offset_0
017c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
017d			BODY_0160:
017d 4800       |H   |		Short_Literal	0x0
017e a5fc       |    |		Store_Unchecked	0x2,-0x4
017f 00da       |    |		Load_Top	At_Offset_2
0180 e001       |    |		Load	0x0,0x1
0181 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0182 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0183 6814       |h   |		Jump_Zero	0x198
0184 e004       |    |		Load	0x0,0x4
0185 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0186 4801       |H   |		Short_Literal	0x1
0187 4801       |H   |		Short_Literal	0x1
0188 e005       |    |		Load	0x0,0x5
0189 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
018a 0334       | 4  |		Declare_Variable	Array,With_Constraint
018b e5fe       |    |		Load	0x2,-0x2
018c e005       |    |		Load	0x0,0x5
018d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
018e e005       |    |		Load	0x0,0x5
018f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0190 0119       |    |		Execute	Any,Check_In_Formal_Type
0191 4801       |H   |		Short_Literal	0x1
0192 00da       |    |		Load_Top	At_Offset_2
0193 01d6       |    |		Execute	Vector,Field_Write
0194 67c7       |g   |		Indirect_Literal	Discrete,0x15c,{0x00000000, 0x0000882b}
0195 e002       |    |		Load	0x0,0x2
0196 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0197 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0198 00cf       |    |		Action	Mark_Auxiliary
0199 7824       |x$  |		Jump	0x1be
019a e5fd       |    |		Load	0x2,-0x3
019b 4801       |H   |		Short_Literal	0x1
019c e404       |    |		Load	0x2,0x4
019d e003       |    |		Load	0x0,0x3
019e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
019f c406       |    |		Store	0x2,0x6
01a0 e5fd       |    |		Load	0x2,-0x3
01a1 4801       |H   |		Short_Literal	0x1
01a2 00db       |    |		Load_Top	At_Offset_3
01a3 e003       |    |		Load	0x0,0x3
01a4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01a5 c405       |    |		Store	0x2,0x5
01a6 e002       |    |		Load	0x0,0x2
01a7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a8 e5fd       |    |		Load	0x2,-0x3
01a9 e5ff       |    |		Load	0x2,-0x1
01aa e406       |    |		Load	0x2,0x6
01ab e405       |    |		Load	0x2,0x5
01ac e006       |    |		Load	0x0,0x6
01ad 1881       |    |		Execute	Package,Field_Execute,Field_Number 0x81
01ae c403       |    |		Store	0x2,0x3
01af e403       |    |		Load	0x2,0x3
01b0 6807       |h   |		Jump_Zero	0x1b8
01b1 e004       |    |		Load	0x0,0x4
01b2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01b3 e403       |    |		Load	0x2,0x3
01b4 e002       |    |		Load	0x0,0x2
01b5 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
01b6 4800       |H   |		Short_Literal	0x0
01b7 a403       |    |		Store_Unchecked	0x2,0x3
01b8 00db       |    |		Load_Top	At_Offset_3
01b9 e001       |    |		Load	0x0,0x1
01ba 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01bb 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01bc c404       |    |		Store	0x2,0x4
01bd 00c9       |    |		Action	Pop_Auxiliary_Loop
01be 00db       |    |		Load_Top	At_Offset_3
01bf e001       |    |		Load	0x0,0x1
01c0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01c1 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01c2 6fd7       |o   |		Jump_Zero	0x19a
01c3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x1699,0x0000,0x0001,0x0000
01ce 6c37 97f4  |l7  |		.XXX[0x12]
01d0 036f 97fb  | o  |
01d2 97f5 2003  |    |
01d4 97ff 8014  |    |
01d6 6077 8018  |`w  |
01d8 6068 0167  |`h g|
01da 97f0 0367  |   g|
01dc 801c 605f  |  `_|
01de 17f1 1410  |    |
01e0 0000 0000  |    |		.BLANK	0000[0x5]
01e5 02c0 0010  |    |		.XXX[0x1b]
01e7 000c 036b  |   k|
01e9 800c 603f  |  `?|
01eb 8010 6c37  |  l7|
01ed 8010 6c37  |  l7|
01ef 97f4 036f  |   o|
01f1 97fb 97f5  |    |
01f3 2003 97ff  |    |
01f5 8014 6077  |  `w|
01f7 8018 606c  |  `l|
01f9 0167 97f0  | g  |
01fb 0367 801c  | g  |
01fd 605f 17f1  |`_  |
01ff 1410       |    |