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

⟦74e25e05f⟧

    Length: 2048 (0x800)
    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 01b0       |    |		.CONST	0x01b0								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001c       |    |		.CONST	0x001c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated
000f 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated
0011 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
0013 00bf       |    |		Action	Accept_Activation
0014 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0015 00c7       |    |		Action	Elaborate_Subprogram
0016 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001b 00c7       |    |		Action	Elaborate_Subprogram
001c			BODY_0008:
001c 00bc       |    |		Action	Signal_Activated
001d 00bb       |    |		Action	Signal_Completion
001e 0000 0000  |    |		.XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0025       | %  |		.CONST	0x0025								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0002       |    |		.CONST	0x0002								; Number of locals
0023			INIT_0020:
0023 029f 007b  |   {|		Declare_Subprogram	INIT_0078,For_Call
0025			BODY_0020:
0025 00db       |    |		Load_Top	At_Offset_3
0026 8002       |    |		Call	0x0,0x2
0027 8402       |    |		Call	0x2,0x2
0028 00db       |    |		Load_Top	At_Offset_3
0029 8003       |    |		Call	0x0,0x3
002a 00db       |    |		Load_Top	At_Offset_3
002b 8004       |    |		Call	0x0,0x4
002c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
002d 0000 0000  |    |		.XXX[0x3]
002f 0000       |    |
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 003a       | :  |		.CONST	0x003a								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0004       |    |		.CONST	0x0004								; Number of locals
0033			INIT_0030:
0033 e005       |    |		Load	0x0,0x5
0034 02ff       |    |		Declare_Variable	Variant_Record
0035 00d8       |    |		Load_Top	At_Offset_0
0036 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0037 e006       |    |		Load	0x0,0x6
0038 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
003a			BODY_0030:
003a e5ff       |    |		Load	0x2,-0x1
003b 8002       |    |		Call	0x0,0x2
003c 8404       |    |		Call	0x2,0x4
003d e5ff       |    |		Load	0x2,-0x1
003e 8003       |    |		Call	0x0,0x3
003f e5ff       |    |		Load	0x2,-0x1
0040 8004       |    |		Call	0x0,0x4
0041 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0042 0000 0000  |    |		.BLANK	0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0052       | R  |		.CONST	0x0052								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0004       |    |		.CONST	0x0004								; Number of locals
004b			INIT_0048:
004b e005       |    |		Load	0x0,0x5
004c 02ff       |    |		Declare_Variable	Variant_Record
004d 00d8       |    |		Load_Top	At_Offset_0
004e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004f e006       |    |		Load	0x0,0x6
0050 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0052			BODY_0048:
0052 e5ff       |    |		Load	0x2,-0x1
0053 8002       |    |		Call	0x0,0x2
0054 8404       |    |		Call	0x2,0x4
0055 e5ff       |    |		Load	0x2,-0x1
0056 8003       |    |		Call	0x0,0x3
0057 e5ff       |    |		Load	0x2,-0x1
0058 8004       |    |		Call	0x0,0x4
0059 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
005a 0000 0000  |    |		.BLANK	0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006a       | j  |		.CONST	0x006a								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0004       |    |		.CONST	0x0004								; Number of locals
0063			INIT_0060:
0063 e005       |    |		Load	0x0,0x5
0064 02ff       |    |		Declare_Variable	Variant_Record
0065 00d8       |    |		Load_Top	At_Offset_0
0066 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0067 e006       |    |		Load	0x0,0x6
0068 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
006a			BODY_0060:
006a e5ff       |    |		Load	0x2,-0x1
006b 8002       |    |		Call	0x0,0x2
006c 8404       |    |		Call	0x2,0x4
006d e5ff       |    |		Load	0x2,-0x1
006e 8003       |    |		Call	0x0,0x3
006f e5ff       |    |		Load	0x2,-0x1
0070 8004       |    |		Call	0x0,0x4
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 00a1       |    |		.CONST	0x00a1								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b e007       |    |		Load	0x0,0x7
007c 0322       | "  |		Declare_Variable	Record
007d 4869       |Hi  |		Short_Literal	0x69
007e 00d9       |    |		Load_Top	At_Offset_1
007f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0080 e007       |    |		Load	0x0,0x7
0081 012c       | ,  |		Execute	Any,Size
0082 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0083 00d9       |    |		Load_Top	At_Offset_1
0084 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0085 4800       |H   |		Short_Literal	0x0
0086 00d9       |    |		Load_Top	At_Offset_1
0087 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0088 e5fc       |    |		Load	0x2,-0x4
0089 00d9       |    |		Load_Top	At_Offset_1
008a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
008b e5fb       |    |		Load	0x2,-0x5
008c 00d9       |    |		Load_Top	At_Offset_1
008d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
008e e5fa       |    |		Load	0x2,-0x6
008f 00d9       |    |		Load_Top	At_Offset_1
0090 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0091 e5fe       |    |		Load	0x2,-0x2
0092 8008       |    |		Call	0x0,0x8
0093 00d9       |    |		Load_Top	At_Offset_1
0094 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0095 e5fd       |    |		Load	0x2,-0x3
0096 8008       |    |		Call	0x0,0x8
0097 00d9       |    |		Load_Top	At_Offset_1
0098 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0099 e5ff       |    |		Load	0x2,-0x1
009a e009       |    |		Load	0x0,0x9
009b a00a       |    |		Store_Unchecked	0x0,0xa
009c e00b       |    |		Load	0x0,0xb
009d e00c       |    |		Load	0x0,0xc
009e a00d       |    |		Store_Unchecked	0x0,0xd
009f 800e       |    |		Call	0x0,0xe
00a0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a1			TRAP_0078:
00a1 0007       |    |		Action	Break_Optional
00a2 e5ff       |    |		Load	0x2,-0x1
00a3 8003       |    |		Call	0x0,0x3
00a4 00d8       |    |		Load_Top	At_Offset_0
00a5 0101       |    |		Execute	Exception,Reraise
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 00e1       |    |		.CONST	0x00e1								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab e00f       |    |		Load	0x0,0xf
00ac 0322       | "  |		Declare_Variable	Record
00ad 486a       |Hj  |		Short_Literal	0x6a
00ae 00d9       |    |		Load_Top	At_Offset_1
00af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b0 e00f       |    |		Load	0x0,0xf
00b1 012c       | ,  |		Execute	Any,Size
00b2 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
00b3 00d9       |    |		Load_Top	At_Offset_1
00b4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00b5 4800       |H   |		Short_Literal	0x0
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b8 e5ff       |    |		Load	0x2,-0x1
00b9 e010       |    |		Load	0x0,0x10
00ba a011       |    |		Store_Unchecked	0x0,0x11
00bb e012       |    |		Load	0x0,0x12
00bc e013       |    |		Load	0x0,0x13
00bd a014       |    |		Store_Unchecked	0x0,0x14
00be 800e       |    |		Call	0x0,0xe
00bf e006       |    |		Load	0x0,0x6
00c0 e402       |    |		Load	0x2,0x2
00c1 4801       |H   |		Short_Literal	0x1
00c2 4800       |H   |		Short_Literal	0x0
00c3 486a       |Hj  |		Short_Literal	0x6a
00c4 e5ff       |    |		Load	0x2,-0x1
00c5 e015       |    |		Load	0x0,0x15
00c6 a016       |    |		Store_Unchecked	0x0,0x16
00c7 a017       |    |		Store_Unchecked	0x0,0x17
00c8 8018       |    |		Call	0x0,0x18
00c9 00d1       |    |		Pop_Control	Pop_Count_1
00ca c403       |    |		Store	0x2,0x3
00cb e403       |    |		Load	0x2,0x3
00cc 680d       |h   |		Jump_Zero	0xda
00cd e402       |    |		Load	0x2,0x2
00ce 2610       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10
00cf 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00d0 a5fe       |    |		Store_Unchecked	0x2,-0x2
00d1 e402       |    |		Load	0x2,0x2
00d2 2610       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10
00d3 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
00d4 a5fd       |    |		Store_Unchecked	0x2,-0x3
00d5 e402       |    |		Load	0x2,0x2
00d6 2610       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10
00d7 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
00d8 a5fc       |    |		Store_Unchecked	0x2,-0x4
00d9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00da 4800       |H   |		Short_Literal	0x0
00db a5fe       |    |		Store_Unchecked	0x2,-0x2
00dc 4800       |H   |		Short_Literal	0x0
00dd a5fd       |    |		Store_Unchecked	0x2,-0x3
00de 4800       |H   |		Short_Literal	0x0
00df a5fc       |    |		Store_Unchecked	0x2,-0x4
00e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e1			TRAP_00a8:
00e1 0007       |    |		Action	Break_Optional
00e2 e5ff       |    |		Load	0x2,-0x1
00e3 8003       |    |		Call	0x0,0x3
00e4 00d8       |    |		Load_Top	At_Offset_0
00e5 0101       |    |		Execute	Exception,Reraise
00e6 0000 0000  |    |		.XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed       |    |		.CONST	0x00ed								; Address of begin
00e9 0116       |    |		.CONST	0x0116								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
00ed			BODY_00e8:
00ed e019       |    |		Load	0x0,0x19
00ee 0322       | "  |		Declare_Variable	Record
00ef 4875       |Hu  |		Short_Literal	0x75
00f0 00d9       |    |		Load_Top	At_Offset_1
00f1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f2 e019       |    |		Load	0x0,0x19
00f3 012c       | ,  |		Execute	Any,Size
00f4 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00f7 4800       |H   |		Short_Literal	0x0
00f8 00d9       |    |		Load_Top	At_Offset_1
00f9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00fa e5ff       |    |		Load	0x2,-0x1
00fb e01a       |    |		Load	0x0,0x1a
00fc a01b       |    |		Store_Unchecked	0x0,0x1b
00fd e01c       |    |		Load	0x0,0x1c
00fe e01d       |    |		Load	0x0,0x1d
00ff a01e       |    |		Store_Unchecked	0x0,0x1e
0100 800e       |    |		Call	0x0,0xe
0101 e006       |    |		Load	0x0,0x6
0102 e402       |    |		Load	0x2,0x2
0103 4800       |H   |		Short_Literal	0x0
0104 4800       |H   |		Short_Literal	0x0
0105 4875       |Hu  |		Short_Literal	0x75
0106 e5ff       |    |		Load	0x2,-0x1
0107 e015       |    |		Load	0x0,0x15
0108 a016       |    |		Store_Unchecked	0x0,0x16
0109 a017       |    |		Store_Unchecked	0x0,0x17
010a 8018       |    |		Call	0x0,0x18
010b 00d1       |    |		Pop_Control	Pop_Count_1
010c c403       |    |		Store	0x2,0x3
010d e403       |    |		Load	0x2,0x3
010e 7005       |p   |		Jump_Nonzero	0x114
010f 4802       |H   |		Short_Literal	0x2
0110 a5fd       |    |		Store_Unchecked	0x2,-0x3
0111 e01f       |    |		Load	0x0,0x1f
0112 a5fe       |    |		Store_Unchecked	0x2,-0x2
0113 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0114 8602       |    |		Call	0x3,0x2
0115 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0116			TRAP_00e8:
0116 0007       |    |		Action	Break_Optional
0117 e5ff       |    |		Load	0x2,-0x1
0118 8003       |    |		Call	0x0,0x3
0119 00d8       |    |		Load_Top	At_Offset_0
011a 0101       |    |		Execute	Exception,Reraise
011b 0000 0000  |    |		.BLANK	0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0169       | i  |		.CONST	0x0169								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 e5fe       |    |		Load	0x2,-0x2
0124 01db       |    |		Execute	Vector,Length
0125 00d8       |    |		Load_Top	At_Offset_0
0126 e020       |    |		Load	0x0,0x20
0127 0260       | `  |		Execute	Discrete,In_Type
0128 7001       |p   |		Jump_Nonzero	0x12a
0129 0801       |    |		Execute_Immediate	Raise,0x1
012a e021       | !  |		Load	0x0,0x21
012b 0322       | "  |		Declare_Variable	Record
012c 4874       |Ht  |		Short_Literal	0x74
012d 00d9       |    |		Load_Top	At_Offset_1
012e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012f e021       | !  |		Load	0x0,0x21
0130 012c       | ,  |		Execute	Any,Size
0131 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0132 e5fe       |    |		Load	0x2,-0x2
0133 01db       |    |		Execute	Vector,Length
0134 0a03       |    |		Execute_Immediate	Plus,0x3
0135 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
0136 00d8       |    |		Load_Top	At_Offset_0
0137 e022       | "  |		Load	0x0,0x22
0138 0260       | `  |		Execute	Discrete,In_Type
0139 7001       |p   |		Jump_Nonzero	0x13b
013a 0801       |    |		Execute_Immediate	Raise,0x1
013b 0273       | s  |		Execute	Discrete,Plus
013c 00d9       |    |		Load_Top	At_Offset_1
013d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
013e e5fe       |    |		Load	0x2,-0x2
013f 01db       |    |		Execute	Vector,Length
0140 00d9       |    |		Load_Top	At_Offset_1
0141 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0142 e5ff       |    |		Load	0x2,-0x1
0143 e023       | #  |		Load	0x0,0x23
0144 a024       | $  |		Store_Unchecked	0x0,0x24
0145 e025       | %  |		Load	0x0,0x25
0146 e026       | &  |		Load	0x0,0x26
0147 a027       | '  |		Store_Unchecked	0x0,0x27
0148 8028       | (  |		Call	0x0,0x28
0149 e5fe       |    |		Load	0x2,-0x2
014a e5ff       |    |		Load	0x2,-0x1
014b e029       | )  |		Load	0x0,0x29
014c e02a       | *  |		Load	0x0,0x2a
014d e02b       | +  |		Load	0x0,0x2b
014e a02c       | ,  |		Store_Unchecked	0x0,0x2c
014f e02d       | -  |		Load	0x0,0x2d
0150 e02e       | .  |		Load	0x0,0x2e
0151 a02f       | /  |		Store_Unchecked	0x0,0x2f
0152 8030       | 0  |		Call	0x0,0x30
0153 e006       |    |		Load	0x0,0x6
0154 e402       |    |		Load	0x2,0x2
0155 4800       |H   |		Short_Literal	0x0
0156 4800       |H   |		Short_Literal	0x0
0157 4874       |Ht  |		Short_Literal	0x74
0158 e5ff       |    |		Load	0x2,-0x1
0159 e015       |    |		Load	0x0,0x15
015a a016       |    |		Store_Unchecked	0x0,0x16
015b a017       |    |		Store_Unchecked	0x0,0x17
015c 8018       |    |		Call	0x0,0x18
015d 00d1       |    |		Pop_Control	Pop_Count_1
015e c403       |    |		Store	0x2,0x3
015f e403       |    |		Load	0x2,0x3
0160 7003       |p   |		Jump_Nonzero	0x164
0161 4802       |H   |		Short_Literal	0x2
0162 a5fd       |    |		Store_Unchecked	0x2,-0x3
0163 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0164 e402       |    |		Load	0x2,0x2
0165 2629       |&)  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x29
0166 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0167 a5fd       |    |		Store_Unchecked	0x2,-0x3
0168 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0169			TRAP_0120:
0169 0007       |    |		Action	Break_Optional
016a e5ff       |    |		Load	0x2,-0x1
016b 8003       |    |		Call	0x0,0x3
016c 00d8       |    |		Load_Top	At_Offset_0
016d 0101       |    |		Execute	Exception,Reraise
016e 0000 0000  |    |		.XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0176       | v  |		.CONST	0x0176								; Address of begin
0171 0187       |    |		.CONST	0x0187								; Address of exception handler
0172 0003       |    |		.CONST	0x0003								; Number of locals
0173			INIT_0170:
0173 e01f       |    |		Load	0x0,0x1f
0174 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call
0176			BODY_0170:
0176 8803       |    |		Call	0x4,0x3
0177 00d9       |    |		Load_Top	At_Offset_1
0178 0229       | )  |		Execute	Access,All_Read
0179 00d8       |    |		Load_Top	At_Offset_0
017a e5ff       |    |		Load	0x2,-0x1
017b e031       | 1  |		Load	0x0,0x31
017c e032       | 2  |		Load	0x0,0x32
017d e033       | 3  |		Load	0x0,0x33
017e a034       | 4  |		Store_Unchecked	0x0,0x34
017f e035       | 5  |		Load	0x0,0x35
0180 e036       | 6  |		Load	0x0,0x36
0181 a037       | 7  |		Store_Unchecked	0x0,0x37
0182 8038       | 8  |		Call	0x0,0x38
0183 00d2       |    |		Pop_Control	Pop_Count_2
0184 4800       |H   |		Short_Literal	0x0
0185 a5fd       |    |		Store_Unchecked	0x2,-0x3
0186 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0187			TRAP_0170:
0187 0007       |    |		Action	Break_Optional
0188 00da       |    |		Load_Top	At_Offset_2
0189 e039       | 9  |		Load	0x0,0x39
018a e03a       | :  |		Load	0x0,0x3a
018b a03b       | ;  |		Store_Unchecked	0x0,0x3b
018c 803c       | <  |		Call	0x0,0x3c
018d 003b       | ;  |		Store_Top	Access,At_Offset_3
018e 00d8       |    |		Load_Top	At_Offset_0
018f 0101       |    |		Execute	Exception,Reraise
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 019b       |    |		.CONST	0x019b								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 4801       |H   |		Short_Literal	0x1
0194 e402       |    |		Load	0x2,0x2
0195 2611       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
0196 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0197 e01f       |    |		Load	0x0,0x1f
0198 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0199 a802       |    |		Store_Unchecked	0x4,0x2
019a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
019b			TRAP_0190:
019b 0007       |    |		Action	Break_Optional
019c e402       |    |		Load	0x2,0x2
019d 2611       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
019e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
019f 00d8       |    |		Load_Top	At_Offset_0
01a0 e020       |    |		Load	0x0,0x20
01a1 0260       | `  |		Execute	Discrete,In_Type
01a2 7001       |p   |		Jump_Nonzero	0x1a4
01a3 0801       |    |		Execute_Immediate	Raise,0x1
01a4 00d8       |    |		Load_Top	At_Offset_0
01a5 e020       |    |		Load	0x0,0x20
01a6 0260       | `  |		Execute	Discrete,In_Type
01a7 7001       |p   |		Jump_Nonzero	0x1a9
01a8 0801       |    |		Execute_Immediate	Raise,0x1
01a9 e5ff       |    |		Load	0x2,-0x1
01aa 803d       | =  |		Call	0x0,0x3d
01ab 00d8       |    |		Load_Top	At_Offset_0
01ac 0101       |    |		Execute	Exception,Reraise
01ad 0000 0000  |    |		.XXX[0x3]
01af 0000       |    |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x6912,0x0000,0x0001,0x000c
01b6 000b 01e6  |    |		.DBG4T	0x000b,0x01e6,0x8000,0x0000
01ba 0014 01ec  |    |		.DBG4T	0x0014,0x01ec,0x8000,0x0000
01be 0023 01f2  | #  |		.DBG4T	0x0023,0x01f2,0x0001,0x0000
01c2 0033 01f8  | 3  |		.DBG4T	0x0033,0x01f8,0x0001,0x0000
01c6 004b 0200  | K  |		.DBG4T	0x004b,0x0200,0x0001,0x0000
01ca 0063 0208  | c  |		.DBG4T	0x0063,0x0208,0x0001,0x0000
01ce 007b 0210  | {  |		.DBG4T	0x007b,0x0210,0x0004,0x0000
01d2 00ab 0215  |    |		.DBG4T	0x00ab,0x0215,0x0004,0x0000
01d6 00eb 0222  |   "|		.DBG4T	0x00eb,0x0222,0x0004,0x0000
01da 0123 022c  | # ,|		.DBG4T	0x0123,0x022c,0x0004,0x0000
01de 0173 0236  | s 6|		.DBG4T	0x0173,0x0236,0x0004,0x0000
01e2 0193 023e  |   >|		.DBG4T	0x0193,0x023e,0x0004,0x0000
01e6 ; --------------------------------------------------------------------------------------
01e6 ; Debug chain
01e6 ; --------------------------------------------------------------------------------------
01e6 0004 0000  |    |		.DBGLEN	0x0004,0x0000
01e8 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011
01ec ; --------------------------------------------------------------------------------------
01ec ; Debug chain
01ec ; --------------------------------------------------------------------------------------
01ec 0004 0000  |    |		.DBGLEN	0x0004,0x0000
01ee 0014 0016  |    |		.DBGLNO	0x0014,0x0016,0x0018,0x001a
01f2 ; --------------------------------------------------------------------------------------
01f2 ; Debug chain
01f2 ; --------------------------------------------------------------------------------------
01f2 0000 0004  |    |		.DBGLEN	0x0000,0x0004
01f4 0025 0027  | % '|		.DBGLNO	0x0025,0x0027,0x0028,0x002a
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug chain
01f8 ; --------------------------------------------------------------------------------------
01f8 0002 0004  |    |		.DBGLEN	0x0002,0x0004
01fa 0033 0037  | 3 7|		.DBGLNO	0x0033,0x0037,0x003a,0x003c,0x003d,0x003f
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug chain
0200 ; --------------------------------------------------------------------------------------
0200 0002 0004  |    |		.DBGLEN	0x0002,0x0004
0202 004b 004f  | K O|		.DBGLNO	0x004b,0x004f,0x0052,0x0054,0x0055,0x0057
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug chain
0208 ; --------------------------------------------------------------------------------------
0208 0002 0004  |    |		.DBGLEN	0x0002,0x0004
020a 0063 0067  | c g|		.DBGLNO	0x0063,0x0067,0x006a,0x006c,0x006d,0x006f
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug chain
0210 ; --------------------------------------------------------------------------------------
0210 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0212 007b 00a2  | {  |		.DBGLNO	0x007b,0x00a2,0x00a4
0215 ; --------------------------------------------------------------------------------------
0215 ; Debug chain
0215 ; --------------------------------------------------------------------------------------
0215 0000 000b  |    |		.DBGLEN	0x0000,0x000b
0217 00ab 00bf  |    |		.DBGLNO	0x00ab,0x00bf,0x00cb,0x00cd,0x00d1,0x00d5,0x00da,0x00dc,0x00de,0x00e2,0x00e4
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug chain
0222 ; --------------------------------------------------------------------------------------
0222 0000 0008  |    |		.DBGLEN	0x0000,0x0008
0224 00ed 0101  |    |		.DBGLNO	0x00ed,0x0101,0x010d,0x010f,0x0111,0x0114,0x0117,0x0119
022c ; --------------------------------------------------------------------------------------
022c ; Debug chain
022c ; --------------------------------------------------------------------------------------
022c 0000 0008  |    |		.DBGLEN	0x0000,0x0008
022e 0123 0149  | # I|		.DBGLNO	0x0123,0x0149,0x0153,0x015f,0x0161,0x0164,0x016a,0x016c
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug chain
0236 ; --------------------------------------------------------------------------------------
0236 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0238 0173 0176  | s v|		.DBGLNO	0x0173,0x0176,0x0177,0x0184,0x0188,0x018e
023e ; --------------------------------------------------------------------------------------
023e ; Debug chain
023e ; --------------------------------------------------------------------------------------
023e 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0240 0193 019c  |    |		.DBGLNO	0x0193,0x019c,0x01ab
0243 0000 0000  |    |		.BLANK	0000[0x1bd]