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

⟦5d6c0289c⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 03a8       |    |		.CONST	0x03a8								; 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 00c9       |    |		.CONST	0x00c9								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; Number of locals
000b			INIT_0008:
000b 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
000d 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
000f 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0011 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0013 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
0015 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0017 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0019 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
001b 0093 0000  |    |		push_full_address	0x0
001d 6156       |aV  |		Indirect_Literal	Discrete,0x174,{0x80000000, 0x00010000}
001e 0273       | s  |		Execute	Discrete,Plus
001f 0129       | )  |		Execute	Any,Make_Visible
0020 00bf       |    |		Action	Accept_Activation
0021 0093 0000  |    |		push_full_address	0x0
0023 614c       |aL  |		Indirect_Literal	Discrete,0x170,{0x80000000, 0x00060000}
0024 0273       | s  |		Execute	Discrete,Plus
0025 e002       |    |		Load	0x0,0x2
0026 0273       | s  |		Execute	Discrete,Plus
0027 e003       |    |		Load	0x0,0x3
0028 0273       | s  |		Execute	Discrete,Plus
0029 e004       |    |		Load	0x0,0x4
002a 4840       |H@  |		Short_Literal	0x40
002b 4810       |H   |		Short_Literal	0x10
002c a005       |    |		Store_Unchecked	0x0,0x5
002d a006       |    |		Store_Unchecked	0x0,0x6
002e e007       |    |		Load	0x0,0x7
002f 0387       |    |		Declare_Variable	Package
0030 00d8       |    |		Load_Top	At_Offset_0
0031 020f       |    |		Execute	Module,Activate
0032 0093 0000  |    |		push_full_address	0x0
0034 6137       |a7  |		Indirect_Literal	Discrete,0x16c,{0x80000000, 0x00050000}
0035 0273       | s  |		Execute	Discrete,Plus
0036 e002       |    |		Load	0x0,0x2
0037 0273       | s  |		Execute	Discrete,Plus
0038 e008       |    |		Load	0x0,0x8
0039 0273       | s  |		Execute	Discrete,Plus
003a e009       |    |		Load	0x0,0x9
003b 4864       |Hd  |		Short_Literal	0x64
003c 4819       |H   |		Short_Literal	0x19
003d a00a       |    |		Store_Unchecked	0x0,0xa
003e a00b       |    |		Store_Unchecked	0x0,0xb
003f e007       |    |		Load	0x0,0x7
0040 0387       |    |		Declare_Variable	Package
0041 00d8       |    |		Load_Top	At_Offset_0
0042 020f       |    |		Execute	Module,Activate
0043 0093 0000  |    |		push_full_address	0x0
0045 6122       |a"  |		Indirect_Literal	Discrete,0x168,{0x80000000, 0x00040000}
0046 0273       | s  |		Execute	Discrete,Plus
0047 e002       |    |		Load	0x0,0x2
0048 0273       | s  |		Execute	Discrete,Plus
0049 e00c       |    |		Load	0x0,0xc
004a 0273       | s  |		Execute	Discrete,Plus
004b e00d       |    |		Load	0x0,0xd
004c 4864       |Hd  |		Short_Literal	0x64
004d 4819       |H   |		Short_Literal	0x19
004e a00e       |    |		Store_Unchecked	0x0,0xe
004f a00f       |    |		Store_Unchecked	0x0,0xf
0050 e007       |    |		Load	0x0,0x7
0051 0387       |    |		Declare_Variable	Package
0052 00d8       |    |		Load_Top	At_Offset_0
0053 020f       |    |		Execute	Module,Activate
0054 0093 0000  |    |		push_full_address	0x0
0056 610d       |a   |		Indirect_Literal	Discrete,0x164,{0x80000000, 0x00030000}
0057 0273       | s  |		Execute	Discrete,Plus
0058 e002       |    |		Load	0x0,0x2
0059 0273       | s  |		Execute	Discrete,Plus
005a e010       |    |		Load	0x0,0x10
005b 0273       | s  |		Execute	Discrete,Plus
005c e011       |    |		Load	0x0,0x11
005d 4814       |H   |		Short_Literal	0x14
005e 4805       |H   |		Short_Literal	0x5
005f a012       |    |		Store_Unchecked	0x0,0x12
0060 a013       |    |		Store_Unchecked	0x0,0x13
0061 e007       |    |		Load	0x0,0x7
0062 0387       |    |		Declare_Variable	Package
0063 00d8       |    |		Load_Top	At_Offset_0
0064 020f       |    |		Execute	Module,Activate
0065 0093 0000  |    |		push_full_address	0x0
0067 60f8       |`   |		Indirect_Literal	Discrete,0x160,{0x80000000, 0x00020000}
0068 0273       | s  |		Execute	Discrete,Plus
0069 e002       |    |		Load	0x0,0x2
006a 0273       | s  |		Execute	Discrete,Plus
006b e014       |    |		Load	0x0,0x14
006c 0273       | s  |		Execute	Discrete,Plus
006d e015       |    |		Load	0x0,0x15
006e 4864       |Hd  |		Short_Literal	0x64
006f 4819       |H   |		Short_Literal	0x19
0070 a016       |    |		Store_Unchecked	0x0,0x16
0071 a017       |    |		Store_Unchecked	0x0,0x17
0072 e007       |    |		Load	0x0,0x7
0073 0387       |    |		Declare_Variable	Package
0074 00d8       |    |		Load_Top	At_Offset_0
0075 020f       |    |		Execute	Module,Activate
0076 0093 0000  |    |		push_full_address	0x0
0078 60e3       |`   |		Indirect_Literal	Discrete,0x15c,{0x80000000, 0x00010000}
0079 0273       | s  |		Execute	Discrete,Plus
007a e002       |    |		Load	0x0,0x2
007b 0273       | s  |		Execute	Discrete,Plus
007c e018       |    |		Load	0x0,0x18
007d 0273       | s  |		Execute	Discrete,Plus
007e e019       |    |		Load	0x0,0x19
007f 4864       |Hd  |		Short_Literal	0x64
0080 4819       |H   |		Short_Literal	0x19
0081 a01a       |    |		Store_Unchecked	0x0,0x1a
0082 a01b       |    |		Store_Unchecked	0x0,0x1b
0083 e007       |    |		Load	0x0,0x7
0084 0387       |    |		Declare_Variable	Package
0085 00d8       |    |		Load_Top	At_Offset_0
0086 020f       |    |		Execute	Module,Activate
0087 e01c       |    |		Load	0x0,0x1c
0088 e216       |    |		Load	0x1,0x16
0089 0098       |    |		Execute	Package,Field_Read_Dynamic
008a 0322       | "  |		Declare_Variable	Record
008b e01c       |    |		Load	0x0,0x1c
008c e217       |    |		Load	0x1,0x17
008d 0098       |    |		Execute	Package,Field_Read_Dynamic
008e 0322       | "  |		Declare_Variable	Record
008f e01c       |    |		Load	0x0,0x1c
0090 e218       |    |		Load	0x1,0x18
0091 0098       |    |		Execute	Package,Field_Read_Dynamic
0092 0322       | "  |		Declare_Variable	Record
0093 e01c       |    |		Load	0x0,0x1c
0094 e219       |    |		Load	0x1,0x19
0095 0098       |    |		Execute	Package,Field_Read_Dynamic
0096 0322       | "  |		Declare_Variable	Record
0097 00d8       |    |		Load_Top	At_Offset_0
0098 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0099 e01c       |    |		Load	0x0,0x1c
009a e21a       |    |		Load	0x1,0x1a
009b 0098       |    |		Execute	Package,Field_Read_Dynamic
009c 0322       | "  |		Declare_Variable	Record
009d e01c       |    |		Load	0x0,0x1c
009e e21b       |    |		Load	0x1,0x1b
009f 0098       |    |		Execute	Package,Field_Read_Dynamic
00a0 0322       | "  |		Declare_Variable	Record
00a1 e01d       |    |		Load	0x0,0x1d
00a2 e216       |    |		Load	0x1,0x16
00a3 0098       |    |		Execute	Package,Field_Read_Dynamic
00a4 0322       | "  |		Declare_Variable	Record
00a5 e01d       |    |		Load	0x0,0x1d
00a6 e217       |    |		Load	0x1,0x17
00a7 0098       |    |		Execute	Package,Field_Read_Dynamic
00a8 0322       | "  |		Declare_Variable	Record
00a9 e01d       |    |		Load	0x0,0x1d
00aa e218       |    |		Load	0x1,0x18
00ab 0098       |    |		Execute	Package,Field_Read_Dynamic
00ac 0322       | "  |		Declare_Variable	Record
00ad e01d       |    |		Load	0x0,0x1d
00ae e219       |    |		Load	0x1,0x19
00af 0098       |    |		Execute	Package,Field_Read_Dynamic
00b0 0322       | "  |		Declare_Variable	Record
00b1 e01d       |    |		Load	0x0,0x1d
00b2 e21a       |    |		Load	0x1,0x1a
00b3 0098       |    |		Execute	Package,Field_Read_Dynamic
00b4 0322       | "  |		Declare_Variable	Record
00b5 e01d       |    |		Load	0x0,0x1d
00b6 e21b       |    |		Load	0x1,0x1b
00b7 0098       |    |		Execute	Package,Field_Read_Dynamic
00b8 0322       | "  |		Declare_Variable	Record
00b9 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9			BODY_0008:
00c9 e21c       |    |		Load	0x1,0x1c
00ca e01e       |    |		Load	0x0,0x1e
00cb e216       |    |		Load	0x1,0x16
00cc 0096       |    |		Execute	Package,Entry
00cd 00d1       |    |		Pop_Control	Pop_Count_1
00ce e21d       |    |		Load	0x1,0x1d
00cf e01e       |    |		Load	0x0,0x1e
00d0 e217       |    |		Load	0x1,0x17
00d1 0096       |    |		Execute	Package,Entry
00d2 00d1       |    |		Pop_Control	Pop_Count_1
00d3 e21e       |    |		Load	0x1,0x1e
00d4 e01e       |    |		Load	0x0,0x1e
00d5 e218       |    |		Load	0x1,0x18
00d6 0096       |    |		Execute	Package,Entry
00d7 00d1       |    |		Pop_Control	Pop_Count_1
00d8 e21f       |    |		Load	0x1,0x1f
00d9 e01e       |    |		Load	0x0,0x1e
00da e219       |    |		Load	0x1,0x19
00db 0096       |    |		Execute	Package,Entry
00dc 00d1       |    |		Pop_Control	Pop_Count_1
00dd e220       |    |		Load	0x1,0x20
00de e01e       |    |		Load	0x0,0x1e
00df e21a       |    |		Load	0x1,0x1a
00e0 0096       |    |		Execute	Package,Entry
00e1 00d1       |    |		Pop_Control	Pop_Count_1
00e2 e221       | !  |		Load	0x1,0x21
00e3 e01e       |    |		Load	0x0,0x1e
00e4 e21b       |    |		Load	0x1,0x1b
00e5 0096       |    |		Execute	Package,Entry
00e6 00d1       |    |		Pop_Control	Pop_Count_1
00e7 00bc       |    |		Action	Signal_Activated
00e8 00bb       |    |		Action	Signal_Completion
00e9 0000 0000  |    |		.BLANK	0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 801f       |    |		Call	0x0,0x1f
00f5 4608       |F   |		Jump_Case	0x9
00f6 7808       |x   |		Jump	0xff								; case 0x0
00f7 7809       |x   |		Jump	0x101								; case 0x1
00f8 7817       |x   |		Jump	0x110								; case 0x2
00f9 7825       |x%  |		Jump	0x11f								; case 0x3
00fa 7833       |x3  |		Jump	0x12e								; case 0x4
00fb 7841       |xA  |		Jump	0x13d								; case 0x5
00fc 784f       |xO  |		Jump	0x14c								; case 0x6
00fd 7801       |x   |		Jump	0xff								; case 0x7
00fe 7800       |x   |		Jump	0xff								; case 0x8
00ff e215       |    |		Load	0x1,0x15
0100 0257       | W  |		Execute	Discrete,Raise
0101 00da       |    |		Load_Top	At_Offset_2
0102 8020       |    |		Call	0x0,0x20
0103 e21c       |    |		Load	0x1,0x1c
0104 e021       | !  |		Load	0x0,0x21
0105 e216       |    |		Load	0x1,0x16
0106 0096       |    |		Execute	Package,Entry
0107 7007       |p   |		Jump_Nonzero	0x10f
0108 e21c       |    |		Load	0x1,0x1c
0109 00db       |    |		Load_Top	At_Offset_3
010a 8020       |    |		Call	0x0,0x20
010b e022       | "  |		Load	0x0,0x22
010c e216       |    |		Load	0x1,0x16
010d 0096       |    |		Execute	Package,Entry
010e 00d1       |    |		Pop_Control	Pop_Count_1
010f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0110 00da       |    |		Load_Top	At_Offset_2
0111 8023       | #  |		Call	0x0,0x23
0112 e21f       |    |		Load	0x1,0x1f
0113 e021       | !  |		Load	0x0,0x21
0114 e219       |    |		Load	0x1,0x19
0115 0096       |    |		Execute	Package,Entry
0116 7007       |p   |		Jump_Nonzero	0x11e
0117 e21f       |    |		Load	0x1,0x1f
0118 00db       |    |		Load_Top	At_Offset_3
0119 8023       | #  |		Call	0x0,0x23
011a e022       | "  |		Load	0x0,0x22
011b e219       |    |		Load	0x1,0x19
011c 0096       |    |		Execute	Package,Entry
011d 00d1       |    |		Pop_Control	Pop_Count_1
011e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011f 00da       |    |		Load_Top	At_Offset_2
0120 8024       | $  |		Call	0x0,0x24
0121 e21e       |    |		Load	0x1,0x1e
0122 e021       | !  |		Load	0x0,0x21
0123 e218       |    |		Load	0x1,0x18
0124 0096       |    |		Execute	Package,Entry
0125 7007       |p   |		Jump_Nonzero	0x12d
0126 e21e       |    |		Load	0x1,0x1e
0127 00db       |    |		Load_Top	At_Offset_3
0128 8024       | $  |		Call	0x0,0x24
0129 e022       | "  |		Load	0x0,0x22
012a e218       |    |		Load	0x1,0x18
012b 0096       |    |		Execute	Package,Entry
012c 00d1       |    |		Pop_Control	Pop_Count_1
012d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
012e 00da       |    |		Load_Top	At_Offset_2
012f 8025       | %  |		Call	0x0,0x25
0130 e221       | !  |		Load	0x1,0x21
0131 e021       | !  |		Load	0x0,0x21
0132 e21b       |    |		Load	0x1,0x1b
0133 0096       |    |		Execute	Package,Entry
0134 7007       |p   |		Jump_Nonzero	0x13c
0135 e221       | !  |		Load	0x1,0x21
0136 00db       |    |		Load_Top	At_Offset_3
0137 8025       | %  |		Call	0x0,0x25
0138 e022       | "  |		Load	0x0,0x22
0139 e21b       |    |		Load	0x1,0x1b
013a 0096       |    |		Execute	Package,Entry
013b 00d1       |    |		Pop_Control	Pop_Count_1
013c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
013d 00da       |    |		Load_Top	At_Offset_2
013e 8026       | &  |		Call	0x0,0x26
013f e21d       |    |		Load	0x1,0x1d
0140 e021       | !  |		Load	0x0,0x21
0141 e217       |    |		Load	0x1,0x17
0142 0096       |    |		Execute	Package,Entry
0143 7007       |p   |		Jump_Nonzero	0x14b
0144 e21d       |    |		Load	0x1,0x1d
0145 00db       |    |		Load_Top	At_Offset_3
0146 8026       | &  |		Call	0x0,0x26
0147 e022       | "  |		Load	0x0,0x22
0148 e217       |    |		Load	0x1,0x17
0149 0096       |    |		Execute	Package,Entry
014a 00d1       |    |		Pop_Control	Pop_Count_1
014b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
014c 00da       |    |		Load_Top	At_Offset_2
014d 8027       | '  |		Call	0x0,0x27
014e e220       |    |		Load	0x1,0x20
014f e021       | !  |		Load	0x0,0x21
0150 e21a       |    |		Load	0x1,0x1a
0151 0096       |    |		Execute	Package,Entry
0152 7007       |p   |		Jump_Nonzero	0x15a
0153 e220       |    |		Load	0x1,0x20
0154 00db       |    |		Load_Top	At_Offset_3
0155 8027       | '  |		Call	0x0,0x27
0156 e022       | "  |		Load	0x0,0x22
0157 e21a       |    |		Load	0x1,0x1a
0158 0096       |    |		Execute	Package,Entry
0159 00d1       |    |		Pop_Control	Pop_Count_1
015a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015b 0000       |    |		.XXX[0x1]
015c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0160 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0164 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
0168 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
016c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0170 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
0174 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 801f       |    |		Call	0x0,0x1f
017d e5fe       |    |		Load	0x2,-0x2
017e 801f       |    |		Call	0x0,0x1f
017f 027f       |    |		Execute	Discrete,Equal
0180 6874       |ht  |		Jump_Zero	0x1f5
0181 00da       |    |		Load_Top	At_Offset_2
0182 801f       |    |		Call	0x0,0x1f
0183 4608       |F   |		Jump_Case	0x9
0184 7808       |x   |		Jump	0x18d								; case 0x0
0185 7809       |x   |		Jump	0x18f								; case 0x1
0186 7819       |x   |		Jump	0x1a0								; case 0x2
0187 7829       |x)  |		Jump	0x1b1								; case 0x3
0188 7839       |x9  |		Jump	0x1c2								; case 0x4
0189 7849       |xI  |		Jump	0x1d3								; case 0x5
018a 7859       |xY  |		Jump	0x1e4								; case 0x6
018b 7801       |x   |		Jump	0x18d								; case 0x7
018c 7800       |x   |		Jump	0x18d								; case 0x8
018d e215       |    |		Load	0x1,0x15
018e 0257       | W  |		Execute	Discrete,Raise
018f 00da       |    |		Load_Top	At_Offset_2
0190 8020       |    |		Call	0x0,0x20
0191 e21c       |    |		Load	0x1,0x1c
0192 e021       | !  |		Load	0x0,0x21
0193 e216       |    |		Load	0x1,0x16
0194 0096       |    |		Execute	Package,Entry
0195 6809       |h   |		Jump_Zero	0x19f
0196 e21c       |    |		Load	0x1,0x1c
0197 e5fe       |    |		Load	0x2,-0x2
0198 8020       |    |		Call	0x0,0x20
0199 e5ff       |    |		Load	0x2,-0x1
019a 8020       |    |		Call	0x0,0x20
019b e028       | (  |		Load	0x0,0x28
019c e216       |    |		Load	0x1,0x16
019d 0096       |    |		Execute	Package,Entry
019e 00d1       |    |		Pop_Control	Pop_Count_1
019f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01a0 00da       |    |		Load_Top	At_Offset_2
01a1 8023       | #  |		Call	0x0,0x23
01a2 e21f       |    |		Load	0x1,0x1f
01a3 e021       | !  |		Load	0x0,0x21
01a4 e219       |    |		Load	0x1,0x19
01a5 0096       |    |		Execute	Package,Entry
01a6 6809       |h   |		Jump_Zero	0x1b0
01a7 e21f       |    |		Load	0x1,0x1f
01a8 e5fe       |    |		Load	0x2,-0x2
01a9 8023       | #  |		Call	0x0,0x23
01aa e5ff       |    |		Load	0x2,-0x1
01ab 8023       | #  |		Call	0x0,0x23
01ac e028       | (  |		Load	0x0,0x28
01ad e219       |    |		Load	0x1,0x19
01ae 0096       |    |		Execute	Package,Entry
01af 00d1       |    |		Pop_Control	Pop_Count_1
01b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b1 00da       |    |		Load_Top	At_Offset_2
01b2 8024       | $  |		Call	0x0,0x24
01b3 e21e       |    |		Load	0x1,0x1e
01b4 e021       | !  |		Load	0x0,0x21
01b5 e218       |    |		Load	0x1,0x18
01b6 0096       |    |		Execute	Package,Entry
01b7 6809       |h   |		Jump_Zero	0x1c1
01b8 e21e       |    |		Load	0x1,0x1e
01b9 e5fe       |    |		Load	0x2,-0x2
01ba 8024       | $  |		Call	0x0,0x24
01bb e5ff       |    |		Load	0x2,-0x1
01bc 8024       | $  |		Call	0x0,0x24
01bd e028       | (  |		Load	0x0,0x28
01be e218       |    |		Load	0x1,0x18
01bf 0096       |    |		Execute	Package,Entry
01c0 00d1       |    |		Pop_Control	Pop_Count_1
01c1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01c2 00da       |    |		Load_Top	At_Offset_2
01c3 8025       | %  |		Call	0x0,0x25
01c4 e221       | !  |		Load	0x1,0x21
01c5 e021       | !  |		Load	0x0,0x21
01c6 e21b       |    |		Load	0x1,0x1b
01c7 0096       |    |		Execute	Package,Entry
01c8 682b       |h+  |		Jump_Zero	0x1f4
01c9 e221       | !  |		Load	0x1,0x21
01ca e5fe       |    |		Load	0x2,-0x2
01cb 8025       | %  |		Call	0x0,0x25
01cc e5ff       |    |		Load	0x2,-0x1
01cd 8025       | %  |		Call	0x0,0x25
01ce e028       | (  |		Load	0x0,0x28
01cf e21b       |    |		Load	0x1,0x1b
01d0 0096       |    |		Execute	Package,Entry
01d1 00d1       |    |		Pop_Control	Pop_Count_1
01d2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 8026       | &  |		Call	0x0,0x26
01d5 e21d       |    |		Load	0x1,0x1d
01d6 e021       | !  |		Load	0x0,0x21
01d7 e217       |    |		Load	0x1,0x17
01d8 0096       |    |		Execute	Package,Entry
01d9 681a       |h   |		Jump_Zero	0x1f4
01da e21d       |    |		Load	0x1,0x1d
01db e5fe       |    |		Load	0x2,-0x2
01dc 8026       | &  |		Call	0x0,0x26
01dd e5ff       |    |		Load	0x2,-0x1
01de 8026       | &  |		Call	0x0,0x26
01df e028       | (  |		Load	0x0,0x28
01e0 e217       |    |		Load	0x1,0x17
01e1 0096       |    |		Execute	Package,Entry
01e2 00d1       |    |		Pop_Control	Pop_Count_1
01e3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e4 00da       |    |		Load_Top	At_Offset_2
01e5 8027       | '  |		Call	0x0,0x27
01e6 e220       |    |		Load	0x1,0x20
01e7 e021       | !  |		Load	0x0,0x21
01e8 e21a       |    |		Load	0x1,0x1a
01e9 0096       |    |		Execute	Package,Entry
01ea 6809       |h   |		Jump_Zero	0x1f4
01eb e220       |    |		Load	0x1,0x20
01ec e5fe       |    |		Load	0x2,-0x2
01ed 8027       | '  |		Call	0x0,0x27
01ee e5ff       |    |		Load	0x2,-0x1
01ef 8027       | '  |		Call	0x0,0x27
01f0 e028       | (  |		Load	0x0,0x28
01f1 e21a       |    |		Load	0x1,0x1a
01f2 0096       |    |		Execute	Package,Entry
01f3 00d1       |    |		Pop_Control	Pop_Count_1
01f4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f5 e215       |    |		Load	0x1,0x15
01f6 0257       | W  |		Execute	Discrete,Raise
01f7 0000       |    |		.XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 801f       |    |		Call	0x0,0x1f
01fd 4608       |F   |		Jump_Case	0x9
01fe 7808       |x   |		Jump	0x207								; case 0x0
01ff 7809       |x   |		Jump	0x209								; case 0x1
0200 7817       |x   |		Jump	0x218								; case 0x2
0201 7825       |x%  |		Jump	0x227								; case 0x3
0202 7833       |x3  |		Jump	0x236								; case 0x4
0203 7841       |xA  |		Jump	0x245								; case 0x5
0204 784f       |xO  |		Jump	0x254								; case 0x6
0205 7801       |x   |		Jump	0x207								; case 0x7
0206 7800       |x   |		Jump	0x207								; case 0x8
0207 e215       |    |		Load	0x1,0x15
0208 0257       | W  |		Execute	Discrete,Raise
0209 00da       |    |		Load_Top	At_Offset_2
020a 8020       |    |		Call	0x0,0x20
020b e21c       |    |		Load	0x1,0x1c
020c e021       | !  |		Load	0x0,0x21
020d e216       |    |		Load	0x1,0x16
020e 0096       |    |		Execute	Package,Entry
020f 6807       |h   |		Jump_Zero	0x217
0210 e21c       |    |		Load	0x1,0x1c
0211 00db       |    |		Load_Top	At_Offset_3
0212 8020       |    |		Call	0x0,0x20
0213 e029       | )  |		Load	0x0,0x29
0214 e216       |    |		Load	0x1,0x16
0215 0096       |    |		Execute	Package,Entry
0216 00d1       |    |		Pop_Control	Pop_Count_1
0217 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0218 00da       |    |		Load_Top	At_Offset_2
0219 8023       | #  |		Call	0x0,0x23
021a e21f       |    |		Load	0x1,0x1f
021b e021       | !  |		Load	0x0,0x21
021c e219       |    |		Load	0x1,0x19
021d 0096       |    |		Execute	Package,Entry
021e 6807       |h   |		Jump_Zero	0x226
021f e21f       |    |		Load	0x1,0x1f
0220 00db       |    |		Load_Top	At_Offset_3
0221 8023       | #  |		Call	0x0,0x23
0222 e029       | )  |		Load	0x0,0x29
0223 e219       |    |		Load	0x1,0x19
0224 0096       |    |		Execute	Package,Entry
0225 00d1       |    |		Pop_Control	Pop_Count_1
0226 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0227 00da       |    |		Load_Top	At_Offset_2
0228 8024       | $  |		Call	0x0,0x24
0229 e21e       |    |		Load	0x1,0x1e
022a e021       | !  |		Load	0x0,0x21
022b e218       |    |		Load	0x1,0x18
022c 0096       |    |		Execute	Package,Entry
022d 6807       |h   |		Jump_Zero	0x235
022e e21e       |    |		Load	0x1,0x1e
022f 00db       |    |		Load_Top	At_Offset_3
0230 8024       | $  |		Call	0x0,0x24
0231 e029       | )  |		Load	0x0,0x29
0232 e218       |    |		Load	0x1,0x18
0233 0096       |    |		Execute	Package,Entry
0234 00d1       |    |		Pop_Control	Pop_Count_1
0235 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0236 00da       |    |		Load_Top	At_Offset_2
0237 8025       | %  |		Call	0x0,0x25
0238 e221       | !  |		Load	0x1,0x21
0239 e021       | !  |		Load	0x0,0x21
023a e21b       |    |		Load	0x1,0x1b
023b 0096       |    |		Execute	Package,Entry
023c 6807       |h   |		Jump_Zero	0x244
023d e221       | !  |		Load	0x1,0x21
023e 00db       |    |		Load_Top	At_Offset_3
023f 8025       | %  |		Call	0x0,0x25
0240 e029       | )  |		Load	0x0,0x29
0241 e21b       |    |		Load	0x1,0x1b
0242 0096       |    |		Execute	Package,Entry
0243 00d1       |    |		Pop_Control	Pop_Count_1
0244 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0245 00da       |    |		Load_Top	At_Offset_2
0246 8026       | &  |		Call	0x0,0x26
0247 e21d       |    |		Load	0x1,0x1d
0248 e021       | !  |		Load	0x0,0x21
0249 e217       |    |		Load	0x1,0x17
024a 0096       |    |		Execute	Package,Entry
024b 6807       |h   |		Jump_Zero	0x253
024c e21d       |    |		Load	0x1,0x1d
024d 00db       |    |		Load_Top	At_Offset_3
024e 8026       | &  |		Call	0x0,0x26
024f e029       | )  |		Load	0x0,0x29
0250 e217       |    |		Load	0x1,0x17
0251 0096       |    |		Execute	Package,Entry
0252 00d1       |    |		Pop_Control	Pop_Count_1
0253 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0254 00da       |    |		Load_Top	At_Offset_2
0255 8027       | '  |		Call	0x0,0x27
0256 e220       |    |		Load	0x1,0x20
0257 e021       | !  |		Load	0x0,0x21
0258 e21a       |    |		Load	0x1,0x1a
0259 0096       |    |		Execute	Package,Entry
025a 6807       |h   |		Jump_Zero	0x262
025b e220       |    |		Load	0x1,0x20
025c 00db       |    |		Load_Top	At_Offset_3
025d 8027       | '  |		Call	0x0,0x27
025e e029       | )  |		Load	0x0,0x29
025f e21a       |    |		Load	0x1,0x1a
0260 0096       |    |		Execute	Package,Entry
0261 00d1       |    |		Pop_Control	Pop_Count_1
0262 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0263 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
026c 4608       |F   |		Jump_Case	0x9
026d 7808       |x   |		Jump	0x276								; case 0x0
026e 7809       |x   |		Jump	0x278								; case 0x1
026f 780f       |x   |		Jump	0x27f								; case 0x2
0270 7815       |x   |		Jump	0x286								; case 0x3
0271 781b       |x   |		Jump	0x28d								; case 0x4
0272 7821       |x!  |		Jump	0x294								; case 0x5
0273 7827       |x'  |		Jump	0x29b								; case 0x6
0274 7801       |x   |		Jump	0x276								; case 0x7
0275 7800       |x   |		Jump	0x276								; case 0x8
0276 e215       |    |		Load	0x1,0x15
0277 0257       | W  |		Execute	Discrete,Raise
0278 e21c       |    |		Load	0x1,0x1c
0279 e02a       | *  |		Load	0x0,0x2a
027a e216       |    |		Load	0x1,0x16
027b 0096       |    |		Execute	Package,Entry
027c e222       | "  |		Load	0x1,0x22
027d 017d       | }  |		Execute	Record,Structure_Write
027e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
027f e21f       |    |		Load	0x1,0x1f
0280 e02a       | *  |		Load	0x0,0x2a
0281 e219       |    |		Load	0x1,0x19
0282 0096       |    |		Execute	Package,Entry
0283 e225       | %  |		Load	0x1,0x25
0284 017d       | }  |		Execute	Record,Structure_Write
0285 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0286 e21e       |    |		Load	0x1,0x1e
0287 e02a       | *  |		Load	0x0,0x2a
0288 e218       |    |		Load	0x1,0x18
0289 0096       |    |		Execute	Package,Entry
028a e224       | $  |		Load	0x1,0x24
028b 017d       | }  |		Execute	Record,Structure_Write
028c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
028d e221       | !  |		Load	0x1,0x21
028e e02a       | *  |		Load	0x0,0x2a
028f e21b       |    |		Load	0x1,0x1b
0290 0096       |    |		Execute	Package,Entry
0291 e227       | '  |		Load	0x1,0x27
0292 017d       | }  |		Execute	Record,Structure_Write
0293 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0294 e21d       |    |		Load	0x1,0x1d
0295 e02a       | *  |		Load	0x0,0x2a
0296 e217       |    |		Load	0x1,0x17
0297 0096       |    |		Execute	Package,Entry
0298 e223       | #  |		Load	0x1,0x23
0299 017d       | }  |		Execute	Record,Structure_Write
029a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
029b e220       |    |		Load	0x1,0x20
029c e02a       | *  |		Load	0x0,0x2a
029d e21a       |    |		Load	0x1,0x1a
029e 0096       |    |		Execute	Package,Entry
029f e226       | &  |		Load	0x1,0x26
02a0 017d       | }  |		Execute	Record,Structure_Write
02a1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a2 0000 0000  |    |		.BLANK	0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 4608       |F   |		Jump_Case	0x9
02ad 7808       |x   |		Jump	0x2b6								; case 0x0
02ae 7809       |x   |		Jump	0x2b8								; case 0x1
02af 7810       |x   |		Jump	0x2c0								; case 0x2
02b0 7817       |x   |		Jump	0x2c8								; case 0x3
02b1 781e       |x   |		Jump	0x2d0								; case 0x4
02b2 7825       |x%  |		Jump	0x2d8								; case 0x5
02b3 782c       |x,  |		Jump	0x2e0								; case 0x6
02b4 7801       |x   |		Jump	0x2b6								; case 0x7
02b5 7800       |x   |		Jump	0x2b6								; case 0x8
02b6 e215       |    |		Load	0x1,0x15
02b7 0257       | W  |		Execute	Discrete,Raise
02b8 00db       |    |		Load_Top	At_Offset_3
02b9 e21c       |    |		Load	0x1,0x1c
02ba e02b       | +  |		Load	0x0,0x2b
02bb e216       |    |		Load	0x1,0x16
02bc 0096       |    |		Execute	Package,Entry
02bd e222       | "  |		Load	0x1,0x22
02be 017d       | }  |		Execute	Record,Structure_Write
02bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c0 00db       |    |		Load_Top	At_Offset_3
02c1 e21f       |    |		Load	0x1,0x1f
02c2 e02b       | +  |		Load	0x0,0x2b
02c3 e219       |    |		Load	0x1,0x19
02c4 0096       |    |		Execute	Package,Entry
02c5 e225       | %  |		Load	0x1,0x25
02c6 017d       | }  |		Execute	Record,Structure_Write
02c7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c8 00db       |    |		Load_Top	At_Offset_3
02c9 e21e       |    |		Load	0x1,0x1e
02ca e02b       | +  |		Load	0x0,0x2b
02cb e218       |    |		Load	0x1,0x18
02cc 0096       |    |		Execute	Package,Entry
02cd e224       | $  |		Load	0x1,0x24
02ce 017d       | }  |		Execute	Record,Structure_Write
02cf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d0 00db       |    |		Load_Top	At_Offset_3
02d1 e221       | !  |		Load	0x1,0x21
02d2 e02b       | +  |		Load	0x0,0x2b
02d3 e21b       |    |		Load	0x1,0x1b
02d4 0096       |    |		Execute	Package,Entry
02d5 e227       | '  |		Load	0x1,0x27
02d6 017d       | }  |		Execute	Record,Structure_Write
02d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d8 00db       |    |		Load_Top	At_Offset_3
02d9 e21d       |    |		Load	0x1,0x1d
02da e02b       | +  |		Load	0x0,0x2b
02db e217       |    |		Load	0x1,0x17
02dc 0096       |    |		Execute	Package,Entry
02dd e223       | #  |		Load	0x1,0x23
02de 017d       | }  |		Execute	Record,Structure_Write
02df 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e0 00db       |    |		Load_Top	At_Offset_3
02e1 e220       |    |		Load	0x1,0x20
02e2 e02b       | +  |		Load	0x0,0x2b
02e3 e21a       |    |		Load	0x1,0x1a
02e4 0096       |    |		Execute	Package,Entry
02e5 e226       | &  |		Load	0x1,0x26
02e6 017d       | }  |		Execute	Record,Structure_Write
02e7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 4608       |F   |		Jump_Case	0x9
02ed 7808       |x   |		Jump	0x2f6								; case 0x0
02ee 7809       |x   |		Jump	0x2f8								; case 0x1
02ef 780f       |x   |		Jump	0x2ff								; case 0x2
02f0 7815       |x   |		Jump	0x306								; case 0x3
02f1 781b       |x   |		Jump	0x30d								; case 0x4
02f2 7821       |x!  |		Jump	0x314								; case 0x5
02f3 7827       |x'  |		Jump	0x31b								; case 0x6
02f4 7801       |x   |		Jump	0x2f6								; case 0x7
02f5 7800       |x   |		Jump	0x2f6								; case 0x8
02f6 e215       |    |		Load	0x1,0x15
02f7 0257       | W  |		Execute	Discrete,Raise
02f8 e222       | "  |		Load	0x1,0x22
02f9 e21c       |    |		Load	0x1,0x1c
02fa e02c       | ,  |		Load	0x0,0x2c
02fb e216       |    |		Load	0x1,0x16
02fc 0096       |    |		Execute	Package,Entry
02fd 00d1       |    |		Pop_Control	Pop_Count_1
02fe 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ff e225       | %  |		Load	0x1,0x25
0300 e21f       |    |		Load	0x1,0x1f
0301 e02c       | ,  |		Load	0x0,0x2c
0302 e219       |    |		Load	0x1,0x19
0303 0096       |    |		Execute	Package,Entry
0304 00d1       |    |		Pop_Control	Pop_Count_1
0305 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0306 e224       | $  |		Load	0x1,0x24
0307 e21e       |    |		Load	0x1,0x1e
0308 e02c       | ,  |		Load	0x0,0x2c
0309 e218       |    |		Load	0x1,0x18
030a 0096       |    |		Execute	Package,Entry
030b 00d1       |    |		Pop_Control	Pop_Count_1
030c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
030d e227       | '  |		Load	0x1,0x27
030e e221       | !  |		Load	0x1,0x21
030f e02c       | ,  |		Load	0x0,0x2c
0310 e21b       |    |		Load	0x1,0x1b
0311 0096       |    |		Execute	Package,Entry
0312 00d1       |    |		Pop_Control	Pop_Count_1
0313 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0314 e223       | #  |		Load	0x1,0x23
0315 e21d       |    |		Load	0x1,0x1d
0316 e02c       | ,  |		Load	0x0,0x2c
0317 e217       |    |		Load	0x1,0x17
0318 0096       |    |		Execute	Package,Entry
0319 00d1       |    |		Pop_Control	Pop_Count_1
031a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
031b e226       | &  |		Load	0x1,0x26
031c e220       |    |		Load	0x1,0x20
031d e02c       | ,  |		Load	0x0,0x2c
031e e21a       |    |		Load	0x1,0x1a
031f 0096       |    |		Execute	Package,Entry
0320 00d1       |    |		Pop_Control	Pop_Count_1
0321 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0322 0000 0000  |    |		.BLANK	0000[0x6]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032f       | /  |		.CONST	0x032f								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0002       |    |		.CONST	0x0002								; Number of locals
032b			INIT_0328:
032b e02d       | -  |		Load	0x0,0x2d
032c 02ff       |    |		Declare_Variable	Variant_Record
032d 00d8       |    |		Load_Top	At_Offset_0
032e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
032f			BODY_0328:
032f 00db       |    |		Load_Top	At_Offset_3
0330 4608       |F   |		Jump_Case	0x9
0331 7808       |x   |		Jump	0x33a								; case 0x0
0332 7809       |x   |		Jump	0x33c								; case 0x1
0333 7811       |x   |		Jump	0x345								; case 0x2
0334 7819       |x   |		Jump	0x34e								; case 0x3
0335 7821       |x!  |		Jump	0x357								; case 0x4
0336 7829       |x)  |		Jump	0x360								; case 0x5
0337 7831       |x1  |		Jump	0x369								; case 0x6
0338 7801       |x   |		Jump	0x33a								; case 0x7
0339 7800       |x   |		Jump	0x33a								; case 0x8
033a e215       |    |		Load	0x1,0x15
033b 0257       | W  |		Execute	Discrete,Raise
033c 00d8       |    |		Load_Top	At_Offset_0
033d e21c       |    |		Load	0x1,0x1c
033e e222       | "  |		Load	0x1,0x22
033f e02e       | .  |		Load	0x0,0x2e
0340 e216       |    |		Load	0x1,0x16
0341 0096       |    |		Execute	Package,Entry
0342 802f       | /  |		Call	0x0,0x2f
0343 00d1       |    |		Pop_Control	Pop_Count_1
0344 782c       |x,  |		Jump	0x371
0345 00d8       |    |		Load_Top	At_Offset_0
0346 e21f       |    |		Load	0x1,0x1f
0347 e225       | %  |		Load	0x1,0x25
0348 e02e       | .  |		Load	0x0,0x2e
0349 e219       |    |		Load	0x1,0x19
034a 0096       |    |		Execute	Package,Entry
034b 8030       | 0  |		Call	0x0,0x30
034c 00d1       |    |		Pop_Control	Pop_Count_1
034d 7823       |x#  |		Jump	0x371
034e 00d8       |    |		Load_Top	At_Offset_0
034f e21e       |    |		Load	0x1,0x1e
0350 e224       | $  |		Load	0x1,0x24
0351 e02e       | .  |		Load	0x0,0x2e
0352 e218       |    |		Load	0x1,0x18
0353 0096       |    |		Execute	Package,Entry
0354 8031       | 1  |		Call	0x0,0x31
0355 00d1       |    |		Pop_Control	Pop_Count_1
0356 781a       |x   |		Jump	0x371
0357 00d8       |    |		Load_Top	At_Offset_0
0358 e221       | !  |		Load	0x1,0x21
0359 e227       | '  |		Load	0x1,0x27
035a e02e       | .  |		Load	0x0,0x2e
035b e21b       |    |		Load	0x1,0x1b
035c 0096       |    |		Execute	Package,Entry
035d 8032       | 2  |		Call	0x0,0x32
035e 00d1       |    |		Pop_Control	Pop_Count_1
035f 7811       |x   |		Jump	0x371
0360 00d8       |    |		Load_Top	At_Offset_0
0361 e21d       |    |		Load	0x1,0x1d
0362 e223       | #  |		Load	0x1,0x23
0363 e02e       | .  |		Load	0x0,0x2e
0364 e217       |    |		Load	0x1,0x17
0365 0096       |    |		Execute	Package,Entry
0366 8033       | 3  |		Call	0x0,0x33
0367 00d1       |    |		Pop_Control	Pop_Count_1
0368 7808       |x   |		Jump	0x371
0369 00d8       |    |		Load_Top	At_Offset_0
036a e220       |    |		Load	0x1,0x20
036b e226       | &  |		Load	0x1,0x26
036c e02e       | .  |		Load	0x0,0x2e
036d e21a       |    |		Load	0x1,0x1a
036e 0096       |    |		Execute	Package,Entry
036f 8034       | 4  |		Call	0x0,0x34
0370 00d1       |    |		Pop_Control	Pop_Count_1
0371 00d8       |    |		Load_Top	At_Offset_0
0372 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0373 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
037c 4608       |F   |		Jump_Case	0x9
037d 7808       |x   |		Jump	0x386								; case 0x0
037e 7809       |x   |		Jump	0x388								; case 0x1
037f 780d       |x   |		Jump	0x38d								; case 0x2
0380 7811       |x   |		Jump	0x392								; case 0x3
0381 7815       |x   |		Jump	0x397								; case 0x4
0382 7819       |x   |		Jump	0x39c								; case 0x5
0383 781d       |x   |		Jump	0x3a1								; case 0x6
0384 7801       |x   |		Jump	0x386								; case 0x7
0385 7800       |x   |		Jump	0x386								; case 0x8
0386 e215       |    |		Load	0x1,0x15
0387 0257       | W  |		Execute	Discrete,Raise
0388 e222       | "  |		Load	0x1,0x22
0389 e035       | 5  |		Load	0x0,0x35
038a e216       |    |		Load	0x1,0x16
038b 0096       |    |		Execute	Package,Entry
038c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038d e225       | %  |		Load	0x1,0x25
038e e035       | 5  |		Load	0x0,0x35
038f e219       |    |		Load	0x1,0x19
0390 0096       |    |		Execute	Package,Entry
0391 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0392 e224       | $  |		Load	0x1,0x24
0393 e035       | 5  |		Load	0x0,0x35
0394 e218       |    |		Load	0x1,0x18
0395 0096       |    |		Execute	Package,Entry
0396 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0397 e227       | '  |		Load	0x1,0x27
0398 e035       | 5  |		Load	0x0,0x35
0399 e21b       |    |		Load	0x1,0x1b
039a 0096       |    |		Execute	Package,Entry
039b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
039c e223       | #  |		Load	0x1,0x23
039d e035       | 5  |		Load	0x0,0x35
039e e217       |    |		Load	0x1,0x17
039f 0096       |    |		Execute	Package,Entry
03a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a1 e226       | &  |		Load	0x1,0x26
03a2 e035       | 5  |		Load	0x0,0x35
03a3 e21a       |    |		Load	0x1,0x1a
03a4 0096       |    |		Execute	Package,Entry
03a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a6 0000 0000  |    |		.XXX[0x2]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug Table
03a8 ; --------------------------------------------------------------------------------------
03a8 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x851a,0x0000,0x0001,0x000a
03ae 000b 03d6  |    |		.DBG4T	0x000b,0x03d6,0x8000,0x8000
03b2 0021 03ea  | !  |		.DBG4T	0x0021,0x03ea,0x8000,0x8000
03b6 00f3 0426  |   &|		.DBG4T	0x00f3,0x0426,0x0001,0x4000
03ba 017b 0444  | { D|		.DBG4T	0x017b,0x0444,0x0001,0x4000
03be 01fb 0466  |   f|		.DBG4T	0x01fb,0x0466,0x0001,0x4000
03c2 026b 0484  | k  |		.DBG4T	0x026b,0x0484,0x0001,0x4000
03c6 02ab 0496  |    |		.DBG4T	0x02ab,0x0496,0x0001,0x4000
03ca 02eb 04a8  |    |		.DBG4T	0x02eb,0x04a8,0x0001,0x4000
03ce 032b 04ba  | +  |		.DBG4T	0x032b,0x04ba,0x0002,0x4000
03d2 037b 04cf  | {  |		.DBG4T	0x037b,0x04cf,0x0002,0x4000
03d6 ; --------------------------------------------------------------------------------------
03d6 ; Debug chain
03d6 ; --------------------------------------------------------------------------------------
03d6 0009 0000  |    |		.DBGLEN	0x0009,0x0000
03d8 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b
03e1 0007 0008  |    |		.XXX[0x9]
03e3 0009 000a  |    |
03e5 000b 000c  |    |
03e7 000d 000e  |    |
03e9 000f       |    |
03ea ; --------------------------------------------------------------------------------------
03ea ; Debug chain
03ea ; --------------------------------------------------------------------------------------
03ea 001a 0006  |    |		.DBGLEN	0x001a,0x0006
03ec 0021 0032  | ! 2|		.DBGLNO	0x0021,0x0032,0x0043,0x0054,0x0065,0x0076,0x0087,0x008b,0x008f,0x0093,0x0099,0x009d,0x00a1,0x00a5,0x00a9,0x00ad,0x00b1,0x00b5,0x00b9,0x00bb,0x00bd,0x00bf,0x00c1,0x00c3,0x00c5,0x00c7,0x00c9,0x00ce,0x00d3,0x00d8,0x00dd,0x00e2
040c 0002 0003  |    |		.XXX[0x1a]
040e 0004 0005  |    |
0410 0006 0007  |    |
0412 0008 0009  |    |
0414 000a 000b  |    |
0416 000c 000d  |    |
0418 000e 000f  |    |
041a 0010 0011  |    |
041c 0012 0013  |    |
041e 0014 0015  |    |
0420 0016 0017  |    |
0422 0018 0019  |    |
0424 001a 001b  |    |
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug chain
0426 ; --------------------------------------------------------------------------------------
0426 0000 000e  |    |		.DBGLEN	0x0000,0x000e
0428 00f3 00ff  |    |		.DBGLNO	0x00f3,0x00ff,0x0101,0x0108,0x0110,0x0117,0x011f,0x0126,0x012e,0x0135,0x013d,0x0144,0x014c,0x0153
0436 0001 000e  |    |		.XXX[0xe]
0438 0002 0003  |    |
043a 0004 0005  |    |
043c 0006 0007  |    |
043e 0008 0009  |    |
0440 000a 000b  |    |
0442 000c 000d  |    |
0444 ; --------------------------------------------------------------------------------------
0444 ; Debug chain
0444 ; --------------------------------------------------------------------------------------
0444 0000 0010  |    |		.DBGLEN	0x0000,0x0010
0446 017b 0181  | {  |		.DBGLNO	0x017b,0x0181,0x018d,0x018f,0x0196,0x01a0,0x01a7,0x01b1,0x01b8,0x01c2,0x01c9,0x01d3,0x01da,0x01e4,0x01eb,0x01f5
0456 0001 0002  |    |		.XXX[0x10]
0458 000f 0003  |    |
045a 0004 0005  |    |
045c 0006 0007  |    |
045e 0008 0009  |    |
0460 000a 000b  |    |
0462 000c 000d  |    |
0464 000e 0010  |    |
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug chain
0466 ; --------------------------------------------------------------------------------------
0466 0000 000e  |    |		.DBGLEN	0x0000,0x000e
0468 01fb 0207  |    |		.DBGLNO	0x01fb,0x0207,0x0209,0x0210,0x0218,0x021f,0x0227,0x022e,0x0236,0x023d,0x0245,0x024c,0x0254,0x025b
0476 0001 000e  |    |		.XXX[0xe]
0478 0002 0003  |    |
047a 0004 0005  |    |
047c 0006 0007  |    |
047e 0008 0009  |    |
0480 000a 000b  |    |
0482 000c 000d  |    |
0484 ; --------------------------------------------------------------------------------------
0484 ; Debug chain
0484 ; --------------------------------------------------------------------------------------
0484 0000 0008  |    |		.DBGLEN	0x0000,0x0008
0486 026b 0276  | k v|		.DBGLNO	0x026b,0x0276,0x0278,0x027f,0x0286,0x028d,0x0294,0x029b
048e 0001 0008  |    |		.XXX[0x8]
0490 0002 0003  |    |
0492 0004 0005  |    |
0494 0006 0007  |    |
0496 ; --------------------------------------------------------------------------------------
0496 ; Debug chain
0496 ; --------------------------------------------------------------------------------------
0496 0000 0008  |    |		.DBGLEN	0x0000,0x0008
0498 02ab 02b6  |    |		.DBGLNO	0x02ab,0x02b6,0x02b8,0x02c0,0x02c8,0x02d0,0x02d8,0x02e0
04a0 0001 0008  |    |		.XXX[0x8]
04a2 0002 0003  |    |
04a4 0004 0005  |    |
04a6 0006 0007  |    |
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug chain
04a8 ; --------------------------------------------------------------------------------------
04a8 0000 0008  |    |		.DBGLEN	0x0000,0x0008
04aa 02eb 02f6  |    |		.DBGLNO	0x02eb,0x02f6,0x02f8,0x02ff,0x0306,0x030d,0x0314,0x031b
04b2 0001 0008  |    |		.XXX[0x8]
04b4 0002 0003  |    |
04b6 0004 0005  |    |
04b8 0006 0007  |    |
04ba ; --------------------------------------------------------------------------------------
04ba ; Debug chain
04ba ; --------------------------------------------------------------------------------------
04ba 0001 0009  |    |		.DBGLEN	0x0001,0x0009
04bc 032b 032f  | + /|		.DBGLNO	0x032b,0x032f,0x033a,0x033c,0x0345,0x034e,0x0357,0x0360,0x0369,0x0371
04c6 0001 0008  |    |		.XXX[0x9]
04c8 0002 0003  |    |
04ca 0004 0005  |    |
04cc 0006 0007  |    |
04ce 0009       |    |
04cf ; --------------------------------------------------------------------------------------
04cf ; Debug chain
04cf ; --------------------------------------------------------------------------------------
04cf 0000 0008  |    |		.DBGLEN	0x0000,0x0008
04d1 037b 0386  | {  |		.DBGLNO	0x037b,0x0386,0x0388,0x038d,0x0392,0x0397,0x039c,0x03a1
04d9 0001 0008  |    |		.XXX[0x8]
04db 0002 0003  |    |
04dd 0004 0005  |    |
04df 0006 0007  |    |
04e1 0000 0000  |    |		.BLANK	0000[0x11f]