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

⟦8fcf27ee9⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0428       | (  |		.CONST	0x0428								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 005b       | [  |		.CONST	0x005b								; Address of begin
0019 00e3       |    |		.CONST	0x00e3								; Address of exception handler
001a 0011       |    |		.CONST	0x0011								; Number of locals
001b			INIT_0018:
001b 0093 0000  |    |		push_full_address	0x0
001d 60ee       |`   |		Indirect_Literal	Discrete,0x10c,{0x80000000, 0x00010000}
001e 0273       | s  |		Execute	Discrete,Plus
001f 0007       |    |		Action	Break_Optional
0020 e002       |    |		Load	0x0,0x2
0021 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0022 02c7       |    |		Declare_Variable	Any
0023 e002       |    |		Load	0x0,0x2
0024 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0025 a403       |    |		Store_Unchecked	0x2,0x3
0026 e003       |    |		Load	0x0,0x3
0027 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0028 02c7       |    |		Declare_Variable	Any
0029 00d8       |    |		Load_Top	At_Offset_0
002a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002b e004       |    |		Load	0x0,0x4
002c 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
002d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
002e 02c7       |    |		Declare_Variable	Any
002f 00d8       |    |		Load_Top	At_Offset_0
0030 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0031 e004       |    |		Load	0x0,0x4
0032 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0033 02c7       |    |		Declare_Variable	Any
0034 00d8       |    |		Load_Top	At_Offset_0
0035 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0036 e004       |    |		Load	0x0,0x4
0037 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0038 02c7       |    |		Declare_Variable	Any
0039 00d8       |    |		Load_Top	At_Offset_0
003a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003b 00ec       |    |		Load_Encached	Diana_Tree_Cache
003c e004       |    |		Load	0x0,0x4
003d 1b52       | R  |		Execute	Package,Field_Read,Field_Number 0x52
003e 02c7       |    |		Declare_Variable	Any
003f 00d8       |    |		Load_Top	At_Offset_0
0040 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0041 e003       |    |		Load	0x0,0x3
0042 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0043 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0044 e005       |    |		Load	0x0,0x5
0045 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0046 02c7       |    |		Declare_Variable	Any
0047 e006       |    |		Load	0x0,0x6
0048 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0049 4801       |H   |		Short_Literal	0x1
004a e005       |    |		Load	0x0,0x5
004b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004c e005       |    |		Load	0x0,0x5
004d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
004e a40b       |    |		Store_Unchecked	0x2,0xb
004f 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0051 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
0053 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call
0055 029f 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Call
0057 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
0059 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
005b			BODY_0018:
005b e5fe       |    |		Load	0x2,-0x2
005c e002       |    |		Load	0x0,0x2
005d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
005e e002       |    |		Load	0x0,0x2
005f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0060 e002       |    |		Load	0x0,0x2
0061 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0062 4800       |H   |		Short_Literal	0x0
0063 0092 030a  |    |		Action	Push_String_Extended,0x30a					; "[Discover_Load_Proc_Unit_Names (\x22"
0065 e5ff       |    |		Load	0x2,-0x1
0066 01cc       |    |		Execute	Vector,Catenate
0067 0092 030b  |    |		Action	Push_String_Extended,0x30b					; "\x22);]"
0069 01cc       |    |		Execute	Vector,Catenate
006a e007       |    |		Load	0x0,0x7
006b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
006c e003       |    |		Load	0x0,0x3
006d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
006e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
006f e404       |    |		Load	0x2,0x4
0070 0120       |    |		Execute	Any,Is_Value
0071 6803       |h   |		Jump_Zero	0x75
0072 e003       |    |		Load	0x0,0x3
0073 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0074 7801       |x   |		Jump	0x76
0075 e404       |    |		Load	0x2,0x4
0076 6091       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x00004000}
0077 e005       |    |		Load	0x0,0x5
0078 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0079 e008       |    |		Load	0x0,0x8
007a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
007b e003       |    |		Load	0x0,0x3
007c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
007d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
007e e5ff       |    |		Load	0x2,-0x1
007f e003       |    |		Load	0x0,0x3
0080 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0081 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0082 c404       |    |		Store	0x2,0x4
0083 c40a       |    |		Store	0x2,0xa
0084 e40a       |    |		Load	0x2,0xa
0085 6818       |h   |		Jump_Zero	0x9e
0086 e002       |    |		Load	0x0,0x2
0087 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0088 4807       |H   |		Short_Literal	0x7
0089 0092 030c  |    |		Action	Push_String_Extended,0x30c					; "Could not locate Load_Proc: "
008b e5ff       |    |		Load	0x2,-0x1
008c 01cc       |    |		Execute	Vector,Catenate
008d 0092 030d  |    |		Action	Push_String_Extended,0x30d					; " ("
008f 01cc       |    |		Execute	Vector,Catenate
0090 e40a       |    |		Load	0x2,0xa
0091 e003       |    |		Load	0x0,0x3
0092 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0093 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0094 011c       |    |		Execute	Any,Convert_Unchecked
0095 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0096 01cc       |    |		Execute	Vector,Catenate
0097 0092 030e  |    |		Action	Push_String_Extended,0x30e					; ")"
0099 01cc       |    |		Execute	Vector,Catenate
009a e007       |    |		Load	0x0,0x7
009b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
009c e402       |    |		Load	0x2,0x2
009d 0257       | W  |		Execute	Discrete,Raise
009e 840c       |    |		Call	0x2,0xc
009f 840d       |    |		Call	0x2,0xd
00a0 840e       |    |		Call	0x2,0xe
00a1 840f       |    |		Call	0x2,0xf
00a2 8410       |    |		Call	0x2,0x10
00a3 e406       |    |		Load	0x2,0x6
00a4 e004       |    |		Load	0x0,0x4
00a5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a6 012f       | /  |		Execute	Any,Equal
00a7 7005       |p   |		Jump_Nonzero	0xad
00a8 e406       |    |		Load	0x2,0x6
00a9 e004       |    |		Load	0x0,0x4
00aa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ab 012f       | /  |		Execute	Any,Equal
00ac 6809       |h   |		Jump_Zero	0xb6
00ad e002       |    |		Load	0x0,0x2
00ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00af 4807       |H   |		Short_Literal	0x7
00b0 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "Could not open Program_Library for world of Load_Proc."
00b2 e007       |    |		Load	0x0,0x7
00b3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b4 e402       |    |		Load	0x2,0x2
00b5 0257       | W  |		Execute	Discrete,Raise
00b6 e404       |    |		Load	0x2,0x4
00b7 e003       |    |		Load	0x0,0x3
00b8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00b9 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
00ba e406       |    |		Load	0x2,0x6
00bb e004       |    |		Load	0x0,0x4
00bc 1b6a       | j  |		Execute	Package,Field_Read,Field_Number 0x6a
00bd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00be c407       |    |		Store	0x2,0x7
00bf e407       |    |		Load	0x2,0x7
00c0 e004       |    |		Load	0x0,0x4
00c1 1b6c       | l  |		Execute	Package,Field_Read,Field_Number 0x6c
00c2 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00c3 c409       |    |		Store	0x2,0x9
00c4 e409       |    |		Load	0x2,0x9
00c5 e004       |    |		Load	0x0,0x4
00c6 1b53       | S  |		Execute	Package,Field_Read,Field_Number 0x53
00c7 012f       | /  |		Execute	Any,Equal
00c8 6808       |h   |		Jump_Zero	0xd1
00c9 e002       |    |		Load	0x0,0x2
00ca 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00cb 4805       |H   |		Short_Literal	0x5
00cc 0092 0310  |    |		Action	Push_String_Extended,0x310					; "This Load_Proc has no associated code segments?"
00ce e007       |    |		Load	0x0,0x7
00cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00d0 7801       |x   |		Jump	0xd2
00d1 8411       |    |		Call	0x2,0x11
00d2 e40b       |    |		Load	0x2,0xb
00d3 4801       |H   |		Short_Literal	0x1
00d4 4800       |H   |		Short_Literal	0x0
00d5 e005       |    |		Load	0x0,0x5
00d6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00d7 c40b       |    |		Store	0x2,0xb
00d8 e002       |    |		Load	0x0,0x2
00d9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00da 4800       |H   |		Short_Literal	0x0
00db 0092 0311  |    |		Action	Push_String_Extended,0x311					; "[End Discover_Load_Proc_Unit_Names]"
00dd e007       |    |		Load	0x0,0x7
00de 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00df e403       |    |		Load	0x2,0x3
00e0 e002       |    |		Load	0x0,0x2
00e1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e3			TRAP_0018:
00e3 e402       |    |		Load	0x2,0x2
00e4 010f       |    |		Execute	Exception,Equal
00e5 680a       |h   |		Jump_Zero	0xf0
00e6 e40b       |    |		Load	0x2,0xb
00e7 4801       |H   |		Short_Literal	0x1
00e8 4800       |H   |		Short_Literal	0x0
00e9 e005       |    |		Load	0x0,0x5
00ea 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00eb c40b       |    |		Store	0x2,0xb
00ec e403       |    |		Load	0x2,0x3
00ed e002       |    |		Load	0x0,0x2
00ee 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00ef 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f0 e002       |    |		Load	0x0,0x2
00f1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f2 4808       |H   |		Short_Literal	0x8
00f3 0092 0312  |    |		Action	Push_String_Extended,0x312					; "Unexpected exception: "
00f5 4801       |H   |		Short_Literal	0x1
00f6 4801       |H   |		Short_Literal	0x1
00f7 e009       |    |		Load	0x0,0x9
00f8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00f9 01cc       |    |		Execute	Vector,Catenate
00fa e007       |    |		Load	0x0,0x7
00fb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00fc e40b       |    |		Load	0x2,0xb
00fd 4801       |H   |		Short_Literal	0x1
00fe 4800       |H   |		Short_Literal	0x0
00ff e005       |    |		Load	0x0,0x5
0100 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0101 c40b       |    |		Store	0x2,0xb
0102 e403       |    |		Load	0x2,0x3
0103 e002       |    |		Load	0x0,0x2
0104 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0105 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0106 0000 0000  |    |		.XXX[0x2]
0108 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
010c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118       |    |		.CONST	0x0118								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0002       |    |		.CONST	0x0002								; Number of locals
0113			INIT_0110:
0113 e404       |    |		Load	0x2,0x4
0114 e003       |    |		Load	0x0,0x3
0115 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0116 e003       |    |		Load	0x0,0x3
0117 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0118			BODY_0110:
0118 00d8       |    |		Load_Top	At_Offset_0
0119 01db       |    |		Execute	Vector,Length
011a 0d06       |    |		Execute_Immediate	Less,0x6
011b 7010       |p   |		Jump_Nonzero	0x12c
011c 00d8       |    |		Load_Top	At_Offset_0
011d 01dd       |    |		Execute	Vector,First
011e e602       |    |		Load	0x3,0x2
011f 01dd       |    |		Execute	Vector,First
0120 0a05       |    |		Execute_Immediate	Plus,0x5
0121 00d8       |    |		Load_Top	At_Offset_0
0122 00e2       |    |		Load_Encached	Integer_Cache
0123 0260       | `  |		Execute	Discrete,In_Type
0124 7001       |p   |		Jump_Nonzero	0x126
0125 0801       |    |		Execute_Immediate	Raise,0x1
0126 e602       |    |		Load	0x3,0x2
0127 01cf       |    |		Execute	Vector,Slice_Read
0128 0092 0313  |    |		Action	Push_String_Extended,0x313					; "LOADED"
012a 01de       |    |		Execute	Vector,Not_Equal
012b 680e       |h   |		Jump_Zero	0x13a
012c e002       |    |		Load	0x0,0x2
012d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
012e 4807       |H   |		Short_Literal	0x7
012f 0092 0314  |    |		Action	Push_String_Extended,0x314					; "Not a 'c(Load_Proc/Func): "
0131 e404       |    |		Load	0x2,0x4
0132 e003       |    |		Load	0x0,0x3
0133 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0134 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0135 01cc       |    |		Execute	Vector,Catenate
0136 e007       |    |		Load	0x0,0x7
0137 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0138 e402       |    |		Load	0x2,0x2
0139 0257       | W  |		Execute	Discrete,Raise
013a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
013b 0000 0000  |    |		.BLANK	0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014b       | K  |		.CONST	0x014b								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0003       |    |		.CONST	0x0003								; Number of locals
0143			INIT_0140:
0143 e003       |    |		Load	0x0,0x3
0144 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0145 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0146 02c7       |    |		Declare_Variable	Any
0147 00d8       |    |		Load_Top	At_Offset_0
0148 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0149 e003       |    |		Load	0x0,0x3
014a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014b			BODY_0140:
014b e003       |    |		Load	0x0,0x3
014c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014d e602       |    |		Load	0x3,0x2
014e 0120       |    |		Execute	Any,Is_Value
014f 6804       |h   |		Jump_Zero	0x154
0150 e003       |    |		Load	0x0,0x3
0151 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0152 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0153 7801       |x   |		Jump	0x155
0154 e602       |    |		Load	0x3,0x2
0155 e003       |    |		Load	0x0,0x3
0156 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0157 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0158 6033       |`3  |		Indirect_Literal	Discrete,0x18c,{0x00000000, 0x00004000}
0159 4801       |H   |		Short_Literal	0x1
015a 4800       |H   |		Short_Literal	0x0
015b 4800       |H   |		Short_Literal	0x0
015c e008       |    |		Load	0x0,0x8
015d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
015e e003       |    |		Load	0x0,0x3
015f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0160 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0161 e40b       |    |		Load	0x2,0xb
0162 4800       |H   |		Short_Literal	0x0
0163 e404       |    |		Load	0x2,0x4
0164 e003       |    |		Load	0x0,0x3
0165 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0166 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0167 e003       |    |		Load	0x0,0x3
0168 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0169 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
016a c408       |    |		Store	0x2,0x8
016b c602       |    |		Store	0x3,0x2
016c c603       |    |		Store	0x3,0x3
016d 00d8       |    |		Load_Top	At_Offset_0
016e 681a       |h   |		Jump_Zero	0x189
016f e002       |    |		Load	0x0,0x2
0170 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0171 4807       |H   |		Short_Literal	0x7
0172 0092 0315  |    |		Action	Push_String_Extended,0x315					; "Could not get Diana tree for Load_Proc "
0174 e404       |    |		Load	0x2,0x4
0175 e003       |    |		Load	0x0,0x3
0176 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0177 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0178 01cc       |    |		Execute	Vector,Catenate
0179 0092 030d  |    |		Action	Push_String_Extended,0x30d					; " ("
017b 01cc       |    |		Execute	Vector,Catenate
017c e603       |    |		Load	0x3,0x3
017d e003       |    |		Load	0x0,0x3
017e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017f 011c       |    |		Execute	Any,Convert_Unchecked
0180 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0181 01cc       |    |		Execute	Vector,Catenate
0182 0092 030e  |    |		Action	Push_String_Extended,0x30e					; ")"
0184 01cc       |    |		Execute	Vector,Catenate
0185 e007       |    |		Load	0x0,0x7
0186 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0187 e402       |    |		Load	0x2,0x2
0188 0257       | W  |		Execute	Discrete,Raise
0189 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018a 0000 0000  |    |		.XXX[0x2]
018c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0198       |    |		.CONST	0x0198								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0003       |    |		.CONST	0x0003								; Number of locals
0193			INIT_0190:
0193 e003       |    |		Load	0x0,0x3
0194 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0195 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0196 e003       |    |		Load	0x0,0x3
0197 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0198			BODY_0190:
0198 e003       |    |		Load	0x0,0x3
0199 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019a e003       |    |		Load	0x0,0x3
019b 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
019c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019d 67ee       |g   |		Indirect_Literal	Discrete,0x18c,{0x00000000, 0x00004000}
019e e005       |    |		Load	0x0,0x5
019f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a0 e408       |    |		Load	0x2,0x8
01a1 e003       |    |		Load	0x0,0x3
01a2 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
01a3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a4 c602       |    |		Store	0x3,0x2
01a5 c603       |    |		Store	0x3,0x3
01a6 00d8       |    |		Load_Top	At_Offset_0
01a7 681a       |h   |		Jump_Zero	0x1c2
01a8 e002       |    |		Load	0x0,0x2
01a9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01aa 4807       |H   |		Short_Literal	0x7
01ab 0092 0316  |    |		Action	Push_String_Extended,0x316					; "Could not state of Diana tree for Load_Proc "
01ad e404       |    |		Load	0x2,0x4
01ae e003       |    |		Load	0x0,0x3
01af 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01b0 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
01b1 01cc       |    |		Execute	Vector,Catenate
01b2 0092 030d  |    |		Action	Push_String_Extended,0x30d					; " ("
01b4 01cc       |    |		Execute	Vector,Catenate
01b5 e603       |    |		Load	0x3,0x3
01b6 e003       |    |		Load	0x0,0x3
01b7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b8 011c       |    |		Execute	Any,Convert_Unchecked
01b9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01ba 01cc       |    |		Execute	Vector,Catenate
01bb 0092 030e  |    |		Action	Push_String_Extended,0x30e					; ")"
01bd 01cc       |    |		Execute	Vector,Catenate
01be e007       |    |		Load	0x0,0x7
01bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01c0 e402       |    |		Load	0x2,0x2
01c1 0257       | W  |		Execute	Discrete,Raise
01c2 e602       |    |		Load	0x3,0x2
01c3 0e04       |    |		Execute_Immediate	Not_Equal,0x4
01c4 681a       |h   |		Jump_Zero	0x1df
01c5 e002       |    |		Load	0x0,0x2
01c6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01c7 4807       |H   |		Short_Literal	0x7
01c8 0092 0317  |    |		Action	Push_String_Extended,0x317					; "Load_Proc is not coded: "
01ca e404       |    |		Load	0x2,0x4
01cb e003       |    |		Load	0x0,0x3
01cc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01cd 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
01ce 01cc       |    |		Execute	Vector,Catenate
01cf 0092 030d  |    |		Action	Push_String_Extended,0x30d					; " ("
01d1 01cc       |    |		Execute	Vector,Catenate
01d2 e603       |    |		Load	0x3,0x3
01d3 e003       |    |		Load	0x0,0x3
01d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d5 011c       |    |		Execute	Any,Convert_Unchecked
01d6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01d7 01cc       |    |		Execute	Vector,Catenate
01d8 0092 030e  |    |		Action	Push_String_Extended,0x30e					; ")"
01da 01cc       |    |		Execute	Vector,Catenate
01db e007       |    |		Load	0x0,0x7
01dc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01dd e402       |    |		Load	0x2,0x2
01de 0257       | W  |		Execute	Discrete,Raise
01df 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e8       |    |		.CONST	0x01e8								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0002       |    |		.CONST	0x0002								; Number of locals
01e3			INIT_01e0:
01e3 e00a       |    |		Load	0x0,0xa
01e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e5 02c7       |    |		Declare_Variable	Any
01e6 00d8       |    |		Load_Top	At_Offset_0
01e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e8			BODY_01e0:
01e8 4800       |H   |		Short_Literal	0x0
01e9 4800       |H   |		Short_Literal	0x0
01ea 4801       |H   |		Short_Literal	0x1
01eb e602       |    |		Load	0x3,0x2
01ec e40b       |    |		Load	0x2,0xb
01ed e008       |    |		Load	0x0,0x8
01ee 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01ef e00b       |    |		Load	0x0,0xb
01f0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01f1 e004       |    |		Load	0x0,0x4
01f2 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
01f3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01f4 c405       |    |		Store	0x2,0x5
01f5 00d8       |    |		Load_Top	At_Offset_0
01f6 e00a       |    |		Load	0x0,0xa
01f7 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01f8 7010       |p   |		Jump_Nonzero	0x209
01f9 e002       |    |		Load	0x0,0x2
01fa 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01fb 4807       |H   |		Short_Literal	0x7
01fc 0092 0318  |    |		Action	Push_String_Extended,0x318					; "Error initializing a Program_Library.Pl_State.State? ("
01fe e602       |    |		Load	0x3,0x2
01ff e00a       |    |		Load	0x0,0xa
0200 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0201 01cc       |    |		Execute	Vector,Catenate
0202 0092 030e  |    |		Action	Push_String_Extended,0x30e					; ")"
0204 01cc       |    |		Execute	Vector,Catenate
0205 e007       |    |		Load	0x0,0x7
0206 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0207 e402       |    |		Load	0x2,0x2
0208 0257       | W  |		Execute	Discrete,Raise
0209 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
020a 0000 0000  |    |		.BLANK	0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0223       | #  |		.CONST	0x0223								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 e406       |    |		Load	0x2,0x6
0214 0120       |    |		Execute	Any,Is_Value
0215 6803       |h   |		Jump_Zero	0x219
0216 e004       |    |		Load	0x0,0x4
0217 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0218 7801       |x   |		Jump	0x21a
0219 e406       |    |		Load	0x2,0x6
021a 4800       |H   |		Short_Literal	0x0
021b 4801       |H   |		Short_Literal	0x1
021c e408       |    |		Load	0x2,0x8
021d e405       |    |		Load	0x2,0x5
021e e004       |    |		Load	0x0,0x4
021f 1b6a       | j  |		Execute	Package,Field_Read,Field_Number 0x6a
0220 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0221 c406       |    |		Store	0x2,0x6
0222 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0223			TRAP_0210:
0223 4887       |H   |		Short_Literal	0x87
0224 010f       |    |		Execute	Exception,Equal
0225 6809       |h   |		Jump_Zero	0x22f
0226 e002       |    |		Load	0x0,0x2
0227 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0228 4807       |H   |		Short_Literal	0x7
0229 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "Could not open Program_Library for world of Load_Proc."
022b e007       |    |		Load	0x0,0x7
022c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
022d e402       |    |		Load	0x2,0x2
022e 0257       | W  |		Execute	Discrete,Raise
022f 0100       |    |		Execute	Exception,Raise
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0245       | E  |		.CONST	0x0245								; Address of begin
0231 02e8       |    |		.CONST	0x02e8								; Address of exception handler
0232 0007       |    |		.CONST	0x0007								; Number of locals
0233			INIT_0230:
0233 e003       |    |		Load	0x0,0x3
0234 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0235 02ff       |    |		Declare_Variable	Variant_Record
0236 00d8       |    |		Load_Top	At_Offset_0
0237 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0238 e00c       |    |		Load	0x0,0xc
0239 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
023a 02c7       |    |		Declare_Variable	Any
023b 00d8       |    |		Load_Top	At_Offset_0
023c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
023d e00d       |    |		Load	0x0,0xd
023e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023f e00e       |    |		Load	0x0,0xe
0240 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0241 e00e       |    |		Load	0x0,0xe
0242 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0243 e00e       |    |		Load	0x0,0xe
0244 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0245			BODY_0230:
0245 00be       |    |		Action	Activate_Tasks
0246 00cf       |    |		Action	Mark_Auxiliary
0247 789a       |x   |		Jump	0x2e2
0248 e409       |    |		Load	0x2,0x9
0249 e004       |    |		Load	0x0,0x4
024a 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
024b e602       |    |		Load	0x3,0x2
024c 016d       | m  |		Execute	Variant_Record,Structure_Write
024d e00d       |    |		Load	0x0,0xd
024e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
024f e603       |    |		Load	0x3,0x3
0250 0120       |    |		Execute	Any,Is_Value
0251 6803       |h   |		Jump_Zero	0x255
0252 e00c       |    |		Load	0x0,0xc
0253 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0254 7801       |x   |		Jump	0x256
0255 e603       |    |		Load	0x3,0x3
0256 e40b       |    |		Load	0x2,0xb
0257 4800       |H   |		Short_Literal	0x0
0258 e00c       |    |		Load	0x0,0xc
0259 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
025a e00f       |    |		Load	0x0,0xf
025b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
025c e00c       |    |		Load	0x0,0xc
025d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
025e 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
025f 4801       |H   |		Short_Literal	0x1
0260 e602       |    |		Load	0x3,0x2
0261 e00c       |    |		Load	0x0,0xc
0262 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0263 0162       | b  |		Execute	Variant_Record,Check_In_Type
0264 e00c       |    |		Load	0x0,0xc
0265 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0266 c603       |    |		Store	0x3,0x3
0267 c604       |    |		Store	0x3,0x4
0268 e604       |    |		Load	0x3,0x4
0269 6802       |h   |		Jump_Zero	0x26c
026a e402       |    |		Load	0x2,0x2
026b 0257       | W  |		Execute	Discrete,Raise
026c e00d       |    |		Load	0x0,0xd
026d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
026e e00c       |    |		Load	0x0,0xc
026f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0270 e603       |    |		Load	0x3,0x3
0271 4803       |H   |		Short_Literal	0x3
0272 e00c       |    |		Load	0x0,0xc
0273 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0274 c603       |    |		Store	0x3,0x3
0275 c605       |    |		Store	0x3,0x5
0276 c604       |    |		Store	0x3,0x4
0277 e604       |    |		Load	0x3,0x4
0278 6802       |h   |		Jump_Zero	0x27b
0279 e402       |    |		Load	0x2,0x2
027a 0257       | W  |		Execute	Discrete,Raise
027b e00d       |    |		Load	0x0,0xd
027c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027d e00c       |    |		Load	0x0,0xc
027e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
027f e603       |    |		Load	0x3,0x3
0280 e605       |    |		Load	0x3,0x5
0281 0a01       |    |		Execute_Immediate	Plus,0x1
0282 00d8       |    |		Load_Top	At_Offset_0
0283 e00e       |    |		Load	0x0,0xe
0284 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0285 0260       | `  |		Execute	Discrete,In_Type
0286 7001       |p   |		Jump_Nonzero	0x288
0287 0801       |    |		Execute_Immediate	Raise,0x1
0288 e00c       |    |		Load	0x0,0xc
0289 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
028a c603       |    |		Store	0x3,0x3
028b c606       |    |		Store	0x3,0x6
028c c604       |    |		Store	0x3,0x4
028d e604       |    |		Load	0x3,0x4
028e 6802       |h   |		Jump_Zero	0x291
028f e402       |    |		Load	0x2,0x2
0290 0257       | W  |		Execute	Discrete,Raise
0291 e00d       |    |		Load	0x0,0xd
0292 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0293 e00c       |    |		Load	0x0,0xc
0294 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0295 e603       |    |		Load	0x3,0x3
0296 e605       |    |		Load	0x3,0x5
0297 0a02       |    |		Execute_Immediate	Plus,0x2
0298 00d8       |    |		Load_Top	At_Offset_0
0299 e00e       |    |		Load	0x0,0xe
029a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
029b 0260       | `  |		Execute	Discrete,In_Type
029c 7001       |p   |		Jump_Nonzero	0x29e
029d 0801       |    |		Execute_Immediate	Raise,0x1
029e e00c       |    |		Load	0x0,0xc
029f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
02a0 c603       |    |		Store	0x3,0x3
02a1 c607       |    |		Store	0x3,0x7
02a2 c604       |    |		Store	0x3,0x4
02a3 e604       |    |		Load	0x3,0x4
02a4 6802       |h   |		Jump_Zero	0x2a7
02a5 e402       |    |		Load	0x2,0x2
02a6 0257       | W  |		Execute	Discrete,Raise
02a7 0092 0319  |    |		Action	Push_String_Extended,0x319					; "Library.Resolve (\x22<[ADA,"
02a9 e010       |    |		Load	0x0,0x10
02aa 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
02ab 480a       |H   |		Short_Literal	0xa
02ac 4808       |H   |		Short_Literal	0x8
02ad e606       |    |		Load	0x3,0x6
02ae 0910       |    |		Execute_Immediate	Binary_Scale,0x10
02af e607       |    |		Load	0x3,0x7
02b0 0273       | s  |		Execute	Discrete,Plus
02b1 00d8       |    |		Load_Top	At_Offset_0
02b2 00e2       |    |		Load_Encached	Integer_Cache
02b3 0260       | `  |		Execute	Discrete,In_Type
02b4 7001       |p   |		Jump_Nonzero	0x2b6
02b5 0801       |    |		Execute_Immediate	Raise,0x1
02b6 e010       |    |		Load	0x0,0x10
02b7 186c       | l  |		Execute	Package,Field_Execute,Field_Number 0x6c
02b8 0092 031a  |    |		Action	Push_String_Extended,0x31a					; ",1]>\x22);"
02ba e010       |    |		Load	0x0,0x10
02bb 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
02bc 4801       |H   |		Short_Literal	0x1
02bd e010       |    |		Load	0x0,0x10
02be 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
02bf 0092 031b  |    |		Action	Push_String_Extended,0x31b					; "<VERBOSE> ~::: ~*** ~++*"
02c1 4801       |H   |		Short_Literal	0x1
02c2 00ea       |    |		Load_Encached	Null_String_Cache
02c3 0092 031c  |    |		Action	Push_String_Extended,0x31c					; "<[ADA,"
02c5 e606       |    |		Load	0x3,0x6
02c6 0910       |    |		Execute_Immediate	Binary_Scale,0x10
02c7 e607       |    |		Load	0x3,0x7
02c8 0273       | s  |		Execute	Discrete,Plus
02c9 00d8       |    |		Load_Top	At_Offset_0
02ca 00e2       |    |		Load_Encached	Integer_Cache
02cb 0260       | `  |		Execute	Discrete,In_Type
02cc 7001       |p   |		Jump_Nonzero	0x2ce
02cd 0801       |    |		Execute_Immediate	Raise,0x1
02ce 00e0       |    |		Load_Encached	Standard_Cache
02cf 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02d0 01cc       |    |		Execute	Vector,Catenate
02d1 0092 031d  |    |		Action	Push_String_Extended,0x31d					; ",1]>"
02d3 01cc       |    |		Execute	Vector,Catenate
02d4 e011       |    |		Load	0x0,0x11
02d5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02d6 e00d       |    |		Load	0x0,0xd
02d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02d8 e603       |    |		Load	0x3,0x3
02d9 e00c       |    |		Load	0x0,0xc
02da 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02db c603       |    |		Store	0x3,0x3
02dc c604       |    |		Store	0x3,0x4
02dd e409       |    |		Load	0x2,0x9
02de e004       |    |		Load	0x0,0x4
02df 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
02e0 c409       |    |		Store	0x2,0x9
02e1 00c9       |    |		Action	Pop_Auxiliary_Loop
02e2 e409       |    |		Load	0x2,0x9
02e3 e004       |    |		Load	0x0,0x4
02e4 1b53       | S  |		Execute	Package,Field_Read,Field_Number 0x53
02e5 012f       | /  |		Execute	Any,Equal
02e6 6f61       |oa  |		Jump_Zero	0x248
02e7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02e8			TRAP_0230:
02e8 e402       |    |		Load	0x2,0x2
02e9 010f       |    |		Execute	Exception,Equal
02ea 6816       |h   |		Jump_Zero	0x301
02eb e002       |    |		Load	0x0,0x2
02ec 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02ed 4807       |H   |		Short_Literal	0x7
02ee 0092 031e  |    |		Action	Push_String_Extended,0x31e					; "Got error accessing Load_Proc code segment: "
02f0 e604       |    |		Load	0x3,0x4
02f1 e00d       |    |		Load	0x0,0xd
02f2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f3 011c       |    |		Execute	Any,Convert_Unchecked
02f4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02f5 01cc       |    |		Execute	Vector,Catenate
02f6 e007       |    |		Load	0x0,0x7
02f7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f8 e00d       |    |		Load	0x0,0xd
02f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02fa e603       |    |		Load	0x3,0x3
02fb e00c       |    |		Load	0x0,0xc
02fc 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02fd c603       |    |		Store	0x3,0x3
02fe c604       |    |		Store	0x3,0x4
02ff 00d8       |    |		Load_Top	At_Offset_0
0300 0101       |    |		Execute	Exception,Reraise
0301 e00d       |    |		Load	0x0,0xd
0302 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0303 e603       |    |		Load	0x3,0x3
0304 e00c       |    |		Load	0x0,0xc
0305 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0306 c603       |    |		Store	0x3,0x3
0307 c604       |    |		Store	0x3,0x4
0308 00d8       |    |		Load_Top	At_Offset_0
0309 0101       |    |		Execute	Exception,Reraise
030a ; --------------------------------------------------------------------------------------
030a ; STRING TABLE
030a ; --------------------------------------------------------------------------------------
030a 002c       | ,  |		.STRTAB	0x002c->0x0320							; "[Discover_Load_Proc_Unit_Names (\x22"
030b 004b       | K  |		.STRTAB	0x004b->0x0330							; "\x22);]"
030c 004d       | M  |		.STRTAB	0x004d->0x0332							; "Could not locate Load_Proc: "
030d 0067       | g  |		.STRTAB	0x0067->0x0340							; " ("
030e 0067       | g  |		.STRTAB	0x0067->0x0341							; ")"
030f 0066       | f  |		.STRTAB	0x0066->0x0342							; "Could not open Program_Library for world of Load_Proc."
0310 009a       |    |		.STRTAB	0x009a->0x035d							; "This Load_Proc has no associated code segments?"
0311 00c7       |    |		.STRTAB	0x00c7->0x0374							; "[End Discover_Load_Proc_Unit_Names]"
0312 00e8       |    |		.STRTAB	0x00e8->0x0386							; "Unexpected exception: "
0313 00fc       |    |		.STRTAB	0x00fc->0x0391							; "LOADED"
0314 0100       |    |		.STRTAB	0x0100->0x0394							; "Not a 'c(Load_Proc/Func): "
0315 0118       |    |		.STRTAB	0x0118->0x03a1							; "Could not get Diana tree for Load_Proc "
0316 013d       | =  |		.STRTAB	0x013d->0x03b4							; "Could not state of Diana tree for Load_Proc "
0317 0167       | g  |		.STRTAB	0x0167->0x03ca							; "Load_Proc is not coded: "
0318 017d       | }  |		.STRTAB	0x017d->0x03d6							; "Error initializing a Program_Library.Pl_State.State? ("
0319 01b1       |    |		.STRTAB	0x01b1->0x03f1							; "Library.Resolve (\x22<[ADA,"
031a 01c7       |    |		.STRTAB	0x01c7->0x03fd							; ",1]>\x22);"
031b 01cc       |    |		.STRTAB	0x01cc->0x0401							; "<VERBOSE> ~::: ~*** ~++*"
031c 01e2       |    |		.STRTAB	0x01e2->0x040d							; "<[ADA,"
031d 01e6       |    |		.STRTAB	0x01e6->0x0410							; ",1]>"
031e 01e8       |    |		.STRTAB	0x01e8->0x0412							; "Got error accessing Load_Proc code segment: "
031f 0212       |    |		.STREND 0x0212->0x0428
0320 5b44 6973  |[Dis|		.STRTAB_STRINGS
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug Table
0428 ; --------------------------------------------------------------------------------------
0428 0004 0010  |    |		.DEBUG4	0x0004,0x0010,0xd598,0x0000,0x0001,0x0000
042e 959d 95c8  |    |		.XXX[0x1d2]
0430 81c1 85c9  |    |
0432 d0b8 8081  |    |
0434 2598 8115  |%   |
0436 e1c0 81a1  |    |
0438 85cc 81d1  |    |
043a a194 81d9  |    |
043c 85b1 d594  |    |
043e 80c0 b081  |    |
0440 d1a1 9481  |    |
0442 a5b9 d195  |    |
0444 9d95 c881  |    |
0446 c185 c9d0  |    |
0448 81d1 bc81  |    |
044a 8994 2880  |  ( |
044c 81bd d5d1  |    |
044e c1d5 d081  |    |
0450 a185 cc81  |    |
0452 85cc 81b5  |    |
0454 85b9 e481  |    |
0456 91a5 9da5  |    |
0458 d1cc 8185  |    |
045a cc81 b995  |    |
045c 9591 9590  |    |
045e 81d1 bc81  |    |
0460 c995 c1c9  |    |
0462 95cd 95b9  |    |
0464 d081 d1a1  |    |
0466 9481 a5b9  |    |
0468 d195 9d95  |    |
046a c881 c185  |    |
046c c9d0 2880  |  ( |
046e 81bd 9881  |    |
0470 d1a1 9481  |    |
0472 d985 b1d5  |    |
0474 9481 bd98  |    |
0476 81d1 a194  |    |
0478 8125 d195  | %  |
047a b481 c185  |    |
047c c985 b595  |    |
047e d195 c8b0  |    |
0480 81bd d995  |    |
0482 c9c9 a591  |    |
0484 a5b9 9c81  |    |
0486 19bd c994  |    |
0488 81a5 9881  |    |
048a b995 8d95  |    |
048c cdcd 85c9  |    |
048e e4b0 2880  |  ( |
0490 81bd c881  |    |
0492 a5d0 818d  |    |
0494 bdb9 cda5  |    |
0496 cdd1 cc81  |    |
0498 bd98 81d1  |    |
049a a194 8191  |    |
049c a59d a5d0  |    |
049e 80c0 81a5  |    |
04a0 9881 d1a1  |    |
04a2 9481 d985  |    |
04a4 b1d5 9481  |    |
04a6 bd98 8125  |   %|
04a8 d195 b481  |    |
04aa a185 cc81  |    |
04ac b9bc 81a5  |    |
04ae b9d1 959d  |    |
04b0 95c8 2880  |  ( |
04b2 81c1 85c9  |    |
04b4 d0b8 2828  |  ((|
04b6 8081 2598  |  % |
04b8 8115 e1c0  |    |
04ba 81a1 85cc  |    |
04bc 8184 81d9  |    |
04be 85b1 d594  |    |
04c0 819d c995  |    |
04c2 85d1 95c8  |    |
04c4 81d1 a185  |    |
04c6 b880 c0b0  |    |
04c8 81d1 a194  |    |
04ca 81a5 b9d1  |    |
04cc 959d 95c8  |    |
04ce 81c1 85c9  |    |
04d0 d081 d1bc  |    |
04d2 8189 9481  |    |
04d4 bdd5 d1c1  |    |
04d6 d5d0 2880  |  ( |
04d8 81a1 85cc  |    |
04da 8184 81cd  |    |
04dc a5b9 9db1  |    |
04de 9481 91a5  |    |
04e0 9da5 d0b0  |    |
04e2 81dd a1a5  |    |
04e4 8da0 81a5  |    |
04e6 cc81 b9bd  |    |
04e8 b9e9 95c9  |    |
04ea bc81 95e1  |    |
04ec 8d95 c1d0  |    |
04ee 8199 bdc8  |    |
04f0 81d1 a194  |    |
04f2 81d9 85b1  |    |
04f4 d594 80c0  |    |
04f6 b8c0 81bd  |    |
04f8 9828 8081  | (  |
04fa d1a1 9481  |    |
04fc 25d1 95b4  |%   |
04fe 81c1 85c9  |    |
0500 85b5 95d1  |    |
0502 95c8 b828  |   (|
0504 2880 8125  |(  %|
0506 b881 89bd  |    |
0508 d1a0 818d  |    |
050a 85cd 95cc  |    |
050c b081 a1bd  |    |
050e dd95 d995  |    |
0510 c8b0 81a5  |    |
0512 9881 d1a1  |    |
0514 9481 a5b9  |    |
0516 d195 9d95  |    |
0518 c881 c185  |    |
051a c9d0 81d1  |    |
051c bc81 8994  |    |
051e 81bd d5d1  |    |
0520 c1d5 d081  |    |
0522 a185 cc81  |    |
0524 9995 dd95  |    |
0526 c828 8081  | (  |
0528 d1a1 85b8  |    |
052a 8119 bdc9  |    |
052c 9481 8da1  |    |
052e 85c9 858d  |    |
0530 d195 c9cc  |    |
0532 b081 a5b9  |    |
0534 8db1 d591  |    |
0536 a5b9 9c81  |    |
0538 85b9 e481  |    |
053a b5a5 b9d5  |    |
053c cc81 cda5  |    |
053e 9db8 b081  |    |
0540 b195 8591  |    |
0542 a5b9 9c81  |    |
0544 cdc1 858d  |    |
0546 95cc 2880  |  ( |
0548 8185 c994  |    |
054a 81bd d5d1  |    |
054c c1d5 d081  |    |
054e d1bc 81b5  |    |
0550 85ad 9481  |    |
0552 d5c0 81d1  |    |
0554 a194 8191  |    |
0556 a599 9995  |    |
0558 c995 b98d  |    |
055a 94b8 8081  |    |
055c 51a1 9481  |Q   |
055e b9d5 b589  |    |
0560 95c8 81bd  |    |
0562 9881 91a5  |    |
0564 9da5 d1cc  |    |
0566 81bd 9881  |    |
0568 d1a1 9428  |   (|
056a 8081 99c9  |    |
056c 858d d1a5  |    |
056e bdb9 85b0  |    |
0570 81c1 85c9  |    |
0572 d081 a5cc  |    |
0574 81cd c195  |    |
0576 8da5 99a5  |    |
0578 9590 8189  |    |
057a e481 0599  |    |
057c d0b0 81bd  |    |
057e c881 a5d0  |    |
0580 81a5 cc80  |    |
0582 c481 a598  |    |
0584 8105 99d0  |    |
0586 8195 c5d5  |    |
0588 85b1 cc80  |    |
058a c0b8 2880  |  ( |
058c 8151 a194  | Q  |
058e 81d9 85b1  |    |
0590 d594 81a5  |    |
0592 cc81 c9bd  |    |
0594 d5b9 9195  |    |
0596 90ec 8184  |    |
0598 81d9 85b1  |    |
059a d594 81bd  |    |
059c 9881 95e1  |    |
059e 858d d1b1  |    |
05a0 e481 bdb9  |    |
05a2 94b5 a185  |    |
05a4 b198 81a5  |    |
05a6 b881 d1a1  |    |
05a8 9481 b185  |    |
05aa cdd0 81c1  |    |
05ac b185 8d94  |    |
05ae 2880 818d  |(   |
05b0 85b8 8189  |    |
05b2 9481 c9bd  |    |
05b4 d5b9 9195  |    |
05b6 9081 95a5  |    |
05b8 d1a1 95c8  |    |
05ba 81d5 c081  |    |
05bc bdc8 8191  |    |
05be bddd b8b8  |    |
05c0 2828 8081  |((  |
05c2 2598 8115  |%   |
05c4 e1c0 81a1  |    |
05c6 85cc 81d1  |    |
05c8 a194 81d9  |    |
05ca 85b1 d594  |    |
05cc 80c0 b081  |    |
05ce d1a1 95c9  |    |
05d0 9481 a5cc  |    |
05d2 81b9 bc81  |    |
05d4 95e1 c1bd  |    |
05d6 b995 b9d0  |    |
05d8 81c1 85c9  |    |
05da d0b8 8081  |    |
05dc 2598 8115  |%   |
05de e1c0 81a1  |    |
05e0 85cc 8184  |    |
05e2 2880 81d9  |(   |
05e4 85b1 d594  |    |
05e6 819d c995  |    |
05e8 85d1 95c8  |    |
05ea 81d1 a185  |    |
05ec b880 c0b0  |    |
05ee 81d1 a194  |    |
05f0 8195 e1c1  |    |
05f2 bdb9 95b9  |    |
05f4 d081 c185  |    |
05f6 c9d0 81d1  |    |
05f8 bc81 8994  |    |
05fa 81bd d5d1  |    |
05fc c1d5 d081  |    |
05fe a185 cc81  |    |