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

⟦98a33ac61⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

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 02f0       |    |		.CONST	0x02f0								; 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 01bb       |    |		.CONST	0x01bb								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003e       | >  |		.CONST	0x003e								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x034a,0x8000,0x0000,0x005a,0x3265,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 4802       |H   |		Short_Literal	0x2
000e 4820       |H   |		Short_Literal	0x20
000f 026d       | m  |		Execute	Discrete,Exponentiate
0010 0aff       |    |		Execute_Immediate	Plus,-0x1
0011 00e5       |    |		Load_Encached	Long_Integer_Cache
0012 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0013 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x0.0x2 = 0x13,0xfffd
0014 00e2       |    |		Load_Encached	Integer_Cache
0015 4800       |H   |		Short_Literal	0x0
0016 48ff       |H   |		Short_Literal	0xff
0017 00e5       |    |		Load_Encached	Long_Integer_Cache
0018 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0019 00e5       |    |		Load_Encached	Long_Integer_Cache
001a 029f 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Call
001c 4804       |H   |		Short_Literal	0x4
001d 032e       | .  |		Declare_Type	Record,Defined,Visible
001e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x3 = 0x1e,0xfffc
001f 012c       | ,  |		Execute	Any,Size
0020 0f88       |    |		Execute_Immediate	Equal,-0x78
0021 7002       |p   |		Jump_Nonzero	0x24
0022 4887       |H   |		Short_Literal	0x87
0023 0257       | W  |		Execute	Discrete,Raise
0024 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x4 = 0x24,0xfffb
0025 0129       | )  |		Execute	Any,Make_Visible
0026 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x0.0x5 = 0x26,0xfffa
0027 0266       | f  |		Execute	Discrete,Bounds
0028 00db       |    |		Load_Top	At_Offset_3
0029 029f 01db  |    |		Declare_Subprogram	INIT_01d8,For_Call
002b 4801       |H   |		Short_Literal	0x1
002c 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
002d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x6 = 0x2d,0xfff9
002e 6289       |b   |		Indirect_Literal	Discrete,0x2b8,{0x00000000, 0x0000ffff}
002f 00e5       |    |		Load_Encached	Long_Integer_Cache
0030 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0031 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x7 = 0x31,0xfff8
0032 6281       |b   |		Indirect_Literal	Discrete,0x2b4,{0x00000000, 0x0fffffff}
0033 00e5       |    |		Load_Encached	Long_Integer_Cache
0034 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0035 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x8 = 0x35,0xfff7
0036 6281       |b   |		Indirect_Literal	Discrete,0x2b8,{0x00000000, 0x0000ffff}
0037 00da       |    |		Load_Top	At_Offset_2
0038 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0039 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x9 = 0x39,0xfff6
003a 6275       |bu  |		Indirect_Literal	Discrete,0x2b0,{0x00000000, 0x000fffff}
003b 00e5       |    |		Load_Encached	Long_Integer_Cache
003c 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
003d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xa = 0x3d,0xfff5
003e 4802       |H   |		Short_Literal	0x2
003f 4820       |H   |		Short_Literal	0x20
0040 026d       | m  |		Execute	Discrete,Exponentiate
0041 0aff       |    |		Execute_Immediate	Plus,-0x1
0042 00e5       |    |		Load_Encached	Long_Integer_Cache
0043 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0044 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xb = 0x44,0xfff4
0045 626a       |bj  |		Indirect_Literal	Discrete,0x2b0,{0x00000000, 0x000fffff}
0046 00e2       |    |		Load_Encached	Integer_Cache
0047 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0048 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x0.0xc = 0x48,0xfff3
0049 00d9       |    |		Load_Top	At_Offset_1
004a e214       |    |		Load	0x1,0x14
004b 02a0       |    |		Declare_Subprogram	Null_Subprogram
004c 4803       |H   |		Short_Literal	0x3
004d 032e       | .  |		Declare_Type	Record,Defined,Visible
004e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x0.0xd = 0x4e,0xfff2
004f 0266       | f  |		Execute	Discrete,Bounds
0050 00da       |    |		Load_Top	At_Offset_2
0051 02a0       |    |		Declare_Subprogram	Null_Subprogram
0052 4801       |H   |		Short_Literal	0x1
0053 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0054 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xe = 0x54,0xfff1
0055 483f       |H?  |		Short_Literal	0x3f
0056 00e5       |    |		Load_Encached	Long_Integer_Cache
0057 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0058 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xf = 0x58,0xfff0
0059 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x10 = 0x59,0xffef
005a 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x11 = 0x5a,0xffee
005b 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x12 = 0x5b,0xffed
005c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x13 = 0x5c,0xffec
005d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x14 = 0x5d,0xffeb
005e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x15 = 0x5e,0xffea
005f 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x16 = 0x5f,0xffe9
0060 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x17 = 0x60,0xffe8
0061 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x18 = 0x61,0xffe7
0062 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x19 = 0x62,0xffe6
0063 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1a = 0x63,0xffe5
0064 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1b = 0x64,0xffe4
0065 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1c = 0x65,0xffe3
0066 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1d = 0x66,0xffe2
0067 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1e = 0x67,0xffe1
0068 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1f = 0x68,0xffe0
0069 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x20 = 0x69,0xffdf
006a 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x21 = 0x6a,0xffde
006b 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x22 = 0x6b,0xffdd
006c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x23 = 0x6c,0xffdc
006d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x24 = 0x6d,0xffdb
006e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x25 = 0x6e,0xffda
006f 6240       |b@  |		Indirect_Literal	Discrete,0x2b0,{0x00000000, 0x000fffff}
0070 00e2       |    |		Load_Encached	Integer_Cache
0071 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0072 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x26 = 0x72,0xffd9
0073 480f       |H   |		Short_Literal	0xf
0074 00e5       |    |		Load_Encached	Long_Integer_Cache
0075 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0076 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x27 = 0x76,0xffd8
0077 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x28 = 0x77,0xffd7
0078 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x29 = 0x78,0xffd6
0079 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2a = 0x79,0xffd5
007a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x2b = 0x7a,0xffd4
007b 4807       |H   |		Short_Literal	0x7
007c 00e5       |    |		Load_Encached	Long_Integer_Cache
007d 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
007e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2c = 0x7e,0xffd3
007f 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2d = 0x7f,0xffd2
0080 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2e = 0x80,0xffd1
0081 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x2f = 0x81,0xffd0
0082 48ff       |H   |		Short_Literal	0xff
0083 00e5       |    |		Load_Encached	Long_Integer_Cache
0084 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0085 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x30 = 0x85,0xffcf
0086 e211       |    |		Load	0x1,0x11
0087 02a0       |    |		Declare_Subprogram	Null_Subprogram
0088 00da       |    |		Load_Top	At_Offset_2
0089 03a3       |    |		Complete_Type	Heap_Access,By_Defining
008a 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x31 = 0x8a,0xffce
008b 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x32 = 0x8b,0xffcd
008c 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x33 = 0x8c,0xffcc
008d 00e9       |    |		Load_Encached	String_Cache
008e 02a0       |    |		Declare_Subprogram	Null_Subprogram
008f 00da       |    |		Load_Top	At_Offset_2
0090 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0091 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x34 = 0x91,0xffcb
0092 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x35 = 0x92,0xffca
0093 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x36 = 0x93,0xffc9
0094 e218       |    |		Load	0x1,0x18
0095 02a0       |    |		Declare_Subprogram	Null_Subprogram
0096 00da       |    |		Load_Top	At_Offset_2
0097 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0098 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x37 = 0x98,0xffc8
0099 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x38 = 0x99,0xffc7
009a e20f       |    |		Load	0x1,0xf								; Debug Table 0x0.0x39 = 0x9a,0xffc6
009b 00da       |    |		Load_Top	At_Offset_2
009c e213       |    |		Load	0x1,0x13
009d e20d       |    |		Load	0x1,0xd
009e e220       |    |		Load	0x1,0x20
009f e213       |    |		Load	0x1,0x13
00a0 029f 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Call
00a2 4806       |H   |		Short_Literal	0x6
00a3 032e       | .  |		Declare_Type	Record,Defined,Visible
00a4 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x3a = 0xa4,0xffc5
00a5 4807       |H   |		Short_Literal	0x7
00a6 00e5       |    |		Load_Encached	Long_Integer_Cache
00a7 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00a8 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x3b = 0xa8,0xffc4
00a9 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x3c = 0xa9,0xffc3
00aa 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x3d = 0xaa,0xffc2
00ab 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x3e = 0xab,0xffc1
00ac e20f       |    |		Load	0x1,0xf
00ad e21f       |    |		Load	0x1,0x1f
00ae e20d       |    |		Load	0x1,0xd
00af 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
00b1 4804       |H   |		Short_Literal	0x4
00b2 032e       | .  |		Declare_Type	Record,Defined,Visible
00b3 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x3f = 0xb3,0xffc0
00b4 61f7       |a   |		Indirect_Literal	Discrete,0x2ac,{0x00000000, 0x00ffffff}
00b5 00e2       |    |		Load_Encached	Integer_Cache
00b6 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00b7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x40 = 0xb7,0xffbf
00b8 0266       | f  |		Execute	Discrete,Bounds
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 029f 0223  |   #|		Declare_Subprogram	INIT_0220,For_Call
00bc 4801       |H   |		Short_Literal	0x1
00bd 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
00be 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x41 = 0xbe,0xffbe
00bf 00d9       |    |		Load_Top	At_Offset_1
00c0 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 03a3       |    |		Complete_Type	Heap_Access,By_Defining
00c3 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x42 = 0xc3,0xffbd
00c4 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x43 = 0xc4,0xffbc
00c5 e219       |    |		Load	0x1,0x19							; Debug Table 0x0.0x44 = 0xc5,0xffbb
00c6 00db       |    |		Load_Top	At_Offset_3
00c7 4800       |H   |		Short_Literal	0x0
00c8 4802       |H   |		Short_Literal	0x2
00c9 4820       |H   |		Short_Literal	0x20
00ca 026d       | m  |		Execute	Discrete,Exponentiate
00cb 0aff       |    |		Execute_Immediate	Plus,-0x1
00cc 00e5       |    |		Load_Encached	Long_Integer_Cache
00cd 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00ce 4800       |H   |		Short_Literal	0x0
00cf 61e8       |a   |		Indirect_Literal	Discrete,0x2b8,{0x00000000, 0x0000ffff}
00d0 00e5       |    |		Load_Encached	Long_Integer_Cache
00d1 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00d2 02a0       |    |		Declare_Subprogram	Null_Subprogram
00d3 4804       |H   |		Short_Literal	0x4
00d4 032e       | .  |		Declare_Type	Record,Defined,Visible
00d5 e21a       |    |		Load	0x1,0x1a							; Debug Table 0x0.0x45 = 0xd5,0xffba
00d6 0266       | f  |		Execute	Discrete,Bounds
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 02a0       |    |		Declare_Subprogram	Null_Subprogram
00d9 4801       |H   |		Short_Literal	0x1
00da 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
00db 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x46 = 0xdb,0xffb9
00dc 00d9       |    |		Load_Top	At_Offset_1
00dd 02a0       |    |		Declare_Subprogram	Null_Subprogram
00de 00da       |    |		Load_Top	At_Offset_2
00df 03a3       |    |		Complete_Type	Heap_Access,By_Defining
00e0 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x47 = 0xe0,0xffb8
00e1 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x48 = 0xe1,0xffb7
00e2 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x0.0x49 = 0xe2,0xffb6
00e3 0266       | f  |		Execute	Discrete,Bounds
00e4 e213       |    |		Load	0x1,0x13
00e5 02a0       |    |		Declare_Subprogram	Null_Subprogram
00e6 4801       |H   |		Short_Literal	0x1
00e7 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
00e8 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x4a = 0xe8,0xffb5
00e9 480f       |H   |		Short_Literal	0xf
00ea 00e5       |    |		Load_Encached	Long_Integer_Cache
00eb 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00ec 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x4b = 0xec,0xffb4
00ed 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x4c = 0xed,0xffb3
00ee 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x4d = 0xee,0xffb2
00ef 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x0.0x4e = 0xef,0xffb1
00f0 0266       | f  |		Execute	Discrete,Bounds
00f1 00da       |    |		Load_Top	At_Offset_2
00f2 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f3 4801       |H   |		Short_Literal	0x1
00f4 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
00f5 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x0.0x4f = 0xf5,0xffb0
00f6 00d8       |    |		Load_Top	At_Offset_0
00f7 4801       |H   |		Short_Literal	0x1
00f8 61af       |a   |		Indirect_Literal	Discrete,0x2a8,{0x00000000, 0x7fffffff}
00f9 e22c       | ,  |		Load	0x1,0x2c
00fa 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
00fb 4801       |H   |		Short_Literal	0x1
00fc 61ab       |a   |		Indirect_Literal	Discrete,0x2a8,{0x00000000, 0x7fffffff}
00fd e22a       | *  |		Load	0x1,0x2a
00fe 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
00ff 4801       |H   |		Short_Literal	0x1
0100 61a7       |a   |		Indirect_Literal	Discrete,0x2a8,{0x00000000, 0x7fffffff}
0101 e210       |    |		Load	0x1,0x10
0102 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
0103 029f 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Call
0105 4800       |H   |		Short_Literal	0x0
0106 4803       |H   |		Short_Literal	0x3
0107 4800       |H   |		Short_Literal	0x0
0108 4800       |H   |		Short_Literal	0x0
0109 4803       |H   |		Short_Literal	0x3
010a 4802       |H   |		Short_Literal	0x2
010b 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
010c 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x50 = 0x10c,0xffaf
010d 00d9       |    |		Load_Top	At_Offset_1
010e 02a0       |    |		Declare_Subprogram	Null_Subprogram
010f 00da       |    |		Load_Top	At_Offset_2
0110 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0111 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x51 = 0x111,0xffae
0112 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x52 = 0x112,0xffad
0113 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x53 = 0x113,0xffac
0114 e210       |    |		Load	0x1,0x10
0115 02a0       |    |		Declare_Subprogram	Null_Subprogram
0116 00da       |    |		Load_Top	At_Offset_2
0117 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0118 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x54 = 0x118,0xffab
0119 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x55 = 0x119,0xffaa
011a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x56 = 0x11a,0xffa9
011b 619c       |a   |		Indirect_Literal	Discrete,0x2b8,{0x00000000, 0x0000ffff}
011c 00e5       |    |		Load_Encached	Long_Integer_Cache
011d 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
011e e215       |    |		Load	0x1,0x15							; Debug Table 0x0.0x57 = 0x11e,0xffa8
011f 00d9       |    |		Load_Top	At_Offset_1
0120 02a0       |    |		Declare_Subprogram	Null_Subprogram
0121 4802       |H   |		Short_Literal	0x2
0122 032e       | .  |		Declare_Type	Record,Defined,Visible
0123 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x0.0x58 = 0x123,0xffa7
0124 0266       | f  |		Execute	Discrete,Bounds
0125 00da       |    |		Load_Top	At_Offset_2
0126 02a0       |    |		Declare_Subprogram	Null_Subprogram
0127 4801       |H   |		Short_Literal	0x1
0128 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0129 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x59 = 0x129,0xffa6
012a 00d9       |    |		Load_Top	At_Offset_1
012b 02a0       |    |		Declare_Subprogram	Null_Subprogram
012c 00da       |    |		Load_Top	At_Offset_2
012d 03a3       |    |		Complete_Type	Heap_Access,By_Defining
012e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x5a = 0x12e,0xffa5
012f 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x5b = 0x12f,0xffa4
0130 e20f       |    |		Load	0x1,0xf								; Debug Table 0x0.0x5c = 0x130,0xffa3
0131 e20e       |    |		Load	0x1,0xe
0132 4800       |H   |		Short_Literal	0x0
0133 6170       |ap  |		Indirect_Literal	Discrete,0x2a4,{0x00000000, 0x00007fff}
0134 00e5       |    |		Load_Encached	Long_Integer_Cache
0135 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0136 4800       |H   |		Short_Literal	0x0
0137 617c       |a|  |		Indirect_Literal	Discrete,0x2b4,{0x00000000, 0x0fffffff}
0138 00e5       |    |		Load_Encached	Long_Integer_Cache
0139 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
013a 4800       |H   |		Short_Literal	0x0
013b 617c       |a|  |		Indirect_Literal	Discrete,0x2b8,{0x00000000, 0x0000ffff}
013c 00e5       |    |		Load_Encached	Long_Integer_Cache
013d 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
013e 4800       |H   |		Short_Literal	0x0
013f 6178       |ax  |		Indirect_Literal	Discrete,0x2b8,{0x00000000, 0x0000ffff}
0140 00e5       |    |		Load_Encached	Long_Integer_Cache
0141 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0142 4800       |H   |		Short_Literal	0x0
0143 6168       |ah  |		Indirect_Literal	Discrete,0x2ac,{0x00000000, 0x00ffffff}
0144 00e5       |    |		Load_Encached	Long_Integer_Cache
0145 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0146 4800       |H   |		Short_Literal	0x0
0147 6164       |ad  |		Indirect_Literal	Discrete,0x2ac,{0x00000000, 0x00ffffff}
0148 00e5       |    |		Load_Encached	Long_Integer_Cache
0149 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
014a 00e1       |    |		Load_Encached	Boolean_Cache
014b 00e1       |    |		Load_Encached	Boolean_Cache
014c e230       | 0  |		Load	0x1,0x30
014d e233       | 3  |		Load	0x1,0x33
014e 029f 0273  |   s|		Declare_Subprogram	INIT_0270,For_Call
0150 480c       |H   |		Short_Literal	0xc
0151 032e       | .  |		Declare_Type	Record,Defined,Visible
0152 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x5d = 0x152,0xffa2
0153 6158       |aX  |		Indirect_Literal	Discrete,0x2ac,{0x00000000, 0x00ffffff}
0154 00e2       |    |		Load_Encached	Integer_Cache
0155 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0156 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x5e = 0x156,0xffa1
0157 0266       | f  |		Execute	Discrete,Bounds
0158 00db       |    |		Load_Top	At_Offset_3
0159 029f 028b  |    |		Declare_Subprogram	INIT_0288,For_Call
015b 4801       |H   |		Short_Literal	0x1
015c 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
015d 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x5f = 0x15d,0xffa0
015e 00d9       |    |		Load_Top	At_Offset_1
015f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0160 00da       |    |		Load_Top	At_Offset_2
0161 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0162 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x60 = 0x162,0xff9f
0163 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x61 = 0x163,0xff9e
0164 e21b       |    |		Load	0x1,0x1b							; Debug Table 0x0.0x62 = 0x164,0xff9d
0165 00db       |    |		Load_Top	At_Offset_3
0166 02a0       |    |		Declare_Subprogram	Null_Subprogram
0167 4802       |H   |		Short_Literal	0x2
0168 032e       | .  |		Declare_Type	Record,Defined,Visible
0169 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x0.0x63 = 0x169,0xff9c
016a 0266       | f  |		Execute	Discrete,Bounds
016b 00da       |    |		Load_Top	At_Offset_2
016c 02a0       |    |		Declare_Subprogram	Null_Subprogram
016d 4801       |H   |		Short_Literal	0x1
016e 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
016f 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x64 = 0x16f,0xff9b
0170 00d9       |    |		Load_Top	At_Offset_1
0171 02a0       |    |		Declare_Subprogram	Null_Subprogram
0172 00da       |    |		Load_Top	At_Offset_2
0173 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0174 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x65 = 0x174,0xff9a
0175 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x66 = 0x175,0xff99
0176 e21c       |    |		Load	0x1,0x1c							; Debug Table 0x0.0x67 = 0x176,0xff98
0177 e20f       |    |		Load	0x1,0xf
0178 e213       |    |		Load	0x1,0x13
0179 e237       | 7  |		Load	0x1,0x37
017a e23a       | :  |		Load	0x1,0x3a
017b 4800       |H   |		Short_Literal	0x0
017c 483f       |H?  |		Short_Literal	0x3f
017d 00e5       |    |		Load_Encached	Long_Integer_Cache
017e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
017f 00e1       |    |		Load_Encached	Boolean_Cache
0180 00e1       |    |		Load_Encached	Boolean_Cache
0181 e21f       |    |		Load	0x1,0x1f
0182 e21f       |    |		Load	0x1,0x1f
0183 e21f       |    |		Load	0x1,0x1f
0184 e21f       |    |		Load	0x1,0x1f
0185 e21f       |    |		Load	0x1,0x1f
0186 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call
0188 480d       |H   |		Short_Literal	0xd
0189 032e       | .  |		Declare_Type	Record,Defined,Visible
018a 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x68 = 0x18a,0xff97
018b 00d9       |    |		Load_Top	At_Offset_1
018c 02a0       |    |		Declare_Subprogram	Null_Subprogram
018d 00da       |    |		Load_Top	At_Offset_2
018e 03a3       |    |		Complete_Type	Heap_Access,By_Defining
018f 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x69 = 0x18f,0xff96
0190 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x6a = 0x190,0xff95
0191 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x6b = 0x191,0xff94
0192 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x6c = 0x192,0xff93
0193 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x6d = 0x193,0xff92
0194 610b       |a   |		Indirect_Literal	Discrete,0x2a0,{0x00000000, 0x0000177a}
0195 00e1       |    |		Load_Encached	Boolean_Cache
0196 02a0       |    |		Declare_Subprogram	Null_Subprogram
0197 4801       |H   |		Short_Literal	0x1
0198 035e       | ^  |		Declare_Type	Array,Defined,Visible
0199 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x6e = 0x199,0xff91
019a e21d       |    |		Load	0x1,0x1d
019b e21d       |    |		Load	0x1,0x1d
019c e21d       |    |		Load	0x1,0x1d
019d e21d       |    |		Load	0x1,0x1d
019e e21e       |    |		Load	0x1,0x1e
019f 4800       |H   |		Short_Literal	0x0
01a0 6103       |a   |		Indirect_Literal	Discrete,0x2a4,{0x00000000, 0x00007fff}
01a1 00e5       |    |		Load_Encached	Long_Integer_Cache
01a2 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
01a3 e21e       |    |		Load	0x1,0x1e
01a4 4800       |H   |		Short_Literal	0x0
01a5 610e       |a   |		Indirect_Literal	Discrete,0x2b4,{0x00000000, 0x0fffffff}
01a6 00e5       |    |		Load_Encached	Long_Integer_Cache
01a7 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
01a8 4800       |H   |		Short_Literal	0x0
01a9 610e       |a   |		Indirect_Literal	Discrete,0x2b8,{0x00000000, 0x0000ffff}
01aa 00e5       |    |		Load_Encached	Long_Integer_Cache
01ab 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
01ac 4800       |H   |		Short_Literal	0x0
01ad 610a       |a   |		Indirect_Literal	Discrete,0x2b8,{0x00000000, 0x0000ffff}
01ae 00e5       |    |		Load_Encached	Long_Integer_Cache
01af 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
01b0 e221       | !  |		Load	0x1,0x21
01b1 e226       | &  |		Load	0x1,0x26
01b2 e229       | )  |		Load	0x1,0x29
01b3 e229       | )  |		Load	0x1,0x29
01b4 e22e       | .  |		Load	0x1,0x2e
01b5 e23c       | <  |		Load	0x1,0x3c
01b6 029f 02db  |    |		Declare_Subprogram	INIT_02d8,For_Call
01b8 4811       |H   |		Short_Literal	0x11
01b9 032e       | .  |		Declare_Type	Record,Defined,Visible
01ba 00bf       |    |		Action	Accept_Activation
01bb			BODY_0008:
01bb 00bc       |    |		Action	Signal_Activated
01bc 00bb       |    |		Action	Signal_Completion
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
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 4608       |F   |		Jump_Case	0x9							; Debug Table 0x1 = .DEBUG	0x01c3,0x042a,0x0005,0x0000,0x005a,0x3265,0x0000,0x0019
01c4 7808       |x   |		Jump	0x1cd								; case 0x0
01c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01c6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
01c7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01c8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
01c9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
01ca 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
01cb 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
01cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
01cd 4800       |H   |		Short_Literal	0x0
01ce 00db       |    |		Load_Top	At_Offset_3
01cf 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01d0 4800       |H   |		Short_Literal	0x0
01d1 00db       |    |		Load_Top	At_Offset_3
01d2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01d3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01d4 0000 0000  |    |		.BLANK	0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x2 = .DEBUG	0x01db,0x042c,0x0005,0x0000,0x005a,0x3265,0x0000,0x0050
01dc 00da       |    |		Load_Top	At_Offset_2
01dd 01d8       |    |		Execute	Vector,Element_Type
01de 0322       | "  |		Declare_Variable	Record
01df 00d8       |    |		Load_Top	At_Offset_0
01e0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e1 00db       |    |		Load_Top	At_Offset_3
01e2 01dc       |    |		Execute	Vector,Last
01e3 e5ff       |    |		Load	0x2,-0x1
01e4 01dd       |    |		Execute	Vector,First
01e5 0263       | c  |		Execute	Discrete,Above_Bound
01e6 7006       |p   |		Jump_Nonzero	0x1ed
01e7 00da       |    |		Load_Top	At_Offset_2
01e8 00d9       |    |		Load_Top	At_Offset_1
01e9 e5ff       |    |		Load	0x2,-0x1
01ea 01d6       |    |		Execute	Vector,Field_Write
01eb 0a01       |    |		Execute_Immediate	Plus,0x1
01ec 7ff8       |    |		Jump	0x1e5
01ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01ee 0000 0000  |    |		.XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 4608       |F   |		Jump_Case	0x9							; Debug Table 0x3 = .DEBUG	0x01f3,0x042e,0x0005,0x0000,0x005a,0x3265,0x0000,0x0206
01f4 7808       |x   |		Jump	0x1fd								; case 0x0
01f5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01f6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
01f7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01f8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
01f9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
01fa 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
01fb 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
01fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0200 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0201 0000 0000  |    |		.BLANK	0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 4608       |F   |		Jump_Case	0x9							; Debug Table 0x4 = .DEBUG	0x020b,0x0430,0x0005,0x0000,0x005a,0x3265,0x0000,0x024b
020c 7808       |x   |		Jump	0x215								; case 0x0
020d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
020e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
020f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0210 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0211 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0212 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0213 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0214 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0215 00da       |    |		Load_Top	At_Offset_2
0216 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0217 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0218 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0219 0000 0000  |    |		.BLANK	0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x5 = .DEBUG	0x0223,0x0432,0x0005,0x0000,0x005a,0x3265,0x0000,0x0274
0224 00da       |    |		Load_Top	At_Offset_2
0225 01d8       |    |		Execute	Vector,Element_Type
0226 0322       | "  |		Declare_Variable	Record
0227 00d8       |    |		Load_Top	At_Offset_0
0228 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0229 00db       |    |		Load_Top	At_Offset_3
022a 01dc       |    |		Execute	Vector,Last
022b e5ff       |    |		Load	0x2,-0x1
022c 01dd       |    |		Execute	Vector,First
022d 0263       | c  |		Execute	Discrete,Above_Bound
022e 7006       |p   |		Jump_Nonzero	0x235
022f 00da       |    |		Load_Top	At_Offset_2
0230 00d9       |    |		Load_Top	At_Offset_1
0231 e5ff       |    |		Load	0x2,-0x1
0232 01d6       |    |		Execute	Vector,Field_Write
0233 0a01       |    |		Execute_Immediate	Plus,0x1
0234 7ff8       |    |		Jump	0x22d
0235 4302       |C   |		Exit_Subprogram	From_Utility,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 4608       |F   |		Jump_Case	0x9							; Debug Table 0x6 = .DEBUG	0x023b,0x0434,0x0005,0x0000,0x005a,0x3265,0x0000,0x02f7
023c 7808       |x   |		Jump	0x245								; case 0x0
023d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
023e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
023f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0240 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0241 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0242 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0243 7805       |x   |		Jump	0x249								; case 0x7
0244 7816       |x   |		Jump	0x25b								; case 0x8
0245 00da       |    |		Load_Top	At_Offset_2
0246 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0247 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0248 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0249 e5fd       |    |		Load	0x2,-0x3
024a e5fe       |    |		Load	0x2,-0x2
024b 4801       |H   |		Short_Literal	0x1
024c e5fd       |    |		Load	0x2,-0x3
024d e22c       | ,  |		Load	0x1,0x2c
024e 035b       | [  |		Declare_Type	Array,Constrained
024f 4801       |H   |		Short_Literal	0x1
0250 e5fd       |    |		Load	0x2,-0x3
0251 e22a       | *  |		Load	0x1,0x2a
0252 035b       | [  |		Declare_Type	Array,Constrained
0253 4801       |H   |		Short_Literal	0x1
0254 e5fe       |    |		Load	0x2,-0x2
0255 e210       |    |		Load	0x1,0x10
0256 035b       | [  |		Declare_Type	Array,Constrained
0257 4803       |H   |		Short_Literal	0x3
0258 e5ff       |    |		Load	0x2,-0x1
0259 031b       |    |		Declare_Type	Variant_Record,Constrained
025a 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
025b e5fd       |    |		Load	0x2,-0x3
025c e5fe       |    |		Load	0x2,-0x2
025d e5ff       |    |		Load	0x2,-0x1
025e 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
025f 4801       |H   |		Short_Literal	0x1
0260 e5fd       |    |		Load	0x2,-0x3
0261 e22c       | ,  |		Load	0x1,0x2c
0262 0334       | 4  |		Declare_Variable	Array,With_Constraint
0263 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0264 4801       |H   |		Short_Literal	0x1
0265 e5fd       |    |		Load	0x2,-0x3
0266 e22a       | *  |		Load	0x1,0x2a
0267 0334       | 4  |		Declare_Variable	Array,With_Constraint
0268 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
0269 4801       |H   |		Short_Literal	0x1
026a e5fe       |    |		Load	0x2,-0x2
026b e210       |    |		Load	0x1,0x10
026c 0334       | 4  |		Declare_Variable	Array,With_Constraint
026d 2d05       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5
026e 016a       | j  |		QQ_execute	Variant_Record,XXX
026f 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 4608       |F   |		Jump_Case	0x9							; Debug Table 0x7 = .DEBUG	0x0273,0x0436,0x0005,0x0000,0x005a,0x3265,0x0000,0x036d
0274 7808       |x   |		Jump	0x27d								; case 0x0
0275 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0276 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0277 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0278 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0279 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
027a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
027b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
027c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
027d 00da       |    |		Load_Top	At_Offset_2
027e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
027f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0280 00da       |    |		Load_Top	At_Offset_2
0281 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0282 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0283 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0284 0000 0000  |    |		.BLANK	0000[0x4]
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 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x8 = .DEBUG	0x028b,0x0438,0x0005,0x0000,0x005a,0x3265,0x0000,0x0400
028c 00da       |    |		Load_Top	At_Offset_2
028d 01d8       |    |		Execute	Vector,Element_Type
028e 0322       | "  |		Declare_Variable	Record
028f 00d8       |    |		Load_Top	At_Offset_0
0290 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0291 00db       |    |		Load_Top	At_Offset_3
0292 01dc       |    |		Execute	Vector,Last
0293 e5ff       |    |		Load	0x2,-0x1
0294 01dd       |    |		Execute	Vector,First
0295 0263       | c  |		Execute	Discrete,Above_Bound
0296 7006       |p   |		Jump_Nonzero	0x29d
0297 00da       |    |		Load_Top	At_Offset_2
0298 00d9       |    |		Load_Top	At_Offset_1
0299 e5ff       |    |		Load	0x2,-0x1
029a 01d6       |    |		Execute	Vector,Field_Write
029b 0a01       |    |		Execute_Immediate	Plus,0x1
029c 7ff8       |    |		Jump	0x295
029d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
029e 0000 0000  |    |		.XXX[0x2]
02a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000177a}
02a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fff}
02a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
02ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x00ffffff}
02b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000fffff}
02b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0fffffff}
02b8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
02bc 0000 0000  |    |		.BLANK	0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 4608       |F   |		Jump_Case	0x9							; Debug Table 0x9 = .DEBUG	0x02c3,0x043a,0x0005,0x0000,0x005a,0x3265,0x0000,0x043c
02c4 7808       |x   |		Jump	0x2cd								; case 0x0
02c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02c6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
02c7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
02c8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
02c9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
02ca 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
02cb 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
02cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
02cd 00da       |    |		Load_Top	At_Offset_2
02ce 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02d1 0000 0000  |    |		.BLANK	0000[0x7]
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 4608       |F   |		Jump_Case	0x9							; Debug Table 0xa = .DEBUG	0x02db,0x043c,0x0005,0x0000,0x005a,0x3265,0x0000,0x04b2
02dc 7808       |x   |		Jump	0x2e5								; case 0x0
02dd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02de 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
02df 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
02e0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
02e1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
02e2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
02e3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
02e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
02e5 00da       |    |		Load_Top	At_Offset_2
02e6 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
02e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02e9 0000 0000  |    |		.BLANK	0000[0x7]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug Table
02f0 ; --------------------------------------------------------------------------------------
02f0 0003 000b  |    |		.CONST	0x0003,0x000b
02f2 000b 034a  |   J|		.DEBUG	0x000b,0x034a,0x8000,0x0000,0x005a,0x3265,0x0000,0x0003
02fa 01c3 042a  |   *|		.DEBUG	0x01c3,0x042a,0x0005,0x0000,0x005a,0x3265,0x0000,0x0019
0302 01db 042c  |   ,|		.DEBUG	0x01db,0x042c,0x0005,0x0000,0x005a,0x3265,0x0000,0x0050
030a 01f3 042e  |   .|		.DEBUG	0x01f3,0x042e,0x0005,0x0000,0x005a,0x3265,0x0000,0x0206
0312 020b 0430  |   0|		.DEBUG	0x020b,0x0430,0x0005,0x0000,0x005a,0x3265,0x0000,0x024b
031a 0223 0432  | # 2|		.DEBUG	0x0223,0x0432,0x0005,0x0000,0x005a,0x3265,0x0000,0x0274
0322 023b 0434  | ; 4|		.DEBUG	0x023b,0x0434,0x0005,0x0000,0x005a,0x3265,0x0000,0x02f7
032a 0273 0436  | s 6|		.DEBUG	0x0273,0x0436,0x0005,0x0000,0x005a,0x3265,0x0000,0x036d
0332 028b 0438  |   8|		.DEBUG	0x028b,0x0438,0x0005,0x0000,0x005a,0x3265,0x0000,0x0400
033a 02c3 043a  |   :|		.DEBUG	0x02c3,0x043a,0x0005,0x0000,0x005a,0x3265,0x0000,0x043c
0342 02db 043c  |   <|		.DEBUG	0x02db,0x043c,0x0005,0x0000,0x005a,0x3265,0x0000,0x04b2
034a ; --------------------------------------------------------------------------------------
034a ; Debug3 Subtable 0x0
034a ; --------------------------------------------------------------------------------------
034a 006f 0000  | o  |		.DBG3TAB	0x006f,0x0000
034c 000b ffff  |    |		.CONST	0x000b,0xffff
034e 000c fffe  |    |		.CONST	0x000c,0xfffe
0350 0013 fffd  |    |		.CONST	0x0013,0xfffd
0352 001e fffc  |    |		.CONST	0x001e,0xfffc
0354 0024 fffb  | $  |		.CONST	0x0024,0xfffb
0356 0026 fffa  | &  |		.CONST	0x0026,0xfffa
0358 002d fff9  | -  |		.CONST	0x002d,0xfff9
035a 0031 fff8  | 1  |		.CONST	0x0031,0xfff8
035c 0035 fff7  | 5  |		.CONST	0x0035,0xfff7
035e 0039 fff6  | 9  |		.CONST	0x0039,0xfff6
0360 003d fff5  | =  |		.CONST	0x003d,0xfff5
0362 0044 fff4  | D  |		.CONST	0x0044,0xfff4
0364 0048 fff3  | H  |		.CONST	0x0048,0xfff3
0366 004e fff2  | N  |		.CONST	0x004e,0xfff2
0368 0054 fff1  | T  |		.CONST	0x0054,0xfff1
036a 0058 fff0  | X  |		.CONST	0x0058,0xfff0
036c 0059 ffef  | Y  |		.CONST	0x0059,0xffef
036e 005a ffee  | Z  |		.CONST	0x005a,0xffee
0370 005b ffed  | [  |		.CONST	0x005b,0xffed
0372 005c ffec  | \  |		.CONST	0x005c,0xffec
0374 005d ffeb  | ]  |		.CONST	0x005d,0xffeb
0376 005e ffea  | ^  |		.CONST	0x005e,0xffea
0378 005f ffe9  | _  |		.CONST	0x005f,0xffe9
037a 0060 ffe8  | `  |		.CONST	0x0060,0xffe8
037c 0061 ffe7  | a  |		.CONST	0x0061,0xffe7
037e 0062 ffe6  | b  |		.CONST	0x0062,0xffe6
0380 0063 ffe5  | c  |		.CONST	0x0063,0xffe5
0382 0064 ffe4  | d  |		.CONST	0x0064,0xffe4
0384 0065 ffe3  | e  |		.CONST	0x0065,0xffe3
0386 0066 ffe2  | f  |		.CONST	0x0066,0xffe2
0388 0067 ffe1  | g  |		.CONST	0x0067,0xffe1
038a 0068 ffe0  | h  |		.CONST	0x0068,0xffe0
038c 0069 ffdf  | i  |		.CONST	0x0069,0xffdf
038e 006a ffde  | j  |		.CONST	0x006a,0xffde
0390 006b ffdd  | k  |		.CONST	0x006b,0xffdd
0392 006c ffdc  | l  |		.CONST	0x006c,0xffdc
0394 006d ffdb  | m  |		.CONST	0x006d,0xffdb
0396 006e ffda  | n  |		.CONST	0x006e,0xffda
0398 0072 ffd9  | r  |		.CONST	0x0072,0xffd9
039a 0076 ffd8  | v  |		.CONST	0x0076,0xffd8
039c 0077 ffd7  | w  |		.CONST	0x0077,0xffd7
039e 0078 ffd6  | x  |		.CONST	0x0078,0xffd6
03a0 0079 ffd5  | y  |		.CONST	0x0079,0xffd5
03a2 007a ffd4  | z  |		.CONST	0x007a,0xffd4
03a4 007e ffd3  | ~  |		.CONST	0x007e,0xffd3
03a6 007f ffd2  |    |		.CONST	0x007f,0xffd2
03a8 0080 ffd1  |    |		.CONST	0x0080,0xffd1
03aa 0081 ffd0  |    |		.CONST	0x0081,0xffd0
03ac 0085 ffcf  |    |		.CONST	0x0085,0xffcf
03ae 008a ffce  |    |		.CONST	0x008a,0xffce
03b0 008b ffcd  |    |		.CONST	0x008b,0xffcd
03b2 008c ffcc  |    |		.CONST	0x008c,0xffcc
03b4 0091 ffcb  |    |		.CONST	0x0091,0xffcb
03b6 0092 ffca  |    |		.CONST	0x0092,0xffca
03b8 0093 ffc9  |    |		.CONST	0x0093,0xffc9
03ba 0098 ffc8  |    |		.CONST	0x0098,0xffc8
03bc 0099 ffc7  |    |		.CONST	0x0099,0xffc7
03be 009a ffc6  |    |		.CONST	0x009a,0xffc6
03c0 00a4 ffc5  |    |		.CONST	0x00a4,0xffc5
03c2 00a8 ffc4  |    |		.CONST	0x00a8,0xffc4
03c4 00a9 ffc3  |    |		.CONST	0x00a9,0xffc3
03c6 00aa ffc2  |    |		.CONST	0x00aa,0xffc2
03c8 00ab ffc1  |    |		.CONST	0x00ab,0xffc1
03ca 00b3 ffc0  |    |		.CONST	0x00b3,0xffc0
03cc 00b7 ffbf  |    |		.CONST	0x00b7,0xffbf
03ce 00be ffbe  |    |		.CONST	0x00be,0xffbe
03d0 00c3 ffbd  |    |		.CONST	0x00c3,0xffbd
03d2 00c4 ffbc  |    |		.CONST	0x00c4,0xffbc
03d4 00c5 ffbb  |    |		.CONST	0x00c5,0xffbb
03d6 00d5 ffba  |    |		.CONST	0x00d5,0xffba
03d8 00db ffb9  |    |		.CONST	0x00db,0xffb9
03da 00e0 ffb8  |    |		.CONST	0x00e0,0xffb8
03dc 00e1 ffb7  |    |		.CONST	0x00e1,0xffb7
03de 00e2 ffb6  |    |		.CONST	0x00e2,0xffb6
03e0 00e8 ffb5  |    |		.CONST	0x00e8,0xffb5
03e2 00ec ffb4  |    |		.CONST	0x00ec,0xffb4
03e4 00ed ffb3  |    |		.CONST	0x00ed,0xffb3
03e6 00ee ffb2  |    |		.CONST	0x00ee,0xffb2
03e8 00ef ffb1  |    |		.CONST	0x00ef,0xffb1
03ea 00f5 ffb0  |    |		.CONST	0x00f5,0xffb0
03ec 010c ffaf  |    |		.CONST	0x010c,0xffaf
03ee 0111 ffae  |    |		.CONST	0x0111,0xffae
03f0 0112 ffad  |    |		.CONST	0x0112,0xffad
03f2 0113 ffac  |    |		.CONST	0x0113,0xffac
03f4 0118 ffab  |    |		.CONST	0x0118,0xffab
03f6 0119 ffaa  |    |		.CONST	0x0119,0xffaa
03f8 011a ffa9  |    |		.CONST	0x011a,0xffa9
03fa 011e ffa8  |    |		.CONST	0x011e,0xffa8
03fc 0123 ffa7  | #  |		.CONST	0x0123,0xffa7
03fe 0129 ffa6  | )  |		.CONST	0x0129,0xffa6
0400 012e ffa5  | .  |		.CONST	0x012e,0xffa5
0402 012f ffa4  | /  |		.CONST	0x012f,0xffa4
0404 0130 ffa3  | 0  |		.CONST	0x0130,0xffa3
0406 0152 ffa2  | R  |		.CONST	0x0152,0xffa2
0408 0156 ffa1  | V  |		.CONST	0x0156,0xffa1
040a 015d ffa0  | ]  |		.CONST	0x015d,0xffa0
040c 0162 ff9f  | b  |		.CONST	0x0162,0xff9f
040e 0163 ff9e  | c  |		.CONST	0x0163,0xff9e
0410 0164 ff9d  | d  |		.CONST	0x0164,0xff9d
0412 0169 ff9c  | i  |		.CONST	0x0169,0xff9c
0414 016f ff9b  | o  |		.CONST	0x016f,0xff9b
0416 0174 ff9a  | t  |		.CONST	0x0174,0xff9a
0418 0175 ff99  | u  |		.CONST	0x0175,0xff99
041a 0176 ff98  | v  |		.CONST	0x0176,0xff98
041c 018a ff97  |    |		.CONST	0x018a,0xff97
041e 018f ff96  |    |		.CONST	0x018f,0xff96
0420 0190 ff95  |    |		.CONST	0x0190,0xff95
0422 0191 ff94  |    |		.CONST	0x0191,0xff94
0424 0192 ff93  |    |		.CONST	0x0192,0xff93
0426 0193 ff92  |    |		.CONST	0x0193,0xff92
0428 0199 ff91  |    |		.CONST	0x0199,0xff91
042a ; --------------------------------------------------------------------------------------
042a ; Debug3 Subtable 0x1
042a ; --------------------------------------------------------------------------------------
042a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
042c ; --------------------------------------------------------------------------------------
042c ; Debug3 Subtable 0x2
042c ; --------------------------------------------------------------------------------------
042c 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
042e ; --------------------------------------------------------------------------------------
042e ; Debug3 Subtable 0x3
042e ; --------------------------------------------------------------------------------------
042e 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0430 ; --------------------------------------------------------------------------------------
0430 ; Debug3 Subtable 0x4
0430 ; --------------------------------------------------------------------------------------
0430 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug3 Subtable 0x5
0432 ; --------------------------------------------------------------------------------------
0432 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0434 ; --------------------------------------------------------------------------------------
0434 ; Debug3 Subtable 0x6
0434 ; --------------------------------------------------------------------------------------
0434 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0436 ; --------------------------------------------------------------------------------------
0436 ; Debug3 Subtable 0x7
0436 ; --------------------------------------------------------------------------------------
0436 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug3 Subtable 0x8
0438 ; --------------------------------------------------------------------------------------
0438 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
043a ; --------------------------------------------------------------------------------------
043a ; Debug3 Subtable 0x9
043a ; --------------------------------------------------------------------------------------
043a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
043c ; --------------------------------------------------------------------------------------
043c ; Debug3 Subtable 0xa
043c ; --------------------------------------------------------------------------------------
043c 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
043e 0000 0000  |    |		.BLANK	0000[0x1c2]