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

⟦82bd9ca06⟧

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

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 5900       |Y   |		.CONST	0x5900								; 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 0091       |    |		.CONST	0x0091								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002d       | -  |		.CONST	0x002d								; Number of locals
000b			INIT_0008:
000b 00da       |    |		Load_Top	At_Offset_2
000c 00da       |    |		Load_Top	At_Offset_2
000d 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
000f 4802       |H   |		Short_Literal	0x2
0010 032e       | .  |		Declare_Type	Record,Defined,Visible
0011 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0013 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0015 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0017 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0019 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
001b 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
001d 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
001f 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0021 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0023 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0025 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0027 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0029 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
002b 0093 0000  |    |		push_full_address	0x0
002d 6092       |`   |		Indirect_Literal	Discrete,0xc0,{0x80000000, 0x00010000}
002e 0273       | s  |		Execute	Discrete,Plus
002f e20d       |    |		Load	0x1,0xd
0030 608b       |`   |		Indirect_Literal	Discrete,0xbc,{0x00000000, 0x0000ffff}
0031 0279       | y  |		Execute	Discrete,And
0032 0273       | s  |		Execute	Discrete,Plus
0033 0129       | )  |		Execute	Any,Make_Visible
0034 0093 0000  |    |		push_full_address	0x0
0036 6081       |`   |		Indirect_Literal	Discrete,0xb8,{0x80000000, 0x00020000}
0037 0273       | s  |		Execute	Discrete,Plus
0038 e20d       |    |		Load	0x1,0xd
0039 6082       |`   |		Indirect_Literal	Discrete,0xbc,{0x00000000, 0x0000ffff}
003a 0279       | y  |		Execute	Discrete,And
003b 0273       | s  |		Execute	Discrete,Plus
003c 0129       | )  |		Execute	Any,Make_Visible
003d 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
003f 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0041 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0043 4818       |H   |		Short_Literal	0x18
0044 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0045 e212       |    |		Load	0x1,0x12
0046 00d9       |    |		Load_Top	At_Offset_1
0047 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
0049 4802       |H   |		Short_Literal	0x2
004a 032e       | .  |		Declare_Type	Record,Defined,Visible
004b 00d8       |    |		Load_Top	At_Offset_0
004c 02a0       |    |		Declare_Subprogram	Null_Subprogram
004d 00db       |    |		Load_Top	At_Offset_3
004e 03c7       |    |		Complete_Type	Access,By_Defining
004f 4800       |H   |		Short_Literal	0x0
0050 e20e       |    |		Load	0x1,0xe
0051 0aff       |    |		Execute_Immediate	Plus,-0x1
0052 00e2       |    |		Load_Encached	Integer_Cache
0053 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0054 4800       |H   |		Short_Literal	0x0
0055 00d9       |    |		Load_Top	At_Offset_1
0056 0269       | i  |		Execute	Discrete,Last
0057 e225       | %  |		Load	0x1,0x25
0058 02a0       |    |		Declare_Subprogram	Null_Subprogram
0059 4801       |H   |		Short_Literal	0x1
005a 035e       | ^  |		Declare_Type	Array,Defined,Visible
005b 00d8       |    |		Load_Top	At_Offset_0
005c 00e2       |    |		Load_Encached	Integer_Cache
005d 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
005f 4802       |H   |		Short_Literal	0x2
0060 032e       | .  |		Declare_Type	Record,Defined,Visible
0061 00d8       |    |		Load_Top	At_Offset_0
0062 02a0       |    |		Declare_Subprogram	Null_Subprogram
0063 4818       |H   |		Short_Literal	0x18
0064 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0065 00d8       |    |		Load_Top	At_Offset_0
0066 e227       | '  |		Load	0x1,0x27
0067 e225       | %  |		Load	0x1,0x25
0068 00e1       |    |		Load_Encached	Boolean_Cache
0069 02a0       |    |		Declare_Subprogram	Null_Subprogram
006a 4804       |H   |		Short_Literal	0x4
006b 032e       | .  |		Declare_Type	Record,Defined,Visible
006c 00bf       |    |		Action	Accept_Activation
006d 029d 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call
006f 029d 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call
0071 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0090 00c7       |    |		Action	Elaborate_Subprogram
0091			BODY_0008:
0091 00bc       |    |		Action	Signal_Activated
0092 00bb       |    |		Action	Signal_Completion
0093 0000 0000  |    |		.BLANK	0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a7       |    |		.CONST	0x00a7								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0002       |    |		.CONST	0x0002								; Number of locals
009b			INIT_0098:
009b 00db       |    |		Load_Top	At_Offset_3
009c e20f       |    |		Load	0x1,0xf
009d 0119       |    |		Execute	Any,Check_In_Formal_Type
009e e5fe       |    |		Load	0x2,-0x2
009f e20f       |    |		Load	0x1,0xf
00a0 0119       |    |		Execute	Any,Check_In_Formal_Type
00a1 822d       | -  |		Call	0x1,0x2d
00a2 e5ff       |    |		Load	0x2,-0x1
00a3 0227       | '  |		Execute	Access,All_Reference
00a4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00a5 01d7       |    |		Execute	Vector,Field_Read
00a6 822c       | ,  |		Call	0x1,0x2c
00a7			BODY_0098:
00a7 00d8       |    |		Load_Top	At_Offset_0
00a8 680c       |h   |		Jump_Zero	0xb5
00a9 00d8       |    |		Load_Top	At_Offset_0
00aa 0227       | '  |		Execute	Access,All_Reference
00ab 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00ac 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae 0120       |    |		Execute	Any,Is_Value
00af 7002       |p   |		Jump_Nonzero	0xb2
00b0 00d8       |    |		Load_Top	At_Offset_0
00b1 011e       |    |		Execute	Any,Convert
00b2 e210       |    |		Load	0x1,0x10
00b3 0119       |    |		Execute	Any,Check_In_Formal_Type
00b4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00b5 e220       |    |		Load	0x1,0x20
00b6 0257       | W  |		Execute	Discrete,Raise
00b7 0000       |    |		.XXX[0x1]
00b8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
00c0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00c4 0000 0000  |    |		.BLANK	0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d7       |    |		.CONST	0x00d7								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0002       |    |		.CONST	0x0002								; Number of locals
00cb			INIT_00c8:
00cb 00db       |    |		Load_Top	At_Offset_3
00cc e20f       |    |		Load	0x1,0xf
00cd 0119       |    |		Execute	Any,Check_In_Formal_Type
00ce e5fe       |    |		Load	0x2,-0x2
00cf e20f       |    |		Load	0x1,0xf
00d0 0119       |    |		Execute	Any,Check_In_Formal_Type
00d1 822d       | -  |		Call	0x1,0x2d
00d2 e5ff       |    |		Load	0x2,-0x1
00d3 0227       | '  |		Execute	Access,All_Reference
00d4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00d5 01d7       |    |		Execute	Vector,Field_Read
00d6 822c       | ,  |		Call	0x1,0x2c
00d7			BODY_00c8:
00d7 00d8       |    |		Load_Top	At_Offset_0
00d8 6808       |h   |		Jump_Zero	0xe1
00d9 00d8       |    |		Load_Top	At_Offset_0
00da 0227       | '  |		Execute	Access,All_Reference
00db 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00dc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00dd c5fd       |    |		Store	0x2,-0x3
00de 4801       |H   |		Short_Literal	0x1
00df a5fc       |    |		Store_Unchecked	0x2,-0x4
00e0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e1 4800       |H   |		Short_Literal	0x0
00e2 a5fc       |    |		Store_Unchecked	0x2,-0x4
00e3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e4 0000 0000  |    |		.BLANK	0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f7       |    |		.CONST	0x00f7								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb 00db       |    |		Load_Top	At_Offset_3
00ec e20f       |    |		Load	0x1,0xf
00ed 0119       |    |		Execute	Any,Check_In_Formal_Type
00ee e5fe       |    |		Load	0x2,-0x2
00ef e20f       |    |		Load	0x1,0xf
00f0 0119       |    |		Execute	Any,Check_In_Formal_Type
00f1 822d       | -  |		Call	0x1,0x2d
00f2 e5ff       |    |		Load	0x2,-0x1
00f3 0227       | '  |		Execute	Access,All_Reference
00f4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00f5 01d7       |    |		Execute	Vector,Field_Read
00f6 822c       | ,  |		Call	0x1,0x2c
00f7			BODY_00e8:
00f7 00d8       |    |		Load_Top	At_Offset_0
00f8 6808       |h   |		Jump_Zero	0x101
00f9 00d8       |    |		Load_Top	At_Offset_0
00fa 0227       | '  |		Execute	Access,All_Reference
00fb 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00fc e5fd       |    |		Load	0x2,-0x3
00fd 017d       | }  |		Execute	Record,Structure_Write
00fe 4801       |H   |		Short_Literal	0x1
00ff a5fc       |    |		Store_Unchecked	0x2,-0x4
0100 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0101 4800       |H   |		Short_Literal	0x0
0102 a5fc       |    |		Store_Unchecked	0x2,-0x4
0103 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0104 0000 0000  |    |		.BLANK	0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 011a       |    |		.CONST	0x011a								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0004       |    |		.CONST	0x0004								; Number of locals
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c e20f       |    |		Load	0x1,0xf
010d 0119       |    |		Execute	Any,Check_In_Formal_Type
010e 822d       | -  |		Call	0x1,0x2d
010f e5fc       |    |		Load	0x2,-0x4
0110 0227       | '  |		Execute	Access,All_Reference
0111 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0112 01d5       |    |		Execute	Vector,Field_Reference
0113 0007       |    |		Action	Break_Optional
0114 00db       |    |		Load_Top	At_Offset_3
0115 e20f       |    |		Load	0x1,0xf
0116 0119       |    |		Execute	Any,Check_In_Formal_Type
0117 00d9       |    |		Load_Top	At_Offset_1
0118 822c       | ,  |		Call	0x1,0x2c
0119 00e1       |    |		Load_Encached	Boolean_Cache
011a			BODY_0108:
011a 00d9       |    |		Load_Top	At_Offset_1
011b 701e       |p   |		Jump_Nonzero	0x13a
011c e226       | &  |		Load	0x1,0x26
011d 0322       | "  |		Declare_Variable	Record
011e 00d8       |    |		Load_Top	At_Offset_0
011f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0120 e5ff       |    |		Load	0x2,-0x1
0121 e212       |    |		Load	0x1,0x12
0122 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0123 0119       |    |		Execute	Any,Check_In_Formal_Type
0124 00d9       |    |		Load_Top	At_Offset_1
0125 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0126 e5fe       |    |		Load	0x2,-0x2
0127 e212       |    |		Load	0x1,0x12
0128 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0129 0119       |    |		Execute	Any,Check_In_Formal_Type
012a 00d0       |    |		Action	Swap_Control
012b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
012c 00db       |    |		Load_Top	At_Offset_3
012d 00d9       |    |		Load_Top	At_Offset_1
012e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
012f e225       | %  |		Load	0x1,0x25
0130 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0131 a402       |    |		Store_Unchecked	0x2,0x2
0132 e5fc       |    |		Load	0x2,-0x4
0133 0227       | '  |		Execute	Access,All_Reference
0134 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0135 0a01       |    |		Execute_Immediate	Plus,0x1
0136 e5fc       |    |		Load	0x2,-0x4
0137 0227       | '  |		Execute	Access,All_Reference
0138 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0139 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
013a e5fd       |    |		Load	0x2,-0x3
013b 6802       |h   |		Jump_Zero	0x13e
013c e221       | !  |		Load	0x1,0x21
013d 0257       | W  |		Execute	Discrete,Raise
013e e5fe       |    |		Load	0x2,-0x2
013f 00da       |    |		Load_Top	At_Offset_2
0140 0227       | '  |		Execute	Access,All_Reference
0141 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0142 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0143 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0157       | W  |		.CONST	0x0157								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0004       |    |		.CONST	0x0004								; Number of locals
014b			INIT_0148:
014b 00da       |    |		Load_Top	At_Offset_2
014c e20f       |    |		Load	0x1,0xf
014d 0119       |    |		Execute	Any,Check_In_Formal_Type
014e 822d       | -  |		Call	0x1,0x2d
014f e5fe       |    |		Load	0x2,-0x2
0150 0227       | '  |		Execute	Access,All_Reference
0151 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0152 01d5       |    |		Execute	Vector,Field_Reference
0153 0007       |    |		Action	Break_Optional
0154 00d8       |    |		Load_Top	At_Offset_0
0155 0007       |    |		Action	Break_Optional
0156 e225       | %  |		Load	0x1,0x25
0157			BODY_0148:
0157 00cf       |    |		Action	Mark_Auxiliary
0158 7823       |x#  |		Jump	0x17c
0159 00da       |    |		Load_Top	At_Offset_2
015a 0227       | '  |		Execute	Access,All_Reference
015b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
015c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015d e5ff       |    |		Load	0x2,-0x1
015e 012f       | /  |		Execute	Any,Equal
015f 6815       |h   |		Jump_Zero	0x175
0160 00d9       |    |		Load_Top	At_Offset_1
0161 6807       |h   |		Jump_Zero	0x169
0162 00da       |    |		Load_Top	At_Offset_2
0163 0227       | '  |		Execute	Access,All_Reference
0164 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0165 00da       |    |		Load_Top	At_Offset_2
0166 0227       | '  |		Execute	Access,All_Reference
0167 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0168 7804       |x   |		Jump	0x16d
0169 00da       |    |		Load_Top	At_Offset_2
016a 0227       | '  |		Execute	Access,All_Reference
016b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
016c a402       |    |		Store_Unchecked	0x2,0x2
016d e5fe       |    |		Load	0x2,-0x2
016e 0227       | '  |		Execute	Access,All_Reference
016f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0170 0aff       |    |		Execute_Immediate	Plus,-0x1
0171 e5fe       |    |		Load	0x2,-0x2
0172 0227       | '  |		Execute	Access,All_Reference
0173 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0174 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0175 00da       |    |		Load_Top	At_Offset_2
0176 003a       | :  |		Store_Top	Access,At_Offset_2
0177 00da       |    |		Load_Top	At_Offset_2
0178 0227       | '  |		Execute	Access,All_Reference
0179 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
017a 003b       | ;  |		Store_Top	Access,At_Offset_3
017b 00c9       |    |		Action	Pop_Auxiliary_Loop
017c 00da       |    |		Load_Top	At_Offset_2
017d 77db       |w   |		Jump_Nonzero	0x159
017e 00ce       |    |		Action	Pop_Auxiliary
017f e220       |    |		Load	0x1,0x20
0180 0257       | W  |		Execute	Discrete,Raise
0181 0000 0000  |    |		.BLANK	0000[0x7]
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 e22a       | *  |		Load	0x1,0x2a
018c 03bc       |    |		Declare_Variable	Access,By_Allocation
018d 00d8       |    |		Load_Top	At_Offset_0
018e 0227       | '  |		Execute	Access,All_Reference
018f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0190 003b       | ;  |		Store_Top	Access,At_Offset_3
0191 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0192 0000 0000  |    |		.BLANK	0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d       |    |		.CONST	0x019d								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b e22b       | +  |		Load	0x1,0x2b
019c 0322       | "  |		Declare_Variable	Record
019d			BODY_0198:
019d 00cf       |    |		Action	Mark_Auxiliary
019e e227       | '  |		Load	0x1,0x27
019f 0269       | i  |		Execute	Discrete,Last
01a0 4800       |H   |		Short_Literal	0x0
01a1 0263       | c  |		Execute	Discrete,Above_Bound
01a2 700a       |p   |		Jump_Nonzero	0x1ad
01a3 00d8       |    |		Load_Top	At_Offset_0
01a4 e5ff       |    |		Load	0x2,-0x1
01a5 0227       | '  |		Execute	Access,All_Reference
01a6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01a7 01d7       |    |		Execute	Vector,Field_Read
01a8 6802       |h   |		Jump_Zero	0x1ab
01a9 4800       |H   |		Short_Literal	0x0
01aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ab 00c8       |    |		Action	Pop_Auxiliary_Range
01ac 3ff6       |?   |		Loop_Increasing	0x1a3
01ad 00ce       |    |		Action	Pop_Auxiliary
01ae 4801       |H   |		Short_Literal	0x1
01af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00cf       |    |		Action	Mark_Auxiliary
01b4 e227       | '  |		Load	0x1,0x27
01b5 0269       | i  |		Execute	Discrete,Last
01b6 4800       |H   |		Short_Literal	0x0
01b7 0263       | c  |		Execute	Discrete,Above_Bound
01b8 7008       |p   |		Jump_Nonzero	0x1c1
01b9 e225       | %  |		Load	0x1,0x25
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb e5ff       |    |		Load	0x2,-0x1
01bc 0227       | '  |		Execute	Access,All_Reference
01bd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01be 01d6       |    |		Execute	Vector,Field_Write
01bf 00c8       |    |		Action	Pop_Auxiliary_Range
01c0 3ff8       |?   |		Loop_Increasing	0x1b9
01c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cd       |    |		.CONST	0x01cd								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0002       |    |		.CONST	0x0002								; Number of locals
01cb			INIT_01c8:
01cb 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
01cd			BODY_01c8:
01cd 00cf       |    |		Action	Mark_Auxiliary
01ce e227       | '  |		Load	0x1,0x27
01cf 0269       | i  |		Execute	Discrete,Last
01d0 4800       |H   |		Short_Literal	0x0
01d1 0263       | c  |		Execute	Discrete,Above_Bound
01d2 7013       |p   |		Jump_Nonzero	0x1e6
01d3 e5fe       |    |		Load	0x2,-0x2
01d4 0229       | )  |		Execute	Access,All_Read
01d5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01d6 00d9       |    |		Load_Top	At_Offset_1
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 00da       |    |		Load_Top	At_Offset_2
01d9 01d7       |    |		Execute	Vector,Field_Read
01da 00db       |    |		Load_Top	At_Offset_3
01db e5ff       |    |		Load	0x2,-0x1
01dc 0227       | '  |		Execute	Access,All_Reference
01dd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01de 01d7       |    |		Execute	Vector,Field_Read
01df 8402       |    |		Call	0x2,0x2
01e0 00d9       |    |		Load_Top	At_Offset_1
01e1 00db       |    |		Load_Top	At_Offset_3
01e2 01d6       |    |		Execute	Vector,Field_Write
01e3 00d2       |    |		Pop_Control	Pop_Count_2
01e4 00c8       |    |		Action	Pop_Auxiliary_Range
01e5 3fed       |?   |		Loop_Increasing	0x1d3
01e6 00ce       |    |		Action	Pop_Auxiliary
01e7 00db       |    |		Load_Top	At_Offset_3
01e8 0227       | '  |		Execute	Access,All_Reference
01e9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01ea e5fe       |    |		Load	0x2,-0x2
01eb 0227       | '  |		Execute	Access,All_Reference
01ec 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01ed 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01ee 0000 0000  |    |		.XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5       |    |		.CONST	0x01f5								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0002       |    |		.CONST	0x0002								; Number of locals
01f3			INIT_01f0:
01f3 e22b       | +  |		Load	0x1,0x2b
01f4 0322       | "  |		Declare_Variable	Record
01f5			BODY_01f0:
01f5 00cf       |    |		Action	Mark_Auxiliary
01f6 e227       | '  |		Load	0x1,0x27
01f7 0269       | i  |		Execute	Discrete,Last
01f8 4800       |H   |		Short_Literal	0x0
01f9 0263       | c  |		Execute	Discrete,Above_Bound
01fa 7019       |p   |		Jump_Nonzero	0x214
01fb 00d8       |    |		Load_Top	At_Offset_0
01fc e5ff       |    |		Load	0x2,-0x1
01fd 0227       | '  |		Execute	Access,All_Reference
01fe 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01ff 01d7       |    |		Execute	Vector,Field_Read
0200 e402       |    |		Load	0x2,0x2
0201 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0202 00db       |    |		Load_Top	At_Offset_3
0203 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0204 680d       |h   |		Jump_Zero	0x212
0205 4800       |H   |		Short_Literal	0x0
0206 e402       |    |		Load	0x2,0x2
0207 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0208 00d8       |    |		Load_Top	At_Offset_0
0209 e402       |    |		Load	0x2,0x2
020a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
020b e5ff       |    |		Load	0x2,-0x1
020c e402       |    |		Load	0x2,0x2
020d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
020e 00db       |    |		Load_Top	At_Offset_3
020f e5fe       |    |		Load	0x2,-0x2
0210 017d       | }  |		Execute	Record,Structure_Write
0211 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0212 00c8       |    |		Action	Pop_Auxiliary_Range
0213 3fe7       |?   |		Loop_Increasing	0x1fb
0214 00ce       |    |		Action	Pop_Auxiliary
0215 4801       |H   |		Short_Literal	0x1
0216 00d9       |    |		Load_Top	At_Offset_1
0217 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0218 00d8       |    |		Load_Top	At_Offset_0
0219 e5fe       |    |		Load	0x2,-0x2
021a 017d       | }  |		Execute	Record,Structure_Write
021b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021c 0000 0000  |    |		.BLANK	0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2
0224 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0225 0227       | '  |		Execute	Access,All_Reference
0226 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0227 00db       |    |		Load_Top	At_Offset_3
0228 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0229 00cf       |    |		Action	Mark_Auxiliary
022a 7819       |x   |		Jump	0x244
022b 00db       |    |		Load_Top	At_Offset_3
022c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
022d e227       | '  |		Load	0x1,0x27
022e 0269       | i  |		Execute	Discrete,Last
022f 027f       |    |		Execute	Discrete,Equal
0230 6804       |h   |		Jump_Zero	0x235
0231 4801       |H   |		Short_Literal	0x1
0232 e5ff       |    |		Load	0x2,-0x1
0233 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0234 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0235 00db       |    |		Load_Top	At_Offset_3
0236 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0237 0a01       |    |		Execute_Immediate	Plus,0x1
0238 e5ff       |    |		Load	0x2,-0x1
0239 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
023a 00db       |    |		Load_Top	At_Offset_3
023b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
023c e5ff       |    |		Load	0x2,-0x1
023d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
023e 0227       | '  |		Execute	Access,All_Reference
023f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0240 01d7       |    |		Execute	Vector,Field_Read
0241 e5ff       |    |		Load	0x2,-0x1
0242 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0243 00c9       |    |		Action	Pop_Auxiliary_Loop
0244 00db       |    |		Load_Top	At_Offset_3
0245 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0246 6fe4       |o   |		Jump_Zero	0x22b
0247 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
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 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
024d 0227       | '  |		Execute	Access,All_Reference
024e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
024f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0250 00d8       |    |		Load_Top	At_Offset_0
0251 0120       |    |		Execute	Any,Is_Value
0252 7002       |p   |		Jump_Nonzero	0x255
0253 00d8       |    |		Load_Top	At_Offset_0
0254 011e       |    |		Execute	Any,Convert
0255 e20f       |    |		Load	0x1,0xf
0256 0119       |    |		Execute	Any,Check_In_Formal_Type
0257 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2
025c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
025d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025e 0000 0000  |    |		.XXX[0x2]
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 0227       | '  |		Execute	Access,All_Reference
0265 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0266 00d8       |    |		Load_Top	At_Offset_0
0267 00e3       |    |		Load_Encached	Natural_Cache
0268 0260       | `  |		Execute	Discrete,In_Type
0269 7001       |p   |		Jump_Nonzero	0x26b
026a 0801       |    |		Execute_Immediate	Raise,0x1
026b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026c 0000 0000  |    |		.BLANK	0000[0x4]
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 e22a       | *  |		Load	0x1,0x2a
0274 00ca       |    |		Action	Exit_Nullary_Function
0275 0000 0000  |    |		.XXX[0x3]
0277 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2
027c 022d       | -  |		Execute	Access,Is_Null
027d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027e 0000 0000  |    |		.XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0284       |    |		.CONST	0x0284								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0002       |    |		.CONST	0x0002								; Number of locals
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2
0284			BODY_0280:
0284 00cf       |    |		Action	Mark_Auxiliary
0285 780e       |x   |		Jump	0x294
0286 00d9       |    |		Load_Top	At_Offset_1
0287 0227       | '  |		Execute	Access,All_Reference
0288 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0289 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
028a e5fe       |    |		Load	0x2,-0x2
028b 012f       | /  |		Execute	Any,Equal
028c 6802       |h   |		Jump_Zero	0x28f
028d 00d9       |    |		Load_Top	At_Offset_1
028e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028f 00d9       |    |		Load_Top	At_Offset_1
0290 0227       | '  |		Execute	Access,All_Reference
0291 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0292 003a       | :  |		Store_Top	Access,At_Offset_2
0293 00c9       |    |		Action	Pop_Auxiliary_Loop
0294 00d9       |    |		Load_Top	At_Offset_1
0295 77f0       |w   |		Jump_Nonzero	0x286
0296 00ce       |    |		Action	Pop_Auxiliary
0297 e225       | %  |		Load	0x1,0x25
0298 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0299 0000 0000  |    |		.BLANK	0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 8211       |    |		Call	0x1,0x11
02a5 e20e       |    |		Load	0x1,0xe
02a6 026e       | n  |		Execute	Discrete,Modulo
02a7 00d8       |    |		Load_Top	At_Offset_0
02a8 e227       | '  |		Load	0x1,0x27
02a9 0260       | `  |		Execute	Discrete,In_Type
02aa 7001       |p   |		Jump_Nonzero	0x2ac
02ab 0801       |    |		Execute_Immediate	Raise,0x1
02ac 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ad 0000 0000  |    |		.XXX[0x3]
02af 0000       |    |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5       |    |		.CONST	0x02b5								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0002       |    |		.CONST	0x0002								; Number of locals
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 0007       |    |		Action	Break_Optional
02b5			BODY_02b0:
02b5 e225       | %  |		Load	0x1,0x25
02b6 a7fe       |    |		Store_Unchecked	0x3,-0x2
02b7 00cf       |    |		Action	Mark_Auxiliary
02b8 7812       |x   |		Jump	0x2cb
02b9 e226       | &  |		Load	0x1,0x26
02ba 0322       | "  |		Declare_Variable	Record
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 0227       | '  |		Execute	Access,All_Reference
02bd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02be 00d9       |    |		Load_Top	At_Offset_1
02bf 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c0 e7fe       |    |		Load	0x3,-0x2
02c1 00d9       |    |		Load_Top	At_Offset_1
02c2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02c3 e225       | %  |		Load	0x1,0x25
02c4 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
02c5 a7fe       |    |		Store_Unchecked	0x3,-0x2
02c6 00d9       |    |		Load_Top	At_Offset_1
02c7 0227       | '  |		Execute	Access,All_Reference
02c8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c9 003a       | :  |		Store_Top	Access,At_Offset_2
02ca 00c9       |    |		Action	Pop_Auxiliary_Loop
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc 77ec       |w   |		Jump_Nonzero	0x2b9
02cd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ce 0000 0000  |    |		.XXX[0x2]
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 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02da 0000 0000  |    |		.BLANK	0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 4601       |F   |		Jump_Case	0x2
02e4 7801       |x   |		Jump	0x2e6								; case 0x0
02e5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02e6 4800       |H   |		Short_Literal	0x0
02e7 00db       |    |		Load_Top	At_Offset_3
02e8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02e9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02ea 0000 0000  |    |		.BLANK	0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 4601       |F   |		Jump_Case	0x2
02f4 7801       |x   |		Jump	0x2f6								; case 0x0
02f5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02f6 00da       |    |		Load_Top	At_Offset_2
02f7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02f8 0125       | %  |		Execute	Any,Set_Constraint
02f9 00da       |    |		Load_Top	At_Offset_2
02fa 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02fb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02fc 00da       |    |		Load_Top	At_Offset_2
02fd 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02fe 0125       | %  |		Execute	Any,Set_Constraint
02ff 00da       |    |		Load_Top	At_Offset_2
0300 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0301 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0302 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug Table
0308 ; --------------------------------------------------------------------------------------
0308 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x97c7,0x0000,0x0001,0x0018
030e 000b 036e  |   n|		.DBG4T	0x000b,0x036e,0xc000,0x8000
0312 006d 03a4  | m  |		.DBG4T	0x006d,0x03a4,0xc000,0x0000
0316 009b 03b8  |    |		.DBG4T	0x009b,0x03b8,0x1002,0x0000
031a 00cb 03be  |    |		.DBG4T	0x00cb,0x03be,0x1001,0x0000
031e 00eb 03c5  |    |		.DBG4T	0x00eb,0x03c5,0x1001,0x0000
0322 010b 03cc  |    |		.DBG4T	0x010b,0x03cc,0x1001,0x0000
0326 014b 03d7  | K  |		.DBG4T	0x014b,0x03d7,0x1001,0x4000
032a 018b 03f0  |    |		.DBG4T	0x018b,0x03f0,0x1001,0x0000
032e 019b 03f3  |    |		.DBG4T	0x019b,0x03f3,0x1002,0x0000
0332 01b3 03fa  |    |		.DBG4T	0x01b3,0x03fa,0x1001,0x0000
0336 01cb 03fe  |    |		.DBG4T	0x01cb,0x03fe,0x1001,0x0000
033a 01f3 0404  |    |		.DBG4T	0x01f3,0x0404,0x1001,0x0000
033e 0223 0411  | #  |		.DBG4T	0x0223,0x0411,0x1001,0x4000
0342 024b 0421  | K !|		.DBG4T	0x024b,0x0421,0x1002,0x0000
0346 025b 0424  | [ $|		.DBG4T	0x025b,0x0424,0x1002,0x0000
034a 0263 0427  | c '|		.DBG4T	0x0263,0x0427,0x1002,0x0000
034e 0273 042a  | s *|		.DBG4T	0x0273,0x042a,0x1002,0x0000
0352 027b 042d  | { -|		.DBG4T	0x027b,0x042d,0x1002,0x0000
0356 0283 0430  |   0|		.DBG4T	0x0283,0x0430,0x1002,0x4000
035a 02a3 043d  |   =|		.DBG4T	0x02a3,0x043d,0x1002,0x0000
035e 02b3 0440  |   @|		.DBG4T	0x02b3,0x0440,0x1001,0x4000
0362 02d3 0000  |    |		.DBG4T	0x02d3,0x0000,0x1005,0x0000
0366 02e3 0000  |    |		.DBG4T	0x02e3,0x0000,0x1005,0x0000
036a 02f3 0000  |    |		.DBG4T	0x02f3,0x0000,0x1005,0x0000
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 001a 0000  |    |		.DBGLEN	0x001a,0x0000
0370 000b 0011  |    |		.DBGLNO	0x000b,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x0034,0x003d,0x003f,0x0041,0x0043,0x0045,0x004f,0x0054,0x005b,0x0061,0x0065
038a 0002 0003  |    |		.XXX[0x1a]
038c 0004 0005  |    |
038e 0006 0007  |    |
0390 0008 0009  |    |
0392 000a 000b  |    |
0394 000d 000e  |    |
0396 000f 0010  |    |
0398 0011 0012  |    |
039a 0013 0014  |    |
039c 0015 0017  |    |
039e 0018 0019  |    |
03a0 001a 001b  |    |
03a2 001c 001d  |    |
03a4 ; --------------------------------------------------------------------------------------
03a4 ; Debug chain
03a4 ; --------------------------------------------------------------------------------------
03a4 0012 0000  |    |		.DBGLEN	0x0012,0x0000
03a6 006d 006f  | m o|		.DBGLNO	0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug chain
03b8 ; --------------------------------------------------------------------------------------
03b8 0001 0003  |    |		.DBGLEN	0x0001,0x0003
03ba 009b 00a7  |    |		.DBGLNO	0x009b,0x00a7,0x00a9,0x00b5
03be ; --------------------------------------------------------------------------------------
03be ; Debug chain
03be ; --------------------------------------------------------------------------------------
03be 0001 0004  |    |		.DBGLEN	0x0001,0x0004
03c0 00cb 00d7  |    |		.DBGLNO	0x00cb,0x00d7,0x00d9,0x00de,0x00e1
03c5 ; --------------------------------------------------------------------------------------
03c5 ; Debug chain
03c5 ; --------------------------------------------------------------------------------------
03c5 0001 0004  |    |		.DBGLEN	0x0001,0x0004
03c7 00eb 00f7  |    |		.DBGLNO	0x00eb,0x00f7,0x00f9,0x00fe,0x0101
03cc ; --------------------------------------------------------------------------------------
03cc ; Debug chain
03cc ; --------------------------------------------------------------------------------------
03cc 0003 0006  |    |		.DBGLEN	0x0003,0x0006
03ce 010b 0114  |    |		.DBGLNO	0x010b,0x0114,0x0119,0x011a,0x011c,0x0132,0x013a,0x013c,0x013e
03d7 ; --------------------------------------------------------------------------------------
03d7 ; Debug chain
03d7 ; --------------------------------------------------------------------------------------
03d7 0003 000a  |    |		.DBGLEN	0x0003,0x000a
03d9 014b 0154  | K T|		.DBGLNO	0x014b,0x0154,0x0156,0x0159,0x0160,0x0162,0x0169,0x016d,0x0174,0x0175,0x0177,0x017c,0x017f
03e6 0002 0003  |    |		.XXX[0xa]
03e8 0004 0005  |    |
03ea 0006 0007  |    |
03ec 0008 0009  |    |
03ee 0001 000a  |    |
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug chain
03f0 ; --------------------------------------------------------------------------------------
03f0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03f2 018b       |    |		.DBGLNO	0x018b
03f3 ; --------------------------------------------------------------------------------------
03f3 ; Debug chain
03f3 ; --------------------------------------------------------------------------------------
03f3 0001 0004  |    |		.DBGLEN	0x0001,0x0004
03f5 019b 019e  |    |		.DBGLNO	0x019b,0x019e,0x01a3,0x01a9,0x01ae
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug chain
03fa ; --------------------------------------------------------------------------------------
03fa 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03fc 01b4 01b9  |    |		.DBGLNO	0x01b4,0x01b9
03fe ; --------------------------------------------------------------------------------------
03fe ; Debug chain
03fe ; --------------------------------------------------------------------------------------
03fe 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0400 01cb 01ce  |    |		.DBGLNO	0x01cb,0x01ce,0x01d3,0x01e7
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug chain
0404 ; --------------------------------------------------------------------------------------
0404 0001 000a  |    |		.DBGLEN	0x0001,0x000a
0406 01f3 01f6  |    |		.DBGLNO	0x01f3,0x01f6,0x01fb,0x0202,0x0205,0x0208,0x020b,0x020e,0x0211,0x0215,0x0218
0411 ; --------------------------------------------------------------------------------------
0411 ; Debug chain
0411 ; --------------------------------------------------------------------------------------
0411 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0413 0223 022b  | # +|		.DBGLNO	0x0223,0x022b,0x0231,0x0234,0x0235,0x023a,0x0244
041a 0001 0003  |    |		.XXX[0x7]
041c 0004 0005  |    |
041e 0006 0007  |    |
0420 0002       |    |
0421 ; --------------------------------------------------------------------------------------
0421 ; Debug chain
0421 ; --------------------------------------------------------------------------------------
0421 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0423 024b       | K  |		.DBGLNO	0x024b
0424 ; --------------------------------------------------------------------------------------
0424 ; Debug chain
0424 ; --------------------------------------------------------------------------------------
0424 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0426 025b       | [  |		.DBGLNO	0x025b
0427 ; --------------------------------------------------------------------------------------
0427 ; Debug chain
0427 ; --------------------------------------------------------------------------------------
0427 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0429 0263       | c  |		.DBGLNO	0x0263
042a ; --------------------------------------------------------------------------------------
042a ; Debug chain
042a ; --------------------------------------------------------------------------------------
042a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
042c 0273       | s  |		.DBGLNO	0x0273
042d ; --------------------------------------------------------------------------------------
042d ; Debug chain
042d ; --------------------------------------------------------------------------------------
042d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
042f 027b       | {  |		.DBGLNO	0x027b
0430 ; --------------------------------------------------------------------------------------
0430 ; Debug chain
0430 ; --------------------------------------------------------------------------------------
0430 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0432 0283 0286  |    |		.DBGLNO	0x0283,0x0286,0x028d,0x028f,0x0294,0x0297
0438 0002 0003  |    |		.XXX[0x5]
043a 0004 0001  |    |
043c 0005       |    |
043d ; --------------------------------------------------------------------------------------
043d ; Debug chain
043d ; --------------------------------------------------------------------------------------
043d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
043f 02a3       |    |		.DBGLNO	0x02a3
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug chain
0440 ; --------------------------------------------------------------------------------------
0440 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0442 02b3 02b5  |    |		.DBGLNO	0x02b3,0x02b5,0x02b9,0x02c6,0x02cb
0447 0001 0003  |    |		.XXX[0x4]
0449 0004 0002  |    |
044b 0000 0000  |    |		.BLANK	0000[0x1b5]