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

⟦a2a833024⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0760       | `  |		.CONST	0x0760								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01ef       |    |		.CONST	0x01ef								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0024       | $  |		.CONST	0x0024								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 6216       |b   |		Indirect_Literal	Discrete,0x224,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 0129       | )  |		Execute	Any,Make_Visible
0010 0093 0000  |    |		push_full_address	0x0
0012 620d       |b   |		Indirect_Literal	Discrete,0x220,{0x80000000, 0x00020000}
0013 0273       | s  |		Execute	Discrete,Plus
0014 0129       | )  |		Execute	Any,Make_Visible
0015 e002       |    |		Load	0x0,0x2
0016 00d8       |    |		Load_Top	At_Offset_0
0017 e003       |    |		Load	0x0,0x3
0018 00e1       |    |		Load_Encached	Boolean_Cache
0019 e002       |    |		Load	0x0,0x2
001a e004       |    |		Load	0x0,0x4
001b 00d8       |    |		Load_Top	At_Offset_0
001c 00e1       |    |		Load_Encached	Boolean_Cache
001d e004       |    |		Load	0x0,0x4
001e 00e1       |    |		Load_Encached	Boolean_Cache
001f 00e1       |    |		Load_Encached	Boolean_Cache
0020 00e1       |    |		Load_Encached	Boolean_Cache
0021 e004       |    |		Load	0x0,0x4
0022 02a0       |    |		Declare_Subprogram	Null_Subprogram
0023 480d       |H   |		Short_Literal	0xd
0024 032e       | .  |		Declare_Type	Record,Defined,Visible
0025 4800       |H   |		Short_Literal	0x0
0026 4801       |H   |		Short_Literal	0x1
0027 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
0029 03fe       |    |		Declare_Type	Discrete,Defined,Visible
002a 00d8       |    |		Load_Top	At_Offset_0
002b 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
002c 00da       |    |		Load_Top	At_Offset_2
002d 0321       | !  |		Declare_Variable	Record,Visible
002e e005       |    |		Load	0x0,0x5
002f 0129       | )  |		Execute	Any,Make_Visible
0030 e006       |    |		Load	0x0,0x6
0031 0321       | !  |		Declare_Variable	Record,Visible
0032 e006       |    |		Load	0x0,0x6
0033 0321       | !  |		Declare_Variable	Record,Visible
0034 e002       |    |		Load	0x0,0x2
0035 0129       | )  |		Execute	Any,Make_Visible
0036 4800       |H   |		Short_Literal	0x0
0037 4801       |H   |		Short_Literal	0x1
0038 8007       |    |		Call	0x0,0x7
0039 0129       | )  |		Execute	Any,Make_Visible
003a 4801       |H   |		Short_Literal	0x1
003b 4801       |H   |		Short_Literal	0x1
003c 8007       |    |		Call	0x0,0x7
003d 0129       | )  |		Execute	Any,Make_Visible
003e 4802       |H   |		Short_Literal	0x2
003f 4801       |H   |		Short_Literal	0x1
0040 8007       |    |		Call	0x0,0x7
0041 0129       | )  |		Execute	Any,Make_Visible
0042 e008       |    |		Load	0x0,0x8
0043 0129       | )  |		Execute	Any,Make_Visible
0044 e008       |    |		Load	0x0,0x8
0045 0129       | )  |		Execute	Any,Make_Visible
0046 e008       |    |		Load	0x0,0x8
0047 0129       | )  |		Execute	Any,Make_Visible
0048 e008       |    |		Load	0x0,0x8
0049 0129       | )  |		Execute	Any,Make_Visible
004a e008       |    |		Load	0x0,0x8
004b 0129       | )  |		Execute	Any,Make_Visible
004c 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
004e 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0050 00bf       |    |		Action	Accept_Activation
0051 0007       |    |		Action	Break_Optional
0052 0007       |    |		Action	Break_Optional
0053 0007       |    |		Action	Break_Optional
0054 0007       |    |		Action	Break_Optional
0055 4800       |H   |		Short_Literal	0x0
0056 481f       |H   |		Short_Literal	0x1f
0057 e009       |    |		Load	0x0,0x9
0058 0334       | 4  |		Declare_Variable	Array,With_Constraint
0059 4840       |H@  |		Short_Literal	0x40
005a 4800       |H   |		Short_Literal	0x0
005b 00da       |    |		Load_Top	At_Offset_2
005c 01d6       |    |		Execute	Vector,Field_Write
005d 4800       |H   |		Short_Literal	0x0
005e 4801       |H   |		Short_Literal	0x1
005f 00da       |    |		Load_Top	At_Offset_2
0060 01d6       |    |		Execute	Vector,Field_Write
0061 4802       |H   |		Short_Literal	0x2
0062 4802       |H   |		Short_Literal	0x2
0063 00da       |    |		Load_Top	At_Offset_2
0064 01d6       |    |		Execute	Vector,Field_Write
0065 4800       |H   |		Short_Literal	0x0
0066 4803       |H   |		Short_Literal	0x3
0067 00da       |    |		Load_Top	At_Offset_2
0068 01d6       |    |		Execute	Vector,Field_Write
0069 4800       |H   |		Short_Literal	0x0
006a 4804       |H   |		Short_Literal	0x4
006b 00da       |    |		Load_Top	At_Offset_2
006c 01d6       |    |		Execute	Vector,Field_Write
006d 4800       |H   |		Short_Literal	0x0
006e 4805       |H   |		Short_Literal	0x5
006f 00da       |    |		Load_Top	At_Offset_2
0070 01d6       |    |		Execute	Vector,Field_Write
0071 4800       |H   |		Short_Literal	0x0
0072 4806       |H   |		Short_Literal	0x6
0073 00da       |    |		Load_Top	At_Offset_2
0074 01d6       |    |		Execute	Vector,Field_Write
0075 4880       |H   |		Short_Literal	0x80
0076 4807       |H   |		Short_Literal	0x7
0077 00da       |    |		Load_Top	At_Offset_2
0078 01d6       |    |		Execute	Vector,Field_Write
0079 4800       |H   |		Short_Literal	0x0
007a 4808       |H   |		Short_Literal	0x8
007b 00da       |    |		Load_Top	At_Offset_2
007c 01d6       |    |		Execute	Vector,Field_Write
007d 4804       |H   |		Short_Literal	0x4
007e 4809       |H   |		Short_Literal	0x9
007f 00da       |    |		Load_Top	At_Offset_2
0080 01d6       |    |		Execute	Vector,Field_Write
0081 4820       |H   |		Short_Literal	0x20
0082 480a       |H   |		Short_Literal	0xa
0083 00da       |    |		Load_Top	At_Offset_2
0084 01d6       |    |		Execute	Vector,Field_Write
0085 4800       |H   |		Short_Literal	0x0
0086 480b       |H   |		Short_Literal	0xb
0087 00da       |    |		Load_Top	At_Offset_2
0088 01d6       |    |		Execute	Vector,Field_Write
0089 4801       |H   |		Short_Literal	0x1
008a 480c       |H   |		Short_Literal	0xc
008b 00da       |    |		Load_Top	At_Offset_2
008c 01d6       |    |		Execute	Vector,Field_Write
008d 4800       |H   |		Short_Literal	0x0
008e 480d       |H   |		Short_Literal	0xd
008f 00da       |    |		Load_Top	At_Offset_2
0090 01d6       |    |		Execute	Vector,Field_Write
0091 4800       |H   |		Short_Literal	0x0
0092 480e       |H   |		Short_Literal	0xe
0093 00da       |    |		Load_Top	At_Offset_2
0094 01d6       |    |		Execute	Vector,Field_Write
0095 4800       |H   |		Short_Literal	0x0
0096 480f       |H   |		Short_Literal	0xf
0097 00da       |    |		Load_Top	At_Offset_2
0098 01d6       |    |		Execute	Vector,Field_Write
0099 4800       |H   |		Short_Literal	0x0
009a 4810       |H   |		Short_Literal	0x10
009b 00da       |    |		Load_Top	At_Offset_2
009c 01d6       |    |		Execute	Vector,Field_Write
009d 4840       |H@  |		Short_Literal	0x40
009e 4811       |H   |		Short_Literal	0x11
009f 00da       |    |		Load_Top	At_Offset_2
00a0 01d6       |    |		Execute	Vector,Field_Write
00a1 4800       |H   |		Short_Literal	0x0
00a2 4812       |H   |		Short_Literal	0x12
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 01d6       |    |		Execute	Vector,Field_Write
00a5 4802       |H   |		Short_Literal	0x2
00a6 4813       |H   |		Short_Literal	0x13
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 01d6       |    |		Execute	Vector,Field_Write
00a9 4810       |H   |		Short_Literal	0x10
00aa 4814       |H   |		Short_Literal	0x14
00ab 00da       |    |		Load_Top	At_Offset_2
00ac 01d6       |    |		Execute	Vector,Field_Write
00ad 4800       |H   |		Short_Literal	0x0
00ae 4815       |H   |		Short_Literal	0x15
00af 00da       |    |		Load_Top	At_Offset_2
00b0 01d6       |    |		Execute	Vector,Field_Write
00b1 4800       |H   |		Short_Literal	0x0
00b2 4816       |H   |		Short_Literal	0x16
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 01d6       |    |		Execute	Vector,Field_Write
00b5 4800       |H   |		Short_Literal	0x0
00b6 4817       |H   |		Short_Literal	0x17
00b7 00da       |    |		Load_Top	At_Offset_2
00b8 01d6       |    |		Execute	Vector,Field_Write
00b9 4800       |H   |		Short_Literal	0x0
00ba 4818       |H   |		Short_Literal	0x18
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 01d6       |    |		Execute	Vector,Field_Write
00bd 4800       |H   |		Short_Literal	0x0
00be 4819       |H   |		Short_Literal	0x19
00bf 00da       |    |		Load_Top	At_Offset_2
00c0 01d6       |    |		Execute	Vector,Field_Write
00c1 4800       |H   |		Short_Literal	0x0
00c2 481a       |H   |		Short_Literal	0x1a
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 01d6       |    |		Execute	Vector,Field_Write
00c5 4820       |H   |		Short_Literal	0x20
00c6 481b       |H   |		Short_Literal	0x1b
00c7 00da       |    |		Load_Top	At_Offset_2
00c8 01d6       |    |		Execute	Vector,Field_Write
00c9 4800       |H   |		Short_Literal	0x0
00ca 481c       |H   |		Short_Literal	0x1c
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 01d6       |    |		Execute	Vector,Field_Write
00cd 4801       |H   |		Short_Literal	0x1
00ce 481d       |H   |		Short_Literal	0x1d
00cf 00da       |    |		Load_Top	At_Offset_2
00d0 01d6       |    |		Execute	Vector,Field_Write
00d1 4808       |H   |		Short_Literal	0x8
00d2 481e       |H   |		Short_Literal	0x1e
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 01d6       |    |		Execute	Vector,Field_Write
00d5 4800       |H   |		Short_Literal	0x0
00d6 481f       |H   |		Short_Literal	0x1f
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 01d6       |    |		Execute	Vector,Field_Write
00d9 0007       |    |		Action	Break_Optional
00da 0007       |    |		Action	Break_Optional
00db 0007       |    |		Action	Break_Optional
00dc 0007       |    |		Action	Break_Optional
00dd 4800       |H   |		Short_Literal	0x0
00de 481f       |H   |		Short_Literal	0x1f
00df e009       |    |		Load	0x0,0x9
00e0 0334       | 4  |		Declare_Variable	Array,With_Constraint
00e1 4855       |HU  |		Short_Literal	0x55
00e2 4800       |H   |		Short_Literal	0x0
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 01d6       |    |		Execute	Vector,Field_Write
00e5 4855       |HU  |		Short_Literal	0x55
00e6 4801       |H   |		Short_Literal	0x1
00e7 00da       |    |		Load_Top	At_Offset_2
00e8 01d6       |    |		Execute	Vector,Field_Write
00e9 48aa       |H   |		Short_Literal	0xaa
00ea 4802       |H   |		Short_Literal	0x2
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 01d6       |    |		Execute	Vector,Field_Write
00ed 48aa       |H   |		Short_Literal	0xaa
00ee 4803       |H   |		Short_Literal	0x3
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 01d6       |    |		Execute	Vector,Field_Write
00f1 4855       |HU  |		Short_Literal	0x55
00f2 4804       |H   |		Short_Literal	0x4
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 01d6       |    |		Execute	Vector,Field_Write
00f5 4855       |HU  |		Short_Literal	0x55
00f6 4805       |H   |		Short_Literal	0x5
00f7 00da       |    |		Load_Top	At_Offset_2
00f8 01d6       |    |		Execute	Vector,Field_Write
00f9 48aa       |H   |		Short_Literal	0xaa
00fa 4806       |H   |		Short_Literal	0x6
00fb 00da       |    |		Load_Top	At_Offset_2
00fc 01d6       |    |		Execute	Vector,Field_Write
00fd 48aa       |H   |		Short_Literal	0xaa
00fe 4807       |H   |		Short_Literal	0x7
00ff 00da       |    |		Load_Top	At_Offset_2
0100 01d6       |    |		Execute	Vector,Field_Write
0101 4855       |HU  |		Short_Literal	0x55
0102 4808       |H   |		Short_Literal	0x8
0103 00da       |    |		Load_Top	At_Offset_2
0104 01d6       |    |		Execute	Vector,Field_Write
0105 4855       |HU  |		Short_Literal	0x55
0106 4809       |H   |		Short_Literal	0x9
0107 00da       |    |		Load_Top	At_Offset_2
0108 01d6       |    |		Execute	Vector,Field_Write
0109 48aa       |H   |		Short_Literal	0xaa
010a 480a       |H   |		Short_Literal	0xa
010b 00da       |    |		Load_Top	At_Offset_2
010c 01d6       |    |		Execute	Vector,Field_Write
010d 48aa       |H   |		Short_Literal	0xaa
010e 480b       |H   |		Short_Literal	0xb
010f 00da       |    |		Load_Top	At_Offset_2
0110 01d6       |    |		Execute	Vector,Field_Write
0111 4855       |HU  |		Short_Literal	0x55
0112 480c       |H   |		Short_Literal	0xc
0113 00da       |    |		Load_Top	At_Offset_2
0114 01d6       |    |		Execute	Vector,Field_Write
0115 4855       |HU  |		Short_Literal	0x55
0116 480d       |H   |		Short_Literal	0xd
0117 00da       |    |		Load_Top	At_Offset_2
0118 01d6       |    |		Execute	Vector,Field_Write
0119 48aa       |H   |		Short_Literal	0xaa
011a 480e       |H   |		Short_Literal	0xe
011b 00da       |    |		Load_Top	At_Offset_2
011c 01d6       |    |		Execute	Vector,Field_Write
011d 48aa       |H   |		Short_Literal	0xaa
011e 480f       |H   |		Short_Literal	0xf
011f 00da       |    |		Load_Top	At_Offset_2
0120 01d6       |    |		Execute	Vector,Field_Write
0121 4855       |HU  |		Short_Literal	0x55
0122 4810       |H   |		Short_Literal	0x10
0123 00da       |    |		Load_Top	At_Offset_2
0124 01d6       |    |		Execute	Vector,Field_Write
0125 4855       |HU  |		Short_Literal	0x55
0126 4811       |H   |		Short_Literal	0x11
0127 00da       |    |		Load_Top	At_Offset_2
0128 01d6       |    |		Execute	Vector,Field_Write
0129 48aa       |H   |		Short_Literal	0xaa
012a 4812       |H   |		Short_Literal	0x12
012b 00da       |    |		Load_Top	At_Offset_2
012c 01d6       |    |		Execute	Vector,Field_Write
012d 48aa       |H   |		Short_Literal	0xaa
012e 4813       |H   |		Short_Literal	0x13
012f 00da       |    |		Load_Top	At_Offset_2
0130 01d6       |    |		Execute	Vector,Field_Write
0131 4855       |HU  |		Short_Literal	0x55
0132 4814       |H   |		Short_Literal	0x14
0133 00da       |    |		Load_Top	At_Offset_2
0134 01d6       |    |		Execute	Vector,Field_Write
0135 4855       |HU  |		Short_Literal	0x55
0136 4815       |H   |		Short_Literal	0x15
0137 00da       |    |		Load_Top	At_Offset_2
0138 01d6       |    |		Execute	Vector,Field_Write
0139 48aa       |H   |		Short_Literal	0xaa
013a 4816       |H   |		Short_Literal	0x16
013b 00da       |    |		Load_Top	At_Offset_2
013c 01d6       |    |		Execute	Vector,Field_Write
013d 48aa       |H   |		Short_Literal	0xaa
013e 4817       |H   |		Short_Literal	0x17
013f 00da       |    |		Load_Top	At_Offset_2
0140 01d6       |    |		Execute	Vector,Field_Write
0141 4855       |HU  |		Short_Literal	0x55
0142 4818       |H   |		Short_Literal	0x18
0143 00da       |    |		Load_Top	At_Offset_2
0144 01d6       |    |		Execute	Vector,Field_Write
0145 4855       |HU  |		Short_Literal	0x55
0146 4819       |H   |		Short_Literal	0x19
0147 00da       |    |		Load_Top	At_Offset_2
0148 01d6       |    |		Execute	Vector,Field_Write
0149 48aa       |H   |		Short_Literal	0xaa
014a 481a       |H   |		Short_Literal	0x1a
014b 00da       |    |		Load_Top	At_Offset_2
014c 01d6       |    |		Execute	Vector,Field_Write
014d 48aa       |H   |		Short_Literal	0xaa
014e 481b       |H   |		Short_Literal	0x1b
014f 00da       |    |		Load_Top	At_Offset_2
0150 01d6       |    |		Execute	Vector,Field_Write
0151 4855       |HU  |		Short_Literal	0x55
0152 481c       |H   |		Short_Literal	0x1c
0153 00da       |    |		Load_Top	At_Offset_2
0154 01d6       |    |		Execute	Vector,Field_Write
0155 4855       |HU  |		Short_Literal	0x55
0156 481d       |H   |		Short_Literal	0x1d
0157 00da       |    |		Load_Top	At_Offset_2
0158 01d6       |    |		Execute	Vector,Field_Write
0159 48aa       |H   |		Short_Literal	0xaa
015a 481e       |H   |		Short_Literal	0x1e
015b 00da       |    |		Load_Top	At_Offset_2
015c 01d6       |    |		Execute	Vector,Field_Write
015d 48aa       |H   |		Short_Literal	0xaa
015e 481f       |H   |		Short_Literal	0x1f
015f 00da       |    |		Load_Top	At_Offset_2
0160 01d6       |    |		Execute	Vector,Field_Write
0161 0007       |    |		Action	Break_Optional
0162 0007       |    |		Action	Break_Optional
0163 0007       |    |		Action	Break_Optional
0164 0007       |    |		Action	Break_Optional
0165 4800       |H   |		Short_Literal	0x0
0166 481f       |H   |		Short_Literal	0x1f
0167 e009       |    |		Load	0x0,0x9
0168 0334       | 4  |		Declare_Variable	Array,With_Constraint
0169 4844       |HD  |		Short_Literal	0x44
016a 4800       |H   |		Short_Literal	0x0
016b 00da       |    |		Load_Top	At_Offset_2
016c 01d6       |    |		Execute	Vector,Field_Write
016d 4804       |H   |		Short_Literal	0x4
016e 4801       |H   |		Short_Literal	0x1
016f 00da       |    |		Load_Top	At_Offset_2
0170 01d6       |    |		Execute	Vector,Field_Write
0171 4820       |H   |		Short_Literal	0x20
0172 4802       |H   |		Short_Literal	0x2
0173 00da       |    |		Load_Top	At_Offset_2
0174 01d6       |    |		Execute	Vector,Field_Write
0175 4822       |H"  |		Short_Literal	0x22
0176 4803       |H   |		Short_Literal	0x3
0177 00da       |    |		Load_Top	At_Offset_2
0178 01d6       |    |		Execute	Vector,Field_Write
0179 4801       |H   |		Short_Literal	0x1
017a 4804       |H   |		Short_Literal	0x4
017b 00da       |    |		Load_Top	At_Offset_2
017c 01d6       |    |		Execute	Vector,Field_Write
017d 4811       |H   |		Short_Literal	0x11
017e 4805       |H   |		Short_Literal	0x5
017f 00da       |    |		Load_Top	At_Offset_2
0180 01d6       |    |		Execute	Vector,Field_Write
0181 4808       |H   |		Short_Literal	0x8
0182 4806       |H   |		Short_Literal	0x6
0183 00da       |    |		Load_Top	At_Offset_2
0184 01d6       |    |		Execute	Vector,Field_Write
0185 4888       |H   |		Short_Literal	0x88
0186 4807       |H   |		Short_Literal	0x7
0187 00da       |    |		Load_Top	At_Offset_2
0188 01d6       |    |		Execute	Vector,Field_Write
0189 4844       |HD  |		Short_Literal	0x44
018a 4808       |H   |		Short_Literal	0x8
018b 00da       |    |		Load_Top	At_Offset_2
018c 01d6       |    |		Execute	Vector,Field_Write
018d 4840       |H@  |		Short_Literal	0x40
018e 4809       |H   |		Short_Literal	0x9
018f 00da       |    |		Load_Top	At_Offset_2
0190 01d6       |    |		Execute	Vector,Field_Write
0191 4822       |H"  |		Short_Literal	0x22
0192 480a       |H   |		Short_Literal	0xa
0193 00da       |    |		Load_Top	At_Offset_2
0194 01d6       |    |		Execute	Vector,Field_Write
0195 4802       |H   |		Short_Literal	0x2
0196 480b       |H   |		Short_Literal	0xb
0197 00da       |    |		Load_Top	At_Offset_2
0198 01d6       |    |		Execute	Vector,Field_Write
0199 4810       |H   |		Short_Literal	0x10
019a 480c       |H   |		Short_Literal	0xc
019b 00da       |    |		Load_Top	At_Offset_2
019c 01d6       |    |		Execute	Vector,Field_Write
019d 4811       |H   |		Short_Literal	0x11
019e 480d       |H   |		Short_Literal	0xd
019f 00da       |    |		Load_Top	At_Offset_2
01a0 01d6       |    |		Execute	Vector,Field_Write
01a1 4880       |H   |		Short_Literal	0x80
01a2 480e       |H   |		Short_Literal	0xe
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 01d6       |    |		Execute	Vector,Field_Write
01a5 4888       |H   |		Short_Literal	0x88
01a6 480f       |H   |		Short_Literal	0xf
01a7 00da       |    |		Load_Top	At_Offset_2
01a8 01d6       |    |		Execute	Vector,Field_Write
01a9 4804       |H   |		Short_Literal	0x4
01aa 4810       |H   |		Short_Literal	0x10
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 01d6       |    |		Execute	Vector,Field_Write
01ad 4844       |HD  |		Short_Literal	0x44
01ae 4811       |H   |		Short_Literal	0x11
01af 00da       |    |		Load_Top	At_Offset_2
01b0 01d6       |    |		Execute	Vector,Field_Write
01b1 4822       |H"  |		Short_Literal	0x22
01b2 4812       |H   |		Short_Literal	0x12
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 01d6       |    |		Execute	Vector,Field_Write
01b5 4820       |H   |		Short_Literal	0x20
01b6 4813       |H   |		Short_Literal	0x13
01b7 00da       |    |		Load_Top	At_Offset_2
01b8 01d6       |    |		Execute	Vector,Field_Write
01b9 4811       |H   |		Short_Literal	0x11
01ba 4814       |H   |		Short_Literal	0x14
01bb 00da       |    |		Load_Top	At_Offset_2
01bc 01d6       |    |		Execute	Vector,Field_Write
01bd 4801       |H   |		Short_Literal	0x1
01be 4815       |H   |		Short_Literal	0x15
01bf 00da       |    |		Load_Top	At_Offset_2
01c0 01d6       |    |		Execute	Vector,Field_Write
01c1 4888       |H   |		Short_Literal	0x88
01c2 4816       |H   |		Short_Literal	0x16
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 01d6       |    |		Execute	Vector,Field_Write
01c5 4808       |H   |		Short_Literal	0x8
01c6 4817       |H   |		Short_Literal	0x17
01c7 00da       |    |		Load_Top	At_Offset_2
01c8 01d6       |    |		Execute	Vector,Field_Write
01c9 4840       |H@  |		Short_Literal	0x40
01ca 4818       |H   |		Short_Literal	0x18
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 01d6       |    |		Execute	Vector,Field_Write
01cd 4844       |HD  |		Short_Literal	0x44
01ce 4819       |H   |		Short_Literal	0x19
01cf 00da       |    |		Load_Top	At_Offset_2
01d0 01d6       |    |		Execute	Vector,Field_Write
01d1 4802       |H   |		Short_Literal	0x2
01d2 481a       |H   |		Short_Literal	0x1a
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 01d6       |    |		Execute	Vector,Field_Write
01d5 4822       |H"  |		Short_Literal	0x22
01d6 481b       |H   |		Short_Literal	0x1b
01d7 00da       |    |		Load_Top	At_Offset_2
01d8 01d6       |    |		Execute	Vector,Field_Write
01d9 4811       |H   |		Short_Literal	0x11
01da 481c       |H   |		Short_Literal	0x1c
01db 00da       |    |		Load_Top	At_Offset_2
01dc 01d6       |    |		Execute	Vector,Field_Write
01dd 4810       |H   |		Short_Literal	0x10
01de 481d       |H   |		Short_Literal	0x1d
01df 00da       |    |		Load_Top	At_Offset_2
01e0 01d6       |    |		Execute	Vector,Field_Write
01e1 4888       |H   |		Short_Literal	0x88
01e2 481e       |H   |		Short_Literal	0x1e
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 01d6       |    |		Execute	Vector,Field_Write
01e5 4880       |H   |		Short_Literal	0x80
01e6 481f       |H   |		Short_Literal	0x1f
01e7 00da       |    |		Load_Top	At_Offset_2
01e8 01d6       |    |		Execute	Vector,Field_Write
01e9 029d 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call
01eb 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
01ec 00c7       |    |		Action	Elaborate_Subprogram
01ed 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
01ee 00c7       |    |		Action	Elaborate_Subprogram
01ef			BODY_0008:
01ef 00bc       |    |		Action	Signal_Activated
01f0 00bb       |    |		Action	Signal_Completion
01f1 0000 0000  |    |		.BLANK	0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 4607       |F   |		Jump_Case	0x8
01fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01fd 7807       |x   |		Jump	0x205								; case 0x1
01fe 780a       |x   |		Jump	0x209								; case 0x2
01ff 780e       |x   |		Jump	0x20e								; case 0x3
0200 7811       |x   |		Jump	0x212								; case 0x4
0201 7812       |x   |		Jump	0x214								; case 0x5
0202 7813       |x   |		Jump	0x216								; case 0x6
0203 7816       |x   |		Jump	0x21a								; case 0x7
0204 4302       |C   |		.XXX[0x1]
0205 00da       |    |		Load_Top	At_Offset_2
0206 0091 06ed  |    |		Action	Push_String_Extended_Indexed,0x6ed				; "S_PLAY"
0208 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0209 00db       |    |		Load_Top	At_Offset_3
020a 00db       |    |		Load_Top	At_Offset_3
020b 00e0       |    |		Load_Encached	Standard_Cache
020c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
020d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020e 00da       |    |		Load_Top	At_Offset_2
020f 00e0       |    |		Load_Encached	Standard_Cache
0210 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0211 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0212 00db       |    |		Load_Top	At_Offset_3
0213 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0214 00db       |    |		Load_Top	At_Offset_3
0215 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0216 e210       |    |		Load	0x1,0x10
0217 00dc       |    |		Load_Top	At_Offset_4
0218 0267       | g  |		Execute	Discrete,Predecessor
0219 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
021a e210       |    |		Load	0x1,0x10
021b 00dc       |    |		Load_Top	At_Offset_4
021c 0268       | h  |		Execute	Discrete,Successor
021d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
021e 0000 0000  |    |		.XXX[0x2]
0220 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0224 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022d       | -  |		.CONST	0x022d								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b e00a       |    |		Load	0x0,0xa
022c 0337       | 7  |		Declare_Variable	Array
022d			BODY_0228:
022d 4800       |H   |		Short_Literal	0x0
022e e5fe       |    |		Load	0x2,-0x2
022f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0230 4800       |H   |		Short_Literal	0x0
0231 e5fe       |    |		Load	0x2,-0x2
0232 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0233 e00b       |    |		Load	0x0,0xb
0234 00d9       |    |		Load_Top	At_Offset_1
0235 01d4       |    |		Execute	Vector,Structure_Write
0236 00db       |    |		Load_Top	At_Offset_3
0237 4800       |H   |		Short_Literal	0x0
0238 00e5       |    |		Load_Encached	Long_Integer_Cache
0239 00d9       |    |		Load_Top	At_Offset_1
023a 0267       | g  |		Execute	Discrete,Predecessor
023b e00c       |    |		Load	0x0,0xc
023c 0334       | 4  |		Declare_Variable	Array,With_Constraint
023d 01de       |    |		Execute	Vector,Not_Equal
023e 6844       |hD  |		Jump_Zero	0x283
023f 00d8       |    |		Load_Top	At_Offset_0
0240 e5fe       |    |		Load	0x2,-0x2
0241 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0242 e00d       |    |		Load	0x0,0xd
0243 025e       | ^  |		Execute	Discrete,Convert
0244 e5fe       |    |		Load	0x2,-0x2
0245 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0246 e00d       |    |		Load	0x0,0xd
0247 025e       | ^  |		Execute	Discrete,Convert
0248 e5fe       |    |		Load	0x2,-0x2
0249 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
024a e00e       |    |		Load	0x0,0xe
024b 025e       | ^  |		Execute	Discrete,Convert
024c e5fe       |    |		Load	0x2,-0x2
024d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
024e e00e       |    |		Load	0x0,0xe
024f 025e       | ^  |		Execute	Discrete,Convert
0250 e5ff       |    |		Load	0x2,-0x1
0251 800f       |    |		Call	0x0,0xf
0252 e5fe       |    |		Load	0x2,-0x2
0253 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0254 e5fe       |    |		Load	0x2,-0x2
0255 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0256 e5fe       |    |		Load	0x2,-0x2
0257 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0258 e5fe       |    |		Load	0x2,-0x2
0259 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
025a 00d1       |    |		Pop_Control	Pop_Count_1
025b 481d       |H   |		Short_Literal	0x1d
025c 00d9       |    |		Load_Top	At_Offset_1
025d 01d7       |    |		Execute	Vector,Field_Read
025e 6817       |h   |		Jump_Zero	0x276
025f 481c       |H   |		Short_Literal	0x1c
0260 00d9       |    |		Load_Top	At_Offset_1
0261 01d7       |    |		Execute	Vector,Field_Read
0262 6813       |h   |		Jump_Zero	0x276
0263 e5fe       |    |		Load	0x2,-0x2
0264 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0265 e5fe       |    |		Load	0x2,-0x2
0266 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0267 8010       |    |		Call	0x0,0x10
0268 e5fe       |    |		Load	0x2,-0x2
0269 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
026a e5fe       |    |		Load	0x2,-0x2
026b 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
026c e5fe       |    |		Load	0x2,-0x2
026d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
026e 8010       |    |		Call	0x0,0x10
026f e5fe       |    |		Load	0x2,-0x2
0270 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0271 4801       |H   |		Short_Literal	0x1
0272 481e       |H   |		Short_Literal	0x1e
0273 e5fe       |    |		Load	0x2,-0x2
0274 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0275 01d6       |    |		Execute	Vector,Field_Write
0276 481f       |H   |		Short_Literal	0x1f
0277 00d9       |    |		Load_Top	At_Offset_1
0278 01d7       |    |		Execute	Vector,Field_Read
0279 6809       |h   |		Jump_Zero	0x283
027a 481e       |H   |		Short_Literal	0x1e
027b 00d9       |    |		Load_Top	At_Offset_1
027c 01d7       |    |		Execute	Vector,Field_Read
027d 6805       |h   |		Jump_Zero	0x283
027e 4801       |H   |		Short_Literal	0x1
027f 481f       |H   |		Short_Literal	0x1f
0280 e5fe       |    |		Load	0x2,-0x2
0281 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0282 01d6       |    |		Execute	Vector,Field_Write
0283 481e       |H   |		Short_Literal	0x1e
0284 e5fe       |    |		Load	0x2,-0x2
0285 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0286 01d7       |    |		Execute	Vector,Field_Read
0287 700d       |p   |		Jump_Nonzero	0x295
0288 e5fe       |    |		Load	0x2,-0x2
0289 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
028a e5fe       |    |		Load	0x2,-0x2
028b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
028c e5fe       |    |		Load	0x2,-0x2
028d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
028e e5fe       |    |		Load	0x2,-0x2
028f 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0290 4801       |H   |		Short_Literal	0x1
0291 481c       |H   |		Short_Literal	0x1c
0292 e5fe       |    |		Load	0x2,-0x2
0293 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0294 01d6       |    |		Execute	Vector,Field_Write
0295 481f       |H   |		Short_Literal	0x1f
0296 e5fe       |    |		Load	0x2,-0x2
0297 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0298 01d7       |    |		Execute	Vector,Field_Read
0299 700b       |p   |		Jump_Nonzero	0x2a5
029a 4800       |H   |		Short_Literal	0x0
029b e5fe       |    |		Load	0x2,-0x2
029c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
029d 4800       |H   |		Short_Literal	0x0
029e e5fe       |    |		Load	0x2,-0x2
029f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02a0 4801       |H   |		Short_Literal	0x1
02a1 481d       |H   |		Short_Literal	0x1d
02a2 e5fe       |    |		Load	0x2,-0x2
02a3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02a4 01d6       |    |		Execute	Vector,Field_Write
02a5 481b       |H   |		Short_Literal	0x1b
02a6 00d9       |    |		Load_Top	At_Offset_1
02a7 01d7       |    |		Execute	Vector,Field_Read
02a8 680c       |h   |		Jump_Zero	0x2b5
02a9 e213       |    |		Load	0x1,0x13
02aa 8011       |    |		Call	0x0,0x11
02ab e213       |    |		Load	0x1,0x13
02ac 8012       |    |		Call	0x0,0x12
02ad e5fe       |    |		Load	0x2,-0x2
02ae 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02af 0273       | s  |		Execute	Discrete,Plus
02b0 e5fe       |    |		Load	0x2,-0x2
02b1 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02b2 0272       | r  |		Execute	Discrete,Minus
02b3 e5fe       |    |		Load	0x2,-0x2
02b4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02b5 481a       |H   |		Short_Literal	0x1a
02b6 00d9       |    |		Load_Top	At_Offset_1
02b7 01d7       |    |		Execute	Vector,Field_Read
02b8 680c       |h   |		Jump_Zero	0x2c5
02b9 e213       |    |		Load	0x1,0x13
02ba 8011       |    |		Call	0x0,0x11
02bb e213       |    |		Load	0x1,0x13
02bc 8013       |    |		Call	0x0,0x13
02bd e5fe       |    |		Load	0x2,-0x2
02be 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02bf 0273       | s  |		Execute	Discrete,Plus
02c0 e5fe       |    |		Load	0x2,-0x2
02c1 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02c2 0272       | r  |		Execute	Discrete,Minus
02c3 e5fe       |    |		Load	0x2,-0x2
02c4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c6 0000 0000  |    |		.XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02f3       |    |		.CONST	0x02f3								; Address of begin
02c9 0556       | V  |		.CONST	0x0556								; Address of exception handler
02ca 000d       |    |		.CONST	0x000d								; Number of locals
02cb			INIT_02c8:
02cb e014       |    |		Load	0x0,0x14
02cc 0322       | "  |		Declare_Variable	Record
02cd 00d8       |    |		Load_Top	At_Offset_0
02ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02cf e015       |    |		Load	0x0,0x15
02d0 0322       | "  |		Declare_Variable	Record
02d1 e016       |    |		Load	0x0,0x16
02d2 0322       | "  |		Declare_Variable	Record
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d5 e017       |    |		Load	0x0,0x17
02d6 0322       | "  |		Declare_Variable	Record
02d7 00d8       |    |		Load_Top	At_Offset_0
02d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d9 e018       |    |		Load	0x0,0x18
02da 0322       | "  |		Declare_Variable	Record
02db 00d8       |    |		Load_Top	At_Offset_0
02dc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02dd e019       |    |		Load	0x0,0x19
02de 0337       | 7  |		Declare_Variable	Array
02df e01a       |    |		Load	0x0,0x1a
02e0 00d9       |    |		Load_Top	At_Offset_1
02e1 01d4       |    |		Execute	Vector,Structure_Write
02e2 e01b       |    |		Load	0x0,0x1b
02e3 0007       |    |		Action	Break_Optional
02e4 e01c       |    |		Load	0x0,0x1c
02e5 02ff       |    |		Declare_Variable	Variant_Record
02e6 00d8       |    |		Load_Top	At_Offset_0
02e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e8 e01d       |    |		Load	0x0,0x1d
02e9 0007       |    |		Action	Break_Optional
02ea e006       |    |		Load	0x0,0x6
02eb 0322       | "  |		Declare_Variable	Record
02ec e01e       |    |		Load	0x0,0x1e
02ed 00d9       |    |		Load_Top	At_Offset_1
02ee 017d       | }  |		Execute	Record,Structure_Write
02ef e5ff       |    |		Load	0x2,-0x1
02f0 801f       |    |		Call	0x0,0x1f
02f1 029f 06cb  |    |		Declare_Subprogram	INIT_06c8,For_Call
02f3			BODY_02c8:
02f3 e402       |    |		Load	0x2,0x2
02f4 e005       |    |		Load	0x0,0x5
02f5 00db       |    |		Load_Top	At_Offset_3
02f6 8020       |    |		Call	0x0,0x20
02f7 c213       |    |		Store	0x1,0x13
02f8 00d1       |    |		Pop_Control	Pop_Count_1
02f9 e213       |    |		Load	0x1,0x13
02fa 7010       |p   |		Jump_Nonzero	0x30b
02fb 0092 06ef  |    |		Action	Push_String_Extended,0x6ef					; "Unable to open display {"
02fd e5ff       |    |		Load	0x2,-0x1
02fe 8021       | !  |		Call	0x0,0x21
02ff 01cc       |    |		Execute	Vector,Catenate
0300 0092 06f0  |    |		Action	Push_String_Extended,0x6f0					; "}: "
0302 01cc       |    |		Execute	Vector,Catenate
0303 e402       |    |		Load	0x2,0x2
0304 8022       | "  |		Call	0x0,0x22
0305 8021       | !  |		Call	0x0,0x21
0306 01cc       |    |		Execute	Vector,Catenate
0307 e023       | #  |		Load	0x0,0x23
0308 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0309 e20e       |    |		Load	0x1,0xe
030a 0257       | W  |		Execute	Discrete,Raise
030b e213       |    |		Load	0x1,0x13
030c 8011       |    |		Call	0x0,0x11
030d a408       |    |		Store_Unchecked	0x2,0x8
030e e408       |    |		Load	0x2,0x8
030f e213       |    |		Load	0x1,0x13
0310 8024       | $  |		Call	0x0,0x24
0311 e212       |    |		Load	0x1,0x12
0312 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0313 483c       |H<  |		Short_Literal	0x3c
0314 e213       |    |		Load	0x1,0x13
0315 8025       | %  |		Call	0x0,0x25
0316 e212       |    |		Load	0x1,0x12
0317 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0318 4800       |H   |		Short_Literal	0x0
0319 e212       |    |		Load	0x1,0x12
031a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
031b 48fa       |H   |		Short_Literal	0xfa
031c e212       |    |		Load	0x1,0x12
031d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
031e e408       |    |		Load	0x2,0x8
031f e213       |    |		Load	0x1,0x13
0320 8026       | &  |		Call	0x0,0x26
0321 e212       |    |		Load	0x1,0x12
0322 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0323 4800       |H   |		Short_Literal	0x0
0324 4806       |H   |		Short_Literal	0x6
0325 e00c       |    |		Load	0x0,0xc
0326 0334       | 4  |		Declare_Variable	Array,With_Constraint
0327 5240       |R@  |		Indirect_Literal	Any,0x568,{0x34353078, 0x33343000}
0328 e004       |    |		Load	0x0,0x4
0329 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
032a e212       |    |		Load	0x1,0x12
032b 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
032c 4800       |H   |		Short_Literal	0x0
032d 4804       |H   |		Short_Literal	0x4
032e e00c       |    |		Load	0x0,0xc
032f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0330 523b       |R;  |		Indirect_Literal	Any,0x56c,{0x36347836, 0x34000000}
0331 e004       |    |		Load	0x0,0x4
0332 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0333 e212       |    |		Load	0x1,0x12
0334 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0335 4800       |H   |		Short_Literal	0x0
0336 e212       |    |		Load	0x1,0x12
0337 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0338 e004       |    |		Load	0x0,0x4
0339 e212       |    |		Load	0x1,0x12
033a 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
033b 4800       |H   |		Short_Literal	0x0
033c e212       |    |		Load	0x1,0x12
033d 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
033e 4801       |H   |		Short_Literal	0x1
033f e212       |    |		Load	0x1,0x12
0340 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0341 4801       |H   |		Short_Literal	0x1
0342 e212       |    |		Load	0x1,0x12
0343 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0344 4800       |H   |		Short_Literal	0x0
0345 4803       |H   |		Short_Literal	0x3
0346 e00c       |    |		Load	0x0,0xc
0347 0334       | 4  |		Declare_Variable	Array,With_Constraint
0348 5227       |R'  |		Indirect_Literal	Any,0x570,{0x67726179, 0x00000000}
0349 e004       |    |		Load	0x0,0x4
034a 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
034b e212       |    |		Load	0x1,0x12
034c 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
034d 49c2       |I   |		Short_Literal	0x1c2
034e e404       |    |		Load	0x2,0x4
034f 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0350 4954       |IT  |		Short_Literal	0x154
0351 e404       |    |		Load	0x2,0x4
0352 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0353 49c2       |I   |		Short_Literal	0x1c2
0354 e404       |    |		Load	0x2,0x4
0355 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0356 4954       |IT  |		Short_Literal	0x154
0357 e404       |    |		Load	0x2,0x4
0358 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0359 48d2       |H   |		Short_Literal	0xd2
035a e404       |    |		Load	0x2,0x4
035b 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
035c 48a0       |H   |		Short_Literal	0xa0
035d e404       |    |		Load	0x2,0x4
035e 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
035f 6204       |b   |		Indirect_Literal	Discrete,0x564,{0x00000000, 0x00000535}
0360 e404       |    |		Load	0x2,0x4
0361 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0362 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0363 4be8       |K   |		Short_Literal	0x3e8
0364 e404       |    |		Load	0x2,0x4
0365 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0366 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0367 61fc       |a   |		Indirect_Literal	Discrete,0x564,{0x00000000, 0x00000535}
0368 e404       |    |		Load	0x2,0x4
0369 340c       |4   |		Execute	Record,Field_Reference,Field_Number 0xc
036a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
036b 4be8       |K   |		Short_Literal	0x3e8
036c e404       |    |		Load	0x2,0x4
036d 340c       |4   |		Execute	Record,Field_Reference,Field_Number 0xc
036e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
036f e027       | '  |		Load	0x0,0x27
0370 0337       | 7  |		Declare_Variable	Array
0371 4801       |H   |		Short_Literal	0x1
0372 481b       |H   |		Short_Literal	0x1b
0373 00da       |    |		Load_Top	At_Offset_2
0374 01d6       |    |		Execute	Vector,Field_Write
0375 4801       |H   |		Short_Literal	0x1
0376 4818       |H   |		Short_Literal	0x18
0377 00da       |    |		Load_Top	At_Offset_2
0378 01d6       |    |		Execute	Vector,Field_Write
0379 4801       |H   |		Short_Literal	0x1
037a 4819       |H   |		Short_Literal	0x19
037b 00da       |    |		Load_Top	At_Offset_2
037c 01d6       |    |		Execute	Vector,Field_Write
037d 4801       |H   |		Short_Literal	0x1
037e 4817       |H   |		Short_Literal	0x17
037f 00da       |    |		Load_Top	At_Offset_2
0380 01d6       |    |		Execute	Vector,Field_Write
0381 4816       |H   |		Short_Literal	0x16
0382 4800       |H   |		Short_Literal	0x0
0383 4800       |H   |		Short_Literal	0x0
0384 00d9       |    |		Load_Top	At_Offset_1
0385 e40e       |    |		Load	0x2,0xe
0386 01d6       |    |		Execute	Vector,Field_Write
0387 3ffb       |?   |		Loop_Increasing	0x383
0388 4800       |H   |		Short_Literal	0x0
0389 481a       |H   |		Short_Literal	0x1a
038a 00da       |    |		Load_Top	At_Offset_2
038b 01d6       |    |		Execute	Vector,Field_Write
038c 481f       |H   |		Short_Literal	0x1f
038d 481c       |H   |		Short_Literal	0x1c
038e 4800       |H   |		Short_Literal	0x0
038f 00d9       |    |		Load_Top	At_Offset_1
0390 e40e       |    |		Load	0x2,0xe
0391 01d6       |    |		Execute	Vector,Field_Write
0392 3ffb       |?   |		Loop_Increasing	0x38e
0393 e027       | '  |		Load	0x0,0x27
0394 01c3       |    |		Execute	Vector,Check_In_Type
0395 e404       |    |		Load	0x2,0x4
0396 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0397 e404       |    |		Load	0x2,0x4
0398 e212       |    |		Load	0x1,0x12
0399 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
039a 0227       | '  |		Execute	Access,All_Reference
039b 821f       |    |		Call	0x1,0x1f
039c 00d1       |    |		Pop_Control	Pop_Count_1
039d 4801       |H   |		Short_Literal	0x1
039e e405       |    |		Load	0x2,0x5
039f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03a0 e028       | (  |		Load	0x0,0x28
03a1 0337       | 7  |		Declare_Variable	Array
03a2 4801       |H   |		Short_Literal	0x1
03a3 481f       |H   |		Short_Literal	0x1f
03a4 00da       |    |		Load_Top	At_Offset_2
03a5 01d6       |    |		Execute	Vector,Field_Write
03a6 481e       |H   |		Short_Literal	0x1e
03a7 4800       |H   |		Short_Literal	0x0
03a8 4800       |H   |		Short_Literal	0x0
03a9 00d9       |    |		Load_Top	At_Offset_1
03aa e40e       |    |		Load	0x2,0xe
03ab 01d6       |    |		Execute	Vector,Field_Write
03ac 3ffb       |?   |		Loop_Increasing	0x3a8
03ad e028       | (  |		Load	0x0,0x28
03ae 01c3       |    |		Execute	Vector,Check_In_Type
03af e405       |    |		Load	0x2,0x5
03b0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03b1 4800       |H   |		Short_Literal	0x0
03b2 4805       |H   |		Short_Literal	0x5
03b3 e00c       |    |		Load	0x0,0xc
03b4 0334       | 4  |		Declare_Variable	Array,With_Constraint
03b5 51be       |Q   |		Indirect_Literal	Any,0x574,{0x64726167, 0x6f6e0000}
03b6 e004       |    |		Load	0x0,0x4
03b7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
03b8 e403       |    |		Load	0x2,0x3
03b9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03ba 4800       |H   |		Short_Literal	0x0
03bb 4805       |H   |		Short_Literal	0x5
03bc e00c       |    |		Load	0x0,0xc
03bd 0334       | 4  |		Declare_Variable	Array,With_Constraint
03be 51b9       |Q   |		Indirect_Literal	Any,0x578,{0x44726167, 0x6f6e0000}
03bf e004       |    |		Load	0x0,0x4
03c0 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
03c1 e403       |    |		Load	0x2,0x3
03c2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03c3 e212       |    |		Load	0x1,0x12
03c4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03c5 e406       |    |		Load	0x2,0x6
03c6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03c7 e212       |    |		Load	0x1,0x12
03c8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03c9 e406       |    |		Load	0x2,0x6
03ca 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03cb 483c       |H<  |		Short_Literal	0x3c
03cc e213       |    |		Load	0x1,0x13
03cd 8025       | %  |		Call	0x0,0x25
03ce e406       |    |		Load	0x2,0x6
03cf 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
03d0 e019       |    |		Load	0x0,0x19
03d1 0337       | 7  |		Declare_Variable	Array
03d2 4801       |H   |		Short_Literal	0x1
03d3 481e       |H   |		Short_Literal	0x1e
03d4 00da       |    |		Load_Top	At_Offset_2
03d5 01d6       |    |		Execute	Vector,Field_Write
03d6 4801       |H   |		Short_Literal	0x1
03d7 481c       |H   |		Short_Literal	0x1c
03d8 00da       |    |		Load_Top	At_Offset_2
03d9 01d6       |    |		Execute	Vector,Field_Write
03da 4801       |H   |		Short_Literal	0x1
03db 4811       |H   |		Short_Literal	0x11
03dc 00da       |    |		Load_Top	At_Offset_2
03dd 01d6       |    |		Execute	Vector,Field_Write
03de 4810       |H   |		Short_Literal	0x10
03df 4800       |H   |		Short_Literal	0x0
03e0 4800       |H   |		Short_Literal	0x0
03e1 00d9       |    |		Load_Top	At_Offset_1
03e2 e40e       |    |		Load	0x2,0xe
03e3 01d6       |    |		Execute	Vector,Field_Write
03e4 3ffb       |?   |		Loop_Increasing	0x3e0
03e5 481b       |H   |		Short_Literal	0x1b
03e6 4812       |H   |		Short_Literal	0x12
03e7 4800       |H   |		Short_Literal	0x0
03e8 00d9       |    |		Load_Top	At_Offset_1
03e9 e40e       |    |		Load	0x2,0xe
03ea 01d6       |    |		Execute	Vector,Field_Write
03eb 3ffb       |?   |		Loop_Increasing	0x3e7
03ec 4800       |H   |		Short_Literal	0x0
03ed 481d       |H   |		Short_Literal	0x1d
03ee 00da       |    |		Load_Top	At_Offset_2
03ef 01d6       |    |		Execute	Vector,Field_Write
03f0 4800       |H   |		Short_Literal	0x0
03f1 481f       |H   |		Short_Literal	0x1f
03f2 00da       |    |		Load_Top	At_Offset_2
03f3 01d6       |    |		Execute	Vector,Field_Write
03f4 e019       |    |		Load	0x0,0x19
03f5 01c3       |    |		Execute	Vector,Check_In_Type
03f6 e407       |    |		Load	0x2,0x7
03f7 01d4       |    |		Execute	Vector,Structure_Write
03f8 e405       |    |		Load	0x2,0x5
03f9 8029       | )  |		Call	0x0,0x29
03fa 00d1       |    |		Pop_Control	Pop_Count_1
03fb 481c       |H   |		Short_Literal	0x1c
03fc e405       |    |		Load	0x2,0x5
03fd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03fe 01d7       |    |		Execute	Vector,Field_Read
03ff 6804       |h   |		Jump_Zero	0x404
0400 e405       |    |		Load	0x2,0x5
0401 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0402 00db       |    |		Load_Top	At_Offset_3
0403 017d       | }  |		Execute	Record,Structure_Write
0404 e406       |    |		Load	0x2,0x6
0405 e407       |    |		Load	0x2,0x7
0406 e213       |    |		Load	0x1,0x13
0407 802a       | *  |		Call	0x0,0x2a
0408 802b       | +  |		Call	0x0,0x2b
0409 4801       |H   |		Short_Literal	0x1
040a e408       |    |		Load	0x2,0x8
040b e213       |    |		Load	0x1,0x13
040c 802c       | ,  |		Call	0x0,0x2c
040d 4802       |H   |		Short_Literal	0x2
040e e404       |    |		Load	0x2,0x4
040f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0410 00d8       |    |		Load_Top	At_Offset_0
0411 e00d       |    |		Load	0x0,0xd
0412 0260       | `  |		Execute	Discrete,In_Type
0413 7001       |p   |		Jump_Nonzero	0x415
0414 0801       |    |		Execute_Immediate	Raise,0x1
0415 00d8       |    |		Load_Top	At_Offset_0
0416 e02d       | -  |		Load	0x0,0x2d
0417 0260       | `  |		Execute	Discrete,In_Type
0418 7001       |p   |		Jump_Nonzero	0x41a
0419 0801       |    |		Execute_Immediate	Raise,0x1
041a e404       |    |		Load	0x2,0x4
041b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
041c 00d8       |    |		Load_Top	At_Offset_0
041d e00d       |    |		Load	0x0,0xd
041e 0260       | `  |		Execute	Discrete,In_Type
041f 7001       |p   |		Jump_Nonzero	0x421
0420 0801       |    |		Execute_Immediate	Raise,0x1
0421 00d8       |    |		Load_Top	At_Offset_0
0422 e02d       | -  |		Load	0x0,0x2d
0423 0260       | `  |		Execute	Discrete,In_Type
0424 7001       |p   |		Jump_Nonzero	0x426
0425 0801       |    |		Execute_Immediate	Raise,0x1
0426 e404       |    |		Load	0x2,0x4
0427 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0428 00d8       |    |		Load_Top	At_Offset_0
0429 e00e       |    |		Load	0x0,0xe
042a 0260       | `  |		Execute	Discrete,In_Type
042b 7001       |p   |		Jump_Nonzero	0x42d
042c 0801       |    |		Execute_Immediate	Raise,0x1
042d e404       |    |		Load	0x2,0x4
042e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
042f 00d8       |    |		Load_Top	At_Offset_0
0430 e00e       |    |		Load	0x0,0xe
0431 0260       | `  |		Execute	Discrete,In_Type
0432 7001       |p   |		Jump_Nonzero	0x434
0433 0801       |    |		Execute_Immediate	Raise,0x1
0434 e213       |    |		Load	0x1,0x13
0435 802e       | .  |		Call	0x0,0x2e
0436 e213       |    |		Load	0x1,0x13
0437 802f       | /  |		Call	0x0,0x2f
0438 e214       |    |		Load	0x1,0x14
0439 017d       | }  |		Execute	Record,Structure_Write
043a e214       |    |		Load	0x1,0x14
043b e215       |    |		Load	0x1,0x15
043c 017d       | }  |		Execute	Record,Structure_Write
043d e01d       |    |		Load	0x0,0x1d
043e e403       |    |		Load	0x2,0x3
043f e405       |    |		Load	0x2,0x5
0440 e404       |    |		Load	0x2,0x4
0441 4801       |H   |		Short_Literal	0x1
0442 4800       |H   |		Short_Literal	0x0
0443 e030       | 0  |		Load	0x0,0x30
0444 0334       | 4  |		Declare_Variable	Array,With_Constraint
0445 4800       |H   |		Short_Literal	0x0
0446 4805       |H   |		Short_Literal	0x5
0447 e00c       |    |		Load	0x0,0xc
0448 0334       | 4  |		Declare_Variable	Array,With_Constraint
0449 5132       |Q2  |		Indirect_Literal	Any,0x57c,{0x44726167, 0x6f6e0000}
044a 4800       |H   |		Short_Literal	0x0
044b 4805       |H   |		Short_Literal	0x5
044c e00c       |    |		Load	0x0,0xc
044d 0334       | 4  |		Declare_Variable	Array,With_Constraint
044e 5131       |Q1  |		Indirect_Literal	Any,0x580,{0x44726167, 0x6f6e0000}
044f e214       |    |		Load	0x1,0x14
0450 e213       |    |		Load	0x1,0x13
0451 8031       | 1  |		Call	0x0,0x31
0452 c40a       |    |		Store	0x2,0xa
0453 4800       |H   |		Short_Literal	0x0
0454 a216       |    |		Store_Unchecked	0x1,0x16
0455 e212       |    |		Load	0x1,0x12
0456 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0457 6804       |h   |		Jump_Zero	0x45c
0458 e217       |    |		Load	0x1,0x17
0459 e216       |    |		Load	0x1,0x16
045a 8032       | 2  |		Call	0x0,0x32
045b a216       |    |		Store_Unchecked	0x1,0x16
045c e212       |    |		Load	0x1,0x12
045d 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
045e 0227       | '  |		Execute	Access,All_Reference
045f 4800       |H   |		Short_Literal	0x0
0460 4804       |H   |		Short_Literal	0x4
0461 e00c       |    |		Load	0x0,0xc
0462 0334       | 4  |		Declare_Variable	Array,With_Constraint
0463 5120       |Q   |		Indirect_Literal	Any,0x584,{0x626c6163, 0x6b000000}
0464 01df       |    |		Execute	Vector,Equal
0465 6805       |h   |		Jump_Zero	0x46b
0466 e218       |    |		Load	0x1,0x18
0467 e216       |    |		Load	0x1,0x16
0468 8032       | 2  |		Call	0x0,0x32
0469 a216       |    |		Store_Unchecked	0x1,0x16
046a 781f       |x   |		Jump	0x48a
046b e212       |    |		Load	0x1,0x12
046c 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
046d 0227       | '  |		Execute	Access,All_Reference
046e 4800       |H   |		Short_Literal	0x0
046f 4803       |H   |		Short_Literal	0x3
0470 e00c       |    |		Load	0x0,0xc
0471 0334       | 4  |		Declare_Variable	Array,With_Constraint
0472 5115       |Q   |		Indirect_Literal	Any,0x588,{0x67726179, 0x00000000}
0473 01df       |    |		Execute	Vector,Equal
0474 6807       |h   |		Jump_Zero	0x47c
0475 e219       |    |		Load	0x1,0x19
0476 e218       |    |		Load	0x1,0x18
0477 e216       |    |		Load	0x1,0x16
0478 8032       | 2  |		Call	0x0,0x32
0479 8032       | 2  |		Call	0x0,0x32
047a a216       |    |		Store_Unchecked	0x1,0x16
047b 780e       |x   |		Jump	0x48a
047c e212       |    |		Load	0x1,0x12
047d 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
047e 0227       | '  |		Execute	Access,All_Reference
047f 4800       |H   |		Short_Literal	0x0
0480 4803       |H   |		Short_Literal	0x3
0481 e00c       |    |		Load	0x0,0xc
0482 0334       | 4  |		Declare_Variable	Array,With_Constraint
0483 5108       |Q   |		Indirect_Literal	Any,0x58c,{0x6c696e65, 0x00000000}
0484 01de       |    |		Execute	Vector,Not_Equal
0485 6804       |h   |		Jump_Zero	0x48a
0486 0092 06f1  |    |		Action	Push_String_Extended,0x6f1					; "-side option not given line, gray, or black value."
0488 e023       | #  |		Load	0x0,0x23
0489 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
048a 8033       | 3  |		Call	0x0,0x33
048b e034       | 4  |		Load	0x0,0x34
048c 0337       | 7  |		Declare_Variable	Array
048d 4801       |H   |		Short_Literal	0x1
048e 480e       |H   |		Short_Literal	0xe
048f 00da       |    |		Load_Top	At_Offset_2
0490 01d6       |    |		Execute	Vector,Field_Write
0491 4801       |H   |		Short_Literal	0x1
0492 4810       |H   |		Short_Literal	0x10
0493 00da       |    |		Load_Top	At_Offset_2
0494 01d6       |    |		Execute	Vector,Field_Write
0495 4801       |H   |		Short_Literal	0x1
0496 481c       |H   |		Short_Literal	0x1c
0497 00da       |    |		Load_Top	At_Offset_2
0498 01d6       |    |		Execute	Vector,Field_Write
0499 4801       |H   |		Short_Literal	0x1
049a 481d       |H   |		Short_Literal	0x1d
049b 00da       |    |		Load_Top	At_Offset_2
049c 01d6       |    |		Execute	Vector,Field_Write
049d 480d       |H   |		Short_Literal	0xd
049e 4800       |H   |		Short_Literal	0x0
049f 4800       |H   |		Short_Literal	0x0
04a0 00d9       |    |		Load_Top	At_Offset_1
04a1 e40e       |    |		Load	0x2,0xe
04a2 01d6       |    |		Execute	Vector,Field_Write
04a3 3ffb       |?   |		Loop_Increasing	0x49f
04a4 4800       |H   |		Short_Literal	0x0
04a5 480f       |H   |		Short_Literal	0xf
04a6 00da       |    |		Load_Top	At_Offset_2
04a7 01d6       |    |		Execute	Vector,Field_Write
04a8 481b       |H   |		Short_Literal	0x1b
04a9 4811       |H   |		Short_Literal	0x11
04aa 4800       |H   |		Short_Literal	0x0
04ab 00d9       |    |		Load_Top	At_Offset_1
04ac e40e       |    |		Load	0x2,0xe
04ad 01d6       |    |		Execute	Vector,Field_Write
04ae 3ffb       |?   |		Loop_Increasing	0x4aa
04af 4800       |H   |		Short_Literal	0x0
04b0 481e       |H   |		Short_Literal	0x1e
04b1 00da       |    |		Load_Top	At_Offset_2
04b2 01d6       |    |		Execute	Vector,Field_Write
04b3 4800       |H   |		Short_Literal	0x0
04b4 481f       |H   |		Short_Literal	0x1f
04b5 00da       |    |		Load_Top	At_Offset_2
04b6 01d6       |    |		Execute	Vector,Field_Write
04b7 e034       | 4  |		Load	0x0,0x34
04b8 01c3       |    |		Execute	Vector,Check_In_Type
04b9 e214       |    |		Load	0x1,0x14
04ba e213       |    |		Load	0x1,0x13
04bb 8035       | 5  |		Call	0x0,0x35
04bc e214       |    |		Load	0x1,0x14
04bd e213       |    |		Load	0x1,0x13
04be 8036       | 6  |		Call	0x0,0x36
04bf 8224       | $  |		Call	0x1,0x24
04c0 840d       |    |		Call	0x2,0xd
04c1 00cf       |    |		Action	Mark_Auxiliary
04c2 0007       |    |		Action	Break_Optional
04c3 e409       |    |		Load	0x2,0x9
04c4 e213       |    |		Load	0x1,0x13
04c5 8037       | 7  |		Call	0x0,0x37
04c6 00d1       |    |		Pop_Control	Pop_Count_1
04c7 e409       |    |		Load	0x2,0x9
04c8 2405       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5
04c9 e214       |    |		Load	0x1,0x14
04ca 017f       |    |		Execute	Record,Equal
04cb 6860       |h`  |		Jump_Zero	0x52c
04cc e409       |    |		Load	0x2,0x9
04cd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04ce 00d8       |    |		Load_Top	At_Offset_0
04cf 0c17       |    |		Execute_Immediate	Greater_Equal,0x17
04d0 701d       |p   |		Jump_Nonzero	0x4ee
04d1 4616       |F   |		Jump_Case	0x17
04d2 781c       |x   |		Jump	0x4ef								; case 0x0
04d3 781b       |x   |		Jump	0x4ef								; case 0x1
04d4 781a       |x   |		Jump	0x4ef								; case 0x2
04d5 7819       |x   |		Jump	0x4ef								; case 0x3
04d6 781d       |x   |		Jump	0x4f4								; case 0x4
04d7 7846       |xF  |		Jump	0x51e								; case 0x5
04d8 7816       |x   |		Jump	0x4ef								; case 0x6
04d9 7815       |x   |		Jump	0x4ef								; case 0x7
04da 7814       |x   |		Jump	0x4ef								; case 0x8
04db 7813       |x   |		Jump	0x4ef								; case 0x9
04dc 7812       |x   |		Jump	0x4ef								; case 0xa
04dd 7811       |x   |		Jump	0x4ef								; case 0xb
04de 7812       |x   |		Jump	0x4f1								; case 0xc
04df 780f       |x   |		Jump	0x4ef								; case 0xd
04e0 780e       |x   |		Jump	0x4ef								; case 0xe
04e1 780d       |x   |		Jump	0x4ef								; case 0xf
04e2 780c       |x   |		Jump	0x4ef								; case 0x10
04e3 780b       |x   |		Jump	0x4ef								; case 0x11
04e4 780a       |x   |		Jump	0x4ef								; case 0x12
04e5 7809       |x   |		Jump	0x4ef								; case 0x13
04e6 7808       |x   |		Jump	0x4ef								; case 0x14
04e7 7807       |x   |		Jump	0x4ef								; case 0x15
04e8 7800       |x   |		Jump	0x4e9								; case 0x16
04e9 e409       |    |		Load	0x2,0x9
04ea e038       | 8  |		Load	0x0,0x38
04eb 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
04ec 8039       | 9  |		Call	0x0,0x39
04ed 7866       |xf  |		Jump	0x554
04ee 00d1       |    |		Pop_Control	Pop_Count_1
04ef 0008       |    |		Action	Idle
04f0 7863       |xc  |		Jump	0x554
04f1 803a       | :  |		Call	0x0,0x3a
04f2 803b       | ;  |		Call	0x0,0x3b
04f3 7860       |x`  |		Jump	0x554
04f4 e409       |    |		Load	0x2,0x9
04f5 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
04f6 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
04f7 e03c       | <  |		Load	0x0,0x3c
04f8 01df       |    |		Execute	Vector,Equal
04f9 7002       |p   |		Jump_Nonzero	0x4fc
04fa 0008       |    |		Action	Idle
04fb 7858       |xX  |		Jump	0x554
04fc e409       |    |		Load	0x2,0x9
04fd 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
04fe 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04ff 0f01       |    |		Execute_Immediate	Equal,0x1
0500 6809       |h   |		Jump_Zero	0x50a
0501 e409       |    |		Load	0x2,0x9
0502 e03d       | =  |		Load	0x0,0x3d
0503 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
0504 803e       | >  |		Call	0x0,0x3e
0505 e409       |    |		Load	0x2,0x9
0506 e03d       | =  |		Load	0x0,0x3d
0507 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
0508 803f       | ?  |		Call	0x0,0x3f
0509 784a       |xJ  |		Jump	0x554
050a e409       |    |		Load	0x2,0x9
050b 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
050c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
050d 0f02       |    |		Execute_Immediate	Equal,0x2
050e 6805       |h   |		Jump_Zero	0x514
050f e409       |    |		Load	0x2,0x9
0510 e03d       | =  |		Load	0x0,0x3d
0511 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
0512 8040       | @  |		Call	0x0,0x40
0513 7840       |x@  |		Jump	0x554
0514 e409       |    |		Load	0x2,0x9
0515 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0516 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0517 0f03       |    |		Execute_Immediate	Equal,0x3
0518 683b       |h;  |		Jump_Zero	0x554
0519 e409       |    |		Load	0x2,0x9
051a e03d       | =  |		Load	0x0,0x3d
051b 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
051c 8041       | A  |		Call	0x0,0x41
051d 7836       |x6  |		Jump	0x554
051e e409       |    |		Load	0x2,0x9
051f 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0520 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0521 0f01       |    |		Execute_Immediate	Equal,0x1
0522 6831       |h1  |		Jump_Zero	0x554
0523 e409       |    |		Load	0x2,0x9
0524 e042       | B  |		Load	0x0,0x42
0525 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
0526 8043       | C  |		Call	0x0,0x43
0527 e409       |    |		Load	0x2,0x9
0528 e042       | B  |		Load	0x0,0x42
0529 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
052a 8044       | D  |		Call	0x0,0x44
052b 7828       |x(  |		Jump	0x554
052c e409       |    |		Load	0x2,0x9
052d 2405       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5
052e e40b       |    |		Load	0x2,0xb
052f 017f       |    |		Execute	Record,Equal
0530 6808       |h   |		Jump_Zero	0x539
0531 e409       |    |		Load	0x2,0x9
0532 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0533 0f0c       |    |		Execute_Immediate	Equal,0xc
0534 681f       |h   |		Jump_Zero	0x554
0535 e409       |    |		Load	0x2,0x9
0536 e40b       |    |		Load	0x2,0xb
0537 8045       | E  |		Call	0x0,0x45
0538 781b       |x   |		Jump	0x554
0539 0092 06f2  |    |		Action	Push_String_Extended,0x6f2					; "Event for window 0x"
053b e023       | #  |		Load	0x0,0x23
053c 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
053d 4810       |H   |		Short_Literal	0x10
053e 4800       |H   |		Short_Literal	0x0
053f e409       |    |		Load	0x2,0x9
0540 2405       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5
0541 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0542 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0543 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0544 e046       | F  |		Load	0x0,0x46
0545 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0546 0092 06f3  |    |		Action	Push_String_Extended,0x6f3					; " kind: "
0548 e023       | #  |		Load	0x0,0x23
0549 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
054a e409       |    |		Load	0x2,0x9
054b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
054c e047       | G  |		Load	0x0,0x47
054d 011c       |    |		Execute	Any,Convert_Unchecked
054e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
054f e023       | #  |		Load	0x0,0x23
0550 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0551 4801       |H   |		Short_Literal	0x1
0552 e023       | #  |		Load	0x0,0x23
0553 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0554 00c9       |    |		Action	Pop_Auxiliary_Loop
0555 7f6d       | m  |		Jump	0x4c3
0556			TRAP_02c8:
0556 e20e       |    |		Load	0x1,0xe
0557 010f       |    |		Execute	Exception,Equal
0558 6802       |h   |		Jump_Zero	0x55b
0559 00d8       |    |		Load_Top	At_Offset_0
055a 0101       |    |		Execute	Exception,Reraise
055b e20d       |    |		Load	0x1,0xd
055c 010f       |    |		Execute	Exception,Equal
055d 6802       |h   |		Jump_Zero	0x560
055e 0008       |    |		Action	Idle
055f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0560 0100       |    |		Execute	Exception,Raise
0561 0000 0000  |    |		.XXX[0x3]
0563 0000       |    |
0564 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000535}
0568 3435 3078  |450x|		.LITERAL	{0x34353078, 0x33343000}
056c 3634 7836  |64x6|		.LITERAL	{0x36347836, 0x34000000}
0570 6772 6179  |gray|		.LITERAL	{0x67726179, 0x00000000}
0574 6472 6167  |drag|		.LITERAL	{0x64726167, 0x6f6e0000}
0578 4472 6167  |Drag|		.LITERAL	{0x44726167, 0x6f6e0000}
057c 4472 6167  |Drag|		.LITERAL	{0x44726167, 0x6f6e0000}
0580 4472 6167  |Drag|		.LITERAL	{0x44726167, 0x6f6e0000}
0584 626c 6163  |blac|		.LITERAL	{0x626c6163, 0x6b000000}
0588 6772 6179  |gray|		.LITERAL	{0x67726179, 0x00000000}
058c 6c69 6e65  |line|		.LITERAL	{0x6c696e65, 0x00000000}
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0599       |    |		.CONST	0x0599								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0003       |    |		.CONST	0x0003								; Number of locals
0593			INIT_0590:
0593 e048       | H  |		Load	0x0,0x48
0594 0322       | "  |		Declare_Variable	Record
0595 00d8       |    |		Load_Top	At_Offset_0
0596 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0597 e002       |    |		Load	0x0,0x2
0598 0007       |    |		Action	Break_Optional
0599			BODY_0590:
0599 4806       |H   |		Short_Literal	0x6
059a 00da       |    |		Load_Top	At_Offset_2
059b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
059c e212       |    |		Load	0x1,0x12
059d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
059e e212       |    |		Load	0x1,0x12
059f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05a0 8049       | I  |		Call	0x0,0x49
05a1 00da       |    |		Load_Top	At_Offset_2
05a2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05a3 4800       |H   |		Short_Literal	0x0
05a4 00da       |    |		Load_Top	At_Offset_2
05a5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05a6 00d9       |    |		Load_Top	At_Offset_1
05a7 e04a       | J  |		Load	0x0,0x4a
05a8 0337       | 7  |		Declare_Variable	Array
05a9 4801       |H   |		Short_Literal	0x1
05aa 481f       |H   |		Short_Literal	0x1f
05ab 00da       |    |		Load_Top	At_Offset_2
05ac 01d6       |    |		Execute	Vector,Field_Write
05ad 4801       |H   |		Short_Literal	0x1
05ae 481d       |H   |		Short_Literal	0x1d
05af 00da       |    |		Load_Top	At_Offset_2
05b0 01d6       |    |		Execute	Vector,Field_Write
05b1 4801       |H   |		Short_Literal	0x1
05b2 481c       |H   |		Short_Literal	0x1c
05b3 00da       |    |		Load_Top	At_Offset_2
05b4 01d6       |    |		Execute	Vector,Field_Write
05b5 481b       |H   |		Short_Literal	0x1b
05b6 4800       |H   |		Short_Literal	0x0
05b7 4800       |H   |		Short_Literal	0x0
05b8 00d9       |    |		Load_Top	At_Offset_1
05b9 e405       |    |		Load	0x2,0x5
05ba 01d6       |    |		Execute	Vector,Field_Write
05bb 3ffb       |?   |		Loop_Increasing	0x5b7
05bc 4800       |H   |		Short_Literal	0x0
05bd 481e       |H   |		Short_Literal	0x1e
05be 00da       |    |		Load_Top	At_Offset_2
05bf 01d6       |    |		Execute	Vector,Field_Write
05c0 e04a       | J  |		Load	0x0,0x4a
05c1 01c3       |    |		Execute	Vector,Check_In_Type
05c2 e214       |    |		Load	0x1,0x14
05c3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05c4 e213       |    |		Load	0x1,0x13
05c5 804b       | K  |		Call	0x0,0x4b
05c6 a21e       |    |		Store_Unchecked	0x1,0x1e
05c7 4803       |H   |		Short_Literal	0x3
05c8 00da       |    |		Load_Top	At_Offset_2
05c9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05ca e212       |    |		Load	0x1,0x12
05cb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05cc 00da       |    |		Load_Top	At_Offset_2
05cd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05ce e212       |    |		Load	0x1,0x12
05cf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05d0 00da       |    |		Load_Top	At_Offset_2
05d1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05d2 00d9       |    |		Load_Top	At_Offset_1
05d3 e04a       | J  |		Load	0x0,0x4a
05d4 0337       | 7  |		Declare_Variable	Array
05d5 4801       |H   |		Short_Literal	0x1
05d6 481f       |H   |		Short_Literal	0x1f
05d7 00da       |    |		Load_Top	At_Offset_2
05d8 01d6       |    |		Execute	Vector,Field_Write
05d9 4801       |H   |		Short_Literal	0x1
05da 481d       |H   |		Short_Literal	0x1d
05db 00da       |    |		Load_Top	At_Offset_2
05dc 01d6       |    |		Execute	Vector,Field_Write
05dd 4801       |H   |		Short_Literal	0x1
05de 481c       |H   |		Short_Literal	0x1c
05df 00da       |    |		Load_Top	At_Offset_2
05e0 01d6       |    |		Execute	Vector,Field_Write
05e1 481b       |H   |		Short_Literal	0x1b
05e2 4800       |H   |		Short_Literal	0x0
05e3 4800       |H   |		Short_Literal	0x0
05e4 00d9       |    |		Load_Top	At_Offset_1
05e5 e405       |    |		Load	0x2,0x5
05e6 01d6       |    |		Execute	Vector,Field_Write
05e7 3ffb       |?   |		Loop_Increasing	0x5e3
05e8 4800       |H   |		Short_Literal	0x0
05e9 481e       |H   |		Short_Literal	0x1e
05ea 00da       |    |		Load_Top	At_Offset_2
05eb 01d6       |    |		Execute	Vector,Field_Write
05ec e04a       | J  |		Load	0x0,0x4a
05ed 01c3       |    |		Execute	Vector,Check_In_Type
05ee e214       |    |		Load	0x1,0x14
05ef 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05f0 e213       |    |		Load	0x1,0x13
05f1 804b       | K  |		Call	0x0,0x4b
05f2 a21b       |    |		Store_Unchecked	0x1,0x1b
05f3 e213       |    |		Load	0x1,0x13
05f4 8011       |    |		Call	0x0,0x11
05f5 e213       |    |		Load	0x1,0x13
05f6 802c       | ,  |		Call	0x0,0x2c
05f7 e212       |    |		Load	0x1,0x12
05f8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05f9 e212       |    |		Load	0x1,0x12
05fa 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05fb 4810       |H   |		Short_Literal	0x10
05fc 4810       |H   |		Short_Literal	0x10
05fd e222       | "  |		Load	0x1,0x22
05fe e215       |    |		Load	0x1,0x15
05ff 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0600 e213       |    |		Load	0x1,0x13
0601 804c       | L  |		Call	0x0,0x4c
0602 00da       |    |		Load_Top	At_Offset_2
0603 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0604 00d9       |    |		Load_Top	At_Offset_1
0605 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0606 e04d       | M  |		Load	0x0,0x4d
0607 017f       |    |		Execute	Record,Equal
0608 6805       |h   |		Jump_Zero	0x60e
0609 0092 06f4  |    |		Action	Push_String_Extended,0x6f4					; "Can't allocate gray pixmap."
060b e023       | #  |		Load	0x0,0x23
060c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
060d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
060e 4801       |H   |		Short_Literal	0x1
060f 00da       |    |		Load_Top	At_Offset_2
0610 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0611 00d9       |    |		Load_Top	At_Offset_1
0612 e04a       | J  |		Load	0x0,0x4a
0613 0337       | 7  |		Declare_Variable	Array
0614 4801       |H   |		Short_Literal	0x1
0615 481f       |H   |		Short_Literal	0x1f
0616 00da       |    |		Load_Top	At_Offset_2
0617 01d6       |    |		Execute	Vector,Field_Write
0618 4801       |H   |		Short_Literal	0x1
0619 481d       |H   |		Short_Literal	0x1d
061a 00da       |    |		Load_Top	At_Offset_2
061b 01d6       |    |		Execute	Vector,Field_Write
061c 4801       |H   |		Short_Literal	0x1
061d 481c       |H   |		Short_Literal	0x1c
061e 00da       |    |		Load_Top	At_Offset_2
061f 01d6       |    |		Execute	Vector,Field_Write
0620 4801       |H   |		Short_Literal	0x1
0621 4815       |H   |		Short_Literal	0x15
0622 00da       |    |		Load_Top	At_Offset_2
0623 01d6       |    |		Execute	Vector,Field_Write
0624 4801       |H   |		Short_Literal	0x1
0625 4817       |H   |		Short_Literal	0x17
0626 00da       |    |		Load_Top	At_Offset_2
0627 01d6       |    |		Execute	Vector,Field_Write
0628 4814       |H   |		Short_Literal	0x14
0629 4800       |H   |		Short_Literal	0x0
062a 4800       |H   |		Short_Literal	0x0
062b 00d9       |    |		Load_Top	At_Offset_1
062c e405       |    |		Load	0x2,0x5
062d 01d6       |    |		Execute	Vector,Field_Write
062e 3ffb       |?   |		Loop_Increasing	0x62a
062f 4800       |H   |		Short_Literal	0x0
0630 4816       |H   |		Short_Literal	0x16
0631 00da       |    |		Load_Top	At_Offset_2
0632 01d6       |    |		Execute	Vector,Field_Write
0633 481b       |H   |		Short_Literal	0x1b
0634 4818       |H   |		Short_Literal	0x18
0635 4800       |H   |		Short_Literal	0x0
0636 00d9       |    |		Load_Top	At_Offset_1
0637 e405       |    |		Load	0x2,0x5
0638 01d6       |    |		Execute	Vector,Field_Write
0639 3ffb       |?   |		Loop_Increasing	0x635
063a 4800       |H   |		Short_Literal	0x0
063b 481e       |H   |		Short_Literal	0x1e
063c 00da       |    |		Load_Top	At_Offset_2
063d 01d6       |    |		Execute	Vector,Field_Write
063e e04a       | J  |		Load	0x0,0x4a
063f 01c3       |    |		Execute	Vector,Check_In_Type
0640 e214       |    |		Load	0x1,0x14
0641 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0642 e213       |    |		Load	0x1,0x13
0643 804b       | K  |		Call	0x0,0x4b
0644 a21a       |    |		Store_Unchecked	0x1,0x1a
0645 4803       |H   |		Short_Literal	0x3
0646 00da       |    |		Load_Top	At_Offset_2
0647 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0648 4810       |H   |		Short_Literal	0x10
0649 4810       |H   |		Short_Literal	0x10
064a e223       | #  |		Load	0x1,0x23
064b e215       |    |		Load	0x1,0x15
064c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
064d e213       |    |		Load	0x1,0x13
064e 804e       | N  |		Call	0x0,0x4e
064f 00da       |    |		Load_Top	At_Offset_2
0650 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0651 00d9       |    |		Load_Top	At_Offset_1
0652 340c       |4   |		Execute	Record,Field_Reference,Field_Number 0xc
0653 e04d       | M  |		Load	0x0,0x4d
0654 017f       |    |		Execute	Record,Equal
0655 6805       |h   |		Jump_Zero	0x65b
0656 0092 06f5  |    |		Action	Push_String_Extended,0x6f5					; "Can't allocate shadow pixmap."
0658 e023       | #  |		Load	0x0,0x23
0659 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
065a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
065b 4802       |H   |		Short_Literal	0x2
065c 00da       |    |		Load_Top	At_Offset_2
065d 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
065e 00d9       |    |		Load_Top	At_Offset_1
065f e04a       | J  |		Load	0x0,0x4a
0660 0337       | 7  |		Declare_Variable	Array
0661 4801       |H   |		Short_Literal	0x1
0662 481f       |H   |		Short_Literal	0x1f
0663 00da       |    |		Load_Top	At_Offset_2
0664 01d6       |    |		Execute	Vector,Field_Write
0665 4801       |H   |		Short_Literal	0x1
0666 481d       |H   |		Short_Literal	0x1d
0667 00da       |    |		Load_Top	At_Offset_2
0668 01d6       |    |		Execute	Vector,Field_Write
0669 4801       |H   |		Short_Literal	0x1
066a 481c       |H   |		Short_Literal	0x1c
066b 00da       |    |		Load_Top	At_Offset_2
066c 01d6       |    |		Execute	Vector,Field_Write
066d 4801       |H   |		Short_Literal	0x1
066e 4814       |H   |		Short_Literal	0x14
066f 00da       |    |		Load_Top	At_Offset_2
0670 01d6       |    |		Execute	Vector,Field_Write
0671 4801       |H   |		Short_Literal	0x1
0672 4817       |H   |		Short_Literal	0x17
0673 00da       |    |		Load_Top	At_Offset_2
0674 01d6       |    |		Execute	Vector,Field_Write
0675 4813       |H   |		Short_Literal	0x13
0676 4800       |H   |		Short_Literal	0x0
0677 4800       |H   |		Short_Literal	0x0
0678 00d9       |    |		Load_Top	At_Offset_1
0679 e405       |    |		Load	0x2,0x5
067a 01d6       |    |		Execute	Vector,Field_Write
067b 3ffb       |?   |		Loop_Increasing	0x677
067c 4800       |H   |		Short_Literal	0x0
067d 4815       |H   |		Short_Literal	0x15
067e 00da       |    |		Load_Top	At_Offset_2
067f 01d6       |    |		Execute	Vector,Field_Write
0680 4800       |H   |		Short_Literal	0x0
0681 4816       |H   |		Short_Literal	0x16
0682 00da       |    |		Load_Top	At_Offset_2
0683 01d6       |    |		Execute	Vector,Field_Write
0684 481b       |H   |		Short_Literal	0x1b
0685 4818       |H   |		Short_Literal	0x18
0686 4800       |H   |		Short_Literal	0x0
0687 00d9       |    |		Load_Top	At_Offset_1
0688 e405       |    |		Load	0x2,0x5
0689 01d6       |    |		Execute	Vector,Field_Write
068a 3ffb       |?   |		Loop_Increasing	0x686
068b 4800       |H   |		Short_Literal	0x0
068c 481e       |H   |		Short_Literal	0x1e
068d 00da       |    |		Load_Top	At_Offset_2
068e 01d6       |    |		Execute	Vector,Field_Write
068f e04a       | J  |		Load	0x0,0x4a
0690 01c3       |    |		Execute	Vector,Check_In_Type
0691 e214       |    |		Load	0x1,0x14
0692 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0693 e213       |    |		Load	0x1,0x13
0694 804b       | K  |		Call	0x0,0x4b
0695 a21c       |    |		Store_Unchecked	0x1,0x1c
0696 4803       |H   |		Short_Literal	0x3
0697 00da       |    |		Load_Top	At_Offset_2
0698 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0699 e212       |    |		Load	0x1,0x12
069a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
069b 00da       |    |		Load_Top	At_Offset_2
069c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
069d e212       |    |		Load	0x1,0x12
069e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
069f 00da       |    |		Load_Top	At_Offset_2
06a0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06a1 00d9       |    |		Load_Top	At_Offset_1
06a2 e04a       | J  |		Load	0x0,0x4a
06a3 0337       | 7  |		Declare_Variable	Array
06a4 4801       |H   |		Short_Literal	0x1
06a5 481f       |H   |		Short_Literal	0x1f
06a6 00da       |    |		Load_Top	At_Offset_2
06a7 01d6       |    |		Execute	Vector,Field_Write
06a8 4801       |H   |		Short_Literal	0x1
06a9 481d       |H   |		Short_Literal	0x1d
06aa 00da       |    |		Load_Top	At_Offset_2
06ab 01d6       |    |		Execute	Vector,Field_Write
06ac 4801       |H   |		Short_Literal	0x1
06ad 481c       |H   |		Short_Literal	0x1c
06ae 00da       |    |		Load_Top	At_Offset_2
06af 01d6       |    |		Execute	Vector,Field_Write
06b0 481b       |H   |		Short_Literal	0x1b
06b1 4800       |H   |		Short_Literal	0x0
06b2 4800       |H   |		Short_Literal	0x0
06b3 00d9       |    |		Load_Top	At_Offset_1
06b4 e405       |    |		Load	0x2,0x5
06b5 01d6       |    |		Execute	Vector,Field_Write
06b6 3ffb       |?   |		Loop_Increasing	0x6b2
06b7 4800       |H   |		Short_Literal	0x0
06b8 481e       |H   |		Short_Literal	0x1e
06b9 00da       |    |		Load_Top	At_Offset_2
06ba 01d6       |    |		Execute	Vector,Field_Write
06bb e04a       | J  |		Load	0x0,0x4a
06bc 01c3       |    |		Execute	Vector,Check_In_Type
06bd e214       |    |		Load	0x1,0x14
06be 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
06bf e213       |    |		Load	0x1,0x13
06c0 804b       | K  |		Call	0x0,0x4b
06c1 a21d       |    |		Store_Unchecked	0x1,0x1d
06c2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06c3 0000 0000  |    |		.BLANK	0000[0x5]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cd       |    |		.CONST	0x06cd								; Address of begin
06c9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ca 0002       |    |		.CONST	0x0002								; Number of locals
06cb			INIT_06c8:
06cb e04f       | O  |		Load	0x0,0x4f
06cc 0322       | "  |		Declare_Variable	Record
06cd			BODY_06c8:
06cd e213       |    |		Load	0x1,0x13
06ce 8011       |    |		Call	0x0,0x11
06cf e213       |    |		Load	0x1,0x13
06d0 802c       | ,  |		Call	0x0,0x2c
06d1 e212       |    |		Load	0x1,0x12
06d2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06d3 e212       |    |		Load	0x1,0x12
06d4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06d5 4810       |H   |		Short_Literal	0x10
06d6 4810       |H   |		Short_Literal	0x10
06d7 e221       | !  |		Load	0x1,0x21
06d8 e214       |    |		Load	0x1,0x14
06d9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
06da e213       |    |		Load	0x1,0x13
06db 804c       | L  |		Call	0x0,0x4c
06dc 00d9       |    |		Load_Top	At_Offset_1
06dd 017d       | }  |		Execute	Record,Structure_Write
06de 00d8       |    |		Load_Top	At_Offset_0
06df e04d       | M  |		Load	0x0,0x4d
06e0 017f       |    |		Execute	Record,Equal
06e1 6806       |h   |		Jump_Zero	0x6e8
06e2 0092 06f6  |    |		Action	Push_String_Extended,0x6f6					; "Can't allocate background pixmap."
06e4 e023       | #  |		Load	0x0,0x23
06e5 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06e6 e20e       |    |		Load	0x1,0xe
06e7 0257       | W  |		Execute	Discrete,Raise
06e8 00d8       |    |		Load_Top	At_Offset_0
06e9 e215       |    |		Load	0x1,0x15
06ea e213       |    |		Load	0x1,0x13
06eb 8050       | P  |		Call	0x0,0x50
06ec 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06ed ; --------------------------------------------------------------------------------------
06ed ; STRING TABLE
06ed ; --------------------------------------------------------------------------------------
06ed 0016       |    |		.STRTAB	0x0016->0x06f8							; "S_PLAY"
06ee 001a       |    |		.STRTAB	0x001a->0x06fb							; "S_SAMPLE"
06ef 0020       |    |		.STRTAB	0x0020->0x06ff							; "Unable to open display {"
06f0 0036       | 6  |		.STRTAB	0x0036->0x070b							; "}: "
06f1 0037       | 7  |		.STRTAB	0x0037->0x070c							; "-side option not given line, gray, or black value."
06f2 0067       | g  |		.STRTAB	0x0067->0x0725							; "Event for window 0x"
06f3 0078       | x  |		.STRTAB	0x0078->0x072f							; " kind: "
06f4 007d       | }  |		.STRTAB	0x007d->0x0732							; "Can't allocate gray pixmap."
06f5 0096       |    |		.STRTAB	0x0096->0x0740							; "Can't allocate shadow pixmap."
06f6 00b1       |    |		.STRTAB	0x00b1->0x074e							; "Can't allocate background pixmap."
06f7 00d0       |    |		.STREND 0x00d0->0x075f
06f8 535f 504c  |S_PL|		.STRTAB_STRINGS
075f 0000       |    |		.XXX[0x1]
0760 ; --------------------------------------------------------------------------------------
0760 ; Debug Table
0760 ; --------------------------------------------------------------------------------------
0760 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x6836,0x0000,0x0001,0x0007
0766 000b 0782  |    |		.DBG4T	0x000b,0x0782,0x8000,0x0000
076a 0051 0798  | Q  |		.DBG4T	0x0051,0x0798,0x8000,0x0000
076e 01fb 0000  |    |		.DBG4T	0x01fb,0x0000,0x0005,0x0000
0772 022b 07ac  | +  |		.DBG4T	0x022b,0x07ac,0x0001,0x0000
0776 02cb 07c6  |    |		.DBG4T	0x02cb,0x07c6,0x0001,0x4000
077a 0593 0883  |    |		.DBG4T	0x0593,0x0883,0x0001,0x0000
077e 06cb 08a0  |    |		.DBG4T	0x06cb,0x08a0,0x0004,0x0000
0782 ; --------------------------------------------------------------------------------------
0782 ; Debug chain
0782 ; --------------------------------------------------------------------------------------
0782 0014 0000  |    |		.DBGLEN	0x0014,0x0000
0784 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0015,0x0025,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x003a,0x003e,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e
0798 ; --------------------------------------------------------------------------------------
0798 ; Debug chain
0798 ; --------------------------------------------------------------------------------------
0798 0012 0000  |    |		.DBGLEN	0x0012,0x0000
079a 0051 0052  | Q R|		.DBGLNO	0x0051,0x0052,0x0053,0x0054,0x0055,0x00d9,0x00da,0x00db,0x00dc,0x00dd,0x0161,0x0162,0x0163,0x0164,0x0165,0x01e9,0x01eb,0x01ed
07ac ; --------------------------------------------------------------------------------------
07ac ; Debug chain
07ac ; --------------------------------------------------------------------------------------
07ac 0001 0017  |    |		.DBGLEN	0x0001,0x0017
07ae 022b 022d  | + -|		.DBGLNO	0x022b,0x022d,0x0230,0x0233,0x0236,0x023f,0x025b,0x0263,0x026a,0x0271,0x0276,0x027e,0x0283,0x0288,0x028c,0x0290,0x0295,0x029a,0x029d,0x02a0,0x02a5,0x02a9,0x02b5,0x02b9
07c6 ; --------------------------------------------------------------------------------------
07c6 ; Debug chain
07c6 ; --------------------------------------------------------------------------------------
07c6 000b 0058  |   X|		.DBGLEN	0x000b,0x0058
07c8 02cb 02cf  |    |		.DBGLNO	0x02cb,0x02cf,0x02d1,0x02d5,0x02d9,0x02dd,0x02e2,0x02e4,0x02e8,0x02ea,0x02ef,0x02f3,0x02f9,0x02fb,0x0309,0x030b,0x030e,0x0313,0x0318,0x031b,0x031e,0x0323,0x032c,0x0335,0x0338,0x033b,0x033e,0x0341,0x0344,0x034d,0x0350,0x0353,0x0356,0x0359,0x035c,0x035f,0x0363,0x0367,0x036b,0x036f,0x0397,0x039d,0x03a0,0x03b1,0x03ba,0x03c3,0x03c7,0x03cb,0x03d0,0x03f8,0x03fb,0x0400,0x0404,0x043a,0x043d,0x0453,0x0455,0x0458,0x045c,0x0466,0x046b,0x0475,0x047c,0x0486,0x048a,0x048b,0x04bc,0x04bf,0x04c0,0x04c2,0x04c3,0x04c7,0x04cc,0x04e9,0x04ef,0x04f1,0x04f2,0x04f4,0x04fa,0x04fc,0x0501,0x0505,0x050a,0x050f,0x0514,0x0519,0x051e,0x0523,0x0527,0x052c,0x0531,0x0535,0x0539,0x053d,0x0546,0x054a,0x0551,0x0559,0x055e
082b 0001 0002  |    |		.XXX[0x58]
082d 0003 0004  |    |
082f 0005 0006  |    |
0831 0007 0008  |    |
0833 0009 000a  |    |
0835 000b 000c  |    |
0837 000d 000e  |    |
0839 000f 0010  |    |
083b 0011 0012  |    |
083d 0013 0014  |    |
083f 0015 0016  |    |
0841 0017 0018  |    |
0843 0019 001a  |    |
0845 001b 001c  |    |
0847 001d 001e  |    |
0849 001f 0020  |    |
084b 0021 0022  | ! "|
084d 0023 0024  | # $|
084f 0025 0026  | % &|
0851 0027 0028  | ' (|
0853 0029 002a  | ) *|
0855 002b 002c  | + ,|
0857 002d 002e  | - .|
0859 002f 0030  | / 0|
085b 0031 0032  | 1 2|
085d 0033 0034  | 3 4|
085f 0035 0036  | 5 6|
0861 0037 0038  | 7 8|
0863 0039 003a  | 9 :|
0865 003b 003c  | ; <|
0867 003d 003e  | = >|
0869 0041 004e  | A N|
086b 003f 0040  | ? @|
086d 0042 0043  | B C|
086f 0044 0045  | D E|
0871 0046 0047  | F G|
0873 0048 0049  | H I|
0875 004a 004b  | J K|
0877 004c 004d  | L M|
0879 004f 0050  | O P|
087b 0051 0052  | Q R|
087d 0053 0054  | S T|
087f 0055 0056  | U V|
0881 0057 0058  | W X|
0883 ; --------------------------------------------------------------------------------------
0883 ; Debug chain
0883 ; --------------------------------------------------------------------------------------
0883 0002 0019  |    |		.DBGLEN	0x0002,0x0019
0885 0593 0597  |    |		.DBGLNO	0x0593,0x0597,0x0599,0x059c,0x05a3,0x05a6,0x05c7,0x05ca,0x05ce,0x05d2,0x05f3,0x0604,0x0609,0x060d,0x060e,0x0611,0x0645,0x0648,0x0651,0x0656,0x065a,0x065b,0x065e,0x0696,0x0699,0x069d,0x06a1
08a0 ; --------------------------------------------------------------------------------------
08a0 ; Debug chain
08a0 ; --------------------------------------------------------------------------------------
08a0 0001 0005  |    |		.DBGLEN	0x0001,0x0005
08a2 06cb 06cd  |    |		.DBGLNO	0x06cb,0x06cd,0x06de,0x06e2,0x06e6,0x06e8
08a8 0000 0000  |    |		.BLANK	0000[0x158]