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

⟦7e3933441⟧

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

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 0340       | @  |		.CONST	0x0340								; 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 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0019 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
001b 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
001d 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
001f 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0021 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0023 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0025 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0027 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0029 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
002b 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
002d 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
002f 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0031 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0033 029a 0243  |   C|		Declare_Subprogram	INIT_0240,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 e20d       |    |		Load	0x1,0xd
0040 0266       | f  |		Execute	Discrete,Bounds
0041 e002       |    |		Load	0x0,0x2
0042 029f 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call
0044 4801       |H   |		Short_Literal	0x1
0045 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0046 e20d       |    |		Load	0x1,0xd
0047 4801       |H   |		Short_Literal	0x1
0048 4814       |H   |		Short_Literal	0x14
0049 00db       |    |		Load_Top	At_Offset_3
004a 035c       | \  |		Declare_Type	Array,Constrained,Visible
004b 029f 0323  |   #|		Declare_Subprogram	INIT_0320,For_Call
004d 4802       |H   |		Short_Literal	0x2
004e 032e       | .  |		Declare_Type	Record,Defined,Visible
004f 4800       |H   |		Short_Literal	0x0
0050 4815       |H   |		Short_Literal	0x15
0051 00e3       |    |		Load_Encached	Natural_Cache
0052 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0053 00bf       |    |		Action	Accept_Activation
0054 0092 0331  |   1|		Action	Push_String_Extended,0x331					; "number=>"
0056 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 029d 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call
0078 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
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 e5fd       |    |		Load	0x2,-0x3
0099 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
009a e5fe       |    |		Load	0x2,-0x2
009b e5ff       |    |		Load	0x2,-0x1
009c 8003       |    |		Call	0x0,0x3
009d 00d9       |    |		Load_Top	At_Offset_1
009e 017d       | }  |		Execute	Record,Structure_Write
009f 00d8       |    |		Load_Top	At_Offset_0
00a0 4801       |H   |		Short_Literal	0x1
00a1 e5fd       |    |		Load	0x2,-0x3
00a2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00a3 01d6       |    |		Execute	Vector,Field_Write
00a4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00a5 0000 0000  |    |		.XXX[0x3]
00a7 0000       |    |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b3       |    |		.CONST	0x00b3								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0003       |    |		.CONST	0x0003								; 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 e002       |    |		Load	0x0,0x2
00b0 0322       | "  |		Declare_Variable	Record
00b1 00d8       |    |		Load_Top	At_Offset_0
00b2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b3			BODY_00a8:
00b3 4802       |H   |		Short_Literal	0x2
00b4 e5fb       |    |		Load	0x2,-0x5
00b5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b6 e5fe       |    |		Load	0x2,-0x2
00b7 e5ff       |    |		Load	0x2,-0x1
00b8 8003       |    |		Call	0x0,0x3
00b9 00da       |    |		Load_Top	At_Offset_2
00ba 017d       | }  |		Execute	Record,Structure_Write
00bb 00d9       |    |		Load_Top	At_Offset_1
00bc 4801       |H   |		Short_Literal	0x1
00bd e5fb       |    |		Load	0x2,-0x5
00be 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00bf 01d6       |    |		Execute	Vector,Field_Write
00c0 e5fc       |    |		Load	0x2,-0x4
00c1 e5fd       |    |		Load	0x2,-0x3
00c2 8003       |    |		Call	0x0,0x3
00c3 00d9       |    |		Load_Top	At_Offset_1
00c4 017d       | }  |		Execute	Record,Structure_Write
00c5 00d8       |    |		Load_Top	At_Offset_0
00c6 4802       |H   |		Short_Literal	0x2
00c7 e5fb       |    |		Load	0x2,-0x5
00c8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00c9 01d6       |    |		Execute	Vector,Field_Write
00ca 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00cb 0000 0000  |    |		.BLANK	0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00df       |    |		.CONST	0x00df								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0004       |    |		.CONST	0x0004								; 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 e002       |    |		Load	0x0,0x2
00d8 0322       | "  |		Declare_Variable	Record
00d9 00d8       |    |		Load_Top	At_Offset_0
00da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00db e002       |    |		Load	0x0,0x2
00dc 0322       | "  |		Declare_Variable	Record
00dd 00d8       |    |		Load_Top	At_Offset_0
00de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00df			BODY_00d0:
00df 4803       |H   |		Short_Literal	0x3
00e0 e5f9       |    |		Load	0x2,-0x7
00e1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e2 e5fe       |    |		Load	0x2,-0x2
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 8003       |    |		Call	0x0,0x3
00e5 00db       |    |		Load_Top	At_Offset_3
00e6 017d       | }  |		Execute	Record,Structure_Write
00e7 00da       |    |		Load_Top	At_Offset_2
00e8 4801       |H   |		Short_Literal	0x1
00e9 e5f9       |    |		Load	0x2,-0x7
00ea 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00eb 01d6       |    |		Execute	Vector,Field_Write
00ec e5fc       |    |		Load	0x2,-0x4
00ed e5fd       |    |		Load	0x2,-0x3
00ee 8003       |    |		Call	0x0,0x3
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 017d       | }  |		Execute	Record,Structure_Write
00f1 00d9       |    |		Load_Top	At_Offset_1
00f2 4802       |H   |		Short_Literal	0x2
00f3 e5f9       |    |		Load	0x2,-0x7
00f4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f5 01d6       |    |		Execute	Vector,Field_Write
00f6 e5fa       |    |		Load	0x2,-0x6
00f7 e5fb       |    |		Load	0x2,-0x5
00f8 8003       |    |		Call	0x0,0x3
00f9 00d9       |    |		Load_Top	At_Offset_1
00fa 017d       | }  |		Execute	Record,Structure_Write
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc 4803       |H   |		Short_Literal	0x3
00fd e5f9       |    |		Load	0x2,-0x7
00fe 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00ff 01d6       |    |		Execute	Vector,Field_Write
0100 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010f       |    |		.CONST	0x010f								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0002       |    |		.CONST	0x0002								; Number of locals
010b			INIT_0108:
010b e224       | $  |		Load	0x1,0x24
010c 0322       | "  |		Declare_Variable	Record
010d 00d8       |    |		Load_Top	At_Offset_0
010e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010f			BODY_0108:
010f 00db       |    |		Load_Top	At_Offset_3
0110 00d9       |    |		Load_Top	At_Offset_1
0111 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0112 00d8       |    |		Load_Top	At_Offset_0
0113 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0114 0000 0000  |    |		.BLANK	0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0123       | #  |		.CONST	0x0123								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0003       |    |		.CONST	0x0003								; Number of locals
011b			INIT_0118:
011b e224       | $  |		Load	0x1,0x24
011c 0322       | "  |		Declare_Variable	Record
011d 00d8       |    |		Load_Top	At_Offset_0
011e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011f e002       |    |		Load	0x0,0x2
0120 0322       | "  |		Declare_Variable	Record
0121 00d8       |    |		Load_Top	At_Offset_0
0122 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0123			BODY_0118:
0123 4801       |H   |		Short_Literal	0x1
0124 00da       |    |		Load_Top	At_Offset_2
0125 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0126 e5fe       |    |		Load	0x2,-0x2
0127 e5ff       |    |		Load	0x2,-0x1
0128 8003       |    |		Call	0x0,0x3
0129 00d9       |    |		Load_Top	At_Offset_1
012a 017d       | }  |		Execute	Record,Structure_Write
012b 00d8       |    |		Load_Top	At_Offset_0
012c 4801       |H   |		Short_Literal	0x1
012d 00db       |    |		Load_Top	At_Offset_3
012e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
012f 01d6       |    |		Execute	Vector,Field_Write
0130 00d9       |    |		Load_Top	At_Offset_1
0131 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0132 0000 0000  |    |		.BLANK	0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0147       | G  |		.CONST	0x0147								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0004       |    |		.CONST	0x0004								; Number of locals
013b			INIT_0138:
013b e224       | $  |		Load	0x1,0x24
013c 0322       | "  |		Declare_Variable	Record
013d 00d8       |    |		Load_Top	At_Offset_0
013e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
013f e002       |    |		Load	0x0,0x2
0140 0322       | "  |		Declare_Variable	Record
0141 00d8       |    |		Load_Top	At_Offset_0
0142 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0143 e002       |    |		Load	0x0,0x2
0144 0322       | "  |		Declare_Variable	Record
0145 00d8       |    |		Load_Top	At_Offset_0
0146 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0147			BODY_0138:
0147 4802       |H   |		Short_Literal	0x2
0148 00db       |    |		Load_Top	At_Offset_3
0149 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
014a e5fe       |    |		Load	0x2,-0x2
014b e5ff       |    |		Load	0x2,-0x1
014c 8003       |    |		Call	0x0,0x3
014d 00da       |    |		Load_Top	At_Offset_2
014e 017d       | }  |		Execute	Record,Structure_Write
014f 00d9       |    |		Load_Top	At_Offset_1
0150 4801       |H   |		Short_Literal	0x1
0151 e402       |    |		Load	0x2,0x2
0152 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0153 01d6       |    |		Execute	Vector,Field_Write
0154 e5fc       |    |		Load	0x2,-0x4
0155 e5fd       |    |		Load	0x2,-0x3
0156 8003       |    |		Call	0x0,0x3
0157 00d9       |    |		Load_Top	At_Offset_1
0158 017d       | }  |		Execute	Record,Structure_Write
0159 00d8       |    |		Load_Top	At_Offset_0
015a 4802       |H   |		Short_Literal	0x2
015b e402       |    |		Load	0x2,0x2
015c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
015d 01d6       |    |		Execute	Vector,Field_Write
015e 00da       |    |		Load_Top	At_Offset_2
015f 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0173       | s  |		.CONST	0x0173								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0005       |    |		.CONST	0x0005								; Number of locals
0163			INIT_0160:
0163 e224       | $  |		Load	0x1,0x24
0164 0322       | "  |		Declare_Variable	Record
0165 00d8       |    |		Load_Top	At_Offset_0
0166 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0167 e002       |    |		Load	0x0,0x2
0168 0322       | "  |		Declare_Variable	Record
0169 00d8       |    |		Load_Top	At_Offset_0
016a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
016b e002       |    |		Load	0x0,0x2
016c 0322       | "  |		Declare_Variable	Record
016d 00d8       |    |		Load_Top	At_Offset_0
016e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
016f e002       |    |		Load	0x0,0x2
0170 0322       | "  |		Declare_Variable	Record
0171 00d8       |    |		Load_Top	At_Offset_0
0172 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0173			BODY_0160:
0173 4803       |H   |		Short_Literal	0x3
0174 e402       |    |		Load	0x2,0x2
0175 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0176 e5fe       |    |		Load	0x2,-0x2
0177 e5ff       |    |		Load	0x2,-0x1
0178 8003       |    |		Call	0x0,0x3
0179 00db       |    |		Load_Top	At_Offset_3
017a 017d       | }  |		Execute	Record,Structure_Write
017b 00da       |    |		Load_Top	At_Offset_2
017c 4801       |H   |		Short_Literal	0x1
017d e402       |    |		Load	0x2,0x2
017e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
017f 01d6       |    |		Execute	Vector,Field_Write
0180 e5fc       |    |		Load	0x2,-0x4
0181 e5fd       |    |		Load	0x2,-0x3
0182 8003       |    |		Call	0x0,0x3
0183 00da       |    |		Load_Top	At_Offset_2
0184 017d       | }  |		Execute	Record,Structure_Write
0185 00d9       |    |		Load_Top	At_Offset_1
0186 4802       |H   |		Short_Literal	0x2
0187 e402       |    |		Load	0x2,0x2
0188 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0189 01d6       |    |		Execute	Vector,Field_Write
018a e5fa       |    |		Load	0x2,-0x6
018b e5fb       |    |		Load	0x2,-0x5
018c 8003       |    |		Call	0x0,0x3
018d 00d9       |    |		Load_Top	At_Offset_1
018e 017d       | }  |		Execute	Record,Structure_Write
018f 00d8       |    |		Load_Top	At_Offset_0
0190 4803       |H   |		Short_Literal	0x3
0191 e402       |    |		Load	0x2,0x2
0192 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0193 01d6       |    |		Execute	Vector,Field_Write
0194 00db       |    |		Load_Top	At_Offset_3
0195 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0196 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
019c e5fe       |    |		Load	0x2,-0x2
019d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
019e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019f 0000       |    |		.XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 0d01       |    |		Execute_Immediate	Less,0x1
01a5 e5fe       |    |		Load	0x2,-0x2
01a6 e5fd       |    |		Load	0x2,-0x3
01a7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a8 027d       | }  |		Execute	Discrete,Greater
01a9 0278       | x  |		Execute	Discrete,Or
01aa 6802       |h   |		Jump_Zero	0x1ad
01ab e222       | "  |		Load	0x1,0x22
01ac 0257       | W  |		Execute	Discrete,Raise
01ad 00da       |    |		Load_Top	At_Offset_2
01ae e5fe       |    |		Load	0x2,-0x2
01af e5fd       |    |		Load	0x2,-0x3
01b0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01b1 01d6       |    |		Execute	Vector,Field_Write
01b2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b3 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
01bc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01be 0000 0000  |    |		.XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 0d01       |    |		Execute_Immediate	Less,0x1
01c5 e5fe       |    |		Load	0x2,-0x2
01c6 e5ff       |    |		Load	0x2,-0x1
01c7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c8 027d       | }  |		Execute	Discrete,Greater
01c9 0278       | x  |		Execute	Discrete,Or
01ca 6802       |h   |		Jump_Zero	0x1cd
01cb e222       | "  |		Load	0x1,0x22
01cc 0257       | W  |		Execute	Discrete,Raise
01cd 00db       |    |		Load_Top	At_Offset_3
01ce 00db       |    |		Load_Top	At_Offset_3
01cf 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01d0 01d5       |    |		Execute	Vector,Field_Reference
01d1 0320       |    |		Declare_Variable	Record,Duplicate
01d2 00cd       |    |		Action	Spare6_Action
01d3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01d4 0000 0000  |    |		.BLANK	0000[0x4]
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 4801       |H   |		Short_Literal	0x1
01dc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01dd 0000 0000  |    |		.XXX[0x3]
01df 0000       |    |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00db       |    |		Load_Top	At_Offset_3
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e6 027d       | }  |		Execute	Discrete,Greater
01e7 6802       |h   |		Jump_Zero	0x1ea
01e8 e222       | "  |		Load	0x1,0x22
01e9 0257       | W  |		Execute	Discrete,Raise
01ea 00e2       |    |		Load_Encached	Integer_Cache
01eb e5fe       |    |		Load	0x2,-0x2
01ec 0268       | h  |		Execute	Discrete,Successor
01ed 00d8       |    |		Load_Top	At_Offset_0
01ee e225       | %  |		Load	0x1,0x25
01ef 0260       | `  |		Execute	Discrete,In_Type
01f0 7001       |p   |		Jump_Nonzero	0x1f2
01f1 0801       |    |		Execute_Immediate	Raise,0x1
01f2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f3 0000 0000  |    |		.BLANK	0000[0x5]
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 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00db       |    |		Load_Top	At_Offset_3
0204 00db       |    |		Load_Top	At_Offset_3
0205 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0206 027d       | }  |		Execute	Discrete,Greater
0207 6802       |h   |		Jump_Zero	0x20a
0208 e222       | "  |		Load	0x1,0x22
0209 0257       | W  |		Execute	Discrete,Raise
020a 00db       |    |		Load_Top	At_Offset_3
020b 00d8       |    |		Load_Top	At_Offset_0
020c e20d       |    |		Load	0x1,0xd
020d 0260       | `  |		Execute	Discrete,In_Type
020e 7001       |p   |		Jump_Nonzero	0x210
020f 0801       |    |		Execute_Immediate	Raise,0x1
0210 00db       |    |		Load_Top	At_Offset_3
0211 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0212 01d5       |    |		Execute	Vector,Field_Reference
0213 0320       |    |		Declare_Variable	Record,Duplicate
0214 00cd       |    |		Action	Spare6_Action
0215 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0216 0000 0000  |    |		.XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 4829       |H)  |		Short_Literal	0x29
021c 0092 0332  |   2|		Action	Push_String_Extended,0x332					; "(number=>"
021e e5ff       |    |		Load	0x2,-0x1
021f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0220 00e0       |    |		Load_Encached	Standard_Cache
0221 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0222 01cc       |    |		Execute	Vector,Catenate
0223 4801       |H   |		Short_Literal	0x1
0224 e5ff       |    |		Load	0x2,-0x1
0225 8227       | '  |		Call	0x1,0x27
0226 01cc       |    |		Execute	Vector,Catenate
0227 01cb       |    |		Execute	Vector,Append
0228 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0229 0000 0000  |    |		.BLANK	0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0238       | 8  |		.CONST	0x0238								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0003       |    |		.CONST	0x0003								; Number of locals
0233			INIT_0230:
0233 e224       | $  |		Load	0x1,0x24
0234 0322       | "  |		Declare_Variable	Record
0235 00d8       |    |		Load_Top	At_Offset_0
0236 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0237 00e3       |    |		Load_Encached	Natural_Cache
0238			BODY_0230:
0238 00d8       |    |		Load_Top	At_Offset_0
0239 00da       |    |		Load_Top	At_Offset_2
023a e5ff       |    |		Load	0x2,-0x1
023b 8220       |    |		Call	0x1,0x20
023c 00d1       |    |		Pop_Control	Pop_Count_1
023d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
023e 00d9       |    |		Load_Top	At_Offset_1
023f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024b       | K  |		.CONST	0x024b								; Address of begin
0241 02c1       |    |		.CONST	0x02c1								; Address of exception handler
0242 0006       |    |		.CONST	0x0006								; Number of locals
0243			INIT_0240:
0243 00e3       |    |		Load_Encached	Natural_Cache
0244 00e3       |    |		Load_Encached	Natural_Cache
0245 00e3       |    |		Load_Encached	Natural_Cache
0246 00e3       |    |		Load_Encached	Natural_Cache
0247 e002       |    |		Load	0x0,0x2
0248 0322       | "  |		Declare_Variable	Record
0249 00d8       |    |		Load_Top	At_Offset_0
024a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024b			BODY_0240:
024b e5ff       |    |		Load	0x2,-0x1
024c 01dd       |    |		Execute	Vector,First
024d e5ff       |    |		Load	0x2,-0x1
024e 01d7       |    |		Execute	Vector,Field_Read
024f 0e28       | (  |		Execute_Immediate	Not_Equal,0x28
0250 6802       |h   |		Jump_Zero	0x253
0251 e221       | !  |		Load	0x1,0x21
0252 0257       | W  |		Execute	Discrete,Raise
0253 4801       |H   |		Short_Literal	0x1
0254 e5ff       |    |		Load	0x2,-0x1
0255 e226       | &  |		Load	0x1,0x26
0256 8004       |    |		Call	0x0,0x4
0257 a402       |    |		Store_Unchecked	0x2,0x2
0258 e402       |    |		Load	0x2,0x2
0259 0f00       |    |		Execute_Immediate	Equal,0x0
025a e402       |    |		Load	0x2,0x2
025b e5ff       |    |		Load	0x2,-0x1
025c 01dd       |    |		Execute	Vector,First
025d 0a01       |    |		Execute_Immediate	Plus,0x1
025e 027e       | ~  |		Execute	Discrete,Not_Equal
025f 0278       | x  |		Execute	Discrete,Or
0260 6802       |h   |		Jump_Zero	0x263
0261 e221       | !  |		Load	0x1,0x21
0262 0257       | W  |		Execute	Discrete,Raise
0263 e402       |    |		Load	0x2,0x2
0264 0a08       |    |		Execute_Immediate	Plus,0x8
0265 c403       |    |		Store	0x2,0x3
0266 00cf       |    |		Action	Mark_Auxiliary
0267 7804       |x   |		Jump	0x26c
0268 e402       |    |		Load	0x2,0x2
0269 0a01       |    |		Execute_Immediate	Plus,0x1
026a c402       |    |		Store	0x2,0x2
026b 00c9       |    |		Action	Pop_Auxiliary_Loop
026c e402       |    |		Load	0x2,0x2
026d e5ff       |    |		Load	0x2,-0x1
026e 01d7       |    |		Execute	Vector,Field_Read
026f 0e2c       | ,  |		Execute_Immediate	Not_Equal,0x2c
0270 e402       |    |		Load	0x2,0x2
0271 e5ff       |    |		Load	0x2,-0x1
0272 01d7       |    |		Execute	Vector,Field_Read
0273 0e29       | )  |		Execute_Immediate	Not_Equal,0x29
0274 0279       | y  |		Execute	Discrete,And
0275 77f2       |w   |		Jump_Nonzero	0x268
0276 00ce       |    |		Action	Pop_Auxiliary
0277 e402       |    |		Load	0x2,0x2
0278 0aff       |    |		Execute_Immediate	Plus,-0x1
0279 005b       | [  |		Store_Top	Discrete,At_Offset_3
027a 00db       |    |		Load_Top	At_Offset_3
027b 00db       |    |		Load_Top	At_Offset_3
027c e5ff       |    |		Load	0x2,-0x1
027d 01cf       |    |		Execute	Vector,Slice_Read
027e 00e2       |    |		Load_Encached	Integer_Cache
027f 00e0       |    |		Load_Encached	Standard_Cache
0280 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0281 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0282 e5fe       |    |		Load	0x2,-0x2
0283 00da       |    |		Load_Top	At_Offset_2
0284 00d8       |    |		Load_Top	At_Offset_0
0285 e20d       |    |		Load	0x1,0xd
0286 0260       | `  |		Execute	Discrete,In_Type
0287 7001       |p   |		Jump_Nonzero	0x289
0288 0801       |    |		Execute_Immediate	Raise,0x1
0289 820e       |    |		Call	0x1,0xe
028a 00d1       |    |		Pop_Control	Pop_Count_1
028b 00cf       |    |		Action	Mark_Auxiliary
028c 00da       |    |		Load_Top	At_Offset_2
028d 4801       |H   |		Short_Literal	0x1
028e 0263       | c  |		Execute	Discrete,Above_Bound
028f 7026       |p&  |		Jump_Nonzero	0x2b6
0290 e402       |    |		Load	0x2,0x2
0291 e5ff       |    |		Load	0x2,-0x1
0292 01d7       |    |		Execute	Vector,Field_Read
0293 0e2c       | ,  |		Execute_Immediate	Not_Equal,0x2c
0294 6802       |h   |		Jump_Zero	0x297
0295 e221       | !  |		Load	0x1,0x21
0296 0257       | W  |		Execute	Discrete,Raise
0297 00e3       |    |		Load_Encached	Natural_Cache
0298 e406       |    |		Load	0x2,0x6
0299 e402       |    |		Load	0x2,0x2
029a 0a01       |    |		Execute_Immediate	Plus,0x1
029b 00d8       |    |		Load_Top	At_Offset_0
029c 00e2       |    |		Load_Encached	Integer_Cache
029d 0260       | `  |		Execute	Discrete,In_Type
029e 7001       |p   |		Jump_Nonzero	0x2a0
029f 0801       |    |		Execute_Immediate	Raise,0x1
02a0 e5ff       |    |		Load	0x2,-0x1
02a1 01dc       |    |		Execute	Vector,Last
02a2 e5ff       |    |		Load	0x2,-0x1
02a3 01cf       |    |		Execute	Vector,Slice_Read
02a4 8005       |    |		Call	0x0,0x5
02a5 00d1       |    |		Pop_Control	Pop_Count_1
02a6 c402       |    |		Store	0x2,0x2
02a7 e5fe       |    |		Load	0x2,-0x2
02a8 00d9       |    |		Load_Top	At_Offset_1
02a9 00d8       |    |		Load_Top	At_Offset_0
02aa e20d       |    |		Load	0x1,0xd
02ab 0260       | `  |		Execute	Discrete,In_Type
02ac 7001       |p   |		Jump_Nonzero	0x2ae
02ad 0801       |    |		Execute_Immediate	Raise,0x1
02ae e406       |    |		Load	0x2,0x6
02af 8217       |    |		Call	0x1,0x17
02b0 00d1       |    |		Pop_Control	Pop_Count_1
02b1 e402       |    |		Load	0x2,0x2
02b2 0a01       |    |		Execute_Immediate	Plus,0x1
02b3 c402       |    |		Store	0x2,0x2
02b4 00c8       |    |		Action	Pop_Auxiliary_Range
02b5 3fda       |?   |		Loop_Increasing	0x290
02b6 00ce       |    |		Action	Pop_Auxiliary
02b7 e402       |    |		Load	0x2,0x2
02b8 e5ff       |    |		Load	0x2,-0x1
02b9 01d7       |    |		Execute	Vector,Field_Read
02ba 0e29       | )  |		Execute_Immediate	Not_Equal,0x29
02bb 6802       |h   |		Jump_Zero	0x2be
02bc e221       | !  |		Load	0x1,0x21
02bd 0257       | W  |		Execute	Discrete,Raise
02be e402       |    |		Load	0x2,0x2
02bf a5fd       |    |		Store_Unchecked	0x2,-0x3
02c0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c1			TRAP_0240:
02c1 0007       |    |		Action	Break_Optional
02c2 e221       | !  |		Load	0x1,0x21
02c3 0257       | W  |		Execute	Discrete,Raise
02c4 0000 0000  |    |		.BLANK	0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 4605       |F   |		Jump_Case	0x6
02cc 7804       |x   |		Jump	0x2d1								; case 0x0
02cd 7810       |x   |		Jump	0x2de								; case 0x1
02ce 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
02cf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
02d0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
02d1 00da       |    |		Load_Top	At_Offset_2						; case 0x5
02d2 01dc       |    |		Execute	Vector,Last
02d3 00db       |    |		Load_Top	At_Offset_3
02d4 01dd       |    |		Execute	Vector,First
02d5 0263       | c  |		Execute	Discrete,Above_Bound
02d6 7006       |p   |		Jump_Nonzero	0x2dd
02d7 00d8       |    |		Load_Top	At_Offset_0
02d8 e5ff       |    |		Load	0x2,-0x1
02d9 01d5       |    |		Execute	Vector,Field_Reference
02da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02db 0a01       |    |		Execute_Immediate	Plus,0x1
02dc 7ff8       |    |		Jump	0x2d5
02dd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02de 00da       |    |		Load_Top	At_Offset_2
02df 01dc       |    |		Execute	Vector,Last
02e0 00db       |    |		Load_Top	At_Offset_3
02e1 01dd       |    |		Execute	Vector,First
02e2 0263       | c  |		Execute	Discrete,Above_Bound
02e3 7006       |p   |		Jump_Nonzero	0x2ea
02e4 00d8       |    |		Load_Top	At_Offset_0
02e5 e5ff       |    |		Load	0x2,-0x1
02e6 01d7       |    |		Execute	Vector,Field_Read
02e7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02e8 0a01       |    |		Execute_Immediate	Plus,0x1
02e9 7ff8       |    |		Jump	0x2e2
02ea 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02eb 0000 0000  |    |		.BLANK	0000[0x5]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 00db       |    |		Load_Top	At_Offset_3
02f4 00db       |    |		Load_Top	At_Offset_3
02f5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f6 027d       | }  |		Execute	Discrete,Greater
02f7 6802       |h   |		Jump_Zero	0x2fa
02f8 00ea       |    |		Load_Encached	Null_String_Cache
02f9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02fa 00db       |    |		Load_Top	At_Offset_3
02fb 00db       |    |		Load_Top	At_Offset_3
02fc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02fd 027f       |    |		Execute	Discrete,Equal
02fe 6808       |h   |		Jump_Zero	0x307
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 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0307 482c       |H,  |		Short_Literal	0x2c
0308 e5fe       |    |		Load	0x2,-0x2
0309 e5ff       |    |		Load	0x2,-0x1
030a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
030b 01d5       |    |		Execute	Vector,Field_Reference
030c 8006       |    |		Call	0x0,0x6
030d 01ca       |    |		Execute	Vector,Prepend
030e e5fe       |    |		Load	0x2,-0x2
030f 0a01       |    |		Execute_Immediate	Plus,0x1
0310 00d8       |    |		Load_Top	At_Offset_0
0311 e20d       |    |		Load	0x1,0xd
0312 0260       | `  |		Execute	Discrete,In_Type
0313 7001       |p   |		Jump_Nonzero	0x315
0314 0801       |    |		Execute_Immediate	Raise,0x1
0315 e5ff       |    |		Load	0x2,-0x1
0316 8227       | '  |		Call	0x1,0x27
0317 01cc       |    |		Execute	Vector,Catenate
0318 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0319 0000 0000  |    |		.BLANK	0000[0x7]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 4601       |F   |		Jump_Case	0x2
0324 7801       |x   |		Jump	0x326								; case 0x0
0325 7807       |x   |		Jump	0x32d								; case 0x1
0326 4800       |H   |		Short_Literal	0x0
0327 00db       |    |		Load_Top	At_Offset_3
0328 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0329 00da       |    |		Load_Top	At_Offset_2
032a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
032b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
032c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
032d 00da       |    |		Load_Top	At_Offset_2
032e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
032f 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0330 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0331 ; --------------------------------------------------------------------------------------
0331 ; STRING TABLE
0331 ; --------------------------------------------------------------------------------------
0331 0006       |    |		.STRTAB	0x0006->0x0334							; "number=>"
0332 000c       |    |		.STRTAB	0x000c->0x0338							; "(number=>"
0333 0013       |    |		.STREND 0x0013->0x033c
0334 6e75 6d62  |numb|		.STRTAB_STRINGS
033d 0000 0000  |    |		.XXX[0x3]
033f 0000       |    |
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug Table
0340 ; --------------------------------------------------------------------------------------
0340 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0xcb99,0x0000,0x0001,0x0000
0346 0000 0000  |    |		.BLANK	0000[0xba]