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

⟦7cd94b007⟧

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

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 0338       | 8  |		.CONST	0x0338								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007e       | ~  |		.CONST	0x007e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4814       |H   |		Short_Literal	0x14
000d 00e3       |    |		Load_Encached	Natural_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0011 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0013 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0015 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0017 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0019 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
001b 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
001d 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
001f 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0021 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0023 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0025 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0027 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0029 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
002b 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
002d 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
002f 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0031 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0033 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0035 0093 0000  |    |		push_full_address	0x0
0037 6054       |`T  |		Indirect_Literal	Discrete,0x8c,{0x80000000, 0x00010000}
0038 0273       | s  |		Execute	Discrete,Plus
0039 0129       | )  |		Execute	Any,Make_Visible
003a 0093 0000  |    |		push_full_address	0x0
003c 604b       |`K  |		Indirect_Literal	Discrete,0x88,{0x80000000, 0x00020000}
003d 0273       | s  |		Execute	Discrete,Plus
003e 0129       | )  |		Execute	Any,Make_Visible
003f 4800       |H   |		Short_Literal	0x0
0040 4815       |H   |		Short_Literal	0x15
0041 00e3       |    |		Load_Encached	Natural_Cache
0042 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0043 e20d       |    |		Load	0x1,0xd
0044 0266       | f  |		Execute	Discrete,Bounds
0045 e002       |    |		Load	0x0,0x2
0046 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call
0048 4801       |H   |		Short_Literal	0x1
0049 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
004a e20d       |    |		Load	0x1,0xd
004b 4801       |H   |		Short_Literal	0x1
004c 4814       |H   |		Short_Literal	0x14
004d 00db       |    |		Load_Top	At_Offset_3
004e 035c       | \  |		Declare_Type	Array,Constrained,Visible
004f 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
0051 4802       |H   |		Short_Literal	0x2
0052 032e       | .  |		Declare_Type	Record,Defined,Visible
0053 00bf       |    |		Action	Accept_Activation
0054 0092 0329  |   )|		Action	Push_String_Extended,0x329					; "number=>"
0056 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
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 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
0076 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
007d 00c7       |    |		Action	Elaborate_Subprogram
007e			BODY_0008:
007e 00bc       |    |		Action	Signal_Activated
007f 00bb       |    |		Action	Signal_Completion
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2
0084 e5fe       |    |		Load	0x2,-0x2
0085 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0086 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0087 0000       |    |		.XXX[0x1]
0088 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
008c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0097       |    |		.CONST	0x0097								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 e002       |    |		Load	0x0,0x2
0094 0322       | "  |		Declare_Variable	Record
0095 00d8       |    |		Load_Top	At_Offset_0
0096 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0097			BODY_0090:
0097 4801       |H   |		Short_Literal	0x1
0098 e5fb       |    |		Load	0x2,-0x5
0099 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
009a 00d8       |    |		Load_Top	At_Offset_0
009b e5fc       |    |		Load	0x2,-0x4
009c e5fe       |    |		Load	0x2,-0x2
009d e5fd       |    |		Load	0x2,-0x3
009e e5ff       |    |		Load	0x2,-0x1
009f 8003       |    |		Call	0x0,0x3
00a0 00d1       |    |		Pop_Control	Pop_Count_1
00a1 00d8       |    |		Load_Top	At_Offset_0
00a2 4801       |H   |		Short_Literal	0x1
00a3 e5fb       |    |		Load	0x2,-0x5
00a4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00a5 01d6       |    |		Execute	Vector,Field_Write
00a6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00a7 0000       |    |		.XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00af       |    |		.CONST	0x00af								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0002       |    |		.CONST	0x0002								; Number of locals
00ab			INIT_00a8:
00ab e002       |    |		Load	0x0,0x2
00ac 0322       | "  |		Declare_Variable	Record
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00af			BODY_00a8:
00af 4802       |H   |		Short_Literal	0x2
00b0 e5f7       |    |		Load	0x2,-0x9
00b1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b2 00d8       |    |		Load_Top	At_Offset_0
00b3 e5fc       |    |		Load	0x2,-0x4
00b4 e5fe       |    |		Load	0x2,-0x2
00b5 e5fd       |    |		Load	0x2,-0x3
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 8003       |    |		Call	0x0,0x3
00b8 00d1       |    |		Pop_Control	Pop_Count_1
00b9 00d8       |    |		Load_Top	At_Offset_0
00ba 4801       |H   |		Short_Literal	0x1
00bb e5f7       |    |		Load	0x2,-0x9
00bc 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00bd 01d6       |    |		Execute	Vector,Field_Write
00be 00d8       |    |		Load_Top	At_Offset_0
00bf e5f8       |    |		Load	0x2,-0x8
00c0 e5fa       |    |		Load	0x2,-0x6
00c1 e5f9       |    |		Load	0x2,-0x7
00c2 e5fb       |    |		Load	0x2,-0x5
00c3 8003       |    |		Call	0x0,0x3
00c4 00d1       |    |		Pop_Control	Pop_Count_1
00c5 00d8       |    |		Load_Top	At_Offset_0
00c6 4802       |H   |		Short_Literal	0x2
00c7 e5f7       |    |		Load	0x2,-0x9
00c8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00c9 01d6       |    |		Execute	Vector,Field_Write
00ca 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
00cb 0000 0000  |    |		.BLANK	0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d7       |    |		.CONST	0x00d7								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 e002       |    |		Load	0x0,0x2
00d4 0322       | "  |		Declare_Variable	Record
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d7			BODY_00d0:
00d7 4803       |H   |		Short_Literal	0x3
00d8 e5f3       |    |		Load	0x2,-0xd
00d9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00da 00d8       |    |		Load_Top	At_Offset_0
00db e5fc       |    |		Load	0x2,-0x4
00dc e5fe       |    |		Load	0x2,-0x2
00dd e5fd       |    |		Load	0x2,-0x3
00de e5ff       |    |		Load	0x2,-0x1
00df 8003       |    |		Call	0x0,0x3
00e0 00d1       |    |		Pop_Control	Pop_Count_1
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 4801       |H   |		Short_Literal	0x1
00e3 e5f3       |    |		Load	0x2,-0xd
00e4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00e5 01d6       |    |		Execute	Vector,Field_Write
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 e5f8       |    |		Load	0x2,-0x8
00e8 e5fa       |    |		Load	0x2,-0x6
00e9 e5f9       |    |		Load	0x2,-0x7
00ea e5fb       |    |		Load	0x2,-0x5
00eb 8003       |    |		Call	0x0,0x3
00ec 00d1       |    |		Pop_Control	Pop_Count_1
00ed 00d8       |    |		Load_Top	At_Offset_0
00ee 4802       |H   |		Short_Literal	0x2
00ef e5f3       |    |		Load	0x2,-0xd
00f0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f1 01d6       |    |		Execute	Vector,Field_Write
00f2 00d8       |    |		Load_Top	At_Offset_0
00f3 e5f4       |    |		Load	0x2,-0xc
00f4 e5f6       |    |		Load	0x2,-0xa
00f5 e5f5       |    |		Load	0x2,-0xb
00f6 e5f7       |    |		Load	0x2,-0x9
00f7 8003       |    |		Call	0x0,0x3
00f8 00d1       |    |		Pop_Control	Pop_Count_1
00f9 00d8       |    |		Load_Top	At_Offset_0
00fa 4803       |H   |		Short_Literal	0x3
00fb e5f3       |    |		Load	0x2,-0xd
00fc 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00fd 01d6       |    |		Execute	Vector,Field_Write
00fe 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
00ff 0000       |    |		.XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0107       |    |		.CONST	0x0107								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0002       |    |		.CONST	0x0002								; Number of locals
0103			INIT_0100:
0103 e225       | %  |		Load	0x1,0x25
0104 0322       | "  |		Declare_Variable	Record
0105 00d8       |    |		Load_Top	At_Offset_0
0106 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0107			BODY_0100:
0107 00db       |    |		Load_Top	At_Offset_3
0108 00d9       |    |		Load_Top	At_Offset_1
0109 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
010a 00d8       |    |		Load_Top	At_Offset_0
010b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011b       |    |		.CONST	0x011b								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0003       |    |		.CONST	0x0003								; Number of locals
0113			INIT_0110:
0113 e225       | %  |		Load	0x1,0x25
0114 0322       | "  |		Declare_Variable	Record
0115 00d8       |    |		Load_Top	At_Offset_0
0116 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0117 e002       |    |		Load	0x0,0x2
0118 0322       | "  |		Declare_Variable	Record
0119 00d8       |    |		Load_Top	At_Offset_0
011a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011b			BODY_0110:
011b 4801       |H   |		Short_Literal	0x1
011c 00da       |    |		Load_Top	At_Offset_2
011d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
011e 00d8       |    |		Load_Top	At_Offset_0
011f e5fc       |    |		Load	0x2,-0x4
0120 e5fe       |    |		Load	0x2,-0x2
0121 e5fd       |    |		Load	0x2,-0x3
0122 e5ff       |    |		Load	0x2,-0x1
0123 8003       |    |		Call	0x0,0x3
0124 00d1       |    |		Pop_Control	Pop_Count_1
0125 00d8       |    |		Load_Top	At_Offset_0
0126 4801       |H   |		Short_Literal	0x1
0127 00db       |    |		Load_Top	At_Offset_3
0128 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0129 01d6       |    |		Execute	Vector,Field_Write
012a 00d9       |    |		Load_Top	At_Offset_1
012b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013b       | ;  |		.CONST	0x013b								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0003       |    |		.CONST	0x0003								; Number of locals
0133			INIT_0130:
0133 e225       | %  |		Load	0x1,0x25
0134 0322       | "  |		Declare_Variable	Record
0135 00d8       |    |		Load_Top	At_Offset_0
0136 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0137 e002       |    |		Load	0x0,0x2
0138 0322       | "  |		Declare_Variable	Record
0139 00d8       |    |		Load_Top	At_Offset_0
013a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
013b			BODY_0130:
013b 4802       |H   |		Short_Literal	0x2
013c 00da       |    |		Load_Top	At_Offset_2
013d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
013e 00d8       |    |		Load_Top	At_Offset_0
013f e5fc       |    |		Load	0x2,-0x4
0140 e5fe       |    |		Load	0x2,-0x2
0141 e5fd       |    |		Load	0x2,-0x3
0142 e5ff       |    |		Load	0x2,-0x1
0143 8003       |    |		Call	0x0,0x3
0144 00d1       |    |		Pop_Control	Pop_Count_1
0145 00d8       |    |		Load_Top	At_Offset_0
0146 4801       |H   |		Short_Literal	0x1
0147 00db       |    |		Load_Top	At_Offset_3
0148 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0149 01d6       |    |		Execute	Vector,Field_Write
014a 00d8       |    |		Load_Top	At_Offset_0
014b e5f8       |    |		Load	0x2,-0x8
014c e5fa       |    |		Load	0x2,-0x6
014d e5f9       |    |		Load	0x2,-0x7
014e e5fb       |    |		Load	0x2,-0x5
014f 8003       |    |		Call	0x0,0x3
0150 00d1       |    |		Pop_Control	Pop_Count_1
0151 00d8       |    |		Load_Top	At_Offset_0
0152 4802       |H   |		Short_Literal	0x2
0153 00db       |    |		Load_Top	At_Offset_3
0154 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0155 01d6       |    |		Execute	Vector,Field_Write
0156 00d9       |    |		Load_Top	At_Offset_1
0157 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0163       | c  |		.CONST	0x0163								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0003       |    |		.CONST	0x0003								; Number of locals
015b			INIT_0158:
015b e225       | %  |		Load	0x1,0x25
015c 0322       | "  |		Declare_Variable	Record
015d 00d8       |    |		Load_Top	At_Offset_0
015e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
015f e002       |    |		Load	0x0,0x2
0160 0322       | "  |		Declare_Variable	Record
0161 00d8       |    |		Load_Top	At_Offset_0
0162 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0163			BODY_0158:
0163 4803       |H   |		Short_Literal	0x3
0164 00da       |    |		Load_Top	At_Offset_2
0165 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0166 00d8       |    |		Load_Top	At_Offset_0
0167 e5fc       |    |		Load	0x2,-0x4
0168 e5fe       |    |		Load	0x2,-0x2
0169 e5fd       |    |		Load	0x2,-0x3
016a e5ff       |    |		Load	0x2,-0x1
016b 8003       |    |		Call	0x0,0x3
016c 00d1       |    |		Pop_Control	Pop_Count_1
016d 00d8       |    |		Load_Top	At_Offset_0
016e 4801       |H   |		Short_Literal	0x1
016f 00db       |    |		Load_Top	At_Offset_3
0170 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0171 01d6       |    |		Execute	Vector,Field_Write
0172 00d8       |    |		Load_Top	At_Offset_0
0173 e5f8       |    |		Load	0x2,-0x8
0174 e5fa       |    |		Load	0x2,-0x6
0175 e5f9       |    |		Load	0x2,-0x7
0176 e5fb       |    |		Load	0x2,-0x5
0177 8003       |    |		Call	0x0,0x3
0178 00d1       |    |		Pop_Control	Pop_Count_1
0179 00d8       |    |		Load_Top	At_Offset_0
017a 4802       |H   |		Short_Literal	0x2
017b 00db       |    |		Load_Top	At_Offset_3
017c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
017d 01d6       |    |		Execute	Vector,Field_Write
017e 00d8       |    |		Load_Top	At_Offset_0
017f e5f4       |    |		Load	0x2,-0xc
0180 e5f6       |    |		Load	0x2,-0xa
0181 e5f5       |    |		Load	0x2,-0xb
0182 e5f7       |    |		Load	0x2,-0x9
0183 8003       |    |		Call	0x0,0x3
0184 00d1       |    |		Pop_Control	Pop_Count_1
0185 00d8       |    |		Load_Top	At_Offset_0
0186 4803       |H   |		Short_Literal	0x3
0187 00db       |    |		Load_Top	At_Offset_3
0188 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0189 01d6       |    |		Execute	Vector,Field_Write
018a 00d9       |    |		Load_Top	At_Offset_1
018b 440c       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xc
018c 0000 0000  |    |		.BLANK	0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 e5fe       |    |		Load	0x2,-0x2
0195 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0196 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0197 0000       |    |		.XXX[0x1]
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 00db       |    |		Load_Top	At_Offset_3
019c 0d01       |    |		Execute_Immediate	Less,0x1
019d e5fe       |    |		Load	0x2,-0x2
019e e5fd       |    |		Load	0x2,-0x3
019f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a0 027d       | }  |		Execute	Discrete,Greater
01a1 0278       | x  |		Execute	Discrete,Or
01a2 6802       |h   |		Jump_Zero	0x1a5
01a3 e222       | "  |		Load	0x1,0x22
01a4 0257       | W  |		Execute	Discrete,Raise
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 e5fe       |    |		Load	0x2,-0x2
01a7 e5fd       |    |		Load	0x2,-0x3
01a8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01a9 01d6       |    |		Execute	Vector,Field_Write
01aa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ab 0000 0000  |    |		.BLANK	0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b6 0000 0000  |    |		.XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00db       |    |		Load_Top	At_Offset_3
01bc 0d01       |    |		Execute_Immediate	Less,0x1
01bd e5fe       |    |		Load	0x2,-0x2
01be e5ff       |    |		Load	0x2,-0x1
01bf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c0 027d       | }  |		Execute	Discrete,Greater
01c1 0278       | x  |		Execute	Discrete,Or
01c2 6802       |h   |		Jump_Zero	0x1c5
01c3 e222       | "  |		Load	0x1,0x22
01c4 0257       | W  |		Execute	Discrete,Raise
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 00db       |    |		Load_Top	At_Offset_3
01c7 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01c8 01d5       |    |		Execute	Vector,Field_Reference
01c9 0320       |    |		Declare_Variable	Record,Duplicate
01ca 00cd       |    |		Action	Spare6_Action
01cb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01cc 0000 0000  |    |		.BLANK	0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 4801       |H   |		Short_Literal	0x1
01d4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00db       |    |		Load_Top	At_Offset_3
01dc 00db       |    |		Load_Top	At_Offset_3
01dd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01de 027d       | }  |		Execute	Discrete,Greater
01df 6802       |h   |		Jump_Zero	0x1e2
01e0 e222       | "  |		Load	0x1,0x22
01e1 0257       | W  |		Execute	Discrete,Raise
01e2 00db       |    |		Load_Top	At_Offset_3
01e3 0a01       |    |		Execute_Immediate	Plus,0x1
01e4 00d8       |    |		Load_Top	At_Offset_0
01e5 e223       | #  |		Load	0x1,0x23
01e6 0260       | `  |		Execute	Discrete,In_Type
01e7 7001       |p   |		Jump_Nonzero	0x1e9
01e8 0801       |    |		Execute_Immediate	Raise,0x1
01e9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ea 0000 0000  |    |		.BLANK	0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 00db       |    |		Load_Top	At_Offset_3
01f5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01f6 027d       | }  |		Execute	Discrete,Greater
01f7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00db       |    |		Load_Top	At_Offset_3
01fc 00db       |    |		Load_Top	At_Offset_3
01fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01fe 027d       | }  |		Execute	Discrete,Greater
01ff 6802       |h   |		Jump_Zero	0x202
0200 e222       | "  |		Load	0x1,0x22
0201 0257       | W  |		Execute	Discrete,Raise
0202 00db       |    |		Load_Top	At_Offset_3
0203 00d8       |    |		Load_Top	At_Offset_0
0204 e20d       |    |		Load	0x1,0xd
0205 0260       | `  |		Execute	Discrete,In_Type
0206 7001       |p   |		Jump_Nonzero	0x208
0207 0801       |    |		Execute_Immediate	Raise,0x1
0208 00db       |    |		Load_Top	At_Offset_3
0209 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
020a 01d5       |    |		Execute	Vector,Field_Reference
020b 0320       |    |		Declare_Variable	Record,Duplicate
020c 00cd       |    |		Action	Spare6_Action
020d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
020e 0000 0000  |    |		.XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 4829       |H)  |		Short_Literal	0x29
0214 0092 032a  |   *|		Action	Push_String_Extended,0x32a					; "(number=>"
0216 e5ff       |    |		Load	0x2,-0x1
0217 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0218 00e0       |    |		Load_Encached	Standard_Cache
0219 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
021a 01cc       |    |		Execute	Vector,Catenate
021b 4801       |H   |		Short_Literal	0x1
021c e5ff       |    |		Load	0x2,-0x1
021d 8227       | '  |		Call	0x1,0x27
021e 01cc       |    |		Execute	Vector,Catenate
021f 01cb       |    |		Execute	Vector,Append
0220 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0221 0000 0000  |    |		.BLANK	0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0230       | 0  |		.CONST	0x0230								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0003       |    |		.CONST	0x0003								; Number of locals
022b			INIT_0228:
022b e225       | %  |		Load	0x1,0x25
022c 0322       | "  |		Declare_Variable	Record
022d 00d8       |    |		Load_Top	At_Offset_0
022e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022f 00e3       |    |		Load_Encached	Natural_Cache
0230			BODY_0228:
0230 00d8       |    |		Load_Top	At_Offset_0
0231 00da       |    |		Load_Top	At_Offset_2
0232 e5ff       |    |		Load	0x2,-0x1
0233 8220       |    |		Call	0x1,0x20
0234 00d1       |    |		Pop_Control	Pop_Count_1
0235 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0236 00d9       |    |		Load_Top	At_Offset_1
0237 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0243       | C  |		.CONST	0x0243								; Address of begin
0239 02b9       |    |		.CONST	0x02b9								; Address of exception handler
023a 0006       |    |		.CONST	0x0006								; Number of locals
023b			INIT_0238:
023b 00e3       |    |		Load_Encached	Natural_Cache
023c 00e3       |    |		Load_Encached	Natural_Cache
023d 00e3       |    |		Load_Encached	Natural_Cache
023e 00e3       |    |		Load_Encached	Natural_Cache
023f e002       |    |		Load	0x0,0x2
0240 0322       | "  |		Declare_Variable	Record
0241 00d8       |    |		Load_Top	At_Offset_0
0242 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0243			BODY_0238:
0243 e5ff       |    |		Load	0x2,-0x1
0244 01dd       |    |		Execute	Vector,First
0245 e5ff       |    |		Load	0x2,-0x1
0246 01d7       |    |		Execute	Vector,Field_Read
0247 0e28       | (  |		Execute_Immediate	Not_Equal,0x28
0248 6802       |h   |		Jump_Zero	0x24b
0249 e221       | !  |		Load	0x1,0x21
024a 0257       | W  |		Execute	Discrete,Raise
024b 4801       |H   |		Short_Literal	0x1
024c e5ff       |    |		Load	0x2,-0x1
024d e226       | &  |		Load	0x1,0x26
024e 8004       |    |		Call	0x0,0x4
024f a402       |    |		Store_Unchecked	0x2,0x2
0250 e402       |    |		Load	0x2,0x2
0251 0f00       |    |		Execute_Immediate	Equal,0x0
0252 e402       |    |		Load	0x2,0x2
0253 e5ff       |    |		Load	0x2,-0x1
0254 01dd       |    |		Execute	Vector,First
0255 0a01       |    |		Execute_Immediate	Plus,0x1
0256 027e       | ~  |		Execute	Discrete,Not_Equal
0257 0278       | x  |		Execute	Discrete,Or
0258 6802       |h   |		Jump_Zero	0x25b
0259 e221       | !  |		Load	0x1,0x21
025a 0257       | W  |		Execute	Discrete,Raise
025b e402       |    |		Load	0x2,0x2
025c 0a08       |    |		Execute_Immediate	Plus,0x8
025d c403       |    |		Store	0x2,0x3
025e 00cf       |    |		Action	Mark_Auxiliary
025f 7804       |x   |		Jump	0x264
0260 e402       |    |		Load	0x2,0x2
0261 0a01       |    |		Execute_Immediate	Plus,0x1
0262 c402       |    |		Store	0x2,0x2
0263 00c9       |    |		Action	Pop_Auxiliary_Loop
0264 e402       |    |		Load	0x2,0x2
0265 e5ff       |    |		Load	0x2,-0x1
0266 01d7       |    |		Execute	Vector,Field_Read
0267 0e2c       | ,  |		Execute_Immediate	Not_Equal,0x2c
0268 e402       |    |		Load	0x2,0x2
0269 e5ff       |    |		Load	0x2,-0x1
026a 01d7       |    |		Execute	Vector,Field_Read
026b 0e29       | )  |		Execute_Immediate	Not_Equal,0x29
026c 0279       | y  |		Execute	Discrete,And
026d 77f2       |w   |		Jump_Nonzero	0x260
026e 00ce       |    |		Action	Pop_Auxiliary
026f e402       |    |		Load	0x2,0x2
0270 0aff       |    |		Execute_Immediate	Plus,-0x1
0271 005b       | [  |		Store_Top	Discrete,At_Offset_3
0272 00db       |    |		Load_Top	At_Offset_3
0273 00db       |    |		Load_Top	At_Offset_3
0274 e5ff       |    |		Load	0x2,-0x1
0275 01cf       |    |		Execute	Vector,Slice_Read
0276 00e2       |    |		Load_Encached	Integer_Cache
0277 00e0       |    |		Load_Encached	Standard_Cache
0278 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0279 005a       | Z  |		Store_Top	Discrete,At_Offset_2
027a e5fe       |    |		Load	0x2,-0x2
027b 00da       |    |		Load_Top	At_Offset_2
027c 00d8       |    |		Load_Top	At_Offset_0
027d e20d       |    |		Load	0x1,0xd
027e 0260       | `  |		Execute	Discrete,In_Type
027f 7001       |p   |		Jump_Nonzero	0x281
0280 0801       |    |		Execute_Immediate	Raise,0x1
0281 820e       |    |		Call	0x1,0xe
0282 00d1       |    |		Pop_Control	Pop_Count_1
0283 00cf       |    |		Action	Mark_Auxiliary
0284 00da       |    |		Load_Top	At_Offset_2
0285 4801       |H   |		Short_Literal	0x1
0286 0263       | c  |		Execute	Discrete,Above_Bound
0287 7026       |p&  |		Jump_Nonzero	0x2ae
0288 e402       |    |		Load	0x2,0x2
0289 e5ff       |    |		Load	0x2,-0x1
028a 01d7       |    |		Execute	Vector,Field_Read
028b 0e2c       | ,  |		Execute_Immediate	Not_Equal,0x2c
028c 6802       |h   |		Jump_Zero	0x28f
028d e221       | !  |		Load	0x1,0x21
028e 0257       | W  |		Execute	Discrete,Raise
028f 00e3       |    |		Load_Encached	Natural_Cache
0290 e406       |    |		Load	0x2,0x6
0291 e402       |    |		Load	0x2,0x2
0292 0a01       |    |		Execute_Immediate	Plus,0x1
0293 00d8       |    |		Load_Top	At_Offset_0
0294 00e2       |    |		Load_Encached	Integer_Cache
0295 0260       | `  |		Execute	Discrete,In_Type
0296 7001       |p   |		Jump_Nonzero	0x298
0297 0801       |    |		Execute_Immediate	Raise,0x1
0298 e5ff       |    |		Load	0x2,-0x1
0299 01dc       |    |		Execute	Vector,Last
029a e5ff       |    |		Load	0x2,-0x1
029b 01cf       |    |		Execute	Vector,Slice_Read
029c 8005       |    |		Call	0x0,0x5
029d 00d1       |    |		Pop_Control	Pop_Count_1
029e c402       |    |		Store	0x2,0x2
029f e5fe       |    |		Load	0x2,-0x2
02a0 00d9       |    |		Load_Top	At_Offset_1
02a1 00d8       |    |		Load_Top	At_Offset_0
02a2 e20d       |    |		Load	0x1,0xd
02a3 0260       | `  |		Execute	Discrete,In_Type
02a4 7001       |p   |		Jump_Nonzero	0x2a6
02a5 0801       |    |		Execute_Immediate	Raise,0x1
02a6 e406       |    |		Load	0x2,0x6
02a7 8217       |    |		Call	0x1,0x17
02a8 00d1       |    |		Pop_Control	Pop_Count_1
02a9 e402       |    |		Load	0x2,0x2
02aa 0a01       |    |		Execute_Immediate	Plus,0x1
02ab c402       |    |		Store	0x2,0x2
02ac 00c8       |    |		Action	Pop_Auxiliary_Range
02ad 3fda       |?   |		Loop_Increasing	0x288
02ae 00ce       |    |		Action	Pop_Auxiliary
02af e402       |    |		Load	0x2,0x2
02b0 e5ff       |    |		Load	0x2,-0x1
02b1 01d7       |    |		Execute	Vector,Field_Read
02b2 0e29       | )  |		Execute_Immediate	Not_Equal,0x29
02b3 6802       |h   |		Jump_Zero	0x2b6
02b4 e221       | !  |		Load	0x1,0x21
02b5 0257       | W  |		Execute	Discrete,Raise
02b6 e402       |    |		Load	0x2,0x2
02b7 a5fd       |    |		Store_Unchecked	0x2,-0x3
02b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b9			TRAP_0238:
02b9 0007       |    |		Action	Break_Optional
02ba e221       | !  |		Load	0x1,0x21
02bb 0257       | W  |		Execute	Discrete,Raise
02bc 0000 0000  |    |		.BLANK	0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 4605       |F   |		Jump_Case	0x6
02c4 7804       |x   |		Jump	0x2c9								; case 0x0
02c5 7810       |x   |		Jump	0x2d6								; case 0x1
02c6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
02c7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
02c8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
02c9 00da       |    |		Load_Top	At_Offset_2						; case 0x5
02ca 01dc       |    |		Execute	Vector,Last
02cb 00db       |    |		Load_Top	At_Offset_3
02cc 01dd       |    |		Execute	Vector,First
02cd 0263       | c  |		Execute	Discrete,Above_Bound
02ce 7006       |p   |		Jump_Nonzero	0x2d5
02cf 00d8       |    |		Load_Top	At_Offset_0
02d0 e5ff       |    |		Load	0x2,-0x1
02d1 01d5       |    |		Execute	Vector,Field_Reference
02d2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d3 0a01       |    |		Execute_Immediate	Plus,0x1
02d4 7ff8       |    |		Jump	0x2cd
02d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02d6 00da       |    |		Load_Top	At_Offset_2
02d7 01dc       |    |		Execute	Vector,Last
02d8 00db       |    |		Load_Top	At_Offset_3
02d9 01dd       |    |		Execute	Vector,First
02da 0263       | c  |		Execute	Discrete,Above_Bound
02db 7006       |p   |		Jump_Nonzero	0x2e2
02dc 00d8       |    |		Load_Top	At_Offset_0
02dd e5ff       |    |		Load	0x2,-0x1
02de 01d7       |    |		Execute	Vector,Field_Read
02df 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02e0 0a01       |    |		Execute_Immediate	Plus,0x1
02e1 7ff8       |    |		Jump	0x2da
02e2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02e3 0000 0000  |    |		.BLANK	0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00db       |    |		Load_Top	At_Offset_3
02ec 00db       |    |		Load_Top	At_Offset_3
02ed 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ee 027d       | }  |		Execute	Discrete,Greater
02ef 6802       |h   |		Jump_Zero	0x2f2
02f0 00ea       |    |		Load_Encached	Null_String_Cache
02f1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f2 00db       |    |		Load_Top	At_Offset_3
02f3 00db       |    |		Load_Top	At_Offset_3
02f4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f5 027f       |    |		Execute	Discrete,Equal
02f6 6808       |h   |		Jump_Zero	0x2ff
02f7 482c       |H,  |		Short_Literal	0x2c
02f8 e5fe       |    |		Load	0x2,-0x2
02f9 e5ff       |    |		Load	0x2,-0x1
02fa 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02fb 01d5       |    |		Execute	Vector,Field_Reference
02fc 8006       |    |		Call	0x0,0x6
02fd 01ca       |    |		Execute	Vector,Prepend
02fe 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ff 482c       |H,  |		Short_Literal	0x2c
0300 e5fe       |    |		Load	0x2,-0x2
0301 e5ff       |    |		Load	0x2,-0x1
0302 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0303 01d5       |    |		Execute	Vector,Field_Reference
0304 8006       |    |		Call	0x0,0x6
0305 01ca       |    |		Execute	Vector,Prepend
0306 e5fe       |    |		Load	0x2,-0x2
0307 0a01       |    |		Execute_Immediate	Plus,0x1
0308 00d8       |    |		Load_Top	At_Offset_0
0309 e20d       |    |		Load	0x1,0xd
030a 0260       | `  |		Execute	Discrete,In_Type
030b 7001       |p   |		Jump_Nonzero	0x30d
030c 0801       |    |		Execute_Immediate	Raise,0x1
030d e5ff       |    |		Load	0x2,-0x1
030e 8227       | '  |		Call	0x1,0x27
030f 01cc       |    |		Execute	Vector,Catenate
0310 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0311 0000 0000  |    |		.BLANK	0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 4601       |F   |		Jump_Case	0x2
031c 7801       |x   |		Jump	0x31e								; case 0x0
031d 7807       |x   |		Jump	0x325								; case 0x1
031e 4800       |H   |		Short_Literal	0x0
031f 00db       |    |		Load_Top	At_Offset_3
0320 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0321 00da       |    |		Load_Top	At_Offset_2
0322 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0323 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0324 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0325 00da       |    |		Load_Top	At_Offset_2
0326 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0327 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0328 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0329 ; --------------------------------------------------------------------------------------
0329 ; STRING TABLE
0329 ; --------------------------------------------------------------------------------------
0329 0006       |    |		.STRTAB	0x0006->0x032c							; "number=>"
032a 000c       |    |		.STRTAB	0x000c->0x0330							; "(number=>"
032b 0013       |    |		.STREND 0x0013->0x0334
032c 6e75 6d62  |numb|		.STRTAB_STRINGS
0335 0000 0000  |    |		.XXX[0x3]
0337 0000       |    |
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug Table
0338 ; --------------------------------------------------------------------------------------
0338 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0xcb96,0x0000,0x0001,0x0000
033e 0783 0b9e  |    |		.XXX[0x7]
0340 c47a 0000  | z  |
0342 0000 0004  |    |
0344 2bc0       |+   |
0345 4040 4040  |@@@@|		.BLANK	4040[0x5]
034a 83c1 84b9  |    |		.XXX[0x12]
034c 329d 41e0  |2 A |
034e c25c 994e  | \ N|
0350 8000 0000  |    |
0352 0000 0000  |    |
0354 0001 0ab0  |    |
0356 c000 0002  |    |
0358 0000 0002  |    |
035a 0000 0001  |    |
035c 0000 0000  |    |		.BLANK	0000[0x5]
0361 0006 0000  |    |		.XXX[0x34]
0363 00dc 0002  |    |
0365 10b8 0002  |    |
0367 1017 0002  |    |
0369 22d0 8001  |"   |
036b 0b72 0002  | r  |
036d 4860 d42e  |H` .|
036f a399 ffee  |    |
0371 e000 0092  |    |
0373 1f31 dabe  | 1  |
0375 a2dc 0006  |    |
0377 fd0c dad9  |    |
0379 2db9 7600  |- v |
037b 0002 866d  |   m|
037d 6c65 02fa  |le  |
037f 0000 0100  |    |
0381 0000 0900  |    |
0383 03f1 7600  |  v |
0385 0000 0200  |    |
0387 0000 1200  |    |
0389 07e2 ec00  |    |
038b 0000 0400  |    |
038d 0000 0400  |    |
038f 0000 0400  |    |
0391 0000 0000  |    |
0393 086c a880  | l  |
0395 8080 8080  |    |		.BLANK	8080[0x4]
0399 810c dad8  |    |		.XXX[0xb]
039b ca00 b886  |    |
039d 6d6c 96dc  |ml  |
039f 8800 0000  |    |
03a1 0000 021b  |    |
03a3 c920       |    |
03a4 2020 2020  |    |		.BLANK	2020[0x4]
03a8 2043 36b6  | C6 |		.XXX[0x7]
03aa 3280 2e21  |2 .!|
03ac 9b5a f5b0  | Z  |
03ae 7840       |x@  |
03af 0000 0000  |    |		.BLANK	0000[0x4]
03b3 0086 d2a0  |    |		.XXX[0x1a]
03b5 0000 0100  |    |
03b7 0000 3f00  |  ? |
03b9 0000 0080  |    |
03bb 0000 0000  |    |
03bd 010d f4c0  |    |
03bf 0000 0200  |    |
03c1 0000 7e00  |  ~ |
03c3 0000 0100  |    |
03c5 0000 0000  |    |
03c7 0000 0600  |    |
03c9 0001 4100  |  A |
03cb 0216 a100  |    |
03cd 0000 0000  |    |		.BLANK	0000[0x4]
03d1 010e a600  |    |		.XXX[0x2a]
03d3 0137 3d64  | 7=d|
03d5 3262 37ed  |2b7 |
03d7 7de8 0000  |}   |
03d9 0a19 5df7  |  ] |
03db 3ff8 3400  |? 4 |
03dd 05b5 0c98  |    |
03df 9372 a7b0  | r  |
03e1 0000 0286  |    |
03e3 4c46 fdfa  |LF  |
03e5 ba00 0001  |    |
03e7 0000 0009  |    |
03e9 0004 b9d6  |    |
03eb 0000 0002  |    |
03ed 0000 0012  |    |
03ef 0009 73ac  |  s |
03f1 0000 0004  |    |
03f3 0000 0004  |    |
03f5 0000 0004  |    |
03f7 0000 0000  |    |
03f9 0008 8648  |   H|
03fb 8080 8080  |    |		.BLANK	8080[0x4]
03ff 8081       |    |		.XXX[0x1]