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

⟦5c29e21fe⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0308       |    |		.CONST	0x0308								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0087       |    |		.CONST	0x0087								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002e       | .  |		.CONST	0x002e								; Number of locals
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18
000c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000d 00db       |    |		Load_Top	At_Offset_3
000e 00db       |    |		Load_Top	At_Offset_3
000f 029f 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Call
0011 4802       |H   |		Short_Literal	0x2
0012 032e       | .  |		Declare_Type	Record,Defined,Visible
0013 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0015 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0017 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0019 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
001b 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
001d 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
001f 029a 0183  |    |		Declare_Subprogram	INIT_0180,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 4804       |H   |		Short_Literal	0x4
0026 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0027 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0029 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
002b 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
002d 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
002f e001       |    |		Load	0x0,0x1
0030 0129       | )  |		Execute	Any,Make_Visible
0031 e002       |    |		Load	0x0,0x2
0032 0129       | )  |		Execute	Any,Make_Visible
0033 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0035 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0037 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0039 4802       |H   |		Short_Literal	0x2
003a 032a       | *  |		Declare_Type	Record,Incomplete
003b 00d8       |    |		Load_Top	At_Offset_0
003c 02a0       |    |		Declare_Subprogram	Null_Subprogram
003d 4818       |H   |		Short_Literal	0x18
003e 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
003f e214       |    |		Load	0x1,0x14
0040 00d9       |    |		Load_Top	At_Offset_1
0041 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
0043 e228       | (  |		Load	0x1,0x28
0044 0326       | &  |		Complete_Type	Record,By_Defining
0045 4800       |H   |		Short_Literal	0x0
0046 e20f       |    |		Load	0x1,0xf
0047 0aff       |    |		Execute_Immediate	Plus,-0x1
0048 00e2       |    |		Load_Encached	Integer_Cache
0049 03f8       |    |		Declare_Type	Discrete,Constrained
004a 4800       |H   |		Short_Literal	0x0
004b 00d9       |    |		Load_Top	At_Offset_1
004c 0269       | i  |		Execute	Discrete,Last
004d 00db       |    |		Load_Top	At_Offset_3
004e 02a0       |    |		Declare_Subprogram	Null_Subprogram
004f 4801       |H   |		Short_Literal	0x1
0050 035d       | ]  |		Declare_Type	Array,Defined
0051 00d8       |    |		Load_Top	At_Offset_0
0052 00e2       |    |		Load_Encached	Integer_Cache
0053 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
0055 4802       |H   |		Short_Literal	0x2
0056 032d       | -  |		Declare_Type	Record,Defined
0057 00d8       |    |		Load_Top	At_Offset_0
0058 02a0       |    |		Declare_Subprogram	Null_Subprogram
0059 e213       |    |		Load	0x1,0x13
005a 03c7       |    |		Complete_Type	Access,By_Defining
005b e213       |    |		Load	0x1,0x13
005c 00db       |    |		Load_Top	At_Offset_3
005d e229       | )  |		Load	0x1,0x29
005e 00e1       |    |		Load_Encached	Boolean_Cache
005f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0060 e21e       |    |		Load	0x1,0x1e
0061 0326       | &  |		Complete_Type	Record,By_Defining
0062 00bf       |    |		Action	Accept_Activation
0063 029d 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call
0065 029d 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call
0067 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0086 00c7       |    |		Action	Elaborate_Subprogram
0087			BODY_0008:
0087 00bc       |    |		Action	Signal_Activated
0088 00bb       |    |		Action	Signal_Completion
0089 0000 0000  |    |		.BLANK	0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009f       |    |		.CONST	0x009f								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 00db       |    |		Load_Top	At_Offset_3
0094 e210       |    |		Load	0x1,0x10
0095 0119       |    |		Execute	Any,Check_In_Formal_Type
0096 e5fe       |    |		Load	0x2,-0x2
0097 e210       |    |		Load	0x1,0x10
0098 0119       |    |		Execute	Any,Check_In_Formal_Type
0099 822e       | .  |		Call	0x1,0x2e
009a e5ff       |    |		Load	0x2,-0x1
009b 0227       | '  |		Execute	Access,All_Reference
009c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
009d 01d7       |    |		Execute	Vector,Field_Read
009e 822d       | -  |		Call	0x1,0x2d
009f			BODY_0090:
009f 00d8       |    |		Load_Top	At_Offset_0
00a0 680c       |h   |		Jump_Zero	0xad
00a1 00d8       |    |		Load_Top	At_Offset_0
00a2 0227       | '  |		Execute	Access,All_Reference
00a3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00a4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 0120       |    |		Execute	Any,Is_Value
00a7 7002       |p   |		Jump_Nonzero	0xaa
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 011e       |    |		Execute	Any,Convert
00aa e211       |    |		Load	0x1,0x11
00ab 0119       |    |		Execute	Any,Check_In_Formal_Type
00ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00ad e223       | #  |		Load	0x1,0x23
00ae 0257       | W  |		Execute	Discrete,Raise
00af 0000       |    |		.XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00bf       |    |		.CONST	0x00bf								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0002       |    |		.CONST	0x0002								; Number of locals
00b3			INIT_00b0:
00b3 00db       |    |		Load_Top	At_Offset_3
00b4 e210       |    |		Load	0x1,0x10
00b5 0119       |    |		Execute	Any,Check_In_Formal_Type
00b6 e5fe       |    |		Load	0x2,-0x2
00b7 e210       |    |		Load	0x1,0x10
00b8 0119       |    |		Execute	Any,Check_In_Formal_Type
00b9 822e       | .  |		Call	0x1,0x2e
00ba e5ff       |    |		Load	0x2,-0x1
00bb 0227       | '  |		Execute	Access,All_Reference
00bc 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00bd 01d7       |    |		Execute	Vector,Field_Read
00be 822d       | -  |		Call	0x1,0x2d
00bf			BODY_00b0:
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 6808       |h   |		Jump_Zero	0xc9
00c1 00d8       |    |		Load_Top	At_Offset_0
00c2 0227       | '  |		Execute	Access,All_Reference
00c3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00c4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00c5 c5fd       |    |		Store	0x2,-0x3
00c6 4801       |H   |		Short_Literal	0x1
00c7 a5fc       |    |		Store_Unchecked	0x2,-0x4
00c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00c9 4800       |H   |		Short_Literal	0x0
00ca a5fc       |    |		Store_Unchecked	0x2,-0x4
00cb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00cc 0000 0000  |    |		.BLANK	0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00df       |    |		.CONST	0x00df								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 00db       |    |		Load_Top	At_Offset_3
00d4 e210       |    |		Load	0x1,0x10
00d5 0119       |    |		Execute	Any,Check_In_Formal_Type
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 e210       |    |		Load	0x1,0x10
00d8 0119       |    |		Execute	Any,Check_In_Formal_Type
00d9 822e       | .  |		Call	0x1,0x2e
00da e5ff       |    |		Load	0x2,-0x1
00db 0227       | '  |		Execute	Access,All_Reference
00dc 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00dd 01d7       |    |		Execute	Vector,Field_Read
00de 822d       | -  |		Call	0x1,0x2d
00df			BODY_00d0:
00df 00d8       |    |		Load_Top	At_Offset_0
00e0 6808       |h   |		Jump_Zero	0xe9
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 0227       | '  |		Execute	Access,All_Reference
00e3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00e4 e5fd       |    |		Load	0x2,-0x3
00e5 017d       | }  |		Execute	Record,Structure_Write
00e6 4801       |H   |		Short_Literal	0x1
00e7 a5fc       |    |		Store_Unchecked	0x2,-0x4
00e8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e9 4800       |H   |		Short_Literal	0x0
00ea a5fc       |    |		Store_Unchecked	0x2,-0x4
00eb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ec 0000 0000  |    |		.BLANK	0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0102       |    |		.CONST	0x0102								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0004       |    |		.CONST	0x0004								; Number of locals
00f3			INIT_00f0:
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 e210       |    |		Load	0x1,0x10
00f5 0119       |    |		Execute	Any,Check_In_Formal_Type
00f6 822e       | .  |		Call	0x1,0x2e
00f7 e5fc       |    |		Load	0x2,-0x4
00f8 0227       | '  |		Execute	Access,All_Reference
00f9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00fa 01d5       |    |		Execute	Vector,Field_Reference
00fb 0007       |    |		Action	Break_Optional
00fc 00db       |    |		Load_Top	At_Offset_3
00fd e210       |    |		Load	0x1,0x10
00fe 0119       |    |		Execute	Any,Check_In_Formal_Type
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 822d       | -  |		Call	0x1,0x2d
0101 00e1       |    |		Load_Encached	Boolean_Cache
0102			BODY_00f0:
0102 00d9       |    |		Load_Top	At_Offset_1
0103 701e       |p   |		Jump_Nonzero	0x122
0104 e228       | (  |		Load	0x1,0x28
0105 0322       | "  |		Declare_Variable	Record
0106 00d8       |    |		Load_Top	At_Offset_0
0107 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0108 e5ff       |    |		Load	0x2,-0x1
0109 e214       |    |		Load	0x1,0x14
010a 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
010b 0119       |    |		Execute	Any,Check_In_Formal_Type
010c 00d9       |    |		Load_Top	At_Offset_1
010d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
010e e5fe       |    |		Load	0x2,-0x2
010f e214       |    |		Load	0x1,0x14
0110 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0111 0119       |    |		Execute	Any,Check_In_Formal_Type
0112 00d0       |    |		Action	Swap_Control
0113 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0114 00db       |    |		Load_Top	At_Offset_3
0115 00d9       |    |		Load_Top	At_Offset_1
0116 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0117 e229       | )  |		Load	0x1,0x29
0118 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0119 a402       |    |		Store_Unchecked	0x2,0x2
011a e5fc       |    |		Load	0x2,-0x4
011b 0227       | '  |		Execute	Access,All_Reference
011c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011d 0a01       |    |		Execute_Immediate	Plus,0x1
011e e5fc       |    |		Load	0x2,-0x4
011f 0227       | '  |		Execute	Access,All_Reference
0120 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0121 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0122 e5fd       |    |		Load	0x2,-0x3
0123 6802       |h   |		Jump_Zero	0x126
0124 e224       | $  |		Load	0x1,0x24
0125 0257       | W  |		Execute	Discrete,Raise
0126 e5fe       |    |		Load	0x2,-0x2
0127 00da       |    |		Load_Top	At_Offset_2
0128 0227       | '  |		Execute	Access,All_Reference
0129 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
012a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
012b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013f       | ?  |		.CONST	0x013f								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0004       |    |		.CONST	0x0004								; Number of locals
0133			INIT_0130:
0133 00da       |    |		Load_Top	At_Offset_2
0134 e210       |    |		Load	0x1,0x10
0135 0119       |    |		Execute	Any,Check_In_Formal_Type
0136 822e       | .  |		Call	0x1,0x2e
0137 e5fe       |    |		Load	0x2,-0x2
0138 0227       | '  |		Execute	Access,All_Reference
0139 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
013a 01d5       |    |		Execute	Vector,Field_Reference
013b 0007       |    |		Action	Break_Optional
013c 00d8       |    |		Load_Top	At_Offset_0
013d 0007       |    |		Action	Break_Optional
013e e229       | )  |		Load	0x1,0x29
013f			BODY_0130:
013f 00cf       |    |		Action	Mark_Auxiliary
0140 7823       |x#  |		Jump	0x164
0141 00da       |    |		Load_Top	At_Offset_2
0142 0227       | '  |		Execute	Access,All_Reference
0143 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0144 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0145 e5ff       |    |		Load	0x2,-0x1
0146 012f       | /  |		Execute	Any,Equal
0147 6815       |h   |		Jump_Zero	0x15d
0148 00d9       |    |		Load_Top	At_Offset_1
0149 6807       |h   |		Jump_Zero	0x151
014a 00da       |    |		Load_Top	At_Offset_2
014b 0227       | '  |		Execute	Access,All_Reference
014c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
014d 00da       |    |		Load_Top	At_Offset_2
014e 0227       | '  |		Execute	Access,All_Reference
014f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0150 7804       |x   |		Jump	0x155
0151 00da       |    |		Load_Top	At_Offset_2
0152 0227       | '  |		Execute	Access,All_Reference
0153 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0154 a402       |    |		Store_Unchecked	0x2,0x2
0155 e5fe       |    |		Load	0x2,-0x2
0156 0227       | '  |		Execute	Access,All_Reference
0157 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0158 0aff       |    |		Execute_Immediate	Plus,-0x1
0159 e5fe       |    |		Load	0x2,-0x2
015a 0227       | '  |		Execute	Access,All_Reference
015b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
015c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015d 00da       |    |		Load_Top	At_Offset_2
015e 003a       | :  |		Store_Top	Access,At_Offset_2
015f 00da       |    |		Load_Top	At_Offset_2
0160 0227       | '  |		Execute	Access,All_Reference
0161 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0162 003b       | ;  |		Store_Top	Access,At_Offset_3
0163 00c9       |    |		Action	Pop_Auxiliary_Loop
0164 00da       |    |		Load_Top	At_Offset_2
0165 77db       |w   |		Jump_Nonzero	0x141
0166 00ce       |    |		Action	Pop_Auxiliary
0167 e223       | #  |		Load	0x1,0x23
0168 0257       | W  |		Execute	Discrete,Raise
0169 0000 0000  |    |		.BLANK	0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 e213       |    |		Load	0x1,0x13
0174 03bc       |    |		Declare_Variable	Access,By_Allocation
0175 00d8       |    |		Load_Top	At_Offset_0
0176 0227       | '  |		Execute	Access,All_Reference
0177 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0178 003b       | ;  |		Store_Top	Access,At_Offset_3
0179 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185       |    |		.CONST	0x0185								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 e21e       |    |		Load	0x1,0x1e
0184 0322       | "  |		Declare_Variable	Record
0185			BODY_0180:
0185 00cf       |    |		Action	Mark_Auxiliary
0186 e22a       | *  |		Load	0x1,0x2a
0187 0269       | i  |		Execute	Discrete,Last
0188 4800       |H   |		Short_Literal	0x0
0189 0263       | c  |		Execute	Discrete,Above_Bound
018a 700a       |p   |		Jump_Nonzero	0x195
018b 00d8       |    |		Load_Top	At_Offset_0
018c e5ff       |    |		Load	0x2,-0x1
018d 0227       | '  |		Execute	Access,All_Reference
018e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
018f 01d7       |    |		Execute	Vector,Field_Read
0190 6802       |h   |		Jump_Zero	0x193
0191 4800       |H   |		Short_Literal	0x0
0192 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0193 00c8       |    |		Action	Pop_Auxiliary_Range
0194 3ff6       |?   |		Loop_Increasing	0x18b
0195 00ce       |    |		Action	Pop_Auxiliary
0196 4801       |H   |		Short_Literal	0x1
0197 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 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 00cf       |    |		Action	Mark_Auxiliary
019c e22a       | *  |		Load	0x1,0x2a
019d 0269       | i  |		Execute	Discrete,Last
019e 4800       |H   |		Short_Literal	0x0
019f 0263       | c  |		Execute	Discrete,Above_Bound
01a0 7008       |p   |		Jump_Nonzero	0x1a9
01a1 e229       | )  |		Load	0x1,0x29
01a2 00d9       |    |		Load_Top	At_Offset_1
01a3 e5ff       |    |		Load	0x2,-0x1
01a4 0227       | '  |		Execute	Access,All_Reference
01a5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01a6 01d6       |    |		Execute	Vector,Field_Write
01a7 00c8       |    |		Action	Pop_Auxiliary_Range
01a8 3ff8       |?   |		Loop_Increasing	0x1a1
01a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01aa 0000 0000  |    |		.BLANK	0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5       |    |		.CONST	0x01b5								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0002       |    |		.CONST	0x0002								; Number of locals
01b3			INIT_01b0:
01b3 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
01b5			BODY_01b0:
01b5 00cf       |    |		Action	Mark_Auxiliary
01b6 e22a       | *  |		Load	0x1,0x2a
01b7 0269       | i  |		Execute	Discrete,Last
01b8 4800       |H   |		Short_Literal	0x0
01b9 0263       | c  |		Execute	Discrete,Above_Bound
01ba 7013       |p   |		Jump_Nonzero	0x1ce
01bb e5fe       |    |		Load	0x2,-0x2
01bc 0229       | )  |		Execute	Access,All_Read
01bd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01be 00d9       |    |		Load_Top	At_Offset_1
01bf 00d8       |    |		Load_Top	At_Offset_0
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 01d7       |    |		Execute	Vector,Field_Read
01c2 00db       |    |		Load_Top	At_Offset_3
01c3 e5ff       |    |		Load	0x2,-0x1
01c4 0227       | '  |		Execute	Access,All_Reference
01c5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01c6 01d7       |    |		Execute	Vector,Field_Read
01c7 8402       |    |		Call	0x2,0x2
01c8 00d9       |    |		Load_Top	At_Offset_1
01c9 00db       |    |		Load_Top	At_Offset_3
01ca 01d6       |    |		Execute	Vector,Field_Write
01cb 00d2       |    |		Pop_Control	Pop_Count_2
01cc 00c8       |    |		Action	Pop_Auxiliary_Range
01cd 3fed       |?   |		Loop_Increasing	0x1bb
01ce 00ce       |    |		Action	Pop_Auxiliary
01cf 00db       |    |		Load_Top	At_Offset_3
01d0 0227       | '  |		Execute	Access,All_Reference
01d1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d2 e5fe       |    |		Load	0x2,-0x2
01d3 0227       | '  |		Execute	Access,All_Reference
01d4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01d5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d6 0000 0000  |    |		.XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd       |    |		.CONST	0x01dd								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0002       |    |		.CONST	0x0002								; Number of locals
01db			INIT_01d8:
01db e21e       |    |		Load	0x1,0x1e
01dc 0322       | "  |		Declare_Variable	Record
01dd			BODY_01d8:
01dd 00cf       |    |		Action	Mark_Auxiliary
01de e22a       | *  |		Load	0x1,0x2a
01df 0269       | i  |		Execute	Discrete,Last
01e0 4800       |H   |		Short_Literal	0x0
01e1 0263       | c  |		Execute	Discrete,Above_Bound
01e2 7019       |p   |		Jump_Nonzero	0x1fc
01e3 00d8       |    |		Load_Top	At_Offset_0
01e4 e5ff       |    |		Load	0x2,-0x1
01e5 0227       | '  |		Execute	Access,All_Reference
01e6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01e7 01d7       |    |		Execute	Vector,Field_Read
01e8 e402       |    |		Load	0x2,0x2
01e9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01ea 00db       |    |		Load_Top	At_Offset_3
01eb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01ec 680d       |h   |		Jump_Zero	0x1fa
01ed 4800       |H   |		Short_Literal	0x0
01ee e402       |    |		Load	0x2,0x2
01ef 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01f0 00d8       |    |		Load_Top	At_Offset_0
01f1 e402       |    |		Load	0x2,0x2
01f2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f3 e5ff       |    |		Load	0x2,-0x1
01f4 e402       |    |		Load	0x2,0x2
01f5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01f6 00db       |    |		Load_Top	At_Offset_3
01f7 e5fe       |    |		Load	0x2,-0x2
01f8 017d       | }  |		Execute	Record,Structure_Write
01f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01fa 00c8       |    |		Action	Pop_Auxiliary_Range
01fb 3fe7       |?   |		Loop_Increasing	0x1e3
01fc 00ce       |    |		Action	Pop_Auxiliary
01fd 4801       |H   |		Short_Literal	0x1
01fe 00d9       |    |		Load_Top	At_Offset_1
01ff 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0200 00d8       |    |		Load_Top	At_Offset_0
0201 e5fe       |    |		Load	0x2,-0x2
0202 017d       | }  |		Execute	Record,Structure_Write
0203 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0204 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
020c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
020d 0227       | '  |		Execute	Access,All_Reference
020e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
020f 00db       |    |		Load_Top	At_Offset_3
0210 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0211 00cf       |    |		Action	Mark_Auxiliary
0212 7819       |x   |		Jump	0x22c
0213 00db       |    |		Load_Top	At_Offset_3
0214 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0215 e22a       | *  |		Load	0x1,0x2a
0216 0269       | i  |		Execute	Discrete,Last
0217 027f       |    |		Execute	Discrete,Equal
0218 6804       |h   |		Jump_Zero	0x21d
0219 4801       |H   |		Short_Literal	0x1
021a e5ff       |    |		Load	0x2,-0x1
021b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
021c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021d 00db       |    |		Load_Top	At_Offset_3
021e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
021f 0a01       |    |		Execute_Immediate	Plus,0x1
0220 e5ff       |    |		Load	0x2,-0x1
0221 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0222 00db       |    |		Load_Top	At_Offset_3
0223 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0224 e5ff       |    |		Load	0x2,-0x1
0225 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0226 0227       | '  |		Execute	Access,All_Reference
0227 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0228 01d7       |    |		Execute	Vector,Field_Read
0229 e5ff       |    |		Load	0x2,-0x1
022a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
022b 00c9       |    |		Action	Pop_Auxiliary_Loop
022c 00db       |    |		Load_Top	At_Offset_3
022d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
022e 6fe4       |o   |		Jump_Zero	0x213
022f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2
0234 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0235 0227       | '  |		Execute	Access,All_Reference
0236 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0237 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0238 00d8       |    |		Load_Top	At_Offset_0
0239 0120       |    |		Execute	Any,Is_Value
023a 7002       |p   |		Jump_Nonzero	0x23d
023b 00d8       |    |		Load_Top	At_Offset_0
023c 011e       |    |		Execute	Any,Convert
023d e210       |    |		Load	0x1,0x10
023e 0119       |    |		Execute	Any,Check_In_Formal_Type
023f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0245 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0246 0000 0000  |    |		.XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00da       |    |		Load_Top	At_Offset_2
024c 0227       | '  |		Execute	Access,All_Reference
024d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
024e 00d8       |    |		Load_Top	At_Offset_0
024f 00e3       |    |		Load_Encached	Natural_Cache
0250 0260       | `  |		Execute	Discrete,In_Type
0251 7001       |p   |		Jump_Nonzero	0x253
0252 0801       |    |		Execute_Immediate	Raise,0x1
0253 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0254 0000 0000  |    |		.BLANK	0000[0x4]
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 e213       |    |		Load	0x1,0x13
025c 00ca       |    |		Action	Exit_Nullary_Function
025d 0000 0000  |    |		.XXX[0x3]
025f 0000       |    |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00da       |    |		Load_Top	At_Offset_2
0264 022d       | -  |		Execute	Access,Is_Null
0265 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026c       | l  |		.CONST	0x026c								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0002       |    |		.CONST	0x0002								; Number of locals
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c			BODY_0268:
026c 00cf       |    |		Action	Mark_Auxiliary
026d 780e       |x   |		Jump	0x27c
026e 00d9       |    |		Load_Top	At_Offset_1
026f 0227       | '  |		Execute	Access,All_Reference
0270 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0271 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0272 e5fe       |    |		Load	0x2,-0x2
0273 012f       | /  |		Execute	Any,Equal
0274 6802       |h   |		Jump_Zero	0x277
0275 00d9       |    |		Load_Top	At_Offset_1
0276 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0277 00d9       |    |		Load_Top	At_Offset_1
0278 0227       | '  |		Execute	Access,All_Reference
0279 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027a 003a       | :  |		Store_Top	Access,At_Offset_2
027b 00c9       |    |		Action	Pop_Auxiliary_Loop
027c 00d9       |    |		Load_Top	At_Offset_1
027d 77f0       |w   |		Jump_Nonzero	0x26e
027e 00ce       |    |		Action	Pop_Auxiliary
027f e229       | )  |		Load	0x1,0x29
0280 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0281 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
028c e210       |    |		Load	0x1,0x10
028d 0119       |    |		Execute	Any,Check_In_Formal_Type
028e 8212       |    |		Call	0x1,0x12
028f e20f       |    |		Load	0x1,0xf
0290 026e       | n  |		Execute	Discrete,Modulo
0291 00d8       |    |		Load_Top	At_Offset_0
0292 e22a       | *  |		Load	0x1,0x2a
0293 0260       | `  |		Execute	Discrete,In_Type
0294 7001       |p   |		Jump_Nonzero	0x296
0295 0801       |    |		Execute_Immediate	Raise,0x1
0296 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0297 0000       |    |		.XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029d       |    |		.CONST	0x029d								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0002       |    |		.CONST	0x0002								; Number of locals
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 0007       |    |		Action	Break_Optional
029d			BODY_0298:
029d e229       | )  |		Load	0x1,0x29
029e a7fe       |    |		Store_Unchecked	0x3,-0x2
029f 00cf       |    |		Action	Mark_Auxiliary
02a0 7812       |x   |		Jump	0x2b3
02a1 e228       | (  |		Load	0x1,0x28
02a2 0322       | "  |		Declare_Variable	Record
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 0227       | '  |		Execute	Access,All_Reference
02a5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02a6 00d9       |    |		Load_Top	At_Offset_1
02a7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02a8 e7fe       |    |		Load	0x3,-0x2
02a9 00d9       |    |		Load_Top	At_Offset_1
02aa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ab e229       | )  |		Load	0x1,0x29
02ac 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
02ad a7fe       |    |		Store_Unchecked	0x3,-0x2
02ae 00d9       |    |		Load_Top	At_Offset_1
02af 0227       | '  |		Execute	Access,All_Reference
02b0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b1 003a       | :  |		Store_Top	Access,At_Offset_2
02b2 00c9       |    |		Action	Pop_Auxiliary_Loop
02b3 00d9       |    |		Load_Top	At_Offset_1
02b4 77ec       |w   |		Jump_Nonzero	0x2a1
02b5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b6 0000 0000  |    |		.XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 4608       |F   |		Jump_Case	0x9
02bc 7808       |x   |		Jump	0x2c5								; case 0x0
02bd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02be 780a       |x   |		Jump	0x2c9								; case 0x2
02bf 7809       |x   |		Jump	0x2c9								; case 0x3
02c0 7808       |x   |		Jump	0x2c9								; case 0x4
02c1 7807       |x   |		Jump	0x2c9								; case 0x5
02c2 7806       |x   |		Jump	0x2c9								; case 0x6
02c3 7805       |x   |		Jump	0x2c9								; case 0x7
02c4 7804       |x   |		Jump	0x2c9								; case 0x8
02c5 00da       |    |		Load_Top	At_Offset_2
02c6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02c9 0869       | i  |		Execute_Immediate	Raise,0x69
02ca 0000 0000  |    |		.BLANK	0000[0x6]
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 4608       |F   |		Jump_Case	0x9
02d4 7808       |x   |		Jump	0x2dd								; case 0x0
02d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02d6 780a       |x   |		Jump	0x2e1								; case 0x2
02d7 7809       |x   |		Jump	0x2e1								; case 0x3
02d8 7808       |x   |		Jump	0x2e1								; case 0x4
02d9 7807       |x   |		Jump	0x2e1								; case 0x5
02da 7806       |x   |		Jump	0x2e1								; case 0x6
02db 7805       |x   |		Jump	0x2e1								; case 0x7
02dc 7804       |x   |		Jump	0x2e1								; case 0x8
02dd 4800       |H   |		Short_Literal	0x0
02de 00db       |    |		Load_Top	At_Offset_3
02df 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02e0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02e1 0869       | i  |		Execute_Immediate	Raise,0x69
02e2 0000 0000  |    |		.BLANK	0000[0x6]
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 4608       |F   |		Jump_Case	0x9
02ec 7808       |x   |		Jump	0x2f5								; case 0x0
02ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02ee 7813       |x   |		Jump	0x302								; case 0x2
02ef 7812       |x   |		Jump	0x302								; case 0x3
02f0 7811       |x   |		Jump	0x302								; case 0x4
02f1 7810       |x   |		Jump	0x302								; case 0x5
02f2 780f       |x   |		Jump	0x302								; case 0x6
02f3 780e       |x   |		Jump	0x302								; case 0x7
02f4 780d       |x   |		Jump	0x302								; case 0x8
02f5 00da       |    |		Load_Top	At_Offset_2
02f6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02f7 0125       | %  |		Execute	Any,Set_Constraint
02f8 00da       |    |		Load_Top	At_Offset_2
02f9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02fa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02fd 0125       | %  |		Execute	Any,Set_Constraint
02fe 00da       |    |		Load_Top	At_Offset_2
02ff 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0300 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0301 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0302 0869       | i  |		Execute_Immediate	Raise,0x69
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug Table
0308 ; --------------------------------------------------------------------------------------
0308 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x2e7e,0x0000,0x0001,0x0018
030e 000b 036e  |   n|		.DBG4T	0x000b,0x036e,0xc000,0x0000
0312 0063 038d  | c  |		.DBG4T	0x0063,0x038d,0xc000,0x0000
0316 0093 03a1  |    |		.DBG4T	0x0093,0x03a1,0x1002,0x0000
031a 00b3 03a7  |    |		.DBG4T	0x00b3,0x03a7,0x1001,0x0000
031e 00d3 03ae  |    |		.DBG4T	0x00d3,0x03ae,0x1001,0x0000
0322 00f3 03b5  |    |		.DBG4T	0x00f3,0x03b5,0x1001,0x0000
0326 0133 03c0  | 3  |		.DBG4T	0x0133,0x03c0,0x1001,0x4000
032a 0173 03d9  | s  |		.DBG4T	0x0173,0x03d9,0x1001,0x0000
032e 0183 03dc  |    |		.DBG4T	0x0183,0x03dc,0x1002,0x0000
0332 019b 03e3  |    |		.DBG4T	0x019b,0x03e3,0x1001,0x0000
0336 01b3 03e7  |    |		.DBG4T	0x01b3,0x03e7,0x1001,0x0000
033a 01db 03ed  |    |		.DBG4T	0x01db,0x03ed,0x1001,0x0000
033e 020b 03fa  |    |		.DBG4T	0x020b,0x03fa,0x1001,0x4000
0342 0233 040a  | 3  |		.DBG4T	0x0233,0x040a,0x1002,0x0000
0346 0243 040d  | C  |		.DBG4T	0x0243,0x040d,0x1002,0x0000
034a 024b 0410  | K  |		.DBG4T	0x024b,0x0410,0x1002,0x0000
034e 025b 0413  | [  |		.DBG4T	0x025b,0x0413,0x1002,0x0000
0352 0263 0416  | c  |		.DBG4T	0x0263,0x0416,0x1002,0x0000
0356 026b 0419  | k  |		.DBG4T	0x026b,0x0419,0x1002,0x4000
035a 028b 0426  |   &|		.DBG4T	0x028b,0x0426,0x1002,0x0000
035e 029b 0429  |   )|		.DBG4T	0x029b,0x0429,0x1001,0x4000
0362 02bb 0000  |    |		.DBG4T	0x02bb,0x0000,0x1005,0x0000
0366 02d3 0000  |    |		.DBG4T	0x02d3,0x0000,0x1005,0x0000
036a 02eb 0000  |    |		.DBG4T	0x02eb,0x0000,0x1005,0x0000
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 001d 0000  |    |		.DBGLEN	0x001d,0x0000
0370 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003f,0x0045,0x004a,0x0051,0x0057,0x005b
038d ; --------------------------------------------------------------------------------------
038d ; Debug chain
038d ; --------------------------------------------------------------------------------------
038d 0012 0000  |    |		.DBGLEN	0x0012,0x0000
038f 0063 0065  | c e|		.DBGLNO	0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085
03a1 ; --------------------------------------------------------------------------------------
03a1 ; Debug chain
03a1 ; --------------------------------------------------------------------------------------
03a1 0001 0003  |    |		.DBGLEN	0x0001,0x0003
03a3 0093 009f  |    |		.DBGLNO	0x0093,0x009f,0x00a1,0x00ad
03a7 ; --------------------------------------------------------------------------------------
03a7 ; Debug chain
03a7 ; --------------------------------------------------------------------------------------
03a7 0001 0004  |    |		.DBGLEN	0x0001,0x0004
03a9 00b3 00bf  |    |		.DBGLNO	0x00b3,0x00bf,0x00c1,0x00c6,0x00c9
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug chain
03ae ; --------------------------------------------------------------------------------------
03ae 0001 0004  |    |		.DBGLEN	0x0001,0x0004
03b0 00d3 00df  |    |		.DBGLNO	0x00d3,0x00df,0x00e1,0x00e6,0x00e9
03b5 ; --------------------------------------------------------------------------------------
03b5 ; Debug chain
03b5 ; --------------------------------------------------------------------------------------
03b5 0003 0006  |    |		.DBGLEN	0x0003,0x0006
03b7 00f3 00fc  |    |		.DBGLNO	0x00f3,0x00fc,0x0101,0x0102,0x0104,0x011a,0x0122,0x0124,0x0126
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug chain
03c0 ; --------------------------------------------------------------------------------------
03c0 0003 000a  |    |		.DBGLEN	0x0003,0x000a
03c2 0133 013c  | 3 <|		.DBGLNO	0x0133,0x013c,0x013e,0x0141,0x0148,0x014a,0x0151,0x0155,0x015c,0x015d,0x015f,0x0164,0x0167
03cf 0002 0003  |    |		.XXX[0xa]
03d1 0004 0005  |    |
03d3 0006 0007  |    |
03d5 0008 0009  |    |
03d7 0001 000a  |    |
03d9 ; --------------------------------------------------------------------------------------
03d9 ; Debug chain
03d9 ; --------------------------------------------------------------------------------------
03d9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03db 0173       | s  |		.DBGLNO	0x0173
03dc ; --------------------------------------------------------------------------------------
03dc ; Debug chain
03dc ; --------------------------------------------------------------------------------------
03dc 0001 0004  |    |		.DBGLEN	0x0001,0x0004
03de 0183 0186  |    |		.DBGLNO	0x0183,0x0186,0x018b,0x0191,0x0196
03e3 ; --------------------------------------------------------------------------------------
03e3 ; Debug chain
03e3 ; --------------------------------------------------------------------------------------
03e3 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03e5 019c 01a1  |    |		.DBGLNO	0x019c,0x01a1
03e7 ; --------------------------------------------------------------------------------------
03e7 ; Debug chain
03e7 ; --------------------------------------------------------------------------------------
03e7 0001 0003  |    |		.DBGLEN	0x0001,0x0003
03e9 01b3 01b6  |    |		.DBGLNO	0x01b3,0x01b6,0x01bb,0x01cf
03ed ; --------------------------------------------------------------------------------------
03ed ; Debug chain
03ed ; --------------------------------------------------------------------------------------
03ed 0001 000a  |    |		.DBGLEN	0x0001,0x000a
03ef 01db 01de  |    |		.DBGLNO	0x01db,0x01de,0x01e3,0x01ea,0x01ed,0x01f0,0x01f3,0x01f6,0x01f9,0x01fd,0x0200
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug chain
03fa ; --------------------------------------------------------------------------------------
03fa 0000 0007  |    |		.DBGLEN	0x0000,0x0007
03fc 020b 0213  |    |		.DBGLNO	0x020b,0x0213,0x0219,0x021c,0x021d,0x0222,0x022c
0403 0001 0003  |    |		.XXX[0x7]
0405 0004 0005  |    |
0407 0006 0007  |    |
0409 0002       |    |
040a ; --------------------------------------------------------------------------------------
040a ; Debug chain
040a ; --------------------------------------------------------------------------------------
040a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
040c 0233       | 3  |		.DBGLNO	0x0233
040d ; --------------------------------------------------------------------------------------
040d ; Debug chain
040d ; --------------------------------------------------------------------------------------
040d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
040f 0243       | C  |		.DBGLNO	0x0243
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug chain
0410 ; --------------------------------------------------------------------------------------
0410 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0412 024b       | K  |		.DBGLNO	0x024b
0413 ; --------------------------------------------------------------------------------------
0413 ; Debug chain
0413 ; --------------------------------------------------------------------------------------
0413 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0415 025b       | [  |		.DBGLNO	0x025b
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug chain
0416 ; --------------------------------------------------------------------------------------
0416 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0418 0263       | c  |		.DBGLNO	0x0263
0419 ; --------------------------------------------------------------------------------------
0419 ; Debug chain
0419 ; --------------------------------------------------------------------------------------
0419 0001 0005  |    |		.DBGLEN	0x0001,0x0005
041b 026b 026e  | k n|		.DBGLNO	0x026b,0x026e,0x0275,0x0277,0x027c,0x027f
0421 0002 0003  |    |		.XXX[0x5]
0423 0004 0001  |    |
0425 0005       |    |
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug chain
0426 ; --------------------------------------------------------------------------------------
0426 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0428 028b       |    |		.DBGLNO	0x028b
0429 ; --------------------------------------------------------------------------------------
0429 ; Debug chain
0429 ; --------------------------------------------------------------------------------------
0429 0001 0004  |    |		.DBGLEN	0x0001,0x0004
042b 029b 029d  |    |		.DBGLNO	0x029b,0x029d,0x02a1,0x02ae,0x02b3
0430 0001 0003  |    |		.XXX[0x4]
0432 0004 0002  |    |
0434 0000 0000  |    |		.BLANK	0000[0x1cc]