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

⟦5876c38d2⟧

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

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 5900       |Y   |		.CONST	0x5900								; 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 800c       |    |		Call	0x0,0xc
0026 840d       |    |		Call	0x2,0xd
0027 8406       |    |		Call	0x2,0x6
0028 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0029 0000 0000  |    |		.BLANK	0000[0x7]
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 e212       |    |		Load	0x1,0x12
0034 0322       | "  |		Declare_Variable	Record
0035			BODY_0030:
0035 e7fd       |    |		Load	0x3,-0x3
0036 0d64       | d  |		Execute_Immediate	Less,0x64
0037 6811       |h   |		Jump_Zero	0x49
0038 e7fd       |    |		Load	0x3,-0x3
0039 6072       |`r  |		Indirect_Literal	Discrete,0xac,{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 e002       |    |		Load	0x0,0x2
0042 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0043 0260       | `  |		Execute	Discrete,In_Type
0044 7001       |p   |		Jump_Nonzero	0x46
0045 0801       |    |		Execute_Immediate	Raise,0x1
0046 00d9       |    |		Load_Top	At_Offset_1
0047 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0048 7809       |x   |		Jump	0x52
0049 e7fd       |    |		Load	0x3,-0x3
004a 00d8       |    |		Load_Top	At_Offset_0
004b e002       |    |		Load	0x0,0x2
004c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004d 0260       | `  |		Execute	Discrete,In_Type
004e 7001       |p   |		Jump_Nonzero	0x50
004f 0801       |    |		Execute_Immediate	Raise,0x1
0050 00d9       |    |		Load_Top	At_Offset_1
0051 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0052 00db       |    |		Load_Top	At_Offset_3
0053 0aff       |    |		Execute_Immediate	Plus,-0x1
0054 00d8       |    |		Load_Top	At_Offset_0
0055 e20d       |    |		Load	0x1,0xd
0056 0260       | `  |		Execute	Discrete,In_Type
0057 7001       |p   |		Jump_Nonzero	0x59
0058 0801       |    |		Execute_Immediate	Raise,0x1
0059 00d9       |    |		Load_Top	At_Offset_1
005a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
005b e7fe       |    |		Load	0x3,-0x2
005c 00d8       |    |		Load_Top	At_Offset_0
005d e002       |    |		Load	0x0,0x2
005e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
005f 0260       | `  |		Execute	Discrete,In_Type
0060 7001       |p   |		Jump_Nonzero	0x62
0061 0801       |    |		Execute_Immediate	Raise,0x1
0062 00d9       |    |		Load_Top	At_Offset_1
0063 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0064 e7fb       |    |		Load	0x3,-0x5
0065 00d8       |    |		Load_Top	At_Offset_0
0066 e20f       |    |		Load	0x1,0xf
0067 0260       | `  |		Execute	Discrete,In_Type
0068 7001       |p   |		Jump_Nonzero	0x6a
0069 0801       |    |		Execute_Immediate	Raise,0x1
006a 00d9       |    |		Load_Top	At_Offset_1
006b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
006c e7fa       |    |		Load	0x3,-0x6
006d 00d8       |    |		Load_Top	At_Offset_0
006e e210       |    |		Load	0x1,0x10
006f 0260       | `  |		Execute	Discrete,In_Type
0070 7001       |p   |		Jump_Nonzero	0x72
0071 0801       |    |		Execute_Immediate	Raise,0x1
0072 00d9       |    |		Load_Top	At_Offset_1
0073 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0074 e7fc       |    |		Load	0x3,-0x4
0075 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0076 7024       |p$  |		Jump_Nonzero	0x9b
0077 0f0c       |    |		Execute_Immediate	Equal,0xc
0078 702a       |p*  |		Jump_Nonzero	0xa3
0079 e7fc       |    |		Load	0x3,-0x4
007a 0c0d       |    |		Execute_Immediate	Greater_Equal,0xd
007b 680d       |h   |		Jump_Zero	0x89
007c 4801       |H   |		Short_Literal	0x1
007d 00d9       |    |		Load_Top	At_Offset_1
007e 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
007f e7fc       |    |		Load	0x3,-0x4
0080 0af4       |    |		Execute_Immediate	Plus,-0xc
0081 00d8       |    |		Load_Top	At_Offset_0
0082 e20e       |    |		Load	0x1,0xe
0083 0260       | `  |		Execute	Discrete,In_Type
0084 7001       |p   |		Jump_Nonzero	0x86
0085 0801       |    |		Execute_Immediate	Raise,0x1
0086 00d9       |    |		Load_Top	At_Offset_1
0087 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0088 7820       |x   |		Jump	0xa9
0089 e402       |    |		Load	0x2,0x2
008a 6804       |h   |		Jump_Zero	0x8f
008b 4801       |H   |		Short_Literal	0x1
008c 00d9       |    |		Load_Top	At_Offset_1
008d 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
008e 7803       |x   |		Jump	0x92
008f 4800       |H   |		Short_Literal	0x0
0090 00d9       |    |		Load_Top	At_Offset_1
0091 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0092 e7fc       |    |		Load	0x3,-0x4
0093 00d8       |    |		Load_Top	At_Offset_0
0094 e20e       |    |		Load	0x1,0xe
0095 0260       | `  |		Execute	Discrete,In_Type
0096 7001       |p   |		Jump_Nonzero	0x98
0097 0801       |    |		Execute_Immediate	Raise,0x1
0098 00d9       |    |		Load_Top	At_Offset_1
0099 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
009a 780e       |x   |		Jump	0xa9
009b 00d1       |    |		Pop_Control	Pop_Count_1
009c 4800       |H   |		Short_Literal	0x0
009d 00d9       |    |		Load_Top	At_Offset_1
009e 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
009f 480c       |H   |		Short_Literal	0xc
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a2 7806       |x   |		Jump	0xa9
00a3 4801       |H   |		Short_Literal	0x1
00a4 00d9       |    |		Load_Top	At_Offset_1
00a5 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
00a6 480c       |H   |		Short_Literal	0xc
00a7 00d9       |    |		Load_Top	At_Offset_1
00a8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a9 00d8       |    |		Load_Top	At_Offset_0
00aa 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
00ab 0000       |    |		.XXX[0x1]
00ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000076c}
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 8213       |    |		Call	0x1,0x13
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 e212       |    |		Load	0x1,0x12
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 8213       |    |		Call	0x1,0x13
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 8213       |    |		Call	0x1,0x13
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 8213       |    |		Call	0x1,0x13
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 8213       |    |		Call	0x1,0x13
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 8213       |    |		Call	0x1,0x13
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 8213       |    |		Call	0x1,0x13
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 e234       | 4  |		Load	0x1,0x34
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 e234       | 4  |		Load	0x1,0x34
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 e234       | 4  |		Load	0x1,0x34
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 e235       | 5  |		Load	0x1,0x35
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 e235       | 5  |		Load	0x1,0x35
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 e20d       |    |		Load	0x1,0xd
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 e23d       | =  |		Load	0x1,0x3d
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 e23d       | =  |		Load	0x1,0x3d
043d 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
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 e232       | 2  |		Load	0x1,0x32
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 04c4  |    |		Action	Push_String_Extended,0x4c4					; "PM"
046b 800d       |    |		Call	0x0,0xd
046c 0e00       |    |		Execute_Immediate	Not_Equal,0x0
046d a402       |    |		Store_Unchecked	0x2,0x2
046e 00cf       |    |		Action	Mark_Auxiliary
046f 784c       |xL  |		Jump	0x4bc
0470 e403       |    |		Load	0x2,0x3
0471 7026       |p&  |		Jump_Nonzero	0x498
0472 00db       |    |		Load_Top	At_Offset_3
0473 e7ff       |    |		Load	0x3,-0x1
0474 01dc       |    |		Execute	Vector,Last
0475 027a       | z  |		Execute	Discrete,Less_Equal
0476 6821       |h!  |		Jump_Zero	0x498
0477 00db       |    |		Load_Top	At_Offset_3
0478 e7ff       |    |		Load	0x3,-0x1
0479 01d7       |    |		Execute	Vector,Field_Read
047a e234       | 4  |		Load	0x1,0x34
047b 01d7       |    |		Execute	Vector,Field_Read
047c 701b       |p   |		Jump_Nonzero	0x498
047d e602       |    |		Load	0x3,0x2
047e 00da       |    |		Load_Top	At_Offset_2
047f 00e1       |    |		Load_Encached	Boolean_Cache
0480 00e3       |    |		Load_Encached	Natural_Cache
0481 00da       |    |		Load_Top	At_Offset_2
0482 e607       |    |		Load	0x3,0x7
0483 01d7       |    |		Execute	Vector,Field_Read
0484 00d1       |    |		Pop_Control	Pop_Count_1
0485 e603       |    |		Load	0x3,0x3
0486 e7ff       |    |		Load	0x3,-0x1
0487 840c       |    |		Call	0x2,0xc
0488 c603       |    |		Store	0x3,0x3
0489 00da       |    |		Load_Top	At_Offset_2
048a e607       |    |		Load	0x3,0x7
048b 01d6       |    |		Execute	Vector,Field_Write
048c c604       |    |		Store	0x3,0x4
048d 00d2       |    |		Pop_Control	Pop_Count_2
048e 00da       |    |		Load_Top	At_Offset_2
048f 6808       |h   |		Jump_Zero	0x498
0490 00d9       |    |		Load_Top	At_Offset_1
0491 a403       |    |		Store_Unchecked	0x2,0x3
0492 00d9       |    |		Load_Top	At_Offset_1
0493 0a01       |    |		Execute_Immediate	Plus,0x1
0494 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0495 00d9       |    |		Load_Top	At_Offset_1
0496 0c07       |    |		Execute_Immediate	Greater_Equal,0x7
0497 7027       |p'  |		Jump_Nonzero	0x4bf
0498 e602       |    |		Load	0x3,0x2
0499 00da       |    |		Load_Top	At_Offset_2
049a 00e1       |    |		Load_Encached	Boolean_Cache
049b 00e3       |    |		Load_Encached	Natural_Cache
049c 00da       |    |		Load_Top	At_Offset_2
049d e607       |    |		Load	0x3,0x7
049e 01d7       |    |		Execute	Vector,Field_Read
049f 00d1       |    |		Pop_Control	Pop_Count_1
04a0 e603       |    |		Load	0x3,0x3
04a1 e7ff       |    |		Load	0x3,-0x1
04a2 840b       |    |		Call	0x2,0xb
04a3 c603       |    |		Store	0x3,0x3
04a4 00da       |    |		Load_Top	At_Offset_2
04a5 e607       |    |		Load	0x3,0x7
04a6 01d6       |    |		Execute	Vector,Field_Write
04a7 c604       |    |		Store	0x3,0x4
04a8 00d2       |    |		Pop_Control	Pop_Count_2
04a9 00da       |    |		Load_Top	At_Offset_2
04aa 700d       |p   |		Jump_Nonzero	0x4b8
04ab 4801       |H   |		Short_Literal	0x1
04ac 00da       |    |		Load_Top	At_Offset_2
04ad 0aff       |    |		Execute_Immediate	Plus,-0x1
04ae 00d8       |    |		Load_Top	At_Offset_0
04af 00e2       |    |		Load_Encached	Integer_Cache
04b0 0260       | `  |		Execute	Discrete,In_Type
04b1 7001       |p   |		Jump_Nonzero	0x4b3
04b2 0801       |    |		Execute_Immediate	Raise,0x1
04b3 e602       |    |		Load	0x3,0x2
04b4 01cf       |    |		Execute	Vector,Slice_Read
04b5 e232       | 2  |		Load	0x1,0x32
04b6 01c6       |    |		Execute	Vector,Convert_To_Formal
04b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b8 00d9       |    |		Load_Top	At_Offset_1
04b9 0a01       |    |		Execute_Immediate	Plus,0x1
04ba 005a       | Z  |		Store_Top	Discrete,At_Offset_2
04bb 00c9       |    |		Action	Pop_Auxiliary_Loop
04bc 00d9       |    |		Load_Top	At_Offset_1
04bd 0d07       |    |		Execute_Immediate	Less,0x7
04be 77b1       |w   |		Jump_Nonzero	0x470
04bf 00ce       |    |		Action	Pop_Auxiliary
04c0 00db       |    |		Load_Top	At_Offset_3
04c1 e232       | 2  |		Load	0x1,0x32
04c2 01c6       |    |		Execute	Vector,Convert_To_Formal
04c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c4 ; --------------------------------------------------------------------------------------
04c4 ; STRING TABLE
04c4 ; --------------------------------------------------------------------------------------
04c4 0004       |    |		.STRTAB	0x0004->0x04c6							; "PM"
04c5 0004       |    |		.STREND 0x0004->0x04c7
04c6 504d       |PM  |		.STRTAB_STRINGS
04c7 0000       |    |		.XXX[0x1]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; Debug Table
04c8 ; --------------------------------------------------------------------------------------
04c8 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x97df,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,0x0049,0x0052,0x005b,0x0064,0x006c,0x0074,0x0079,0x007c,0x007f,0x0089,0x008b,0x008f,0x0092,0x009c,0x009f,0x00a3,0x00a6,0x00a9
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,0x0470,0x047d,0x048e,0x0490,0x0492,0x0495,0x0498,0x04a9,0x04ab,0x04b8,0x04bc,0x04c0
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]