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

⟦6a7fb1ce7⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0278       | x  |		.CONST	0x0278								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004d       | M  |		.CONST	0x004d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001a       |    |		.CONST	0x001a								; Number of locals
000b			INIT_0008:
000b 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
000f 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0011 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0013 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0015 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0017 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0019 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
001b 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
001d 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
001f 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0021 e003       |    |		Load	0x0,0x3
0022 00d8       |    |		Load_Top	At_Offset_0
0023 e004       |    |		Load	0x0,0x4
0024 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0025 e005       |    |		Load	0x0,0x5
0026 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
0028 4804       |H   |		Short_Literal	0x4
0029 032e       | .  |		Declare_Type	Record,Defined,Visible
002a 00e1       |    |		Load_Encached	Boolean_Cache
002b 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
002d 4801       |H   |		Short_Literal	0x1
002e 032e       | .  |		Declare_Type	Record,Defined,Visible
002f 00bf       |    |		Action	Accept_Activation
0030 e002       |    |		Load	0x0,0x2
0031 0a01       |    |		Execute_Immediate	Plus,0x1
0032 e001       |    |		Load	0x0,0x1
0033 01d7       |    |		Execute	Vector,Field_Read
0034 02a9       |    |		Declare_Subprogram	For_Call,Unelaborated,With_Address
0035 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0036 00c7       |    |		Action	Elaborate_Subprogram
0037 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0040 00c7       |    |		Action	Elaborate_Subprogram
0041 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
004c 00c7       |    |		Action	Elaborate_Subprogram
004d			BODY_0008:
004d 00bc       |    |		Action	Signal_Activated
004e 00bb       |    |		Action	Signal_Completion
004f 0000       |    |		.XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0066       | f  |		.CONST	0x0066								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0006       |    |		.CONST	0x0006								; Number of locals
0053			INIT_0050:
0053 e5fa       |    |		Load	0x2,-0x6
0054 0217       |    |		Execute	Heap_Access,All_Reference
0055 2614       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14
0056 0007       |    |		Action	Break_Optional
0057 e006       |    |		Load	0x0,0x6
0058 6805       |h   |		Jump_Zero	0x5e
0059 e5fa       |    |		Load	0x2,-0x6
005a 0217       |    |		Execute	Heap_Access,All_Reference
005b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
005c 0e0b       |    |		Execute_Immediate	Not_Equal,0xb
005d 7802       |x   |		Jump	0x60
005e 4800       |H   |		Short_Literal	0x0
005f 0007       |    |		Action	Break_Optional
0060 e004       |    |		Load	0x0,0x4
0061 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0062 029f 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Call
0064 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
0066			BODY_0050:
0066 00db       |    |		Load_Top	At_Offset_3
0067 7003       |p   |		Jump_Nonzero	0x6b
0068 e5ff       |    |		Load	0x2,-0x1
0069 8405       |    |		Call	0x2,0x5
006a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
006b e5fa       |    |		Load	0x2,-0x6
006c 0217       |    |		Execute	Heap_Access,All_Reference
006d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
006e 0f09       |    |		Execute_Immediate	Equal,0x9
006f 681d       |h   |		Jump_Zero	0x8d
0070 e5fa       |    |		Load	0x2,-0x6
0071 0217       |    |		Execute	Heap_Access,All_Reference
0072 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0073 821a       |    |		Call	0x1,0x1a
0074 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0075 00da       |    |		Load_Top	At_Offset_2
0076 6808       |h   |		Jump_Zero	0x7f
0077 4ffd       |O   |		Short_Literal	-0x3
0078 e5fa       |    |		Load	0x2,-0x6
0079 e404       |    |		Load	0x2,0x4
007a 8009       |    |		Call	0x0,0x9
007b 00da       |    |		Load_Top	At_Offset_2
007c e402       |    |		Load	0x2,0x2
007d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
007e 780e       |x   |		Jump	0x8d
007f 4801       |H   |		Short_Literal	0x1
0080 e5fa       |    |		Load	0x2,-0x6
0081 0217       |    |		Execute	Heap_Access,All_Reference
0082 280d       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
0083 e5fc       |    |		Load	0x2,-0x4
0084 4800       |H   |		Short_Literal	0x0
0085 e5fa       |    |		Load	0x2,-0x6
0086 0217       |    |		Execute	Heap_Access,All_Reference
0087 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0088 802c       | ,  |		Call	0x0,0x2c
0089 e402       |    |		Load	0x2,0x2
008a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
008b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
008c 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
008d e5ff       |    |		Load	0x2,-0x1
008e 8405       |    |		Call	0x2,0x5
008f 4801       |H   |		Short_Literal	0x1
0090 e5fa       |    |		Load	0x2,-0x6
0091 0217       |    |		Execute	Heap_Access,All_Reference
0092 280b       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0093 e5fa       |    |		Load	0x2,-0x6
0094 0217       |    |		Execute	Heap_Access,All_Reference
0095 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0096 0f00       |    |		Execute_Immediate	Equal,0x0
0097 6804       |h   |		Jump_Zero	0x9c
0098 600b       |`   |		Indirect_Literal	Discrete,0xa4,{0xffffffff, 0x80000001}
0099 e007       |    |		Load	0x0,0x7
009a e5fa       |    |		Load	0x2,-0x6
009b 8008       |    |		Call	0x0,0x8
009c e402       |    |		Load	0x2,0x2
009d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
009e e5fc       |    |		Load	0x2,-0x4
009f e5fa       |    |		Load	0x2,-0x6
00a0 8406       |    |		Call	0x2,0x6
00a1 00d1       |    |		Pop_Control	Pop_Count_1
00a2 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00a3 0000       |    |		.XXX[0x1]
00a4 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b3       |    |		.CONST	0x00b3								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0004       |    |		.CONST	0x0004								; Number of locals
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac 0217       |    |		Execute	Heap_Access,All_Reference
00ad 2614       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14
00ae 0007       |    |		Action	Break_Optional
00af 029f 0223  |   #|		Declare_Subprogram	INIT_0220,For_Call
00b1 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
00b3			BODY_00a8:
00b3 e5fe       |    |		Load	0x2,-0x2
00b4 00d8       |    |		Load_Top	At_Offset_0
00b5 4ffd       |O   |		Short_Literal	-0x3
00b6 4802       |H   |		Short_Literal	0x2
00b7 0262       | b  |		Execute	Discrete,In_Range
00b8 6841       |hA  |		Jump_Zero	0xfa
00b9 0a03       |    |		Execute_Immediate	Plus,0x3
00ba 4605       |F   |		Jump_Case	0x6
00bb 781d       |x   |		Jump	0xd9								; case 0x0
00bc 7832       |x2  |		Jump	0xef								; case 0x1
00bd 782c       |x,  |		Jump	0xea								; case 0x2
00be 7807       |x   |		Jump	0xc6								; case 0x3
00bf 7825       |x%  |		Jump	0xe5								; case 0x4
00c0 7800       |x   |		Jump	0xc1								; case 0x5
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00c3 8403       |    |		Call	0x2,0x3
00c4 00d1       |    |		Pop_Control	Pop_Count_1
00c5 7836       |x6  |		Jump	0xfc
00c6 e5fc       |    |		Load	0x2,-0x4
00c7 e5fd       |    |		Load	0x2,-0x3
00c8 e5ff       |    |		Load	0x2,-0x1
00c9 0217       |    |		Execute	Heap_Access,All_Reference
00ca 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
00cb 800a       |    |		Call	0x0,0xa
00cc e5ff       |    |		Load	0x2,-0x1
00cd 0217       |    |		Execute	Heap_Access,All_Reference
00ce 2c0b       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
00cf 6805       |h   |		Jump_Zero	0xd5
00d0 e5fc       |    |		Load	0x2,-0x4
00d1 4ffe       |O   |		Short_Literal	-0x2
00d2 e5ff       |    |		Load	0x2,-0x1
00d3 800b       |    |		Call	0x0,0xb
00d4 7827       |x'  |		Jump	0xfc
00d5 e5fd       |    |		Load	0x2,-0x3
00d6 e5ff       |    |		Load	0x2,-0x1
00d7 800c       |    |		Call	0x0,0xc
00d8 7823       |x#  |		Jump	0xfc
00d9 e5fc       |    |		Load	0x2,-0x4
00da e5fd       |    |		Load	0x2,-0x3
00db e5ff       |    |		Load	0x2,-0x1
00dc 0217       |    |		Execute	Heap_Access,All_Reference
00dd 2614       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14
00de 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00df 800d       |    |		Call	0x0,0xd
00e0 e5fc       |    |		Load	0x2,-0x4
00e1 4ffe       |O   |		Short_Literal	-0x2
00e2 e5ff       |    |		Load	0x2,-0x1
00e3 800b       |    |		Call	0x0,0xb
00e4 7817       |x   |		Jump	0xfc
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e7 8403       |    |		Call	0x2,0x3
00e8 00d1       |    |		Pop_Control	Pop_Count_1
00e9 7812       |x   |		Jump	0xfc
00ea 00da       |    |		Load_Top	At_Offset_2
00eb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ec 8404       |    |		Call	0x2,0x4
00ed 00d1       |    |		Pop_Control	Pop_Count_1
00ee 780d       |x   |		Jump	0xfc
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f1 8404       |    |		Call	0x2,0x4
00f2 00d1       |    |		Pop_Control	Pop_Count_1
00f3 e5fc       |    |		Load	0x2,-0x4
00f4 e5fd       |    |		Load	0x2,-0x3
00f5 e5ff       |    |		Load	0x2,-0x1
00f6 0217       |    |		Execute	Heap_Access,All_Reference
00f7 2c0a       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa
00f8 800d       |    |		Call	0x0,0xd
00f9 7802       |x   |		Jump	0xfc
00fa 00d1       |    |		Pop_Control	Pop_Count_1
00fb 08e2       |    |		Execute_Immediate	Raise,0xe2
00fc e5ff       |    |		Load	0x2,-0x1
00fd 0217       |    |		Execute	Heap_Access,All_Reference
00fe 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ff 0f0b       |    |		Execute_Immediate	Equal,0xb
0100 680c       |h   |		Jump_Zero	0x10d
0101 e5ff       |    |		Load	0x2,-0x1
0102 0217       |    |		Execute	Heap_Access,All_Reference
0103 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
0104 e005       |    |		Load	0x0,0x5
0105 021e       |    |		Execute	Heap_Access,Maximum
0106 6806       |h   |		Jump_Zero	0x10d
0107 e5fc       |    |		Load	0x2,-0x4
0108 e5fd       |    |		Load	0x2,-0x3
0109 e5ff       |    |		Load	0x2,-0x1
010a 0217       |    |		Execute	Heap_Access,All_Reference
010b 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
010c 800a       |    |		Call	0x0,0xa
010d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
010e 0000 0000  |    |		.XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00db       |    |		Load_Top	At_Offset_3
0114 0b01       |    |		Execute_Immediate	Case_Compare,0x1
0115 700e       |p   |		Jump_Nonzero	0x124
0116 0b02       |    |		Execute_Immediate	Case_Compare,0x2
0117 7015       |p   |		Jump_Nonzero	0x12d
0118 4ffe       |O   |		Short_Literal	-0x2
0119 4fff       |O   |		Short_Literal	-0x1
011a 0262       | b  |		Execute	Discrete,In_Range
011b 701a       |p   |		Jump_Nonzero	0x136
011c e00e       |    |		Load	0x0,0xe
011d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011e 4807       |H   |		Short_Literal	0x7
011f 0092 025a  |   Z|		Action	Push_String_Extended,0x25a					; "Invalid id in register coverage for a loop stmt"
0121 e00f       |    |		Load	0x0,0xf
0122 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0123 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0124 00d1       |    |		Pop_Control	Pop_Count_1
0125 e010       |    |		Load	0x0,0x10
0126 00db       |    |		Load_Top	At_Offset_3
0127 0217       |    |		Execute	Heap_Access,All_Reference
0128 2614       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14
0129 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
012a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012b 8011       |    |		Call	0x0,0x11
012c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
012d 00d1       |    |		Pop_Control	Pop_Count_1
012e e010       |    |		Load	0x0,0x10
012f 00db       |    |		Load_Top	At_Offset_3
0130 0217       |    |		Execute	Heap_Access,All_Reference
0131 2614       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14
0132 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0133 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0134 8011       |    |		Call	0x0,0x11
0135 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0136 00db       |    |		Load_Top	At_Offset_3
0137 0275       | u  |		Execute	Discrete,Unary_Minus
0138 00db       |    |		Load_Top	At_Offset_3
0139 820f       |    |		Call	0x1,0xf
013a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013b 0000 0000  |    |		.BLANK	0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2
0144 0217       |    |		Execute	Heap_Access,All_Reference
0145 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0146 0e0b       |    |		Execute_Immediate	Not_Equal,0xb
0147 6802       |h   |		Jump_Zero	0x14a
0148 4802       |H   |		Short_Literal	0x2
0149 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014a 4801       |H   |		Short_Literal	0x1
014b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014c 0000 0000  |    |		.BLANK	0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 0217       |    |		Execute	Heap_Access,All_Reference
0155 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0156 0e0b       |    |		Execute_Immediate	Not_Equal,0xb
0157 6804       |h   |		Jump_Zero	0x15c
0158 e5fd       |    |		Load	0x2,-0x3
0159 e5fe       |    |		Load	0x2,-0x2
015a e5ff       |    |		Load	0x2,-0x1
015b 8008       |    |		Call	0x0,0x8
015c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 0217       |    |		Execute	Heap_Access,All_Reference
0165 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0166 0e09       |    |		Execute_Immediate	Not_Equal,0x9
0167 6805       |h   |		Jump_Zero	0x16d
0168 e5fd       |    |		Load	0x2,-0x3
0169 e5fe       |    |		Load	0x2,-0x2
016a e5ff       |    |		Load	0x2,-0x1
016b 8012       |    |		Call	0x0,0x12
016c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
016d 00db       |    |		Load_Top	At_Offset_3
016e 0219       |    |		Execute	Heap_Access,All_Read
016f 00d8       |    |		Load_Top	At_Offset_0
0170 2c0a       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa
0171 e013       |    |		Load	0x0,0x13
0172 e5ff       |    |		Load	0x2,-0x1
0173 0217       |    |		Execute	Heap_Access,All_Reference
0174 2614       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14
0175 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0176 8014       |    |		Call	0x0,0x14
0177 00d9       |    |		Load_Top	At_Offset_1
0178 280a       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
0179 00d1       |    |		Pop_Control	Pop_Count_1
017a e013       |    |		Load	0x0,0x13
017b e5fd       |    |		Load	0x2,-0x3
017c e5fe       |    |		Load	0x2,-0x2
017d 8015       |    |		Call	0x0,0x15
017e 00db       |    |		Load_Top	At_Offset_3
017f 0217       |    |		Execute	Heap_Access,All_Reference
0180 2614       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14
0181 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0182 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0183 0000 0000  |    |		.BLANK	0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c 8016       |    |		Call	0x0,0x16
018d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018e 0000 0000  |    |		.XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 4801       |H   |		Short_Literal	0x1
0194 e5fd       |    |		Load	0x2,-0x3
0195 0217       |    |		Execute	Heap_Access,All_Reference
0196 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
0197 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0198 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0199 0000 0000  |    |		.BLANK	0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a7       |    |		.CONST	0x01a7								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 0217       |    |		Execute	Heap_Access,All_Reference
01a5 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01a6 0007       |    |		Action	Break_Optional
01a7			BODY_01a0:
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a9 680d       |h   |		Jump_Zero	0x1b7
01aa 00db       |    |		Load_Top	At_Offset_3
01ab 0217       |    |		Execute	Heap_Access,All_Reference
01ac 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01ad 0217       |    |		Execute	Heap_Access,All_Reference
01ae 2614       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14
01af 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01b0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01b1 8017       |    |		Call	0x0,0x17
01b2 7004       |p   |		Jump_Nonzero	0x1b7
01b3 4800       |H   |		Short_Literal	0x0
01b4 00d9       |    |		Load_Top	At_Offset_1
01b5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b7 4801       |H   |		Short_Literal	0x1
01b8 e5ff       |    |		Load	0x2,-0x1
01b9 0217       |    |		Execute	Heap_Access,All_Reference
01ba 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01bb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01bc 0000 0000  |    |		.BLANK	0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c9       |    |		.CONST	0x01c9								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0002       |    |		.CONST	0x0002								; Number of locals
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 0217       |    |		Execute	Heap_Access,All_Reference
01c5 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01c6 0217       |    |		Execute	Heap_Access,All_Reference
01c7 2614       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14
01c8 0007       |    |		Action	Break_Optional
01c9			BODY_01c0:
01c9 00db       |    |		Load_Top	At_Offset_3
01ca 0217       |    |		Execute	Heap_Access,All_Reference
01cb 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01cc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01cd 6804       |h   |		Jump_Zero	0x1d2
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d2 00d8       |    |		Load_Top	At_Offset_0
01d3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01d4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d6 0000 0000  |    |		.XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc 0217       |    |		Execute	Heap_Access,All_Reference
01dd 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01df 0000       |    |		.XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f3       |    |		.CONST	0x01f3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0006       |    |		.CONST	0x0006								; Number of locals
01e3			INIT_01e0:
01e3 e003       |    |		Load	0x0,0x3
01e4 0322       | "  |		Declare_Variable	Record
01e5 00d8       |    |		Load_Top	At_Offset_0
01e6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e7 e018       |    |		Load	0x0,0x18
01e8 0322       | "  |		Declare_Variable	Record
01e9 e7ff       |    |		Load	0x3,-0x1
01ea 8019       |    |		Call	0x0,0x19
01eb 00d9       |    |		Load_Top	At_Offset_1
01ec 017d       | }  |		Execute	Record,Structure_Write
01ed 00d8       |    |		Load_Top	At_Offset_0
01ee 801a       |    |		Call	0x0,0x1a
01ef 00e2       |    |		Load_Encached	Integer_Cache
01f0 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01f1 e01b       |    |		Load	0x0,0x1b
01f2 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
01f3			BODY_01e0:
01f3 e403       |    |		Load	0x2,0x3
01f4 6802       |h   |		Jump_Zero	0x1f7
01f5 4fff       |O   |		Short_Literal	-0x1
01f6 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01f7 e5fa       |    |		Load	0x2,-0x6
01f8 0217       |    |		Execute	Heap_Access,All_Reference
01f9 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01fa 0f0b       |    |		Execute_Immediate	Equal,0xb
01fb 6802       |h   |		Jump_Zero	0x1fe
01fc 4803       |H   |		Short_Literal	0x3
01fd 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01fe e602       |    |		Load	0x3,0x2
01ff 00d9       |    |		Load_Top	At_Offset_1
0200 e5fb       |    |		Load	0x2,-0x5
0201 e605       |    |		Load	0x3,0x5
0202 e5fc       |    |		Load	0x2,-0x4
0203 e5fa       |    |		Load	0x2,-0x6
0204 00d8       |    |		Load_Top	At_Offset_0
0205 e604       |    |		Load	0x3,0x4
0206 e603       |    |		Load	0x3,0x3
0207 801c       |    |		Call	0x0,0x1c
0208 00d1       |    |		Pop_Control	Pop_Count_1
0209 e602       |    |		Load	0x3,0x2
020a e402       |    |		Load	0x2,0x2
020b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
020c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
020d 0000 0000  |    |		.XXX[0x3]
020f 0000       |    |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 e7fd       |    |		Load	0x3,-0x3
0214 e007       |    |		Load	0x0,0x7
0215 e7fe       |    |		Load	0x3,-0x2
0216 4ffe       |O   |		Short_Literal	-0x2
0217 e7ff       |    |		Load	0x3,-0x1
0218 801d       |    |		Call	0x0,0x1d
0219 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021a 0000 0000  |    |		.BLANK	0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 e5fe       |    |		Load	0x2,-0x2
0224 e5fd       |    |		Load	0x2,-0x3
0225 e7ff       |    |		Load	0x3,-0x1
0226 e5ff       |    |		Load	0x2,-0x1
0227 801e       |    |		Call	0x0,0x1e
0228 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0229 0000 0000  |    |		.BLANK	0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 e5fc       |    |		Load	0x2,-0x4
0234 e5fe       |    |		Load	0x2,-0x2
0235 e5ff       |    |		Load	0x2,-0x1
0236 e7ff       |    |		Load	0x3,-0x1
0237 801f       |    |		Call	0x0,0x1f
0238 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0239 0000 0000  |    |		.BLANK	0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 4601       |F   |		Jump_Case	0x2
0244 7801       |x   |		Jump	0x246								; case 0x0
0245 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0246 00da       |    |		Load_Top	At_Offset_2
0247 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0248 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0249 00da       |    |		Load_Top	At_Offset_2
024a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
024b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024c 4800       |H   |		Short_Literal	0x0
024d 00db       |    |		Load_Top	At_Offset_3
024e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
024f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 4601       |F   |		Jump_Case	0x2
0254 7801       |x   |		Jump	0x256								; case 0x0
0255 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0256 4800       |H   |		Short_Literal	0x0
0257 00db       |    |		Load_Top	At_Offset_3
0258 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0259 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
025a ; --------------------------------------------------------------------------------------
025a ; STRING TABLE
025a ; --------------------------------------------------------------------------------------
025a 0004       |    |		.STRTAB	0x0004->0x025c							; "Invalid id in register coverage for a loop stmt"
025b 0031       | 1  |		.STREND 0x0031->0x0273
025c 496e 7661  |Inva|		.STRTAB_STRINGS
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug Table
0278 ; --------------------------------------------------------------------------------------
0278 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0xa2f7,0x0000,0x0001,0x0000
027e 0000 0000  |    |		.BLANK	0000[0x182]