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

⟦58e9b24e8⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 04c8       |    |		.CONST	0x04c8								; 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 0023       | #  |		.CONST	0x0023								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000d       |    |		.CONST	0x000d								; Number of locals
000b			INIT_0008:
000b 00e1       |    |		Load_Encached	Boolean_Cache
000c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
000d 00e2       |    |		Load_Encached	Integer_Cache
000e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
000f 029f 0033  |   3|		Declare_Subprogram	INIT_0030,For_Call
0011 029f 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Call
0013 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
0015 029f 036b  |   k|		Declare_Subprogram	INIT_0368,For_Call
0017 029f 038b  |    |		Declare_Subprogram	INIT_0388,For_Call
0019 029f 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Call
001b 029f 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Call
001d 029f 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Call
001f 029f 041b  |    |		Declare_Subprogram	INIT_0418,For_Call
0021 029f 045b  |   [|		Declare_Subprogram	INIT_0458,For_Call
0023			BODY_0008:
0023 4820       |H   |		Short_Literal	0x20
0024 e5ff       |    |		Load	0x2,-0x1
0025 e002       |    |		Load	0x0,0x2
0026 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0027 840d       |    |		Call	0x2,0xd
0028 8406       |    |		Call	0x2,0x6
0029 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
002a 0000 0000  |    |		.BLANK	0000[0x6]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0035       | 5  |		.CONST	0x0035								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0002       |    |		.CONST	0x0002								; Number of locals
0033			INIT_0030:
0033 e214       |    |		Load	0x1,0x14
0034 0322       | "  |		Declare_Variable	Record
0035			BODY_0030:
0035 e7fd       |    |		Load	0x3,-0x3
0036 0d64       | d  |		Execute_Immediate	Less,0x64
0037 6810       |h   |		Jump_Zero	0x48
0038 e7fd       |    |		Load	0x3,-0x3
0039 606e       |`n  |		Indirect_Literal	Discrete,0xa8,{0x00000000, 0x0000076c}
003a 0273       | s  |		Execute	Discrete,Plus
003b 00d8       |    |		Load_Top	At_Offset_0
003c 00e2       |    |		Load_Encached	Integer_Cache
003d 0260       | `  |		Execute	Discrete,In_Type
003e 7001       |p   |		Jump_Nonzero	0x40
003f 0801       |    |		Execute_Immediate	Raise,0x1
0040 00d8       |    |		Load_Top	At_Offset_0
0041 e20d       |    |		Load	0x1,0xd
0042 0260       | `  |		Execute	Discrete,In_Type
0043 7001       |p   |		Jump_Nonzero	0x45
0044 0801       |    |		Execute_Immediate	Raise,0x1
0045 00d9       |    |		Load_Top	At_Offset_1
0046 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0047 7808       |x   |		Jump	0x50
0048 e7fd       |    |		Load	0x3,-0x3
0049 00d8       |    |		Load_Top	At_Offset_0
004a e20d       |    |		Load	0x1,0xd
004b 0260       | `  |		Execute	Discrete,In_Type
004c 7001       |p   |		Jump_Nonzero	0x4e
004d 0801       |    |		Execute_Immediate	Raise,0x1
004e 00d9       |    |		Load_Top	At_Offset_1
004f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0050 00db       |    |		Load_Top	At_Offset_3
0051 0aff       |    |		Execute_Immediate	Plus,-0x1
0052 00d8       |    |		Load_Top	At_Offset_0
0053 e20e       |    |		Load	0x1,0xe
0054 0260       | `  |		Execute	Discrete,In_Type
0055 7001       |p   |		Jump_Nonzero	0x57
0056 0801       |    |		Execute_Immediate	Raise,0x1
0057 00d9       |    |		Load_Top	At_Offset_1
0058 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0059 e7fe       |    |		Load	0x3,-0x2
005a 00d8       |    |		Load_Top	At_Offset_0
005b e20f       |    |		Load	0x1,0xf
005c 0260       | `  |		Execute	Discrete,In_Type
005d 7001       |p   |		Jump_Nonzero	0x5f
005e 0801       |    |		Execute_Immediate	Raise,0x1
005f 00d9       |    |		Load_Top	At_Offset_1
0060 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0061 e7fb       |    |		Load	0x3,-0x5
0062 00d8       |    |		Load_Top	At_Offset_0
0063 e211       |    |		Load	0x1,0x11
0064 0260       | `  |		Execute	Discrete,In_Type
0065 7001       |p   |		Jump_Nonzero	0x67
0066 0801       |    |		Execute_Immediate	Raise,0x1
0067 00d9       |    |		Load_Top	At_Offset_1
0068 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0069 e7fa       |    |		Load	0x3,-0x6
006a 00d8       |    |		Load_Top	At_Offset_0
006b e212       |    |		Load	0x1,0x12
006c 0260       | `  |		Execute	Discrete,In_Type
006d 7001       |p   |		Jump_Nonzero	0x6f
006e 0801       |    |		Execute_Immediate	Raise,0x1
006f 00d9       |    |		Load_Top	At_Offset_1
0070 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0071 e7fc       |    |		Load	0x3,-0x4
0072 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0073 7024       |p$  |		Jump_Nonzero	0x98
0074 0f0c       |    |		Execute_Immediate	Equal,0xc
0075 702a       |p*  |		Jump_Nonzero	0xa0
0076 e7fc       |    |		Load	0x3,-0x4
0077 0c0d       |    |		Execute_Immediate	Greater_Equal,0xd
0078 680d       |h   |		Jump_Zero	0x86
0079 4801       |H   |		Short_Literal	0x1
007a 00d9       |    |		Load_Top	At_Offset_1
007b 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
007c e7fc       |    |		Load	0x3,-0x4
007d 0af4       |    |		Execute_Immediate	Plus,-0xc
007e 00d8       |    |		Load_Top	At_Offset_0
007f e210       |    |		Load	0x1,0x10
0080 0260       | `  |		Execute	Discrete,In_Type
0081 7001       |p   |		Jump_Nonzero	0x83
0082 0801       |    |		Execute_Immediate	Raise,0x1
0083 00d9       |    |		Load_Top	At_Offset_1
0084 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0085 7820       |x   |		Jump	0xa6
0086 e402       |    |		Load	0x2,0x2
0087 6804       |h   |		Jump_Zero	0x8c
0088 4801       |H   |		Short_Literal	0x1
0089 00d9       |    |		Load_Top	At_Offset_1
008a 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
008b 7803       |x   |		Jump	0x8f
008c 4800       |H   |		Short_Literal	0x0
008d 00d9       |    |		Load_Top	At_Offset_1
008e 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
008f e7fc       |    |		Load	0x3,-0x4
0090 00d8       |    |		Load_Top	At_Offset_0
0091 e210       |    |		Load	0x1,0x10
0092 0260       | `  |		Execute	Discrete,In_Type
0093 7001       |p   |		Jump_Nonzero	0x95
0094 0801       |    |		Execute_Immediate	Raise,0x1
0095 00d9       |    |		Load_Top	At_Offset_1
0096 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0097 780e       |x   |		Jump	0xa6
0098 00d1       |    |		Pop_Control	Pop_Count_1
0099 4800       |H   |		Short_Literal	0x0
009a 00d9       |    |		Load_Top	At_Offset_1
009b 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
009c 480c       |H   |		Short_Literal	0xc
009d 00d9       |    |		Load_Top	At_Offset_1
009e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
009f 7806       |x   |		Jump	0xa6
00a0 4801       |H   |		Short_Literal	0x1
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
00a3 480c       |H   |		Short_Literal	0xc
00a4 00d9       |    |		Load_Top	At_Offset_1
00a5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a6 00d8       |    |		Load_Top	At_Offset_0
00a7 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
00a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000076c}
00ac 0000 0000  |    |		.BLANK	0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 8215       |    |		Call	0x1,0x15
00b4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00b5 00ca       |    |		Action	Exit_Nullary_Function
00b6 0000 0000  |    |		.XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd       |    |		.CONST	0x00bd								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e214       |    |		Load	0x1,0x14
00bc 0322       | "  |		Declare_Variable	Record
00bd			BODY_00b8:
00bd 00db       |    |		Load_Top	At_Offset_3
00be 01db       |    |		Execute	Vector,Length
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 4802       |H   |		Short_Literal	0x2
00c1 4806       |H   |		Short_Literal	0x6
00c2 0262       | b  |		Execute	Discrete,In_Range
00c3 6a9c       |j   |		Jump_Zero	0x360
00c4 0b03       |    |		Execute_Immediate	Case_Compare,0x3
00c5 71a5       |q   |		Jump_Nonzero	0x26b
00c6 0b04       |    |		Execute_Immediate	Case_Compare,0x4
00c7 716c       |ql  |		Jump_Nonzero	0x234
00c8 0b05       |    |		Execute_Immediate	Case_Compare,0x5
00c9 70ad       |p   |		Jump_Nonzero	0x177
00ca 0f06       |    |		Execute_Immediate	Equal,0x6
00cb 7001       |p   |		Jump_Nonzero	0xcd
00cc 7a3a       |z:  |		Jump	0x307
00cd e403       |    |		Load	0x2,0x3
00ce 00d8       |    |		Load_Top	At_Offset_0
00cf 4800       |H   |		Short_Literal	0x0
00d0 4805       |H   |		Short_Literal	0x5
00d1 0262       | b  |		Execute	Discrete,In_Range
00d2 68a2       |h   |		Jump_Zero	0x175
00d3 4605       |F   |		Jump_Case	0x6
00d4 7869       |xi  |		Jump	0x13e								; case 0x0
00d5 781d       |x   |		Jump	0xf3								; case 0x1
00d6 7835       |x5  |		Jump	0x10c								; case 0x2
00d7 789e       |x   |		Jump	0x176								; case 0x3
00d8 784c       |xL  |		Jump	0x125								; case 0x4
00d9 7800       |x   |		Jump	0xda								; case 0x5
00da 4803       |H   |		Short_Literal	0x3
00db e7ff       |    |		Load	0x3,-0x1
00dc 01d7       |    |		Execute	Vector,Field_Read
00dd 4802       |H   |		Short_Literal	0x2
00de e7ff       |    |		Load	0x3,-0x1
00df 01d7       |    |		Execute	Vector,Field_Read
00e0 4801       |H   |		Short_Literal	0x1
00e1 e7ff       |    |		Load	0x3,-0x1
00e2 01d7       |    |		Execute	Vector,Field_Read
00e3 4806       |H   |		Short_Literal	0x6
00e4 e7ff       |    |		Load	0x3,-0x1
00e5 01d7       |    |		Execute	Vector,Field_Read
00e6 4804       |H   |		Short_Literal	0x4
00e7 e7ff       |    |		Load	0x3,-0x1
00e8 01d7       |    |		Execute	Vector,Field_Read
00e9 4805       |H   |		Short_Literal	0x5
00ea e7ff       |    |		Load	0x3,-0x1
00eb 01d7       |    |		Execute	Vector,Field_Read
00ec 00d8       |    |		Load_Top	At_Offset_0
00ed 00e4       |    |		Load_Encached	Positive_Cache
00ee 0260       | `  |		Execute	Discrete,In_Type
00ef 7001       |p   |		Jump_Nonzero	0xf1
00f0 0801       |    |		Execute_Immediate	Raise,0x1
00f1 8404       |    |		Call	0x2,0x4
00f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f3 4806       |H   |		Short_Literal	0x6
00f4 e7ff       |    |		Load	0x3,-0x1
00f5 01d7       |    |		Execute	Vector,Field_Read
00f6 4805       |H   |		Short_Literal	0x5
00f7 e7ff       |    |		Load	0x3,-0x1
00f8 01d7       |    |		Execute	Vector,Field_Read
00f9 4804       |H   |		Short_Literal	0x4
00fa e7ff       |    |		Load	0x3,-0x1
00fb 01d7       |    |		Execute	Vector,Field_Read
00fc 4803       |H   |		Short_Literal	0x3
00fd e7ff       |    |		Load	0x3,-0x1
00fe 01d7       |    |		Execute	Vector,Field_Read
00ff 4802       |H   |		Short_Literal	0x2
0100 e7ff       |    |		Load	0x3,-0x1
0101 01d7       |    |		Execute	Vector,Field_Read
0102 4801       |H   |		Short_Literal	0x1
0103 e7ff       |    |		Load	0x3,-0x1
0104 01d7       |    |		Execute	Vector,Field_Read
0105 00d8       |    |		Load_Top	At_Offset_0
0106 00e4       |    |		Load_Encached	Positive_Cache
0107 0260       | `  |		Execute	Discrete,In_Type
0108 7001       |p   |		Jump_Nonzero	0x10a
0109 0801       |    |		Execute_Immediate	Raise,0x1
010a 8404       |    |		Call	0x2,0x4
010b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010c 4806       |H   |		Short_Literal	0x6
010d e7ff       |    |		Load	0x3,-0x1
010e 01d7       |    |		Execute	Vector,Field_Read
010f 4805       |H   |		Short_Literal	0x5
0110 e7ff       |    |		Load	0x3,-0x1
0111 01d7       |    |		Execute	Vector,Field_Read
0112 4804       |H   |		Short_Literal	0x4
0113 e7ff       |    |		Load	0x3,-0x1
0114 01d7       |    |		Execute	Vector,Field_Read
0115 4803       |H   |		Short_Literal	0x3
0116 e7ff       |    |		Load	0x3,-0x1
0117 01d7       |    |		Execute	Vector,Field_Read
0118 4801       |H   |		Short_Literal	0x1
0119 e7ff       |    |		Load	0x3,-0x1
011a 01d7       |    |		Execute	Vector,Field_Read
011b 4802       |H   |		Short_Literal	0x2
011c e7ff       |    |		Load	0x3,-0x1
011d 01d7       |    |		Execute	Vector,Field_Read
011e 00d8       |    |		Load_Top	At_Offset_0
011f 00e4       |    |		Load_Encached	Positive_Cache
0120 0260       | `  |		Execute	Discrete,In_Type
0121 7001       |p   |		Jump_Nonzero	0x123
0122 0801       |    |		Execute_Immediate	Raise,0x1
0123 8404       |    |		Call	0x2,0x4
0124 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0125 4803       |H   |		Short_Literal	0x3
0126 e7ff       |    |		Load	0x3,-0x1
0127 01d7       |    |		Execute	Vector,Field_Read
0128 4802       |H   |		Short_Literal	0x2
0129 e7ff       |    |		Load	0x3,-0x1
012a 01d7       |    |		Execute	Vector,Field_Read
012b 4801       |H   |		Short_Literal	0x1
012c e7ff       |    |		Load	0x3,-0x1
012d 01d7       |    |		Execute	Vector,Field_Read
012e 4806       |H   |		Short_Literal	0x6
012f e7ff       |    |		Load	0x3,-0x1
0130 01d7       |    |		Execute	Vector,Field_Read
0131 4805       |H   |		Short_Literal	0x5
0132 e7ff       |    |		Load	0x3,-0x1
0133 01d7       |    |		Execute	Vector,Field_Read
0134 4804       |H   |		Short_Literal	0x4
0135 e7ff       |    |		Load	0x3,-0x1
0136 01d7       |    |		Execute	Vector,Field_Read
0137 00d8       |    |		Load_Top	At_Offset_0
0138 00e4       |    |		Load_Encached	Positive_Cache
0139 0260       | `  |		Execute	Discrete,In_Type
013a 7001       |p   |		Jump_Nonzero	0x13c
013b 0801       |    |		Execute_Immediate	Raise,0x1
013c 8404       |    |		Call	0x2,0x4
013d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013e 4801       |H   |		Short_Literal	0x1
013f e7ff       |    |		Load	0x3,-0x1
0140 01d7       |    |		Execute	Vector,Field_Read
0141 0c18       |    |		Execute_Immediate	Greater_Equal,0x18
0142 6819       |h   |		Jump_Zero	0x15c
0143 4806       |H   |		Short_Literal	0x6
0144 e7ff       |    |		Load	0x3,-0x1
0145 01d7       |    |		Execute	Vector,Field_Read
0146 4805       |H   |		Short_Literal	0x5
0147 e7ff       |    |		Load	0x3,-0x1
0148 01d7       |    |		Execute	Vector,Field_Read
0149 4804       |H   |		Short_Literal	0x4
014a e7ff       |    |		Load	0x3,-0x1
014b 01d7       |    |		Execute	Vector,Field_Read
014c 4801       |H   |		Short_Literal	0x1
014d e7ff       |    |		Load	0x3,-0x1
014e 01d7       |    |		Execute	Vector,Field_Read
014f 4803       |H   |		Short_Literal	0x3
0150 e7ff       |    |		Load	0x3,-0x1
0151 01d7       |    |		Execute	Vector,Field_Read
0152 4802       |H   |		Short_Literal	0x2
0153 e7ff       |    |		Load	0x3,-0x1
0154 01d7       |    |		Execute	Vector,Field_Read
0155 00d8       |    |		Load_Top	At_Offset_0
0156 00e4       |    |		Load_Encached	Positive_Cache
0157 0260       | `  |		Execute	Discrete,In_Type
0158 7001       |p   |		Jump_Nonzero	0x15a
0159 0801       |    |		Execute_Immediate	Raise,0x1
015a 8404       |    |		Call	0x2,0x4
015b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015c 4806       |H   |		Short_Literal	0x6
015d e7ff       |    |		Load	0x3,-0x1
015e 01d7       |    |		Execute	Vector,Field_Read
015f 4805       |H   |		Short_Literal	0x5
0160 e7ff       |    |		Load	0x3,-0x1
0161 01d7       |    |		Execute	Vector,Field_Read
0162 4804       |H   |		Short_Literal	0x4
0163 e7ff       |    |		Load	0x3,-0x1
0164 01d7       |    |		Execute	Vector,Field_Read
0165 4803       |H   |		Short_Literal	0x3
0166 e7ff       |    |		Load	0x3,-0x1
0167 01d7       |    |		Execute	Vector,Field_Read
0168 4802       |H   |		Short_Literal	0x2
0169 e7ff       |    |		Load	0x3,-0x1
016a 01d7       |    |		Execute	Vector,Field_Read
016b 4801       |H   |		Short_Literal	0x1
016c e7ff       |    |		Load	0x3,-0x1
016d 01d7       |    |		Execute	Vector,Field_Read
016e 00d8       |    |		Load_Top	At_Offset_0
016f 00e4       |    |		Load_Encached	Positive_Cache
0170 0260       | `  |		Execute	Discrete,In_Type
0171 7001       |p   |		Jump_Nonzero	0x173
0172 0801       |    |		Execute_Immediate	Raise,0x1
0173 8404       |    |		Call	0x2,0x4
0174 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0175 00d1       |    |		Pop_Control	Pop_Count_1
0176 08e0       |    |		Execute_Immediate	Raise,0xe0
0177 00d1       |    |		Pop_Control	Pop_Count_1
0178 e403       |    |		Load	0x2,0x3
0179 00d8       |    |		Load_Top	At_Offset_0
017a 4800       |H   |		Short_Literal	0x0
017b 4805       |H   |		Short_Literal	0x5
017c 0262       | b  |		Execute	Discrete,In_Range
017d 68b4       |h   |		Jump_Zero	0x232
017e 4605       |F   |		Jump_Case	0x6
017f 7862       |xb  |		Jump	0x1e2								; case 0x0
0180 781c       |x   |		Jump	0x19d								; case 0x1
0181 7832       |x2  |		Jump	0x1b4								; case 0x2
0182 7848       |xH  |		Jump	0x1cb								; case 0x3
0183 78af       |x   |		Jump	0x233								; case 0x4
0184 7800       |x   |		Jump	0x185								; case 0x5
0185 4803       |H   |		Short_Literal	0x3
0186 e7ff       |    |		Load	0x3,-0x1
0187 01d7       |    |		Execute	Vector,Field_Read
0188 4802       |H   |		Short_Literal	0x2
0189 e7ff       |    |		Load	0x3,-0x1
018a 01d7       |    |		Execute	Vector,Field_Read
018b 4801       |H   |		Short_Literal	0x1
018c e7ff       |    |		Load	0x3,-0x1
018d 01d7       |    |		Execute	Vector,Field_Read
018e 8215       |    |		Call	0x1,0x15
018f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0190 4804       |H   |		Short_Literal	0x4
0191 e7ff       |    |		Load	0x3,-0x1
0192 01d7       |    |		Execute	Vector,Field_Read
0193 4805       |H   |		Short_Literal	0x5
0194 e7ff       |    |		Load	0x3,-0x1
0195 01d7       |    |		Execute	Vector,Field_Read
0196 00d8       |    |		Load_Top	At_Offset_0
0197 00e4       |    |		Load_Encached	Positive_Cache
0198 0260       | `  |		Execute	Discrete,In_Type
0199 7001       |p   |		Jump_Nonzero	0x19b
019a 0801       |    |		Execute_Immediate	Raise,0x1
019b 8404       |    |		Call	0x2,0x4
019c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019d 4800       |H   |		Short_Literal	0x0
019e 4805       |H   |		Short_Literal	0x5
019f e7ff       |    |		Load	0x3,-0x1
01a0 01d7       |    |		Execute	Vector,Field_Read
01a1 4804       |H   |		Short_Literal	0x4
01a2 e7ff       |    |		Load	0x3,-0x1
01a3 01d7       |    |		Execute	Vector,Field_Read
01a4 4803       |H   |		Short_Literal	0x3
01a5 e7ff       |    |		Load	0x3,-0x1
01a6 01d7       |    |		Execute	Vector,Field_Read
01a7 4802       |H   |		Short_Literal	0x2
01a8 e7ff       |    |		Load	0x3,-0x1
01a9 01d7       |    |		Execute	Vector,Field_Read
01aa 4801       |H   |		Short_Literal	0x1
01ab e7ff       |    |		Load	0x3,-0x1
01ac 01d7       |    |		Execute	Vector,Field_Read
01ad 00d8       |    |		Load_Top	At_Offset_0
01ae 00e4       |    |		Load_Encached	Positive_Cache
01af 0260       | `  |		Execute	Discrete,In_Type
01b0 7001       |p   |		Jump_Nonzero	0x1b2
01b1 0801       |    |		Execute_Immediate	Raise,0x1
01b2 8404       |    |		Call	0x2,0x4
01b3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b4 4800       |H   |		Short_Literal	0x0
01b5 4805       |H   |		Short_Literal	0x5
01b6 e7ff       |    |		Load	0x3,-0x1
01b7 01d7       |    |		Execute	Vector,Field_Read
01b8 4804       |H   |		Short_Literal	0x4
01b9 e7ff       |    |		Load	0x3,-0x1
01ba 01d7       |    |		Execute	Vector,Field_Read
01bb 4803       |H   |		Short_Literal	0x3
01bc e7ff       |    |		Load	0x3,-0x1
01bd 01d7       |    |		Execute	Vector,Field_Read
01be 4801       |H   |		Short_Literal	0x1
01bf e7ff       |    |		Load	0x3,-0x1
01c0 01d7       |    |		Execute	Vector,Field_Read
01c1 4802       |H   |		Short_Literal	0x2
01c2 e7ff       |    |		Load	0x3,-0x1
01c3 01d7       |    |		Execute	Vector,Field_Read
01c4 00d8       |    |		Load_Top	At_Offset_0
01c5 00e4       |    |		Load_Encached	Positive_Cache
01c6 0260       | `  |		Execute	Discrete,In_Type
01c7 7001       |p   |		Jump_Nonzero	0x1c9
01c8 0801       |    |		Execute_Immediate	Raise,0x1
01c9 8404       |    |		Call	0x2,0x4
01ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cb 4800       |H   |		Short_Literal	0x0
01cc 4802       |H   |		Short_Literal	0x2
01cd e7ff       |    |		Load	0x3,-0x1
01ce 01d7       |    |		Execute	Vector,Field_Read
01cf 4801       |H   |		Short_Literal	0x1
01d0 e7ff       |    |		Load	0x3,-0x1
01d1 01d7       |    |		Execute	Vector,Field_Read
01d2 4805       |H   |		Short_Literal	0x5
01d3 e7ff       |    |		Load	0x3,-0x1
01d4 01d7       |    |		Execute	Vector,Field_Read
01d5 4804       |H   |		Short_Literal	0x4
01d6 e7ff       |    |		Load	0x3,-0x1
01d7 01d7       |    |		Execute	Vector,Field_Read
01d8 4803       |H   |		Short_Literal	0x3
01d9 e7ff       |    |		Load	0x3,-0x1
01da 01d7       |    |		Execute	Vector,Field_Read
01db 00d8       |    |		Load_Top	At_Offset_0
01dc 00e4       |    |		Load_Encached	Positive_Cache
01dd 0260       | `  |		Execute	Discrete,In_Type
01de 7001       |p   |		Jump_Nonzero	0x1e0
01df 0801       |    |		Execute_Immediate	Raise,0x1
01e0 8404       |    |		Call	0x2,0x4
01e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e2 4801       |H   |		Short_Literal	0x1
01e3 e7ff       |    |		Load	0x3,-0x1
01e4 01d7       |    |		Execute	Vector,Field_Read
01e5 0c18       |    |		Execute_Immediate	Greater_Equal,0x18
01e6 6817       |h   |		Jump_Zero	0x1fe
01e7 4800       |H   |		Short_Literal	0x0
01e8 4805       |H   |		Short_Literal	0x5
01e9 e7ff       |    |		Load	0x3,-0x1
01ea 01d7       |    |		Execute	Vector,Field_Read
01eb 4804       |H   |		Short_Literal	0x4
01ec e7ff       |    |		Load	0x3,-0x1
01ed 01d7       |    |		Execute	Vector,Field_Read
01ee 4801       |H   |		Short_Literal	0x1
01ef e7ff       |    |		Load	0x3,-0x1
01f0 01d7       |    |		Execute	Vector,Field_Read
01f1 4803       |H   |		Short_Literal	0x3
01f2 e7ff       |    |		Load	0x3,-0x1
01f3 01d7       |    |		Execute	Vector,Field_Read
01f4 4802       |H   |		Short_Literal	0x2
01f5 e7ff       |    |		Load	0x3,-0x1
01f6 01d7       |    |		Execute	Vector,Field_Read
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 00e4       |    |		Load_Encached	Positive_Cache
01f9 0260       | `  |		Execute	Discrete,In_Type
01fa 7001       |p   |		Jump_Nonzero	0x1fc
01fb 0801       |    |		Execute_Immediate	Raise,0x1
01fc 8404       |    |		Call	0x2,0x4
01fd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fe 4803       |H   |		Short_Literal	0x3
01ff e7ff       |    |		Load	0x3,-0x1
0200 01d7       |    |		Execute	Vector,Field_Read
0201 0c18       |    |		Execute_Immediate	Greater_Equal,0x18
0202 6817       |h   |		Jump_Zero	0x21a
0203 4800       |H   |		Short_Literal	0x0
0204 4805       |H   |		Short_Literal	0x5
0205 e7ff       |    |		Load	0x3,-0x1
0206 01d7       |    |		Execute	Vector,Field_Read
0207 4804       |H   |		Short_Literal	0x4
0208 e7ff       |    |		Load	0x3,-0x1
0209 01d7       |    |		Execute	Vector,Field_Read
020a 4803       |H   |		Short_Literal	0x3
020b e7ff       |    |		Load	0x3,-0x1
020c 01d7       |    |		Execute	Vector,Field_Read
020d 4802       |H   |		Short_Literal	0x2
020e e7ff       |    |		Load	0x3,-0x1
020f 01d7       |    |		Execute	Vector,Field_Read
0210 4801       |H   |		Short_Literal	0x1
0211 e7ff       |    |		Load	0x3,-0x1
0212 01d7       |    |		Execute	Vector,Field_Read
0213 00d8       |    |		Load_Top	At_Offset_0
0214 00e4       |    |		Load_Encached	Positive_Cache
0215 0260       | `  |		Execute	Discrete,In_Type
0216 7001       |p   |		Jump_Nonzero	0x218
0217 0801       |    |		Execute_Immediate	Raise,0x1
0218 8404       |    |		Call	0x2,0x4
0219 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021a 4805       |H   |		Short_Literal	0x5
021b e7ff       |    |		Load	0x3,-0x1
021c 01d7       |    |		Execute	Vector,Field_Read
021d 4804       |H   |		Short_Literal	0x4
021e e7ff       |    |		Load	0x3,-0x1
021f 01d7       |    |		Execute	Vector,Field_Read
0220 4803       |H   |		Short_Literal	0x3
0221 e7ff       |    |		Load	0x3,-0x1
0222 01d7       |    |		Execute	Vector,Field_Read
0223 8215       |    |		Call	0x1,0x15
0224 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0225 4802       |H   |		Short_Literal	0x2
0226 e7ff       |    |		Load	0x3,-0x1
0227 01d7       |    |		Execute	Vector,Field_Read
0228 4801       |H   |		Short_Literal	0x1
0229 e7ff       |    |		Load	0x3,-0x1
022a 01d7       |    |		Execute	Vector,Field_Read
022b 00d8       |    |		Load_Top	At_Offset_0
022c 00e4       |    |		Load_Encached	Positive_Cache
022d 0260       | `  |		Execute	Discrete,In_Type
022e 7001       |p   |		Jump_Nonzero	0x230
022f 0801       |    |		Execute_Immediate	Raise,0x1
0230 8404       |    |		Call	0x2,0x4
0231 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0232 00d1       |    |		Pop_Control	Pop_Count_1
0233 08e0       |    |		Execute_Immediate	Raise,0xe0
0234 00d1       |    |		Pop_Control	Pop_Count_1
0235 e403       |    |		Load	0x2,0x3
0236 00d8       |    |		Load_Top	At_Offset_0
0237 4800       |H   |		Short_Literal	0x0
0238 4801       |H   |		Short_Literal	0x1
0239 0262       | b  |		Execute	Discrete,In_Range
023a 7003       |p   |		Jump_Nonzero	0x23e
023b 0f02       |    |		Execute_Immediate	Equal,0x2
023c 7018       |p   |		Jump_Nonzero	0x255
023d 08e0       |    |		Execute_Immediate	Raise,0xe0
023e 00d1       |    |		Pop_Control	Pop_Count_1
023f 4800       |H   |		Short_Literal	0x0
0240 4804       |H   |		Short_Literal	0x4
0241 e7ff       |    |		Load	0x3,-0x1
0242 01d7       |    |		Execute	Vector,Field_Read
0243 4803       |H   |		Short_Literal	0x3
0244 e7ff       |    |		Load	0x3,-0x1
0245 01d7       |    |		Execute	Vector,Field_Read
0246 8215       |    |		Call	0x1,0x15
0247 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0248 4802       |H   |		Short_Literal	0x2
0249 e7ff       |    |		Load	0x3,-0x1
024a 01d7       |    |		Execute	Vector,Field_Read
024b 4801       |H   |		Short_Literal	0x1
024c e7ff       |    |		Load	0x3,-0x1
024d 01d7       |    |		Execute	Vector,Field_Read
024e 00d8       |    |		Load_Top	At_Offset_0
024f 00e4       |    |		Load_Encached	Positive_Cache
0250 0260       | `  |		Execute	Discrete,In_Type
0251 7001       |p   |		Jump_Nonzero	0x253
0252 0801       |    |		Execute_Immediate	Raise,0x1
0253 8404       |    |		Call	0x2,0x4
0254 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0255 4800       |H   |		Short_Literal	0x0
0256 4804       |H   |		Short_Literal	0x4
0257 e7ff       |    |		Load	0x3,-0x1
0258 01d7       |    |		Execute	Vector,Field_Read
0259 4803       |H   |		Short_Literal	0x3
025a e7ff       |    |		Load	0x3,-0x1
025b 01d7       |    |		Execute	Vector,Field_Read
025c 8215       |    |		Call	0x1,0x15
025d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
025e 4801       |H   |		Short_Literal	0x1
025f e7ff       |    |		Load	0x3,-0x1
0260 01d7       |    |		Execute	Vector,Field_Read
0261 4802       |H   |		Short_Literal	0x2
0262 e7ff       |    |		Load	0x3,-0x1
0263 01d7       |    |		Execute	Vector,Field_Read
0264 00d8       |    |		Load_Top	At_Offset_0
0265 00e4       |    |		Load_Encached	Positive_Cache
0266 0260       | `  |		Execute	Discrete,In_Type
0267 7001       |p   |		Jump_Nonzero	0x269
0268 0801       |    |		Execute_Immediate	Raise,0x1
0269 8404       |    |		Call	0x2,0x4
026a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026b 00d1       |    |		Pop_Control	Pop_Count_1
026c 8215       |    |		Call	0x1,0x15
026d 00d9       |    |		Load_Top	At_Offset_1
026e 017d       | }  |		Execute	Record,Structure_Write
026f e403       |    |		Load	0x2,0x3
0270 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0271 7005       |p   |		Jump_Nonzero	0x277
0272 0b01       |    |		Execute_Immediate	Case_Compare,0x1
0273 705e       |p^  |		Jump_Nonzero	0x2d2
0274 0f02       |    |		Execute_Immediate	Equal,0x2
0275 7077       |pw  |		Jump_Nonzero	0x2ed
0276 08e0       |    |		Execute_Immediate	Raise,0xe0
0277 00d1       |    |		Pop_Control	Pop_Count_1
0278 4801       |H   |		Short_Literal	0x1
0279 e7ff       |    |		Load	0x3,-0x1
027a 01d7       |    |		Execute	Vector,Field_Read
027b 0c18       |    |		Execute_Immediate	Greater_Equal,0x18
027c 681a       |h   |		Jump_Zero	0x297
027d 00d8       |    |		Load_Top	At_Offset_0
027e 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
027f 0f01       |    |		Execute_Immediate	Equal,0x1
0280 a402       |    |		Store_Unchecked	0x2,0x2
0281 00d8       |    |		Load_Top	At_Offset_0
0282 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0283 00d9       |    |		Load_Top	At_Offset_1
0284 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0285 00da       |    |		Load_Top	At_Offset_2
0286 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0287 4801       |H   |		Short_Literal	0x1
0288 e7ff       |    |		Load	0x3,-0x1
0289 01d7       |    |		Execute	Vector,Field_Read
028a 4803       |H   |		Short_Literal	0x3
028b e7ff       |    |		Load	0x3,-0x1
028c 01d7       |    |		Execute	Vector,Field_Read
028d 4802       |H   |		Short_Literal	0x2
028e e7ff       |    |		Load	0x3,-0x1
028f 01d7       |    |		Execute	Vector,Field_Read
0290 00d8       |    |		Load_Top	At_Offset_0
0291 00e4       |    |		Load_Encached	Positive_Cache
0292 0260       | `  |		Execute	Discrete,In_Type
0293 7001       |p   |		Jump_Nonzero	0x295
0294 0801       |    |		Execute_Immediate	Raise,0x1
0295 8404       |    |		Call	0x2,0x4
0296 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0297 4803       |H   |		Short_Literal	0x3
0298 e7ff       |    |		Load	0x3,-0x1
0299 01d7       |    |		Execute	Vector,Field_Read
029a 0c3c       | <  |		Execute_Immediate	Greater_Equal,0x3c
029b 681a       |h   |		Jump_Zero	0x2b6
029c 00d8       |    |		Load_Top	At_Offset_0
029d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
029e 0f01       |    |		Execute_Immediate	Equal,0x1
029f a402       |    |		Store_Unchecked	0x2,0x2
02a0 00d8       |    |		Load_Top	At_Offset_0
02a1 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02a2 00d9       |    |		Load_Top	At_Offset_1
02a3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02a6 4803       |H   |		Short_Literal	0x3
02a7 e7ff       |    |		Load	0x3,-0x1
02a8 01d7       |    |		Execute	Vector,Field_Read
02a9 4802       |H   |		Short_Literal	0x2
02aa e7ff       |    |		Load	0x3,-0x1
02ab 01d7       |    |		Execute	Vector,Field_Read
02ac 4801       |H   |		Short_Literal	0x1
02ad e7ff       |    |		Load	0x3,-0x1
02ae 01d7       |    |		Execute	Vector,Field_Read
02af 00d8       |    |		Load_Top	At_Offset_0
02b0 00e4       |    |		Load_Encached	Positive_Cache
02b1 0260       | `  |		Execute	Discrete,In_Type
02b2 7001       |p   |		Jump_Nonzero	0x2b4
02b3 0801       |    |		Execute_Immediate	Raise,0x1
02b4 8404       |    |		Call	0x2,0x4
02b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b6 4803       |H   |		Short_Literal	0x3
02b7 e7ff       |    |		Load	0x3,-0x1
02b8 01d7       |    |		Execute	Vector,Field_Read
02b9 4802       |H   |		Short_Literal	0x2
02ba e7ff       |    |		Load	0x3,-0x1
02bb 01d7       |    |		Execute	Vector,Field_Read
02bc 4801       |H   |		Short_Literal	0x1
02bd e7ff       |    |		Load	0x3,-0x1
02be 01d7       |    |		Execute	Vector,Field_Read
02bf 00db       |    |		Load_Top	At_Offset_3
02c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c1 e602       |    |		Load	0x3,0x2
02c2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02c3 e602       |    |		Load	0x3,0x2
02c4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c5 0a01       |    |		Execute_Immediate	Plus,0x1
02c6 00d8       |    |		Load_Top	At_Offset_0
02c7 00e3       |    |		Load_Encached	Natural_Cache
02c8 0260       | `  |		Execute	Discrete,In_Type
02c9 7001       |p   |		Jump_Nonzero	0x2cb
02ca 0801       |    |		Execute_Immediate	Raise,0x1
02cb 00d8       |    |		Load_Top	At_Offset_0
02cc 00e4       |    |		Load_Encached	Positive_Cache
02cd 0260       | `  |		Execute	Discrete,In_Type
02ce 7001       |p   |		Jump_Nonzero	0x2d0
02cf 0801       |    |		Execute_Immediate	Raise,0x1
02d0 8404       |    |		Call	0x2,0x4
02d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d2 00d1       |    |		Pop_Control	Pop_Count_1
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
02d5 0f01       |    |		Execute_Immediate	Equal,0x1
02d6 a402       |    |		Store_Unchecked	0x2,0x2
02d7 00d8       |    |		Load_Top	At_Offset_0
02d8 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02d9 00d9       |    |		Load_Top	At_Offset_1
02da 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02db 00da       |    |		Load_Top	At_Offset_2
02dc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02dd 4803       |H   |		Short_Literal	0x3
02de e7ff       |    |		Load	0x3,-0x1
02df 01d7       |    |		Execute	Vector,Field_Read
02e0 4802       |H   |		Short_Literal	0x2
02e1 e7ff       |    |		Load	0x3,-0x1
02e2 01d7       |    |		Execute	Vector,Field_Read
02e3 4801       |H   |		Short_Literal	0x1
02e4 e7ff       |    |		Load	0x3,-0x1
02e5 01d7       |    |		Execute	Vector,Field_Read
02e6 00d8       |    |		Load_Top	At_Offset_0
02e7 00e4       |    |		Load_Encached	Positive_Cache
02e8 0260       | `  |		Execute	Discrete,In_Type
02e9 7001       |p   |		Jump_Nonzero	0x2eb
02ea 0801       |    |		Execute_Immediate	Raise,0x1
02eb 8404       |    |		Call	0x2,0x4
02ec 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
02ef 0f01       |    |		Execute_Immediate	Equal,0x1
02f0 a402       |    |		Store_Unchecked	0x2,0x2
02f1 00d8       |    |		Load_Top	At_Offset_0
02f2 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02f3 00d9       |    |		Load_Top	At_Offset_1
02f4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02f5 00da       |    |		Load_Top	At_Offset_2
02f6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02f7 4803       |H   |		Short_Literal	0x3
02f8 e7ff       |    |		Load	0x3,-0x1
02f9 01d7       |    |		Execute	Vector,Field_Read
02fa 4801       |H   |		Short_Literal	0x1
02fb e7ff       |    |		Load	0x3,-0x1
02fc 01d7       |    |		Execute	Vector,Field_Read
02fd 4802       |H   |		Short_Literal	0x2
02fe e7ff       |    |		Load	0x3,-0x1
02ff 01d7       |    |		Execute	Vector,Field_Read
0300 00d8       |    |		Load_Top	At_Offset_0
0301 00e4       |    |		Load_Encached	Positive_Cache
0302 0260       | `  |		Execute	Discrete,In_Type
0303 7001       |p   |		Jump_Nonzero	0x305
0304 0801       |    |		Execute_Immediate	Raise,0x1
0305 8404       |    |		Call	0x2,0x4
0306 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0307 8215       |    |		Call	0x1,0x15
0308 00d9       |    |		Load_Top	At_Offset_1
0309 017d       | }  |		Execute	Record,Structure_Write
030a e403       |    |		Load	0x2,0x3
030b 0b00       |    |		Execute_Immediate	Case_Compare,0x0
030c 7005       |p   |		Jump_Nonzero	0x312
030d 0b01       |    |		Execute_Immediate	Case_Compare,0x1
030e 701e       |p   |		Jump_Nonzero	0x32d
030f 0f02       |    |		Execute_Immediate	Equal,0x2
0310 7036       |p6  |		Jump_Nonzero	0x347
0311 08e0       |    |		Execute_Immediate	Raise,0xe0
0312 00d1       |    |		Pop_Control	Pop_Count_1
0313 4800       |H   |		Short_Literal	0x0
0314 4802       |H   |		Short_Literal	0x2
0315 e7ff       |    |		Load	0x3,-0x1
0316 01d7       |    |		Execute	Vector,Field_Read
0317 4801       |H   |		Short_Literal	0x1
0318 e7ff       |    |		Load	0x3,-0x1
0319 01d7       |    |		Execute	Vector,Field_Read
031a 00db       |    |		Load_Top	At_Offset_3
031b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
031c e602       |    |		Load	0x3,0x2
031d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
031e e602       |    |		Load	0x3,0x2
031f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0320 0a01       |    |		Execute_Immediate	Plus,0x1
0321 00d8       |    |		Load_Top	At_Offset_0
0322 00e3       |    |		Load_Encached	Natural_Cache
0323 0260       | `  |		Execute	Discrete,In_Type
0324 7001       |p   |		Jump_Nonzero	0x326
0325 0801       |    |		Execute_Immediate	Raise,0x1
0326 00d8       |    |		Load_Top	At_Offset_0
0327 00e4       |    |		Load_Encached	Positive_Cache
0328 0260       | `  |		Execute	Discrete,In_Type
0329 7001       |p   |		Jump_Nonzero	0x32b
032a 0801       |    |		Execute_Immediate	Raise,0x1
032b 8404       |    |		Call	0x2,0x4
032c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032d 00d1       |    |		Pop_Control	Pop_Count_1
032e 00d8       |    |		Load_Top	At_Offset_0
032f 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0330 0f01       |    |		Execute_Immediate	Equal,0x1
0331 a402       |    |		Store_Unchecked	0x2,0x2
0332 00d8       |    |		Load_Top	At_Offset_0
0333 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0334 00d9       |    |		Load_Top	At_Offset_1
0335 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0336 00da       |    |		Load_Top	At_Offset_2
0337 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0338 00db       |    |		Load_Top	At_Offset_3
0339 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
033a 4802       |H   |		Short_Literal	0x2
033b e7ff       |    |		Load	0x3,-0x1
033c 01d7       |    |		Execute	Vector,Field_Read
033d 4801       |H   |		Short_Literal	0x1
033e e7ff       |    |		Load	0x3,-0x1
033f 01d7       |    |		Execute	Vector,Field_Read
0340 00d8       |    |		Load_Top	At_Offset_0
0341 00e4       |    |		Load_Encached	Positive_Cache
0342 0260       | `  |		Execute	Discrete,In_Type
0343 7001       |p   |		Jump_Nonzero	0x345
0344 0801       |    |		Execute_Immediate	Raise,0x1
0345 8404       |    |		Call	0x2,0x4
0346 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0347 00d8       |    |		Load_Top	At_Offset_0
0348 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0349 0f01       |    |		Execute_Immediate	Equal,0x1
034a a402       |    |		Store_Unchecked	0x2,0x2
034b 00d8       |    |		Load_Top	At_Offset_0
034c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
034d 00d9       |    |		Load_Top	At_Offset_1
034e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
034f 00da       |    |		Load_Top	At_Offset_2
0350 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0351 00db       |    |		Load_Top	At_Offset_3
0352 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0353 4801       |H   |		Short_Literal	0x1
0354 e7ff       |    |		Load	0x3,-0x1
0355 01d7       |    |		Execute	Vector,Field_Read
0356 4802       |H   |		Short_Literal	0x2
0357 e7ff       |    |		Load	0x3,-0x1
0358 01d7       |    |		Execute	Vector,Field_Read
0359 00d8       |    |		Load_Top	At_Offset_0
035a 00e4       |    |		Load_Encached	Positive_Cache
035b 0260       | `  |		Execute	Discrete,In_Type
035c 7001       |p   |		Jump_Nonzero	0x35e
035d 0801       |    |		Execute_Immediate	Raise,0x1
035e 8404       |    |		Call	0x2,0x4
035f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0360 00d1       |    |		Pop_Control	Pop_Count_1
0361 08e0       |    |		Execute_Immediate	Raise,0xe0
0362 0000 0000  |    |		.BLANK	0000[0x6]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b 00cf       |    |		Action	Mark_Auxiliary
036c 00db       |    |		Load_Top	At_Offset_3
036d 01dc       |    |		Execute	Vector,Last
036e e7fe       |    |		Load	0x3,-0x2
036f 0263       | c  |		Execute	Discrete,Above_Bound
0370 700d       |p   |		Jump_Nonzero	0x37e
0371 00d8       |    |		Load_Top	At_Offset_0
0372 e7ff       |    |		Load	0x3,-0x1
0373 01d7       |    |		Execute	Vector,Field_Read
0374 e236       | 6  |		Load	0x1,0x36
0375 01d7       |    |		Execute	Vector,Field_Read
0376 6805       |h   |		Jump_Zero	0x37c
0377 4801       |H   |		Short_Literal	0x1
0378 a7fc       |    |		Store_Unchecked	0x3,-0x4
0379 00d8       |    |		Load_Top	At_Offset_0
037a a7fd       |    |		Store_Unchecked	0x3,-0x3
037b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
037c 00c8       |    |		Action	Pop_Auxiliary_Range
037d 3ff3       |?   |		Loop_Increasing	0x371
037e 00ce       |    |		Action	Pop_Auxiliary
037f 00db       |    |		Load_Top	At_Offset_3
0380 a7fd       |    |		Store_Unchecked	0x3,-0x3
0381 4800       |H   |		Short_Literal	0x0
0382 a7fc       |    |		Store_Unchecked	0x3,-0x4
0383 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0384 0000 0000  |    |		.BLANK	0000[0x4]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b 00cf       |    |		Action	Mark_Auxiliary
038c 00db       |    |		Load_Top	At_Offset_3
038d 01dc       |    |		Execute	Vector,Last
038e e7fe       |    |		Load	0x3,-0x2
038f 0263       | c  |		Execute	Discrete,Above_Bound
0390 700b       |p   |		Jump_Nonzero	0x39c
0391 00d8       |    |		Load_Top	At_Offset_0
0392 e7ff       |    |		Load	0x3,-0x1
0393 01d7       |    |		Execute	Vector,Field_Read
0394 e236       | 6  |		Load	0x1,0x36
0395 01d7       |    |		Execute	Vector,Field_Read
0396 7003       |p   |		Jump_Nonzero	0x39a
0397 00d8       |    |		Load_Top	At_Offset_0
0398 a7fd       |    |		Store_Unchecked	0x3,-0x3
0399 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
039a 00c8       |    |		Action	Pop_Auxiliary_Range
039b 3ff5       |?   |		Loop_Increasing	0x391
039c 00ce       |    |		Action	Pop_Auxiliary
039d 00da       |    |		Load_Top	At_Offset_2
039e 01dc       |    |		Execute	Vector,Last
039f 0a01       |    |		Execute_Immediate	Plus,0x1
03a0 c7fd       |    |		Store	0x3,-0x3
03a1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03a2 0000 0000  |    |		.BLANK	0000[0x6]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 00cf       |    |		Action	Mark_Auxiliary
03ac 00db       |    |		Load_Top	At_Offset_3
03ad 01dc       |    |		Execute	Vector,Last
03ae e7fe       |    |		Load	0x3,-0x2
03af 0263       | c  |		Execute	Discrete,Above_Bound
03b0 7015       |p   |		Jump_Nonzero	0x3c6
03b1 00d8       |    |		Load_Top	At_Offset_0
03b2 e7ff       |    |		Load	0x3,-0x1
03b3 01d7       |    |		Execute	Vector,Field_Read
03b4 e236       | 6  |		Load	0x1,0x36
03b5 01d7       |    |		Execute	Vector,Field_Read
03b6 6802       |h   |		Jump_Zero	0x3b9
03b7 00d2       |    |		Pop_Control	Pop_Count_2
03b8 780d       |x   |		Jump	0x3c6
03b9 00d8       |    |		Load_Top	At_Offset_0
03ba e7ff       |    |		Load	0x3,-0x1
03bb 01d7       |    |		Execute	Vector,Field_Read
03bc e237       | 7  |		Load	0x1,0x37
03bd 01d7       |    |		Execute	Vector,Field_Read
03be 6805       |h   |		Jump_Zero	0x3c4
03bf 4801       |H   |		Short_Literal	0x1
03c0 a7fc       |    |		Store_Unchecked	0x3,-0x4
03c1 00d8       |    |		Load_Top	At_Offset_0
03c2 a7fd       |    |		Store_Unchecked	0x3,-0x3
03c3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03c4 00c8       |    |		Action	Pop_Auxiliary_Range
03c5 3feb       |?   |		Loop_Increasing	0x3b1
03c6 00ce       |    |		Action	Pop_Auxiliary
03c7 00db       |    |		Load_Top	At_Offset_3
03c8 a7fd       |    |		Store_Unchecked	0x3,-0x3
03c9 4800       |H   |		Short_Literal	0x0
03ca a7fc       |    |		Store_Unchecked	0x3,-0x4
03cb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03cc 0000 0000  |    |		.BLANK	0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 00cf       |    |		Action	Mark_Auxiliary
03d4 00db       |    |		Load_Top	At_Offset_3
03d5 01dc       |    |		Execute	Vector,Last
03d6 e7fe       |    |		Load	0x3,-0x2
03d7 0263       | c  |		Execute	Discrete,Above_Bound
03d8 700b       |p   |		Jump_Nonzero	0x3e4
03d9 00d8       |    |		Load_Top	At_Offset_0
03da e7ff       |    |		Load	0x3,-0x1
03db 01d7       |    |		Execute	Vector,Field_Read
03dc e237       | 7  |		Load	0x1,0x37
03dd 01d7       |    |		Execute	Vector,Field_Read
03de 7003       |p   |		Jump_Nonzero	0x3e2
03df 00d8       |    |		Load_Top	At_Offset_0
03e0 a7fd       |    |		Store_Unchecked	0x3,-0x3
03e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03e2 00c8       |    |		Action	Pop_Auxiliary_Range
03e3 3ff5       |?   |		Loop_Increasing	0x3d9
03e4 00ce       |    |		Action	Pop_Auxiliary
03e5 00da       |    |		Load_Top	At_Offset_2
03e6 01dc       |    |		Execute	Vector,Last
03e7 0a01       |    |		Execute_Immediate	Plus,0x1
03e8 c7fd       |    |		Store	0x3,-0x3
03e9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03ea 0000 0000  |    |		.BLANK	0000[0x6]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f5       |    |		.CONST	0x03f5								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0003       |    |		.CONST	0x0003								; Number of locals
03f3			INIT_03f0:
03f3 00e1       |    |		Load_Encached	Boolean_Cache
03f4 00e4       |    |		Load_Encached	Positive_Cache
03f5			BODY_03f0:
03f5 00e1       |    |		Load_Encached	Boolean_Cache
03f6 00e4       |    |		Load_Encached	Positive_Cache
03f7 e7fe       |    |		Load	0x3,-0x2
03f8 e7ff       |    |		Load	0x3,-0x1
03f9 8407       |    |		Call	0x2,0x7
03fa 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03fb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03fc 00d9       |    |		Load_Top	At_Offset_1
03fd 7005       |p   |		Jump_Nonzero	0x403
03fe 4800       |H   |		Short_Literal	0x0
03ff a7fc       |    |		Store_Unchecked	0x3,-0x4
0400 4800       |H   |		Short_Literal	0x0
0401 a7fd       |    |		Store_Unchecked	0x3,-0x3
0402 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0403 00e4       |    |		Load_Encached	Positive_Cache
0404 00d9       |    |		Load_Top	At_Offset_1
0405 e7ff       |    |		Load	0x3,-0x1
0406 8408       |    |		Call	0x2,0x8
0407 c7fe       |    |		Store	0x3,-0x2
0408 4801       |H   |		Short_Literal	0x1
0409 a7fc       |    |		Store_Unchecked	0x3,-0x4
040a 00d8       |    |		Load_Top	At_Offset_0
040b e7fe       |    |		Load	0x3,-0x2
040c 0aff       |    |		Execute_Immediate	Plus,-0x1
040d e7ff       |    |		Load	0x3,-0x1
040e 01cf       |    |		Execute	Vector,Slice_Read
040f 00e2       |    |		Load_Encached	Integer_Cache
0410 00e0       |    |		Load_Encached	Standard_Cache
0411 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0412 c7fd       |    |		Store	0x3,-0x3
0413 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0414 0000 0000  |    |		.BLANK	0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0421       | !  |		.CONST	0x0421								; Address of begin
0419 0451       | Q  |		.CONST	0x0451								; Address of exception handler
041a 0006       |    |		.CONST	0x0006								; Number of locals
041b			INIT_0418:
041b 00e1       |    |		Load_Encached	Boolean_Cache
041c 00e3       |    |		Load_Encached	Natural_Cache
041d 00e3       |    |		Load_Encached	Natural_Cache
041e 00e1       |    |		Load_Encached	Boolean_Cache
041f e20e       |    |		Load	0x1,0xe
0420 0007       |    |		Action	Break_Optional
0421			BODY_0418:
0421 00e1       |    |		Load_Encached	Boolean_Cache
0422 00e4       |    |		Load_Encached	Positive_Cache
0423 e7fe       |    |		Load	0x3,-0x2
0424 e7ff       |    |		Load	0x3,-0x1
0425 8409       |    |		Call	0x2,0x9
0426 c603       |    |		Store	0x3,0x3
0427 c602       |    |		Store	0x3,0x2
0428 e602       |    |		Load	0x3,0x2
0429 6822       |h"  |		Jump_Zero	0x44c
042a 00e4       |    |		Load_Encached	Positive_Cache
042b e603       |    |		Load	0x3,0x3
042c 00d8       |    |		Load_Top	At_Offset_0
042d 00e4       |    |		Load_Encached	Positive_Cache
042e 0260       | `  |		Execute	Discrete,In_Type
042f 7001       |p   |		Jump_Nonzero	0x431
0430 0801       |    |		Execute_Immediate	Raise,0x1
0431 e7ff       |    |		Load	0x3,-0x1
0432 840a       |    |		Call	0x2,0xa
0433 005b       | [  |		Store_Top	Discrete,At_Offset_3
0434 00e1       |    |		Load_Encached	Boolean_Cache
0435 00e1       |    |		Load_Encached	Boolean_Cache
0436 e23f       | ?  |		Load	0x1,0x3f
0437 e603       |    |		Load	0x3,0x3
0438 e604       |    |		Load	0x3,0x4
0439 0aff       |    |		Execute_Immediate	Plus,-0x1
043a e7ff       |    |		Load	0x3,-0x1
043b 01cf       |    |		Execute	Vector,Slice_Read
043c e23f       | ?  |		Load	0x1,0x3f
043d 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
043e 8003       |    |		Call	0x0,0x3
043f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0440 005b       | [  |		Store_Top	Discrete,At_Offset_3
0441 c602       |    |		Store	0x3,0x2
0442 e602       |    |		Load	0x3,0x2
0443 6808       |h   |		Jump_Zero	0x44c
0444 00d8       |    |		Load_Top	At_Offset_0
0445 0a01       |    |		Execute_Immediate	Plus,0x1
0446 c7fd       |    |		Store	0x3,-0x3
0447 00da       |    |		Load_Top	At_Offset_2
0448 c7fe       |    |		Store	0x3,-0x2
0449 4801       |H   |		Short_Literal	0x1
044a a7fc       |    |		Store_Unchecked	0x3,-0x4
044b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
044c 4800       |H   |		Short_Literal	0x0
044d a7fc       |    |		Store_Unchecked	0x3,-0x4
044e 4800       |H   |		Short_Literal	0x0
044f a7fd       |    |		Store_Unchecked	0x3,-0x3
0450 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0451			TRAP_0418:
0451 0007       |    |		Action	Break_Optional
0452 4800       |H   |		Short_Literal	0x0
0453 a7fd       |    |		Store_Unchecked	0x3,-0x3
0454 4800       |H   |		Short_Literal	0x0
0455 a7fc       |    |		Store_Unchecked	0x3,-0x4
0456 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0457 0000       |    |		.XXX[0x1]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0467       | g  |		.CONST	0x0467								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0005       |    |		.CONST	0x0005								; Number of locals
045b			INIT_0458:
045b 4801       |H   |		Short_Literal	0x1
045c 4806       |H   |		Short_Literal	0x6
045d e234       | 4  |		Load	0x1,0x34
045e 035b       | [  |		Declare_Type	Array,Constrained
045f 0337       | 7  |		Declare_Variable	Array
0460 00db       |    |		Load_Top	At_Offset_3
0461 01dd       |    |		Execute	Vector,First
0462 00e4       |    |		Load_Encached	Positive_Cache
0463 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0464 00e1       |    |		Load_Encached	Boolean_Cache
0465 00e2       |    |		Load_Encached	Integer_Cache
0466 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0467			BODY_0458:
0467 4801       |H   |		Short_Literal	0x1
0468 e7ff       |    |		Load	0x3,-0x1
0469 0092 04c5  |    |		Action	Push_String_Extended,0x4c5					; "PM"
046b e002       |    |		Load	0x0,0x2
046c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
046d 0e00       |    |		Execute_Immediate	Not_Equal,0x0
046e a402       |    |		Store_Unchecked	0x2,0x2
046f 00cf       |    |		Action	Mark_Auxiliary
0470 784c       |xL  |		Jump	0x4bd
0471 e403       |    |		Load	0x2,0x3
0472 7026       |p&  |		Jump_Nonzero	0x499
0473 00db       |    |		Load_Top	At_Offset_3
0474 e7ff       |    |		Load	0x3,-0x1
0475 01dc       |    |		Execute	Vector,Last
0476 027a       | z  |		Execute	Discrete,Less_Equal
0477 6821       |h!  |		Jump_Zero	0x499
0478 00db       |    |		Load_Top	At_Offset_3
0479 e7ff       |    |		Load	0x3,-0x1
047a 01d7       |    |		Execute	Vector,Field_Read
047b e236       | 6  |		Load	0x1,0x36
047c 01d7       |    |		Execute	Vector,Field_Read
047d 701b       |p   |		Jump_Nonzero	0x499
047e e602       |    |		Load	0x3,0x2
047f 00da       |    |		Load_Top	At_Offset_2
0480 00e1       |    |		Load_Encached	Boolean_Cache
0481 00e3       |    |		Load_Encached	Natural_Cache
0482 00da       |    |		Load_Top	At_Offset_2
0483 e607       |    |		Load	0x3,0x7
0484 01d7       |    |		Execute	Vector,Field_Read
0485 00d1       |    |		Pop_Control	Pop_Count_1
0486 e603       |    |		Load	0x3,0x3
0487 e7ff       |    |		Load	0x3,-0x1
0488 840c       |    |		Call	0x2,0xc
0489 c603       |    |		Store	0x3,0x3
048a 00da       |    |		Load_Top	At_Offset_2
048b e607       |    |		Load	0x3,0x7
048c 01d6       |    |		Execute	Vector,Field_Write
048d c604       |    |		Store	0x3,0x4
048e 00d2       |    |		Pop_Control	Pop_Count_2
048f 00da       |    |		Load_Top	At_Offset_2
0490 6808       |h   |		Jump_Zero	0x499
0491 00d9       |    |		Load_Top	At_Offset_1
0492 a403       |    |		Store_Unchecked	0x2,0x3
0493 00d9       |    |		Load_Top	At_Offset_1
0494 0a01       |    |		Execute_Immediate	Plus,0x1
0495 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0496 00d9       |    |		Load_Top	At_Offset_1
0497 0c07       |    |		Execute_Immediate	Greater_Equal,0x7
0498 7027       |p'  |		Jump_Nonzero	0x4c0
0499 e602       |    |		Load	0x3,0x2
049a 00da       |    |		Load_Top	At_Offset_2
049b 00e1       |    |		Load_Encached	Boolean_Cache
049c 00e3       |    |		Load_Encached	Natural_Cache
049d 00da       |    |		Load_Top	At_Offset_2
049e e607       |    |		Load	0x3,0x7
049f 01d7       |    |		Execute	Vector,Field_Read
04a0 00d1       |    |		Pop_Control	Pop_Count_1
04a1 e603       |    |		Load	0x3,0x3
04a2 e7ff       |    |		Load	0x3,-0x1
04a3 840b       |    |		Call	0x2,0xb
04a4 c603       |    |		Store	0x3,0x3
04a5 00da       |    |		Load_Top	At_Offset_2
04a6 e607       |    |		Load	0x3,0x7
04a7 01d6       |    |		Execute	Vector,Field_Write
04a8 c604       |    |		Store	0x3,0x4
04a9 00d2       |    |		Pop_Control	Pop_Count_2
04aa 00da       |    |		Load_Top	At_Offset_2
04ab 700d       |p   |		Jump_Nonzero	0x4b9
04ac 4801       |H   |		Short_Literal	0x1
04ad 00da       |    |		Load_Top	At_Offset_2
04ae 0aff       |    |		Execute_Immediate	Plus,-0x1
04af 00d8       |    |		Load_Top	At_Offset_0
04b0 00e2       |    |		Load_Encached	Integer_Cache
04b1 0260       | `  |		Execute	Discrete,In_Type
04b2 7001       |p   |		Jump_Nonzero	0x4b4
04b3 0801       |    |		Execute_Immediate	Raise,0x1
04b4 e602       |    |		Load	0x3,0x2
04b5 01cf       |    |		Execute	Vector,Slice_Read
04b6 e234       | 4  |		Load	0x1,0x34
04b7 01c6       |    |		Execute	Vector,Convert_To_Formal
04b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b9 00d9       |    |		Load_Top	At_Offset_1
04ba 0a01       |    |		Execute_Immediate	Plus,0x1
04bb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
04bc 00c9       |    |		Action	Pop_Auxiliary_Loop
04bd 00d9       |    |		Load_Top	At_Offset_1
04be 0d07       |    |		Execute_Immediate	Less,0x7
04bf 77b1       |w   |		Jump_Nonzero	0x471
04c0 00ce       |    |		Action	Pop_Auxiliary
04c1 00db       |    |		Load_Top	At_Offset_3
04c2 e234       | 4  |		Load	0x1,0x34
04c3 01c6       |    |		Execute	Vector,Convert_To_Formal
04c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c5 ; --------------------------------------------------------------------------------------
04c5 ; STRING TABLE
04c5 ; --------------------------------------------------------------------------------------
04c5 0004       |    |		.STRTAB	0x0004->0x04c7							; "PM"
04c6 0004       |    |		.STREND 0x0004->0x04c8
04c7 504d       |PM  |		.STRTAB_STRINGS
04c8 ; --------------------------------------------------------------------------------------
04c8 ; Debug Table
04c8 ; --------------------------------------------------------------------------------------
04c8 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0x189c,0x0000,0x0001,0x000b
04ce 000b 04fa  |    |		.DBG4T	0x000b,0x04fa,0x0002,0x0000
04d2 0033 0509  | 3  |		.DBG4T	0x0033,0x0509,0x0002,0x4000
04d6 00b3 0534  |   4|		.DBG4T	0x00b3,0x0534,0x0002,0x0000
04da 00bb 0537  |   7|		.DBG4T	0x00bb,0x0537,0x0002,0x4000
04de 036b 059a  | k  |		.DBG4T	0x036b,0x059a,0x0001,0x0000
04e2 038b 05a3  |    |		.DBG4T	0x038b,0x05a3,0x0001,0x0000
04e6 03ab 05aa  |    |		.DBG4T	0x03ab,0x05aa,0x0001,0x0000
04ea 03d3 05b4  |    |		.DBG4T	0x03d3,0x05b4,0x0001,0x0000
04ee 03f3 05bb  |    |		.DBG4T	0x03f3,0x05bb,0x0001,0x0000
04f2 041b 05c7  |    |		.DBG4T	0x041b,0x05c7,0x0001,0x0000
04f6 045b 05db  | [  |		.DBG4T	0x045b,0x05db,0x0002,0x4000
04fa ; --------------------------------------------------------------------------------------
04fa ; Debug chain
04fa ; --------------------------------------------------------------------------------------
04fa 000c 0001  |    |		.DBGLEN	0x000c,0x0001
04fc 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023
0509 ; --------------------------------------------------------------------------------------
0509 ; Debug chain
0509 ; --------------------------------------------------------------------------------------
0509 0001 0014  |    |		.DBGLEN	0x0001,0x0014
050b 0033 0035  | 3 5|		.DBGLNO	0x0033,0x0035,0x0038,0x0048,0x0050,0x0059,0x0061,0x0069,0x0071,0x0076,0x0079,0x007c,0x0086,0x0088,0x008c,0x008f,0x0099,0x009c,0x00a0,0x00a3,0x00a6
0520 0001 0002  |    |		.XXX[0x14]
0522 0003 0004  |    |
0524 0005 0006  |    |
0526 0007 0008  |    |
0528 000d 000e  |    |
052a 000f 0010  |    |
052c 0011 0012  |    |
052e 0013 0009  |    |
0530 000a 000b  |    |
0532 000c 0014  |    |
0534 ; --------------------------------------------------------------------------------------
0534 ; Debug chain
0534 ; --------------------------------------------------------------------------------------
0534 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0536 00b3       |    |		.DBGLNO	0x00b3
0537 ; --------------------------------------------------------------------------------------
0537 ; Debug chain
0537 ; --------------------------------------------------------------------------------------
0537 0001 0030  |   0|		.DBGLEN	0x0001,0x0030
0539 00bb 00bd  |    |		.DBGLNO	0x00bb,0x00bd,0x00cd,0x00da,0x00f3,0x010c,0x0125,0x013e,0x0143,0x015c,0x0176,0x0178,0x0185,0x019d,0x01b4,0x01cb,0x01e2,0x01e7,0x01fe,0x0203,0x021a,0x0233,0x0235,0x023d,0x023f,0x0255,0x026c,0x026f,0x0276,0x0278,0x027d,0x0281,0x0297,0x029c,0x02a0,0x02b6,0x02d3,0x02d7,0x02ed,0x02f1,0x0307,0x030a,0x0311,0x0313,0x032e,0x0332,0x0347,0x034b,0x0361
056a 0001 0002  |    |		.XXX[0x30]
056c 0006 0003  |    |
056e 0004 0005  |    |
0570 0007 0008  |    |
0572 0009 000a  |    |
0574 000b 000f  |    |
0576 000c 000d  |    |
0578 000e 0010  |    |
057a 0011 0012  |    |
057c 0013 0014  |    |
057e 0015 0016  |    |
0580 0019 0017  |    |
0582 0018 001a  |    |
0584 001b 0027  |   '|
0586 001c 001d  |    |
0588 001e 001f  |    |
058a 0020 0021  |   !|
058c 0022 0023  | " #|
058e 0024 0025  | $ %|
0590 0026 0028  | & (|
0592 0029 002f  | ) /|
0594 002a 002b  | * +|
0596 002c 002d  | , -|
0598 002e 0030  | . 0|
059a ; --------------------------------------------------------------------------------------
059a ; Debug chain
059a ; --------------------------------------------------------------------------------------
059a 0000 0007  |    |		.DBGLEN	0x0000,0x0007
059c 036c 0371  | l q|		.DBGLNO	0x036c,0x0371,0x0377,0x0379,0x037b,0x037f,0x0381
05a3 ; --------------------------------------------------------------------------------------
05a3 ; Debug chain
05a3 ; --------------------------------------------------------------------------------------
05a3 0000 0005  |    |		.DBGLEN	0x0000,0x0005
05a5 038c 0391  |    |		.DBGLNO	0x038c,0x0391,0x0397,0x0399,0x039d
05aa ; --------------------------------------------------------------------------------------
05aa ; Debug chain
05aa ; --------------------------------------------------------------------------------------
05aa 0000 0008  |    |		.DBGLEN	0x0000,0x0008
05ac 03ac 03b1  |    |		.DBGLNO	0x03ac,0x03b1,0x03b9,0x03bf,0x03c1,0x03c3,0x03c7,0x03c9
05b4 ; --------------------------------------------------------------------------------------
05b4 ; Debug chain
05b4 ; --------------------------------------------------------------------------------------
05b4 0000 0005  |    |		.DBGLEN	0x0000,0x0005
05b6 03d4 03d9  |    |		.DBGLNO	0x03d4,0x03d9,0x03df,0x03e1,0x03e5
05bb ; --------------------------------------------------------------------------------------
05bb ; Debug chain
05bb ; --------------------------------------------------------------------------------------
05bb 0002 0008  |    |		.DBGLEN	0x0002,0x0008
05bd 03f3 03f4  |    |		.DBGLNO	0x03f3,0x03f4,0x03f5,0x03fc,0x03fe,0x0400,0x0402,0x0403,0x0408,0x040a
05c7 ; --------------------------------------------------------------------------------------
05c7 ; Debug chain
05c7 ; --------------------------------------------------------------------------------------
05c7 0005 000d  |    |		.DBGLEN	0x0005,0x000d
05c9 041b 041c  |    |		.DBGLNO	0x041b,0x041c,0x041d,0x041e,0x041f,0x0421,0x0428,0x042a,0x0434,0x0442,0x0444,0x0447,0x0449,0x044b,0x044c,0x044e,0x0452,0x0454
05db ; --------------------------------------------------------------------------------------
05db ; Debug chain
05db ; --------------------------------------------------------------------------------------
05db 0004 000d  |    |		.DBGLEN	0x0004,0x000d
05dd 045b 0460  | [ `|		.DBGLNO	0x045b,0x0460,0x0464,0x0465,0x0467,0x0471,0x047e,0x048f,0x0491,0x0493,0x0496,0x0499,0x04aa,0x04ac,0x04b9,0x04bd,0x04c1
05ee 0001 0003  |    |		.XXX[0xd]
05f0 0004 0005  |    |
05f2 0006 0007  |    |
05f4 0008 0009  |    |
05f6 000a 000b  |    |
05f8 000c 0002  |    |
05fa 000d       |    |
05fb 0000 0000  |    |		.BLANK	0000[0x5]