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

⟦484bbeb06⟧

    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 0348       | H  |		.CONST	0x0348								; 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 002d       | -  |		.CONST	0x002d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated
000d 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
000f 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0011 0007       |    |		Action	Break_Optional
0012 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0014 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0016 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0018 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
001a 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
001c 00bf       |    |		Action	Accept_Activation
001d 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
001e 00c7       |    |		Action	Elaborate_Subprogram
001f 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0020 00c7       |    |		Action	Elaborate_Subprogram
0021 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0022 00c7       |    |		Action	Elaborate_Subprogram
0023 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0024 00c7       |    |		Action	Elaborate_Subprogram
0025 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0026 00c7       |    |		Action	Elaborate_Subprogram
0027 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0028 00c7       |    |		Action	Elaborate_Subprogram
0029 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
002c 00c7       |    |		Action	Elaborate_Subprogram
002d			BODY_0008:
002d 00bc       |    |		Action	Signal_Activated
002e 00bb       |    |		Action	Signal_Completion
002f 0000       |    |		.XXX[0x1]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0042       | B  |		.CONST	0x0042								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0003       |    |		.CONST	0x0003								; Number of locals
0033			INIT_0030:
0033 4801       |H   |		Short_Literal	0x1
0034 e5fe       |    |		Load	0x2,-0x2
0035 01ab       |    |		Execute	Matrix,Length
0036 4802       |H   |		Short_Literal	0x2
0037 e5fe       |    |		Load	0x2,-0x2
0038 01ab       |    |		Execute	Matrix,Length
0039 0271       | q  |		Execute	Discrete,Times
003a e002       |    |		Load	0x0,0x2
003b 012c       | ,  |		Execute	Any,Size
003c 0271       | q  |		Execute	Discrete,Times
003d 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
003e e003       |    |		Load	0x0,0x3
003f 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0040 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
0042			BODY_0030:
0042 e5ff       |    |		Load	0x2,-0x1
0043 8004       |    |		Call	0x0,0x4
0044 8403       |    |		Call	0x2,0x3
0045 e5ff       |    |		Load	0x2,-0x1
0046 8005       |    |		Call	0x0,0x5
0047 e5ff       |    |		Load	0x2,-0x1
0048 8006       |    |		Call	0x0,0x6
0049 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
004a 0000 0000  |    |		.BLANK	0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 00cf       |    |		Action	Mark_Auxiliary
0054 e5fd       |    |		Load	0x2,-0x3
0055 0227       | '  |		Execute	Access,All_Reference
0056 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0057 0227       | '  |		Execute	Access,All_Reference
0058 01d9       |    |		Execute	Vector,Reverse_Bounds
0059 0263       | c  |		Execute	Discrete,Above_Bound
005a 7016       |p   |		Jump_Nonzero	0x71
005b e5fe       |    |		Load	0x2,-0x2
005c 00d9       |    |		Load_Top	At_Offset_1
005d e5fd       |    |		Load	0x2,-0x3
005e 0227       | '  |		Execute	Access,All_Reference
005f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0060 0227       | '  |		Execute	Access,All_Reference
0061 01d5       |    |		Execute	Vector,Field_Reference
0062 01d7       |    |		Execute	Vector,Field_Read
0063 e5ff       |    |		Load	0x2,-0x1
0064 027f       |    |		Execute	Discrete,Equal
0065 6809       |h   |		Jump_Zero	0x6f
0066 4800       |H   |		Short_Literal	0x0
0067 e5fe       |    |		Load	0x2,-0x2
0068 00da       |    |		Load_Top	At_Offset_2
0069 e5fd       |    |		Load	0x2,-0x3
006a 0227       | '  |		Execute	Access,All_Reference
006b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
006c 0227       | '  |		Execute	Access,All_Reference
006d 01d5       |    |		Execute	Vector,Field_Reference
006e 01d6       |    |		Execute	Vector,Field_Write
006f 00c8       |    |		Action	Pop_Auxiliary_Range
0070 3fea       |?   |		Loop_Increasing	0x5b
0071 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0072 0000 0000  |    |		.BLANK	0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2
007c 0227       | '  |		Execute	Access,All_Reference
007d 3c1f       |<   |		Execute	Record,Field_Read,Field_Number 0x1f
007e a5fe       |    |		Store_Unchecked	0x2,-0x2
007f 00da       |    |		Load_Top	At_Offset_2
0080 0227       | '  |		Execute	Access,All_Reference
0081 3c1e       |<   |		Execute	Record,Field_Read,Field_Number 0x1e
0082 a5fd       |    |		Store_Unchecked	0x2,-0x3
0083 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0092       |    |		.CONST	0x0092								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0004       |    |		.CONST	0x0004								; Number of locals
008b			INIT_0088:
008b e007       |    |		Load	0x0,0x7
008c 02ff       |    |		Declare_Variable	Variant_Record
008d 00d8       |    |		Load_Top	At_Offset_0
008e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008f e008       |    |		Load	0x0,0x8
0090 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
0092			BODY_0088:
0092 e5ff       |    |		Load	0x2,-0x1
0093 8004       |    |		Call	0x0,0x4
0094 8404       |    |		Call	0x2,0x4
0095 0831       | 1  |		Execute_Immediate	Raise,0x31
0096 0000 0000  |    |		.XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a6       |    |		.CONST	0x00a6								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0006       |    |		.CONST	0x0006								; Number of locals
009b			INIT_0098:
009b e007       |    |		Load	0x0,0x7
009c 02ff       |    |		Declare_Variable	Variant_Record
009d 00d8       |    |		Load_Top	At_Offset_0
009e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009f e009       |    |		Load	0x0,0x9
00a0 0007       |    |		Action	Break_Optional
00a1 e008       |    |		Load	0x0,0x8
00a2 0007       |    |		Action	Break_Optional
00a3 e009       |    |		Load	0x0,0x9
00a4 029f 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Call
00a6			BODY_0098:
00a6 e5ff       |    |		Load	0x2,-0x1
00a7 8004       |    |		Call	0x0,0x4
00a8 8406       |    |		Call	0x2,0x6
00a9 e5ff       |    |		Load	0x2,-0x1
00aa 8005       |    |		Call	0x0,0x5
00ab e5ff       |    |		Load	0x2,-0x1
00ac 8006       |    |		Call	0x0,0x6
00ad 00d9       |    |		Load_Top	At_Offset_1
00ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00af 0000       |    |		.XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b8       |    |		.CONST	0x00b8								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 e00a       |    |		Load	0x0,0xa
00b4 0007       |    |		Action	Break_Optional
00b5 e5fe       |    |		Load	0x2,-0x2
00b6 e00b       |    |		Load	0x0,0xb
00b7 03f1       |    |		Declare_Variable	Discrete,With_Value
00b8			BODY_00b0:
00b8 00cf       |    |		Action	Mark_Auxiliary
00b9 e5fd       |    |		Load	0x2,-0x3
00ba 0227       | '  |		Execute	Access,All_Reference
00bb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00bc 0227       | '  |		Execute	Access,All_Reference
00bd 01d9       |    |		Execute	Vector,Reverse_Bounds
00be 0263       | c  |		Execute	Discrete,Above_Bound
00bf 7021       |p!  |		Jump_Nonzero	0xe1
00c0 00db       |    |		Load_Top	At_Offset_3
00c1 00d9       |    |		Load_Top	At_Offset_1
00c2 e5fd       |    |		Load	0x2,-0x3
00c3 0227       | '  |		Execute	Access,All_Reference
00c4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00c5 0227       | '  |		Execute	Access,All_Reference
00c6 01d5       |    |		Execute	Vector,Field_Reference
00c7 01d7       |    |		Execute	Vector,Field_Read
00c8 e5ff       |    |		Load	0x2,-0x1
00c9 027f       |    |		Execute	Discrete,Equal
00ca 6801       |h   |		Jump_Zero	0xcc
00cb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00cc 00db       |    |		Load_Top	At_Offset_3
00cd 00d9       |    |		Load_Top	At_Offset_1
00ce e5fd       |    |		Load	0x2,-0x3
00cf 0227       | '  |		Execute	Access,All_Reference
00d0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00d1 0227       | '  |		Execute	Access,All_Reference
00d2 01d5       |    |		Execute	Vector,Field_Reference
00d3 01d7       |    |		Execute	Vector,Field_Read
00d4 700a       |p   |		Jump_Nonzero	0xdf
00d5 e5ff       |    |		Load	0x2,-0x1
00d6 e403       |    |		Load	0x2,0x3
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 e5fd       |    |		Load	0x2,-0x3
00d9 0227       | '  |		Execute	Access,All_Reference
00da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00db 0227       | '  |		Execute	Access,All_Reference
00dc 01d5       |    |		Execute	Vector,Field_Reference
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00df 00c8       |    |		Action	Pop_Auxiliary_Range
00e0 3fdf       |?   |		Loop_Increasing	0xc0
00e1 00ce       |    |		Action	Pop_Auxiliary
00e2 4801       |H   |		Short_Literal	0x1
00e3 e5fd       |    |		Load	0x2,-0x3
00e4 0227       | '  |		Execute	Access,All_Reference
00e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e6 0a01       |    |		Execute_Immediate	Plus,0x1
00e7 e00a       |    |		Load	0x0,0xa
00e8 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
00e9 003a       | :  |		Store_Top	Access,At_Offset_2
00ea e5fd       |    |		Load	0x2,-0x3
00eb 0227       | '  |		Execute	Access,All_Reference
00ec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ed 0227       | '  |		Execute	Access,All_Reference
00ee e5fd       |    |		Load	0x2,-0x3
00ef 0227       | '  |		Execute	Access,All_Reference
00f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f1 0227       | '  |		Execute	Access,All_Reference
00f2 01da       |    |		Execute	Vector,Bounds
00f3 e402       |    |		Load	0x2,0x2
00f4 0229       | )  |		Execute	Access,All_Read
00f5 01ce       |    |		Execute	Vector,Slice_Write
00f6 e5fd       |    |		Load	0x2,-0x3
00f7 0229       | )  |		Execute	Access,All_Read
00f8 00d8       |    |		Load_Top	At_Offset_0
00f9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00fa e00c       |    |		Load	0x0,0xc
00fb e00d       |    |		Load	0x0,0xd
00fc a00e       |    |		Store_Unchecked	0x0,0xe
00fd 800f       |    |		Call	0x0,0xf
00fe 00d9       |    |		Load_Top	At_Offset_1
00ff 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0100 00d1       |    |		Pop_Control	Pop_Count_1
0101 00d9       |    |		Load_Top	At_Offset_1
0102 e5fd       |    |		Load	0x2,-0x3
0103 0227       | '  |		Execute	Access,All_Reference
0104 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0105 e5ff       |    |		Load	0x2,-0x1
0106 e5fe       |    |		Load	0x2,-0x2
0107 00db       |    |		Load_Top	At_Offset_3
0108 0227       | '  |		Execute	Access,All_Reference
0109 01dc       |    |		Execute	Vector,Last
010a e402       |    |		Load	0x2,0x2
010b 0227       | '  |		Execute	Access,All_Reference
010c 01d5       |    |		Execute	Vector,Field_Reference
010d 01d6       |    |		Execute	Vector,Field_Write
010e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
010f 0000       |    |		.XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118       |    |		.CONST	0x0118								; Address of begin
0111 012e       | .  |		.CONST	0x012e								; Address of exception handler
0112 0002       |    |		.CONST	0x0002								; Number of locals
0113			INIT_0110:
0113 e009       |    |		Load	0x0,0x9
0114 03bc       |    |		Declare_Variable	Access,By_Allocation
0115 00d8       |    |		Load_Top	At_Offset_0
0116 0227       | '  |		Execute	Access,All_Reference
0117 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0118			BODY_0110:
0118 00db       |    |		Load_Top	At_Offset_3
0119 00d9       |    |		Load_Top	At_Offset_1
011a 0227       | '  |		Execute	Access,All_Reference
011b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
011c 00db       |    |		Load_Top	At_Offset_3
011d 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
011e 6809       |h   |		Jump_Zero	0x128
011f 4800       |H   |		Short_Literal	0x0
0120 e5ff       |    |		Load	0x2,-0x1
0121 0aff       |    |		Execute_Immediate	Plus,-0x1
0122 e00a       |    |		Load	0x0,0xa
0123 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0124 00d9       |    |		Load_Top	At_Offset_1
0125 0227       | '  |		Execute	Access,All_Reference
0126 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0127 7804       |x   |		Jump	0x12c
0128 e00a       |    |		Load	0x0,0xa
0129 00d9       |    |		Load_Top	At_Offset_1
012a 0227       | '  |		Execute	Access,All_Reference
012b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
012c 00d8       |    |		Load_Top	At_Offset_0
012d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012e			TRAP_0110:
012e 0007       |    |		Action	Break_Optional
012f 00d9       |    |		Load_Top	At_Offset_1
0130 8010       |    |		Call	0x0,0x10
0131 003a       | :  |		Store_Top	Access,At_Offset_2
0132 00d8       |    |		Load_Top	At_Offset_0
0133 0101       |    |		Execute	Exception,Reraise
0134 0000 0000  |    |		.BLANK	0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 014e       | N  |		.CONST	0x014e								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0006       |    |		.CONST	0x0006								; Number of locals
013b			INIT_0138:
013b e007       |    |		Load	0x0,0x7
013c 02ff       |    |		Declare_Variable	Variant_Record
013d 00d8       |    |		Load_Top	At_Offset_0
013e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
013f e5fe       |    |		Load	0x2,-0x2
0140 0227       | '  |		Execute	Access,All_Reference
0141 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0142 e011       |    |		Load	0x0,0x11
0143 012c       | ,  |		Execute	Any,Size
0144 0271       | q  |		Execute	Discrete,Times
0145 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
0146 e003       |    |		Load	0x0,0x3
0147 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0148 e008       |    |		Load	0x0,0x8
0149 0007       |    |		Action	Break_Optional
014a e012       |    |		Load	0x0,0x12
014b 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
014c 029f 022b  |   +|		Declare_Subprogram	INIT_0228,For_Call
014e			BODY_0138:
014e e5ff       |    |		Load	0x2,-0x1
014f 8004       |    |		Call	0x0,0x4
0150 8406       |    |		Call	0x2,0x6
0151 e5ff       |    |		Load	0x2,-0x1
0152 8005       |    |		Call	0x0,0x5
0153 e5ff       |    |		Load	0x2,-0x1
0154 8006       |    |		Call	0x0,0x6
0155 00d9       |    |		Load_Top	At_Offset_1
0156 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0157 0000       |    |		.XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0195       |    |		.CONST	0x0195								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b e402       |    |		Load	0x2,0x2
015c e013       |    |		Load	0x0,0x13
015d 0322       | "  |		Declare_Variable	Record
015e 4864       |Hd  |		Short_Literal	0x64
015f 00d9       |    |		Load_Top	At_Offset_1
0160 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0161 e013       |    |		Load	0x0,0x13
0162 012c       | ,  |		Execute	Any,Size
0163 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0164 e402       |    |		Load	0x2,0x2
0165 0a03       |    |		Execute_Immediate	Plus,0x3
0166 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
0167 00d8       |    |		Load_Top	At_Offset_0
0168 e014       |    |		Load	0x0,0x14
0169 0260       | `  |		Execute	Discrete,In_Type
016a 7001       |p   |		Jump_Nonzero	0x16c
016b 0801       |    |		Execute_Immediate	Raise,0x1
016c 0273       | s  |		Execute	Discrete,Plus
016d 00d9       |    |		Load_Top	At_Offset_1
016e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
016f 4800       |H   |		Short_Literal	0x0
0170 00d9       |    |		Load_Top	At_Offset_1
0171 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0172 4801       |H   |		Short_Literal	0x1
0173 e5fe       |    |		Load	0x2,-0x2
0174 01ab       |    |		Execute	Matrix,Length
0175 00d9       |    |		Load_Top	At_Offset_1
0176 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0177 4802       |H   |		Short_Literal	0x2
0178 e5fe       |    |		Load	0x2,-0x2
0179 01ab       |    |		Execute	Matrix,Length
017a 00d9       |    |		Load_Top	At_Offset_1
017b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
017c 4801       |H   |		Short_Literal	0x1
017d e5fe       |    |		Load	0x2,-0x2
017e 01ad       |    |		Execute	Matrix,First
017f 00d9       |    |		Load_Top	At_Offset_1
0180 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0181 e5ff       |    |		Load	0x2,-0x1
0182 e015       |    |		Load	0x0,0x15
0183 a016       |    |		Store_Unchecked	0x0,0x16
0184 e017       |    |		Load	0x0,0x17
0185 e018       |    |		Load	0x0,0x18
0186 a019       |    |		Store_Unchecked	0x0,0x19
0187 801a       |    |		Call	0x0,0x1a
0188 e5fe       |    |		Load	0x2,-0x2
0189 e5ff       |    |		Load	0x2,-0x1
018a e01b       |    |		Load	0x0,0x1b
018b e01c       |    |		Load	0x0,0x1c
018c e01d       |    |		Load	0x0,0x1d
018d e01e       |    |		Load	0x0,0x1e
018e a01f       |    |		Store_Unchecked	0x0,0x1f
018f a020       |    |		Store_Unchecked	0x0,0x20
0190 e021       | !  |		Load	0x0,0x21
0191 e022       | "  |		Load	0x0,0x22
0192 a023       | #  |		Store_Unchecked	0x0,0x23
0193 8024       | $  |		Call	0x0,0x24
0194 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0195			TRAP_0158:
0195 0007       |    |		Action	Break_Optional
0196 e5ff       |    |		Load	0x2,-0x1
0197 8005       |    |		Call	0x0,0x5
0198 00d8       |    |		Load_Top	At_Offset_0
0199 0101       |    |		Execute	Exception,Reraise
019a 0000 0000  |    |		.BLANK	0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5       |    |		.CONST	0x01a5								; Address of begin
01a1 01e5       |    |		.CONST	0x01e5								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 029f 0273  |   s|		Declare_Subprogram	INIT_0270,For_Call
01a5			BODY_01a0:
01a5 e025       | %  |		Load	0x0,0x25
01a6 0322       | "  |		Declare_Variable	Record
01a7 4865       |He  |		Short_Literal	0x65
01a8 00d9       |    |		Load_Top	At_Offset_1
01a9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01aa e025       | %  |		Load	0x0,0x25
01ab 012c       | ,  |		Execute	Any,Size
01ac 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
01ad 00d9       |    |		Load_Top	At_Offset_1
01ae 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01af 4800       |H   |		Short_Literal	0x0
01b0 00d9       |    |		Load_Top	At_Offset_1
01b1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b2 4800       |H   |		Short_Literal	0x0
01b3 00d9       |    |		Load_Top	At_Offset_1
01b4 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01b5 e5fe       |    |		Load	0x2,-0x2
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01b8 e5fd       |    |		Load	0x2,-0x3
01b9 e5fe       |    |		Load	0x2,-0x2
01ba 0272       | r  |		Execute	Discrete,Minus
01bb 00d8       |    |		Load_Top	At_Offset_0
01bc e026       | &  |		Load	0x0,0x26
01bd 0260       | `  |		Execute	Discrete,In_Type
01be 7001       |p   |		Jump_Nonzero	0x1c0
01bf 0801       |    |		Execute_Immediate	Raise,0x1
01c0 0a01       |    |		Execute_Immediate	Plus,0x1
01c1 00d9       |    |		Load_Top	At_Offset_1
01c2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01c3 e5ff       |    |		Load	0x2,-0x1
01c4 e027       | '  |		Load	0x0,0x27
01c5 a028       | (  |		Store_Unchecked	0x0,0x28
01c6 e029       | )  |		Load	0x0,0x29
01c7 e02a       | *  |		Load	0x0,0x2a
01c8 a02b       | +  |		Store_Unchecked	0x0,0x2b
01c9 802c       | ,  |		Call	0x0,0x2c
01ca e008       |    |		Load	0x0,0x8
01cb e402       |    |		Load	0x2,0x2
01cc 4800       |H   |		Short_Literal	0x0
01cd 4800       |H   |		Short_Literal	0x0
01ce 4865       |He  |		Short_Literal	0x65
01cf e5ff       |    |		Load	0x2,-0x1
01d0 e02d       | -  |		Load	0x0,0x2d
01d1 a02e       | .  |		Store_Unchecked	0x0,0x2e
01d2 a02f       | /  |		Store_Unchecked	0x0,0x2f
01d3 8030       | 0  |		Call	0x0,0x30
01d4 00d1       |    |		Pop_Control	Pop_Count_1
01d5 c403       |    |		Store	0x2,0x3
01d6 e403       |    |		Load	0x2,0x3
01d7 6804       |h   |		Jump_Zero	0x1dc
01d8 e402       |    |		Load	0x2,0x2
01d9 260d       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
01da 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01db 7007       |p   |		Jump_Nonzero	0x1e3
01dc e5ff       |    |		Load	0x2,-0x1
01dd 8005       |    |		Call	0x0,0x5
01de e5ff       |    |		Load	0x2,-0x1
01df 8006       |    |		Call	0x0,0x6
01e0 e031       | 1  |		Load	0x0,0x31
01e1 00cb       |    |		Action	Pop_Block_With_Result
01e2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01e3 8602       |    |		Call	0x3,0x2
01e4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01e5			TRAP_01a0:
01e5 0007       |    |		Action	Break_Optional
01e6 e5ff       |    |		Load	0x2,-0x1
01e7 8005       |    |		Call	0x0,0x5
01e8 00d8       |    |		Load_Top	At_Offset_0
01e9 0101       |    |		Execute	Exception,Reraise
01ea 0000 0000  |    |		.BLANK	0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5       |    |		.CONST	0x01f5								; Address of begin
01f1 021c       |    |		.CONST	0x021c								; Address of exception handler
01f2 0002       |    |		.CONST	0x0002								; Number of locals
01f3			INIT_01f0:
01f3 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
01f5			BODY_01f0:
01f5 e032       | 2  |		Load	0x0,0x32
01f6 0322       | "  |		Declare_Variable	Record
01f7 4877       |Hw  |		Short_Literal	0x77
01f8 00d9       |    |		Load_Top	At_Offset_1
01f9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01fa e032       | 2  |		Load	0x0,0x32
01fb 012c       | ,  |		Execute	Any,Size
01fc 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
01fd 00d9       |    |		Load_Top	At_Offset_1
01fe 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01ff 4800       |H   |		Short_Literal	0x0
0200 00d9       |    |		Load_Top	At_Offset_1
0201 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0202 e5ff       |    |		Load	0x2,-0x1
0203 e033       | 3  |		Load	0x0,0x33
0204 a034       | 4  |		Store_Unchecked	0x0,0x34
0205 e035       | 5  |		Load	0x0,0x35
0206 e036       | 6  |		Load	0x0,0x36
0207 a037       | 7  |		Store_Unchecked	0x0,0x37
0208 802c       | ,  |		Call	0x0,0x2c
0209 e008       |    |		Load	0x0,0x8
020a e402       |    |		Load	0x2,0x2
020b 4800       |H   |		Short_Literal	0x0
020c 4800       |H   |		Short_Literal	0x0
020d 4877       |Hw  |		Short_Literal	0x77
020e e5ff       |    |		Load	0x2,-0x1
020f e02d       | -  |		Load	0x0,0x2d
0210 a02e       | .  |		Store_Unchecked	0x0,0x2e
0211 a02f       | /  |		Store_Unchecked	0x0,0x2f
0212 8030       | 0  |		Call	0x0,0x30
0213 00d1       |    |		Pop_Control	Pop_Count_1
0214 c404       |    |		Store	0x2,0x4
0215 e404       |    |		Load	0x2,0x4
0216 6802       |h   |		Jump_Zero	0x219
0217 8602       |    |		Call	0x3,0x2
0218 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0219 e009       |    |		Load	0x0,0x9
021a a405       |    |		Store_Unchecked	0x2,0x5
021b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021c			TRAP_01f0:
021c 0007       |    |		Action	Break_Optional
021d e5ff       |    |		Load	0x2,-0x1
021e 8005       |    |		Call	0x0,0x5
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 e403       |    |		Load	0x2,0x3
022c e038       | 8  |		Load	0x0,0x38
022d 0322       | "  |		Declare_Variable	Record
022e 4876       |Hv  |		Short_Literal	0x76
022f 00d9       |    |		Load_Top	At_Offset_1
0230 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0231 e038       | 8  |		Load	0x0,0x38
0232 012c       | ,  |		Execute	Any,Size
0233 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0234 e403       |    |		Load	0x2,0x3
0235 00d8       |    |		Load_Top	At_Offset_0
0236 e014       |    |		Load	0x0,0x14
0237 0260       | `  |		Execute	Discrete,In_Type
0238 7001       |p   |		Jump_Nonzero	0x23a
0239 0801       |    |		Execute_Immediate	Raise,0x1
023a 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
023b 0273       | s  |		Execute	Discrete,Plus
023c 00d9       |    |		Load_Top	At_Offset_1
023d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
023e e5fe       |    |		Load	0x2,-0x2
023f 0227       | '  |		Execute	Access,All_Reference
0240 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0241 00d9       |    |		Load_Top	At_Offset_1
0242 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0243 e5ff       |    |		Load	0x2,-0x1
0244 e039       | 9  |		Load	0x0,0x39
0245 a03a       | :  |		Store_Unchecked	0x0,0x3a
0246 e03b       | ;  |		Load	0x0,0x3b
0247 e03c       | <  |		Load	0x0,0x3c
0248 a03d       | =  |		Store_Unchecked	0x0,0x3d
0249 801a       |    |		Call	0x0,0x1a
024a e5fe       |    |		Load	0x2,-0x2
024b 0227       | '  |		Execute	Access,All_Reference
024c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
024d 0227       | '  |		Execute	Access,All_Reference
024e e5ff       |    |		Load	0x2,-0x1
024f e03e       | >  |		Load	0x0,0x3e
0250 e03f       | ?  |		Load	0x0,0x3f
0251 e040       | @  |		Load	0x0,0x40
0252 a041       | A  |		Store_Unchecked	0x0,0x41
0253 e042       | B  |		Load	0x0,0x42
0254 e043       | C  |		Load	0x0,0x43
0255 a044       | D  |		Store_Unchecked	0x0,0x44
0256 8045       | E  |		Call	0x0,0x45
0257 e008       |    |		Load	0x0,0x8
0258 e402       |    |		Load	0x2,0x2
0259 4801       |H   |		Short_Literal	0x1
025a 4800       |H   |		Short_Literal	0x0
025b 4876       |Hv  |		Short_Literal	0x76
025c e5ff       |    |		Load	0x2,-0x1
025d e02d       | -  |		Load	0x0,0x2d
025e a02e       | .  |		Store_Unchecked	0x0,0x2e
025f a02f       | /  |		Store_Unchecked	0x0,0x2f
0260 8030       | 0  |		Call	0x0,0x30
0261 00d1       |    |		Pop_Control	Pop_Count_1
0262 c404       |    |		Store	0x2,0x4
0263 e404       |    |		Load	0x2,0x4
0264 6804       |h   |		Jump_Zero	0x269
0265 e402       |    |		Load	0x2,0x2
0266 2628       |&(  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x28
0267 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0268 a405       |    |		Store_Unchecked	0x2,0x5
0269 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
026a			TRAP_0228:
026a 0007       |    |		Action	Break_Optional
026b e5ff       |    |		Load	0x2,-0x1
026c 8005       |    |		Call	0x0,0x5
026d 00d8       |    |		Load_Top	At_Offset_0
026e 0101       |    |		Execute	Exception,Reraise
026f 0000       |    |		.XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0292       |    |		.CONST	0x0292								; Address of begin
0271 02aa       |    |		.CONST	0x02aa								; Address of exception handler
0272 0005       |    |		.CONST	0x0005								; Number of locals
0273			INIT_0270:
0273 e031       | 1  |		Load	0x0,0x31
0274 0007       |    |		Action	Break_Optional
0275 e402       |    |		Load	0x2,0x2
0276 260d       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
0277 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0278 00d8       |    |		Load_Top	At_Offset_0
0279 e003       |    |		Load	0x0,0x3
027a 0260       | `  |		Execute	Discrete,In_Type
027b 7001       |p   |		Jump_Nonzero	0x27d
027c 0801       |    |		Execute_Immediate	Raise,0x1
027d 0902       |    |		Execute_Immediate	Binary_Scale,0x2
027e e002       |    |		Load	0x0,0x2
027f 012c       | ,  |		Execute	Any,Size
0280 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
0281 0270       | p  |		Execute	Discrete,Divide
0282 e402       |    |		Load	0x2,0x2
0283 260d       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
0284 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0285 0270       | p  |		Execute	Discrete,Divide
0286 e003       |    |		Load	0x0,0x3
0287 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0288 e5ff       |    |		Load	0x2,-0x1
0289 0227       | '  |		Execute	Access,All_Reference
028a 3c1f       |<   |		Execute	Record,Field_Read,Field_Number 0x1f
028b 00d9       |    |		Load_Top	At_Offset_1
028c 0273       | s  |		Execute	Discrete,Plus
028d 0aff       |    |		Execute_Immediate	Plus,-0x1
028e e026       | &  |		Load	0x0,0x26
028f 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0290 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
0292			BODY_0270:
0292 8805       |    |		Call	0x4,0x5
0293 00db       |    |		Load_Top	At_Offset_3
0294 0229       | )  |		Execute	Access,All_Read
0295 00d8       |    |		Load_Top	At_Offset_0
0296 e5ff       |    |		Load	0x2,-0x1
0297 e046       | F  |		Load	0x0,0x46
0298 e047       | G  |		Load	0x0,0x47
0299 e048       | H  |		Load	0x0,0x48
029a e049       | I  |		Load	0x0,0x49
029b a04a       | J  |		Store_Unchecked	0x0,0x4a
029c a04b       | K  |		Store_Unchecked	0x0,0x4b
029d e04c       | L  |		Load	0x0,0x4c
029e e04d       | M  |		Load	0x0,0x4d
029f a04e       | N  |		Store_Unchecked	0x0,0x4e
02a0 804f       | O  |		Call	0x0,0x4f
02a1 00d2       |    |		Pop_Control	Pop_Count_2
02a2 e5ff       |    |		Load	0x2,-0x1
02a3 8005       |    |		Call	0x0,0x5
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 8006       |    |		Call	0x0,0x6
02a6 00db       |    |		Load_Top	At_Offset_3
02a7 00cb       |    |		Action	Pop_Block_With_Result
02a8 00cb       |    |		Action	Pop_Block_With_Result
02a9 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02aa			TRAP_0270:
02aa 0007       |    |		Action	Break_Optional
02ab e802       |    |		Load	0x4,0x2
02ac e050       | P  |		Load	0x0,0x50
02ad e051       | Q  |		Load	0x0,0x51
02ae a052       | R  |		Store_Unchecked	0x0,0x52
02af 800f       |    |		Call	0x0,0xf
02b0 c802       |    |		Store	0x4,0x2
02b1 00d8       |    |		Load_Top	At_Offset_0
02b2 0101       |    |		Execute	Exception,Reraise
02b3 0000 0000  |    |		.BLANK	0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bd       |    |		.CONST	0x02bd								; Address of begin
02b9 02d4       |    |		.CONST	0x02d4								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb 029f 030b  |    |		Declare_Subprogram	INIT_0308,For_Call
02bd			BODY_02b8:
02bd 8802       |    |		Call	0x4,0x2
02be e403       |    |		Load	0x2,0x3
02bf 0229       | )  |		Execute	Access,All_Read
02c0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c1 0229       | )  |		Execute	Access,All_Read
02c2 00d8       |    |		Load_Top	At_Offset_0
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 e053       | S  |		Load	0x0,0x53
02c5 e054       | T  |		Load	0x0,0x54
02c6 e055       | U  |		Load	0x0,0x55
02c7 a056       | V  |		Store_Unchecked	0x0,0x56
02c8 e057       | W  |		Load	0x0,0x57
02c9 e058       | X  |		Load	0x0,0x58
02ca a059       | Y  |		Store_Unchecked	0x0,0x59
02cb 805a       | Z  |		Call	0x0,0x5a
02cc 00d2       |    |		Pop_Control	Pop_Count_2
02cd e402       |    |		Load	0x2,0x2
02ce 260e       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
02cf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d0 e403       |    |		Load	0x2,0x3
02d1 0227       | '  |		Execute	Access,All_Reference
02d2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02d3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d4			TRAP_02b8:
02d4 0007       |    |		Action	Break_Optional
02d5 e403       |    |		Load	0x2,0x3
02d6 8010       |    |		Call	0x0,0x10
02d7 c403       |    |		Store	0x2,0x3
02d8 e009       |    |		Load	0x0,0x9
02d9 a405       |    |		Store_Unchecked	0x2,0x5
02da 00d8       |    |		Load_Top	At_Offset_0
02db 0101       |    |		Execute	Exception,Reraise
02dc 0000 0000  |    |		.BLANK	0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 02f0       |    |		.CONST	0x02f0								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 e5ff       |    |		Load	0x2,-0x1
02e4 0227       | '  |		Execute	Access,All_Reference
02e5 3c1f       |<   |		Execute	Record,Field_Read,Field_Number 0x1f
02e6 e804       |    |		Load	0x4,0x4
02e7 4800       |H   |		Short_Literal	0x0
02e8 e402       |    |		Load	0x2,0x2
02e9 260d       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
02ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02eb 0aff       |    |		Execute_Immediate	Plus,-0x1
02ec e031       | 1  |		Load	0x0,0x31
02ed 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
02ee a802       |    |		Store_Unchecked	0x4,0x2
02ef 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02f0			TRAP_02e0:
02f0 0007       |    |		Action	Break_Optional
02f1 e402       |    |		Load	0x2,0x2
02f2 260d       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
02f3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02f4 00d8       |    |		Load_Top	At_Offset_0
02f5 e003       |    |		Load	0x0,0x3
02f6 0260       | `  |		Execute	Discrete,In_Type
02f7 7001       |p   |		Jump_Nonzero	0x2f9
02f8 0801       |    |		Execute_Immediate	Raise,0x1
02f9 0902       |    |		Execute_Immediate	Binary_Scale,0x2
02fa 00d8       |    |		Load_Top	At_Offset_0
02fb e003       |    |		Load	0x0,0x3
02fc 0260       | `  |		Execute	Discrete,In_Type
02fd 7001       |p   |		Jump_Nonzero	0x2ff
02fe 0801       |    |		Execute_Immediate	Raise,0x1
02ff e5ff       |    |		Load	0x2,-0x1
0300 805b       | [  |		Call	0x0,0x5b
0301 00d8       |    |		Load_Top	At_Offset_0
0302 0101       |    |		Execute	Exception,Reraise
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 031d       |    |		.CONST	0x031d								; Address of begin
0309 032e       | .  |		.CONST	0x032e								; Address of exception handler
030a 0003       |    |		.CONST	0x0003								; Number of locals
030b			INIT_0308:
030b e402       |    |		Load	0x2,0x2
030c 260e       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
030d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
030e 00d8       |    |		Load_Top	At_Offset_0
030f e003       |    |		Load	0x0,0x3
0310 0260       | `  |		Execute	Discrete,In_Type
0311 7001       |p   |		Jump_Nonzero	0x313
0312 0801       |    |		Execute_Immediate	Raise,0x1
0313 0902       |    |		Execute_Immediate	Binary_Scale,0x2
0314 e003       |    |		Load	0x0,0x3
0315 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0316 00d8       |    |		Load_Top	At_Offset_0
0317 e011       |    |		Load	0x0,0x11
0318 012c       | ,  |		Execute	Any,Size
0319 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
031a 0270       | p  |		Execute	Discrete,Divide
031b e003       |    |		Load	0x0,0x3
031c 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
031d			BODY_0308:
031d e009       |    |		Load	0x0,0x9
031e 03bc       |    |		Declare_Variable	Access,By_Allocation
031f 00d8       |    |		Load_Top	At_Offset_0
0320 0227       | '  |		Execute	Access,All_Reference
0321 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0322 a403       |    |		Store_Unchecked	0x2,0x3
0323 e403       |    |		Load	0x2,0x3
0324 a405       |    |		Store_Unchecked	0x2,0x5
0325 4800       |H   |		Short_Literal	0x0
0326 00d9       |    |		Load_Top	At_Offset_1
0327 0aff       |    |		Execute_Immediate	Plus,-0x1
0328 e00a       |    |		Load	0x0,0xa
0329 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
032a e403       |    |		Load	0x2,0x3
032b 0227       | '  |		Execute	Access,All_Reference
032c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
032d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
032e			TRAP_0308:
032e 0007       |    |		Action	Break_Optional
032f e402       |    |		Load	0x2,0x2
0330 260e       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0331 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0332 00d8       |    |		Load_Top	At_Offset_0
0333 e003       |    |		Load	0x0,0x3
0334 0260       | `  |		Execute	Discrete,In_Type
0335 7001       |p   |		Jump_Nonzero	0x337
0336 0801       |    |		Execute_Immediate	Raise,0x1
0337 0902       |    |		Execute_Immediate	Binary_Scale,0x2
0338 00d8       |    |		Load_Top	At_Offset_0
0339 e003       |    |		Load	0x0,0x3
033a 0260       | `  |		Execute	Discrete,In_Type
033b 7001       |p   |		Jump_Nonzero	0x33d
033c 0801       |    |		Execute_Immediate	Raise,0x1
033d e5ff       |    |		Load	0x2,-0x1
033e 805b       | [  |		Call	0x0,0x5b
033f 00d8       |    |		Load_Top	At_Offset_0
0340 0101       |    |		Execute	Exception,Reraise
0341 0000 0000  |    |		.BLANK	0000[0x7]
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug Table
0348 ; --------------------------------------------------------------------------------------
0348 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x68fd,0x0000,0x0001,0x0012
034e 000b 0396  |    |		.DBG4T	0x000b,0x0396,0x8000,0x0000
0352 001d 03a1  |    |		.DBG4T	0x001d,0x03a1,0x8000,0x0000
0356 0033 03ab  | 3  |		.DBG4T	0x0033,0x03ab,0x0001,0x0000
035a 0053 03b2  | S  |		.DBG4T	0x0053,0x03b2,0x0001,0x0000
035e 007b 03b7  | {  |		.DBG4T	0x007b,0x03b7,0x0001,0x0000
0362 008b 03bb  |    |		.DBG4T	0x008b,0x03bb,0x0002,0x0000
0366 009b 03c1  |    |		.DBG4T	0x009b,0x03c1,0x0002,0x0000
036a 00b3 03cc  |    |		.DBG4T	0x00b3,0x03cc,0x0001,0x0000
036e 0113 03db  |    |		.DBG4T	0x0113,0x03db,0x0002,0x0000
0372 013b 03e5  | ;  |		.DBG4T	0x013b,0x03e5,0x0002,0x0000
0376 015b 03f0  | [  |		.DBG4T	0x015b,0x03f0,0x0004,0x0000
037a 01a3 03f6  |    |		.DBG4T	0x01a3,0x03f6,0x0004,0x0000
037e 01f3 0401  |    |		.DBG4T	0x01f3,0x0401,0x0004,0x0000
0382 022b 040a  | +  |		.DBG4T	0x022b,0x040a,0x0004,0x0000
0386 0273 0413  | s  |		.DBG4T	0x0273,0x0413,0x0004,0x0000
038a 02bb 041f  |    |		.DBG4T	0x02bb,0x041f,0x0004,0x0000
038e 02e3 0427  |   '|		.DBG4T	0x02e3,0x0427,0x0004,0x0000
0392 030b 042c  |   ,|		.DBG4T	0x030b,0x042c,0x0004,0x0000
0396 ; --------------------------------------------------------------------------------------
0396 ; Debug chain
0396 ; --------------------------------------------------------------------------------------
0396 0009 0000  |    |		.DBGLEN	0x0009,0x0000
0398 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0012,0x0014,0x0016,0x0018,0x001a
03a1 ; --------------------------------------------------------------------------------------
03a1 ; Debug chain
03a1 ; --------------------------------------------------------------------------------------
03a1 0008 0000  |    |		.DBGLEN	0x0008,0x0000
03a3 001d 001f  |    |		.DBGLNO	0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b
03ab ; --------------------------------------------------------------------------------------
03ab ; Debug chain
03ab ; --------------------------------------------------------------------------------------
03ab 0001 0004  |    |		.DBGLEN	0x0001,0x0004
03ad 0033 0042  | 3 B|		.DBGLNO	0x0033,0x0042,0x0044,0x0045,0x0047
03b2 ; --------------------------------------------------------------------------------------
03b2 ; Debug chain
03b2 ; --------------------------------------------------------------------------------------
03b2 0000 0003  |    |		.DBGLEN	0x0000,0x0003
03b4 0054 005b  | T [|		.DBGLNO	0x0054,0x005b,0x0066
03b7 ; --------------------------------------------------------------------------------------
03b7 ; Debug chain
03b7 ; --------------------------------------------------------------------------------------
03b7 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03b9 007b 007f  | {  |		.DBGLNO	0x007b,0x007f
03bb ; --------------------------------------------------------------------------------------
03bb ; Debug chain
03bb ; --------------------------------------------------------------------------------------
03bb 0002 0002  |    |		.DBGLEN	0x0002,0x0002
03bd 008b 008f  |    |		.DBGLNO	0x008b,0x008f,0x0092,0x0094
03c1 ; --------------------------------------------------------------------------------------
03c1 ; Debug chain
03c1 ; --------------------------------------------------------------------------------------
03c1 0004 0005  |    |		.DBGLEN	0x0004,0x0005
03c3 009b 009f  |    |		.DBGLNO	0x009b,0x009f,0x00a1,0x00a3,0x00a6,0x00a8,0x00a9,0x00ab,0x00ad
03cc ; --------------------------------------------------------------------------------------
03cc ; Debug chain
03cc ; --------------------------------------------------------------------------------------
03cc 0002 000b  |    |		.DBGLEN	0x0002,0x000b
03ce 00b3 00b5  |    |		.DBGLNO	0x00b3,0x00b5,0x00b9,0x00c0,0x00cb,0x00cc,0x00d5,0x00de,0x00e2,0x00ea,0x00f6,0x0101,0x0105
03db ; --------------------------------------------------------------------------------------
03db ; Debug chain
03db ; --------------------------------------------------------------------------------------
03db 0001 0007  |    |		.DBGLEN	0x0001,0x0007
03dd 0113 0118  |    |		.DBGLNO	0x0113,0x0118,0x011c,0x011f,0x0128,0x012c,0x012f,0x0132
03e5 ; --------------------------------------------------------------------------------------
03e5 ; Debug chain
03e5 ; --------------------------------------------------------------------------------------
03e5 0004 0005  |    |		.DBGLEN	0x0004,0x0005
03e7 013b 013f  | ; ?|		.DBGLNO	0x013b,0x013f,0x0148,0x014a,0x014e,0x0150,0x0151,0x0153,0x0155
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug chain
03f0 ; --------------------------------------------------------------------------------------
03f0 0000 0004  |    |		.DBGLEN	0x0000,0x0004
03f2 015b 0188  | [  |		.DBGLNO	0x015b,0x0188,0x0196,0x0198
03f6 ; --------------------------------------------------------------------------------------
03f6 ; Debug chain
03f6 ; --------------------------------------------------------------------------------------
03f6 0000 0009  |    |		.DBGLEN	0x0000,0x0009
03f8 01a5 01ca  |    |		.DBGLNO	0x01a5,0x01ca,0x01d6,0x01dc,0x01de,0x01e0,0x01e3,0x01e6,0x01e8
0401 ; --------------------------------------------------------------------------------------
0401 ; Debug chain
0401 ; --------------------------------------------------------------------------------------
0401 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0403 01f5 0209  |    |		.DBGLNO	0x01f5,0x0209,0x0215,0x0217,0x0219,0x021d,0x021f
040a ; --------------------------------------------------------------------------------------
040a ; Debug chain
040a ; --------------------------------------------------------------------------------------
040a 0000 0007  |    |		.DBGLEN	0x0000,0x0007
040c 022b 024a  | + J|		.DBGLNO	0x022b,0x024a,0x0257,0x0263,0x0265,0x026b,0x026d
0413 ; --------------------------------------------------------------------------------------
0413 ; Debug chain
0413 ; --------------------------------------------------------------------------------------
0413 0003 0007  |    |		.DBGLEN	0x0003,0x0007
0415 0273 0275  | s u|		.DBGLNO	0x0273,0x0275,0x0288,0x0292,0x0293,0x02a2,0x02a4,0x02a6,0x02ab,0x02b1
041f ; --------------------------------------------------------------------------------------
041f ; Debug chain
041f ; --------------------------------------------------------------------------------------
041f 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0421 02bd 02be  |    |		.DBGLNO	0x02bd,0x02be,0x02cd,0x02d5,0x02d8,0x02da
0427 ; --------------------------------------------------------------------------------------
0427 ; Debug chain
0427 ; --------------------------------------------------------------------------------------
0427 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0429 02e3 02f1  |    |		.DBGLNO	0x02e3,0x02f1,0x0301
042c ; --------------------------------------------------------------------------------------
042c ; Debug chain
042c ; --------------------------------------------------------------------------------------
042c 0002 0005  |    |		.DBGLEN	0x0002,0x0005
042e 030b 0316  |    |		.DBGLNO	0x030b,0x0316,0x031d,0x0323,0x0325,0x032f,0x033f
0435 0000 0000  |    |		.BLANK	0000[0x1cb]