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

⟦350f00bff⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0580       |    |		.CONST	0x0580								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0169       | i  |		.CONST	0x0169								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 0007       |    |		Action	Break_Optional
0011 4808       |H   |		Short_Literal	0x8
0012 4800       |H   |		Short_Literal	0x0
0013 4802       |H   |		Short_Literal	0x2
0014 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
0016 03fb       |    |		Declare_Type	Discrete,Defined,Visible,With_Size
0017 4800       |H   |		Short_Literal	0x0
0018 4803       |H   |		Short_Literal	0x3
0019 029f 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Call
001b 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001c 0007       |    |		Action	Break_Optional
001d 4808       |H   |		Short_Literal	0x8
001e 4800       |H   |		Short_Literal	0x0
001f 4803       |H   |		Short_Literal	0x3
0020 029f 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Call
0022 03fb       |    |		Declare_Type	Discrete,Defined,Visible,With_Size
0023 0007       |    |		Action	Break_Optional
0024 4800       |H   |		Short_Literal	0x0
0025 4801       |H   |		Short_Literal	0x1
0026 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
0028 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0029 0007       |    |		Action	Break_Optional
002a 4800       |H   |		Short_Literal	0x0
002b 4803       |H   |		Short_Literal	0x3
002c 029f 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Call
002e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
002f 0007       |    |		Action	Break_Optional
0030 4800       |H   |		Short_Literal	0x0
0031 481f       |H   |		Short_Literal	0x1f
0032 029f 0263  |   c|		Declare_Subprogram	INIT_0260,For_Call
0034 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0035 0007       |    |		Action	Break_Optional
0036 00d8       |    |		Load_Top	At_Offset_0
0037 0266       | f  |		Execute	Discrete,Bounds
0038 00e1       |    |		Load_Encached	Boolean_Cache
0039 02a0       |    |		Declare_Subprogram	Null_Subprogram
003a 4801       |H   |		Short_Literal	0x1
003b 035e       | ^  |		Declare_Type	Array,Defined,Visible
003c 00d8       |    |		Load_Top	At_Offset_0
003d 0336       | 6  |		Declare_Variable	Array,Visible
003e 00d8       |    |		Load_Top	At_Offset_0
003f 0335       | 5  |		Declare_Variable	Array,Duplicate
0040 00cd       |    |		Action	Spare6_Action
0041 481f       |H   |		Short_Literal	0x1f
0042 4800       |H   |		Short_Literal	0x0
0043 4800       |H   |		Short_Literal	0x0
0044 00d9       |    |		Load_Top	At_Offset_1
0045 e216       |    |		Load	0x1,0x16
0046 01d6       |    |		Execute	Vector,Field_Write
0047 3ffb       |?   |		Loop_Increasing	0x43
0048 00d9       |    |		Load_Top	At_Offset_1
0049 01d4       |    |		Execute	Vector,Structure_Write
004a 00d9       |    |		Load_Top	At_Offset_1
004b 0337       | 7  |		Declare_Variable	Array
004c 4800       |H   |		Short_Literal	0x0
004d 4800       |H   |		Short_Literal	0x0
004e 00da       |    |		Load_Top	At_Offset_2
004f 01d6       |    |		Execute	Vector,Field_Write
0050 4800       |H   |		Short_Literal	0x0
0051 4801       |H   |		Short_Literal	0x1
0052 00da       |    |		Load_Top	At_Offset_2
0053 01d6       |    |		Execute	Vector,Field_Write
0054 4800       |H   |		Short_Literal	0x0
0055 4802       |H   |		Short_Literal	0x2
0056 00da       |    |		Load_Top	At_Offset_2
0057 01d6       |    |		Execute	Vector,Field_Write
0058 4800       |H   |		Short_Literal	0x0
0059 4803       |H   |		Short_Literal	0x3
005a 00da       |    |		Load_Top	At_Offset_2
005b 01d6       |    |		Execute	Vector,Field_Write
005c 4800       |H   |		Short_Literal	0x0
005d 4804       |H   |		Short_Literal	0x4
005e 00da       |    |		Load_Top	At_Offset_2
005f 01d6       |    |		Execute	Vector,Field_Write
0060 4800       |H   |		Short_Literal	0x0
0061 4805       |H   |		Short_Literal	0x5
0062 00da       |    |		Load_Top	At_Offset_2
0063 01d6       |    |		Execute	Vector,Field_Write
0064 4800       |H   |		Short_Literal	0x0
0065 4806       |H   |		Short_Literal	0x6
0066 00da       |    |		Load_Top	At_Offset_2
0067 01d6       |    |		Execute	Vector,Field_Write
0068 4800       |H   |		Short_Literal	0x0
0069 4807       |H   |		Short_Literal	0x7
006a 00da       |    |		Load_Top	At_Offset_2
006b 01d6       |    |		Execute	Vector,Field_Write
006c 4800       |H   |		Short_Literal	0x0
006d 4808       |H   |		Short_Literal	0x8
006e 00da       |    |		Load_Top	At_Offset_2
006f 01d6       |    |		Execute	Vector,Field_Write
0070 4801       |H   |		Short_Literal	0x1
0071 4809       |H   |		Short_Literal	0x9
0072 00da       |    |		Load_Top	At_Offset_2
0073 01d6       |    |		Execute	Vector,Field_Write
0074 4801       |H   |		Short_Literal	0x1
0075 480a       |H   |		Short_Literal	0xa
0076 00da       |    |		Load_Top	At_Offset_2
0077 01d6       |    |		Execute	Vector,Field_Write
0078 4801       |H   |		Short_Literal	0x1
0079 480b       |H   |		Short_Literal	0xb
007a 00da       |    |		Load_Top	At_Offset_2
007b 01d6       |    |		Execute	Vector,Field_Write
007c 4801       |H   |		Short_Literal	0x1
007d 480c       |H   |		Short_Literal	0xc
007e 00da       |    |		Load_Top	At_Offset_2
007f 01d6       |    |		Execute	Vector,Field_Write
0080 4801       |H   |		Short_Literal	0x1
0081 480d       |H   |		Short_Literal	0xd
0082 00da       |    |		Load_Top	At_Offset_2
0083 01d6       |    |		Execute	Vector,Field_Write
0084 4801       |H   |		Short_Literal	0x1
0085 480e       |H   |		Short_Literal	0xe
0086 00da       |    |		Load_Top	At_Offset_2
0087 01d6       |    |		Execute	Vector,Field_Write
0088 4801       |H   |		Short_Literal	0x1
0089 480f       |H   |		Short_Literal	0xf
008a 00da       |    |		Load_Top	At_Offset_2
008b 01d6       |    |		Execute	Vector,Field_Write
008c 4801       |H   |		Short_Literal	0x1
008d 4810       |H   |		Short_Literal	0x10
008e 00da       |    |		Load_Top	At_Offset_2
008f 01d6       |    |		Execute	Vector,Field_Write
0090 4801       |H   |		Short_Literal	0x1
0091 4811       |H   |		Short_Literal	0x11
0092 00da       |    |		Load_Top	At_Offset_2
0093 01d6       |    |		Execute	Vector,Field_Write
0094 4801       |H   |		Short_Literal	0x1
0095 4812       |H   |		Short_Literal	0x12
0096 00da       |    |		Load_Top	At_Offset_2
0097 01d6       |    |		Execute	Vector,Field_Write
0098 4801       |H   |		Short_Literal	0x1
0099 4813       |H   |		Short_Literal	0x13
009a 00da       |    |		Load_Top	At_Offset_2
009b 01d6       |    |		Execute	Vector,Field_Write
009c 4801       |H   |		Short_Literal	0x1
009d 4814       |H   |		Short_Literal	0x14
009e 00da       |    |		Load_Top	At_Offset_2
009f 01d6       |    |		Execute	Vector,Field_Write
00a0 4801       |H   |		Short_Literal	0x1
00a1 4815       |H   |		Short_Literal	0x15
00a2 00da       |    |		Load_Top	At_Offset_2
00a3 01d6       |    |		Execute	Vector,Field_Write
00a4 4801       |H   |		Short_Literal	0x1
00a5 4816       |H   |		Short_Literal	0x16
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 01d6       |    |		Execute	Vector,Field_Write
00a8 4801       |H   |		Short_Literal	0x1
00a9 4817       |H   |		Short_Literal	0x17
00aa 00da       |    |		Load_Top	At_Offset_2
00ab 01d6       |    |		Execute	Vector,Field_Write
00ac 4801       |H   |		Short_Literal	0x1
00ad 4818       |H   |		Short_Literal	0x18
00ae 00da       |    |		Load_Top	At_Offset_2
00af 01d6       |    |		Execute	Vector,Field_Write
00b0 4801       |H   |		Short_Literal	0x1
00b1 4819       |H   |		Short_Literal	0x19
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 01d6       |    |		Execute	Vector,Field_Write
00b4 4801       |H   |		Short_Literal	0x1
00b5 481a       |H   |		Short_Literal	0x1a
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 01d6       |    |		Execute	Vector,Field_Write
00b8 4801       |H   |		Short_Literal	0x1
00b9 481b       |H   |		Short_Literal	0x1b
00ba 00da       |    |		Load_Top	At_Offset_2
00bb 01d6       |    |		Execute	Vector,Field_Write
00bc 4801       |H   |		Short_Literal	0x1
00bd 481c       |H   |		Short_Literal	0x1c
00be 00da       |    |		Load_Top	At_Offset_2
00bf 01d6       |    |		Execute	Vector,Field_Write
00c0 4801       |H   |		Short_Literal	0x1
00c1 481d       |H   |		Short_Literal	0x1d
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 01d6       |    |		Execute	Vector,Field_Write
00c4 4801       |H   |		Short_Literal	0x1
00c5 481e       |H   |		Short_Literal	0x1e
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 01d6       |    |		Execute	Vector,Field_Write
00c8 4801       |H   |		Short_Literal	0x1
00c9 481f       |H   |		Short_Literal	0x1f
00ca 00da       |    |		Load_Top	At_Offset_2
00cb 01d6       |    |		Execute	Vector,Field_Write
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 01c3       |    |		Execute	Vector,Check_In_Type
00ce 0129       | )  |		Execute	Any,Make_Visible
00cf 4820       |H   |		Short_Literal	0x20
00d0 4800       |H   |		Short_Literal	0x0
00d1 480f       |H   |		Short_Literal	0xf
00d2 029f 028b  |    |		Declare_Subprogram	INIT_0288,For_Call
00d4 03fb       |    |		Declare_Type	Discrete,Defined,Visible,With_Size
00d5 0007       |    |		Action	Break_Optional
00d6 4800       |H   |		Short_Literal	0x0
00d7 4802       |H   |		Short_Literal	0x2
00d8 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
00da 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00db 0007       |    |		Action	Break_Optional
00dc 4800       |H   |		Short_Literal	0x0
00dd 4802       |H   |		Short_Literal	0x2
00de 029f 02db  |    |		Declare_Subprogram	INIT_02d8,For_Call
00e0 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00e1 0007       |    |		Action	Break_Optional
00e2 4800       |H   |		Short_Literal	0x0
00e3 4801       |H   |		Short_Literal	0x1
00e4 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
00e6 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00e7 0007       |    |		Action	Break_Optional
00e8 00db       |    |		Load_Top	At_Offset_3
00e9 e004       |    |		Load	0x0,0x4
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb e004       |    |		Load	0x0,0x4
00ec e005       |    |		Load	0x0,0x5
00ed e219       |    |		Load	0x1,0x19
00ee e20f       |    |		Load	0x1,0xf
00ef e218       |    |		Load	0x1,0x18
00f0 e212       |    |		Load	0x1,0x12
00f1 e211       |    |		Load	0x1,0x11
00f2 e20d       |    |		Load	0x1,0xd
00f3 e006       |    |		Load	0x0,0x6
00f4 00d8       |    |		Load_Top	At_Offset_0
00f5 e007       |    |		Load	0x0,0x7
00f6 00d8       |    |		Load_Top	At_Offset_0
00f7 e008       |    |		Load	0x0,0x8
00f8 e21a       |    |		Load	0x1,0x1a
00f9 00e1       |    |		Load_Encached	Boolean_Cache
00fa e007       |    |		Load	0x0,0x7
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc e006       |    |		Load	0x0,0x6
00fd e005       |    |		Load	0x0,0x5
00fe e009       |    |		Load	0x0,0x9
00ff 029f 032b  |   +|		Declare_Subprogram	INIT_0328,For_Call
0101 4817       |H   |		Short_Literal	0x17
0102 032e       | .  |		Declare_Type	Record,Defined,Visible
0103 00d8       |    |		Load_Top	At_Offset_0
0104 0322       | "  |		Declare_Variable	Record
0105 4800       |H   |		Short_Literal	0x0
0106 00d9       |    |		Load_Top	At_Offset_1
0107 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0108 4800       |H   |		Short_Literal	0x0
0109 00d9       |    |		Load_Top	At_Offset_1
010a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
010b 4800       |H   |		Short_Literal	0x0
010c 00d9       |    |		Load_Top	At_Offset_1
010d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
010e 4800       |H   |		Short_Literal	0x0
010f 00d9       |    |		Load_Top	At_Offset_1
0110 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0111 4800       |H   |		Short_Literal	0x0
0112 00d9       |    |		Load_Top	At_Offset_1
0113 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0114 4800       |H   |		Short_Literal	0x0
0115 00d9       |    |		Load_Top	At_Offset_1
0116 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0117 4800       |H   |		Short_Literal	0x0
0118 00d9       |    |		Load_Top	At_Offset_1
0119 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
011a 4800       |H   |		Short_Literal	0x0
011b 00d9       |    |		Load_Top	At_Offset_1
011c 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
011d 4800       |H   |		Short_Literal	0x0
011e 00d9       |    |		Load_Top	At_Offset_1
011f 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0120 4800       |H   |		Short_Literal	0x0
0121 00d9       |    |		Load_Top	At_Offset_1
0122 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0123 4800       |H   |		Short_Literal	0x0
0124 00d9       |    |		Load_Top	At_Offset_1
0125 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0126 e002       |    |		Load	0x0,0x2
0127 00d9       |    |		Load_Top	At_Offset_1
0128 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0129 e002       |    |		Load	0x0,0x2
012a 00d9       |    |		Load_Top	At_Offset_1
012b 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
012c 4800       |H   |		Short_Literal	0x0
012d 00d9       |    |		Load_Top	At_Offset_1
012e 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
012f 4800       |H   |		Short_Literal	0x0
0130 00d9       |    |		Load_Top	At_Offset_1
0131 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0132 e00a       |    |		Load	0x0,0xa
0133 00d9       |    |		Load_Top	At_Offset_1
0134 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
0135 4800       |H   |		Short_Literal	0x0
0136 00d9       |    |		Load_Top	At_Offset_1
0137 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
0138 4800       |H   |		Short_Literal	0x0
0139 00d9       |    |		Load_Top	At_Offset_1
013a 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
013b 4800       |H   |		Short_Literal	0x0
013c 00d9       |    |		Load_Top	At_Offset_1
013d 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
013e 4800       |H   |		Short_Literal	0x0
013f 00d9       |    |		Load_Top	At_Offset_1
0140 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
0141 e002       |    |		Load	0x0,0x2
0142 00d9       |    |		Load_Top	At_Offset_1
0143 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
0144 4800       |H   |		Short_Literal	0x0
0145 00d9       |    |		Load_Top	At_Offset_1
0146 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
0147 4800       |H   |		Short_Literal	0x0
0148 00d9       |    |		Load_Top	At_Offset_1
0149 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
014a 0129       | )  |		Execute	Any,Make_Visible
014b e00b       |    |		Load	0x0,0xb
014c e00c       |    |		Load	0x0,0xc
014d 00e1       |    |		Load_Encached	Boolean_Cache
014e 00e1       |    |		Load_Encached	Boolean_Cache
014f e214       |    |		Load	0x1,0x14
0150 e21b       |    |		Load	0x1,0x1b
0151 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
0153 4806       |H   |		Short_Literal	0x6
0154 032e       | .  |		Declare_Type	Record,Defined,Visible
0155 00d8       |    |		Load_Top	At_Offset_0
0156 02a0       |    |		Declare_Subprogram	Null_Subprogram
0157 4818       |H   |		Short_Literal	0x18
0158 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0159 00d8       |    |		Load_Top	At_Offset_0
015a 0221       | !  |		Execute	Access,Allow_Deallocate
015b 0007       |    |		Action	Break_Optional
015c 0007       |    |		Action	Break_Optional
015d e00d       |    |		Load	0x0,0xd
015e 0266       | f  |		Execute	Discrete,Bounds
015f 00da       |    |		Load_Top	At_Offset_2
0160 02a0       |    |		Declare_Subprogram	Null_Subprogram
0161 4801       |H   |		Short_Literal	0x1
0162 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0163 00d8       |    |		Load_Top	At_Offset_0
0164 02a0       |    |		Declare_Subprogram	Null_Subprogram
0165 4818       |H   |		Short_Literal	0x18
0166 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0167 0007       |    |		Action	Break_Optional
0168 00bf       |    |		Action	Accept_Activation
0169			BODY_0008:
0169 00bc       |    |		Action	Signal_Activated
016a 00bb       |    |		Action	Signal_Completion
016b 0000 0000  |    |		.BLANK	0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 4607       |F   |		Jump_Case	0x8
0174 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0175 7807       |x   |		Jump	0x17d								; case 0x1
0176 780a       |x   |		Jump	0x181								; case 0x2
0177 780e       |x   |		Jump	0x186								; case 0x3
0178 7811       |x   |		Jump	0x18a								; case 0x4
0179 7812       |x   |		Jump	0x18c								; case 0x5
017a 7813       |x   |		Jump	0x18e								; case 0x6
017b 7816       |x   |		Jump	0x192								; case 0x7
017c 4302       |C   |		.XXX[0x1]
017d 00da       |    |		Load_Top	At_Offset_2
017e 0091 0393  |    |		Action	Push_String_Extended_Indexed,0x393				; "ARC_CHORD"
0180 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0181 00db       |    |		Load_Top	At_Offset_3
0182 00db       |    |		Load_Top	At_Offset_3
0183 00e0       |    |		Load_Encached	Standard_Cache
0184 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0185 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0186 00da       |    |		Load_Top	At_Offset_2
0187 00e0       |    |		Load_Encached	Standard_Cache
0188 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0189 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
018a 00db       |    |		Load_Top	At_Offset_3
018b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018c 00db       |    |		Load_Top	At_Offset_3
018d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018e e20d       |    |		Load	0x1,0xd
018f 00dc       |    |		Load_Top	At_Offset_4
0190 0267       | g  |		Execute	Discrete,Predecessor
0191 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0192 e20d       |    |		Load	0x1,0xd
0193 00dc       |    |		Load_Top	At_Offset_4
0194 0268       | h  |		Execute	Discrete,Successor
0195 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 4607       |F   |		Jump_Case	0x8
019c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
019d 7807       |x   |		Jump	0x1a5								; case 0x1
019e 780a       |x   |		Jump	0x1a9								; case 0x2
019f 780e       |x   |		Jump	0x1ae								; case 0x3
01a0 7811       |x   |		Jump	0x1b2								; case 0x4
01a1 7812       |x   |		Jump	0x1b4								; case 0x5
01a2 7813       |x   |		Jump	0x1b6								; case 0x6
01a3 7816       |x   |		Jump	0x1ba								; case 0x7
01a4 4302       |C   |		.XXX[0x1]
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 0091 0395  |    |		Action	Push_String_Extended_Indexed,0x395				; "CURSOR_SHAPE"
01a8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01a9 00db       |    |		Load_Top	At_Offset_3
01aa 00db       |    |		Load_Top	At_Offset_3
01ab 00e0       |    |		Load_Encached	Standard_Cache
01ac 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ae 00da       |    |		Load_Top	At_Offset_2
01af 00e0       |    |		Load_Encached	Standard_Cache
01b0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01b1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01b2 00db       |    |		Load_Top	At_Offset_3
01b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01b4 00db       |    |		Load_Top	At_Offset_3
01b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01b6 e20e       |    |		Load	0x1,0xe
01b7 00dc       |    |		Load_Top	At_Offset_4
01b8 0267       | g  |		Execute	Discrete,Predecessor
01b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ba e20e       |    |		Load	0x1,0xe
01bb 00dc       |    |		Load_Top	At_Offset_4
01bc 0268       | h  |		Execute	Discrete,Successor
01bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01be 0000 0000  |    |		.XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 4607       |F   |		Jump_Case	0x8
01c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01c5 7807       |x   |		Jump	0x1cd								; case 0x1
01c6 780a       |x   |		Jump	0x1d1								; case 0x2
01c7 780e       |x   |		Jump	0x1d6								; case 0x3
01c8 7811       |x   |		Jump	0x1da								; case 0x4
01c9 7812       |x   |		Jump	0x1dc								; case 0x5
01ca 7813       |x   |		Jump	0x1de								; case 0x6
01cb 7816       |x   |		Jump	0x1e2								; case 0x7
01cc 4302       |C   |		.XXX[0x1]
01cd 00da       |    |		Load_Top	At_Offset_2
01ce 0091 0398  |    |		Action	Push_String_Extended_Indexed,0x398				; "CAP_NOT_LAST"
01d0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01d1 00db       |    |		Load_Top	At_Offset_3
01d2 00db       |    |		Load_Top	At_Offset_3
01d3 00e0       |    |		Load_Encached	Standard_Cache
01d4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d6 00da       |    |		Load_Top	At_Offset_2
01d7 00e0       |    |		Load_Encached	Standard_Cache
01d8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01d9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01da 00db       |    |		Load_Top	At_Offset_3
01db 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01dc 00db       |    |		Load_Top	At_Offset_3
01dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01de e20f       |    |		Load	0x1,0xf
01df 00dc       |    |		Load_Top	At_Offset_4
01e0 0267       | g  |		Execute	Discrete,Predecessor
01e1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01e2 e20f       |    |		Load	0x1,0xf
01e3 00dc       |    |		Load_Top	At_Offset_4
01e4 0268       | h  |		Execute	Discrete,Successor
01e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01e6 0000 0000  |    |		.XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 4607       |F   |		Jump_Case	0x8
01ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01ed 7807       |x   |		Jump	0x1f5								; case 0x1
01ee 780a       |x   |		Jump	0x1f9								; case 0x2
01ef 780e       |x   |		Jump	0x1fe								; case 0x3
01f0 7811       |x   |		Jump	0x202								; case 0x4
01f1 7812       |x   |		Jump	0x204								; case 0x5
01f2 7813       |x   |		Jump	0x206								; case 0x6
01f3 7816       |x   |		Jump	0x20a								; case 0x7
01f4 4302       |C   |		.XXX[0x1]
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 0091 039c  |    |		Action	Push_String_Extended_Indexed,0x39c				; "UNSORTED"
01f8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01f9 00db       |    |		Load_Top	At_Offset_3
01fa 00db       |    |		Load_Top	At_Offset_3
01fb 00e0       |    |		Load_Encached	Standard_Cache
01fc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01fe 00da       |    |		Load_Top	At_Offset_2
01ff 00e0       |    |		Load_Encached	Standard_Cache
0200 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0201 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0202 00db       |    |		Load_Top	At_Offset_3
0203 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0204 00db       |    |		Load_Top	At_Offset_3
0205 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0206 e210       |    |		Load	0x1,0x10
0207 00dc       |    |		Load_Top	At_Offset_4
0208 0267       | g  |		Execute	Discrete,Predecessor
0209 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020a e210       |    |		Load	0x1,0x10
020b 00dc       |    |		Load_Top	At_Offset_4
020c 0268       | h  |		Execute	Discrete,Successor
020d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020e 0000 0000  |    |		.XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 4607       |F   |		Jump_Case	0x8
0214 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0215 7807       |x   |		Jump	0x21d								; case 0x1
0216 780a       |x   |		Jump	0x221								; case 0x2
0217 780e       |x   |		Jump	0x226								; case 0x3
0218 7811       |x   |		Jump	0x22a								; case 0x4
0219 7812       |x   |		Jump	0x22c								; case 0x5
021a 7813       |x   |		Jump	0x22e								; case 0x6
021b 7816       |x   |		Jump	0x232								; case 0x7
021c 4302       |C   |		.XXX[0x1]
021d 00da       |    |		Load_Top	At_Offset_2
021e 0091 03a0  |    |		Action	Push_String_Extended_Indexed,0x3a0				; "EVEN_ODD_RULE"
0220 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0221 00db       |    |		Load_Top	At_Offset_3
0222 00db       |    |		Load_Top	At_Offset_3
0223 00e0       |    |		Load_Encached	Standard_Cache
0224 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0225 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0226 00da       |    |		Load_Top	At_Offset_2
0227 00e0       |    |		Load_Encached	Standard_Cache
0228 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0229 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
022a 00db       |    |		Load_Top	At_Offset_3
022b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022c 00db       |    |		Load_Top	At_Offset_3
022d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022e e211       |    |		Load	0x1,0x11
022f 00dc       |    |		Load_Top	At_Offset_4
0230 0267       | g  |		Execute	Discrete,Predecessor
0231 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0232 e211       |    |		Load	0x1,0x11
0233 00dc       |    |		Load_Top	At_Offset_4
0234 0268       | h  |		Execute	Discrete,Successor
0235 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0236 0000 0000  |    |		.XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 4607       |F   |		Jump_Case	0x8
023c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
023d 7807       |x   |		Jump	0x245								; case 0x1
023e 780a       |x   |		Jump	0x249								; case 0x2
023f 780e       |x   |		Jump	0x24e								; case 0x3
0240 7811       |x   |		Jump	0x252								; case 0x4
0241 7812       |x   |		Jump	0x254								; case 0x5
0242 7813       |x   |		Jump	0x256								; case 0x6
0243 7816       |x   |		Jump	0x25a								; case 0x7
0244 4302       |C   |		.XXX[0x1]
0245 00da       |    |		Load_Top	At_Offset_2
0246 0091 03a2  |    |		Action	Push_String_Extended_Indexed,0x3a2				; "FILL_SOLID"
0248 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0249 00db       |    |		Load_Top	At_Offset_3
024a 00db       |    |		Load_Top	At_Offset_3
024b 00e0       |    |		Load_Encached	Standard_Cache
024c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
024d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024e 00da       |    |		Load_Top	At_Offset_2
024f 00e0       |    |		Load_Encached	Standard_Cache
0250 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0251 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0252 00db       |    |		Load_Top	At_Offset_3
0253 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0254 00db       |    |		Load_Top	At_Offset_3
0255 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0256 e212       |    |		Load	0x1,0x12
0257 00dc       |    |		Load_Top	At_Offset_4
0258 0267       | g  |		Execute	Discrete,Predecessor
0259 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
025a e212       |    |		Load	0x1,0x12
025b 00dc       |    |		Load_Top	At_Offset_4
025c 0268       | h  |		Execute	Discrete,Successor
025d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
025e 0000 0000  |    |		.XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 4607       |F   |		Jump_Case	0x8
0264 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0265 7807       |x   |		Jump	0x26d								; case 0x1
0266 780a       |x   |		Jump	0x271								; case 0x2
0267 780e       |x   |		Jump	0x276								; case 0x3
0268 7811       |x   |		Jump	0x27a								; case 0x4
0269 7812       |x   |		Jump	0x27c								; case 0x5
026a 7813       |x   |		Jump	0x27e								; case 0x6
026b 7816       |x   |		Jump	0x282								; case 0x7
026c 4302       |C   |		.XXX[0x1]
026d 00da       |    |		Load_Top	At_Offset_2
026e 0091 03a6  |    |		Action	Push_String_Extended_Indexed,0x3a6				; "XGCL31"
0270 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0271 00db       |    |		Load_Top	At_Offset_3
0272 00db       |    |		Load_Top	At_Offset_3
0273 00e0       |    |		Load_Encached	Standard_Cache
0274 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0275 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0276 00da       |    |		Load_Top	At_Offset_2
0277 00e0       |    |		Load_Encached	Standard_Cache
0278 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0279 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
027a 00db       |    |		Load_Top	At_Offset_3
027b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
027c 00db       |    |		Load_Top	At_Offset_3
027d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
027e e213       |    |		Load	0x1,0x13
027f 00dc       |    |		Load_Top	At_Offset_4
0280 0267       | g  |		Execute	Discrete,Predecessor
0281 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0282 e213       |    |		Load	0x1,0x13
0283 00dc       |    |		Load_Top	At_Offset_4
0284 0268       | h  |		Execute	Discrete,Successor
0285 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0286 0000 0000  |    |		.XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 4607       |F   |		Jump_Case	0x8
028c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
028d 7807       |x   |		Jump	0x295								; case 0x1
028e 780a       |x   |		Jump	0x299								; case 0x2
028f 780e       |x   |		Jump	0x29e								; case 0x3
0290 7811       |x   |		Jump	0x2a2								; case 0x4
0291 7812       |x   |		Jump	0x2a4								; case 0x5
0292 7813       |x   |		Jump	0x2a6								; case 0x6
0293 7816       |x   |		Jump	0x2aa								; case 0x7
0294 4302       |C   |		.XXX[0x1]
0295 00da       |    |		Load_Top	At_Offset_2
0296 0091 03c6  |    |		Action	Push_String_Extended_Indexed,0x3c6				; "GX_CLEAR"
0298 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0299 00db       |    |		Load_Top	At_Offset_3
029a 00db       |    |		Load_Top	At_Offset_3
029b 00e0       |    |		Load_Encached	Standard_Cache
029c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
029d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
029e 00da       |    |		Load_Top	At_Offset_2
029f 00e0       |    |		Load_Encached	Standard_Cache
02a0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02a1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02a2 00db       |    |		Load_Top	At_Offset_3
02a3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02a6 e217       |    |		Load	0x1,0x17
02a7 00dc       |    |		Load_Top	At_Offset_4
02a8 0267       | g  |		Execute	Discrete,Predecessor
02a9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02aa e217       |    |		Load	0x1,0x17
02ab 00dc       |    |		Load_Top	At_Offset_4
02ac 0268       | h  |		Execute	Discrete,Successor
02ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ae 0000 0000  |    |		.XXX[0x2]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 4607       |F   |		Jump_Case	0x8
02b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02b5 7807       |x   |		Jump	0x2bd								; case 0x1
02b6 780a       |x   |		Jump	0x2c1								; case 0x2
02b7 780e       |x   |		Jump	0x2c6								; case 0x3
02b8 7811       |x   |		Jump	0x2ca								; case 0x4
02b9 7812       |x   |		Jump	0x2cc								; case 0x5
02ba 7813       |x   |		Jump	0x2ce								; case 0x6
02bb 7816       |x   |		Jump	0x2d2								; case 0x7
02bc 4302       |C   |		.XXX[0x1]
02bd 00da       |    |		Load_Top	At_Offset_2
02be 0091 03d6  |    |		Action	Push_String_Extended_Indexed,0x3d6				; "JOIN_MITER"
02c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02c1 00db       |    |		Load_Top	At_Offset_3
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 00e0       |    |		Load_Encached	Standard_Cache
02c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c6 00da       |    |		Load_Top	At_Offset_2
02c7 00e0       |    |		Load_Encached	Standard_Cache
02c8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02c9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02ca 00db       |    |		Load_Top	At_Offset_3
02cb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02cc 00db       |    |		Load_Top	At_Offset_3
02cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ce e218       |    |		Load	0x1,0x18
02cf 00dc       |    |		Load_Top	At_Offset_4
02d0 0267       | g  |		Execute	Discrete,Predecessor
02d1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02d2 e218       |    |		Load	0x1,0x18
02d3 00dc       |    |		Load_Top	At_Offset_4
02d4 0268       | h  |		Execute	Discrete,Successor
02d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db 4607       |F   |		Jump_Case	0x8
02dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02dd 7807       |x   |		Jump	0x2e5								; case 0x1
02de 780a       |x   |		Jump	0x2e9								; case 0x2
02df 780e       |x   |		Jump	0x2ee								; case 0x3
02e0 7811       |x   |		Jump	0x2f2								; case 0x4
02e1 7812       |x   |		Jump	0x2f4								; case 0x5
02e2 7813       |x   |		Jump	0x2f6								; case 0x6
02e3 7816       |x   |		Jump	0x2fa								; case 0x7
02e4 4302       |C   |		.XXX[0x1]
02e5 00da       |    |		Load_Top	At_Offset_2
02e6 0091 03d9  |    |		Action	Push_String_Extended_Indexed,0x3d9				; "LINE_SOLID"
02e8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02e9 00db       |    |		Load_Top	At_Offset_3
02ea 00db       |    |		Load_Top	At_Offset_3
02eb 00e0       |    |		Load_Encached	Standard_Cache
02ec 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ee 00da       |    |		Load_Top	At_Offset_2
02ef 00e0       |    |		Load_Encached	Standard_Cache
02f0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02f1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02f2 00db       |    |		Load_Top	At_Offset_3
02f3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f4 00db       |    |		Load_Top	At_Offset_3
02f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f6 e219       |    |		Load	0x1,0x19
02f7 00dc       |    |		Load_Top	At_Offset_4
02f8 0267       | g  |		Execute	Discrete,Predecessor
02f9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02fa e219       |    |		Load	0x1,0x19
02fb 00dc       |    |		Load_Top	At_Offset_4
02fc 0268       | h  |		Execute	Discrete,Successor
02fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02fe 0000 0000  |    |		.XXX[0x2]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 4607       |F   |		Jump_Case	0x8
0304 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0305 7807       |x   |		Jump	0x30d								; case 0x1
0306 780a       |x   |		Jump	0x311								; case 0x2
0307 780e       |x   |		Jump	0x316								; case 0x3
0308 7811       |x   |		Jump	0x31a								; case 0x4
0309 7812       |x   |		Jump	0x31c								; case 0x5
030a 7813       |x   |		Jump	0x31e								; case 0x6
030b 7816       |x   |		Jump	0x322								; case 0x7
030c 4302       |C   |		.XXX[0x1]
030d 00da       |    |		Load_Top	At_Offset_2
030e 0091 03dc  |    |		Action	Push_String_Extended_Indexed,0x3dc				; "CLIP_BY_CHILDREN"
0310 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0311 00db       |    |		Load_Top	At_Offset_3
0312 00db       |    |		Load_Top	At_Offset_3
0313 00e0       |    |		Load_Encached	Standard_Cache
0314 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0315 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0316 00da       |    |		Load_Top	At_Offset_2
0317 00e0       |    |		Load_Encached	Standard_Cache
0318 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0319 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
031a 00db       |    |		Load_Top	At_Offset_3
031b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
031c 00db       |    |		Load_Top	At_Offset_3
031d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
031e e21a       |    |		Load	0x1,0x1a
031f 00dc       |    |		Load_Top	At_Offset_4
0320 0267       | g  |		Execute	Discrete,Predecessor
0321 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0322 e21a       |    |		Load	0x1,0x1a
0323 00dc       |    |		Load_Top	At_Offset_4
0324 0268       | h  |		Execute	Discrete,Successor
0325 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0326 0000 0000  |    |		.XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 4601       |F   |		Jump_Case	0x2
032c 7801       |x   |		Jump	0x32e								; case 0x0
032d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
032e 4800       |H   |		Short_Literal	0x0
032f 00db       |    |		Load_Top	At_Offset_3
0330 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0331 4800       |H   |		Short_Literal	0x0
0332 00db       |    |		Load_Top	At_Offset_3
0333 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0334 4800       |H   |		Short_Literal	0x0
0335 00db       |    |		Load_Top	At_Offset_3
0336 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0337 4800       |H   |		Short_Literal	0x0
0338 00db       |    |		Load_Top	At_Offset_3
0339 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
033a 4800       |H   |		Short_Literal	0x0
033b 00db       |    |		Load_Top	At_Offset_3
033c 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
033d 4800       |H   |		Short_Literal	0x0
033e 00db       |    |		Load_Top	At_Offset_3
033f 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0340 4800       |H   |		Short_Literal	0x0
0341 00db       |    |		Load_Top	At_Offset_3
0342 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0343 4800       |H   |		Short_Literal	0x0
0344 00db       |    |		Load_Top	At_Offset_3
0345 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0346 4800       |H   |		Short_Literal	0x0
0347 00db       |    |		Load_Top	At_Offset_3
0348 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0349 4800       |H   |		Short_Literal	0x0
034a 00db       |    |		Load_Top	At_Offset_3
034b 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
034c 4800       |H   |		Short_Literal	0x0
034d 00db       |    |		Load_Top	At_Offset_3
034e 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
034f e002       |    |		Load	0x0,0x2
0350 00db       |    |		Load_Top	At_Offset_3
0351 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0352 e002       |    |		Load	0x0,0x2
0353 00db       |    |		Load_Top	At_Offset_3
0354 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0355 4800       |H   |		Short_Literal	0x0
0356 00db       |    |		Load_Top	At_Offset_3
0357 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0358 4800       |H   |		Short_Literal	0x0
0359 00db       |    |		Load_Top	At_Offset_3
035a 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
035b 4800       |H   |		Short_Literal	0x0
035c 00db       |    |		Load_Top	At_Offset_3
035d 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
035e 4800       |H   |		Short_Literal	0x0
035f 00db       |    |		Load_Top	At_Offset_3
0360 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0361 4800       |H   |		Short_Literal	0x0
0362 00db       |    |		Load_Top	At_Offset_3
0363 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
0364 4800       |H   |		Short_Literal	0x0
0365 00db       |    |		Load_Top	At_Offset_3
0366 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
0367 e002       |    |		Load	0x0,0x2
0368 00db       |    |		Load_Top	At_Offset_3
0369 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
036a 4800       |H   |		Short_Literal	0x0
036b 00db       |    |		Load_Top	At_Offset_3
036c 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
036d 4800       |H   |		Short_Literal	0x0
036e 00db       |    |		Load_Top	At_Offset_3
036f 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
0370 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0371 0000 0000  |    |		.BLANK	0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b 4601       |F   |		Jump_Case	0x2
037c 7801       |x   |		Jump	0x37e								; case 0x0
037d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
037e e003       |    |		Load	0x0,0x3
037f 00db       |    |		Load_Top	At_Offset_3
0380 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0381 4800       |H   |		Short_Literal	0x0
0382 00db       |    |		Load_Top	At_Offset_3
0383 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0384 4800       |H   |		Short_Literal	0x0
0385 00db       |    |		Load_Top	At_Offset_3
0386 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0387 e215       |    |		Load	0x1,0x15
0388 00db       |    |		Load_Top	At_Offset_3
0389 00d9       |    |		Load_Top	At_Offset_1
038a 00d9       |    |		Load_Top	At_Offset_1
038b 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
038c 0119       |    |		Execute	Any,Check_In_Formal_Type
038d 00d1       |    |		Pop_Control	Pop_Count_1
038e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
038f 00da       |    |		Load_Top	At_Offset_2
0390 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0391 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0392 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0393 ; --------------------------------------------------------------------------------------
0393 ; STRING TABLE
0393 ; --------------------------------------------------------------------------------------
0393 0098       |    |		.STRTAB	0x0098->0x03df							; "ARC_CHORD"
0394 009f       |    |		.STRTAB	0x009f->0x03e3							; "ARC_PIE_SLICE"
0395 00aa       |    |		.STRTAB	0x00aa->0x03ea							; "CURSOR_SHAPE"
0396 00b4       |    |		.STRTAB	0x00b4->0x03f0							; "TILE_SHAPE"
0397 00bc       |    |		.STRTAB	0x00bc->0x03f5							; "STIPPLE_SHAPE"
0398 00c7       |    |		.STRTAB	0x00c7->0x03fb							; "CAP_NOT_LAST"
0399 00d1       |    |		.STRTAB	0x00d1->0x0401							; "CAP_BUTT"
039a 00d7       |    |		.STRTAB	0x00d7->0x0405							; "CAP_ROUND"
039b 00de       |    |		.STRTAB	0x00de->0x040a							; "CAP_PROJECTING"
039c 00ea       |    |		.STRTAB	0x00ea->0x0411							; "UNSORTED"
039d 00f0       |    |		.STRTAB	0x00f0->0x0415							; "Y_SORTED"
039e 00f6       |    |		.STRTAB	0x00f6->0x0419							; "Y_X_SORTED"
039f 00fe       |    |		.STRTAB	0x00fe->0x041e							; "Y_X_BANDED"
03a0 0106       |    |		.STRTAB	0x0106->0x0423							; "EVEN_ODD_RULE"
03a1 0111       |    |		.STRTAB	0x0111->0x0429							; "WINDING_RULE"
03a2 011b       |    |		.STRTAB	0x011b->0x042f							; "FILL_SOLID"
03a3 0123       | #  |		.STRTAB	0x0123->0x0434							; "FILL_TILED"
03a4 012b       | +  |		.STRTAB	0x012b->0x0439							; "FILL_STIPPLED"
03a5 0136       | 6  |		.STRTAB	0x0136->0x0440							; "FILL_OPAQUE_STIPPLED"
03a6 0148       | H  |		.STRTAB	0x0148->0x044a							; "XGCL31"
03a7 014c       | L  |		.STRTAB	0x014c->0x044d							; "XGCL30"
03a8 0150       | P  |		.STRTAB	0x0150->0x0450							; "XGCL29"
03a9 0154       | T  |		.STRTAB	0x0154->0x0453							; "XGCL28"
03aa 0158       | X  |		.STRTAB	0x0158->0x0456							; "XGCL27"
03ab 015c       | \  |		.STRTAB	0x015c->0x0459							; "XGCL26"
03ac 0160       | `  |		.STRTAB	0x0160->0x045c							; "XGCL25"
03ad 0164       | d  |		.STRTAB	0x0164->0x045f							; "XGCL24"
03ae 0168       | h  |		.STRTAB	0x0168->0x0462							; "XGCL23"
03af 016c       | l  |		.STRTAB	0x016c->0x0465							; "GC_ARC_MODE"
03b0 0175       | u  |		.STRTAB	0x0175->0x046a							; "GC_DASH_LIST"
03b1 017f       |    |		.STRTAB	0x017f->0x0470							; "GC_DASH_OFFSET"
03b2 018b       |    |		.STRTAB	0x018b->0x0477							; "GC_CLIP_MASK"
03b3 0195       |    |		.STRTAB	0x0195->0x047d							; "GC_CLIP_Y_ORIGIN"
03b4 01a3       |    |		.STRTAB	0x01a3->0x0485							; "GC_CLIP_X_ORIGIN"
03b5 01b1       |    |		.STRTAB	0x01b1->0x048d							; "GC_GRAPHICS_EXPOSURES"
03b6 01c4       |    |		.STRTAB	0x01c4->0x0498							; "GC_SUBWINDOW_MODE"
03b7 01d3       |    |		.STRTAB	0x01d3->0x04a0							; "GC_FONT"
03b8 01d8       |    |		.STRTAB	0x01d8->0x04a4							; "GC_TILE_STIP_Y_ORIGIN"
03b9 01eb       |    |		.STRTAB	0x01eb->0x04ae							; "GC_TILE_STIP_X_ORIGIN"
03ba 01fe       |    |		.STRTAB	0x01fe->0x04b9							; "GC_STIPPLE"
03bb 0206       |    |		.STRTAB	0x0206->0x04be							; "GC_TILE"
03bc 020b       |    |		.STRTAB	0x020b->0x04c1							; "GC_FILL_RULE"
03bd 0215       |    |		.STRTAB	0x0215->0x04c7							; "GC_FILL_STYLE"
03be 0220       |    |		.STRTAB	0x0220->0x04ce							; "GC_JOIN_STYLE"
03bf 022b       | +  |		.STRTAB	0x022b->0x04d4							; "GC_CAP_STYLE"
03c0 0235       | 5  |		.STRTAB	0x0235->0x04da							; "GC_LINE_STYLE"
03c1 0240       | @  |		.STRTAB	0x0240->0x04e1							; "GC_LINE_WIDTH"
03c2 024b       | K  |		.STRTAB	0x024b->0x04e7							; "GC_BACKGROUND"
03c3 0256       | V  |		.STRTAB	0x0256->0x04ee							; "GC_FOREGROUND"
03c4 0261       | a  |		.STRTAB	0x0261->0x04f4							; "GC_PLANE_MASK"
03c5 026c       | l  |		.STRTAB	0x026c->0x04fb							; "GC_FUNCTION"
03c6 0275       | u  |		.STRTAB	0x0275->0x0500							; "GX_CLEAR"
03c7 027b       | {  |		.STRTAB	0x027b->0x0504							; "GX_AND"
03c8 027f       |    |		.STRTAB	0x027f->0x0507							; "GX_AND_REVERSE"
03c9 028b       |    |		.STRTAB	0x028b->0x050e							; "GX_COPY"
03ca 0290       |    |		.STRTAB	0x0290->0x0512							; "GX_AND_INVERTED"
03cb 029d       |    |		.STRTAB	0x029d->0x0519							; "GX_NOOP"
03cc 02a2       |    |		.STRTAB	0x02a2->0x051d							; "GX_XOR"
03cd 02a6       |    |		.STRTAB	0x02a6->0x0520							; "GX_OR"
03ce 02a9       |    |		.STRTAB	0x02a9->0x0522							; "GX_NOR"
03cf 02ad       |    |		.STRTAB	0x02ad->0x0525							; "GX_EQUIV"
03d0 02b3       |    |		.STRTAB	0x02b3->0x0529							; "GX_INVERT"
03d1 02ba       |    |		.STRTAB	0x02ba->0x052e							; "GX_OR_REVERSE"
03d2 02c5       |    |		.STRTAB	0x02c5->0x0534							; "GX_COPY_INVERTED"
03d3 02d3       |    |		.STRTAB	0x02d3->0x053c							; "GX_OR_INVERTED"
03d4 02df       |    |		.STRTAB	0x02df->0x0543							; "GX_NAND"
03d5 02e4       |    |		.STRTAB	0x02e4->0x0547							; "GX_SET"
03d6 02e8       |    |		.STRTAB	0x02e8->0x054a							; "JOIN_MITER"
03d7 02f0       |    |		.STRTAB	0x02f0->0x054f							; "JOIN_ROUND"
03d8 02f8       |    |		.STRTAB	0x02f8->0x0554							; "JOIN_BEVEL"
03d9 0300       |    |		.STRTAB	0x0300->0x0559							; "LINE_SOLID"
03da 0308       |    |		.STRTAB	0x0308->0x055e							; "LINE_ON_OFF_DASH"
03db 0316       |    |		.STRTAB	0x0316->0x0566							; "LINE_DOUBLE_DASH"
03dc 0324       | $  |		.STRTAB	0x0324->0x056e							; "CLIP_BY_CHILDREN"
03dd 0332       | 2  |		.STRTAB	0x0332->0x0576							; "INCLUDE_INFERIORS"
03de 0341       | A  |		.STREND 0x0341->0x057e
03df 4152 435f  |ARC_|		.STRTAB_STRINGS
057f 0000       |    |		.XXX[0x1]
0580 ; --------------------------------------------------------------------------------------
0580 ; Debug Table
0580 ; --------------------------------------------------------------------------------------
0580 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x48c8,0x0000,0x0001,0x000e
0586 000b 05be  |    |		.DBG4T	0x000b,0x05be,0x8000,0x0000
058a 0173 0000  | s  |		.DBG4T	0x0173,0x0000,0x0005,0x0000
058e 019b 0000  |    |		.DBG4T	0x019b,0x0000,0x0005,0x0000
0592 01c3 0000  |    |		.DBG4T	0x01c3,0x0000,0x0005,0x0000
0596 01eb 0000  |    |		.DBG4T	0x01eb,0x0000,0x0005,0x0000
059a 0213 0000  |    |		.DBG4T	0x0213,0x0000,0x0005,0x0000
059e 023b 0000  | ;  |		.DBG4T	0x023b,0x0000,0x0005,0x0000
05a2 0263 0000  | c  |		.DBG4T	0x0263,0x0000,0x0005,0x0000
05a6 028b 0000  |    |		.DBG4T	0x028b,0x0000,0x0005,0x0000
05aa 02b3 0000  |    |		.DBG4T	0x02b3,0x0000,0x0005,0x0000
05ae 02db 0000  |    |		.DBG4T	0x02db,0x0000,0x0005,0x0000
05b2 0303 0000  |    |		.DBG4T	0x0303,0x0000,0x0005,0x0000
05b6 032b 0000  | +  |		.DBG4T	0x032b,0x0000,0x0005,0x0000
05ba 037b 0000  | {  |		.DBG4T	0x037b,0x0000,0x0005,0x0000
05be ; --------------------------------------------------------------------------------------
05be ; Debug chain
05be ; --------------------------------------------------------------------------------------
05be 0022 0000  | "  |		.DBGLEN	0x0022,0x0000
05c0 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0011,0x0017,0x001c,0x001d,0x0023,0x0024,0x0029,0x002a,0x002f,0x0030,0x0035,0x0036,0x003c,0x004a,0x00cf,0x00d5,0x00d6,0x00db,0x00dc,0x00e1,0x00e2,0x00e7,0x00e8,0x0103,0x014b,0x0155,0x015b,0x015c,0x015d,0x0163,0x0167,0x0168
05e2 0000 0000  |    |		.BLANK	0000[0x1e]