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

⟦0fad84d2d⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0340       | @  |		.CONST	0x0340								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0091       |    |		.CONST	0x0091								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0029       | )  |		.CONST	0x0029								; Number of locals
000b			INIT_0008:
000b 4802       |H   |		Short_Literal	0x2
000c 0092 0318  |    |		Action	Push_String_Extended,0x318					; "Lock Error"
000e e002       |    |		Load	0x0,0x2
000f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0010 e002       |    |		Load	0x0,0x2
0011 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0012 011e       |    |		Execute	Any,Convert
0013 0129       | )  |		Execute	Any,Make_Visible
0014 4802       |H   |		Short_Literal	0x2
0015 0092 0319  |    |		Action	Push_String_Extended,0x319					; "Name Error"
0017 e002       |    |		Load	0x0,0x2
0018 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0019 e002       |    |		Load	0x0,0x2
001a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001b 011e       |    |		Execute	Any,Convert
001c 0129       | )  |		Execute	Any,Make_Visible
001d 4802       |H   |		Short_Literal	0x2
001e 0092 031a  |    |		Action	Push_String_Extended,0x31a					; "Mode Error"
0020 e002       |    |		Load	0x0,0x2
0021 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0022 e002       |    |		Load	0x0,0x2
0023 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0024 011e       |    |		Execute	Any,Convert
0025 0129       | )  |		Execute	Any,Make_Visible
0026 4802       |H   |		Short_Literal	0x2
0027 0092 031b  |    |		Action	Push_String_Extended,0x31b					; "Status Error"
0029 e002       |    |		Load	0x0,0x2
002a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
002b e002       |    |		Load	0x0,0x2
002c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002d 011e       |    |		Execute	Any,Convert
002e 0129       | )  |		Execute	Any,Make_Visible
002f 4801       |H   |		Short_Literal	0x1
0030 0092 031c  |    |		Action	Push_String_Extended,0x31c					; "End Of List"
0032 e002       |    |		Load	0x0,0x2
0033 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0034 e002       |    |		Load	0x0,0x2
0035 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0036 011e       |    |		Execute	Any,Convert
0037 0129       | )  |		Execute	Any,Make_Visible
0038 4800       |H   |		Short_Literal	0x0
0039 00ea       |    |		Load_Encached	Null_String_Cache
003a e002       |    |		Load	0x0,0x2
003b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
003c e002       |    |		Load	0x0,0x2
003d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003e 011e       |    |		Execute	Any,Convert
003f 0129       | )  |		Execute	Any,Make_Visible
0040 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0042 4800       |H   |		Short_Literal	0x0
0043 4801       |H   |		Short_Literal	0x1
0044 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
0046 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0047 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0049 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
004b 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
004d 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
004f 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0051 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0053 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0055 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0057 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0059 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
005b 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
005d 4803       |H   |		Short_Literal	0x3
005e 032b       | +  |		Declare_Type	Record,Incomplete,Visible
005f 00d8       |    |		Load_Top	At_Offset_0
0060 02a0       |    |		Declare_Subprogram	Null_Subprogram
0061 4818       |H   |		Short_Literal	0x18
0062 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0063 00bf       |    |		Action	Accept_Activation
0064 4be8       |K   |		Short_Literal	0x3e8
0065 e003       |    |		Load	0x0,0x3
0066 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0067 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0068 e002       |    |		Load	0x0,0x2
0069 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
006a 00d9       |    |		Load_Top	At_Offset_1
006b e004       |    |		Load	0x0,0x4
006c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006d 029f 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call
006f e224       | $  |		Load	0x1,0x24
0070 0326       | &  |		Complete_Type	Record,By_Defining
0071 00d9       |    |		Load_Top	At_Offset_1
0072 03c4       |    |		Complete_Type	Access,By_Component_Completion
0073 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
0075 029d 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call
0077 029d 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call
0079 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
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 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00da       |    |		Load_Top	At_Offset_2
009c 0227       | '  |		Execute	Access,All_Reference
009d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
009e c5fe       |    |		Store	0x2,-0x2
009f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4607       |F   |		Jump_Case	0x8
00a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00a5 7807       |x   |		Jump	0xad								; case 0x1
00a6 780a       |x   |		Jump	0xb1								; case 0x2
00a7 780e       |x   |		Jump	0xb6								; case 0x3
00a8 7811       |x   |		Jump	0xba								; case 0x4
00a9 7812       |x   |		Jump	0xbc								; case 0x5
00aa 7813       |x   |		Jump	0xbe								; case 0x6
00ab 7816       |x   |		Jump	0xc2								; case 0x7
00ac 4302       |C   |		.XXX[0x1]
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 0091 0316  |    |		Action	Push_String_Extended_Indexed,0x316				; "READ"
00b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b1 00db       |    |		Load_Top	At_Offset_3
00b2 00db       |    |		Load_Top	At_Offset_3
00b3 00e0       |    |		Load_Encached	Standard_Cache
00b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 00e0       |    |		Load_Encached	Standard_Cache
00b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00ba 00db       |    |		Load_Top	At_Offset_3
00bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00bc 00db       |    |		Load_Top	At_Offset_3
00bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00be e218       |    |		Load	0x1,0x18
00bf 00dc       |    |		Load_Top	At_Offset_4
00c0 0267       | g  |		Execute	Discrete,Predecessor
00c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c2 e218       |    |		Load	0x1,0x18
00c3 00dc       |    |		Load_Top	At_Offset_4
00c4 0268       | h  |		Execute	Discrete,Successor
00c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c6 0000 0000  |    |		.XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 00f2       |    |		.CONST	0x00f2								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e5fd       |    |		Load	0x2,-0x3
00cc 7006       |p   |		Jump_Nonzero	0xd3
00cd e225       | %  |		Load	0x1,0x25
00ce 03bc       |    |		Declare_Variable	Access,By_Allocation
00cf 00d8       |    |		Load_Top	At_Offset_0
00d0 0227       | '  |		Execute	Access,All_Reference
00d1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d2 a5fd       |    |		Store_Unchecked	0x2,-0x3
00d3 e5fd       |    |		Load	0x2,-0x3
00d4 0229       | )  |		Execute	Access,All_Read
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00d7 00ea       |    |		Load_Encached	Null_String_Cache
00d8 e5fe       |    |		Load	0x2,-0x2
00d9 e5ff       |    |		Load	0x2,-0x1
00da 8227       | '  |		Call	0x1,0x27
00db e004       |    |		Load	0x0,0x4
00dc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00dd 00d9       |    |		Load_Top	At_Offset_1
00de 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00df 00d1       |    |		Pop_Control	Pop_Count_1
00e0 e5fd       |    |		Load	0x2,-0x3
00e1 0229       | )  |		Execute	Access,All_Read
00e2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00e3 00d8       |    |		Load_Top	At_Offset_0
00e4 e5fd       |    |		Load	0x2,-0x3
00e5 0227       | '  |		Execute	Access,All_Reference
00e6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00e7 e004       |    |		Load	0x0,0x4
00e8 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
00e9 e005       |    |		Load	0x0,0x5
00ea 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00eb e005       |    |		Load	0x0,0x5
00ec 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00ed 00d2       |    |		Pop_Control	Pop_Count_2
00ee e5fd       |    |		Load	0x2,-0x3
00ef 8228       | (  |		Call	0x1,0x28
00f0 c5fd       |    |		Store	0x2,-0x3
00f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f2			TRAP_00c8:
00f2 00d8       |    |		Load_Top	At_Offset_0
00f3 0107       |    |		Execute	Exception,Get_Name
00f4 4950       |IP  |		Short_Literal	0x150
00f5 495f       |I_  |		Short_Literal	0x15f
00f6 0262       | b  |		Execute	Discrete,In_Range
00f7 6805       |h   |		Jump_Zero	0xfd
00f8 e5fd       |    |		Load	0x2,-0x3
00f9 e215       |    |		Load	0x1,0x15
00fa 8229       | )  |		Call	0x1,0x29
00fb c5fd       |    |		Store	0x2,-0x3
00fc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00fd 00d8       |    |		Load_Top	At_Offset_0
00fe 0107       |    |		Execute	Exception,Get_Name
00ff 4920       |I   |		Short_Literal	0x120
0100 492f       |I/  |		Short_Literal	0x12f
0101 0262       | b  |		Execute	Discrete,In_Range
0102 6805       |h   |		Jump_Zero	0x108
0103 e5fd       |    |		Load	0x2,-0x3
0104 e212       |    |		Load	0x1,0x12
0105 8229       | )  |		Call	0x1,0x29
0106 c5fd       |    |		Store	0x2,-0x3
0107 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0108 00d8       |    |		Load_Top	At_Offset_0
0109 0107       |    |		Execute	Exception,Get_Name
010a 4930       |I0  |		Short_Literal	0x130
010b 493f       |I?  |		Short_Literal	0x13f
010c 0262       | b  |		Execute	Discrete,In_Range
010d 6805       |h   |		Jump_Zero	0x113
010e e5fd       |    |		Load	0x2,-0x3
010f e211       |    |		Load	0x1,0x11
0110 8229       | )  |		Call	0x1,0x29
0111 c5fd       |    |		Store	0x2,-0x3
0112 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0113 00d8       |    |		Load_Top	At_Offset_0
0114 0107       |    |		Execute	Exception,Get_Name
0115 4900       |I   |		Short_Literal	0x100
0116 490f       |I   |		Short_Literal	0x10f
0117 0262       | b  |		Execute	Discrete,In_Range
0118 6805       |h   |		Jump_Zero	0x11e
0119 e5fd       |    |		Load	0x2,-0x3
011a e214       |    |		Load	0x1,0x14
011b 8229       | )  |		Call	0x1,0x29
011c c5fd       |    |		Store	0x2,-0x3
011d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
011e 0100       |    |		Execute	Exception,Raise
011f 0000       |    |		.XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 013b       | ;  |		.CONST	0x013b								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00db       |    |		Load_Top	At_Offset_3
0124 7006       |p   |		Jump_Nonzero	0x12b
0125 e225       | %  |		Load	0x1,0x25
0126 03bc       |    |		Declare_Variable	Access,By_Allocation
0127 00d8       |    |		Load_Top	At_Offset_0
0128 0227       | '  |		Execute	Access,All_Reference
0129 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012a a5fe       |    |		Store_Unchecked	0x2,-0x2
012b 00db       |    |		Load_Top	At_Offset_3
012c 0229       | )  |		Execute	Access,All_Read
012d 00d8       |    |		Load_Top	At_Offset_0
012e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
012f 00ea       |    |		Load_Encached	Null_String_Cache
0130 e5ff       |    |		Load	0x2,-0x1
0131 4801       |H   |		Short_Literal	0x1
0132 e004       |    |		Load	0x0,0x4
0133 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0134 00d9       |    |		Load_Top	At_Offset_1
0135 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0136 00d1       |    |		Pop_Control	Pop_Count_1
0137 00db       |    |		Load_Top	At_Offset_3
0138 8228       | (  |		Call	0x1,0x28
0139 c5fe       |    |		Store	0x2,-0x2
013a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
013b			TRAP_0120:
013b 00d8       |    |		Load_Top	At_Offset_0
013c 0107       |    |		Execute	Exception,Get_Name
013d 4920       |I   |		Short_Literal	0x120
013e 492f       |I/  |		Short_Literal	0x12f
013f 0262       | b  |		Execute	Discrete,In_Range
0140 6805       |h   |		Jump_Zero	0x146
0141 e5fe       |    |		Load	0x2,-0x2
0142 e212       |    |		Load	0x1,0x12
0143 8229       | )  |		Call	0x1,0x29
0144 c5fe       |    |		Store	0x2,-0x2
0145 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0146 00d8       |    |		Load_Top	At_Offset_0
0147 0107       |    |		Execute	Exception,Get_Name
0148 4930       |I0  |		Short_Literal	0x130
0149 493f       |I?  |		Short_Literal	0x13f
014a 0262       | b  |		Execute	Discrete,In_Range
014b 6805       |h   |		Jump_Zero	0x151
014c e5fe       |    |		Load	0x2,-0x2
014d e211       |    |		Load	0x1,0x11
014e 8229       | )  |		Call	0x1,0x29
014f c5fe       |    |		Store	0x2,-0x2
0150 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0151 00d8       |    |		Load_Top	At_Offset_0
0152 0107       |    |		Execute	Exception,Get_Name
0153 4900       |I   |		Short_Literal	0x100
0154 490f       |I   |		Short_Literal	0x10f
0155 0262       | b  |		Execute	Discrete,In_Range
0156 6805       |h   |		Jump_Zero	0x15c
0157 e5fe       |    |		Load	0x2,-0x2
0158 e214       |    |		Load	0x1,0x14
0159 8229       | )  |		Call	0x1,0x29
015a c5fe       |    |		Store	0x2,-0x2
015b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015c 0100       |    |		Execute	Exception,Raise
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0169       | i  |		.CONST	0x0169								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 0227       | '  |		Execute	Access,All_Reference
0165 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0166 e004       |    |		Load	0x0,0x4
0167 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0168 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0169			TRAP_0160:
0169 010e       |    |		Execute	Exception,Is_Constraint_Error
016a 7006       |p   |		Jump_Nonzero	0x171
016b 00d8       |    |		Load_Top	At_Offset_0
016c 0107       |    |		Execute	Exception,Get_Name
016d 4900       |I   |		Short_Literal	0x100
016e 490f       |I   |		Short_Literal	0x10f
016f 0262       | b  |		Execute	Discrete,In_Range
0170 6802       |h   |		Jump_Zero	0x173
0171 00ea       |    |		Load_Encached	Null_String_Cache
0172 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0173 0100       |    |		Execute	Exception,Raise
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 018f       |    |		.CONST	0x018f								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 4802       |H   |		Short_Literal	0x2
017c 00db       |    |		Load_Top	At_Offset_3
017d 0227       | '  |		Execute	Access,All_Reference
017e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017f e002       |    |		Load	0x0,0x2
0180 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0181 700c       |p   |		Jump_Nonzero	0x18e
0182 00da       |    |		Load_Top	At_Offset_2
0183 0229       | )  |		Execute	Access,All_Read
0184 00d8       |    |		Load_Top	At_Offset_0
0185 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0186 e004       |    |		Load	0x0,0x4
0187 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0188 00d9       |    |		Load_Top	At_Offset_1
0189 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
018a 00d1       |    |		Pop_Control	Pop_Count_1
018b 00da       |    |		Load_Top	At_Offset_2
018c 8228       | (  |		Call	0x1,0x28
018d 003b       | ;  |		Store_Top	Access,At_Offset_3
018e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018f			TRAP_0178:
018f 00d8       |    |		Load_Top	At_Offset_0
0190 0107       |    |		Execute	Exception,Get_Name
0191 4930       |I0  |		Short_Literal	0x130
0192 493f       |I?  |		Short_Literal	0x13f
0193 0262       | b  |		Execute	Discrete,In_Range
0194 6805       |h   |		Jump_Zero	0x19a
0195 00db       |    |		Load_Top	At_Offset_3
0196 e211       |    |		Load	0x1,0x11
0197 8229       | )  |		Call	0x1,0x29
0198 c5ff       |    |		Store	0x2,-0x1
0199 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
019a 010e       |    |		Execute	Exception,Is_Constraint_Error
019b 7006       |p   |		Jump_Nonzero	0x1a2
019c 00d8       |    |		Load_Top	At_Offset_0
019d 0107       |    |		Execute	Exception,Get_Name
019e 4900       |I   |		Short_Literal	0x100
019f 490f       |I   |		Short_Literal	0x10f
01a0 0262       | b  |		Execute	Discrete,In_Range
01a1 6805       |h   |		Jump_Zero	0x1a7
01a2 00db       |    |		Load_Top	At_Offset_3
01a3 e214       |    |		Load	0x1,0x14
01a4 8229       | )  |		Call	0x1,0x29
01a5 c5ff       |    |		Store	0x2,-0x1
01a6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a7 0100       |    |		Execute	Exception,Raise
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 01c1       |    |		.CONST	0x01c1								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 4802       |H   |		Short_Literal	0x2
01ac e5fe       |    |		Load	0x2,-0x2
01ad 0227       | '  |		Execute	Access,All_Reference
01ae 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01af e002       |    |		Load	0x0,0x2
01b0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01b1 700e       |p   |		Jump_Nonzero	0x1c0
01b2 00db       |    |		Load_Top	At_Offset_3
01b3 0229       | )  |		Execute	Access,All_Read
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b6 e5ff       |    |		Load	0x2,-0x1
01b7 8227       | '  |		Call	0x1,0x27
01b8 e004       |    |		Load	0x0,0x4
01b9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01bc 00d1       |    |		Pop_Control	Pop_Count_1
01bd 00db       |    |		Load_Top	At_Offset_3
01be 8228       | (  |		Call	0x1,0x28
01bf c5fe       |    |		Store	0x2,-0x2
01c0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c1			TRAP_01a8:
01c1 00d8       |    |		Load_Top	At_Offset_0
01c2 0107       |    |		Execute	Exception,Get_Name
01c3 4930       |I0  |		Short_Literal	0x130
01c4 493f       |I?  |		Short_Literal	0x13f
01c5 0262       | b  |		Execute	Discrete,In_Range
01c6 6805       |h   |		Jump_Zero	0x1cc
01c7 e5fe       |    |		Load	0x2,-0x2
01c8 e211       |    |		Load	0x1,0x11
01c9 8229       | )  |		Call	0x1,0x29
01ca c5fe       |    |		Store	0x2,-0x2
01cb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01cc 010e       |    |		Execute	Exception,Is_Constraint_Error
01cd 7006       |p   |		Jump_Nonzero	0x1d4
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf 0107       |    |		Execute	Exception,Get_Name
01d0 4900       |I   |		Short_Literal	0x100
01d1 490f       |I   |		Short_Literal	0x10f
01d2 0262       | b  |		Execute	Discrete,In_Range
01d3 6805       |h   |		Jump_Zero	0x1d9
01d4 e5fe       |    |		Load	0x2,-0x2
01d5 e214       |    |		Load	0x1,0x14
01d6 8229       | )  |		Call	0x1,0x29
01d7 c5fe       |    |		Store	0x2,-0x2
01d8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d9 0100       |    |		Execute	Exception,Raise
01da 0000 0000  |    |		.BLANK	0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 01e9       |    |		.CONST	0x01e9								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 0227       | '  |		Execute	Access,All_Reference
01e5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01e6 e004       |    |		Load	0x0,0x4
01e7 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e9			TRAP_01e0:
01e9 0007       |    |		Action	Break_Optional
01ea 4801       |H   |		Short_Literal	0x1
01eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ec 0000 0000  |    |		.BLANK	0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0214       |    |		.CONST	0x0214								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 4801       |H   |		Short_Literal	0x1
01f4 00db       |    |		Load_Top	At_Offset_3
01f5 0227       | '  |		Execute	Access,All_Reference
01f6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01f7 e002       |    |		Load	0x0,0x2
01f8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01f9 7019       |p   |		Jump_Nonzero	0x213
01fa 00da       |    |		Load_Top	At_Offset_2
01fb 821e       |    |		Call	0x1,0x1e
01fc 7012       |p   |		Jump_Nonzero	0x20f
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 0229       | )  |		Execute	Access,All_Read
01ff 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0200 00d8       |    |		Load_Top	At_Offset_0
0201 e5ff       |    |		Load	0x2,-0x1
0202 0227       | '  |		Execute	Access,All_Reference
0203 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0204 e004       |    |		Load	0x0,0x4
0205 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0206 e005       |    |		Load	0x0,0x5
0207 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0208 e005       |    |		Load	0x0,0x5
0209 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
020a 00d2       |    |		Pop_Control	Pop_Count_2
020b 00da       |    |		Load_Top	At_Offset_2
020c 8228       | (  |		Call	0x1,0x28
020d 003b       | ;  |		Store_Top	Access,At_Offset_3
020e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
020f 00da       |    |		Load_Top	At_Offset_2
0210 e215       |    |		Load	0x1,0x15
0211 8229       | )  |		Call	0x1,0x29
0212 003b       | ;  |		Store_Top	Access,At_Offset_3
0213 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0214			TRAP_01f0:
0214 00d8       |    |		Load_Top	At_Offset_0
0215 0107       |    |		Execute	Exception,Get_Name
0216 4950       |IP  |		Short_Literal	0x150
0217 495f       |I_  |		Short_Literal	0x15f
0218 0262       | b  |		Execute	Discrete,In_Range
0219 6805       |h   |		Jump_Zero	0x21f
021a 00db       |    |		Load_Top	At_Offset_3
021b e215       |    |		Load	0x1,0x15
021c 8229       | )  |		Call	0x1,0x29
021d c5ff       |    |		Store	0x2,-0x1
021e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021f 010e       |    |		Execute	Exception,Is_Constraint_Error
0220 7006       |p   |		Jump_Nonzero	0x227
0221 00d8       |    |		Load_Top	At_Offset_0
0222 0107       |    |		Execute	Exception,Get_Name
0223 4900       |I   |		Short_Literal	0x100
0224 490f       |I   |		Short_Literal	0x10f
0225 0262       | b  |		Execute	Discrete,In_Range
0226 6805       |h   |		Jump_Zero	0x22c
0227 00db       |    |		Load_Top	At_Offset_3
0228 e214       |    |		Load	0x1,0x14
0229 8229       | )  |		Call	0x1,0x29
022a c5ff       |    |		Store	0x2,-0x1
022b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
022c 0100       |    |		Execute	Exception,Raise
022d 0000 0000  |    |		.XXX[0x3]
022f 0000       |    |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0245       | E  |		.CONST	0x0245								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 4802       |H   |		Short_Literal	0x2
0234 e5fe       |    |		Load	0x2,-0x2
0235 0227       | '  |		Execute	Access,All_Reference
0236 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0237 e002       |    |		Load	0x0,0x2
0238 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0239 700a       |p   |		Jump_Nonzero	0x244
023a 00da       |    |		Load_Top	At_Offset_2
023b 820f       |    |		Call	0x1,0xf
023c e5fe       |    |		Load	0x2,-0x2
023d 0227       | '  |		Execute	Access,All_Reference
023e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
023f e004       |    |		Load	0x0,0x4
0240 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0241 00db       |    |		Load_Top	At_Offset_3
0242 8228       | (  |		Call	0x1,0x28
0243 c5fe       |    |		Store	0x2,-0x2
0244 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0245			TRAP_0230:
0245 00d8       |    |		Load_Top	At_Offset_0
0246 0107       |    |		Execute	Exception,Get_Name
0247 4910       |I   |		Short_Literal	0x110
0248 491f       |I   |		Short_Literal	0x11f
0249 0262       | b  |		Execute	Discrete,In_Range
024a 6805       |h   |		Jump_Zero	0x250
024b e5fe       |    |		Load	0x2,-0x2
024c e213       |    |		Load	0x1,0x13
024d 8229       | )  |		Call	0x1,0x29
024e c5fe       |    |		Store	0x2,-0x2
024f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0250 010e       |    |		Execute	Exception,Is_Constraint_Error
0251 7006       |p   |		Jump_Nonzero	0x258
0252 00d8       |    |		Load_Top	At_Offset_0
0253 0107       |    |		Execute	Exception,Get_Name
0254 4900       |I   |		Short_Literal	0x100
0255 490f       |I   |		Short_Literal	0x10f
0256 0262       | b  |		Execute	Discrete,In_Range
0257 6805       |h   |		Jump_Zero	0x25d
0258 e5fe       |    |		Load	0x2,-0x2
0259 e214       |    |		Load	0x1,0x14
025a 8229       | )  |		Call	0x1,0x29
025b c5fe       |    |		Store	0x2,-0x2
025c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
025d 0100       |    |		Execute	Exception,Raise
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 4801       |H   |		Short_Literal	0x1
0264 00db       |    |		Load_Top	At_Offset_3
0265 0227       | '  |		Execute	Access,All_Reference
0266 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0267 e002       |    |		Load	0x0,0x2
0268 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0269 7003       |p   |		Jump_Nonzero	0x26d
026a 00da       |    |		Load_Top	At_Offset_2
026b 8228       | (  |		Call	0x1,0x28
026c 003b       | ;  |		Store_Top	Access,At_Offset_3
026d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
026e 0000 0000  |    |		.XXX[0x2]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0287       |    |		.CONST	0x0287								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 4802       |H   |		Short_Literal	0x2
0274 00db       |    |		Load_Top	At_Offset_3
0275 0227       | '  |		Execute	Access,All_Reference
0276 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0277 e002       |    |		Load	0x0,0x2
0278 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0279 700c       |p   |		Jump_Nonzero	0x286
027a 00da       |    |		Load_Top	At_Offset_2
027b 0229       | )  |		Execute	Access,All_Read
027c 00d8       |    |		Load_Top	At_Offset_0
027d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
027e e004       |    |		Load	0x0,0x4
027f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0280 00d9       |    |		Load_Top	At_Offset_1
0281 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0282 00d1       |    |		Pop_Control	Pop_Count_1
0283 00da       |    |		Load_Top	At_Offset_2
0284 8228       | (  |		Call	0x1,0x28
0285 003b       | ;  |		Store_Top	Access,At_Offset_3
0286 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0287			TRAP_0270:
0287 010e       |    |		Execute	Exception,Is_Constraint_Error
0288 7006       |p   |		Jump_Nonzero	0x28f
0289 00d8       |    |		Load_Top	At_Offset_0
028a 0107       |    |		Execute	Exception,Get_Name
028b 4900       |I   |		Short_Literal	0x100
028c 490f       |I   |		Short_Literal	0x10f
028d 0262       | b  |		Execute	Discrete,In_Range
028e 6805       |h   |		Jump_Zero	0x294
028f 00db       |    |		Load_Top	At_Offset_3
0290 e214       |    |		Load	0x1,0x14
0291 8229       | )  |		Call	0x1,0x29
0292 c5ff       |    |		Store	0x2,-0x1
0293 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0294 0100       |    |		Execute	Exception,Raise
0295 0000 0000  |    |		.XXX[0x3]
0297 0000       |    |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a1       |    |		.CONST	0x02a1								; Address of begin
0299 02b6       |    |		.CONST	0x02b6								; Address of exception handler
029a 0003       |    |		.CONST	0x0003								; Number of locals
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 0007       |    |		Action	Break_Optional
029d e20e       |    |		Load	0x1,0xe
029e 02c7       |    |		Declare_Variable	Any
029f 00d8       |    |		Load_Top	At_Offset_0
02a0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a1			BODY_0298:
02a1 4801       |H   |		Short_Literal	0x1
02a2 00da       |    |		Load_Top	At_Offset_2
02a3 0227       | '  |		Execute	Access,All_Reference
02a4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a5 e002       |    |		Load	0x0,0x2
02a6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02a7 700a       |p   |		Jump_Nonzero	0x2b2
02a8 00d9       |    |		Load_Top	At_Offset_1
02a9 0227       | '  |		Execute	Access,All_Reference
02aa 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02ab e005       |    |		Load	0x0,0x5
02ac 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02ad 8210       |    |		Call	0x1,0x10
02ae c403       |    |		Store	0x2,0x3
02af 00d9       |    |		Load_Top	At_Offset_1
02b0 8228       | (  |		Call	0x1,0x28
02b1 003a       | :  |		Store_Top	Access,At_Offset_2
02b2 00d8       |    |		Load_Top	At_Offset_0
02b3 e20e       |    |		Load	0x1,0xe
02b4 0119       |    |		Execute	Any,Check_In_Formal_Type
02b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b6			TRAP_0298:
02b6 010e       |    |		Execute	Exception,Is_Constraint_Error
02b7 7006       |p   |		Jump_Nonzero	0x2be
02b8 00d8       |    |		Load_Top	At_Offset_0
02b9 0107       |    |		Execute	Exception,Get_Name
02ba 4900       |I   |		Short_Literal	0x100
02bb 490f       |I   |		Short_Literal	0x10f
02bc 0262       | b  |		Execute	Discrete,In_Range
02bd 6805       |h   |		Jump_Zero	0x2c3
02be 00da       |    |		Load_Top	At_Offset_2
02bf e214       |    |		Load	0x1,0x14
02c0 8229       | )  |		Call	0x1,0x29
02c1 003b       | ;  |		Store_Top	Access,At_Offset_3
02c2 0831       | 1  |		Execute_Immediate	Raise,0x31
02c3 0100       |    |		Execute	Exception,Raise
02c4 0000 0000  |    |		.BLANK	0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 4601       |F   |		Jump_Case	0x2
02cc 7801       |x   |		Jump	0x2ce								; case 0x0
02cd 7813       |x   |		Jump	0x2e1								; case 0x1
02ce 00da       |    |		Load_Top	At_Offset_2
02cf 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02d0 0125       | %  |		Execute	Any,Set_Constraint
02d1 00da       |    |		Load_Top	At_Offset_2
02d2 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02d3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d4 00da       |    |		Load_Top	At_Offset_2
02d5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02d6 0125       | %  |		Execute	Any,Set_Constraint
02d7 00da       |    |		Load_Top	At_Offset_2
02d8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02d9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02da 00da       |    |		Load_Top	At_Offset_2
02db 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
02dc 0125       | %  |		Execute	Any,Set_Constraint
02dd 00da       |    |		Load_Top	At_Offset_2
02de 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
02df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02e3 0125       | %  |		Execute	Any,Set_Constraint
02e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02e5 0000 0000  |    |		.XXX[0x3]
02e7 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2
02ec 6802       |h   |		Jump_Zero	0x2ef
02ed 4801       |H   |		Short_Literal	0x1
02ee 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ef 4800       |H   |		Short_Literal	0x0
02f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f1 0000 0000  |    |		.BLANK	0000[0x7]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 0229       | )  |		Execute	Access,All_Read
02fd 00d8       |    |		Load_Top	At_Offset_0
02fe 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ff 00ea       |    |		Load_Encached	Null_String_Cache
0300 e216       |    |		Load	0x1,0x16
0301 e002       |    |		Load	0x0,0x2
0302 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0303 00d9       |    |		Load_Top	At_Offset_1
0304 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0305 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0306 0000 0000  |    |		.XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 00db       |    |		Load_Top	At_Offset_3
030c 0229       | )  |		Execute	Access,All_Read
030d 00d8       |    |		Load_Top	At_Offset_0
030e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
030f 00ea       |    |		Load_Encached	Null_String_Cache
0310 e5ff       |    |		Load	0x2,-0x1
0311 e002       |    |		Load	0x0,0x2
0312 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0313 00d9       |    |		Load_Top	At_Offset_1
0314 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0315 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0316 ; --------------------------------------------------------------------------------------
0316 ; STRING TABLE
0316 ; --------------------------------------------------------------------------------------
0316 0010       |    |		.STRTAB	0x0010->0x031e							; "READ"
0317 0012       |    |		.STRTAB	0x0012->0x0320							; "WRITE"
0318 0015       |    |		.STRTAB	0x0015->0x0322							; "Lock Error"
0319 001d       |    |		.STRTAB	0x001d->0x0327							; "Name Error"
031a 0025       | %  |		.STRTAB	0x0025->0x032c							; "Mode Error"
031b 002d       | -  |		.STRTAB	0x002d->0x0331							; "Status Error"
031c 0037       | 7  |		.STRTAB	0x0037->0x0337							; "End Of List"
031d 0040       | @  |		.STREND 0x0040->0x033d
031e 5245 4144  |READ|		.STRTAB_STRINGS
033d 0000 0000  |    |		.XXX[0x3]
033f 0000       |    |
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug Table
0340 ; --------------------------------------------------------------------------------------
0340 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x5ddc,0x0000,0x0001,0x0000
0346 0000 0000  |    |		.BLANK	0000[0xba]