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

⟦cab212a9d⟧

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

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 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 00b7       |    |		.CONST	0x00b7								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002b       | +  |		.CONST	0x002b								; Number of locals
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache
000c 00e3       |    |		Load_Encached	Natural_Cache
000d 00e3       |    |		Load_Encached	Natural_Cache
000e 00e3       |    |		Load_Encached	Natural_Cache
000f 029f 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Call
0011 4804       |H   |		Short_Literal	0x4
0012 032e       | .  |		Declare_Type	Record,Defined,Visible
0013 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0015 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0017 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0019 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
001b 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
001d 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
001f 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0021 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0023 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0025 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0027 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0029 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
002b 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
002d 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
002f 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0031 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0033 4800       |H   |		Short_Literal	0x0
0034 4804       |H   |		Short_Literal	0x4
0035 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
0037 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0038 e20d       |    |		Load	0x1,0xd
0039 00e1       |    |		Load_Encached	Boolean_Cache
003a 00da       |    |		Load_Top	At_Offset_2
003b 00e1       |    |		Load_Encached	Boolean_Cache
003c 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
003e 4804       |H   |		Short_Literal	0x4
003f 032e       | .  |		Declare_Type	Record,Defined,Visible
0040 00bf       |    |		Action	Accept_Activation
0041 00d9       |    |		Load_Top	At_Offset_1
0042 0266       | f  |		Execute	Discrete,Bounds
0043 00e1       |    |		Load_Encached	Boolean_Cache
0044 02a0       |    |		Declare_Subprogram	Null_Subprogram
0045 4801       |H   |		Short_Literal	0x1
0046 035d       | ]  |		Declare_Type	Array,Defined
0047 00d8       |    |		Load_Top	At_Offset_0
0048 0337       | 7  |		Declare_Variable	Array
0049 00d8       |    |		Load_Top	At_Offset_0
004a 0335       | 5  |		Declare_Variable	Array,Duplicate
004b 00cd       |    |		Action	Spare6_Action
004c 4804       |H   |		Short_Literal	0x4
004d 4800       |H   |		Short_Literal	0x0
004e 4800       |H   |		Short_Literal	0x0
004f 00d9       |    |		Load_Top	At_Offset_1
0050 e222       | "  |		Load	0x1,0x22
0051 01d6       |    |		Execute	Vector,Field_Write
0052 3ffb       |?   |		Loop_Increasing	0x4e
0053 00d9       |    |		Load_Top	At_Offset_1
0054 01d4       |    |		Execute	Vector,Structure_Write
0055 4800       |H   |		Short_Literal	0x0
0056 4804       |H   |		Short_Literal	0x4
0057 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
0059 03fd       |    |		Declare_Type	Discrete,Defined
005a e21e       |    |		Load	0x1,0x1e
005b 0266       | f  |		Execute	Discrete,Bounds
005c 00da       |    |		Load_Top	At_Offset_2
005d 02a0       |    |		Declare_Subprogram	Null_Subprogram
005e 4801       |H   |		Short_Literal	0x1
005f 035d       | ]  |		Declare_Type	Array,Defined
0060 00d8       |    |		Load_Top	At_Offset_0
0061 0337       | 7  |		Declare_Variable	Array
0062 00d8       |    |		Load_Top	At_Offset_0
0063 0335       | 5  |		Declare_Variable	Array,Duplicate
0064 00cd       |    |		Action	Spare6_Action
0065 4800       |H   |		Short_Literal	0x0
0066 4800       |H   |		Short_Literal	0x0
0067 00da       |    |		Load_Top	At_Offset_2
0068 01d6       |    |		Execute	Vector,Field_Write
0069 4801       |H   |		Short_Literal	0x1
006a 4801       |H   |		Short_Literal	0x1
006b 00da       |    |		Load_Top	At_Offset_2
006c 01d6       |    |		Execute	Vector,Field_Write
006d 4802       |H   |		Short_Literal	0x2
006e 4802       |H   |		Short_Literal	0x2
006f 00da       |    |		Load_Top	At_Offset_2
0070 01d6       |    |		Execute	Vector,Field_Write
0071 4803       |H   |		Short_Literal	0x3
0072 4803       |H   |		Short_Literal	0x3
0073 00da       |    |		Load_Top	At_Offset_2
0074 01d6       |    |		Execute	Vector,Field_Write
0075 4804       |H   |		Short_Literal	0x4
0076 4804       |H   |		Short_Literal	0x4
0077 00da       |    |		Load_Top	At_Offset_2
0078 01d6       |    |		Execute	Vector,Field_Write
0079 00d9       |    |		Load_Top	At_Offset_1
007a 01d4       |    |		Execute	Vector,Structure_Write
007b e002       |    |		Load	0x0,0x2
007c e003       |    |		Load	0x0,0x3
007d e222       | "  |		Load	0x1,0x22
007e 4800       |H   |		Short_Literal	0x0
007f 4801       |H   |		Short_Literal	0x1
0080 4804       |H   |		Short_Literal	0x4
0081 0092 0305  |    |		Action	Push_String_Extended,0x305					; "others => Unspecified"
0083 00ea       |    |		Load_Encached	Null_String_Cache
0084 00ea       |    |		Load_Encached	Null_String_Cache
0085 4801       |H   |		Short_Literal	0x1
0086 4804       |H   |		Short_Literal	0x4
0087 e004       |    |		Load	0x0,0x4
0088 0387       |    |		Declare_Variable	Package
0089 00d8       |    |		Load_Top	At_Offset_0
008a 020f       |    |		Execute	Module,Activate
008b 029d 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call
008d 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 029d 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call
00a7 029d 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call
00a9 029d 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call
00ab 029d 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call
00ad 029d 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call
00af 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7			BODY_0008:
00b7 00bc       |    |		Action	Signal_Activated
00b8 00bb       |    |		Action	Signal_Completion
00b9 0000 0000  |    |		.BLANK	0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 8226       | &  |		Call	0x1,0x26
00c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d3       |    |		.CONST	0x00d3								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0003       |    |		.CONST	0x0003								; Number of locals
00cb			INIT_00c8:
00cb e20d       |    |		Load	0x1,0xd
00cc 0322       | "  |		Declare_Variable	Record
00cd 8226       | &  |		Call	0x1,0x26
00ce 00d9       |    |		Load_Top	At_Offset_1
00cf 017d       | }  |		Execute	Record,Structure_Write
00d0 00db       |    |		Load_Top	At_Offset_3
00d1 e225       | %  |		Load	0x1,0x25
00d2 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00d3			BODY_00c8:
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 e225       | %  |		Load	0x1,0x25
00d5 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00d6 7002       |p   |		Jump_Nonzero	0xd9
00d7 e005       |    |		Load	0x0,0x5
00d8 0257       | W  |		Execute	Discrete,Raise
00d9 6026       |`&  |		Indirect_Literal	Discrete,0x100,{0x00000000, 0x7fffffff}
00da 4801       |H   |		Short_Literal	0x1
00db e224       | $  |		Load	0x1,0x24
00dc 01d7       |    |		Execute	Vector,Field_Read
00dd 00da       |    |		Load_Top	At_Offset_2
00de e225       | %  |		Load	0x1,0x25
00df 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
00e0 00da       |    |		Load_Top	At_Offset_2
00e1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e2 601d       |`   |		Indirect_Literal	Discrete,0x100,{0x00000000, 0x7fffffff}
00e3 4802       |H   |		Short_Literal	0x2
00e4 e224       | $  |		Load	0x1,0x24
00e5 01d7       |    |		Execute	Vector,Field_Read
00e6 00da       |    |		Load_Top	At_Offset_2
00e7 e225       | %  |		Load	0x1,0x25
00e8 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
00e9 00da       |    |		Load_Top	At_Offset_2
00ea 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00eb 6014       |`   |		Indirect_Literal	Discrete,0x100,{0x00000000, 0x7fffffff}
00ec 4803       |H   |		Short_Literal	0x3
00ed e224       | $  |		Load	0x1,0x24
00ee 01d7       |    |		Execute	Vector,Field_Read
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 e225       | %  |		Load	0x1,0x25
00f1 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
00f2 00da       |    |		Load_Top	At_Offset_2
00f3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00f4 600b       |`   |		Indirect_Literal	Discrete,0x100,{0x00000000, 0x7fffffff}
00f5 4804       |H   |		Short_Literal	0x4
00f6 e224       | $  |		Load	0x1,0x24
00f7 01d7       |    |		Execute	Vector,Field_Read
00f8 00da       |    |		Load_Top	At_Offset_2
00f9 e225       | %  |		Load	0x1,0x25
00fa 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
00fb 00da       |    |		Load_Top	At_Offset_2
00fc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00fd 00d9       |    |		Load_Top	At_Offset_1
00fe 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00ff 0000       |    |		.XXX[0x1]
0100 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0104 0000 0000  |    |		.BLANK	0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 8226       | &  |		Call	0x1,0x26
010c 00db       |    |		Load_Top	At_Offset_3
010d 017d       | }  |		Execute	Record,Structure_Write
010e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010f 0000       |    |		.XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 e20d       |    |		Load	0x1,0xd
0114 0322       | "  |		Declare_Variable	Record
0115 00db       |    |		Load_Top	At_Offset_3
0116 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0117 e5fe       |    |		Load	0x2,-0x2
0118 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0119 0273       | s  |		Execute	Discrete,Plus
011a 00d9       |    |		Load_Top	At_Offset_1
011b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
011c 00db       |    |		Load_Top	At_Offset_3
011d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011e e5fe       |    |		Load	0x2,-0x2
011f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0120 0273       | s  |		Execute	Discrete,Plus
0121 00d9       |    |		Load_Top	At_Offset_1
0122 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0123 00db       |    |		Load_Top	At_Offset_3
0124 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0125 e5fe       |    |		Load	0x2,-0x2
0126 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0127 0273       | s  |		Execute	Discrete,Plus
0128 00d9       |    |		Load_Top	At_Offset_1
0129 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
012a 00db       |    |		Load_Top	At_Offset_3
012b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
012c e5fe       |    |		Load	0x2,-0x2
012d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
012e 0273       | s  |		Execute	Discrete,Plus
012f 00d9       |    |		Load_Top	At_Offset_1
0130 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0131 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0132 0000 0000  |    |		.BLANK	0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013d 0a01       |    |		Execute_Immediate	Plus,0x1
013e 00db       |    |		Load_Top	At_Offset_3
013f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0140 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0141 0000 0000  |    |		.BLANK	0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 00da       |    |		Load_Top	At_Offset_2
014c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
014d 0a01       |    |		Execute_Immediate	Plus,0x1
014e 00db       |    |		Load_Top	At_Offset_3
014f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0150 00da       |    |		Load_Top	At_Offset_2
0151 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0152 0a01       |    |		Execute_Immediate	Plus,0x1
0153 00db       |    |		Load_Top	At_Offset_3
0154 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0155 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0156 0000 0000  |    |		.XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2
015c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015e 0000 0000  |    |		.XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0165 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0166 0000 0000  |    |		.XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
016d 0a01       |    |		Execute_Immediate	Plus,0x1
016e 00db       |    |		Load_Top	At_Offset_3
016f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0170 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
017d 0a01       |    |		Execute_Immediate	Plus,0x1
017e 00db       |    |		Load_Top	At_Offset_3
017f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0180 00da       |    |		Load_Top	At_Offset_2
0181 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0182 0a01       |    |		Execute_Immediate	Plus,0x1
0183 00db       |    |		Load_Top	At_Offset_3
0184 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0185 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
018d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018e 0000 0000  |    |		.XXX[0x2]
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 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019f       |    |		.CONST	0x019f								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b e21f       |    |		Load	0x1,0x1f
019c 0322       | "  |		Declare_Variable	Record
019d 00d8       |    |		Load_Top	At_Offset_0
019e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
019f			BODY_0198:
019f 00db       |    |		Load_Top	At_Offset_3
01a0 00d9       |    |		Load_Top	At_Offset_1
01a1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01a2 4801       |H   |		Short_Literal	0x1
01a3 00d9       |    |		Load_Top	At_Offset_1
01a4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 00d9       |    |		Load_Top	At_Offset_1
01a7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01a8 8227       | '  |		Call	0x1,0x27
01a9 00d1       |    |		Pop_Control	Pop_Count_1
01aa 00d8       |    |		Load_Top	At_Offset_0
01ab 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ac 0000 0000  |    |		.BLANK	0000[0x4]
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 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b6 0000 0000  |    |		.XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c7       |    |		.CONST	0x01c7								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0003       |    |		.CONST	0x0003								; Number of locals
01bb			INIT_01b8:
01bb 00da       |    |		Load_Top	At_Offset_2
01bc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01bd e224       | $  |		Load	0x1,0x24
01be 01d7       |    |		Execute	Vector,Field_Read
01bf e222       | "  |		Load	0x1,0x22
01c0 011c       |    |		Execute	Any,Convert_Unchecked
01c1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01c2 0092 0306  |    |		Action	Push_String_Extended,0x306					; "=>"
01c4 01cc       |    |		Execute	Vector,Catenate
01c5 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
01c7			BODY_01b8:
01c7 e5ff       |    |		Load	0x2,-0x1
01c8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01c9 e221       | !  |		Load	0x1,0x21
01ca 01d7       |    |		Execute	Vector,Field_Read
01cb 6802       |h   |		Jump_Zero	0x1ce
01cc 8403       |    |		Call	0x2,0x3
01cd 7807       |x   |		Jump	0x1d5
01ce 00d9       |    |		Load_Top	At_Offset_1
01cf e5ff       |    |		Load	0x2,-0x1
01d0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01d1 e5ff       |    |		Load	0x2,-0x1
01d2 822a       | *  |		Call	0x1,0x2a
01d3 01cc       |    |		Execute	Vector,Catenate
01d4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d5 0831       | 1  |		Execute_Immediate	Raise,0x31
01d6 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
01dc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01dd 7023       |p#  |		Jump_Nonzero	0x201
01de 00da       |    |		Load_Top	At_Offset_2
01df 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01e0 e221       | !  |		Load	0x1,0x21
01e1 01d7       |    |		Execute	Vector,Field_Read
01e2 680b       |h   |		Jump_Zero	0x1ee
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01e5 00db       |    |		Load_Top	At_Offset_3
01e6 8229       | )  |		Call	0x1,0x29
01e7 7006       |p   |		Jump_Nonzero	0x1ee
01e8 00da       |    |		Load_Top	At_Offset_2
01e9 00db       |    |		Load_Top	At_Offset_3
01ea 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01eb 8228       | (  |		Call	0x1,0x28
01ec 00d1       |    |		Pop_Control	Pop_Count_1
01ed 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ee 00da       |    |		Load_Top	At_Offset_2
01ef 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01f0 0f04       |    |		Execute_Immediate	Equal,0x4
01f1 6804       |h   |		Jump_Zero	0x1f6
01f2 4801       |H   |		Short_Literal	0x1
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01f6 e21e       |    |		Load	0x1,0x1e
01f7 00db       |    |		Load_Top	At_Offset_3
01f8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01f9 0268       | h  |		Execute	Discrete,Successor
01fa 00db       |    |		Load_Top	At_Offset_3
01fb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01fc 00da       |    |		Load_Top	At_Offset_2
01fd 00db       |    |		Load_Top	At_Offset_3
01fe 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01ff 8227       | '  |		Call	0x1,0x27
0200 00d1       |    |		Pop_Control	Pop_Count_1
0201 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0202 0000 0000  |    |		.BLANK	0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 4607       |F   |		Jump_Case	0x8
020c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
020d 7807       |x   |		Jump	0x215								; case 0x1
020e 780a       |x   |		Jump	0x219								; case 0x2
020f 780e       |x   |		Jump	0x21e								; case 0x3
0210 7811       |x   |		Jump	0x222								; case 0x4
0211 7812       |x   |		Jump	0x224								; case 0x5
0212 7813       |x   |		Jump	0x226								; case 0x6
0213 7816       |x   |		Jump	0x22a								; case 0x7
0214 4302       |C   |		.XXX[0x1]
0215 00da       |    |		Load_Top	At_Offset_2
0216 0091 02fb  |    |		Action	Push_String_Extended_Indexed,0x2fb				; "NONE"
0218 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0219 00db       |    |		Load_Top	At_Offset_3
021a 00db       |    |		Load_Top	At_Offset_3
021b 00e0       |    |		Load_Encached	Standard_Cache
021c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
021d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
021e 00da       |    |		Load_Top	At_Offset_2
021f 00e0       |    |		Load_Encached	Standard_Cache
0220 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0221 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0222 00db       |    |		Load_Top	At_Offset_3
0223 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0224 00db       |    |		Load_Top	At_Offset_3
0225 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0226 e21e       |    |		Load	0x1,0x1e
0227 00dc       |    |		Load_Top	At_Offset_4
0228 0267       | g  |		Execute	Discrete,Predecessor
0229 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022a e21e       |    |		Load	0x1,0x1e
022b 00dc       |    |		Load_Top	At_Offset_4
022c 0268       | h  |		Execute	Discrete,Successor
022d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 4607       |F   |		Jump_Case	0x8
0234 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0235 7807       |x   |		Jump	0x23d								; case 0x1
0236 780a       |x   |		Jump	0x241								; case 0x2
0237 780e       |x   |		Jump	0x246								; case 0x3
0238 7811       |x   |		Jump	0x24a								; case 0x4
0239 7812       |x   |		Jump	0x24c								; case 0x5
023a 7813       |x   |		Jump	0x24e								; case 0x6
023b 7816       |x   |		Jump	0x252								; case 0x7
023c 4302       |C   |		.XXX[0x1]
023d 00da       |    |		Load_Top	At_Offset_2
023e 0091 0300  |    |		Action	Push_String_Extended_Indexed,0x300				; "N"
0240 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0241 00db       |    |		Load_Top	At_Offset_3
0242 00db       |    |		Load_Top	At_Offset_3
0243 00e0       |    |		Load_Encached	Standard_Cache
0244 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0245 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0246 00da       |    |		Load_Top	At_Offset_2
0247 00e0       |    |		Load_Encached	Standard_Cache
0248 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0249 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
024a 00db       |    |		Load_Top	At_Offset_3
024b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024c 00db       |    |		Load_Top	At_Offset_3
024d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024e e222       | "  |		Load	0x1,0x22
024f 00dc       |    |		Load_Top	At_Offset_4
0250 0267       | g  |		Execute	Discrete,Predecessor
0251 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0252 e222       | "  |		Load	0x1,0x22
0253 00dc       |    |		Load_Top	At_Offset_4
0254 0268       | h  |		Execute	Discrete,Successor
0255 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0256 0000 0000  |    |		.XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b e20d       |    |		Load	0x1,0xd
025c 0322       | "  |		Declare_Variable	Record
025d 4800       |H   |		Short_Literal	0x0
025e 00d9       |    |		Load_Top	At_Offset_1
025f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0260 4800       |H   |		Short_Literal	0x0
0261 00d9       |    |		Load_Top	At_Offset_1
0262 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0263 4800       |H   |		Short_Literal	0x0
0264 00d9       |    |		Load_Top	At_Offset_1
0265 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0266 4800       |H   |		Short_Literal	0x0
0267 00d9       |    |		Load_Top	At_Offset_1
0268 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0269 00ca       |    |		Action	Exit_Nullary_Function
026a 0000 0000  |    |		.BLANK	0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
027c 0000 0000  |    |		.BLANK	0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 4801       |H   |		Short_Literal	0x1
0284 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 00db       |    |		Load_Top	At_Offset_3
028c 4604       |F   |		Jump_Case	0x5
028d 780a       |x   |		Jump	0x298								; case 0x0
028e 780a       |x   |		Jump	0x299								; case 0x1
028f 780f       |x   |		Jump	0x29f								; case 0x2
0290 7814       |x   |		Jump	0x2a5								; case 0x3
0291 7800       |x   |		Jump	0x292								; case 0x4
0292 00da       |    |		Load_Top	At_Offset_2
0293 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0294 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0295 00e0       |    |		Load_Encached	Standard_Cache
0296 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0297 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0298 0833       | 3  |		Execute_Immediate	Raise,0x33
0299 00da       |    |		Load_Top	At_Offset_2
029a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
029b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029c 00e0       |    |		Load_Encached	Standard_Cache
029d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
029e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
029f 00da       |    |		Load_Top	At_Offset_2
02a0 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02a1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a2 00e0       |    |		Load_Encached	Standard_Cache
02a3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02a4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a5 00da       |    |		Load_Top	At_Offset_2
02a6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02a7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02a8 00e0       |    |		Load_Encached	Standard_Cache
02a9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02aa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ab 0000 0000  |    |		.BLANK	0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00ea       |    |		Load_Encached	Null_String_Cache
02b4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b5 0000 0000  |    |		.XXX[0x3]
02b7 0000       |    |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bf       |    |		.CONST	0x02bf								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb e5ff       |    |		Load	0x2,-0x1
02bc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02bd e5ff       |    |		Load	0x2,-0x1
02be 822b       | +  |		Call	0x1,0x2b
02bf			BODY_02b8:
02bf e5ff       |    |		Load	0x2,-0x1
02c0 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02c1 6808       |h   |		Jump_Zero	0x2ca
02c2 e402       |    |		Load	0x2,0x2
02c3 0092 0307  |    |		Action	Push_String_Extended,0x307					; "("
02c5 01cc       |    |		Execute	Vector,Catenate
02c6 00d9       |    |		Load_Top	At_Offset_1
02c7 01cc       |    |		Execute	Vector,Catenate
02c8 00cb       |    |		Action	Pop_Block_With_Result
02c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ca 00d8       |    |		Load_Top	At_Offset_0
02cb 00cb       |    |		Action	Pop_Block_With_Result
02cc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cd 0000 0000  |    |		.XXX[0x3]
02cf 0000       |    |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 4601       |F   |		Jump_Case	0x2
02d4 7801       |x   |		Jump	0x2d6								; case 0x0
02d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02d6 00da       |    |		Load_Top	At_Offset_2
02d7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d9 4800       |H   |		Short_Literal	0x0
02da 00db       |    |		Load_Top	At_Offset_3
02db 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02dc 4800       |H   |		Short_Literal	0x0
02dd 00db       |    |		Load_Top	At_Offset_3
02de 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02df 4801       |H   |		Short_Literal	0x1
02e0 00db       |    |		Load_Top	At_Offset_3
02e1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
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 4601       |F   |		Jump_Case	0x2
02ec 7801       |x   |		Jump	0x2ee								; case 0x0
02ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02ee 4800       |H   |		Short_Literal	0x0
02ef 00db       |    |		Load_Top	At_Offset_3
02f0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02f1 4800       |H   |		Short_Literal	0x0
02f2 00db       |    |		Load_Top	At_Offset_3
02f3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02f4 4800       |H   |		Short_Literal	0x0
02f5 00db       |    |		Load_Top	At_Offset_3
02f6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02f7 4800       |H   |		Short_Literal	0x0
02f8 00db       |    |		Load_Top	At_Offset_3
02f9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02fa 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02fb ; --------------------------------------------------------------------------------------
02fb ; STRING TABLE
02fb ; --------------------------------------------------------------------------------------
02fb 001c       |    |		.STRTAB	0x001c->0x0309							; "NONE"
02fc 001e       |    |		.STRTAB	0x001e->0x030b							; "TOTAL_SEGMENTS"
02fd 002a       | *  |		.STRTAB	0x002a->0x0312							; "HIT_SEGMENTS"
02fe 0034       | 4  |		.STRTAB	0x0034->0x0318							; "TOTAL_DECISIONS"
02ff 0041       | A  |		.STRTAB	0x0041->0x031f							; "HIT_DECISIONS"
0300 004c       | L  |		.STRTAB	0x004c->0x0326							; "N"
0301 004b       | K  |		.STRTAB	0x004b->0x0326							; "TS"
0302 004b       | K  |		.STRTAB	0x004b->0x0327							; "HS"
0303 004b       | K  |		.STRTAB	0x004b->0x0328							; "TD"
0304 004b       | K  |		.STRTAB	0x004b->0x0329							; "HD"
0305 004b       | K  |		.STRTAB	0x004b->0x032a							; "others => Unspecified"
0306 005e       | ^  |		.STRTAB	0x005e->0x0335							; "=>"
0307 005e       | ^  |		.STRTAB	0x005e->0x0336							; "("
0308 005d       | ]  |		.STREND 0x005d->0x0336
0309 4e4f 4e45  |NONE|		.STRTAB_STRINGS
0337 0000       |    |		.XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug Table
0338 ; --------------------------------------------------------------------------------------
0338 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x4459,0x0000,0x0001,0x0000
033e 0000 0000  |    |		.BLANK	0000[0xc2]