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

⟦cf5580a4b⟧

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

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 0350       | P  |		.CONST	0x0350								; 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 003c       | <  |		.CONST	0x003c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0018       |    |		.CONST	0x0018								; Number of locals
000b			INIT_0008:
000b 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
000f 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
0011 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
0013 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0015 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0017 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0019 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
001b 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
001d 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
001f 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0021 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0023 00bf       |    |		Action	Accept_Activation
0024 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
003b 00c7       |    |		Action	Elaborate_Subprogram
003c			BODY_0008:
003c 00bc       |    |		Action	Signal_Activated
003d 00bb       |    |		Action	Signal_Completion
003e 0000 0000  |    |		.XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0045       | E  |		.CONST	0x0045								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0002       |    |		.CONST	0x0002								; Number of locals
0043			INIT_0040:
0043 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0045			BODY_0040:
0045 00db       |    |		Load_Top	At_Offset_3
0046 8002       |    |		Call	0x0,0x2
0047 8402       |    |		Call	0x2,0x2
0048 00db       |    |		Load_Top	At_Offset_3
0049 8003       |    |		Call	0x0,0x3
004a 00db       |    |		Load_Top	At_Offset_3
004b 8004       |    |		Call	0x0,0x4
004c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
004d 0000 0000  |    |		.XXX[0x3]
004f 0000       |    |
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0055       | U  |		.CONST	0x0055								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0002       |    |		.CONST	0x0002								; Number of locals
0053			INIT_0050:
0053 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
0055			BODY_0050:
0055 00db       |    |		Load_Top	At_Offset_3
0056 8002       |    |		Call	0x0,0x2
0057 8402       |    |		Call	0x2,0x2
0058 00db       |    |		Load_Top	At_Offset_3
0059 8003       |    |		Call	0x0,0x3
005a 00db       |    |		Load_Top	At_Offset_3
005b 8004       |    |		Call	0x0,0x4
005c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
005d 0000 0000  |    |		.XXX[0x3]
005f 0000       |    |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0065       | e  |		.CONST	0x0065								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0002       |    |		.CONST	0x0002								; Number of locals
0063			INIT_0060:
0063 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
0065			BODY_0060:
0065 00db       |    |		Load_Top	At_Offset_3
0066 8002       |    |		Call	0x0,0x2
0067 8402       |    |		Call	0x2,0x2
0068 00db       |    |		Load_Top	At_Offset_3
0069 8003       |    |		Call	0x0,0x3
006a 00db       |    |		Load_Top	At_Offset_3
006b 8004       |    |		Call	0x0,0x4
006c 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
006d 0000 0000  |    |		.XXX[0x3]
006f 0000       |    |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007a       | z  |		.CONST	0x007a								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0004       |    |		.CONST	0x0004								; Number of locals
0073			INIT_0070:
0073 e005       |    |		Load	0x0,0x5
0074 02ff       |    |		Declare_Variable	Variant_Record
0075 00d8       |    |		Load_Top	At_Offset_0
0076 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0077 e006       |    |		Load	0x0,0x6
0078 029f 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Call
007a			BODY_0070:
007a e5ff       |    |		Load	0x2,-0x1
007b 8002       |    |		Call	0x0,0x2
007c 8404       |    |		Call	0x2,0x4
007d e5ff       |    |		Load	0x2,-0x1
007e 8003       |    |		Call	0x0,0x3
007f e5ff       |    |		Load	0x2,-0x1
0080 8004       |    |		Call	0x0,0x4
0081 4800       |H   |		Short_Literal	0x0
0082 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0083 0000 0000  |    |		.BLANK	0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008d       |    |		.CONST	0x008d								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0002       |    |		.CONST	0x0002								; Number of locals
008b			INIT_0088:
008b 029f 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Call
008d			BODY_0088:
008d 00db       |    |		Load_Top	At_Offset_3
008e 8002       |    |		Call	0x0,0x2
008f 8402       |    |		Call	0x2,0x2
0090 00db       |    |		Load_Top	At_Offset_3
0091 8003       |    |		Call	0x0,0x3
0092 00db       |    |		Load_Top	At_Offset_3
0093 8004       |    |		Call	0x0,0x4
0094 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0095 0000 0000  |    |		.XXX[0x3]
0097 0000       |    |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a2       |    |		.CONST	0x00a2								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0004       |    |		.CONST	0x0004								; Number of locals
009b			INIT_0098:
009b e005       |    |		Load	0x0,0x5
009c 02ff       |    |		Declare_Variable	Variant_Record
009d 00d8       |    |		Load_Top	At_Offset_0
009e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009f e006       |    |		Load	0x0,0x6
00a0 029f 022b  |   +|		Declare_Subprogram	INIT_0228,For_Call
00a2			BODY_0098:
00a2 e5ff       |    |		Load	0x2,-0x1
00a3 8002       |    |		Call	0x0,0x2
00a4 8404       |    |		Call	0x2,0x4
00a5 e5ff       |    |		Load	0x2,-0x1
00a6 8003       |    |		Call	0x0,0x3
00a7 e5ff       |    |		Load	0x2,-0x1
00a8 8004       |    |		Call	0x0,0x4
00a9 4800       |H   |		Short_Literal	0x0
00aa 4409       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x9
00ab 0000 0000  |    |		.BLANK	0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b5       |    |		.CONST	0x00b5								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0002       |    |		.CONST	0x0002								; Number of locals
00b3			INIT_00b0:
00b3 029f 0273  |   s|		Declare_Subprogram	INIT_0270,For_Call
00b5			BODY_00b0:
00b5 00db       |    |		Load_Top	At_Offset_3
00b6 8002       |    |		Call	0x0,0x2
00b7 8402       |    |		Call	0x2,0x2
00b8 00db       |    |		Load_Top	At_Offset_3
00b9 8003       |    |		Call	0x0,0x3
00ba 00db       |    |		Load_Top	At_Offset_3
00bb 8004       |    |		Call	0x0,0x4
00bc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00bd 0000 0000  |    |		.XXX[0x3]
00bf 0000       |    |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5       |    |		.CONST	0x00c5								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0002       |    |		.CONST	0x0002								; Number of locals
00c3			INIT_00c0:
00c3 029f 0293  |    |		Declare_Subprogram	INIT_0290,For_Call
00c5			BODY_00c0:
00c5 00db       |    |		Load_Top	At_Offset_3
00c6 8002       |    |		Call	0x0,0x2
00c7 8402       |    |		Call	0x2,0x2
00c8 00db       |    |		Load_Top	At_Offset_3
00c9 8003       |    |		Call	0x0,0x3
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 8004       |    |		Call	0x0,0x4
00cc 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5       |    |		.CONST	0x00d5								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call
00d5			BODY_00d0:
00d5 00db       |    |		Load_Top	At_Offset_3
00d6 8002       |    |		Call	0x0,0x2
00d7 8402       |    |		Call	0x2,0x2
00d8 00db       |    |		Load_Top	At_Offset_3
00d9 8003       |    |		Call	0x0,0x3
00da 00db       |    |		Load_Top	At_Offset_3
00db 8004       |    |		Call	0x0,0x4
00dc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00dd 0000 0000  |    |		.XXX[0x3]
00df 0000       |    |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5       |    |		.CONST	0x00e5								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0002       |    |		.CONST	0x0002								; Number of locals
00e3			INIT_00e0:
00e3 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
00e5			BODY_00e0:
00e5 00db       |    |		Load_Top	At_Offset_3
00e6 8002       |    |		Call	0x0,0x2
00e7 8402       |    |		Call	0x2,0x2
00e8 00db       |    |		Load_Top	At_Offset_3
00e9 8003       |    |		Call	0x0,0x3
00ea 00db       |    |		Load_Top	At_Offset_3
00eb 8004       |    |		Call	0x0,0x4
00ec 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00ed 0000 0000  |    |		.XXX[0x3]
00ef 0000       |    |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5       |    |		.CONST	0x00f5								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 029f 0313  |    |		Declare_Subprogram	INIT_0310,For_Call
00f5			BODY_00f0:
00f5 00db       |    |		Load_Top	At_Offset_3
00f6 8002       |    |		Call	0x0,0x2
00f7 8402       |    |		Call	0x2,0x2
00f8 00db       |    |		Load_Top	At_Offset_3
00f9 8003       |    |		Call	0x0,0x3
00fa 00db       |    |		Load_Top	At_Offset_3
00fb 8004       |    |		Call	0x0,0x4
00fc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00fd 0000 0000  |    |		.XXX[0x3]
00ff 0000       |    |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0105       |    |		.CONST	0x0105								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0002       |    |		.CONST	0x0002								; Number of locals
0103			INIT_0100:
0103 029f 0333  |   3|		Declare_Subprogram	INIT_0330,For_Call
0105			BODY_0100:
0105 00db       |    |		Load_Top	At_Offset_3
0106 8002       |    |		Call	0x0,0x2
0107 8402       |    |		Call	0x2,0x2
0108 00db       |    |		Load_Top	At_Offset_3
0109 8003       |    |		Call	0x0,0x3
010a 00db       |    |		Load_Top	At_Offset_3
010b 8004       |    |		Call	0x0,0x4
010c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010d 0000 0000  |    |		.XXX[0x3]
010f 0000       |    |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 012b       | +  |		.CONST	0x012b								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 e007       |    |		Load	0x0,0x7
0114 0322       | "  |		Declare_Variable	Record
0115 4823       |H#  |		Short_Literal	0x23
0116 00d9       |    |		Load_Top	At_Offset_1
0117 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0118 e007       |    |		Load	0x0,0x7
0119 012c       | ,  |		Execute	Any,Size
011a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
011b 00d9       |    |		Load_Top	At_Offset_1
011c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
011d e5fe       |    |		Load	0x2,-0x2
011e 00d9       |    |		Load_Top	At_Offset_1
011f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0120 e5fd       |    |		Load	0x2,-0x3
0121 00d9       |    |		Load_Top	At_Offset_1
0122 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0123 e5ff       |    |		Load	0x2,-0x1
0124 e008       |    |		Load	0x0,0x8
0125 a009       |    |		Store_Unchecked	0x0,0x9
0126 e00a       |    |		Load	0x0,0xa
0127 e00b       |    |		Load	0x0,0xb
0128 a00c       |    |		Store_Unchecked	0x0,0xc
0129 800d       |    |		Call	0x0,0xd
012a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
012b			TRAP_0110:
012b 0007       |    |		Action	Break_Optional
012c e5ff       |    |		Load	0x2,-0x1
012d 8003       |    |		Call	0x0,0x3
012e 00d8       |    |		Load_Top	At_Offset_0
012f 0101       |    |		Execute	Exception,Reraise
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0154       | T  |		.CONST	0x0154								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 e00e       |    |		Load	0x0,0xe
0134 0322       | "  |		Declare_Variable	Record
0135 481e       |H   |		Short_Literal	0x1e
0136 00d9       |    |		Load_Top	At_Offset_1
0137 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0138 e00e       |    |		Load	0x0,0xe
0139 012c       | ,  |		Execute	Any,Size
013a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
013b 00d9       |    |		Load_Top	At_Offset_1
013c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
013d 4800       |H   |		Short_Literal	0x0
013e 00d9       |    |		Load_Top	At_Offset_1
013f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0140 e5fd       |    |		Load	0x2,-0x3
0141 00d9       |    |		Load_Top	At_Offset_1
0142 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0143 e5fc       |    |		Load	0x2,-0x4
0144 00d9       |    |		Load_Top	At_Offset_1
0145 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0146 e5fe       |    |		Load	0x2,-0x2
0147 e00e       |    |		Load	0x0,0xe
0148 3005       |0   |		Execute	Record,Field_Type,Field_Number 0x5
0149 0119       |    |		Execute	Any,Check_In_Formal_Type
014a 00d9       |    |		Load_Top	At_Offset_1
014b 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
014c e5ff       |    |		Load	0x2,-0x1
014d e00f       |    |		Load	0x0,0xf
014e a010       |    |		Store_Unchecked	0x0,0x10
014f e011       |    |		Load	0x0,0x11
0150 e012       |    |		Load	0x0,0x12
0151 a013       |    |		Store_Unchecked	0x0,0x13
0152 800d       |    |		Call	0x0,0xd
0153 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0154			TRAP_0130:
0154 0007       |    |		Action	Break_Optional
0155 e5ff       |    |		Load	0x2,-0x1
0156 8003       |    |		Call	0x0,0x3
0157 00d8       |    |		Load_Top	At_Offset_0
0158 0101       |    |		Execute	Exception,Reraise
0159 0000 0000  |    |		.BLANK	0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 019f       |    |		.CONST	0x019f								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 e014       |    |		Load	0x0,0x14
0164 0322       | "  |		Declare_Variable	Record
0165 481c       |H   |		Short_Literal	0x1c
0166 00d9       |    |		Load_Top	At_Offset_1
0167 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0168 e014       |    |		Load	0x0,0x14
0169 012c       | ,  |		Execute	Any,Size
016a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
016b 00d9       |    |		Load_Top	At_Offset_1
016c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
016d 4800       |H   |		Short_Literal	0x0
016e 00d9       |    |		Load_Top	At_Offset_1
016f 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0170 e5fd       |    |		Load	0x2,-0x3
0171 e014       |    |		Load	0x0,0x14
0172 300b       |0   |		Execute	Record,Field_Type,Field_Number 0xb
0173 0119       |    |		Execute	Any,Check_In_Formal_Type
0174 00d9       |    |		Load_Top	At_Offset_1
0175 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0176 e5fe       |    |		Load	0x2,-0x2
0177 00d9       |    |		Load_Top	At_Offset_1
0178 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0179 e5fc       |    |		Load	0x2,-0x4
017a 00d9       |    |		Load_Top	At_Offset_1
017b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
017c e5fb       |    |		Load	0x2,-0x5
017d 8015       |    |		Call	0x0,0x15
017e 00d9       |    |		Load_Top	At_Offset_1
017f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0180 e016       |    |		Load	0x0,0x16
0181 01da       |    |		Execute	Vector,Bounds
0182 e5fa       |    |		Load	0x2,-0x6
0183 01cf       |    |		Execute	Vector,Slice_Read
0184 e016       |    |		Load	0x0,0x16
0185 01c7       |    |		Execute	Vector,Convert
0186 e014       |    |		Load	0x0,0x14
0187 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0188 0119       |    |		Execute	Any,Check_In_Formal_Type
0189 00d9       |    |		Load_Top	At_Offset_1
018a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
018b e5f9       |    |		Load	0x2,-0x7
018c 00d9       |    |		Load_Top	At_Offset_1
018d 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
018e e5f8       |    |		Load	0x2,-0x8
018f 00d9       |    |		Load_Top	At_Offset_1
0190 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0191 e5f7       |    |		Load	0x2,-0x9
0192 00d9       |    |		Load_Top	At_Offset_1
0193 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0194 e5f6       |    |		Load	0x2,-0xa
0195 00d9       |    |		Load_Top	At_Offset_1
0196 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0197 e5ff       |    |		Load	0x2,-0x1
0198 e017       |    |		Load	0x0,0x17
0199 a018       |    |		Store_Unchecked	0x0,0x18
019a e019       |    |		Load	0x0,0x19
019b e01a       |    |		Load	0x0,0x1a
019c a01b       |    |		Store_Unchecked	0x0,0x1b
019d 800d       |    |		Call	0x0,0xd
019e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
019f			TRAP_0160:
019f 0007       |    |		Action	Break_Optional
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 8003       |    |		Call	0x0,0x3
01a2 00d8       |    |		Load_Top	At_Offset_0
01a3 0101       |    |		Execute	Exception,Reraise
01a4 0000 0000  |    |		.BLANK	0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 01dc       |    |		.CONST	0x01dc								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab e01c       |    |		Load	0x0,0x1c
01ac 0322       | "  |		Declare_Variable	Record
01ad 481f       |H   |		Short_Literal	0x1f
01ae 00d9       |    |		Load_Top	At_Offset_1
01af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b0 e01c       |    |		Load	0x0,0x1c
01b1 012c       | ,  |		Execute	Any,Size
01b2 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
01b3 00d9       |    |		Load_Top	At_Offset_1
01b4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01b5 4800       |H   |		Short_Literal	0x0
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01b8 e5fe       |    |		Load	0x2,-0x2
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01bb e5fd       |    |		Load	0x2,-0x3
01bc 8015       |    |		Call	0x0,0x15
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01bf e5fc       |    |		Load	0x2,-0x4
01c0 00d9       |    |		Load_Top	At_Offset_1
01c1 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01c2 e5fb       |    |		Load	0x2,-0x5
01c3 00d9       |    |		Load_Top	At_Offset_1
01c4 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01c5 e5fa       |    |		Load	0x2,-0x6
01c6 00d9       |    |		Load_Top	At_Offset_1
01c7 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01c8 e5ff       |    |		Load	0x2,-0x1
01c9 e01d       |    |		Load	0x0,0x1d
01ca a01e       |    |		Store_Unchecked	0x0,0x1e
01cb e01f       |    |		Load	0x0,0x1f
01cc e020       |    |		Load	0x0,0x20
01cd a021       | !  |		Store_Unchecked	0x0,0x21
01ce 800d       |    |		Call	0x0,0xd
01cf e006       |    |		Load	0x0,0x6
01d0 e402       |    |		Load	0x2,0x2
01d1 4801       |H   |		Short_Literal	0x1
01d2 4800       |H   |		Short_Literal	0x0
01d3 481f       |H   |		Short_Literal	0x1f
01d4 e5ff       |    |		Load	0x2,-0x1
01d5 e022       | "  |		Load	0x0,0x22
01d6 a023       | #  |		Store_Unchecked	0x0,0x23
01d7 a024       | $  |		Store_Unchecked	0x0,0x24
01d8 8025       | %  |		Call	0x0,0x25
01d9 00d1       |    |		Pop_Control	Pop_Count_1
01da c403       |    |		Store	0x2,0x3
01db 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01dc			TRAP_01a8:
01dc 0007       |    |		Action	Break_Optional
01dd e5ff       |    |		Load	0x2,-0x1
01de 8003       |    |		Call	0x0,0x3
01df 00d8       |    |		Load_Top	At_Offset_0
01e0 0101       |    |		Execute	Exception,Reraise
01e1 0000 0000  |    |		.BLANK	0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 021c       |    |		.CONST	0x021c								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb e026       | &  |		Load	0x0,0x26
01ec 0322       | "  |		Declare_Variable	Record
01ed 4821       |H!  |		Short_Literal	0x21
01ee 00d9       |    |		Load_Top	At_Offset_1
01ef 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01f0 e026       | &  |		Load	0x0,0x26
01f1 012c       | ,  |		Execute	Any,Size
01f2 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
01f3 00d9       |    |		Load_Top	At_Offset_1
01f4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01f5 4800       |H   |		Short_Literal	0x0
01f6 00d9       |    |		Load_Top	At_Offset_1
01f7 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
01f8 4800       |H   |		Short_Literal	0x0
01f9 00d9       |    |		Load_Top	At_Offset_1
01fa 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
01fb 4800       |H   |		Short_Literal	0x0
01fc 00d9       |    |		Load_Top	At_Offset_1
01fd 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01fe e5fb       |    |		Load	0x2,-0x5
01ff 8015       |    |		Call	0x0,0x15
0200 00d9       |    |		Load_Top	At_Offset_1
0201 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0202 e5fc       |    |		Load	0x2,-0x4
0203 00d9       |    |		Load_Top	At_Offset_1
0204 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0205 e5fd       |    |		Load	0x2,-0x3
0206 e026       | &  |		Load	0x0,0x26
0207 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0208 0119       |    |		Execute	Any,Check_In_Formal_Type
0209 00d9       |    |		Load_Top	At_Offset_1
020a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
020b e5fe       |    |		Load	0x2,-0x2
020c 00d9       |    |		Load_Top	At_Offset_1
020d 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
020e e5fa       |    |		Load	0x2,-0x6
020f 00d9       |    |		Load_Top	At_Offset_1
0210 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0211 e5f9       |    |		Load	0x2,-0x7
0212 00d9       |    |		Load_Top	At_Offset_1
0213 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0214 e5ff       |    |		Load	0x2,-0x1
0215 e027       | '  |		Load	0x0,0x27
0216 a028       | (  |		Store_Unchecked	0x0,0x28
0217 e029       | )  |		Load	0x0,0x29
0218 e02a       | *  |		Load	0x0,0x2a
0219 a02b       | +  |		Store_Unchecked	0x0,0x2b
021a 800d       |    |		Call	0x0,0xd
021b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021c			TRAP_01e8:
021c 0007       |    |		Action	Break_Optional
021d e5ff       |    |		Load	0x2,-0x1
021e 8003       |    |		Call	0x0,0x3
021f 00d8       |    |		Load_Top	At_Offset_0
0220 0101       |    |		Execute	Exception,Reraise
0221 0000 0000  |    |		.BLANK	0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 026a       | j  |		.CONST	0x026a								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b e02c       | ,  |		Load	0x0,0x2c
022c 0322       | "  |		Declare_Variable	Record
022d 481a       |H   |		Short_Literal	0x1a
022e 00d9       |    |		Load_Top	At_Offset_1
022f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0230 e02c       | ,  |		Load	0x0,0x2c
0231 012c       | ,  |		Execute	Any,Size
0232 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0233 00d9       |    |		Load_Top	At_Offset_1
0234 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0235 e5fe       |    |		Load	0x2,-0x2
0236 00d9       |    |		Load_Top	At_Offset_1
0237 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0238 e5fd       |    |		Load	0x2,-0x3
0239 8015       |    |		Call	0x0,0x15
023a 00d9       |    |		Load_Top	At_Offset_1
023b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
023c e016       |    |		Load	0x0,0x16
023d 01da       |    |		Execute	Vector,Bounds
023e e5fc       |    |		Load	0x2,-0x4
023f 01cf       |    |		Execute	Vector,Slice_Read
0240 e016       |    |		Load	0x0,0x16
0241 01c7       |    |		Execute	Vector,Convert
0242 e02c       | ,  |		Load	0x0,0x2c
0243 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0244 0119       |    |		Execute	Any,Check_In_Formal_Type
0245 00d9       |    |		Load_Top	At_Offset_1
0246 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0247 e5fb       |    |		Load	0x2,-0x5
0248 00d9       |    |		Load_Top	At_Offset_1
0249 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
024a e5fa       |    |		Load	0x2,-0x6
024b 00d9       |    |		Load_Top	At_Offset_1
024c 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
024d e5f9       |    |		Load	0x2,-0x7
024e 00d9       |    |		Load_Top	At_Offset_1
024f 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0250 e5f8       |    |		Load	0x2,-0x8
0251 00d9       |    |		Load_Top	At_Offset_1
0252 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0253 e5f7       |    |		Load	0x2,-0x9
0254 00d9       |    |		Load_Top	At_Offset_1
0255 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0256 e5ff       |    |		Load	0x2,-0x1
0257 e02d       | -  |		Load	0x0,0x2d
0258 a02e       | .  |		Store_Unchecked	0x0,0x2e
0259 e02f       | /  |		Load	0x0,0x2f
025a e030       | 0  |		Load	0x0,0x30
025b a031       | 1  |		Store_Unchecked	0x0,0x31
025c 800d       |    |		Call	0x0,0xd
025d e006       |    |		Load	0x0,0x6
025e e402       |    |		Load	0x2,0x2
025f 4801       |H   |		Short_Literal	0x1
0260 4800       |H   |		Short_Literal	0x0
0261 481a       |H   |		Short_Literal	0x1a
0262 e5ff       |    |		Load	0x2,-0x1
0263 e022       | "  |		Load	0x0,0x22
0264 a023       | #  |		Store_Unchecked	0x0,0x23
0265 a024       | $  |		Store_Unchecked	0x0,0x24
0266 8025       | %  |		Call	0x0,0x25
0267 00d1       |    |		Pop_Control	Pop_Count_1
0268 c403       |    |		Store	0x2,0x3
0269 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
026a			TRAP_0228:
026a 0007       |    |		Action	Break_Optional
026b e5ff       |    |		Load	0x2,-0x1
026c 8003       |    |		Call	0x0,0x3
026d 00d8       |    |		Load_Top	At_Offset_0
026e 0101       |    |		Execute	Exception,Reraise
026f 0000       |    |		.XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0288       |    |		.CONST	0x0288								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 e032       | 2  |		Load	0x0,0x32
0274 0322       | "  |		Declare_Variable	Record
0275 4824       |H$  |		Short_Literal	0x24
0276 00d9       |    |		Load_Top	At_Offset_1
0277 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0278 e032       | 2  |		Load	0x0,0x32
0279 012c       | ,  |		Execute	Any,Size
027a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
027b 00d9       |    |		Load_Top	At_Offset_1
027c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
027d 4800       |H   |		Short_Literal	0x0
027e 00d9       |    |		Load_Top	At_Offset_1
027f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0280 e5ff       |    |		Load	0x2,-0x1
0281 e033       | 3  |		Load	0x0,0x33
0282 a034       | 4  |		Store_Unchecked	0x0,0x34
0283 e035       | 5  |		Load	0x0,0x35
0284 e036       | 6  |		Load	0x0,0x36
0285 a037       | 7  |		Store_Unchecked	0x0,0x37
0286 800d       |    |		Call	0x0,0xd
0287 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0288			TRAP_0270:
0288 0007       |    |		Action	Break_Optional
0289 e5ff       |    |		Load	0x2,-0x1
028a 8003       |    |		Call	0x0,0x3
028b 00d8       |    |		Load_Top	At_Offset_0
028c 0101       |    |		Execute	Exception,Reraise
028d 0000 0000  |    |		.XXX[0x3]
028f 0000       |    |
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 02b4       |    |		.CONST	0x02b4								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 e038       | 8  |		Load	0x0,0x38
0294 0322       | "  |		Declare_Variable	Record
0295 481d       |H   |		Short_Literal	0x1d
0296 00d9       |    |		Load_Top	At_Offset_1
0297 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0298 e038       | 8  |		Load	0x0,0x38
0299 012c       | ,  |		Execute	Any,Size
029a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
029b 00d9       |    |		Load_Top	At_Offset_1
029c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
029d 4800       |H   |		Short_Literal	0x0
029e 00d9       |    |		Load_Top	At_Offset_1
029f 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02a0 e5fe       |    |		Load	0x2,-0x2
02a1 00d9       |    |		Load_Top	At_Offset_1
02a2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02a3 e5fd       |    |		Load	0x2,-0x3
02a4 e038       | 8  |		Load	0x0,0x38
02a5 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
02a6 0119       |    |		Execute	Any,Check_In_Formal_Type
02a7 00d9       |    |		Load_Top	At_Offset_1
02a8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02a9 e5fc       |    |		Load	0x2,-0x4
02aa 00d9       |    |		Load_Top	At_Offset_1
02ab 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02ac e5ff       |    |		Load	0x2,-0x1
02ad e039       | 9  |		Load	0x0,0x39
02ae a03a       | :  |		Store_Unchecked	0x0,0x3a
02af e03b       | ;  |		Load	0x0,0x3b
02b0 e03c       | <  |		Load	0x0,0x3c
02b1 a03d       | =  |		Store_Unchecked	0x0,0x3d
02b2 800d       |    |		Call	0x0,0xd
02b3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b4			TRAP_0290:
02b4 0007       |    |		Action	Break_Optional
02b5 e5ff       |    |		Load	0x2,-0x1
02b6 8003       |    |		Call	0x0,0x3
02b7 00d8       |    |		Load_Top	At_Offset_0
02b8 0101       |    |		Execute	Exception,Reraise
02b9 0000 0000  |    |		.BLANK	0000[0x7]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 02db       |    |		.CONST	0x02db								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 e03e       | >  |		Load	0x0,0x3e
02c4 0322       | "  |		Declare_Variable	Record
02c5 4820       |H   |		Short_Literal	0x20
02c6 00d9       |    |		Load_Top	At_Offset_1
02c7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c8 e03e       | >  |		Load	0x0,0x3e
02c9 012c       | ,  |		Execute	Any,Size
02ca 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02cd 4800       |H   |		Short_Literal	0x0
02ce 00d9       |    |		Load_Top	At_Offset_1
02cf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d0 e5fe       |    |		Load	0x2,-0x2
02d1 00d9       |    |		Load_Top	At_Offset_1
02d2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 e03f       | ?  |		Load	0x0,0x3f
02d5 a040       | @  |		Store_Unchecked	0x0,0x40
02d6 e041       | A  |		Load	0x0,0x41
02d7 e042       | B  |		Load	0x0,0x42
02d8 a043       | C  |		Store_Unchecked	0x0,0x43
02d9 800d       |    |		Call	0x0,0xd
02da 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02db			TRAP_02c0:
02db 0007       |    |		Action	Break_Optional
02dc e5ff       |    |		Load	0x2,-0x1
02dd 8003       |    |		Call	0x0,0x3
02de 00d8       |    |		Load_Top	At_Offset_0
02df 0101       |    |		Execute	Exception,Reraise
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0304       |    |		.CONST	0x0304								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 e044       | D  |		Load	0x0,0x44
02e4 0322       | "  |		Declare_Variable	Record
02e5 4822       |H"  |		Short_Literal	0x22
02e6 00d9       |    |		Load_Top	At_Offset_1
02e7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02e8 e044       | D  |		Load	0x0,0x44
02e9 012c       | ,  |		Execute	Any,Size
02ea 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
02eb 00d9       |    |		Load_Top	At_Offset_1
02ec 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02ed 4800       |H   |		Short_Literal	0x0
02ee 00d9       |    |		Load_Top	At_Offset_1
02ef 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02f0 e5fc       |    |		Load	0x2,-0x4
02f1 00d9       |    |		Load_Top	At_Offset_1
02f2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02f3 e5fd       |    |		Load	0x2,-0x3
02f4 e044       | D  |		Load	0x0,0x44
02f5 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
02f6 0119       |    |		Execute	Any,Check_In_Formal_Type
02f7 00d9       |    |		Load_Top	At_Offset_1
02f8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02f9 e5fe       |    |		Load	0x2,-0x2
02fa 00d9       |    |		Load_Top	At_Offset_1
02fb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02fc e5ff       |    |		Load	0x2,-0x1
02fd e045       | E  |		Load	0x0,0x45
02fe a046       | F  |		Store_Unchecked	0x0,0x46
02ff e047       | G  |		Load	0x0,0x47
0300 e048       | H  |		Load	0x0,0x48
0301 a049       | I  |		Store_Unchecked	0x0,0x49
0302 800d       |    |		Call	0x0,0xd
0303 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0304			TRAP_02e0:
0304 0007       |    |		Action	Break_Optional
0305 e5ff       |    |		Load	0x2,-0x1
0306 8003       |    |		Call	0x0,0x3
0307 00d8       |    |		Load_Top	At_Offset_0
0308 0101       |    |		Execute	Exception,Reraise
0309 0000 0000  |    |		.BLANK	0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 032b       | +  |		.CONST	0x032b								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 e04a       | J  |		Load	0x0,0x4a
0314 0322       | "  |		Declare_Variable	Record
0315 481b       |H   |		Short_Literal	0x1b
0316 00d9       |    |		Load_Top	At_Offset_1
0317 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0318 e04a       | J  |		Load	0x0,0x4a
0319 012c       | ,  |		Execute	Any,Size
031a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
031b 00d9       |    |		Load_Top	At_Offset_1
031c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
031d 4800       |H   |		Short_Literal	0x0
031e 00d9       |    |		Load_Top	At_Offset_1
031f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0320 e5fe       |    |		Load	0x2,-0x2
0321 00d9       |    |		Load_Top	At_Offset_1
0322 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0323 e5ff       |    |		Load	0x2,-0x1
0324 e04b       | K  |		Load	0x0,0x4b
0325 a04c       | L  |		Store_Unchecked	0x0,0x4c
0326 e04d       | M  |		Load	0x0,0x4d
0327 e04e       | N  |		Load	0x0,0x4e
0328 a04f       | O  |		Store_Unchecked	0x0,0x4f
0329 800d       |    |		Call	0x0,0xd
032a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
032b			TRAP_0310:
032b 0007       |    |		Action	Break_Optional
032c e5ff       |    |		Load	0x2,-0x1
032d 8003       |    |		Call	0x0,0x3
032e 00d8       |    |		Load_Top	At_Offset_0
032f 0101       |    |		Execute	Exception,Reraise
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0348       | H  |		.CONST	0x0348								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 e050       | P  |		Load	0x0,0x50
0334 0322       | "  |		Declare_Variable	Record
0335 4825       |H%  |		Short_Literal	0x25
0336 00d9       |    |		Load_Top	At_Offset_1
0337 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0338 e050       | P  |		Load	0x0,0x50
0339 012c       | ,  |		Execute	Any,Size
033a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
033b 00d9       |    |		Load_Top	At_Offset_1
033c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
033d 4800       |H   |		Short_Literal	0x0
033e 00d9       |    |		Load_Top	At_Offset_1
033f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0340 e5ff       |    |		Load	0x2,-0x1
0341 e051       | Q  |		Load	0x0,0x51
0342 a052       | R  |		Store_Unchecked	0x0,0x52
0343 e053       | S  |		Load	0x0,0x53
0344 e054       | T  |		Load	0x0,0x54
0345 a055       | U  |		Store_Unchecked	0x0,0x55
0346 800d       |    |		Call	0x0,0xd
0347 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0348			TRAP_0330:
0348 0007       |    |		Action	Break_Optional
0349 e5ff       |    |		Load	0x2,-0x1
034a 8003       |    |		Call	0x0,0x3
034b 00d8       |    |		Load_Top	At_Offset_0
034c 0101       |    |		Execute	Exception,Reraise
034d 0000 0000  |    |		.XXX[0x3]
034f 0000       |    |
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug Table
0350 ; --------------------------------------------------------------------------------------
0350 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x690f,0x0000,0x0001,0x001a
0356 000b 03be  |    |		.DBG4T	0x000b,0x03be,0x8000,0x0000
035a 0024 03cc  | $  |		.DBG4T	0x0024,0x03cc,0x8000,0x0000
035e 0043 03da  | C  |		.DBG4T	0x0043,0x03da,0x0001,0x0000
0362 0053 03e0  | S  |		.DBG4T	0x0053,0x03e0,0x0001,0x0000
0366 0063 03e6  | c  |		.DBG4T	0x0063,0x03e6,0x0001,0x0000
036a 0073 03ec  | s  |		.DBG4T	0x0073,0x03ec,0x0002,0x0000
036e 008b 03f5  |    |		.DBG4T	0x008b,0x03f5,0x0001,0x0000
0372 009b 03fb  |    |		.DBG4T	0x009b,0x03fb,0x0002,0x0000
0376 00b3 0404  |    |		.DBG4T	0x00b3,0x0404,0x0001,0x0000
037a 00c3 040a  |    |		.DBG4T	0x00c3,0x040a,0x0001,0x0000
037e 00d3 0410  |    |		.DBG4T	0x00d3,0x0410,0x0001,0x0000
0382 00e3 0416  |    |		.DBG4T	0x00e3,0x0416,0x0001,0x0000
0386 00f3 041c  |    |		.DBG4T	0x00f3,0x041c,0x0001,0x0000
038a 0103 0422  |   "|		.DBG4T	0x0103,0x0422,0x0001,0x0000
038e 0113 0428  |   (|		.DBG4T	0x0113,0x0428,0x0004,0x0000
0392 0133 042d  | 3 -|		.DBG4T	0x0133,0x042d,0x0004,0x0000
0396 0163 0432  | c 2|		.DBG4T	0x0163,0x0432,0x0004,0x0000
039a 01ab 0437  |   7|		.DBG4T	0x01ab,0x0437,0x0004,0x0000
039e 01eb 043d  |   =|		.DBG4T	0x01eb,0x043d,0x0004,0x0000
03a2 022b 0442  | + B|		.DBG4T	0x022b,0x0442,0x0004,0x0000
03a6 0273 0448  | s H|		.DBG4T	0x0273,0x0448,0x0004,0x0000
03aa 0293 044d  |   M|		.DBG4T	0x0293,0x044d,0x0004,0x0000
03ae 02c3 0452  |   R|		.DBG4T	0x02c3,0x0452,0x0004,0x0000
03b2 02e3 0457  |   W|		.DBG4T	0x02e3,0x0457,0x0004,0x0000
03b6 0313 045c  |   \|		.DBG4T	0x0313,0x045c,0x0004,0x0000
03ba 0333 0461  | 3 a|		.DBG4T	0x0333,0x0461,0x0004,0x0000
03be ; --------------------------------------------------------------------------------------
03be ; Debug chain
03be ; --------------------------------------------------------------------------------------
03be 000c 0000  |    |		.DBGLEN	0x000c,0x0000
03c0 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021
03cc ; --------------------------------------------------------------------------------------
03cc ; Debug chain
03cc ; --------------------------------------------------------------------------------------
03cc 000c 0000  |    |		.DBGLEN	0x000c,0x0000
03ce 0024 0026  | $ &|		.DBGLNO	0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a
03da ; --------------------------------------------------------------------------------------
03da ; Debug chain
03da ; --------------------------------------------------------------------------------------
03da 0000 0004  |    |		.DBGLEN	0x0000,0x0004
03dc 0045 0047  | E G|		.DBGLNO	0x0045,0x0047,0x0048,0x004a
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug chain
03e0 ; --------------------------------------------------------------------------------------
03e0 0000 0004  |    |		.DBGLEN	0x0000,0x0004
03e2 0055 0057  | U W|		.DBGLNO	0x0055,0x0057,0x0058,0x005a
03e6 ; --------------------------------------------------------------------------------------
03e6 ; Debug chain
03e6 ; --------------------------------------------------------------------------------------
03e6 0000 0004  |    |		.DBGLEN	0x0000,0x0004
03e8 0065 0067  | e g|		.DBGLNO	0x0065,0x0067,0x0068,0x006a
03ec ; --------------------------------------------------------------------------------------
03ec ; Debug chain
03ec ; --------------------------------------------------------------------------------------
03ec 0002 0005  |    |		.DBGLEN	0x0002,0x0005
03ee 0073 0077  | s w|		.DBGLNO	0x0073,0x0077,0x007a,0x007c,0x007d,0x007f,0x0081
03f5 ; --------------------------------------------------------------------------------------
03f5 ; Debug chain
03f5 ; --------------------------------------------------------------------------------------
03f5 0000 0004  |    |		.DBGLEN	0x0000,0x0004
03f7 008d 008f  |    |		.DBGLNO	0x008d,0x008f,0x0090,0x0092
03fb ; --------------------------------------------------------------------------------------
03fb ; Debug chain
03fb ; --------------------------------------------------------------------------------------
03fb 0002 0005  |    |		.DBGLEN	0x0002,0x0005
03fd 009b 009f  |    |		.DBGLNO	0x009b,0x009f,0x00a2,0x00a4,0x00a5,0x00a7,0x00a9
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug chain
0404 ; --------------------------------------------------------------------------------------
0404 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0406 00b5 00b7  |    |		.DBGLNO	0x00b5,0x00b7,0x00b8,0x00ba
040a ; --------------------------------------------------------------------------------------
040a ; Debug chain
040a ; --------------------------------------------------------------------------------------
040a 0000 0004  |    |		.DBGLEN	0x0000,0x0004
040c 00c5 00c7  |    |		.DBGLNO	0x00c5,0x00c7,0x00c8,0x00ca
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug chain
0410 ; --------------------------------------------------------------------------------------
0410 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0412 00d5 00d7  |    |		.DBGLNO	0x00d5,0x00d7,0x00d8,0x00da
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug chain
0416 ; --------------------------------------------------------------------------------------
0416 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0418 00e5 00e7  |    |		.DBGLNO	0x00e5,0x00e7,0x00e8,0x00ea
041c ; --------------------------------------------------------------------------------------
041c ; Debug chain
041c ; --------------------------------------------------------------------------------------
041c 0000 0004  |    |		.DBGLEN	0x0000,0x0004
041e 00f5 00f7  |    |		.DBGLNO	0x00f5,0x00f7,0x00f8,0x00fa
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug chain
0422 ; --------------------------------------------------------------------------------------
0422 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0424 0105 0107  |    |		.DBGLNO	0x0105,0x0107,0x0108,0x010a
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug chain
0428 ; --------------------------------------------------------------------------------------
0428 0000 0003  |    |		.DBGLEN	0x0000,0x0003
042a 0113 012c  |   ,|		.DBGLNO	0x0113,0x012c,0x012e
042d ; --------------------------------------------------------------------------------------
042d ; Debug chain
042d ; --------------------------------------------------------------------------------------
042d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
042f 0133 0155  | 3 U|		.DBGLNO	0x0133,0x0155,0x0157
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug chain
0432 ; --------------------------------------------------------------------------------------
0432 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0434 0163 01a0  | c  |		.DBGLNO	0x0163,0x01a0,0x01a2
0437 ; --------------------------------------------------------------------------------------
0437 ; Debug chain
0437 ; --------------------------------------------------------------------------------------
0437 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0439 01ab 01cf  |    |		.DBGLNO	0x01ab,0x01cf,0x01dd,0x01df
043d ; --------------------------------------------------------------------------------------
043d ; Debug chain
043d ; --------------------------------------------------------------------------------------
043d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
043f 01eb 021d  |    |		.DBGLNO	0x01eb,0x021d,0x021f
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug chain
0442 ; --------------------------------------------------------------------------------------
0442 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0444 022b 025d  | + ]|		.DBGLNO	0x022b,0x025d,0x026b,0x026d
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug chain
0448 ; --------------------------------------------------------------------------------------
0448 0000 0003  |    |		.DBGLEN	0x0000,0x0003
044a 0273 0289  | s  |		.DBGLNO	0x0273,0x0289,0x028b
044d ; --------------------------------------------------------------------------------------
044d ; Debug chain
044d ; --------------------------------------------------------------------------------------
044d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
044f 0293 02b5  |    |		.DBGLNO	0x0293,0x02b5,0x02b7
0452 ; --------------------------------------------------------------------------------------
0452 ; Debug chain
0452 ; --------------------------------------------------------------------------------------
0452 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0454 02c3 02dc  |    |		.DBGLNO	0x02c3,0x02dc,0x02de
0457 ; --------------------------------------------------------------------------------------
0457 ; Debug chain
0457 ; --------------------------------------------------------------------------------------
0457 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0459 02e3 0305  |    |		.DBGLNO	0x02e3,0x0305,0x0307
045c ; --------------------------------------------------------------------------------------
045c ; Debug chain
045c ; --------------------------------------------------------------------------------------
045c 0000 0003  |    |		.DBGLEN	0x0000,0x0003
045e 0313 032c  |   ,|		.DBGLNO	0x0313,0x032c,0x032e
0461 ; --------------------------------------------------------------------------------------
0461 ; Debug chain
0461 ; --------------------------------------------------------------------------------------
0461 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0463 0333 0349  | 3 I|		.DBGLNO	0x0333,0x0349,0x034b
0466 0000 0000  |    |		.BLANK	0000[0x19a]