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

⟦78cb6d6b8⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

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 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 06e8       |    |		.CONST	0x06e8								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0106       |    |		.CONST	0x0106								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0029       | )  |		.CONST	0x0029								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0 = .DEBUG	0x000b,0x0762,0x8000,0x0000,0x0053,0x9265,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 481e       |H   |		Short_Literal	0x1e
000d 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 480a       |H   |		Short_Literal	0xa
0012 00da       |    |		Load_Top	At_Offset_2
0013 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0014 480b       |H   |		Short_Literal	0xb							; Debug Table 0x0.0x2 = 0x14,0xfffd
0015 481c       |H   |		Short_Literal	0x1c
0016 00db       |    |		Load_Top	At_Offset_3
0017 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0018 4811       |H   |		Short_Literal	0x11							; Debug Table 0x0.0x3 = 0x18,0xfffc
0019 481c       |H   |		Short_Literal	0x1c
001a e20d       |    |		Load	0x1,0xd
001b 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001c e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x4 = 0x1c,0xfffb
001d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001e 0129       | )  |		Execute	Any,Make_Visible
001f e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x5 = 0x1f,0xfffa
0020 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0021 0129       | )  |		Execute	Any,Make_Visible
0022 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x6 = 0x22,0xfff9
0023 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0024 0129       | )  |		Execute	Any,Make_Visible
0025 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x7 = 0x25,0xfff8
0026 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0027 0129       | )  |		Execute	Any,Make_Visible
0028 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x8 = 0x28,0xfff7
0029 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002a 0129       | )  |		Execute	Any,Make_Visible
002b e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x9 = 0x2b,0xfff6
002c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
002d 0129       | )  |		Execute	Any,Make_Visible
002e e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xa = 0x2e,0xfff5
002f 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0030 0129       | )  |		Execute	Any,Make_Visible
0031 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xb = 0x31,0xfff4
0032 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0033 0129       | )  |		Execute	Any,Make_Visible
0034 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xc = 0x34,0xfff3
0035 4806       |H   |		Short_Literal	0x6
0036 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
0038 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0039 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xd = 0x39,0xfff2
003a 481f       |H   |		Short_Literal	0x1f
003b 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
003d 03fe       |    |		Declare_Type	Discrete,Defined,Visible
003e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xe = 0x3e,0xfff1
003f 4806       |H   |		Short_Literal	0x6
0040 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0042 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0043 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xf = 0x43,0xfff0
0044 480e       |H   |		Short_Literal	0xe
0045 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
0047 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0048 4fc0       |O   |		Short_Literal	-0x40							; Debug Table 0x0.0x10 = 0x48,0xffef
0049 483f       |H?  |		Short_Literal	0x3f
004a e001       |    |		Load	0x0,0x1
004b 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
004c 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
004d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x0.0x11 = 0x4d,0xffee
004e 4801       |H   |		Short_Literal	0x1
004f e001       |    |		Load	0x0,0x1
0050 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0051 4801       |H   |		Short_Literal	0x1
0052 e001       |    |		Load	0x0,0x1
0053 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0054 4801       |H   |		Short_Literal	0x1
0055 e001       |    |		Load	0x0,0x1
0056 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0057 4801       |H   |		Short_Literal	0x1
0058 e001       |    |		Load	0x0,0x1
0059 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
005a 4801       |H   |		Short_Literal	0x1
005b e001       |    |		Load	0x0,0x1
005c 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
005d 4801       |H   |		Short_Literal	0x1
005e e001       |    |		Load	0x0,0x1
005f 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0060 4801       |H   |		Short_Literal	0x1
0061 e001       |    |		Load	0x0,0x1
0062 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0063 4801       |H   |		Short_Literal	0x1
0064 e001       |    |		Load	0x0,0x1
0065 1b2f       | /  |		Execute	Package,Field_Read,Field_Number 0x2f
0066 4801       |H   |		Short_Literal	0x1
0067 e001       |    |		Load	0x0,0x1
0068 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0069 4801       |H   |		Short_Literal	0x1
006a e001       |    |		Load	0x0,0x1
006b 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
006c 4801       |H   |		Short_Literal	0x1
006d e002       |    |		Load	0x0,0x2
006e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006f 4801       |H   |		Short_Literal	0x1
0070 e001       |    |		Load	0x0,0x1
0071 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0072 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0074 480c       |H   |		Short_Literal	0xc
0075 4800       |H   |		Short_Literal	0x0
0076 480c       |H   |		Short_Literal	0xc
0077 4800       |H   |		Short_Literal	0x0
0078 4801       |H   |		Short_Literal	0x1
0079 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
007a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x0.0x12 = 0x7a,0xffed
007b 00e1       |    |		Load_Encached	Boolean_Cache
007c 4801       |H   |		Short_Literal	0x1
007d 4800       |H   |		Short_Literal	0x0
007e e21e       |    |		Load	0x1,0x1e
007f 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
0081 4801       |H   |		Short_Literal	0x1
0082 4800       |H   |		Short_Literal	0x0
0083 4800       |H   |		Short_Literal	0x0
0084 4801       |H   |		Short_Literal	0x1
0085 4801       |H   |		Short_Literal	0x1
0086 4802       |H   |		Short_Literal	0x2
0087 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0088 e20d       |    |		Load	0x1,0xd								; Debug Table 0x0.0x13 = 0x88,0xffec
0089 4803       |H   |		Short_Literal	0x3
008a e211       |    |		Load	0x1,0x11
008b e212       |    |		Load	0x1,0x12
008c e001       |    |		Load	0x0,0x1
008d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
008e 4802       |H   |		Short_Literal	0x2
008f e211       |    |		Load	0x1,0x11
0090 e213       |    |		Load	0x1,0x13
0091 4802       |H   |		Short_Literal	0x2
0092 e211       |    |		Load	0x1,0x11
0093 e001       |    |		Load	0x0,0x1
0094 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0095 4802       |H   |		Short_Literal	0x2
0096 e214       |    |		Load	0x1,0x14
0097 e001       |    |		Load	0x0,0x1
0098 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0099 4801       |H   |		Short_Literal	0x1
009a e218       |    |		Load	0x1,0x18
009b 4802       |H   |		Short_Literal	0x2
009c e211       |    |		Load	0x1,0x11
009d e215       |    |		Load	0x1,0x15
009e 4802       |H   |		Short_Literal	0x2
009f e215       |    |		Load	0x1,0x15
00a0 e21f       |    |		Load	0x1,0x1f
00a1 4803       |H   |		Short_Literal	0x3
00a2 e211       |    |		Load	0x1,0x11
00a3 e215       |    |		Load	0x1,0x15
00a4 e21f       |    |		Load	0x1,0x1f
00a5 4805       |H   |		Short_Literal	0x5
00a6 e211       |    |		Load	0x1,0x11
00a7 e215       |    |		Load	0x1,0x15
00a8 e216       |    |		Load	0x1,0x16
00a9 e217       |    |		Load	0x1,0x17
00aa e21f       |    |		Load	0x1,0x1f
00ab 4802       |H   |		Short_Literal	0x2
00ac e21f       |    |		Load	0x1,0x1f
00ad e001       |    |		Load	0x0,0x1
00ae 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00af 4801       |H   |		Short_Literal	0x1
00b0 e21f       |    |		Load	0x1,0x1f
00b1 4802       |H   |		Short_Literal	0x2
00b2 e211       |    |		Load	0x1,0x11
00b3 e21f       |    |		Load	0x1,0x1f
00b4 4801       |H   |		Short_Literal	0x1
00b5 e219       |    |		Load	0x1,0x19
00b6 4802       |H   |		Short_Literal	0x2
00b7 e211       |    |		Load	0x1,0x11
00b8 e219       |    |		Load	0x1,0x19
00b9 4801       |H   |		Short_Literal	0x1
00ba e21a       |    |		Load	0x1,0x1a
00bb 4801       |H   |		Short_Literal	0x1
00bc e21b       |    |		Load	0x1,0x1b
00bd 4801       |H   |		Short_Literal	0x1
00be e21f       |    |		Load	0x1,0x1f
00bf 4801       |H   |		Short_Literal	0x1
00c0 00e2       |    |		Load_Encached	Integer_Cache
00c1 029f 026b  |   k|		Declare_Subprogram	INIT_0268,For_Call
00c3 4822       |H"  |		Short_Literal	0x22
00c4 4800       |H   |		Short_Literal	0x0
00c5 4812       |H   |		Short_Literal	0x12
00c6 4800       |H   |		Short_Literal	0x0
00c7 4801       |H   |		Short_Literal	0x1
00c8 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
00c9 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x14 = 0xc9,0xffeb
00ca 00a2 0358  |   X|		Action	Push_Discrete_Extended
00cc 00e2       |    |		Load_Encached	Integer_Cache
00cd 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00ce 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x15 = 0xce,0xffea
00cf 4801       |H   |		Short_Literal	0x1
00d0 029f 0363  |   c|		Declare_Subprogram	INIT_0360,For_Call
00d2 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00d3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x16 = 0xd3,0xffe9
00d4 4801       |H   |		Short_Literal	0x1
00d5 00db       |    |		Load_Top	At_Offset_3
00d6 4802       |H   |		Short_Literal	0x2
00d7 e221       | !  |		Load	0x1,0x21
00d8 e221       | !  |		Load	0x1,0x21
00d9 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
00db 4803       |H   |		Short_Literal	0x3
00dc 4800       |H   |		Short_Literal	0x0
00dd 4802       |H   |		Short_Literal	0x2
00de 4800       |H   |		Short_Literal	0x0
00df 4801       |H   |		Short_Literal	0x1
00e0 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
00e1 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x17 = 0xe1,0xffe8
00e2 480f       |H   |		Short_Literal	0xf
00e3 029f 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Call
00e5 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00e6 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x18 = 0xe6,0xffe7
00e7 4800       |H   |		Short_Literal	0x0
00e8 029f 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Call
00ea 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00eb 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x19 = 0xeb,0xffe6
00ec 4801       |H   |		Short_Literal	0x1
00ed 029f 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Call
00ef 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00f0 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x1a = 0xf0,0xffe5
00f1 4808       |H   |		Short_Literal	0x8
00f2 00e9       |    |		Load_Encached	String_Cache
00f3 035c       | \  |		Declare_Type	Array,Constrained,Visible
00f4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x0.0x1b = 0xf4,0xffe4
00f5 00e1       |    |		Load_Encached	Boolean_Cache
00f6 00db       |    |		Load_Top	At_Offset_3
00f7 00db       |    |		Load_Top	At_Offset_3
00f8 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f9 4804       |H   |		Short_Literal	0x4
00fa 032e       | .  |		Declare_Type	Record,Defined,Visible
00fb e223       | #  |		Load	0x1,0x23							; Debug Table 0x0.0x1c = 0xfb,0xffe3
00fc 00d9       |    |		Load_Top	At_Offset_1
00fd 029f 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Call
00ff 4802       |H   |		Short_Literal	0x2
0100 032e       | .  |		Declare_Type	Record,Defined,Visible
0101 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1d = 0x101,0xffe2
0102 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1e = 0x102,0xffe1
0103 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1f = 0x103,0xffe0
0104 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x20 = 0x104,0xffdf
0105 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x21 = 0x105,0xffde
0106			BODY_0008:
0106 00bc       |    |		Action	Signal_Activated
0107 00bb       |    |		Action	Signal_Completion
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4603       |F   |		Jump_Case	0x4							; Debug Table 0x1 = .DEBUG	0x010b,0x07a8,0x0005,0x0000,0x0053,0x9265,0x0000,0x0008
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
010d 7802       |x   |		Jump	0x110								; case 0x1
010e 7805       |x   |		Jump	0x114								; case 0x2
010f 7809       |x   |		Jump	0x119								; case 0x3
0110 00da       |    |		Load_Top	At_Offset_2
0111 0091 0409  |    |		Action	Push_String_Extended_Indexed,0x409				; "DECLARE_TYPE"
0113 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0114 00db       |    |		Load_Top	At_Offset_3
0115 00db       |    |		Load_Top	At_Offset_3
0116 00e0       |    |		Load_Encached	Standard_Cache
0117 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0118 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0119 00da       |    |		Load_Top	At_Offset_2
011a 00e0       |    |		Load_Encached	Standard_Cache
011b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
011c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x0123,0x07aa,0x0005,0x0000,0x0053,0x9265,0x0000,0x0070
0124 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0125 7802       |x   |		Jump	0x128								; case 0x1
0126 7805       |x   |		Jump	0x12c								; case 0x2
0127 7809       |x   |		Jump	0x131								; case 0x3
0128 00da       |    |		Load_Top	At_Offset_2
0129 0091 0428  |   (|		Action	Push_String_Extended_Indexed,0x428				; "AT_OFFSET_6"
012b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
012c 00db       |    |		Load_Top	At_Offset_3
012d 00db       |    |		Load_Top	At_Offset_3
012e 00e0       |    |		Load_Encached	Standard_Cache
012f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0130 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0131 00da       |    |		Load_Top	At_Offset_2
0132 00e0       |    |		Load_Encached	Standard_Cache
0133 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0134 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 4603       |F   |		Jump_Case	0x4							; Debug Table 0x3 = .DEBUG	0x013b,0x07ac,0x0005,0x0000,0x0053,0x9265,0x0000,0x007b
013c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
013d 7802       |x   |		Jump	0x140								; case 0x1
013e 7805       |x   |		Jump	0x144								; case 0x2
013f 7809       |x   |		Jump	0x149								; case 0x3
0140 00da       |    |		Load_Top	At_Offset_2
0141 0091 042f  |   /|		Action	Push_String_Extended_Indexed,0x42f				; "VALUE_00"
0143 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0144 00db       |    |		Load_Top	At_Offset_3
0145 00db       |    |		Load_Top	At_Offset_3
0146 00e0       |    |		Load_Encached	Standard_Cache
0147 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0148 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0149 00da       |    |		Load_Top	At_Offset_2
014a 00e0       |    |		Load_Encached	Standard_Cache
014b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
014c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 4603       |F   |		Jump_Case	0x4							; Debug Table 0x4 = .DEBUG	0x0153,0x07ae,0x0005,0x0000,0x0053,0x9265,0x0000,0x009f
0154 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0155 7802       |x   |		Jump	0x158								; case 0x1
0156 7805       |x   |		Jump	0x15c								; case 0x2
0157 7809       |x   |		Jump	0x161								; case 0x3
0158 00da       |    |		Load_Top	At_Offset_2
0159 0091 044f  |   O|		Action	Push_String_Extended_Indexed,0x44f				; "POP_COUNT_1"
015b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
015c 00db       |    |		Load_Top	At_Offset_3
015d 00db       |    |		Load_Top	At_Offset_3
015e 00e0       |    |		Load_Encached	Standard_Cache
015f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0160 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0161 00da       |    |		Load_Top	At_Offset_2
0162 00e0       |    |		Load_Encached	Standard_Cache
0163 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0164 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0165 0000 0000  |    |		.XXX[0x3]
0167 0000       |    |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 4603       |F   |		Jump_Case	0x4							; Debug Table 0x5 = .DEBUG	0x016b,0x07b0,0x0005,0x0000,0x0053,0x9265,0x0000,0x00aa
016c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
016d 7802       |x   |		Jump	0x170								; case 0x1
016e 7805       |x   |		Jump	0x174								; case 0x2
016f 7809       |x   |		Jump	0x179								; case 0x3
0170 00da       |    |		Load_Top	At_Offset_2
0171 0091 0456  |   V|		Action	Push_String_Extended_Indexed,0x456				; "LEX_LEVEL_DELTA"
0173 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0174 00db       |    |		Load_Top	At_Offset_3
0175 00db       |    |		Load_Top	At_Offset_3
0176 00e0       |    |		Load_Encached	Standard_Cache
0177 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0178 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0179 00da       |    |		Load_Top	At_Offset_2
017a 00e0       |    |		Load_Encached	Standard_Cache
017b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
017c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
017d 0000 0000  |    |		.XXX[0x3]
017f 0000       |    |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 4608       |F   |		Jump_Case	0x9							; Debug Table 0x6 = .DEBUG	0x0183,0x07b2,0x0005,0x0000,0x0053,0x9265,0x0000,0x00d3
0184 7808       |x   |		Jump	0x18d								; case 0x0
0185 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0186 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0187 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0188 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0189 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
018a 7824       |x$  |		Jump	0x1af								; case 0x6
018b 784c       |xL  |		Jump	0x1d8								; case 0x7
018c 7877       |xw  |		Jump	0x204								; case 0x8
018d 00da       |    |		Load_Top	At_Offset_2
018e 016c       | l  |		Execute	Variant_Record,Is_Constrained
018f 7009       |p   |		Jump_Nonzero	0x199
0190 00cf       |    |		Action	Mark_Auxiliary
0191 480c       |H   |		Short_Literal	0xc
0192 e5ff       |    |		Load	0x2,-0x1
0193 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0194 00d8       |    |		Load_Top	At_Offset_0
0195 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0196 c5ff       |    |		Store	0x2,-0x1
0197 00ce       |    |		Action	Pop_Auxiliary
0198 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0199 00da       |    |		Load_Top	At_Offset_2
019a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
019b 460e       |F   |		Jump_Case	0xf
019c 780e       |x   |		Jump	0x1ab								; case 0x0
019d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
019e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
019f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
01a1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
01a2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
01a3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
01a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
01a5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x9
01a6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xa
01a7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xb
01a8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xc
01a9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xd
01aa 7800       |x   |		Jump	0x1ab								; case 0xe
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01ad 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ae 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01af 00db       |    |		Load_Top	At_Offset_3
01b0 460e       |F   |		Jump_Case	0xf
01b1 780e       |x   |		Jump	0x1c0								; case 0x0
01b2 780f       |x   |		Jump	0x1c2								; case 0x1
01b3 7810       |x   |		Jump	0x1c4								; case 0x2
01b4 7811       |x   |		Jump	0x1c6								; case 0x3
01b5 7812       |x   |		Jump	0x1c8								; case 0x4
01b6 7813       |x   |		Jump	0x1ca								; case 0x5
01b7 7814       |x   |		Jump	0x1cc								; case 0x6
01b8 7817       |x   |		Jump	0x1d0								; case 0x7
01b9 7818       |x   |		Jump	0x1d2								; case 0x8
01ba 7813       |x   |		Jump	0x1ce								; case 0x9
01bb 7814       |x   |		Jump	0x1d0								; case 0xa
01bc 7815       |x   |		Jump	0x1d2								; case 0xb
01bd 7816       |x   |		Jump	0x1d4								; case 0xc
01be 7817       |x   |		Jump	0x1d6								; case 0xd
01bf 7800       |x   |		Jump	0x1c0								; case 0xe
01c0 4801       |H   |		Short_Literal	0x1
01c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c2 4802       |H   |		Short_Literal	0x2
01c3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c4 4803       |H   |		Short_Literal	0x3
01c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c6 4804       |H   |		Short_Literal	0x4
01c7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c8 4805       |H   |		Short_Literal	0x5
01c9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ca 4806       |H   |		Short_Literal	0x6
01cb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01cc 4807       |H   |		Short_Literal	0x7
01cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ce 4808       |H   |		Short_Literal	0x8
01cf 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d0 4809       |H   |		Short_Literal	0x9
01d1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d2 480a       |H   |		Short_Literal	0xa
01d3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d4 480b       |H   |		Short_Literal	0xb
01d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d6 480c       |H   |		Short_Literal	0xc
01d7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d8 00db       |    |		Load_Top	At_Offset_3
01d9 e5fe       |    |		Load	0x2,-0x2
01da 460e       |F   |		Jump_Case	0xf
01db 780e       |x   |		Jump	0x1ea								; case 0x0
01dc 780f       |x   |		Jump	0x1ec								; case 0x1
01dd 7810       |x   |		Jump	0x1ee								; case 0x2
01de 7811       |x   |		Jump	0x1f0								; case 0x3
01df 7812       |x   |		Jump	0x1f2								; case 0x4
01e0 7813       |x   |		Jump	0x1f4								; case 0x5
01e1 7814       |x   |		Jump	0x1f6								; case 0x6
01e2 7817       |x   |		Jump	0x1fa								; case 0x7
01e3 7818       |x   |		Jump	0x1fc								; case 0x8
01e4 7813       |x   |		Jump	0x1f8								; case 0x9
01e5 7814       |x   |		Jump	0x1fa								; case 0xa
01e6 7815       |x   |		Jump	0x1fc								; case 0xb
01e7 7816       |x   |		Jump	0x1fe								; case 0xc
01e8 7817       |x   |		Jump	0x200								; case 0xd
01e9 7800       |x   |		Jump	0x1ea								; case 0xe
01ea 4801       |H   |		Short_Literal	0x1
01eb 7815       |x   |		Jump	0x201
01ec 4802       |H   |		Short_Literal	0x2
01ed 7813       |x   |		Jump	0x201
01ee 4803       |H   |		Short_Literal	0x3
01ef 7811       |x   |		Jump	0x201
01f0 4804       |H   |		Short_Literal	0x4
01f1 780f       |x   |		Jump	0x201
01f2 4805       |H   |		Short_Literal	0x5
01f3 780d       |x   |		Jump	0x201
01f4 4806       |H   |		Short_Literal	0x6
01f5 780b       |x   |		Jump	0x201
01f6 4807       |H   |		Short_Literal	0x7
01f7 7809       |x   |		Jump	0x201
01f8 4808       |H   |		Short_Literal	0x8
01f9 7807       |x   |		Jump	0x201
01fa 4809       |H   |		Short_Literal	0x9
01fb 7805       |x   |		Jump	0x201
01fc 480a       |H   |		Short_Literal	0xa
01fd 7803       |x   |		Jump	0x201
01fe 480b       |H   |		Short_Literal	0xb
01ff 7801       |x   |		Jump	0x201
0200 480c       |H   |		Short_Literal	0xc
0201 e5ff       |    |		Load	0x2,-0x1
0202 031b       |    |		Declare_Type	Variant_Record,Constrained
0203 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0204 00db       |    |		Load_Top	At_Offset_3
0205 e5fe       |    |		Load	0x2,-0x2
0206 e5ff       |    |		Load	0x2,-0x1
0207 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0208 e5ff       |    |		Load	0x2,-0x1
0209 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
020a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020b 0000 0000  |    |		.BLANK	0000[0x5]
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 4608       |F   |		Jump_Case	0x9							; Debug Table 0x7 = .DEBUG	0x0213,0x07b4,0x0005,0x0000,0x0053,0x9265,0x0000,0x0166
0214 7808       |x   |		Jump	0x21d								; case 0x0
0215 781f       |x   |		Jump	0x235								; case 0x1
0216 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0217 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0218 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0219 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
021a 7822       |x"  |		Jump	0x23d								; case 0x6
021b 7829       |x)  |		Jump	0x245								; case 0x7
021c 7839       |x9  |		Jump	0x256								; case 0x8
021d 00da       |    |		Load_Top	At_Offset_2
021e 016c       | l  |		Execute	Variant_Record,Is_Constrained
021f 700a       |p   |		Jump_Nonzero	0x22a
0220 00cf       |    |		Action	Mark_Auxiliary
0221 480c       |H   |		Short_Literal	0xc
0222 4800       |H   |		Short_Literal	0x0
0223 e5ff       |    |		Load	0x2,-0x1
0224 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0225 00d8       |    |		Load_Top	At_Offset_0
0226 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0227 c5ff       |    |		Store	0x2,-0x1
0228 00ce       |    |		Action	Pop_Auxiliary
0229 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
022a 00da       |    |		Load_Top	At_Offset_2
022b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
022c 4601       |F   |		Jump_Case	0x2
022d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
022e 7800       |x   |		Jump	0x22f								; case 0x1
022f 00da       |    |		Load_Top	At_Offset_2
0230 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
0231 00da       |    |		Load_Top	At_Offset_2
0232 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0233 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0234 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0235 00da       |    |		Load_Top	At_Offset_2
0236 016b       | k  |		Execute	Variant_Record,Read_Variant
0237 00d8       |    |		Load_Top	At_Offset_0
0238 0f01       |    |		Execute_Immediate	Equal,0x1
0239 6802       |h   |		Jump_Zero	0x23c
023a 00db       |    |		Load_Top	At_Offset_3
023b 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
023c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
023d 00db       |    |		Load_Top	At_Offset_3
023e 4601       |F   |		Jump_Case	0x2
023f 7803       |x   |		Jump	0x243								; case 0x0
0240 7800       |x   |		Jump	0x241								; case 0x1
0241 4801       |H   |		Short_Literal	0x1
0242 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0243 48ff       |H   |		Short_Literal	0xff
0244 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0245 e5fd       |    |		Load	0x2,-0x3
0246 e5fe       |    |		Load	0x2,-0x2
0247 e5fe       |    |		Load	0x2,-0x2
0248 4601       |F   |		Jump_Case	0x2
0249 7807       |x   |		Jump	0x251								; case 0x0
024a 7800       |x   |		Jump	0x24b								; case 0x1
024b e5fd       |    |		Load	0x2,-0x3
024c e21e       |    |		Load	0x1,0x1e
024d 1c07       |    |		Execute_Immediate	Run_Utility,0x7
024e 4801       |H   |		Short_Literal	0x1
024f 4801       |H   |		Short_Literal	0x1
0250 7802       |x   |		Jump	0x253
0251 4800       |H   |		Short_Literal	0x0
0252 48ff       |H   |		Short_Literal	0xff
0253 e5ff       |    |		Load	0x2,-0x1
0254 031b       |    |		Declare_Type	Variant_Record,Constrained
0255 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0256 e5fd       |    |		Load	0x2,-0x3
0257 e5fe       |    |		Load	0x2,-0x2
0258 e5fd       |    |		Load	0x2,-0x3
0259 e5fe       |    |		Load	0x2,-0x2
025a e5ff       |    |		Load	0x2,-0x1
025b 1c06       |    |		Execute_Immediate	Run_Utility,0x6
025c e5ff       |    |		Load	0x2,-0x1
025d 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
025e e5fe       |    |		Load	0x2,-0x2
025f 4601       |F   |		Jump_Case	0x2
0260 7805       |x   |		Jump	0x266								; case 0x0
0261 7800       |x   |		Jump	0x262								; case 0x1
0262 e5fd       |    |		Load	0x2,-0x3
0263 e21e       |    |		Load	0x1,0x1e
0264 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0265 2f03       |/   |		Execute	Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x3
0266 016a       | j  |		QQ_execute	Variant_Record,XXX
0267 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 4608       |F   |		Jump_Case	0x9							; Debug Table 0x8 = .DEBUG	0x026b,0x07b6,0x0005,0x0000,0x0053,0x9265,0x0000,0x0187
026c 7808       |x   |		Jump	0x275								; case 0x0
026d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
026e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
026f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0270 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0271 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0272 784c       |xL  |		Jump	0x2bf								; case 0x6
0273 7892       |x   |		Jump	0x306								; case 0x7
0274 78db       |x   |		Jump	0x350								; case 0x8
0275 00da       |    |		Load_Top	At_Offset_2
0276 016c       | l  |		Execute	Variant_Record,Is_Constrained
0277 7009       |p   |		Jump_Nonzero	0x281
0278 00cf       |    |		Action	Mark_Auxiliary
0279 481d       |H   |		Short_Literal	0x1d
027a e5ff       |    |		Load	0x2,-0x1
027b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
027c 00d8       |    |		Load_Top	At_Offset_0
027d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
027e c5ff       |    |		Store	0x2,-0x1
027f 00ce       |    |		Action	Pop_Auxiliary
0280 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0281 00da       |    |		Load_Top	At_Offset_2
0282 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0283 461e       |F   |		Jump_Case	0x1f
0284 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0285 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0286 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0287 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0288 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0289 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
028a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
028b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
028c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
028d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x9
028e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xa
028f 7817       |x   |		Jump	0x2a7								; case 0xb
0290 781a       |x   |		Jump	0x2ab								; case 0xc
0291 7811       |x   |		Jump	0x2a3								; case 0xd
0292 7824       |x$  |		Jump	0x2b7								; case 0xe
0293 781b       |x   |		Jump	0x2af								; case 0xf
0294 781e       |x   |		Jump	0x2b3								; case 0x10
0295 7825       |x%  |		Jump	0x2bb								; case 0x11
0296 7824       |x$  |		Jump	0x2bb								; case 0x12
0297 7823       |x#  |		Jump	0x2bb								; case 0x13
0298 7822       |x"  |		Jump	0x2bb								; case 0x14
0299 7821       |x!  |		Jump	0x2bb								; case 0x15
029a 7820       |x   |		Jump	0x2bb								; case 0x16
029b 781f       |x   |		Jump	0x2bb								; case 0x17
029c 781e       |x   |		Jump	0x2bb								; case 0x18
029d 781d       |x   |		Jump	0x2bb								; case 0x19
029e 781c       |x   |		Jump	0x2bb								; case 0x1a
029f 781b       |x   |		Jump	0x2bb								; case 0x1b
02a0 781a       |x   |		Jump	0x2bb								; case 0x1c
02a1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1d
02a2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1e
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 260f       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
02a5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02a7 00da       |    |		Load_Top	At_Offset_2
02a8 2612       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
02a9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02aa 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02ad 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ae 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02af 00da       |    |		Load_Top	At_Offset_2
02b0 2618       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x18
02b1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 261a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1a
02b5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02b7 00da       |    |		Load_Top	At_Offset_2
02b8 261c       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1c
02b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ba 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 2622       |&"  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x22
02bd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02be 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02bf 00db       |    |		Load_Top	At_Offset_3
02c0 461e       |F   |		Jump_Case	0x1f
02c1 781e       |x   |		Jump	0x2e0								; case 0x0
02c2 7821       |x!  |		Jump	0x2e4								; case 0x1
02c3 7822       |x"  |		Jump	0x2e6								; case 0x2
02c4 781d       |x   |		Jump	0x2e2								; case 0x3
02c5 7824       |x$  |		Jump	0x2ea								; case 0x4
02c6 7821       |x!  |		Jump	0x2e8								; case 0x5
02c7 7830       |x0  |		Jump	0x2f8								; case 0x6
02c8 7831       |x1  |		Jump	0x2fa								; case 0x7
02c9 7830       |x0  |		Jump	0x2fa								; case 0x8
02ca 7831       |x1  |		Jump	0x2fc								; case 0x9
02cb 7832       |x2  |		Jump	0x2fe								; case 0xa
02cc 7821       |x!  |		Jump	0x2ee								; case 0xb
02cd 7822       |x"  |		Jump	0x2f0								; case 0xc
02ce 781d       |x   |		Jump	0x2ec								; case 0xd
02cf 7826       |x&  |		Jump	0x2f6								; case 0xe
02d0 7821       |x!  |		Jump	0x2f2								; case 0xf
02d1 7822       |x"  |		Jump	0x2f4								; case 0x10
02d2 782d       |x-  |		Jump	0x300								; case 0x11
02d3 782c       |x,  |		Jump	0x300								; case 0x12
02d4 782b       |x+  |		Jump	0x300								; case 0x13
02d5 782a       |x*  |		Jump	0x300								; case 0x14
02d6 7829       |x)  |		Jump	0x300								; case 0x15
02d7 7828       |x(  |		Jump	0x300								; case 0x16
02d8 7827       |x'  |		Jump	0x300								; case 0x17
02d9 7826       |x&  |		Jump	0x300								; case 0x18
02da 7825       |x%  |		Jump	0x300								; case 0x19
02db 7824       |x$  |		Jump	0x300								; case 0x1a
02dc 7823       |x#  |		Jump	0x300								; case 0x1b
02dd 7822       |x"  |		Jump	0x300								; case 0x1c
02de 7825       |x%  |		Jump	0x304								; case 0x1d
02df 7822       |x"  |		Jump	0x302								; case 0x1e
02e0 4801       |H   |		Short_Literal	0x1
02e1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e2 4802       |H   |		Short_Literal	0x2
02e3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e4 4803       |H   |		Short_Literal	0x3
02e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e6 4804       |H   |		Short_Literal	0x4
02e7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e8 4805       |H   |		Short_Literal	0x5
02e9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ea 4806       |H   |		Short_Literal	0x6
02eb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ec 4807       |H   |		Short_Literal	0x7
02ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ee 4808       |H   |		Short_Literal	0x8
02ef 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f0 4809       |H   |		Short_Literal	0x9
02f1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f2 480a       |H   |		Short_Literal	0xa
02f3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f4 480b       |H   |		Short_Literal	0xb
02f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f6 480c       |H   |		Short_Literal	0xc
02f7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f8 480d       |H   |		Short_Literal	0xd
02f9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02fa 480e       |H   |		Short_Literal	0xe
02fb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02fc 480f       |H   |		Short_Literal	0xf
02fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02fe 4810       |H   |		Short_Literal	0x10
02ff 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0300 4811       |H   |		Short_Literal	0x11
0301 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0302 4812       |H   |		Short_Literal	0x12
0303 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0304 48ff       |H   |		Short_Literal	0xff
0305 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0306 00db       |    |		Load_Top	At_Offset_3
0307 e5fe       |    |		Load	0x2,-0x2
0308 461e       |F   |		Jump_Case	0x1f
0309 781e       |x   |		Jump	0x328								; case 0x0
030a 7821       |x!  |		Jump	0x32c								; case 0x1
030b 7822       |x"  |		Jump	0x32e								; case 0x2
030c 781d       |x   |		Jump	0x32a								; case 0x3
030d 7824       |x$  |		Jump	0x332								; case 0x4
030e 7821       |x!  |		Jump	0x330								; case 0x5
030f 7830       |x0  |		Jump	0x340								; case 0x6
0310 7831       |x1  |		Jump	0x342								; case 0x7
0311 7830       |x0  |		Jump	0x342								; case 0x8
0312 7831       |x1  |		Jump	0x344								; case 0x9
0313 7832       |x2  |		Jump	0x346								; case 0xa
0314 7821       |x!  |		Jump	0x336								; case 0xb
0315 7822       |x"  |		Jump	0x338								; case 0xc
0316 781d       |x   |		Jump	0x334								; case 0xd
0317 7826       |x&  |		Jump	0x33e								; case 0xe
0318 7821       |x!  |		Jump	0x33a								; case 0xf
0319 7822       |x"  |		Jump	0x33c								; case 0x10
031a 782d       |x-  |		Jump	0x348								; case 0x11
031b 782c       |x,  |		Jump	0x348								; case 0x12
031c 782b       |x+  |		Jump	0x348								; case 0x13
031d 782a       |x*  |		Jump	0x348								; case 0x14
031e 7829       |x)  |		Jump	0x348								; case 0x15
031f 7828       |x(  |		Jump	0x348								; case 0x16
0320 7827       |x'  |		Jump	0x348								; case 0x17
0321 7826       |x&  |		Jump	0x348								; case 0x18
0322 7825       |x%  |		Jump	0x348								; case 0x19
0323 7824       |x$  |		Jump	0x348								; case 0x1a
0324 7823       |x#  |		Jump	0x348								; case 0x1b
0325 7822       |x"  |		Jump	0x348								; case 0x1c
0326 7825       |x%  |		Jump	0x34c								; case 0x1d
0327 7822       |x"  |		Jump	0x34a								; case 0x1e
0328 4801       |H   |		Short_Literal	0x1
0329 7823       |x#  |		Jump	0x34d
032a 4802       |H   |		Short_Literal	0x2
032b 7821       |x!  |		Jump	0x34d
032c 4803       |H   |		Short_Literal	0x3
032d 781f       |x   |		Jump	0x34d
032e 4804       |H   |		Short_Literal	0x4
032f 781d       |x   |		Jump	0x34d
0330 4805       |H   |		Short_Literal	0x5
0331 781b       |x   |		Jump	0x34d
0332 4806       |H   |		Short_Literal	0x6
0333 7819       |x   |		Jump	0x34d
0334 4807       |H   |		Short_Literal	0x7
0335 7817       |x   |		Jump	0x34d
0336 4808       |H   |		Short_Literal	0x8
0337 7815       |x   |		Jump	0x34d
0338 4809       |H   |		Short_Literal	0x9
0339 7813       |x   |		Jump	0x34d
033a 480a       |H   |		Short_Literal	0xa
033b 7811       |x   |		Jump	0x34d
033c 480b       |H   |		Short_Literal	0xb
033d 780f       |x   |		Jump	0x34d
033e 480c       |H   |		Short_Literal	0xc
033f 780d       |x   |		Jump	0x34d
0340 480d       |H   |		Short_Literal	0xd
0341 780b       |x   |		Jump	0x34d
0342 480e       |H   |		Short_Literal	0xe
0343 7809       |x   |		Jump	0x34d
0344 480f       |H   |		Short_Literal	0xf
0345 7807       |x   |		Jump	0x34d
0346 4810       |H   |		Short_Literal	0x10
0347 7805       |x   |		Jump	0x34d
0348 4811       |H   |		Short_Literal	0x11
0349 7803       |x   |		Jump	0x34d
034a 4812       |H   |		Short_Literal	0x12
034b 7801       |x   |		Jump	0x34d
034c 48ff       |H   |		Short_Literal	0xff
034d e5ff       |    |		Load	0x2,-0x1
034e 031b       |    |		Declare_Type	Variant_Record,Constrained
034f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0350 00db       |    |		Load_Top	At_Offset_3
0351 e5fe       |    |		Load	0x2,-0x2
0352 e5ff       |    |		Load	0x2,-0x1
0353 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0354 e5ff       |    |		Load	0x2,-0x1
0355 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0356 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0357 0000 0000  |    |		.BLANK	0000[0x4]
035b ffff       |    |		.XXX[0x1]
035c 0000 0000  |    |		.BLANK	0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 4603       |F   |		Jump_Case	0x4							; Debug Table 0x9 = .DEBUG	0x0363,0x07b8,0x0005,0x0000,0x0053,0x9265,0x0000,0x02a2
0364 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0365 7802       |x   |		Jump	0x368								; case 0x1
0366 7805       |x   |		Jump	0x36c								; case 0x2
0367 7809       |x   |		Jump	0x371								; case 0x3
0368 00da       |    |		Load_Top	At_Offset_2
0369 0091 0465  |   e|		Action	Push_String_Extended_Indexed,0x465				; "IS_VALUE"
036b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
036c 00db       |    |		Load_Top	At_Offset_3
036d 00db       |    |		Load_Top	At_Offset_3
036e 00e0       |    |		Load_Encached	Standard_Cache
036f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0370 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0371 00da       |    |		Load_Top	At_Offset_2
0372 00e0       |    |		Load_Encached	Standard_Cache
0373 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0374 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0375 0000 0000  |    |		.XXX[0x3]
0377 0000       |    |
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 4608       |F   |		Jump_Case	0x9							; Debug Table 0xa = .DEBUG	0x037b,0x07ba,0x0005,0x0000,0x0053,0x9265,0x0000,0x02a8
037c 7808       |x   |		Jump	0x385								; case 0x0
037d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
037e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
037f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0380 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0381 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0382 7813       |x   |		Jump	0x396								; case 0x6
0383 781a       |x   |		Jump	0x39e								; case 0x7
0384 7824       |x$  |		Jump	0x3a9								; case 0x8
0385 00da       |    |		Load_Top	At_Offset_2
0386 016c       | l  |		Execute	Variant_Record,Is_Constrained
0387 7009       |p   |		Jump_Nonzero	0x391
0388 00cf       |    |		Action	Mark_Auxiliary
0389 4800       |H   |		Short_Literal	0x0
038a e5ff       |    |		Load	0x2,-0x1
038b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
038c 00d8       |    |		Load_Top	At_Offset_0
038d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
038e c5ff       |    |		Store	0x2,-0x1
038f 00ce       |    |		Action	Pop_Auxiliary
0390 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0391 00da       |    |		Load_Top	At_Offset_2
0392 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0393 4601       |F   |		Jump_Case	0x2
0394 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0395 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0396 00db       |    |		Load_Top	At_Offset_3
0397 4601       |F   |		Jump_Case	0x2
0398 7801       |x   |		Jump	0x39a								; case 0x0
0399 7802       |x   |		Jump	0x39c								; case 0x1
039a 4801       |H   |		Short_Literal	0x1
039b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
039c 4802       |H   |		Short_Literal	0x2
039d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
039e 00db       |    |		Load_Top	At_Offset_3
039f e5fe       |    |		Load	0x2,-0x2
03a0 4601       |F   |		Jump_Case	0x2
03a1 7801       |x   |		Jump	0x3a3								; case 0x0
03a2 7802       |x   |		Jump	0x3a5								; case 0x1
03a3 4801       |H   |		Short_Literal	0x1
03a4 7801       |x   |		Jump	0x3a6
03a5 4802       |H   |		Short_Literal	0x2
03a6 e5ff       |    |		Load	0x2,-0x1
03a7 031b       |    |		Declare_Type	Variant_Record,Constrained
03a8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03a9 00db       |    |		Load_Top	At_Offset_3
03aa e5fe       |    |		Load	0x2,-0x2
03ab e5ff       |    |		Load	0x2,-0x1
03ac 1c06       |    |		Execute_Immediate	Run_Utility,0x6
03ad e5ff       |    |		Load	0x2,-0x1
03ae 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
03af 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 4603       |F   |		Jump_Case	0x4							; Debug Table 0xb = .DEBUG	0x03b3,0x07bc,0x0005,0x0000,0x0053,0x9265,0x0000,0x02cb
03b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03b5 7802       |x   |		Jump	0x3b8								; case 0x1
03b6 7805       |x   |		Jump	0x3bc								; case 0x2
03b7 7809       |x   |		Jump	0x3c1								; case 0x3
03b8 00da       |    |		Load_Top	At_Offset_2
03b9 0091 0467  |   g|		Action	Push_String_Extended_Indexed,0x467				; "NO_GROUP"
03bb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03bc 00db       |    |		Load_Top	At_Offset_3
03bd 00db       |    |		Load_Top	At_Offset_3
03be 00e0       |    |		Load_Encached	Standard_Cache
03bf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03c0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03c1 00da       |    |		Load_Top	At_Offset_2
03c2 00e0       |    |		Load_Encached	Standard_Cache
03c3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03c4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03c5 0000 0000  |    |		.XXX[0x3]
03c7 0000       |    |
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 4603       |F   |		Jump_Case	0x4							; Debug Table 0xc = .DEBUG	0x03cb,0x07be,0x0005,0x0000,0x0053,0x9265,0x0000,0x02df
03cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03cd 7802       |x   |		Jump	0x3d0								; case 0x1
03ce 7805       |x   |		Jump	0x3d4								; case 0x2
03cf 7809       |x   |		Jump	0x3d9								; case 0x3
03d0 00da       |    |		Load_Top	At_Offset_2
03d1 0091 0477  |   w|		Action	Push_String_Extended_Indexed,0x477				; "INHIBIT_IBUFF_FILL"
03d3 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03d4 00db       |    |		Load_Top	At_Offset_3
03d5 00db       |    |		Load_Top	At_Offset_3
03d6 00e0       |    |		Load_Encached	Standard_Cache
03d7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03d8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03d9 00da       |    |		Load_Top	At_Offset_2
03da 00e0       |    |		Load_Encached	Standard_Cache
03db 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03dc 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03dd 0000 0000  |    |		.XXX[0x3]
03df 0000       |    |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 4603       |F   |		Jump_Case	0x4							; Debug Table 0xd = .DEBUG	0x03e3,0x07c0,0x0005,0x0000,0x0053,0x9265,0x0000,0x02e4
03e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03e5 7802       |x   |		Jump	0x3e8								; case 0x1
03e6 7805       |x   |		Jump	0x3ec								; case 0x2
03e7 7809       |x   |		Jump	0x3f1								; case 0x3
03e8 00da       |    |		Load_Top	At_Offset_2
03e9 0091 0478  |   x|		Action	Push_String_Extended_Indexed,0x478				; "UNIMPLEMENTED"
03eb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03ec 00db       |    |		Load_Top	At_Offset_3
03ed 00db       |    |		Load_Top	At_Offset_3
03ee 00e0       |    |		Load_Encached	Standard_Cache
03ef 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03f0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03f1 00da       |    |		Load_Top	At_Offset_2
03f2 00e0       |    |		Load_Encached	Standard_Cache
03f3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03f4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03f5 0000 0000  |    |		.XXX[0x3]
03f7 0000       |    |
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 4608       |F   |		Jump_Case	0x9							; Debug Table 0xe = .DEBUG	0x03fb,0x07c2,0x0005,0x0000,0x0053,0x9265,0x0000,0x030a
03fc 7808       |x   |		Jump	0x405								; case 0x0
03fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
03fe 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
03ff 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0400 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0401 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0402 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0403 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0404 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0405 00da       |    |		Load_Top	At_Offset_2
0406 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0407 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0408 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0409 ; --------------------------------------------------------------------------------------
0409 ; STRING TABLE
0409 ; --------------------------------------------------------------------------------------
0409 00e4       |    |		.STRTAB	0x00e4->0x047b							; "DECLARE_TYPE"
040a 00ee       |    |		.STRTAB	0x00ee->0x0481							; "DECLARE_VARIABLE"
040b 00fc       |    |		.STRTAB	0x00fc->0x0489							; "DECLARE_SUBPROGRAM"
040c 010c       |    |		.STRTAB	0x010c->0x0492							; "COMPLETE_TYPE"
040d 0117       |    |		.STRTAB	0x0117->0x0498							; "EXECUTE"
040e 011c       |    |		.STRTAB	0x011c->0x049c							; "ACTION"
040f 0120       |    |		.STRTAB	0x0120->0x049f							; "LOAD_TOP"
0410 0126       | &  |		.STRTAB	0x0126->0x04a3							; "STORE_TOP"
0411 012d       | -  |		.STRTAB	0x012d->0x04a7							; "STORE_TOP_UNCHECKED"
0412 013e       | >  |		.STRTAB	0x013e->0x04b1							; "LOAD_ENCACHED"
0413 0149       | I  |		.STRTAB	0x0149->0x04b7							; "POP_CONTROL"
0414 0152       | R  |		.STRTAB	0x0152->0x04bd							; "EXECUTE_FIELD"
0415 015d       | ]  |		.STRTAB	0x015d->0x04c3							; "EXECUTE_VR_FIELD"
0416 016b       | k  |		.STRTAB	0x016b->0x04cb							; "EXECUTE_IMMEDIATE"
0417 017a       | z  |		.STRTAB	0x017a->0x04d4							; "INDIRECT_LITERAL"
0418 0188       |    |		.STRTAB	0x0188->0x04dc							; "EXIT_SUBPROGRAM"
0419 0195       |    |		.STRTAB	0x0195->0x04e3							; "END_RENDEZVOUS"
041a 01a1       |    |		.STRTAB	0x01a1->0x04ea							; "LOAD"
041b 01a3       |    |		.STRTAB	0x01a3->0x04ec							; "STORE"
041c 01a6       |    |		.STRTAB	0x01a6->0x04ef							; "STORE_UNCHECKED"
041d 01b3       |    |		.STRTAB	0x01b3->0x04f6							; "REFERENCE"
041e 01ba       |    |		.STRTAB	0x01ba->0x04fb							; "CALL"
041f 01bc       |    |		.STRTAB	0x01bc->0x04fd							; "JUMP"
0420 01be       |    |		.STRTAB	0x01be->0x04ff							; "JUMP_ZERO"
0421 01c5       |    |		.STRTAB	0x01c5->0x0503							; "JUMP_NONZERO"
0422 01cf       |    |		.STRTAB	0x01cf->0x0509							; "JUMP_CASE"
0423 01d6       |    |		.STRTAB	0x01d6->0x050e							; "LOOP_INCREASING"
0424 01e3       |    |		.STRTAB	0x01e3->0x0515							; "LOOP_DECREASING"
0425 01f0       |    |		.STRTAB	0x01f0->0x051d							; "SHORT_LITERAL"
0426 01fb       |    |		.STRTAB	0x01fb->0x0523							; "UNUSED"
0427 01ff       |    |		.STRTAB	0x01ff->0x0526							; "VERSION"
0428 0204       |    |		.STRTAB	0x0204->0x052a							; "AT_OFFSET_6"
0429 020d       |    |		.STRTAB	0x020d->0x052f							; "AT_OFFSET_5"
042a 0216       |    |		.STRTAB	0x0216->0x0535							; "AT_OFFSET_4"
042b 021f       |    |		.STRTAB	0x021f->0x053a							; "AT_OFFSET_3"
042c 0228       | (  |		.STRTAB	0x0228->0x0540							; "AT_OFFSET_2"
042d 0231       | 1  |		.STRTAB	0x0231->0x0545							; "AT_OFFSET_1"
042e 023a       | :  |		.STRTAB	0x023a->0x054b							; "AT_OFFSET_0"
042f 0243       | C  |		.STRTAB	0x0243->0x0550							; "VALUE_00"
0430 0249       | I  |		.STRTAB	0x0249->0x0554							; "VALUE_01"
0431 024f       | O  |		.STRTAB	0x024f->0x0558							; "VALUE_02"
0432 0255       | U  |		.STRTAB	0x0255->0x055c							; "VALUE_03"
0433 025b       | [  |		.STRTAB	0x025b->0x0560							; "VALUE_04"
0434 0261       | a  |		.STRTAB	0x0261->0x0564							; "VALUE_05"
0435 0267       | g  |		.STRTAB	0x0267->0x0568							; "VALUE_06"
0436 026d       | m  |		.STRTAB	0x026d->0x056c							; "VALUE_07"
0437 0273       | s  |		.STRTAB	0x0273->0x0570							; "VALUE_08"
0438 0279       | y  |		.STRTAB	0x0279->0x0574							; "VALUE_09"
0439 027f       |    |		.STRTAB	0x027f->0x0578							; "VALUE_10"
043a 0285       |    |		.STRTAB	0x0285->0x057c							; "VALUE_11"
043b 028b       |    |		.STRTAB	0x028b->0x0580							; "VALUE_12"
043c 0291       |    |		.STRTAB	0x0291->0x0584							; "VALUE_13"
043d 0297       |    |		.STRTAB	0x0297->0x0588							; "VALUE_14"
043e 029d       |    |		.STRTAB	0x029d->0x058c							; "VALUE_15"
043f 02a3       |    |		.STRTAB	0x02a3->0x0590							; "VALUE_16"
0440 02a9       |    |		.STRTAB	0x02a9->0x0594							; "VALUE_17"
0441 02af       |    |		.STRTAB	0x02af->0x0598							; "VALUE_18"
0442 02b5       |    |		.STRTAB	0x02b5->0x059c							; "VALUE_19"
0443 02bb       |    |		.STRTAB	0x02bb->0x05a0							; "VALUE_20"
0444 02c1       |    |		.STRTAB	0x02c1->0x05a4							; "VALUE_21"
0445 02c7       |    |		.STRTAB	0x02c7->0x05a8							; "VALUE_22"
0446 02cd       |    |		.STRTAB	0x02cd->0x05ac							; "VALUE_23"
0447 02d3       |    |		.STRTAB	0x02d3->0x05b0							; "VALUE_24"
0448 02d9       |    |		.STRTAB	0x02d9->0x05b4							; "VALUE_25"
0449 02df       |    |		.STRTAB	0x02df->0x05b8							; "VALUE_26"
044a 02e5       |    |		.STRTAB	0x02e5->0x05bc							; "VALUE_27"
044b 02eb       |    |		.STRTAB	0x02eb->0x05c0							; "VALUE_28"
044c 02f1       |    |		.STRTAB	0x02f1->0x05c4							; "VALUE_29"
044d 02f7       |    |		.STRTAB	0x02f7->0x05c8							; "VALUE_30"
044e 02fd       |    |		.STRTAB	0x02fd->0x05cc							; "VALUE_31"
044f 0303       |    |		.STRTAB	0x0303->0x05d0							; "POP_COUNT_1"
0450 030c       |    |		.STRTAB	0x030c->0x05d6							; "POP_COUNT_2"
0451 0315       |    |		.STRTAB	0x0315->0x05db							; "POP_COUNT_3"
0452 031e       |    |		.STRTAB	0x031e->0x05e1							; "POP_COUNT_4"
0453 0327       | '  |		.STRTAB	0x0327->0x05e6							; "POP_COUNT_5"
0454 0330       | 0  |		.STRTAB	0x0330->0x05ec							; "POP_COUNT_6"
0455 0339       | 9  |		.STRTAB	0x0339->0x05f1							; "POP_COUNT_7"
0456 0342       | B  |		.STRTAB	0x0342->0x05f7							; "LEX_LEVEL_DELTA"
0457 034f       | O  |		.STRTAB	0x034f->0x05fe							; "FIELD_NUMBER"
0458 0359       | Y  |		.STRTAB	0x0359->0x0604							; "NEW_TOP_OFFSET"
0459 0365       | e  |		.STRTAB	0x0365->0x060b							; "PARAMETER_COUNT"
045a 0372       | r  |		.STRTAB	0x0372->0x0613							; "PC_DISPLACEMENT"
045b 037f       |    |		.STRTAB	0x037f->0x061a							; "LOOP_DISPLACEMENT"
045c 038e       |    |		.STRTAB	0x038e->0x0623							; "CASE_MAXIMUM"
045d 0398       |    |		.STRTAB	0x0398->0x0629							; "POSITIVE_IMMEDIATE"
045e 03a8       |    |		.STRTAB	0x03a8->0x0632							; "NEGATIVE_IMMEDIATE"
045f 03b8       |    |		.STRTAB	0x03b8->0x063b							; "UNSIGNED_IMMEDIATE"
0460 03c8       |    |		.STRTAB	0x03c8->0x0644							; "LIMITED_POSITIVE"
0461 03d6       |    |		.STRTAB	0x03d6->0x064c							; "LIMITED_NEGATIVE"
0462 03e4       |    |		.STRTAB	0x03e4->0x0654							; "LITERAL_VALUE"
0463 03ef       |    |		.STRTAB	0x03ef->0x065a							; "ZERO_LEX_DELTA"
0464 03fb       |    |		.STRTAB	0x03fb->0x0661							; "NONZERO_LEX_DELTA"
0465 040a       |    |		.STRTAB	0x040a->0x066a							; "IS_VALUE"
0466 0410       |    |		.STRTAB	0x0410->0x066e							; "IS_RANGE"
0467 0416       |    |		.STRTAB	0x0416->0x0672							; "NO_GROUP"
0468 041c       |    |		.STRTAB	0x041c->0x0676							; "DECLARE_GROUP"
0469 0427       | '  |		.STRTAB	0x0427->0x067c							; "STORE_GROUP"
046a 0430       | 0  |		.STRTAB	0x0430->0x0682							; "FRAME_GROUP"
046b 0439       | 9  |		.STRTAB	0x0439->0x0687							; "JUMP_GROUP"
046c 0441       | A  |		.STRTAB	0x0441->0x068c							; "RENDEZVOUS_GROUP"
046d 044f       | O  |		.STRTAB	0x044f->0x0694							; "ACTION_GROUP"
046e 0459       | Y  |		.STRTAB	0x0459->0x069a							; "OPTION_GROUP"
046f 0463       | c  |		.STRTAB	0x0463->0x06a0							; "OTHER_GROUP"
0470 046c       | l  |		.STRTAB	0x046c->0x06a6							; "EXIT_GROUP"
0471 0474       | t  |		.STRTAB	0x0474->0x06ab							; "SPARE1_GROUP"
0472 047e       | ~  |		.STRTAB	0x047e->0x06b1							; "SPARE2_GROUP"
0473 0488       |    |		.STRTAB	0x0488->0x06b7							; "SPARE3_GROUP"
0474 0492       |    |		.STRTAB	0x0492->0x06bd							; "IMPLICIT_GROUP"
0475 049e       |    |		.STRTAB	0x049e->0x06c4							; "EXPLICIT_GROUP"
0476 04aa       |    |		.STRTAB	0x04aa->0x06cb							; "CREATION_GROUP"
0477 04b6       |    |		.STRTAB	0x04b6->0x06d2							; "INHIBIT_IBUFF_FILL"
0478 04c6       |    |		.STRTAB	0x04c6->0x06db							; "UNIMPLEMENTED"
0479 04d1       |    |		.STRTAB	0x04d1->0x06e1							; "COMPLETE"
047a 04d7       |    |		.STREND 0x04d7->0x06e5
047b 4445 434c  |DECL|		.STRTAB_STRINGS
06e6 0000 0000  |    |		.XXX[0x2]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; Debug Table
06e8 ; --------------------------------------------------------------------------------------
06e8 0003 000f  |    |		.CONST	0x0003,0x000f
06ea 000b 0762  |   b|		.DEBUG	0x000b,0x0762,0x8000,0x0000,0x0053,0x9265,0x0000,0x0007
06f2 010b 07a8  |    |		.DEBUG	0x010b,0x07a8,0x0005,0x0000,0x0053,0x9265,0x0000,0x0008
06fa 0123 07aa  | #  |		.DEBUG	0x0123,0x07aa,0x0005,0x0000,0x0053,0x9265,0x0000,0x0070
0702 013b 07ac  | ;  |		.DEBUG	0x013b,0x07ac,0x0005,0x0000,0x0053,0x9265,0x0000,0x007b
070a 0153 07ae  | S  |		.DEBUG	0x0153,0x07ae,0x0005,0x0000,0x0053,0x9265,0x0000,0x009f
0712 016b 07b0  | k  |		.DEBUG	0x016b,0x07b0,0x0005,0x0000,0x0053,0x9265,0x0000,0x00aa
071a 0183 07b2  |    |		.DEBUG	0x0183,0x07b2,0x0005,0x0000,0x0053,0x9265,0x0000,0x00d3
0722 0213 07b4  |    |		.DEBUG	0x0213,0x07b4,0x0005,0x0000,0x0053,0x9265,0x0000,0x0166
072a 026b 07b6  | k  |		.DEBUG	0x026b,0x07b6,0x0005,0x0000,0x0053,0x9265,0x0000,0x0187
0732 0363 07b8  | c  |		.DEBUG	0x0363,0x07b8,0x0005,0x0000,0x0053,0x9265,0x0000,0x02a2
073a 037b 07ba  | {  |		.DEBUG	0x037b,0x07ba,0x0005,0x0000,0x0053,0x9265,0x0000,0x02a8
0742 03b3 07bc  |    |		.DEBUG	0x03b3,0x07bc,0x0005,0x0000,0x0053,0x9265,0x0000,0x02cb
074a 03cb 07be  |    |		.DEBUG	0x03cb,0x07be,0x0005,0x0000,0x0053,0x9265,0x0000,0x02df
0752 03e3 07c0  |    |		.DEBUG	0x03e3,0x07c0,0x0005,0x0000,0x0053,0x9265,0x0000,0x02e4
075a 03fb 07c2  |    |		.DEBUG	0x03fb,0x07c2,0x0005,0x0000,0x0053,0x9265,0x0000,0x030a
0762 ; --------------------------------------------------------------------------------------
0762 ; Debug3 Subtable 0x0
0762 ; --------------------------------------------------------------------------------------
0762 0022 0000  | "  |		.DBG3TAB	0x0022,0x0000
0764 000b ffff  |    |		.CONST	0x000b,0xffff
0766 0010 fffe  |    |		.CONST	0x0010,0xfffe
0768 0014 fffd  |    |		.CONST	0x0014,0xfffd
076a 0018 fffc  |    |		.CONST	0x0018,0xfffc
076c 001c fffb  |    |		.CONST	0x001c,0xfffb
076e 001f fffa  |    |		.CONST	0x001f,0xfffa
0770 0022 fff9  | "  |		.CONST	0x0022,0xfff9
0772 0025 fff8  | %  |		.CONST	0x0025,0xfff8
0774 0028 fff7  | (  |		.CONST	0x0028,0xfff7
0776 002b fff6  | +  |		.CONST	0x002b,0xfff6
0778 002e fff5  | .  |		.CONST	0x002e,0xfff5
077a 0031 fff4  | 1  |		.CONST	0x0031,0xfff4
077c 0034 fff3  | 4  |		.CONST	0x0034,0xfff3
077e 0039 fff2  | 9  |		.CONST	0x0039,0xfff2
0780 003e fff1  | >  |		.CONST	0x003e,0xfff1
0782 0043 fff0  | C  |		.CONST	0x0043,0xfff0
0784 0048 ffef  | H  |		.CONST	0x0048,0xffef
0786 004d ffee  | M  |		.CONST	0x004d,0xffee
0788 007a ffed  | z  |		.CONST	0x007a,0xffed
078a 0088 ffec  |    |		.CONST	0x0088,0xffec
078c 00c9 ffeb  |    |		.CONST	0x00c9,0xffeb
078e 00ce ffea  |    |		.CONST	0x00ce,0xffea
0790 00d3 ffe9  |    |		.CONST	0x00d3,0xffe9
0792 00e1 ffe8  |    |		.CONST	0x00e1,0xffe8
0794 00e6 ffe7  |    |		.CONST	0x00e6,0xffe7
0796 00eb ffe6  |    |		.CONST	0x00eb,0xffe6
0798 00f0 ffe5  |    |		.CONST	0x00f0,0xffe5
079a 00f4 ffe4  |    |		.CONST	0x00f4,0xffe4
079c 00fb ffe3  |    |		.CONST	0x00fb,0xffe3
079e 0101 ffe2  |    |		.CONST	0x0101,0xffe2
07a0 0102 ffe1  |    |		.CONST	0x0102,0xffe1
07a2 0103 ffe0  |    |		.CONST	0x0103,0xffe0
07a4 0104 ffdf  |    |		.CONST	0x0104,0xffdf
07a6 0105 ffde  |    |		.CONST	0x0105,0xffde
07a8 ; --------------------------------------------------------------------------------------
07a8 ; Debug3 Subtable 0x1
07a8 ; --------------------------------------------------------------------------------------
07a8 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07aa ; --------------------------------------------------------------------------------------
07aa ; Debug3 Subtable 0x2
07aa ; --------------------------------------------------------------------------------------
07aa 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07ac ; --------------------------------------------------------------------------------------
07ac ; Debug3 Subtable 0x3
07ac ; --------------------------------------------------------------------------------------
07ac 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07ae ; --------------------------------------------------------------------------------------
07ae ; Debug3 Subtable 0x4
07ae ; --------------------------------------------------------------------------------------
07ae 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07b0 ; --------------------------------------------------------------------------------------
07b0 ; Debug3 Subtable 0x5
07b0 ; --------------------------------------------------------------------------------------
07b0 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07b2 ; --------------------------------------------------------------------------------------
07b2 ; Debug3 Subtable 0x6
07b2 ; --------------------------------------------------------------------------------------
07b2 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07b4 ; --------------------------------------------------------------------------------------
07b4 ; Debug3 Subtable 0x7
07b4 ; --------------------------------------------------------------------------------------
07b4 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07b6 ; --------------------------------------------------------------------------------------
07b6 ; Debug3 Subtable 0x8
07b6 ; --------------------------------------------------------------------------------------
07b6 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07b8 ; --------------------------------------------------------------------------------------
07b8 ; Debug3 Subtable 0x9
07b8 ; --------------------------------------------------------------------------------------
07b8 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07ba ; --------------------------------------------------------------------------------------
07ba ; Debug3 Subtable 0xa
07ba ; --------------------------------------------------------------------------------------
07ba 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07bc ; --------------------------------------------------------------------------------------
07bc ; Debug3 Subtable 0xb
07bc ; --------------------------------------------------------------------------------------
07bc 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07be ; --------------------------------------------------------------------------------------
07be ; Debug3 Subtable 0xc
07be ; --------------------------------------------------------------------------------------
07be 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07c0 ; --------------------------------------------------------------------------------------
07c0 ; Debug3 Subtable 0xd
07c0 ; --------------------------------------------------------------------------------------
07c0 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07c2 ; --------------------------------------------------------------------------------------
07c2 ; Debug3 Subtable 0xe
07c2 ; --------------------------------------------------------------------------------------
07c2 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07c4 0000 0000  |    |		.BLANK	0000[0x3c]