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

⟦c5b760d08⟧

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

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 02d8       |    |		.CONST	0x02d8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0023       | #  |		.CONST	0x0023								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b a002       |    |		Store_Unchecked	0x0,0x2
000c 00c6       |    |		Action	Check_Subprogram_Elaborated
000d a003       |    |		Store_Unchecked	0x0,0x3
000e 0129       | )  |		Execute	Any,Make_Visible
000f 0093 0000  |    |		push_full_address	0x0
0011 601e       |`   |		Indirect_Literal	Discrete,0x30,{0x80000000, 0x00010000}
0012 0273       | s  |		Execute	Discrete,Plus
0013 e004       |    |		Load	0x0,0x4
0014 0273       | s  |		Execute	Discrete,Plus
0015 e005       |    |		Load	0x0,0x5
0016 0273       | s  |		Execute	Discrete,Plus
0017 0129       | )  |		Execute	Any,Make_Visible
0018 4800       |H   |		Short_Literal	0x0
0019 0129       | )  |		Execute	Any,Make_Visible
001a 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
001c 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
001e 00bf       |    |		Action	Accept_Activation
001f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0020 00c7       |    |		Action	Elaborate_Subprogram
0021 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0022 00c7       |    |		Action	Elaborate_Subprogram
0023			BODY_0008:
0023 00bc       |    |		Action	Signal_Activated
0024 00bb       |    |		Action	Signal_Completion
0025 0000 0000  |    |		.XXX[0x3]
0027 0000       |    |
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b       | +  |		.CONST	0x002b								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0001       |    |		.CONST	0x0001								; Number of locals
002b			BODY_0028:
002b			INIT_0028:
002b 8006       |    |		Call	0x0,0x6
002c 8007       |    |		Call	0x0,0x7
002d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
002e 0000 0000  |    |		.XXX[0x2]
0030 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0034 0000 0000  |    |		.BLANK	0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0054       | T  |		.CONST	0x0054								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0009       |    |		.CONST	0x0009								; Number of locals
003b			INIT_0038:
003b 0007       |    |		Action	Break_Optional
003c 00e8       |    |		Load_Encached	Character_Cache
003d 00e2       |    |		Load_Encached	Integer_Cache
003e 00e2       |    |		Load_Encached	Integer_Cache
003f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0040 4803       |H   |		Short_Literal	0x3
0041 032d       | -  |		Declare_Type	Record,Defined
0042 4801       |H   |		Short_Literal	0x1
0043 4814       |H   |		Short_Literal	0x14
0044 00da       |    |		Load_Top	At_Offset_2
0045 02a0       |    |		Declare_Subprogram	Null_Subprogram
0046 4801       |H   |		Short_Literal	0x1
0047 035d       | ]  |		Declare_Type	Array,Defined
0048 00d8       |    |		Load_Top	At_Offset_0
0049 0337       | 7  |		Declare_Variable	Array
004a 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
004c 029f 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Call
004e 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
0050 029f 026b  |   k|		Declare_Subprogram	INIT_0268,For_Call
0052 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
0054			BODY_0038:
0054 8407       |    |		Call	0x2,0x7
0055 8405       |    |		Call	0x2,0x5
0056 8406       |    |		Call	0x2,0x6
0057 8408       |    |		Call	0x2,0x8
0058 8409       |    |		Call	0x2,0x9
0059 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
005a 0000 0000  |    |		.BLANK	0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 e402       |    |		Load	0x2,0x2
0064 0322       | "  |		Declare_Variable	Record
0065 485a       |HZ  |		Short_Literal	0x5a
0066 00d9       |    |		Load_Top	At_Offset_1
0067 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0068 4802       |H   |		Short_Literal	0x2
0069 00d9       |    |		Load_Top	At_Offset_1
006a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
006b 4801       |H   |		Short_Literal	0x1
006c 00d9       |    |		Load_Top	At_Offset_1
006d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
006e 4801       |H   |		Short_Literal	0x1
006f e404       |    |		Load	0x2,0x4
0070 01d6       |    |		Execute	Vector,Field_Write
0071 e402       |    |		Load	0x2,0x2
0072 0322       | "  |		Declare_Variable	Record
0073 4852       |HR  |		Short_Literal	0x52
0074 00d9       |    |		Load_Top	At_Offset_1
0075 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0076 4802       |H   |		Short_Literal	0x2
0077 00d9       |    |		Load_Top	At_Offset_1
0078 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0079 4802       |H   |		Short_Literal	0x2
007a 00d9       |    |		Load_Top	At_Offset_1
007b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
007c 4802       |H   |		Short_Literal	0x2
007d e404       |    |		Load	0x2,0x4
007e 01d6       |    |		Execute	Vector,Field_Write
007f e402       |    |		Load	0x2,0x2
0080 0322       | "  |		Declare_Variable	Record
0081 4850       |HP  |		Short_Literal	0x50
0082 00d9       |    |		Load_Top	At_Offset_1
0083 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0084 4802       |H   |		Short_Literal	0x2
0085 00d9       |    |		Load_Top	At_Offset_1
0086 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0087 4803       |H   |		Short_Literal	0x3
0088 00d9       |    |		Load_Top	At_Offset_1
0089 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
008a 4803       |H   |		Short_Literal	0x3
008b e404       |    |		Load	0x2,0x4
008c 01d6       |    |		Execute	Vector,Field_Write
008d e402       |    |		Load	0x2,0x2
008e 0322       | "  |		Declare_Variable	Record
008f 4847       |HG  |		Short_Literal	0x47
0090 00d9       |    |		Load_Top	At_Offset_1
0091 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0092 4803       |H   |		Short_Literal	0x3
0093 00d9       |    |		Load_Top	At_Offset_1
0094 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0095 4801       |H   |		Short_Literal	0x1
0096 00d9       |    |		Load_Top	At_Offset_1
0097 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0098 4804       |H   |		Short_Literal	0x4
0099 e404       |    |		Load	0x2,0x4
009a 01d6       |    |		Execute	Vector,Field_Write
009b e402       |    |		Load	0x2,0x2
009c 0322       | "  |		Declare_Variable	Record
009d 4855       |HU  |		Short_Literal	0x55
009e 00d9       |    |		Load_Top	At_Offset_1
009f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00a0 4803       |H   |		Short_Literal	0x3
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00a3 4802       |H   |		Short_Literal	0x2
00a4 00d9       |    |		Load_Top	At_Offset_1
00a5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a6 4805       |H   |		Short_Literal	0x5
00a7 e404       |    |		Load	0x2,0x4
00a8 01d6       |    |		Execute	Vector,Field_Write
00a9 e402       |    |		Load	0x2,0x2
00aa 0322       | "  |		Declare_Variable	Record
00ab 484c       |HL  |		Short_Literal	0x4c
00ac 00d9       |    |		Load_Top	At_Offset_1
00ad 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ae 4803       |H   |		Short_Literal	0x3
00af 00d9       |    |		Load_Top	At_Offset_1
00b0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b1 4803       |H   |		Short_Literal	0x3
00b2 00d9       |    |		Load_Top	At_Offset_1
00b3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00b4 4806       |H   |		Short_Literal	0x6
00b5 e404       |    |		Load	0x2,0x4
00b6 01d6       |    |		Execute	Vector,Field_Write
00b7 e402       |    |		Load	0x2,0x2
00b8 0322       | "  |		Declare_Variable	Record
00b9 484d       |HM  |		Short_Literal	0x4d
00ba 00d9       |    |		Load_Top	At_Offset_1
00bb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bc 4807       |H   |		Short_Literal	0x7
00bd 00d9       |    |		Load_Top	At_Offset_1
00be 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00bf 4801       |H   |		Short_Literal	0x1
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00c2 4807       |H   |		Short_Literal	0x7
00c3 e404       |    |		Load	0x2,0x4
00c4 01d6       |    |		Execute	Vector,Field_Write
00c5 e402       |    |		Load	0x2,0x2
00c6 0322       | "  |		Declare_Variable	Record
00c7 484c       |HL  |		Short_Literal	0x4c
00c8 00d9       |    |		Load_Top	At_Offset_1
00c9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ca 4808       |H   |		Short_Literal	0x8
00cb 00d9       |    |		Load_Top	At_Offset_1
00cc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00cd 4801       |H   |		Short_Literal	0x1
00ce 00d9       |    |		Load_Top	At_Offset_1
00cf 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00d0 4808       |H   |		Short_Literal	0x8
00d1 e404       |    |		Load	0x2,0x4
00d2 01d6       |    |		Execute	Vector,Field_Write
00d3 e402       |    |		Load	0x2,0x2
00d4 0322       | "  |		Declare_Variable	Record
00d5 4854       |HT  |		Short_Literal	0x54
00d6 00d9       |    |		Load_Top	At_Offset_1
00d7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d8 4805       |H   |		Short_Literal	0x5
00d9 00d9       |    |		Load_Top	At_Offset_1
00da 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00db 4801       |H   |		Short_Literal	0x1
00dc 00d9       |    |		Load_Top	At_Offset_1
00dd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00de 4809       |H   |		Short_Literal	0x9
00df e404       |    |		Load	0x2,0x4
00e0 01d6       |    |		Execute	Vector,Field_Write
00e1 e402       |    |		Load	0x2,0x2
00e2 0322       | "  |		Declare_Variable	Record
00e3 4856       |HV  |		Short_Literal	0x56
00e4 00d9       |    |		Load_Top	At_Offset_1
00e5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e6 4805       |H   |		Short_Literal	0x5
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e9 4802       |H   |		Short_Literal	0x2
00ea 00d9       |    |		Load_Top	At_Offset_1
00eb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00ec 480a       |H   |		Short_Literal	0xa
00ed e404       |    |		Load	0x2,0x4
00ee 01d6       |    |		Execute	Vector,Field_Write
00ef e402       |    |		Load	0x2,0x2
00f0 0322       | "  |		Declare_Variable	Record
00f1 4855       |HU  |		Short_Literal	0x55
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f4 4806       |H   |		Short_Literal	0x6
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f7 4801       |H   |		Short_Literal	0x1
00f8 00d9       |    |		Load_Top	At_Offset_1
00f9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00fa 480b       |H   |		Short_Literal	0xb
00fb e404       |    |		Load	0x2,0x4
00fc 01d6       |    |		Execute	Vector,Field_Write
00fd e402       |    |		Load	0x2,0x2
00fe 0322       | "  |		Declare_Variable	Record
00ff 484c       |HL  |		Short_Literal	0x4c
0100 00d9       |    |		Load_Top	At_Offset_1
0101 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0102 4804       |H   |		Short_Literal	0x4
0103 00d9       |    |		Load_Top	At_Offset_1
0104 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0105 4801       |H   |		Short_Literal	0x1
0106 00d9       |    |		Load_Top	At_Offset_1
0107 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0108 480c       |H   |		Short_Literal	0xc
0109 e404       |    |		Load	0x2,0x4
010a 01d6       |    |		Execute	Vector,Field_Write
010b e402       |    |		Load	0x2,0x2
010c 0322       | "  |		Declare_Variable	Record
010d 4852       |HR  |		Short_Literal	0x52
010e 00d9       |    |		Load_Top	At_Offset_1
010f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0110 4809       |H   |		Short_Literal	0x9
0111 00d9       |    |		Load_Top	At_Offset_1
0112 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0113 4801       |H   |		Short_Literal	0x1
0114 00d9       |    |		Load_Top	At_Offset_1
0115 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0116 480d       |H   |		Short_Literal	0xd
0117 e404       |    |		Load	0x2,0x4
0118 01d6       |    |		Execute	Vector,Field_Write
0119 e402       |    |		Load	0x2,0x2
011a 0322       | "  |		Declare_Variable	Record
011b 484c       |HL  |		Short_Literal	0x4c
011c 00d9       |    |		Load_Top	At_Offset_1
011d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
011e 480a       |H   |		Short_Literal	0xa
011f 00d9       |    |		Load_Top	At_Offset_1
0120 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0121 4801       |H   |		Short_Literal	0x1
0122 00d9       |    |		Load_Top	At_Offset_1
0123 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0124 480e       |H   |		Short_Literal	0xe
0125 e404       |    |		Load	0x2,0x4
0126 01d6       |    |		Execute	Vector,Field_Write
0127 e402       |    |		Load	0x2,0x2
0128 0322       | "  |		Declare_Variable	Record
0129 484e       |HN  |		Short_Literal	0x4e
012a 00d9       |    |		Load_Top	At_Offset_1
012b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012c 480b       |H   |		Short_Literal	0xb
012d 00d9       |    |		Load_Top	At_Offset_1
012e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
012f 4801       |H   |		Short_Literal	0x1
0130 00d9       |    |		Load_Top	At_Offset_1
0131 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0132 480f       |H   |		Short_Literal	0xf
0133 e404       |    |		Load	0x2,0x4
0134 01d6       |    |		Execute	Vector,Field_Write
0135 e402       |    |		Load	0x2,0x2
0136 0322       | "  |		Declare_Variable	Record
0137 4853       |HS  |		Short_Literal	0x53
0138 00d9       |    |		Load_Top	At_Offset_1
0139 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
013a 4806       |H   |		Short_Literal	0x6
013b 00d9       |    |		Load_Top	At_Offset_1
013c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
013d 4802       |H   |		Short_Literal	0x2
013e 00d9       |    |		Load_Top	At_Offset_1
013f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0140 4813       |H   |		Short_Literal	0x13
0141 e404       |    |		Load	0x2,0x4
0142 01d6       |    |		Execute	Vector,Field_Write
0143 e402       |    |		Load	0x2,0x2
0144 0322       | "  |		Declare_Variable	Record
0145 4857       |HW  |		Short_Literal	0x57
0146 00d9       |    |		Load_Top	At_Offset_1
0147 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0148 4806       |H   |		Short_Literal	0x6
0149 00d9       |    |		Load_Top	At_Offset_1
014a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
014b 4803       |H   |		Short_Literal	0x3
014c 00d9       |    |		Load_Top	At_Offset_1
014d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
014e 4814       |H   |		Short_Literal	0x14
014f e404       |    |		Load	0x2,0x4
0150 01d6       |    |		Execute	Vector,Field_Write
0151 e402       |    |		Load	0x2,0x2
0152 0322       | "  |		Declare_Variable	Record
0153 4854       |HT  |		Short_Literal	0x54
0154 00d9       |    |		Load_Top	At_Offset_1
0155 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0156 480c       |H   |		Short_Literal	0xc
0157 00d9       |    |		Load_Top	At_Offset_1
0158 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0159 4801       |H   |		Short_Literal	0x1
015a 00d9       |    |		Load_Top	At_Offset_1
015b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
015c 4810       |H   |		Short_Literal	0x10
015d e404       |    |		Load	0x2,0x4
015e 01d6       |    |		Execute	Vector,Field_Write
015f e402       |    |		Load	0x2,0x2
0160 0322       | "  |		Declare_Variable	Record
0161 4855       |HU  |		Short_Literal	0x55
0162 00d9       |    |		Load_Top	At_Offset_1
0163 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0164 480c       |H   |		Short_Literal	0xc
0165 00d9       |    |		Load_Top	At_Offset_1
0166 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0167 4802       |H   |		Short_Literal	0x2
0168 00d9       |    |		Load_Top	At_Offset_1
0169 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
016a 4811       |H   |		Short_Literal	0x11
016b e404       |    |		Load	0x2,0x4
016c 01d6       |    |		Execute	Vector,Field_Write
016d e402       |    |		Load	0x2,0x2
016e 0322       | "  |		Declare_Variable	Record
016f 485a       |HZ  |		Short_Literal	0x5a
0170 00d9       |    |		Load_Top	At_Offset_1
0171 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0172 480c       |H   |		Short_Literal	0xc
0173 00d9       |    |		Load_Top	At_Offset_1
0174 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0175 4803       |H   |		Short_Literal	0x3
0176 00d9       |    |		Load_Top	At_Offset_1
0177 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0178 4812       |H   |		Short_Literal	0x12
0179 e404       |    |		Load	0x2,0x4
017a 01d6       |    |		Execute	Vector,Field_Write
017b 00cf       |    |		Action	Mark_Auxiliary
017c 4814       |H   |		Short_Literal	0x14
017d 4801       |H   |		Short_Literal	0x1
017e 0007       |    |		Action	Break_Optional
017f e008       |    |		Load	0x0,0x8
0180 0337       | 7  |		Declare_Variable	Array
0181 00d9       |    |		Load_Top	At_Offset_1
0182 e404       |    |		Load	0x2,0x4
0183 01d5       |    |		Execute	Vector,Field_Reference
0184 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0185 8009       |    |		Call	0x0,0x9
0186 4800       |H   |		Short_Literal	0x0
0187 00da       |    |		Load_Top	At_Offset_2
0188 01d6       |    |		Execute	Vector,Field_Write
0189 00d9       |    |		Load_Top	At_Offset_1
018a e404       |    |		Load	0x2,0x4
018b 01d5       |    |		Execute	Vector,Field_Reference
018c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
018d 0aff       |    |		Execute_Immediate	Plus,-0x1
018e 00d8       |    |		Load_Top	At_Offset_0
018f 00e2       |    |		Load_Encached	Integer_Cache
0190 0260       | `  |		Execute	Discrete,In_Type
0191 7001       |p   |		Jump_Nonzero	0x193
0192 0801       |    |		Execute_Immediate	Raise,0x1
0193 800a       |    |		Call	0x0,0xa
0194 e00b       |    |		Load	0x0,0xb
0195 800c       |    |		Call	0x0,0xc
0196 4801       |H   |		Short_Literal	0x1
0197 00da       |    |		Load_Top	At_Offset_2
0198 01d6       |    |		Execute	Vector,Field_Write
0199 00d9       |    |		Load_Top	At_Offset_1
019a e404       |    |		Load	0x2,0x4
019b 01d5       |    |		Execute	Vector,Field_Reference
019c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
019d 0aff       |    |		Execute_Immediate	Plus,-0x1
019e 00d8       |    |		Load_Top	At_Offset_0
019f 00e2       |    |		Load_Encached	Integer_Cache
01a0 0260       | `  |		Execute	Discrete,In_Type
01a1 7001       |p   |		Jump_Nonzero	0x1a3
01a2 0801       |    |		Execute_Immediate	Raise,0x1
01a3 800a       |    |		Call	0x0,0xa
01a4 e00d       |    |		Load	0x0,0xd
01a5 800c       |    |		Call	0x0,0xc
01a6 4802       |H   |		Short_Literal	0x2
01a7 00da       |    |		Load_Top	At_Offset_2
01a8 01d6       |    |		Execute	Vector,Field_Write
01a9 e008       |    |		Load	0x0,0x8
01aa 01c3       |    |		Execute	Vector,Check_In_Type
01ab 800e       |    |		Call	0x0,0xe
01ac 00d8       |    |		Load_Top	At_Offset_0
01ad e404       |    |		Load	0x2,0x4
01ae 01d5       |    |		Execute	Vector,Field_Reference
01af 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01b0 e00d       |    |		Load	0x0,0xd
01b1 800f       |    |		Call	0x0,0xf
01b2 00da       |    |		Load_Top	At_Offset_2
01b3 e404       |    |		Load	0x2,0x4
01b4 01d5       |    |		Execute	Vector,Field_Reference
01b5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b6 0273       | s  |		Execute	Discrete,Plus
01b7 0aff       |    |		Execute_Immediate	Plus,-0x1
01b8 00d8       |    |		Load_Top	At_Offset_0
01b9 00e2       |    |		Load_Encached	Integer_Cache
01ba 0260       | `  |		Execute	Discrete,In_Type
01bb 7001       |p   |		Jump_Nonzero	0x1bd
01bc 0801       |    |		Execute_Immediate	Raise,0x1
01bd e00b       |    |		Load	0x0,0xb
01be 800f       |    |		Call	0x0,0xf
01bf 00db       |    |		Load_Top	At_Offset_3
01c0 e404       |    |		Load	0x2,0x4
01c1 01d5       |    |		Execute	Vector,Field_Reference
01c2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c3 0273       | s  |		Execute	Discrete,Plus
01c4 0aff       |    |		Execute_Immediate	Plus,-0x1
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 00e2       |    |		Load_Encached	Integer_Cache
01c7 0260       | `  |		Execute	Discrete,In_Type
01c8 7001       |p   |		Jump_Nonzero	0x1ca
01c9 0801       |    |		Execute_Immediate	Raise,0x1
01ca 8010       |    |		Call	0x0,0x10
01cb 00c8       |    |		Action	Pop_Auxiliary_Range
01cc 3fb2       |?   |		Loop_Increasing	0x17f
01cd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ce 0000 0000  |    |		.XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 e011       |    |		Load	0x0,0x11
01d4 0337       | 7  |		Declare_Variable	Array
01d5 e012       |    |		Load	0x0,0x12
01d6 4800       |H   |		Short_Literal	0x0
01d7 00da       |    |		Load_Top	At_Offset_2
01d8 01d6       |    |		Execute	Vector,Field_Write
01d9 e00b       |    |		Load	0x0,0xb
01da 4801       |H   |		Short_Literal	0x1
01db 00da       |    |		Load_Top	At_Offset_2
01dc 01d6       |    |		Execute	Vector,Field_Write
01dd e013       |    |		Load	0x0,0x13
01de 4802       |H   |		Short_Literal	0x2
01df 00da       |    |		Load_Top	At_Offset_2
01e0 01d6       |    |		Execute	Vector,Field_Write
01e1 e011       |    |		Load	0x0,0x11
01e2 01c3       |    |		Execute	Vector,Check_In_Type
01e3 8014       |    |		Call	0x0,0x14
01e4 e011       |    |		Load	0x0,0x11
01e5 0337       | 7  |		Declare_Variable	Array
01e6 e015       |    |		Load	0x0,0x15
01e7 4800       |H   |		Short_Literal	0x0
01e8 00da       |    |		Load_Top	At_Offset_2
01e9 01d6       |    |		Execute	Vector,Field_Write
01ea e00b       |    |		Load	0x0,0xb
01eb 4801       |H   |		Short_Literal	0x1
01ec 00da       |    |		Load_Top	At_Offset_2
01ed 01d6       |    |		Execute	Vector,Field_Write
01ee e013       |    |		Load	0x0,0x13
01ef 4802       |H   |		Short_Literal	0x2
01f0 00da       |    |		Load_Top	At_Offset_2
01f1 01d6       |    |		Execute	Vector,Field_Write
01f2 e011       |    |		Load	0x0,0x11
01f3 01c3       |    |		Execute	Vector,Check_In_Type
01f4 8014       |    |		Call	0x0,0x14
01f5 e011       |    |		Load	0x0,0x11
01f6 0337       | 7  |		Declare_Variable	Array
01f7 e016       |    |		Load	0x0,0x16
01f8 4800       |H   |		Short_Literal	0x0
01f9 00da       |    |		Load_Top	At_Offset_2
01fa 01d6       |    |		Execute	Vector,Field_Write
01fb e00b       |    |		Load	0x0,0xb
01fc 4801       |H   |		Short_Literal	0x1
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 01d6       |    |		Execute	Vector,Field_Write
01ff e013       |    |		Load	0x0,0x13
0200 4802       |H   |		Short_Literal	0x2
0201 00da       |    |		Load_Top	At_Offset_2
0202 01d6       |    |		Execute	Vector,Field_Write
0203 e011       |    |		Load	0x0,0x11
0204 01c3       |    |		Execute	Vector,Check_In_Type
0205 8014       |    |		Call	0x0,0x14
0206 e011       |    |		Load	0x0,0x11
0207 0337       | 7  |		Declare_Variable	Array
0208 e017       |    |		Load	0x0,0x17
0209 4800       |H   |		Short_Literal	0x0
020a 00da       |    |		Load_Top	At_Offset_2
020b 01d6       |    |		Execute	Vector,Field_Write
020c e00b       |    |		Load	0x0,0xb
020d 4801       |H   |		Short_Literal	0x1
020e 00da       |    |		Load_Top	At_Offset_2
020f 01d6       |    |		Execute	Vector,Field_Write
0210 e013       |    |		Load	0x0,0x13
0211 4802       |H   |		Short_Literal	0x2
0212 00da       |    |		Load_Top	At_Offset_2
0213 01d6       |    |		Execute	Vector,Field_Write
0214 e011       |    |		Load	0x0,0x11
0215 01c3       |    |		Execute	Vector,Check_In_Type
0216 8014       |    |		Call	0x0,0x14
0217 e011       |    |		Load	0x0,0x11
0218 0337       | 7  |		Declare_Variable	Array
0219 e018       |    |		Load	0x0,0x18
021a 4800       |H   |		Short_Literal	0x0
021b 00da       |    |		Load_Top	At_Offset_2
021c 01d6       |    |		Execute	Vector,Field_Write
021d e00b       |    |		Load	0x0,0xb
021e 4801       |H   |		Short_Literal	0x1
021f 00da       |    |		Load_Top	At_Offset_2
0220 01d6       |    |		Execute	Vector,Field_Write
0221 e013       |    |		Load	0x0,0x13
0222 4802       |H   |		Short_Literal	0x2
0223 00da       |    |		Load_Top	At_Offset_2
0224 01d6       |    |		Execute	Vector,Field_Write
0225 e011       |    |		Load	0x0,0x11
0226 01c3       |    |		Execute	Vector,Check_In_Type
0227 8014       |    |		Call	0x0,0x14
0228 e011       |    |		Load	0x0,0x11
0229 0337       | 7  |		Declare_Variable	Array
022a e019       |    |		Load	0x0,0x19
022b 4800       |H   |		Short_Literal	0x0
022c 00da       |    |		Load_Top	At_Offset_2
022d 01d6       |    |		Execute	Vector,Field_Write
022e e00b       |    |		Load	0x0,0xb
022f 4801       |H   |		Short_Literal	0x1
0230 00da       |    |		Load_Top	At_Offset_2
0231 01d6       |    |		Execute	Vector,Field_Write
0232 e013       |    |		Load	0x0,0x13
0233 4802       |H   |		Short_Literal	0x2
0234 00da       |    |		Load_Top	At_Offset_2
0235 01d6       |    |		Execute	Vector,Field_Write
0236 e011       |    |		Load	0x0,0x11
0237 01c3       |    |		Execute	Vector,Check_In_Type
0238 8014       |    |		Call	0x0,0x14
0239 e011       |    |		Load	0x0,0x11
023a 0337       | 7  |		Declare_Variable	Array
023b e01a       |    |		Load	0x0,0x1a
023c 4800       |H   |		Short_Literal	0x0
023d 00da       |    |		Load_Top	At_Offset_2
023e 01d6       |    |		Execute	Vector,Field_Write
023f e00b       |    |		Load	0x0,0xb
0240 4801       |H   |		Short_Literal	0x1
0241 00da       |    |		Load_Top	At_Offset_2
0242 01d6       |    |		Execute	Vector,Field_Write
0243 e013       |    |		Load	0x0,0x13
0244 4802       |H   |		Short_Literal	0x2
0245 00da       |    |		Load_Top	At_Offset_2
0246 01d6       |    |		Execute	Vector,Field_Write
0247 e011       |    |		Load	0x0,0x11
0248 01c3       |    |		Execute	Vector,Check_In_Type
0249 8014       |    |		Call	0x0,0x14
024a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
024b 0000 0000  |    |		.BLANK	0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00cf       |    |		Action	Mark_Auxiliary
0254 e01b       |    |		Load	0x0,0x1b
0255 800f       |    |		Call	0x0,0xf
0256 e00b       |    |		Load	0x0,0xb
0257 800f       |    |		Call	0x0,0xf
0258 0263       | c  |		Execute	Discrete,Above_Bound
0259 700c       |p   |		Jump_Nonzero	0x266
025a e01c       |    |		Load	0x0,0x1c
025b 0337       | 7  |		Declare_Variable	Array
025c 00d9       |    |		Load_Top	At_Offset_1
025d 800a       |    |		Call	0x0,0xa
025e 4800       |H   |		Short_Literal	0x0
025f 00da       |    |		Load_Top	At_Offset_2
0260 01d6       |    |		Execute	Vector,Field_Write
0261 e01c       |    |		Load	0x0,0x1c
0262 01c3       |    |		Execute	Vector,Check_In_Type
0263 801d       |    |		Call	0x0,0x1d
0264 00c8       |    |		Action	Pop_Auxiliary_Range
0265 3ff4       |?   |		Loop_Increasing	0x25a
0266 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0267 0000       |    |		.XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b e01e       |    |		Load	0x0,0x1e
026c 0337       | 7  |		Declare_Variable	Array
026d e01f       |    |		Load	0x0,0x1f
026e 4800       |H   |		Short_Literal	0x0
026f 00da       |    |		Load_Top	At_Offset_2
0270 01d6       |    |		Execute	Vector,Field_Write
0271 e012       |    |		Load	0x0,0x12
0272 4801       |H   |		Short_Literal	0x1
0273 00da       |    |		Load_Top	At_Offset_2
0274 01d6       |    |		Execute	Vector,Field_Write
0275 e020       |    |		Load	0x0,0x20
0276 4802       |H   |		Short_Literal	0x2
0277 00da       |    |		Load_Top	At_Offset_2
0278 01d6       |    |		Execute	Vector,Field_Write
0279 e013       |    |		Load	0x0,0x13
027a 4803       |H   |		Short_Literal	0x3
027b 00da       |    |		Load_Top	At_Offset_2
027c 01d6       |    |		Execute	Vector,Field_Write
027d e01e       |    |		Load	0x0,0x1e
027e 01c3       |    |		Execute	Vector,Check_In_Type
027f 8021       | !  |		Call	0x0,0x21
0280 e01e       |    |		Load	0x0,0x1e
0281 0337       | 7  |		Declare_Variable	Array
0282 e01f       |    |		Load	0x0,0x1f
0283 4800       |H   |		Short_Literal	0x0
0284 00da       |    |		Load_Top	At_Offset_2
0285 01d6       |    |		Execute	Vector,Field_Write
0286 e012       |    |		Load	0x0,0x12
0287 4801       |H   |		Short_Literal	0x1
0288 00da       |    |		Load_Top	At_Offset_2
0289 01d6       |    |		Execute	Vector,Field_Write
028a e022       | "  |		Load	0x0,0x22
028b 4802       |H   |		Short_Literal	0x2
028c 00da       |    |		Load_Top	At_Offset_2
028d 01d6       |    |		Execute	Vector,Field_Write
028e e01b       |    |		Load	0x0,0x1b
028f 4803       |H   |		Short_Literal	0x3
0290 00da       |    |		Load_Top	At_Offset_2
0291 01d6       |    |		Execute	Vector,Field_Write
0292 e01e       |    |		Load	0x0,0x1e
0293 01c3       |    |		Execute	Vector,Check_In_Type
0294 8021       | !  |		Call	0x0,0x21
0295 e023       | #  |		Load	0x0,0x23
0296 0337       | 7  |		Declare_Variable	Array
0297 e012       |    |		Load	0x0,0x12
0298 4800       |H   |		Short_Literal	0x0
0299 00da       |    |		Load_Top	At_Offset_2
029a 01d6       |    |		Execute	Vector,Field_Write
029b e023       | #  |		Load	0x0,0x23
029c 01c3       |    |		Execute	Vector,Check_In_Type
029d 8024       | $  |		Call	0x0,0x24
029e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
029f 0000       |    |		.XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 e01e       |    |		Load	0x0,0x1e
02a4 0337       | 7  |		Declare_Variable	Array
02a5 e01f       |    |		Load	0x0,0x1f
02a6 4800       |H   |		Short_Literal	0x0
02a7 00da       |    |		Load_Top	At_Offset_2
02a8 01d6       |    |		Execute	Vector,Field_Write
02a9 e015       |    |		Load	0x0,0x15
02aa 4801       |H   |		Short_Literal	0x1
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 01d6       |    |		Execute	Vector,Field_Write
02ad e020       |    |		Load	0x0,0x20
02ae 4802       |H   |		Short_Literal	0x2
02af 00da       |    |		Load_Top	At_Offset_2
02b0 01d6       |    |		Execute	Vector,Field_Write
02b1 e013       |    |		Load	0x0,0x13
02b2 4803       |H   |		Short_Literal	0x3
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 01d6       |    |		Execute	Vector,Field_Write
02b5 e01e       |    |		Load	0x0,0x1e
02b6 01c3       |    |		Execute	Vector,Check_In_Type
02b7 8021       | !  |		Call	0x0,0x21
02b8 e01e       |    |		Load	0x0,0x1e
02b9 0337       | 7  |		Declare_Variable	Array
02ba e01f       |    |		Load	0x0,0x1f
02bb 4800       |H   |		Short_Literal	0x0
02bc 00da       |    |		Load_Top	At_Offset_2
02bd 01d6       |    |		Execute	Vector,Field_Write
02be e015       |    |		Load	0x0,0x15
02bf 4801       |H   |		Short_Literal	0x1
02c0 00da       |    |		Load_Top	At_Offset_2
02c1 01d6       |    |		Execute	Vector,Field_Write
02c2 e025       | %  |		Load	0x0,0x25
02c3 4802       |H   |		Short_Literal	0x2
02c4 00da       |    |		Load_Top	At_Offset_2
02c5 01d6       |    |		Execute	Vector,Field_Write
02c6 e01b       |    |		Load	0x0,0x1b
02c7 4803       |H   |		Short_Literal	0x3
02c8 00da       |    |		Load_Top	At_Offset_2
02c9 01d6       |    |		Execute	Vector,Field_Write
02ca e01e       |    |		Load	0x0,0x1e
02cb 01c3       |    |		Execute	Vector,Check_In_Type
02cc 8021       | !  |		Call	0x0,0x21
02cd e023       | #  |		Load	0x0,0x23
02ce 0337       | 7  |		Declare_Variable	Array
02cf e015       |    |		Load	0x0,0x15
02d0 4800       |H   |		Short_Literal	0x0
02d1 00da       |    |		Load_Top	At_Offset_2
02d2 01d6       |    |		Execute	Vector,Field_Write
02d3 e023       | #  |		Load	0x0,0x23
02d4 01c3       |    |		Execute	Vector,Check_In_Type
02d5 8024       | $  |		Call	0x0,0x24
02d6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d7 0000       |    |		.XXX[0x1]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug Table
02d8 ; --------------------------------------------------------------------------------------
02d8 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x3244,0x0000,0x0001,0x0009
02de 000b 0302  |    |		.DBG4T	0x000b,0x0302,0x8000,0x0000
02e2 001f 0307  |    |		.DBG4T	0x001f,0x0307,0x8000,0x0000
02e6 002b 030b  | +  |		.DBG4T	0x002b,0x030b,0x0001,0x0000
02ea 003b 030e  | ;  |		.DBG4T	0x003b,0x030e,0x0001,0x0000
02ee 0063 031d  | c  |		.DBG4T	0x0063,0x031d,0x0001,0x0000
02f2 01d3 0336  |   6|		.DBG4T	0x01d3,0x0336,0x0001,0x0000
02f6 0253 033f  | S ?|		.DBG4T	0x0253,0x033f,0x0001,0x0000
02fa 026b 0343  | k C|		.DBG4T	0x026b,0x0343,0x0001,0x0000
02fe 02a3 0348  |   H|		.DBG4T	0x02a3,0x0348,0x0001,0x0000
0302 ; --------------------------------------------------------------------------------------
0302 ; Debug chain
0302 ; --------------------------------------------------------------------------------------
0302 0003 0000  |    |		.DBGLEN	0x0003,0x0000
0304 000b 001a  |    |		.DBGLNO	0x000b,0x001a,0x001c
0307 ; --------------------------------------------------------------------------------------
0307 ; Debug chain
0307 ; --------------------------------------------------------------------------------------
0307 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0309 001f 0021  |   !|		.DBGLNO	0x001f,0x0021
030b ; --------------------------------------------------------------------------------------
030b ; Debug chain
030b ; --------------------------------------------------------------------------------------
030b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
030d 002b       | +  |		.DBGLNO	0x002b
030e ; --------------------------------------------------------------------------------------
030e ; Debug chain
030e ; --------------------------------------------------------------------------------------
030e 0008 0005  |    |		.DBGLEN	0x0008,0x0005
0310 003b 003c  | ; <|		.DBGLNO	0x003b,0x003c,0x0042,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0055,0x0056,0x0057,0x0058
031d ; --------------------------------------------------------------------------------------
031d ; Debug chain
031d ; --------------------------------------------------------------------------------------
031d 0000 0017  |    |		.DBGLEN	0x0000,0x0017
031f 0063 0071  | c q|		.DBGLNO	0x0063,0x0071,0x007f,0x008d,0x009b,0x00a9,0x00b7,0x00c5,0x00d3,0x00e1,0x00ef,0x00fd,0x010b,0x0119,0x0127,0x0135,0x0143,0x0151,0x015f,0x016d,0x017c,0x017f,0x01ac
0336 ; --------------------------------------------------------------------------------------
0336 ; Debug chain
0336 ; --------------------------------------------------------------------------------------
0336 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0338 01d3 01e4  |    |		.DBGLNO	0x01d3,0x01e4,0x01f5,0x0206,0x0217,0x0228,0x0239
033f ; --------------------------------------------------------------------------------------
033f ; Debug chain
033f ; --------------------------------------------------------------------------------------
033f 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0341 0254 025a  | T Z|		.DBGLNO	0x0254,0x025a
0343 ; --------------------------------------------------------------------------------------
0343 ; Debug chain
0343 ; --------------------------------------------------------------------------------------
0343 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0345 026b 0280  | k  |		.DBGLNO	0x026b,0x0280,0x0295
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug chain
0348 ; --------------------------------------------------------------------------------------
0348 0000 0003  |    |		.DBGLEN	0x0000,0x0003
034a 02a3 02b8  |    |		.DBGLNO	0x02a3,0x02b8,0x02cd
034d 0000 0000  |    |		.BLANK	0000[0xb3]