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

⟦aaec4b5d1⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0580       |    |		.CONST	0x0580								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00e5       |    |		.CONST	0x00e5								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003b       | ;  |		.CONST	0x003b								; Number of locals
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache
000c 0129       | )  |		Execute	Any,Make_Visible
000d 00e9       |    |		Load_Encached	String_Cache
000e 0129       | )  |		Execute	Any,Make_Visible
000f 00e9       |    |		Load_Encached	String_Cache
0010 02a0       |    |		Declare_Subprogram	Null_Subprogram
0011 4818       |H   |		Short_Literal	0x18
0012 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 e001       |    |		Load	0x0,0x1
0037 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0038 0129       | )  |		Execute	Any,Make_Visible
0039 c225       | %  |		Store	0x1,0x25
003a 4800       |H   |		Short_Literal	0x0
003b 4815       |H   |		Short_Literal	0x15
003c 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
003e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
003f c231       | 1  |		Store	0x1,0x31
0040 4800       |H   |		Short_Literal	0x0
0041 4805       |H   |		Short_Literal	0x5
0042 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0044 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0045 c232       | 2  |		Store	0x1,0x32
0046 4818       |H   |		Short_Literal	0x18
0047 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0048 c212       |    |		Store	0x1,0x12
0049 4800       |H   |		Short_Literal	0x0
004a 4803       |H   |		Short_Literal	0x3
004b 00e3       |    |		Load_Encached	Natural_Cache
004c 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
004d c213       |    |		Store	0x1,0x13
004e 4801       |H   |		Short_Literal	0x1
004f 4803       |H   |		Short_Literal	0x3
0050 e20f       |    |		Load	0x1,0xf
0051 02a0       |    |		Declare_Subprogram	Null_Subprogram
0052 4801       |H   |		Short_Literal	0x1
0053 035e       | ^  |		Declare_Type	Array,Defined,Visible
0054 c214       |    |		Store	0x1,0x14
0055 e002       |    |		Load	0x0,0x2
0056 0129       | )  |		Execute	Any,Make_Visible
0057 c229       | )  |		Store	0x1,0x29
0058 e003       |    |		Load	0x0,0x3
0059 0129       | )  |		Execute	Any,Make_Visible
005a c22a       | *  |		Store	0x1,0x2a
005b e004       |    |		Load	0x0,0x4
005c 0129       | )  |		Execute	Any,Make_Visible
005d c22b       | +  |		Store	0x1,0x2b
005e 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0060 c220       |    |		Store	0x1,0x20
0061 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0063 c22c       | ,  |		Store	0x1,0x2c
0064 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0066 c22e       | .  |		Store	0x1,0x2e
0067 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0069 c230       | 0  |		Store	0x1,0x30
006a 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
006c c228       | (  |		Store	0x1,0x28
006d 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
006f c22f       | /  |		Store	0x1,0x2f
0070 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0072 c21e       |    |		Store	0x1,0x1e
0073 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0075 c21f       |    |		Store	0x1,0x1f
0076 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0078 c222       | "  |		Store	0x1,0x22
0079 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
007b c223       | #  |		Store	0x1,0x23
007c 4809       |H   |		Short_Literal	0x9
007d 032a       | *  |		Declare_Type	Record,Incomplete
007e c21c       |    |		Store	0x1,0x1c
007f e21c       |    |		Load	0x1,0x1c
0080 02a0       |    |		Declare_Subprogram	Null_Subprogram
0081 e212       |    |		Load	0x1,0x12
0082 03c7       |    |		Complete_Type	Access,By_Defining
0083 00bf       |    |		Action	Accept_Activation
0084 00e3       |    |		Load_Encached	Natural_Cache
0085 e225       | %  |		Load	0x1,0x25
0086 00e1       |    |		Load_Encached	Boolean_Cache
0087 e20f       |    |		Load	0x1,0xf
0088 00d8       |    |		Load_Top	At_Offset_0
0089 e20f       |    |		Load	0x1,0xf
008a e231       | 1  |		Load	0x1,0x31
008b e20d       |    |		Load	0x1,0xd
008c 00d8       |    |		Load_Top	At_Offset_0
008d e001       |    |		Load	0x0,0x1
008e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008f 029f 0373  |   s|		Declare_Subprogram	INIT_0370,For_Call
0091 4809       |H   |		Short_Literal	0x9
0092 032d       | -  |		Declare_Type	Record,Defined
0093 00da       |    |		Load_Top	At_Offset_2
0094 00da       |    |		Load_Top	At_Offset_2
0095 00db       |    |		Load_Top	At_Offset_3
0096 02a0       |    |		Declare_Subprogram	Null_Subprogram
0097 4803       |H   |		Short_Literal	0x3
0098 032d       | -  |		Declare_Type	Record,Defined
0099 e005       |    |		Load	0x0,0x5
009a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009b 00db       |    |		Load_Top	At_Offset_3
009c 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
009e 4802       |H   |		Short_Literal	0x2
009f 032d       | -  |		Declare_Type	Record,Defined
00a0 e001       |    |		Load	0x0,0x1
00a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a2 02c7       |    |		Declare_Variable	Any
00a3 e006       |    |		Load	0x0,0x6
00a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00a6 a237       | 7  |		Store_Unchecked	0x1,0x37
00a7 e007       |    |		Load	0x0,0x7
00a8 e008       |    |		Load	0x0,0x8
00a9 49f4       |I   |		Short_Literal	0x1f4
00aa e236       | 6  |		Load	0x1,0x36
00ab 4800       |H   |		Short_Literal	0x0
00ac e009       |    |		Load	0x0,0x9
00ad 0387       |    |		Declare_Variable	Package
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 020f       |    |		Execute	Module,Activate
00b0 e00a       |    |		Load	0x0,0xa
00b1 e00b       |    |		Load	0x0,0xb
00b2 e234       | 4  |		Load	0x1,0x34
00b3 e00c       |    |		Load	0x0,0xc
00b4 0387       |    |		Declare_Variable	Package
00b5 00d8       |    |		Load_Top	At_Offset_0
00b6 020f       |    |		Execute	Module,Activate
00b7 e00d       |    |		Load	0x0,0xd
00b8 e00e       |    |		Load	0x0,0xe
00b9 e235       | 5  |		Load	0x1,0x35
00ba e00c       |    |		Load	0x0,0xc
00bb 0387       |    |		Declare_Variable	Package
00bc 00d8       |    |		Load_Top	At_Offset_0
00bd 020f       |    |		Execute	Module,Activate
00be e20f       |    |		Load	0x1,0xf
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 e20f       |    |		Load	0x1,0xf
00c1 e238       | 8  |		Load	0x1,0x38
00c2 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00c3 e239       | 9  |		Load	0x1,0x39
00c4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00c5 e23a       | :  |		Load	0x1,0x3a
00c6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00c7 e005       |    |		Load	0x0,0x5
00c8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c9 00e3       |    |		Load_Encached	Natural_Cache
00ca 00e3       |    |		Load_Encached	Natural_Cache
00cb 029f 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Call
00cd e21c       |    |		Load	0x1,0x1c
00ce 0326       | &  |		Complete_Type	Record,By_Defining
00cf 029d 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call
00d1 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00d2 00c7       |    |		Action	Elaborate_Subprogram
00d3 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00d4 00c7       |    |		Action	Elaborate_Subprogram
00d5 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00d6 00c7       |    |		Action	Elaborate_Subprogram
00d7 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00d8 00c7       |    |		Action	Elaborate_Subprogram
00d9 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00da 00c7       |    |		Action	Elaborate_Subprogram
00db 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00dc 00c7       |    |		Action	Elaborate_Subprogram
00dd 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00de 00c7       |    |		Action	Elaborate_Subprogram
00df 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00e0 00c7       |    |		Action	Elaborate_Subprogram
00e1 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00e2 00c7       |    |		Action	Elaborate_Subprogram
00e3 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00e4 00c7       |    |		Action	Elaborate_Subprogram
00e5			BODY_0008:
00e5 00bc       |    |		Action	Signal_Activated
00e6 00bb       |    |		Action	Signal_Completion
00e7 0000       |    |		.XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4607       |F   |		Jump_Case	0x8
00ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ed 7806       |x   |		Jump	0xf4								; case 0x1
00ee 7809       |x   |		Jump	0xf8								; case 0x2
00ef 780d       |x   |		Jump	0xfd								; case 0x3
00f0 7810       |x   |		Jump	0x101								; case 0x4
00f1 7811       |x   |		Jump	0x103								; case 0x5
00f2 7812       |x   |		Jump	0x105								; case 0x6
00f3 7815       |x   |		Jump	0x109								; case 0x7
00f4 00da       |    |		Load_Top	At_Offset_2
00f5 0091 04bd  |    |		Action	Push_String_Extended_Indexed,0x4bd				; "UNDEFINED"
00f7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f8 00db       |    |		Load_Top	At_Offset_3
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 00e0       |    |		Load_Encached	Standard_Cache
00fb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fd 00da       |    |		Load_Top	At_Offset_2
00fe 00e0       |    |		Load_Encached	Standard_Cache
00ff 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0100 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0101 00db       |    |		Load_Top	At_Offset_3
0102 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0103 00db       |    |		Load_Top	At_Offset_3
0104 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0105 e231       | 1  |		Load	0x1,0x31
0106 00dc       |    |		Load_Top	At_Offset_4
0107 0267       | g  |		Execute	Discrete,Predecessor
0108 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0109 e231       | 1  |		Load	0x1,0x31
010a 00dc       |    |		Load_Top	At_Offset_4
010b 0268       | h  |		Execute	Discrete,Successor
010c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010d 0000 0000  |    |		.XXX[0x3]
010f 0000       |    |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 4607       |F   |		Jump_Case	0x8
0114 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0115 7806       |x   |		Jump	0x11c								; case 0x1
0116 7809       |x   |		Jump	0x120								; case 0x2
0117 780d       |x   |		Jump	0x125								; case 0x3
0118 7810       |x   |		Jump	0x129								; case 0x4
0119 7811       |x   |		Jump	0x12b								; case 0x5
011a 7812       |x   |		Jump	0x12d								; case 0x6
011b 7815       |x   |		Jump	0x131								; case 0x7
011c 00da       |    |		Load_Top	At_Offset_2
011d 0091 04d3  |    |		Action	Push_String_Extended_Indexed,0x4d3				; "UNDEFINED"
011f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0120 00db       |    |		Load_Top	At_Offset_3
0121 00db       |    |		Load_Top	At_Offset_3
0122 00e0       |    |		Load_Encached	Standard_Cache
0123 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0124 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0125 00da       |    |		Load_Top	At_Offset_2
0126 00e0       |    |		Load_Encached	Standard_Cache
0127 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0128 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0129 00db       |    |		Load_Top	At_Offset_3
012a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012b 00db       |    |		Load_Top	At_Offset_3
012c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012d e232       | 2  |		Load	0x1,0x32
012e 00dc       |    |		Load_Top	At_Offset_4
012f 0267       | g  |		Execute	Discrete,Predecessor
0130 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0131 e232       | 2  |		Load	0x1,0x32
0132 00dc       |    |		Load_Top	At_Offset_4
0133 0268       | h  |		Execute	Discrete,Successor
0134 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b e00f       |    |		Load	0x0,0xf
013c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
013d e212       |    |		Load	0x1,0x12
013e 03bc       |    |		Declare_Variable	Access,By_Allocation
013f 00d8       |    |		Load_Top	At_Offset_0
0140 0227       | '  |		Execute	Access,All_Reference
0141 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0142 a5fc       |    |		Store_Unchecked	0x2,-0x4
0143 00da       |    |		Load_Top	At_Offset_2
0144 e20f       |    |		Load	0x1,0xf
0145 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0146 e5fc       |    |		Load	0x2,-0x4
0147 0227       | '  |		Execute	Access,All_Reference
0148 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0149 00db       |    |		Load_Top	At_Offset_3
014a e20f       |    |		Load	0x1,0xf
014b 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
014c e5fc       |    |		Load	0x2,-0x4
014d 0227       | '  |		Execute	Access,All_Reference
014e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
014f e5fd       |    |		Load	0x2,-0x3
0150 e20f       |    |		Load	0x1,0xf
0151 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0152 e5fc       |    |		Load	0x2,-0x4
0153 0227       | '  |		Execute	Access,All_Reference
0154 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0155 4800       |H   |		Short_Literal	0x0
0156 e5fc       |    |		Load	0x2,-0x4
0157 0227       | '  |		Execute	Access,All_Reference
0158 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0159 4800       |H   |		Short_Literal	0x0
015a e5fc       |    |		Load	0x2,-0x4
015b 0227       | '  |		Execute	Access,All_Reference
015c 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
015d 487f       |H   |		Short_Literal	0x7f
015e e005       |    |		Load	0x0,0x5
015f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0160 e5fc       |    |		Load	0x2,-0x4
0161 0227       | '  |		Execute	Access,All_Reference
0162 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0163 e5fc       |    |		Load	0x2,-0x4
0164 0229       | )  |		Execute	Access,All_Read
0165 e238       | 8  |		Load	0x1,0x38
0166 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0167 e238       | 8  |		Load	0x1,0x38
0168 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0169 00d9       |    |		Load_Top	At_Offset_1
016a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
016b 00d1       |    |		Pop_Control	Pop_Count_1
016c e5fc       |    |		Load	0x2,-0x4
016d 0229       | )  |		Execute	Access,All_Read
016e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
016f 00d8       |    |		Load_Top	At_Offset_0
0170 e239       | 9  |		Load	0x1,0x39
0171 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0172 00d2       |    |		Pop_Control	Pop_Count_2
0173 e5fc       |    |		Load	0x2,-0x4
0174 0229       | )  |		Execute	Access,All_Read
0175 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0176 00d8       |    |		Load_Top	At_Offset_0
0177 e23a       | :  |		Load	0x1,0x3a
0178 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0179 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185       |    |		.CONST	0x0185								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 029f 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Call
0185			BODY_0180:
0185 00db       |    |		Load_Top	At_Offset_3
0186 0227       | '  |		Execute	Access,All_Reference
0187 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0188 0a01       |    |		Execute_Immediate	Plus,0x1
0189 e5ff       |    |		Load	0x2,-0x1
018a 0227       | '  |		Execute	Access,All_Reference
018b 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
018c 8402       |    |		Call	0x2,0x2
018d 00db       |    |		Load_Top	At_Offset_3
018e 0229       | )  |		Execute	Access,All_Read
018f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0190 00d8       |    |		Load_Top	At_Offset_0
0191 e234       | 4  |		Load	0x1,0x34
0192 0322       | "  |		Declare_Variable	Record
0193 e5fe       |    |		Load	0x2,-0x2
0194 e234       | 4  |		Load	0x1,0x34
0195 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0196 0119       |    |		Execute	Any,Check_In_Formal_Type
0197 00d9       |    |		Load_Top	At_Offset_1
0198 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0199 e5fb       |    |		Load	0x2,-0x5
019a 00d9       |    |		Load_Top	At_Offset_1
019b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019c e5fd       |    |		Load	0x2,-0x3
019d 00d9       |    |		Load_Top	At_Offset_1
019e 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
019f 4801       |H   |		Short_Literal	0x1
01a0 e5fa       |    |		Load	0x2,-0x6
01a1 01d7       |    |		Execute	Vector,Field_Read
01a2 00d9       |    |		Load_Top	At_Offset_1
01a3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01a4 4802       |H   |		Short_Literal	0x2
01a5 e5fa       |    |		Load	0x2,-0x6
01a6 01d7       |    |		Execute	Vector,Field_Read
01a7 00d9       |    |		Load_Top	At_Offset_1
01a8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01a9 4803       |H   |		Short_Literal	0x3
01aa e5fa       |    |		Load	0x2,-0x6
01ab 01d7       |    |		Execute	Vector,Field_Read
01ac 00d9       |    |		Load_Top	At_Offset_1
01ad 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01ae e5f9       |    |		Load	0x2,-0x7
01af 00d9       |    |		Load_Top	At_Offset_1
01b0 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01b1 e5f8       |    |		Load	0x2,-0x8
01b2 00d9       |    |		Load_Top	At_Offset_1
01b3 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01b4 e5fc       |    |		Load	0x2,-0x4
01b5 e234       | 4  |		Load	0x1,0x34
01b6 3008       |0   |		Execute	Record,Field_Type,Field_Number 0x8
01b7 0119       |    |		Execute	Any,Check_In_Formal_Type
01b8 00d9       |    |		Load_Top	At_Offset_1
01b9 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
01ba e239       | 9  |		Load	0x1,0x39
01bb 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01bc 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01d7       |    |		.CONST	0x01d7								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0006       |    |		.CONST	0x0006								; Number of locals
01c3			INIT_01c0:
01c3 e005       |    |		Load	0x0,0x5
01c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c5 02c7       |    |		Declare_Variable	Any
01c6 4801       |H   |		Short_Literal	0x1
01c7 e5ff       |    |		Load	0x2,-0x1
01c8 0227       | '  |		Execute	Access,All_Reference
01c9 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
01ca e5fd       |    |		Load	0x2,-0x3
01cb e005       |    |		Load	0x0,0x5
01cc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01cd a402       |    |		Store_Unchecked	0x2,0x2
01ce e236       | 6  |		Load	0x1,0x36
01cf 0322       | "  |		Declare_Variable	Record
01d0 00d8       |    |		Load_Top	At_Offset_0
01d1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d2 00e1       |    |		Load_Encached	Boolean_Cache
01d3 e5fe       |    |		Load	0x2,-0x2
01d4 823b       | ;  |		Call	0x1,0x3b
01d5 029f 0413  |    |		Declare_Subprogram	INIT_0410,For_Call
01d7			BODY_01c0:
01d7 00e1       |    |		Load_Encached	Boolean_Cache
01d8 e403       |    |		Load	0x2,0x3
01d9 e5fe       |    |		Load	0x2,-0x2
01da 823b       | ;  |		Call	0x1,0x3b
01db e5ff       |    |		Load	0x2,-0x1
01dc 0227       | '  |		Execute	Access,All_Reference
01dd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01de e238       | 8  |		Load	0x1,0x38
01df 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01e0 00d1       |    |		Pop_Control	Pop_Count_1
01e1 005b       | [  |		Store_Top	Discrete,At_Offset_3
01e2 00da       |    |		Load_Top	At_Offset_2
01e3 6837       |h7  |		Jump_Zero	0x21b
01e4 e402       |    |		Load	0x2,0x2
01e5 e005       |    |		Load	0x0,0x5
01e6 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01e7 6809       |h   |		Jump_Zero	0x1f1
01e8 4800       |H   |		Short_Literal	0x0
01e9 e5ff       |    |		Load	0x2,-0x1
01ea 0227       | '  |		Execute	Access,All_Reference
01eb 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
01ec e5fd       |    |		Load	0x2,-0x3
01ed e005       |    |		Load	0x0,0x5
01ee 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01ef c402       |    |		Store	0x2,0x2
01f0 7808       |x   |		Jump	0x1f9
01f1 e5fc       |    |		Load	0x2,-0x4
01f2 6806       |h   |		Jump_Zero	0x1f9
01f3 e5ff       |    |		Load	0x2,-0x1
01f4 0227       | '  |		Execute	Access,All_Reference
01f5 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
01f6 8406       |    |		Call	0x2,0x6
01f7 e22b       | +  |		Load	0x1,0x2b
01f8 0257       | W  |		Execute	Discrete,Raise
01f9 e5ff       |    |		Load	0x2,-0x1
01fa 0229       | )  |		Execute	Access,All_Read
01fb 00d8       |    |		Load_Top	At_Offset_0
01fc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01fd 00db       |    |		Load_Top	At_Offset_3
01fe e238       | 8  |		Load	0x1,0x38
01ff 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0200 00d9       |    |		Load_Top	At_Offset_1
0201 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0202 00d1       |    |		Pop_Control	Pop_Count_1
0203 e5ff       |    |		Load	0x2,-0x1
0204 0229       | )  |		Execute	Access,All_Read
0205 00d8       |    |		Load_Top	At_Offset_0
0206 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0207 4801       |H   |		Short_Literal	0x1
0208 e236       | 6  |		Load	0x1,0x36
0209 0322       | "  |		Declare_Variable	Record
020a e402       |    |		Load	0x2,0x2
020b e236       | 6  |		Load	0x1,0x36
020c 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
020d 0119       |    |		Execute	Any,Check_In_Formal_Type
020e 00d9       |    |		Load_Top	At_Offset_1
020f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0210 e403       |    |		Load	0x2,0x3
0211 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0212 00d9       |    |		Load_Top	At_Offset_1
0213 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0214 e405       |    |		Load	0x2,0x5
0215 e238       | 8  |		Load	0x1,0x38
0216 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0217 00d9       |    |		Load_Top	At_Offset_1
0218 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0219 00d1       |    |		Pop_Control	Pop_Count_1
021a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
021b e229       | )  |		Load	0x1,0x29
021c 0257       | W  |		Execute	Discrete,Raise
021d 0000 0000  |    |		.XXX[0x3]
021f 0000       |    |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0232       | 2  |		.CONST	0x0232								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 4800       |H   |		Short_Literal	0x0
0224 00ea       |    |		Load_Encached	Null_String_Cache
0225 6012       |`   |		Indirect_Literal	Discrete,0x238,{0x00000000, 0x7fffffff}
0226 e5fe       |    |		Load	0x2,-0x2
0227 e001       |    |		Load	0x0,0x1
0228 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0229 00db       |    |		Load_Top	At_Offset_3
022a 0227       | '  |		Execute	Access,All_Reference
022b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
022c e238       | 8  |		Load	0x1,0x38
022d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
022e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
022f e005       |    |		Load	0x0,0x5
0230 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0231 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0232			TRAP_0220:
0232 0007       |    |		Action	Break_Optional
0233 00ea       |    |		Load_Encached	Null_String_Cache
0234 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0235 0000 0000  |    |		.XXX[0x3]
0237 0000       |    |
0238 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
023c 0000 0000  |    |		.BLANK	0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024c       | L  |		.CONST	0x024c								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0004       |    |		.CONST	0x0004								; Number of locals
0243			INIT_0240:
0243 00e1       |    |		Load_Encached	Boolean_Cache
0244 e236       | 6  |		Load	0x1,0x36
0245 0322       | "  |		Declare_Variable	Record
0246 00d8       |    |		Load_Top	At_Offset_0
0247 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0248 e236       | 6  |		Load	0x1,0x36
0249 0322       | "  |		Declare_Variable	Record
024a 00d8       |    |		Load_Top	At_Offset_0
024b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024c			BODY_0240:
024c 00e1       |    |		Load_Encached	Boolean_Cache
024d 00da       |    |		Load_Top	At_Offset_2
024e e5fd       |    |		Load	0x2,-0x3
024f 823b       | ;  |		Call	0x1,0x3b
0250 e5ff       |    |		Load	0x2,-0x1
0251 0227       | '  |		Execute	Access,All_Reference
0252 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0253 e238       | 8  |		Load	0x1,0x38
0254 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0255 00d1       |    |		Pop_Control	Pop_Count_1
0256 005b       | [  |		Store_Top	Discrete,At_Offset_3
0257 00da       |    |		Load_Top	At_Offset_2
0258 7002       |p   |		Jump_Nonzero	0x25b
0259 e229       | )  |		Load	0x1,0x29
025a 0257       | W  |		Execute	Discrete,Raise
025b 00e1       |    |		Load_Encached	Boolean_Cache
025c 00d9       |    |		Load_Top	At_Offset_1
025d e5fc       |    |		Load	0x2,-0x4
025e 823b       | ;  |		Call	0x1,0x3b
025f e5ff       |    |		Load	0x2,-0x1
0260 0227       | '  |		Execute	Access,All_Reference
0261 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0262 e238       | 8  |		Load	0x1,0x38
0263 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0264 00d1       |    |		Pop_Control	Pop_Count_1
0265 005b       | [  |		Store_Top	Discrete,At_Offset_3
0266 00da       |    |		Load_Top	At_Offset_2
0267 7002       |p   |		Jump_Nonzero	0x26a
0268 e229       | )  |		Load	0x1,0x29
0269 0257       | W  |		Execute	Discrete,Raise
026a e5ff       |    |		Load	0x2,-0x1
026b 0227       | '  |		Execute	Access,All_Reference
026c 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
026d 0a01       |    |		Execute_Immediate	Plus,0x1
026e e5ff       |    |		Load	0x2,-0x1
026f 0227       | '  |		Execute	Access,All_Reference
0270 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0271 e5ff       |    |		Load	0x2,-0x1
0272 0229       | )  |		Execute	Access,All_Read
0273 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0274 00d8       |    |		Load_Top	At_Offset_0
0275 e235       | 5  |		Load	0x1,0x35
0276 0322       | "  |		Declare_Variable	Record
0277 e5fe       |    |		Load	0x2,-0x2
0278 00d9       |    |		Load_Top	At_Offset_1
0279 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
027a e403       |    |		Load	0x2,0x3
027b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027c 00d9       |    |		Load_Top	At_Offset_1
027d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
027e 00db       |    |		Load_Top	At_Offset_3
027f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0280 00d9       |    |		Load_Top	At_Offset_1
0281 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0282 e23a       | :  |		Load	0x1,0x3a
0283 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0284 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
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 e237       | 7  |		Load	0x1,0x37
028c 00d8       |    |		Load_Top	At_Offset_0
028d 0120       |    |		Execute	Any,Is_Value
028e 7002       |p   |		Jump_Nonzero	0x291
028f 00d8       |    |		Load_Top	At_Offset_0
0290 011e       |    |		Execute	Any,Convert
0291 00ca       |    |		Action	Exit_Nullary_Function
0292 0000 0000  |    |		.BLANK	0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 0227       | '  |		Execute	Access,All_Reference
029d 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
029e 0f00       |    |		Execute_Immediate	Equal,0x0
029f 00db       |    |		Load_Top	At_Offset_3
02a0 0227       | '  |		Execute	Access,All_Reference
02a1 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
02a2 0f00       |    |		Execute_Immediate	Equal,0x0
02a3 0279       | y  |		Execute	Discrete,And
02a4 6802       |h   |		Jump_Zero	0x2a7
02a5 4801       |H   |		Short_Literal	0x1
02a6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a7 4800       |H   |		Short_Literal	0x0
02a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a9 0000 0000  |    |		.BLANK	0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02c0       |    |		.CONST	0x02c0								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0006       |    |		.CONST	0x0006								; Number of locals
02b3			INIT_02b0:
02b3 e239       | 9  |		Load	0x1,0x39
02b4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02b5 0322       | "  |		Declare_Variable	Record
02b6 e23a       | :  |		Load	0x1,0x3a
02b7 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02b8 0322       | "  |		Declare_Variable	Record
02b9 e010       |    |		Load	0x0,0x10
02ba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02bb 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02bc 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
02be 029f 044b  |   K|		Declare_Subprogram	INIT_0448,For_Call
02c0			BODY_02b0:
02c0 480a       |H   |		Short_Literal	0xa
02c1 0092 04d9  |    |		Action	Push_String_Extended,0x4d9					; "@@ 5 1 \x22"
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 0227       | '  |		Execute	Access,All_Reference
02c5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c6 0227       | '  |		Execute	Access,All_Reference
02c7 01cc       |    |		Execute	Vector,Catenate
02c8 0092 04da  |    |		Action	Push_String_Extended,0x4da					; "\x22"
02ca 01cc       |    |		Execute	Vector,Catenate
02cb 01cb       |    |		Execute	Vector,Append
02cc e010       |    |		Load	0x0,0x10
02cd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ce 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02cf 003b       | ;  |		Store_Top	Access,At_Offset_3
02d0 00da       |    |		Load_Top	At_Offset_2
02d1 480a       |H   |		Short_Literal	0xa
02d2 0092 04da  |    |		Action	Push_String_Extended,0x4da					; "\x22"
02d4 e5ff       |    |		Load	0x2,-0x1
02d5 0227       | '  |		Execute	Access,All_Reference
02d6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d7 0227       | '  |		Execute	Access,All_Reference
02d8 8405       |    |		Call	0x2,0x5
02d9 01cc       |    |		Execute	Vector,Catenate
02da 0092 04da  |    |		Action	Push_String_Extended,0x4da					; "\x22"
02dc 01cc       |    |		Execute	Vector,Catenate
02dd 01cb       |    |		Execute	Vector,Append
02de e010       |    |		Load	0x0,0x10
02df 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02e1 003b       | ;  |		Store_Top	Access,At_Offset_3
02e2 00da       |    |		Load_Top	At_Offset_2
02e3 480a       |H   |		Short_Literal	0xa
02e4 e5ff       |    |		Load	0x2,-0x1
02e5 0227       | '  |		Execute	Access,All_Reference
02e6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02e7 0227       | '  |		Execute	Access,All_Reference
02e8 8405       |    |		Call	0x2,0x5
02e9 01cb       |    |		Execute	Vector,Append
02ea e010       |    |		Load	0x0,0x10
02eb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ec 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02ed 003b       | ;  |		Store_Top	Access,At_Offset_3
02ee 00da       |    |		Load_Top	At_Offset_2
02ef 480a       |H   |		Short_Literal	0xa
02f0 e5ff       |    |		Load	0x2,-0x1
02f1 0227       | '  |		Execute	Access,All_Reference
02f2 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
02f3 00e0       |    |		Load_Encached	Standard_Cache
02f4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02f5 0092 04db  |    |		Action	Push_String_Extended,0x4db					; " "
02f7 01cc       |    |		Execute	Vector,Catenate
02f8 e5ff       |    |		Load	0x2,-0x1
02f9 0227       | '  |		Execute	Access,All_Reference
02fa 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
02fb 00e0       |    |		Load_Encached	Standard_Cache
02fc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02fd 01cc       |    |		Execute	Vector,Catenate
02fe 01cb       |    |		Execute	Vector,Append
02ff e010       |    |		Load	0x0,0x10
0300 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0301 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0302 003b       | ;  |		Store_Top	Access,At_Offset_3
0303 00da       |    |		Load_Top	At_Offset_2
0304 0092 04dc  |    |		Action	Push_String_Extended,0x4dc					; "@\x0a"
0306 e010       |    |		Load	0x0,0x10
0307 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0308 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0309 003b       | ;  |		Store_Top	Access,At_Offset_3
030a e402       |    |		Load	0x2,0x2
030b e5ff       |    |		Load	0x2,-0x1
030c 0227       | '  |		Execute	Access,All_Reference
030d 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
030e e239       | 9  |		Load	0x1,0x39
030f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0310 00d1       |    |		Pop_Control	Pop_Count_1
0311 00cf       |    |		Action	Mark_Auxiliary
0312 7806       |x   |		Jump	0x319
0313 8406       |    |		Call	0x2,0x6
0314 e402       |    |		Load	0x2,0x2
0315 e239       | 9  |		Load	0x1,0x39
0316 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0317 00d1       |    |		Pop_Control	Pop_Count_1
0318 00c9       |    |		Action	Pop_Auxiliary_Loop
0319 e402       |    |		Load	0x2,0x2
031a e239       | 9  |		Load	0x1,0x39
031b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
031c 6ff6       |o   |		Jump_Zero	0x313
031d 00ce       |    |		Action	Pop_Auxiliary
031e 00da       |    |		Load_Top	At_Offset_2
031f 0092 04dc  |    |		Action	Push_String_Extended,0x4dc					; "@\x0a"
0321 e010       |    |		Load	0x0,0x10
0322 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0323 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0324 003b       | ;  |		Store_Top	Access,At_Offset_3
0325 00db       |    |		Load_Top	At_Offset_3
0326 e5ff       |    |		Load	0x2,-0x1
0327 0227       | '  |		Execute	Access,All_Reference
0328 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0329 e23a       | :  |		Load	0x1,0x3a
032a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
032b 00d1       |    |		Pop_Control	Pop_Count_1
032c 00cf       |    |		Action	Mark_Auxiliary
032d 7828       |x(  |		Jump	0x356
032e 00db       |    |		Load_Top	At_Offset_3
032f 480a       |H   |		Short_Literal	0xa
0330 e403       |    |		Load	0x2,0x3
0331 e23a       | :  |		Load	0x1,0x3a
0332 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0333 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0334 00d8       |    |		Load_Top	At_Offset_0
0335 00e2       |    |		Load_Encached	Integer_Cache
0336 0260       | `  |		Execute	Discrete,In_Type
0337 7001       |p   |		Jump_Nonzero	0x339
0338 0801       |    |		Execute_Immediate	Raise,0x1
0339 00e0       |    |		Load_Encached	Standard_Cache
033a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
033b e403       |    |		Load	0x2,0x3
033c e23a       | :  |		Load	0x1,0x3a
033d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
033e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
033f 00e0       |    |		Load_Encached	Standard_Cache
0340 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0341 01cc       |    |		Execute	Vector,Catenate
0342 0092 04db  |    |		Action	Push_String_Extended,0x4db					; " "
0344 01cc       |    |		Execute	Vector,Catenate
0345 e403       |    |		Load	0x2,0x3
0346 e23a       | :  |		Load	0x1,0x3a
0347 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0348 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0349 00e0       |    |		Load_Encached	Standard_Cache
034a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
034b 01cc       |    |		Execute	Vector,Catenate
034c 01cb       |    |		Execute	Vector,Append
034d e010       |    |		Load	0x0,0x10
034e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
034f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0350 c404       |    |		Store	0x2,0x4
0351 e403       |    |		Load	0x2,0x3
0352 e23a       | :  |		Load	0x1,0x3a
0353 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0354 00d1       |    |		Pop_Control	Pop_Count_1
0355 00c9       |    |		Action	Pop_Auxiliary_Loop
0356 e403       |    |		Load	0x2,0x3
0357 e23a       | :  |		Load	0x1,0x3a
0358 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0359 6fd4       |o   |		Jump_Zero	0x32e
035a 00ce       |    |		Action	Pop_Auxiliary
035b 00da       |    |		Load_Top	At_Offset_2
035c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035d 0000 0000  |    |		.XXX[0x3]
035f 0000       |    |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 00da       |    |		Load_Top	At_Offset_2
0364 0227       | '  |		Execute	Access,All_Reference
0365 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0366 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0367 0000       |    |		.XXX[0x1]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b 00da       |    |		Load_Top	At_Offset_2
036c 0227       | '  |		Execute	Access,All_Reference
036d 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
036e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
036f 0000       |    |		.XXX[0x1]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 4608       |F   |		Jump_Case	0x9
0374 7808       |x   |		Jump	0x37d								; case 0x0
0375 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0376 7819       |x   |		Jump	0x390								; case 0x2
0377 7818       |x   |		Jump	0x390								; case 0x3
0378 7817       |x   |		Jump	0x390								; case 0x4
0379 7816       |x   |		Jump	0x390								; case 0x5
037a 7815       |x   |		Jump	0x390								; case 0x6
037b 7814       |x   |		Jump	0x390								; case 0x7
037c 7813       |x   |		Jump	0x390								; case 0x8
037d 00da       |    |		Load_Top	At_Offset_2
037e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
037f 0125       | %  |		Execute	Any,Set_Constraint
0380 00da       |    |		Load_Top	At_Offset_2
0381 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0382 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0383 4800       |H   |		Short_Literal	0x0
0384 00db       |    |		Load_Top	At_Offset_3
0385 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0386 4800       |H   |		Short_Literal	0x0
0387 00db       |    |		Load_Top	At_Offset_3
0388 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0389 00da       |    |		Load_Top	At_Offset_2
038a 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
038b 0125       | %  |		Execute	Any,Set_Constraint
038c 00da       |    |		Load_Top	At_Offset_2
038d 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
038e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
038f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0390 0869       | i  |		Execute_Immediate	Raise,0x69
0391 0000 0000  |    |		.BLANK	0000[0x7]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 4608       |F   |		Jump_Case	0x9
039c 7808       |x   |		Jump	0x3a5								; case 0x0
039d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
039e 780d       |x   |		Jump	0x3ac								; case 0x2
039f 780c       |x   |		Jump	0x3ac								; case 0x3
03a0 780b       |x   |		Jump	0x3ac								; case 0x4
03a1 780a       |x   |		Jump	0x3ac								; case 0x5
03a2 7809       |x   |		Jump	0x3ac								; case 0x6
03a3 7808       |x   |		Jump	0x3ac								; case 0x7
03a4 7807       |x   |		Jump	0x3ac								; case 0x8
03a5 00da       |    |		Load_Top	At_Offset_2
03a6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03a7 0125       | %  |		Execute	Any,Set_Constraint
03a8 00da       |    |		Load_Top	At_Offset_2
03a9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03aa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03ab 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03ac 0869       | i  |		Execute_Immediate	Raise,0x69
03ad 0000 0000  |    |		.XXX[0x3]
03af 0000       |    |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 4608       |F   |		Jump_Case	0x9
03b4 7808       |x   |		Jump	0x3bd								; case 0x0
03b5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
03b6 7813       |x   |		Jump	0x3ca								; case 0x2
03b7 7812       |x   |		Jump	0x3ca								; case 0x3
03b8 7811       |x   |		Jump	0x3ca								; case 0x4
03b9 7810       |x   |		Jump	0x3ca								; case 0x5
03ba 780f       |x   |		Jump	0x3ca								; case 0x6
03bb 780e       |x   |		Jump	0x3ca								; case 0x7
03bc 780d       |x   |		Jump	0x3ca								; case 0x8
03bd 00da       |    |		Load_Top	At_Offset_2
03be 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03bf 0125       | %  |		Execute	Any,Set_Constraint
03c0 00da       |    |		Load_Top	At_Offset_2
03c1 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03c2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03c3 4800       |H   |		Short_Literal	0x0
03c4 00db       |    |		Load_Top	At_Offset_3
03c5 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
03c6 4800       |H   |		Short_Literal	0x0
03c7 00db       |    |		Load_Top	At_Offset_3
03c8 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
03c9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03ca 0869       | i  |		Execute_Immediate	Raise,0x69
03cb 0000 0000  |    |		.BLANK	0000[0x5]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 4800       |H   |		Short_Literal	0x0
03d4 00ea       |    |		Load_Encached	Null_String_Cache
03d5 6006       |`   |		Indirect_Literal	Discrete,0x3dc,{0x00000000, 0x7fffffff}
03d6 e5ff       |    |		Load	0x2,-0x1
03d7 e001       |    |		Load	0x0,0x1
03d8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03da 0000 0000  |    |		.XXX[0x2]
03dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 03fd       |    |		.CONST	0x03fd								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 e5ff       |    |		Load	0x2,-0x1
03e4 0229       | )  |		Execute	Access,All_Read
03e5 00d8       |    |		Load_Top	At_Offset_0
03e6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03e7 4801       |H   |		Short_Literal	0x1
03e8 e236       | 6  |		Load	0x1,0x36
03e9 0322       | "  |		Declare_Variable	Record
03ea e005       |    |		Load	0x0,0x5
03eb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03ec e236       | 6  |		Load	0x1,0x36
03ed 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
03ee 0119       |    |		Execute	Any,Check_In_Formal_Type
03ef 00d9       |    |		Load_Top	At_Offset_1
03f0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03f1 e5ff       |    |		Load	0x2,-0x1
03f2 0227       | '  |		Execute	Access,All_Reference
03f3 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
03f4 00d9       |    |		Load_Top	At_Offset_1
03f5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03f6 e5fe       |    |		Load	0x2,-0x2
03f7 823b       | ;  |		Call	0x1,0x3b
03f8 e238       | 8  |		Load	0x1,0x38
03f9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03fa 00d9       |    |		Load_Top	At_Offset_1
03fb 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03fc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03fd			TRAP_03e0:
03fd e238       | 8  |		Load	0x1,0x38
03fe 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
03ff 010f       |    |		Execute	Exception,Equal
0400 6809       |h   |		Jump_Zero	0x40a
0401 e5ff       |    |		Load	0x2,-0x1
0402 0227       | '  |		Execute	Access,All_Reference
0403 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0404 0aff       |    |		Execute_Immediate	Plus,-0x1
0405 e5ff       |    |		Load	0x2,-0x1
0406 0227       | '  |		Execute	Access,All_Reference
0407 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0408 e22a       | *  |		Load	0x1,0x2a
0409 0257       | W  |		Execute	Discrete,Raise
040a 0100       |    |		Execute	Exception,Raise
040b 0000 0000  |    |		.BLANK	0000[0x5]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0416       |    |		.CONST	0x0416								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0002       |    |		.CONST	0x0002								; Number of locals
0413			INIT_0410:
0413 e239       | 9  |		Load	0x1,0x39
0414 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0415 0322       | "  |		Declare_Variable	Record
0416			BODY_0410:
0416 00d8       |    |		Load_Top	At_Offset_0
0417 e7ff       |    |		Load	0x3,-0x1
0418 e239       | 9  |		Load	0x1,0x39
0419 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
041a 00d1       |    |		Pop_Control	Pop_Count_1
041b 00cf       |    |		Action	Mark_Auxiliary
041c 7814       |x   |		Jump	0x431
041d 00d9       |    |		Load_Top	At_Offset_1
041e e239       | 9  |		Load	0x1,0x39
041f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0420 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0421 e5ff       |    |		Load	0x2,-0x1
0422 8230       | 0  |		Call	0x1,0x30
0423 e5fd       |    |		Load	0x2,-0x3
0424 01df       |    |		Execute	Vector,Equal
0425 6806       |h   |		Jump_Zero	0x42c
0426 00d9       |    |		Load_Top	At_Offset_1
0427 e239       | 9  |		Load	0x1,0x39
0428 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0429 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
042a c237       | 7  |		Store	0x1,0x37
042b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
042c 00d9       |    |		Load_Top	At_Offset_1
042d e239       | 9  |		Load	0x1,0x39
042e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
042f 00d1       |    |		Pop_Control	Pop_Count_1
0430 00c9       |    |		Action	Pop_Auxiliary_Loop
0431 00d9       |    |		Load_Top	At_Offset_1
0432 e239       | 9  |		Load	0x1,0x39
0433 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0434 6fe8       |o   |		Jump_Zero	0x41d
0435 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0436 0000 0000  |    |		.XXX[0x2]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 00da       |    |		Load_Top	At_Offset_2
043c 01db       |    |		Execute	Vector,Length
043d 6805       |h   |		Jump_Zero	0x443
043e 0092 04dd  |    |		Action	Push_String_Extended,0x4dd					; "*"
0440 00db       |    |		Load_Top	At_Offset_3
0441 01cc       |    |		Execute	Vector,Catenate
0442 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0443 00da       |    |		Load_Top	At_Offset_2
0444 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0445 0000 0000  |    |		.XXX[0x3]
0447 0000       |    |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044e       | N  |		.CONST	0x044e								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0002       |    |		.CONST	0x0002								; Number of locals
044b			INIT_0448:
044b e402       |    |		Load	0x2,0x2
044c e239       | 9  |		Load	0x1,0x39
044d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
044e			BODY_0448:
044e 00d8       |    |		Load_Top	At_Offset_0
044f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0450 6807       |h   |		Jump_Zero	0x458
0451 e404       |    |		Load	0x2,0x4
0452 0092 04de  |    |		Action	Push_String_Extended,0x4de					; "& "
0454 e010       |    |		Load	0x0,0x10
0455 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0456 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0457 c404       |    |		Store	0x2,0x4
0458 e404       |    |		Load	0x2,0x4
0459 00d9       |    |		Load_Top	At_Offset_1
045a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
045b 00d8       |    |		Load_Top	At_Offset_0
045c 00e2       |    |		Load_Encached	Integer_Cache
045d 0260       | `  |		Execute	Discrete,In_Type
045e 7001       |p   |		Jump_Nonzero	0x460
045f 0801       |    |		Execute_Immediate	Raise,0x1
0460 00e0       |    |		Load_Encached	Standard_Cache
0461 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0462 0092 04db  |    |		Action	Push_String_Extended,0x4db					; " "
0464 01cc       |    |		Execute	Vector,Catenate
0465 00da       |    |		Load_Top	At_Offset_2
0466 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0467 00e0       |    |		Load_Encached	Standard_Cache
0468 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0469 01cc       |    |		Execute	Vector,Catenate
046a 0092 04db  |    |		Action	Push_String_Extended,0x4db					; " "
046c 01cc       |    |		Execute	Vector,Catenate
046d 00da       |    |		Load_Top	At_Offset_2
046e 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
046f 00e0       |    |		Load_Encached	Standard_Cache
0470 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0471 01cc       |    |		Execute	Vector,Catenate
0472 0092 04db  |    |		Action	Push_String_Extended,0x4db					; " "
0474 01cc       |    |		Execute	Vector,Catenate
0475 00da       |    |		Load_Top	At_Offset_2
0476 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0477 e5ff       |    |		Load	0x2,-0x1
0478 8230       | 0  |		Call	0x1,0x30
0479 01cc       |    |		Execute	Vector,Catenate
047a 0092 04db  |    |		Action	Push_String_Extended,0x4db					; " "
047c 01cc       |    |		Execute	Vector,Catenate
047d e010       |    |		Load	0x0,0x10
047e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
047f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0480 c404       |    |		Store	0x2,0x4
0481 00d8       |    |		Load_Top	At_Offset_0
0482 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0483 6827       |h'  |		Jump_Zero	0x4ab
0484 e404       |    |		Load	0x2,0x4
0485 0092 04df  |    |		Action	Push_String_Extended,0x4df					; ", "
0487 00da       |    |		Load_Top	At_Offset_2
0488 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0489 0227       | '  |		Execute	Access,All_Reference
048a 01cc       |    |		Execute	Vector,Catenate
048b e010       |    |		Load	0x0,0x10
048c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
048d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
048e c404       |    |		Store	0x2,0x4
048f 00d8       |    |		Load_Top	At_Offset_0
0490 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0491 6819       |h   |		Jump_Zero	0x4ab
0492 e404       |    |		Load	0x2,0x4
0493 0092 04df  |    |		Action	Push_String_Extended,0x4df					; ", "
0495 00da       |    |		Load_Top	At_Offset_2
0496 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0497 0227       | '  |		Execute	Access,All_Reference
0498 01cc       |    |		Execute	Vector,Catenate
0499 e010       |    |		Load	0x0,0x10
049a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
049b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
049c c404       |    |		Store	0x2,0x4
049d 00d8       |    |		Load_Top	At_Offset_0
049e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
049f 680b       |h   |		Jump_Zero	0x4ab
04a0 e404       |    |		Load	0x2,0x4
04a1 0092 04df  |    |		Action	Push_String_Extended,0x4df					; ", "
04a3 00da       |    |		Load_Top	At_Offset_2
04a4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
04a5 0227       | '  |		Execute	Access,All_Reference
04a6 01cc       |    |		Execute	Vector,Catenate
04a7 e010       |    |		Load	0x0,0x10
04a8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04a9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04aa c404       |    |		Store	0x2,0x4
04ab e404       |    |		Load	0x2,0x4
04ac 480a       |H   |		Short_Literal	0xa
04ad 00da       |    |		Load_Top	At_Offset_2
04ae 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
04af e001       |    |		Load	0x0,0x1
04b0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04b1 00db       |    |		Load_Top	At_Offset_3
04b2 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
04b3 e001       |    |		Load	0x0,0x1
04b4 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
04b5 01cc       |    |		Execute	Vector,Catenate
04b6 8405       |    |		Call	0x2,0x5
04b7 01cb       |    |		Execute	Vector,Append
04b8 e010       |    |		Load	0x0,0x10
04b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04ba 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04bb c404       |    |		Store	0x2,0x4
04bc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04bd ; --------------------------------------------------------------------------------------
04bd ; STRING TABLE
04bd ; --------------------------------------------------------------------------------------
04bd 0048       | H  |		.STRTAB	0x0048->0x04e1							; "UNDEFINED"
04be 004f       | O  |		.STRTAB	0x004f->0x04e5							; "SUBSYSTEM"
04bf 0056       | V  |		.STRTAB	0x0056->0x04ea							; "MAIN_PROGRAM"
04c0 0060       | `  |		.STRTAB	0x0060->0x04f0							; "SUBPROGRAM_SPEC"
04c1 006d       | m  |		.STRTAB	0x006d->0x04f7							; "GENERIC_SUBPROGRAM"
04c2 007d       | }  |		.STRTAB	0x007d->0x0500							; "SUBPROGRAM_BODY"
04c3 008a       |    |		.STRTAB	0x008a->0x0508							; "PACKAGE_SPEC"
04c4 0094       |    |		.STRTAB	0x0094->0x050e							; "GENERIC_PACKAGE"
04c5 00a1       |    |		.STRTAB	0x00a1->0x0515							; "PACKAGE_BODY"
04c6 00ab       |    |		.STRTAB	0x00ab->0x051b							; "TASK_SPEC"
04c7 00b2       |    |		.STRTAB	0x00b2->0x0520							; "TASK_BODY"
04c8 00b9       |    |		.STRTAB	0x00b9->0x0524							; "POINT"
04c9 00bc       |    |		.STRTAB	0x00bc->0x0527							; "GROUP"
04ca 00bf       |    |		.STRTAB	0x00bf->0x0529							; "CLASS"
04cb 00c2       |    |		.STRTAB	0x00c2->0x052c							; "CLASS_CATEGORY"
04cc 00ce       |    |		.STRTAB	0x00ce->0x0533							; "CLASS_UTILITY"
04cd 00d9       |    |		.STRTAB	0x00d9->0x0539							; "LOAD_VIEW"
04ce 00e0       |    |		.STRTAB	0x00e0->0x053e							; "SPEC_VIEW"
04cf 00e7       |    |		.STRTAB	0x00e7->0x0542							; "COMBINED_VIEW"
04d0 00f2       |    |		.STRTAB	0x00f2->0x0549							; "CODE_VIEW"
04d1 00f9       |    |		.STRTAB	0x00f9->0x054d							; "DIRECTORY"
04d2 0100       |    |		.STRTAB	0x0100->0x0552							; "WORLD"
04d3 0103       |    |		.STRTAB	0x0103->0x0554							; "UNDEFINED"
04d4 010a       |    |		.STRTAB	0x010a->0x0559							; "IMPORTS"
04d5 010f       |    |		.STRTAB	0x010f->0x055c							; "IMPORTS_MANY"
04d6 0119       |    |		.STRTAB	0x0119->0x0562							; "CONTAINS"
04d7 011f       |    |		.STRTAB	0x011f->0x0566							; "USES_FOR_INTERFACE"
04d8 012f       | /  |		.STRTAB	0x012f->0x056f							; "INHERITS"
04d9 0135       | 5  |		.STRTAB	0x0135->0x0573							; "@@ 5 1 \x22"
04da 013b       | ;  |		.STRTAB	0x013b->0x0577							; "\x22"
04db 013a       | :  |		.STRTAB	0x013a->0x0578							; " "
04dc 0139       | 9  |		.STRTAB	0x0139->0x0578							; "@\x0a"
04dd 0139       | 9  |		.STRTAB	0x0139->0x0579							; "*"
04de 0138       | 8  |		.STRTAB	0x0138->0x057a							; "& "
04df 0138       | 8  |		.STRTAB	0x0138->0x057b							; ", "
04e0 0138       | 8  |		.STREND 0x0138->0x057c
04e1 554e 4445  |UNDE|		.STRTAB_STRINGS
057c 0000 0000  |    |		.BLANK	0000[0x4]
0580 ; --------------------------------------------------------------------------------------
0580 ; Debug Table
0580 ; --------------------------------------------------------------------------------------
0580 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0ee7,0x0000,0x0001,0x0000
0586 d400 0066  |   f|		.XXX[0x6]
0588 eaa0 0000  |    |
058a 0476 3400  | v4 |
058c 0000 0000  |    |		.BLANK	0000[0x4]
0590 000c e1a2  |    |		.XXX[0x13]
0592 6a16 019c  |j   |
0594 dc00 0000  |    |
0596 000b 4000  |  @ |
0598 0000 0000  |    |
059a 0000 0099  |    |
059c 8900 66a9  |  f |
059e 8000 0000  |    |
05a0 0672 3c01  | r< |
05a2 9af8       |    |
05a3 0000 0000  |    |		.BLANK	0000[0x4]
05a7 0106 5b00  |  [ |		.XXX[0x4c]
05a9 0000 0000  |    |
05ab 0000 0cec  |    |
05ad 6c03 3e7c  |l >||
05af 00cf c600  |    |
05b1 0033 3120  | 31 |
05b3 0ce9 dc00  |    |
05b5 0000 00ce  |    |
05b7 efc0 33d5  |  3 |
05b9 1000 0000  |    |
05bb 0001 3312  |  3 |
05bd 00ce c6c0  |    |
05bf 0000 000d  |    |
05c1 00ac 033c  |   <|
05c3 da00 0000  |    |
05c5 0000 13b1  |    |
05c7 700d 00ac  |p   |
05c9 0000 0000  |    |
05cb 4c05 0033  |L  3|
05cd d427 62e0  | 'b |
05cf 19dd f800  |    |
05d1 0000 001c  |    |
05d3 0a01 c5b7  |    |
05d5 cec5 c033  |   3|
05d7 b1b0 0000  |    |
05d9 0004 8814  |    |
05db 03ba ef97  |    |
05dd 0400 67cf  |  g |
05df 8000 0000  |    |
05e1 0650 2001  | P  |
05e3 843e 0b00  | >  |
05e5 0000 0033  |   3|
05e7 dc88 4498  |  D |
05e9 0674 ee00  | t  |
05eb 0000 0067  |   g|
05ed c8e0 000c  |    |
05ef f720 0000  |    |
05f1 008e c680  |    |
05f3 0000 0000  |    |		.BLANK	0000[0x4]
05f7 0001 9f6d  |   m|		.XXX[0x9]
05f9 cd42 c034  | B 4|
05fb 02b0 0000  |    |
05fd 0001 6800  |  h |
05ff 0000       |    |