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

⟦812b804ea⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd

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 06f0       |    |		.CONST	0x06f0								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0030       | 0  |		.CONST	0x0030								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001b       |    |		.CONST	0x001b								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0011 00bf       |    |		Action	Accept_Activation
0012 029d 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call
0014 029d 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call
0016 029d 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call
0018 029d 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call
001a 029d 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call
001c 029d 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call
001e 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
0020 029d 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call
0022 029d 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call
0024 029d 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call
0026 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 029d 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call
002a 029d 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call
002c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
002f 00c7       |    |		Action	Elaborate_Subprogram
0030			BODY_0008:
0030 00bc       |    |		Action	Signal_Activated
0031 00bb       |    |		Action	Signal_Completion
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0049       | I  |		.CONST	0x0049								; Address of begin
0039 00af       |    |		.CONST	0x00af								; Address of exception handler
003a 0005       |    |		.CONST	0x0005								; Number of locals
003b			INIT_0038:
003b e002       |    |		Load	0x0,0x2
003c 02c7       |    |		Declare_Variable	Any
003d 00d8       |    |		Load_Top	At_Offset_0
003e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003f 00e1       |    |		Load_Encached	Boolean_Cache
0040 e003       |    |		Load	0x0,0x3
0041 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0042 02c7       |    |		Declare_Variable	Any
0043 00d8       |    |		Load_Top	At_Offset_0
0044 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0045 e004       |    |		Load	0x0,0x4
0046 0322       | "  |		Declare_Variable	Record
0047 00d8       |    |		Load_Top	At_Offset_0
0048 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0049			BODY_0038:
0049 00e1       |    |		Load_Encached	Boolean_Cache
004a e402       |    |		Load	0x2,0x2
004b 0120       |    |		Execute	Any,Is_Value
004c 6802       |h   |		Jump_Zero	0x4f
004d e002       |    |		Load	0x0,0x2
004e 7801       |x   |		Jump	0x50
004f e402       |    |		Load	0x2,0x2
0050 e5fd       |    |		Load	0x2,-0x3
0051 8005       |    |		Call	0x0,0x5
0052 c402       |    |		Store	0x2,0x2
0053 005b       | [  |		Store_Top	Discrete,At_Offset_3
0054 00da       |    |		Load_Top	At_Offset_2
0055 7001       |p   |		Jump_Nonzero	0x57
0056 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0057 e5fc       |    |		Load	0x2,-0x4
0058 e402       |    |		Load	0x2,0x2
0059 e5ff       |    |		Load	0x2,-0x1
005a 8006       |    |		Call	0x0,0x6
005b 8211       |    |		Call	0x1,0x11
005c 6803       |h   |		Jump_Zero	0x60
005d e5fb       |    |		Load	0x2,-0x5
005e 8219       |    |		Call	0x1,0x19
005f 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0060 00d9       |    |		Load_Top	At_Offset_1
0061 00d9       |    |		Load_Top	At_Offset_1
0062 e5fc       |    |		Load	0x2,-0x4
0063 8007       |    |		Call	0x0,0x7
0064 00d1       |    |		Pop_Control	Pop_Count_1
0065 c404       |    |		Store	0x2,0x4
0066 4802       |H   |		Short_Literal	0x2
0067 00da       |    |		Load_Top	At_Offset_2
0068 e003       |    |		Load	0x0,0x3
0069 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
006a 6801       |h   |		Jump_Zero	0x6c
006b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
006c 0092 04d3  |    |		Action	Push_String_Extended,0x4d3					; "implicit"
006e e5ff       |    |		Load	0x2,-0x1
006f 8008       |    |		Call	0x0,0x8
0070 6834       |h4  |		Jump_Zero	0xa5
0071 00d9       |    |		Load_Top	At_Offset_1
0072 00d9       |    |		Load_Top	At_Offset_1
0073 e009       |    |		Load	0x0,0x9
0074 e5fb       |    |		Load	0x2,-0x5
0075 e402       |    |		Load	0x2,0x2
0076 800a       |    |		Call	0x0,0xa
0077 e00b       |    |		Load	0x0,0xb
0078 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0079 c009       |    |		Store	0x0,0x9
007a 00d1       |    |		Pop_Control	Pop_Count_1
007b c404       |    |		Store	0x2,0x4
007c 4802       |H   |		Short_Literal	0x2
007d 00da       |    |		Load_Top	At_Offset_2
007e e003       |    |		Load	0x0,0x3
007f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0080 6815       |h   |		Jump_Zero	0x96
0081 480a       |H   |		Short_Literal	0xa
0082 480a       |H   |		Short_Literal	0xa
0083 0092 04d4  |    |		Action	Push_String_Extended,0x4d4					; "Could not catch implicit exceptions "
0085 4800       |H   |		Short_Literal	0x0
0086 e402       |    |		Load	0x2,0x2
0087 e405       |    |		Load	0x2,0x5
0088 e5fc       |    |		Load	0x2,-0x4
0089 800c       |    |		Call	0x0,0xc
008a 01cc       |    |		Execute	Vector,Catenate
008b 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; ":"
008d 01cc       |    |		Execute	Vector,Catenate
008e 01cb       |    |		Execute	Vector,Append
008f 00db       |    |		Load_Top	At_Offset_3
0090 e003       |    |		Load	0x0,0x3
0091 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0092 01cc       |    |		Execute	Vector,Catenate
0093 01cb       |    |		Execute	Vector,Append
0094 800d       |    |		Call	0x0,0xd
0095 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0096 480a       |H   |		Short_Literal	0xa
0097 0092 04d6  |    |		Action	Push_String_Extended,0x4d6					; "Implicit exceptions will be caught when raised "
0099 4800       |H   |		Short_Literal	0x0
009a e402       |    |		Load	0x2,0x2
009b e405       |    |		Load	0x2,0x5
009c e5fc       |    |		Load	0x2,-0x4
009d 800c       |    |		Call	0x0,0xc
009e 01cc       |    |		Execute	Vector,Catenate
009f 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "."
00a1 01cc       |    |		Execute	Vector,Catenate
00a2 01cb       |    |		Execute	Vector,Append
00a3 800e       |    |		Call	0x0,0xe
00a4 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 e402       |    |		Load	0x2,0x2
00a7 e5fb       |    |		Load	0x2,-0x5
00a8 e5fc       |    |		Load	0x2,-0x4
00a9 e5fe       |    |		Load	0x2,-0x2
00aa e5ff       |    |		Load	0x2,-0x1
00ab 8006       |    |		Call	0x0,0x6
00ac 8218       |    |		Call	0x1,0x18
00ad 00d1       |    |		Pop_Control	Pop_Count_1
00ae 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00af			TRAP_0038:
00af 0007       |    |		Action	Break_Optional
00b0 480a       |H   |		Short_Literal	0xa
00b1 0092 04d8  |    |		Action	Push_String_Extended,0x4d8					; "Exception raised during command processing: "
00b3 e00f       |    |		Load	0x0,0xf
00b4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00b5 01cc       |    |		Execute	Vector,Catenate
00b6 01cb       |    |		Execute	Vector,Append
00b7 800d       |    |		Call	0x0,0xd
00b8 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00b9 0000 0000  |    |		.BLANK	0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d1       |    |		.CONST	0x00d1								; Address of begin
00c1 0134       | 4  |		.CONST	0x0134								; Address of exception handler
00c2 0005       |    |		.CONST	0x0005								; Number of locals
00c3			INIT_00c0:
00c3 e002       |    |		Load	0x0,0x2
00c4 02c7       |    |		Declare_Variable	Any
00c5 00d8       |    |		Load_Top	At_Offset_0
00c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c7 00e1       |    |		Load_Encached	Boolean_Cache
00c8 e004       |    |		Load	0x0,0x4
00c9 0322       | "  |		Declare_Variable	Record
00ca 00d8       |    |		Load_Top	At_Offset_0
00cb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00cc e003       |    |		Load	0x0,0x3
00cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ce 02c7       |    |		Declare_Variable	Any
00cf 00d8       |    |		Load_Top	At_Offset_0
00d0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d1			BODY_00c0:
00d1 00e1       |    |		Load_Encached	Boolean_Cache
00d2 e402       |    |		Load	0x2,0x2
00d3 0120       |    |		Execute	Any,Is_Value
00d4 6802       |h   |		Jump_Zero	0xd7
00d5 e002       |    |		Load	0x0,0x2
00d6 7801       |x   |		Jump	0xd8
00d7 e402       |    |		Load	0x2,0x2
00d8 e5fd       |    |		Load	0x2,-0x3
00d9 8005       |    |		Call	0x0,0x5
00da c402       |    |		Store	0x2,0x2
00db 005b       | [  |		Store_Top	Discrete,At_Offset_3
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 7001       |p   |		Jump_Nonzero	0xdf
00de 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00df e5fc       |    |		Load	0x2,-0x4
00e0 e402       |    |		Load	0x2,0x2
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 8006       |    |		Call	0x0,0x6
00e3 8211       |    |		Call	0x1,0x11
00e4 6802       |h   |		Jump_Zero	0xe7
00e5 821b       |    |		Call	0x1,0x1b
00e6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00e7 00d8       |    |		Load_Top	At_Offset_0
00e8 00da       |    |		Load_Top	At_Offset_2
00e9 e5fc       |    |		Load	0x2,-0x4
00ea 8007       |    |		Call	0x0,0x7
00eb 00d1       |    |		Pop_Control	Pop_Count_1
00ec c405       |    |		Store	0x2,0x5
00ed 4802       |H   |		Short_Literal	0x2
00ee 00d9       |    |		Load_Top	At_Offset_1
00ef e003       |    |		Load	0x0,0x3
00f0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00f1 6801       |h   |		Jump_Zero	0xf3
00f2 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00f3 0092 04d3  |    |		Action	Push_String_Extended,0x4d3					; "implicit"
00f5 e5ff       |    |		Load	0x2,-0x1
00f6 8008       |    |		Call	0x0,0x8
00f7 6833       |h3  |		Jump_Zero	0x12b
00f8 00d8       |    |		Load_Top	At_Offset_0
00f9 00da       |    |		Load_Top	At_Offset_2
00fa e009       |    |		Load	0x0,0x9
00fb e402       |    |		Load	0x2,0x2
00fc 800a       |    |		Call	0x0,0xa
00fd e00b       |    |		Load	0x0,0xb
00fe 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
00ff c009       |    |		Store	0x0,0x9
0100 00d1       |    |		Pop_Control	Pop_Count_1
0101 c405       |    |		Store	0x2,0x5
0102 4802       |H   |		Short_Literal	0x2
0103 00d9       |    |		Load_Top	At_Offset_1
0104 e003       |    |		Load	0x0,0x3
0105 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0106 6815       |h   |		Jump_Zero	0x11c
0107 480a       |H   |		Short_Literal	0xa
0108 480a       |H   |		Short_Literal	0xa
0109 0092 04d9  |    |		Action	Push_String_Extended,0x4d9					; "Could not propagate implicit exceptions "
010b 4800       |H   |		Short_Literal	0x0
010c e402       |    |		Load	0x2,0x2
010d e404       |    |		Load	0x2,0x4
010e e5fc       |    |		Load	0x2,-0x4
010f 800c       |    |		Call	0x0,0xc
0110 01cc       |    |		Execute	Vector,Catenate
0111 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; ":"
0113 01cc       |    |		Execute	Vector,Catenate
0114 01cb       |    |		Execute	Vector,Append
0115 00da       |    |		Load_Top	At_Offset_2
0116 e003       |    |		Load	0x0,0x3
0117 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0118 01cc       |    |		Execute	Vector,Catenate
0119 01cb       |    |		Execute	Vector,Append
011a 800d       |    |		Call	0x0,0xd
011b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
011c 480a       |H   |		Short_Literal	0xa
011d 0092 04da  |    |		Action	Push_String_Extended,0x4da					; "Implicit exceptions will be propagated when raised "
011f 4800       |H   |		Short_Literal	0x0
0120 e402       |    |		Load	0x2,0x2
0121 e404       |    |		Load	0x2,0x4
0122 e5fc       |    |		Load	0x2,-0x4
0123 800c       |    |		Call	0x0,0xc
0124 01cc       |    |		Execute	Vector,Catenate
0125 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "."
0127 01cc       |    |		Execute	Vector,Catenate
0128 01cb       |    |		Execute	Vector,Append
0129 800e       |    |		Call	0x0,0xe
012a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
012b 00d9       |    |		Load_Top	At_Offset_1
012c e402       |    |		Load	0x2,0x2
012d e5fc       |    |		Load	0x2,-0x4
012e e5fe       |    |		Load	0x2,-0x2
012f e5ff       |    |		Load	0x2,-0x1
0130 8006       |    |		Call	0x0,0x6
0131 821a       |    |		Call	0x1,0x1a
0132 00d1       |    |		Pop_Control	Pop_Count_1
0133 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0134			TRAP_00c0:
0134 0007       |    |		Action	Break_Optional
0135 480a       |H   |		Short_Literal	0xa
0136 0092 04d8  |    |		Action	Push_String_Extended,0x4d8					; "Exception raised during command processing: "
0138 e00f       |    |		Load	0x0,0xf
0139 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
013a 01cc       |    |		Execute	Vector,Catenate
013b 01cb       |    |		Execute	Vector,Append
013c 800d       |    |		Call	0x0,0xd
013d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
013e 0000 0000  |    |		.XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0155       | U  |		.CONST	0x0155								; Address of begin
0141 023f       | ?  |		.CONST	0x023f								; Address of exception handler
0142 0006       |    |		.CONST	0x0006								; Number of locals
0143			INIT_0140:
0143 e003       |    |		Load	0x0,0x3
0144 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0145 02c7       |    |		Declare_Variable	Any
0146 00d8       |    |		Load_Top	At_Offset_0
0147 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0148 e004       |    |		Load	0x0,0x4
0149 0322       | "  |		Declare_Variable	Record
014a 00d8       |    |		Load_Top	At_Offset_0
014b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
014c e010       |    |		Load	0x0,0x10
014d 02c7       |    |		Declare_Variable	Any
014e 00d8       |    |		Load_Top	At_Offset_0
014f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0150 e002       |    |		Load	0x0,0x2
0151 02c7       |    |		Declare_Variable	Any
0152 00d8       |    |		Load_Top	At_Offset_0
0153 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0154 00e1       |    |		Load_Encached	Boolean_Cache
0155			BODY_0140:
0155 e5ff       |    |		Load	0x2,-0x1
0156 8006       |    |		Call	0x0,0x6
0157 01db       |    |		Execute	Vector,Length
0158 7008       |p   |		Jump_Nonzero	0x161
0159 e5fe       |    |		Load	0x2,-0x2
015a 00eb       |    |		Load_Encached	Diana_Cache
015b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
015c 6804       |h   |		Jump_Zero	0x161
015d 0092 04db  |    |		Action	Push_String_Extended,0x4db					; "Name must be non-null; use \x22all\x22 for all exceptions"
015f 800d       |    |		Call	0x0,0xd
0160 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0161 00e1       |    |		Load_Encached	Boolean_Cache
0162 00da       |    |		Load_Top	At_Offset_2
0163 0120       |    |		Execute	Any,Is_Value
0164 6802       |h   |		Jump_Zero	0x167
0165 e002       |    |		Load	0x0,0x2
0166 7801       |x   |		Jump	0x168
0167 00da       |    |		Load_Top	At_Offset_2
0168 e5fd       |    |		Load	0x2,-0x3
0169 8005       |    |		Call	0x0,0x5
016a c405       |    |		Store	0x2,0x5
016b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
016c 00d8       |    |		Load_Top	At_Offset_0
016d 7001       |p   |		Jump_Nonzero	0x16f
016e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
016f e402       |    |		Load	0x2,0x2
0170 e403       |    |		Load	0x2,0x3
0171 e5fc       |    |		Load	0x2,-0x4
0172 8007       |    |		Call	0x0,0x7
0173 00d1       |    |		Pop_Control	Pop_Count_1
0174 c402       |    |		Store	0x2,0x2
0175 4802       |H   |		Short_Literal	0x2
0176 e402       |    |		Load	0x2,0x2
0177 e003       |    |		Load	0x0,0x3
0178 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0179 6801       |h   |		Jump_Zero	0x17b
017a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
017b 0092 04dc  |    |		Action	Push_String_Extended,0x4dc					; "all"
017d e5ff       |    |		Load	0x2,-0x1
017e 8008       |    |		Call	0x0,0x8
017f 6831       |h1  |		Jump_Zero	0x1b1
0180 e402       |    |		Load	0x2,0x2
0181 e403       |    |		Load	0x2,0x3
0182 e009       |    |		Load	0x0,0x9
0183 e405       |    |		Load	0x2,0x5
0184 8011       |    |		Call	0x0,0x11
0185 e00b       |    |		Load	0x0,0xb
0186 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
0187 c009       |    |		Store	0x0,0x9
0188 00d1       |    |		Pop_Control	Pop_Count_1
0189 c402       |    |		Store	0x2,0x2
018a 4802       |H   |		Short_Literal	0x2
018b e402       |    |		Load	0x2,0x2
018c e003       |    |		Load	0x0,0x3
018d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
018e 6813       |h   |		Jump_Zero	0x1a2
018f 480a       |H   |		Short_Literal	0xa
0190 0092 04dd  |    |		Action	Push_String_Extended,0x4dd					; "Unable to forget all exception requests "
0192 4801       |H   |		Short_Literal	0x1
0193 e405       |    |		Load	0x2,0x5
0194 e403       |    |		Load	0x2,0x3
0195 e5fc       |    |		Load	0x2,-0x4
0196 800c       |    |		Call	0x0,0xc
0197 01cc       |    |		Execute	Vector,Catenate
0198 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; ":"
019a 01cc       |    |		Execute	Vector,Catenate
019b 01cb       |    |		Execute	Vector,Append
019c e402       |    |		Load	0x2,0x2
019d e003       |    |		Load	0x0,0x3
019e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
019f 01cc       |    |		Execute	Vector,Catenate
01a0 800d       |    |		Call	0x0,0xd
01a1 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01a2 480a       |H   |		Short_Literal	0xa
01a3 0092 04de  |    |		Action	Push_String_Extended,0x4de					; "All exception requests specified "
01a5 4801       |H   |		Short_Literal	0x1
01a6 e405       |    |		Load	0x2,0x5
01a7 e403       |    |		Load	0x2,0x3
01a8 e5fc       |    |		Load	0x2,-0x4
01a9 800c       |    |		Call	0x0,0xc
01aa 01cc       |    |		Execute	Vector,Catenate
01ab 0092 04df  |    |		Action	Push_String_Extended,0x4df					; " have been forgotten."
01ad 01cc       |    |		Execute	Vector,Catenate
01ae 01cb       |    |		Execute	Vector,Append
01af 800e       |    |		Call	0x0,0xe
01b0 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01b1 0092 04d3  |    |		Action	Push_String_Extended,0x4d3					; "implicit"
01b3 e5ff       |    |		Load	0x2,-0x1
01b4 8008       |    |		Call	0x0,0x8
01b5 6833       |h3  |		Jump_Zero	0x1e9
01b6 e402       |    |		Load	0x2,0x2
01b7 e403       |    |		Load	0x2,0x3
01b8 e009       |    |		Load	0x0,0x9
01b9 e405       |    |		Load	0x2,0x5
01ba 800a       |    |		Call	0x0,0xa
01bb e00b       |    |		Load	0x0,0xb
01bc 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
01bd c009       |    |		Store	0x0,0x9
01be 00d1       |    |		Pop_Control	Pop_Count_1
01bf c402       |    |		Store	0x2,0x2
01c0 4802       |H   |		Short_Literal	0x2
01c1 e402       |    |		Load	0x2,0x2
01c2 e003       |    |		Load	0x0,0x3
01c3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c4 6815       |h   |		Jump_Zero	0x1da
01c5 480a       |H   |		Short_Literal	0xa
01c6 480a       |H   |		Short_Literal	0xa
01c7 0092 04e0  |    |		Action	Push_String_Extended,0x4e0					; "Unable to forget implicit exceptions "
01c9 4801       |H   |		Short_Literal	0x1
01ca e405       |    |		Load	0x2,0x5
01cb e403       |    |		Load	0x2,0x3
01cc e5fc       |    |		Load	0x2,-0x4
01cd 800c       |    |		Call	0x0,0xc
01ce 01cc       |    |		Execute	Vector,Catenate
01cf 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; ":"
01d1 01cc       |    |		Execute	Vector,Catenate
01d2 01cb       |    |		Execute	Vector,Append
01d3 e402       |    |		Load	0x2,0x2
01d4 e003       |    |		Load	0x0,0x3
01d5 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01d6 01cc       |    |		Execute	Vector,Catenate
01d7 01cb       |    |		Execute	Vector,Append
01d8 800d       |    |		Call	0x0,0xd
01d9 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01da 480a       |H   |		Short_Literal	0xa
01db 0092 04e1  |    |		Action	Push_String_Extended,0x4e1					; "Implicit exceptions have been forgotten "
01dd 4801       |H   |		Short_Literal	0x1
01de e405       |    |		Load	0x2,0x5
01df e403       |    |		Load	0x2,0x3
01e0 e5fc       |    |		Load	0x2,-0x4
01e1 800c       |    |		Call	0x0,0xc
01e2 01cc       |    |		Execute	Vector,Catenate
01e3 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "."
01e5 01cc       |    |		Execute	Vector,Catenate
01e6 01cb       |    |		Execute	Vector,Append
01e7 800e       |    |		Call	0x0,0xe
01e8 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01e9 e402       |    |		Load	0x2,0x2
01ea 00db       |    |		Load_Top	At_Offset_3
01eb 0120       |    |		Execute	Any,Is_Value
01ec 6802       |h   |		Jump_Zero	0x1ef
01ed e010       |    |		Load	0x0,0x10
01ee 7801       |x   |		Jump	0x1f0
01ef 00db       |    |		Load_Top	At_Offset_3
01f0 e5fe       |    |		Load	0x2,-0x2
01f1 e5ff       |    |		Load	0x2,-0x1
01f2 8217       |    |		Call	0x1,0x17
01f3 c404       |    |		Store	0x2,0x4
01f4 c402       |    |		Store	0x2,0x2
01f5 4802       |H   |		Short_Literal	0x2
01f6 e402       |    |		Load	0x2,0x2
01f7 e003       |    |		Load	0x0,0x3
01f8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01f9 680a       |h   |		Jump_Zero	0x204
01fa 480a       |H   |		Short_Literal	0xa
01fb 0092 04e2  |    |		Action	Push_String_Extended,0x4e2					; "Invalid exception name:\x0a"
01fd e402       |    |		Load	0x2,0x2
01fe e003       |    |		Load	0x0,0x3
01ff 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0200 01cc       |    |		Execute	Vector,Catenate
0201 01cb       |    |		Execute	Vector,Append
0202 800d       |    |		Call	0x0,0xd
0203 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0204 e402       |    |		Load	0x2,0x2
0205 e403       |    |		Load	0x2,0x3
0206 e009       |    |		Load	0x0,0x9
0207 e405       |    |		Load	0x2,0x5
0208 e404       |    |		Load	0x2,0x4
0209 e00b       |    |		Load	0x0,0xb
020a 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
020b c009       |    |		Store	0x0,0x9
020c 00d1       |    |		Pop_Control	Pop_Count_1
020d c402       |    |		Store	0x2,0x2
020e 4802       |H   |		Short_Literal	0x2
020f e402       |    |		Load	0x2,0x2
0210 e003       |    |		Load	0x0,0x3
0211 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0212 6819       |h   |		Jump_Zero	0x22c
0213 480a       |H   |		Short_Literal	0xa
0214 480a       |H   |		Short_Literal	0xa
0215 0092 04e3  |    |		Action	Push_String_Extended,0x4e3					; "Could not forget "
0217 4800       |H   |		Short_Literal	0x0
0218 e5ff       |    |		Load	0x2,-0x1
0219 8213       |    |		Call	0x1,0x13
021a 01cc       |    |		Execute	Vector,Catenate
021b 4801       |H   |		Short_Literal	0x1
021c e405       |    |		Load	0x2,0x5
021d e403       |    |		Load	0x2,0x3
021e e5fc       |    |		Load	0x2,-0x4
021f 800c       |    |		Call	0x0,0xc
0220 01cc       |    |		Execute	Vector,Catenate
0221 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; ":"
0223 01cc       |    |		Execute	Vector,Catenate
0224 01cb       |    |		Execute	Vector,Append
0225 e402       |    |		Load	0x2,0x2
0226 e003       |    |		Load	0x0,0x3
0227 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0228 01cc       |    |		Execute	Vector,Catenate
0229 01cb       |    |		Execute	Vector,Append
022a 800d       |    |		Call	0x0,0xd
022b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
022c 480a       |H   |		Short_Literal	0xa
022d 4801       |H   |		Short_Literal	0x1
022e e404       |    |		Load	0x2,0x4
022f 8214       |    |		Call	0x1,0x14
0230 0092 04e4  |    |		Action	Push_String_Extended,0x4e4					; "has been forgotten "
0232 01cc       |    |		Execute	Vector,Catenate
0233 4801       |H   |		Short_Literal	0x1
0234 e405       |    |		Load	0x2,0x5
0235 e403       |    |		Load	0x2,0x3
0236 e5fc       |    |		Load	0x2,-0x4
0237 800c       |    |		Call	0x0,0xc
0238 01cc       |    |		Execute	Vector,Catenate
0239 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "."
023b 01cc       |    |		Execute	Vector,Catenate
023c 01cb       |    |		Execute	Vector,Append
023d 800e       |    |		Call	0x0,0xe
023e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
023f			TRAP_0140:
023f 0007       |    |		Action	Break_Optional
0240 480a       |H   |		Short_Literal	0xa
0241 0092 04d8  |    |		Action	Push_String_Extended,0x4d8					; "Exception raised during command processing: "
0243 e00f       |    |		Load	0x0,0xf
0244 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0245 01cc       |    |		Execute	Vector,Catenate
0246 01cb       |    |		Execute	Vector,Append
0247 800d       |    |		Call	0x0,0xd
0248 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0249 0000 0000  |    |		.BLANK	0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2
0254 01db       |    |		Execute	Vector,Length
0255 6805       |h   |		Jump_Zero	0x25b
0256 0092 04dc  |    |		Action	Push_String_Extended,0x4dc					; "all"
0258 00db       |    |		Load_Top	At_Offset_3
0259 8008       |    |		Call	0x0,0x8
025a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025b 4801       |H   |		Short_Literal	0x1
025c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025d 0000 0000  |    |		.XXX[0x3]
025f 0000       |    |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 e5fd       |    |		Load	0x2,-0x3
0264 01db       |    |		Execute	Vector,Length
0265 7008       |p   |		Jump_Nonzero	0x26e
0266 00db       |    |		Load_Top	At_Offset_3
0267 8012       |    |		Call	0x0,0x12
0268 6803       |h   |		Jump_Zero	0x26c
0269 00da       |    |		Load_Top	At_Offset_2
026a 8210       |    |		Call	0x1,0x10
026b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
026c 4800       |H   |		Short_Literal	0x0
026d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
026e 4800       |H   |		Short_Literal	0x0
026f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 00da       |    |		Load_Top	At_Offset_2
0274 01db       |    |		Execute	Vector,Length
0275 7002       |p   |		Jump_Nonzero	0x278
0276 00ea       |    |		Load_Encached	Null_String_Cache
0277 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0278 00db       |    |		Load_Top	At_Offset_3
0279 6814       |h   |		Jump_Zero	0x28e
027a 00da       |    |		Load_Top	At_Offset_2
027b 01dd       |    |		Execute	Vector,First
027c 00db       |    |		Load_Top	At_Offset_3
027d 01d7       |    |		Execute	Vector,Field_Read
027e e013       |    |		Load	0x0,0x13
027f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0280 00db       |    |		Load_Top	At_Offset_3
0281 01dd       |    |		Execute	Vector,First
0282 0a01       |    |		Execute_Immediate	Plus,0x1
0283 00d8       |    |		Load_Top	At_Offset_0
0284 00e2       |    |		Load_Encached	Integer_Cache
0285 0260       | `  |		Execute	Discrete,In_Type
0286 7001       |p   |		Jump_Nonzero	0x288
0287 0801       |    |		Execute_Immediate	Raise,0x1
0288 e5ff       |    |		Load	0x2,-0x1
0289 01dc       |    |		Execute	Vector,Last
028a e5ff       |    |		Load	0x2,-0x1
028b 01cf       |    |		Execute	Vector,Slice_Read
028c 01ca       |    |		Execute	Vector,Prepend
028d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028e 00da       |    |		Load_Top	At_Offset_2
028f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 8210       |    |		Call	0x1,0x10
0295 6805       |h   |		Jump_Zero	0x29b
0296 00db       |    |		Load_Top	At_Offset_3
0297 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; "all exceptions "
0299 8212       |    |		Call	0x1,0x12
029a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
029b 00db       |    |		Load_Top	At_Offset_3
029c 0092 04e6  |    |		Action	Push_String_Extended,0x4e6					; "the exception "
029e e5ff       |    |		Load	0x2,-0x1
029f 01cc       |    |		Execute	Vector,Catenate
02a0 0092 04e7  |    |		Action	Push_String_Extended,0x4e7					; " "
02a2 01cc       |    |		Execute	Vector,Catenate
02a3 8212       |    |		Call	0x1,0x12
02a4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a5 0000 0000  |    |		.XXX[0x3]
02a7 0000       |    |
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 8014       |    |		Call	0x0,0x14
02ad 6805       |h   |		Jump_Zero	0x2b3
02ae 00db       |    |		Load_Top	At_Offset_3
02af 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; "all exceptions "
02b1 8212       |    |		Call	0x1,0x12
02b2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b3 00db       |    |		Load_Top	At_Offset_3
02b4 0092 04e6  |    |		Action	Push_String_Extended,0x4e6					; "the exception "
02b6 4801       |H   |		Short_Literal	0x1
02b7 e5ff       |    |		Load	0x2,-0x1
02b8 8015       |    |		Call	0x0,0x15
02b9 01cc       |    |		Execute	Vector,Catenate
02ba 0092 04e7  |    |		Action	Push_String_Extended,0x4e7					; " "
02bc 01cc       |    |		Execute	Vector,Catenate
02bd 8212       |    |		Call	0x1,0x12
02be 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02bf 0000       |    |		.XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c7       |    |		.CONST	0x02c7								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0002       |    |		.CONST	0x0002								; Number of locals
02c3			INIT_02c0:
02c3 e010       |    |		Load	0x0,0x10
02c4 02c7       |    |		Declare_Variable	Any
02c5 00d8       |    |		Load_Top	At_Offset_0
02c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c7			BODY_02c0:
02c7 0092 04e8  |    |		Action	Push_String_Extended,0x4e8					; "exception_handling_commands passed exception_id_node "
02c9 e5ff       |    |		Load	0x2,-0x1
02ca e016       |    |		Load	0x0,0x16
02cb 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
02cc 01cc       |    |		Execute	Vector,Catenate
02cd e5ff       |    |		Load	0x2,-0x1
02ce 00eb       |    |		Load_Encached	Diana_Cache
02cf 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02d0 0f20       |    |		Execute_Immediate	Equal,0x20
02d1 e017       |    |		Load	0x0,0x17
02d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02d3 e5fd       |    |		Load	0x2,-0x3
02d4 00d9       |    |		Load_Top	At_Offset_1
02d5 0120       |    |		Execute	Any,Is_Value
02d6 6802       |h   |		Jump_Zero	0x2d9
02d7 e010       |    |		Load	0x0,0x10
02d8 7801       |x   |		Jump	0x2da
02d9 00d9       |    |		Load_Top	At_Offset_1
02da e5ff       |    |		Load	0x2,-0x1
02db 8018       |    |		Call	0x0,0x18
02dc c402       |    |		Store	0x2,0x2
02dd c5fd       |    |		Store	0x2,-0x3
02de 4802       |H   |		Short_Literal	0x2
02df e5fd       |    |		Load	0x2,-0x3
02e0 e003       |    |		Load	0x0,0x3
02e1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02e2 7002       |p   |		Jump_Nonzero	0x2e5
02e3 00d8       |    |		Load_Top	At_Offset_0
02e4 c5fe       |    |		Store	0x2,-0x2
02e5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e6 0000 0000  |    |		.XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 031b       |    |		.CONST	0x031b								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 01db       |    |		Execute	Vector,Length
02ed 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
02ee 6821       |h!  |		Jump_Zero	0x310
02ef 00da       |    |		Load_Top	At_Offset_2
02f0 01dd       |    |		Execute	Vector,First
02f1 00db       |    |		Load_Top	At_Offset_3
02f2 01d7       |    |		Execute	Vector,Field_Read
02f3 0f28       | (  |		Execute_Immediate	Equal,0x28
02f4 681b       |h   |		Jump_Zero	0x310
02f5 00da       |    |		Load_Top	At_Offset_2
02f6 01dc       |    |		Execute	Vector,Last
02f7 00db       |    |		Load_Top	At_Offset_3
02f8 01d7       |    |		Execute	Vector,Field_Read
02f9 0f29       | )  |		Execute_Immediate	Equal,0x29
02fa 6815       |h   |		Jump_Zero	0x310
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 01dd       |    |		Execute	Vector,First
02fd 0a01       |    |		Execute_Immediate	Plus,0x1
02fe 00d8       |    |		Load_Top	At_Offset_0
02ff 00e2       |    |		Load_Encached	Integer_Cache
0300 0260       | `  |		Execute	Discrete,In_Type
0301 7001       |p   |		Jump_Nonzero	0x303
0302 0801       |    |		Execute_Immediate	Raise,0x1
0303 00db       |    |		Load_Top	At_Offset_3
0304 01dc       |    |		Execute	Vector,Last
0305 0aff       |    |		Execute_Immediate	Plus,-0x1
0306 00d8       |    |		Load_Top	At_Offset_0
0307 00e2       |    |		Load_Encached	Integer_Cache
0308 0260       | `  |		Execute	Discrete,In_Type
0309 7001       |p   |		Jump_Nonzero	0x30b
030a 0801       |    |		Execute_Immediate	Raise,0x1
030b e5ff       |    |		Load	0x2,-0x1
030c 01cf       |    |		Execute	Vector,Slice_Read
030d 8019       |    |		Call	0x0,0x19
030e c5fe       |    |		Store	0x2,-0x2
030f 7803       |x   |		Jump	0x313
0310 00da       |    |		Load_Top	At_Offset_2
0311 8019       |    |		Call	0x0,0x19
0312 c5fe       |    |		Store	0x2,-0x2
0313 00db       |    |		Load_Top	At_Offset_3
0314 8014       |    |		Call	0x0,0x14
0315 7004       |p   |		Jump_Nonzero	0x31a
0316 e5fd       |    |		Load	0x2,-0x3
0317 e003       |    |		Load	0x0,0x3
0318 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0319 c5fd       |    |		Store	0x2,-0x3
031a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
031b			TRAP_02e8:
031b 0007       |    |		Action	Break_Optional
031c 8011       |    |		Call	0x0,0x11
031d c5fe       |    |		Store	0x2,-0x2
031e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
031f 0000       |    |		.XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0328       | (  |		.CONST	0x0328								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0004       |    |		.CONST	0x0004								; Number of locals
0323			INIT_0320:
0323 00e1       |    |		Load_Encached	Boolean_Cache
0324 00db       |    |		Load_Top	At_Offset_3
0325 8006       |    |		Call	0x0,0x6
0326 029f 047b  |   {|		Declare_Subprogram	INIT_0478,For_Call
0328			BODY_0320:
0328 00d9       |    |		Load_Top	At_Offset_1
0329 8210       |    |		Call	0x1,0x10
032a 6806       |h   |		Jump_Zero	0x331
032b 8011       |    |		Call	0x0,0x11
032c c5fd       |    |		Store	0x2,-0x3
032d e003       |    |		Load	0x0,0x3
032e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
032f c5fc       |    |		Store	0x2,-0x4
0330 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0331 e5fe       |    |		Load	0x2,-0x2
0332 00eb       |    |		Load_Encached	Diana_Cache
0333 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0334 6813       |h   |		Jump_Zero	0x348
0335 00e1       |    |		Load_Encached	Boolean_Cache
0336 e5fd       |    |		Load	0x2,-0x3
0337 0120       |    |		Execute	Any,Is_Value
0338 6802       |h   |		Jump_Zero	0x33b
0339 e010       |    |		Load	0x0,0x10
033a 7801       |x   |		Jump	0x33c
033b e5fd       |    |		Load	0x2,-0x3
033c 00db       |    |		Load_Top	At_Offset_3
033d 801a       |    |		Call	0x0,0x1a
033e c5fd       |    |		Store	0x2,-0x3
033f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0340 00da       |    |		Load_Top	At_Offset_2
0341 6804       |h   |		Jump_Zero	0x346
0342 e003       |    |		Load	0x0,0x3
0343 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0344 c5fc       |    |		Store	0x2,-0x4
0345 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0346 8404       |    |		Call	0x2,0x4
0347 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0348 e5fc       |    |		Load	0x2,-0x4
0349 e5fd       |    |		Load	0x2,-0x3
034a 0120       |    |		Execute	Any,Is_Value
034b 6802       |h   |		Jump_Zero	0x34e
034c e010       |    |		Load	0x0,0x10
034d 7801       |x   |		Jump	0x34f
034e e5fd       |    |		Load	0x2,-0x3
034f e5fe       |    |		Load	0x2,-0x2
0350 8215       |    |		Call	0x1,0x15
0351 c5fd       |    |		Store	0x2,-0x3
0352 c5fc       |    |		Store	0x2,-0x4
0353 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0354 0000 0000  |    |		.BLANK	0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0364       | d  |		.CONST	0x0364								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0003       |    |		.CONST	0x0003								; Number of locals
035b			INIT_0358:
035b e003       |    |		Load	0x0,0x3
035c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
035d 02c7       |    |		Declare_Variable	Any
035e 00d8       |    |		Load_Top	At_Offset_0
035f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0360 e010       |    |		Load	0x0,0x10
0361 02c7       |    |		Declare_Variable	Any
0362 00d8       |    |		Load_Top	At_Offset_0
0363 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0364			BODY_0358:
0364 00d9       |    |		Load_Top	At_Offset_1
0365 00d9       |    |		Load_Top	At_Offset_1
0366 0120       |    |		Execute	Any,Is_Value
0367 6802       |h   |		Jump_Zero	0x36a
0368 e010       |    |		Load	0x0,0x10
0369 7801       |x   |		Jump	0x36b
036a 00d9       |    |		Load_Top	At_Offset_1
036b e5fe       |    |		Load	0x2,-0x2
036c e5ff       |    |		Load	0x2,-0x1
036d 8217       |    |		Call	0x1,0x17
036e c403       |    |		Store	0x2,0x3
036f c402       |    |		Store	0x2,0x2
0370 4802       |H   |		Short_Literal	0x2
0371 00da       |    |		Load_Top	At_Offset_2
0372 e003       |    |		Load	0x0,0x3
0373 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0374 680a       |h   |		Jump_Zero	0x37f
0375 480a       |H   |		Short_Literal	0xa
0376 0092 04e2  |    |		Action	Push_String_Extended,0x4e2					; "Invalid exception name:\x0a"
0378 00db       |    |		Load_Top	At_Offset_3
0379 e003       |    |		Load	0x0,0x3
037a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
037b 01cc       |    |		Execute	Vector,Catenate
037c 01cb       |    |		Execute	Vector,Append
037d 800d       |    |		Call	0x0,0xd
037e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
037f 00d9       |    |		Load_Top	At_Offset_1
0380 e5fa       |    |		Load	0x2,-0x6
0381 e009       |    |		Load	0x0,0x9
0382 e5fc       |    |		Load	0x2,-0x4
0383 e5fb       |    |		Load	0x2,-0x5
0384 e403       |    |		Load	0x2,0x3
0385 e00b       |    |		Load	0x0,0xb
0386 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0387 c009       |    |		Store	0x0,0x9
0388 00d1       |    |		Pop_Control	Pop_Count_1
0389 c402       |    |		Store	0x2,0x2
038a 4802       |H   |		Short_Literal	0x2
038b 00da       |    |		Load_Top	At_Offset_2
038c e003       |    |		Load	0x0,0x3
038d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
038e 6819       |h   |		Jump_Zero	0x3a8
038f 480a       |H   |		Short_Literal	0xa
0390 480a       |H   |		Short_Literal	0xa
0391 0092 04e9  |    |		Action	Push_String_Extended,0x4e9					; "Could not start catching "
0393 4800       |H   |		Short_Literal	0x0
0394 e5ff       |    |		Load	0x2,-0x1
0395 8213       |    |		Call	0x1,0x13
0396 01cc       |    |		Execute	Vector,Catenate
0397 4800       |H   |		Short_Literal	0x0
0398 e5fb       |    |		Load	0x2,-0x5
0399 e5fa       |    |		Load	0x2,-0x6
039a e5fd       |    |		Load	0x2,-0x3
039b 800c       |    |		Call	0x0,0xc
039c 01cc       |    |		Execute	Vector,Catenate
039d 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; ":"
039f 01cc       |    |		Execute	Vector,Catenate
03a0 01cb       |    |		Execute	Vector,Append
03a1 00db       |    |		Load_Top	At_Offset_3
03a2 e003       |    |		Load	0x0,0x3
03a3 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03a4 01cc       |    |		Execute	Vector,Catenate
03a5 01cb       |    |		Execute	Vector,Append
03a6 800d       |    |		Call	0x0,0xd
03a7 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03a8 480a       |H   |		Short_Literal	0xa
03a9 4801       |H   |		Short_Literal	0x1
03aa 00da       |    |		Load_Top	At_Offset_2
03ab 8214       |    |		Call	0x1,0x14
03ac 0092 04ea  |    |		Action	Push_String_Extended,0x4ea					; "will be caught when raised "
03ae 01cc       |    |		Execute	Vector,Catenate
03af 4800       |H   |		Short_Literal	0x0
03b0 e5fb       |    |		Load	0x2,-0x5
03b1 e5fa       |    |		Load	0x2,-0x6
03b2 e5fd       |    |		Load	0x2,-0x3
03b3 800c       |    |		Call	0x0,0xc
03b4 01cc       |    |		Execute	Vector,Catenate
03b5 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "."
03b7 01cc       |    |		Execute	Vector,Catenate
03b8 01cb       |    |		Execute	Vector,Append
03b9 800e       |    |		Call	0x0,0xe
03ba 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03bb 0000 0000  |    |		.BLANK	0000[0x5]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c8       |    |		.CONST	0x03c8								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0002       |    |		.CONST	0x0002								; Number of locals
03c3			INIT_03c0:
03c3 e003       |    |		Load	0x0,0x3
03c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c5 02c7       |    |		Declare_Variable	Any
03c6 00d8       |    |		Load_Top	At_Offset_0
03c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03c8			BODY_03c0:
03c8 00d8       |    |		Load_Top	At_Offset_0
03c9 e009       |    |		Load	0x0,0x9
03ca e5ff       |    |		Load	0x2,-0x1
03cb e00b       |    |		Load	0x0,0xb
03cc 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03cd c009       |    |		Store	0x0,0x9
03ce c402       |    |		Store	0x2,0x2
03cf 4802       |H   |		Short_Literal	0x2
03d0 00d9       |    |		Load_Top	At_Offset_1
03d1 e003       |    |		Load	0x0,0x3
03d2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d3 680a       |h   |		Jump_Zero	0x3de
03d4 480a       |H   |		Short_Literal	0xa
03d5 0092 04eb  |    |		Action	Push_String_Extended,0x4eb					; "Could not start catching unlisted exceptions in unlisted locations and tasks:\x0a"
03d7 00da       |    |		Load_Top	At_Offset_2
03d8 e003       |    |		Load	0x0,0x3
03d9 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03da 01cc       |    |		Execute	Vector,Catenate
03db 01cb       |    |		Execute	Vector,Append
03dc 800d       |    |		Call	0x0,0xd
03dd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03de 0092 04ec  |    |		Action	Push_String_Extended,0x4ec					; "Unlisted exceptions in unlisted locations and tasks will be caught.\x0a"
03e0 800e       |    |		Call	0x0,0xe
03e1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03e2 0000 0000  |    |		.BLANK	0000[0x6]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f4       |    |		.CONST	0x03f4								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0003       |    |		.CONST	0x0003								; Number of locals
03eb			INIT_03e8:
03eb e003       |    |		Load	0x0,0x3
03ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ed 02c7       |    |		Declare_Variable	Any
03ee 00d8       |    |		Load_Top	At_Offset_0
03ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03f0 e010       |    |		Load	0x0,0x10
03f1 02c7       |    |		Declare_Variable	Any
03f2 00d8       |    |		Load_Top	At_Offset_0
03f3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03f4			BODY_03e8:
03f4 00d9       |    |		Load_Top	At_Offset_1
03f5 00d9       |    |		Load_Top	At_Offset_1
03f6 0120       |    |		Execute	Any,Is_Value
03f7 6802       |h   |		Jump_Zero	0x3fa
03f8 e010       |    |		Load	0x0,0x10
03f9 7801       |x   |		Jump	0x3fb
03fa 00d9       |    |		Load_Top	At_Offset_1
03fb e5fe       |    |		Load	0x2,-0x2
03fc e5ff       |    |		Load	0x2,-0x1
03fd 8217       |    |		Call	0x1,0x17
03fe c403       |    |		Store	0x2,0x3
03ff c402       |    |		Store	0x2,0x2
0400 4802       |H   |		Short_Literal	0x2
0401 00da       |    |		Load_Top	At_Offset_2
0402 e003       |    |		Load	0x0,0x3
0403 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0404 680a       |h   |		Jump_Zero	0x40f
0405 480a       |H   |		Short_Literal	0xa
0406 0092 04e2  |    |		Action	Push_String_Extended,0x4e2					; "Invalid exception name:\x0a"
0408 00db       |    |		Load_Top	At_Offset_3
0409 e003       |    |		Load	0x0,0x3
040a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
040b 01cc       |    |		Execute	Vector,Catenate
040c 01cb       |    |		Execute	Vector,Append
040d 800d       |    |		Call	0x0,0xd
040e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
040f 00d9       |    |		Load_Top	At_Offset_1
0410 e5fb       |    |		Load	0x2,-0x5
0411 e009       |    |		Load	0x0,0x9
0412 e5fc       |    |		Load	0x2,-0x4
0413 e403       |    |		Load	0x2,0x3
0414 e00b       |    |		Load	0x0,0xb
0415 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
0416 c009       |    |		Store	0x0,0x9
0417 00d1       |    |		Pop_Control	Pop_Count_1
0418 c402       |    |		Store	0x2,0x2
0419 4802       |H   |		Short_Literal	0x2
041a 00da       |    |		Load_Top	At_Offset_2
041b e003       |    |		Load	0x0,0x3
041c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
041d 6819       |h   |		Jump_Zero	0x437
041e 480a       |H   |		Short_Literal	0xa
041f 480a       |H   |		Short_Literal	0xa
0420 0092 04ed  |    |		Action	Push_String_Extended,0x4ed					; "Could not start propagating "
0422 4800       |H   |		Short_Literal	0x0
0423 e5ff       |    |		Load	0x2,-0x1
0424 8213       |    |		Call	0x1,0x13
0425 01cc       |    |		Execute	Vector,Catenate
0426 4800       |H   |		Short_Literal	0x0
0427 e5fc       |    |		Load	0x2,-0x4
0428 e5fb       |    |		Load	0x2,-0x5
0429 e5fd       |    |		Load	0x2,-0x3
042a 800c       |    |		Call	0x0,0xc
042b 01cc       |    |		Execute	Vector,Catenate
042c 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; ":"
042e 01cc       |    |		Execute	Vector,Catenate
042f 01cb       |    |		Execute	Vector,Append
0430 00db       |    |		Load_Top	At_Offset_3
0431 e003       |    |		Load	0x0,0x3
0432 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0433 01cc       |    |		Execute	Vector,Catenate
0434 01cb       |    |		Execute	Vector,Append
0435 800d       |    |		Call	0x0,0xd
0436 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0437 480a       |H   |		Short_Literal	0xa
0438 4801       |H   |		Short_Literal	0x1
0439 00da       |    |		Load_Top	At_Offset_2
043a 8214       |    |		Call	0x1,0x14
043b 0092 04ee  |    |		Action	Push_String_Extended,0x4ee					; "will be propagated when raised "
043d 01cc       |    |		Execute	Vector,Catenate
043e 4800       |H   |		Short_Literal	0x0
043f e5fc       |    |		Load	0x2,-0x4
0440 e5fb       |    |		Load	0x2,-0x5
0441 e5fd       |    |		Load	0x2,-0x3
0442 800c       |    |		Call	0x0,0xc
0443 01cc       |    |		Execute	Vector,Catenate
0444 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "."
0446 01cc       |    |		Execute	Vector,Catenate
0447 01cb       |    |		Execute	Vector,Append
0448 800e       |    |		Call	0x0,0xe
0449 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
044a 0000 0000  |    |		.BLANK	0000[0x6]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0458       | X  |		.CONST	0x0458								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0002       |    |		.CONST	0x0002								; Number of locals
0453			INIT_0450:
0453 e003       |    |		Load	0x0,0x3
0454 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0455 02c7       |    |		Declare_Variable	Any
0456 00d8       |    |		Load_Top	At_Offset_0
0457 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0458			BODY_0450:
0458 00d8       |    |		Load_Top	At_Offset_0
0459 e009       |    |		Load	0x0,0x9
045a e00b       |    |		Load	0x0,0xb
045b 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
045c c009       |    |		Store	0x0,0x9
045d c402       |    |		Store	0x2,0x2
045e 4802       |H   |		Short_Literal	0x2
045f 00d9       |    |		Load_Top	At_Offset_1
0460 e003       |    |		Load	0x0,0x3
0461 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0462 680a       |h   |		Jump_Zero	0x46d
0463 480a       |H   |		Short_Literal	0xa
0464 0092 04ef  |    |		Action	Push_String_Extended,0x4ef					; "Could not start propagating unlisted exceptions in unlisted locations and tasks:\x0a"
0466 00da       |    |		Load_Top	At_Offset_2
0467 e003       |    |		Load	0x0,0x3
0468 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0469 01cc       |    |		Execute	Vector,Catenate
046a 01cb       |    |		Execute	Vector,Append
046b 800d       |    |		Call	0x0,0xd
046c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
046d 0092 04f0  |    |		Action	Push_String_Extended,0x4f0					; "Unlisted exceptions in unlisted locations and tasks will be propagated.\x0a"
046f 800e       |    |		Call	0x0,0xe
0470 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0471 0000 0000  |    |		.BLANK	0000[0x7]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0487       |    |		.CONST	0x0487								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0005       |    |		.CONST	0x0005								; Number of locals
047b			INIT_0478:
047b e004       |    |		Load	0x0,0x4
047c 0322       | "  |		Declare_Variable	Record
047d 801b       |    |		Call	0x0,0x1b
047e 00d9       |    |		Load_Top	At_Offset_1
047f 017d       | }  |		Execute	Record,Structure_Write
0480 e003       |    |		Load	0x0,0x3
0481 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0482 02c7       |    |		Declare_Variable	Any
0483 00d8       |    |		Load_Top	At_Offset_0
0484 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0485 00e1       |    |		Load_Encached	Boolean_Cache
0486 00e3       |    |		Load_Encached	Natural_Cache
0487			BODY_0478:
0487 e5fc       |    |		Load	0x2,-0x4
0488 e602       |    |		Load	0x3,0x2
0489 4801       |H   |		Short_Literal	0x1
048a 4801       |H   |		Short_Literal	0x1
048b e01c       |    |		Load	0x0,0x1c
048c e403       |    |		Load	0x2,0x3
048d e01d       |    |		Load	0x0,0x1d
048e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
048f 00d1       |    |		Pop_Control	Pop_Count_1
0490 c5fc       |    |		Store	0x2,-0x4
0491 4802       |H   |		Short_Literal	0x2
0492 e5fc       |    |		Load	0x2,-0x4
0493 e003       |    |		Load	0x0,0x3
0494 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0495 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0496 00d9       |    |		Load_Top	At_Offset_1
0497 6820       |h   |		Jump_Zero	0x4b8
0498 4800       |H   |		Short_Literal	0x0
0499 e403       |    |		Load	0x2,0x3
049a 0092 04f1  |    |		Action	Push_String_Extended,0x4f1					; " ("
049c e013       |    |		Load	0x0,0x13
049d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
049e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
049f 00d8       |    |		Load_Top	At_Offset_0
04a0 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
04a1 6816       |h   |		Jump_Zero	0x4b8
04a2 801b       |    |		Call	0x0,0x1b
04a3 e602       |    |		Load	0x3,0x2
04a4 017d       | }  |		Execute	Record,Structure_Write
04a5 00da       |    |		Load_Top	At_Offset_2
04a6 e602       |    |		Load	0x3,0x2
04a7 4801       |H   |		Short_Literal	0x1
04a8 4801       |H   |		Short_Literal	0x1
04a9 e01c       |    |		Load	0x0,0x1c
04aa 4801       |H   |		Short_Literal	0x1
04ab e605       |    |		Load	0x3,0x5
04ac 0aff       |    |		Execute_Immediate	Plus,-0x1
04ad e403       |    |		Load	0x2,0x3
04ae 01cf       |    |		Execute	Vector,Slice_Read
04af e01d       |    |		Load	0x0,0x1d
04b0 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
04b1 00d1       |    |		Pop_Control	Pop_Count_1
04b2 c603       |    |		Store	0x3,0x3
04b3 4802       |H   |		Short_Literal	0x2
04b4 00db       |    |		Load_Top	At_Offset_3
04b5 e003       |    |		Load	0x0,0x3
04b6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04b7 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04b8 00d9       |    |		Load_Top	At_Offset_1
04b9 680c       |h   |		Jump_Zero	0x4c6
04ba e5fc       |    |		Load	0x2,-0x4
04bb e5fd       |    |		Load	0x2,-0x3
04bc 0120       |    |		Execute	Any,Is_Value
04bd 6802       |h   |		Jump_Zero	0x4c0
04be e010       |    |		Load	0x0,0x10
04bf 7801       |x   |		Jump	0x4c1
04c0 e5fd       |    |		Load	0x2,-0x3
04c1 e5ff       |    |		Load	0x2,-0x1
04c2 8216       |    |		Call	0x1,0x16
04c3 c5fd       |    |		Store	0x2,-0x3
04c4 c5fc       |    |		Store	0x2,-0x4
04c5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04c6 e5fc       |    |		Load	0x2,-0x4
04c7 e5fd       |    |		Load	0x2,-0x3
04c8 0120       |    |		Execute	Any,Is_Value
04c9 6802       |h   |		Jump_Zero	0x4cc
04ca e010       |    |		Load	0x0,0x10
04cb 7801       |x   |		Jump	0x4cd
04cc e5fd       |    |		Load	0x2,-0x3
04cd e602       |    |		Load	0x3,0x2
04ce 801e       |    |		Call	0x0,0x1e
04cf 8018       |    |		Call	0x0,0x18
04d0 c5fd       |    |		Store	0x2,-0x3
04d1 c5fc       |    |		Store	0x2,-0x4
04d2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04d3 ; --------------------------------------------------------------------------------------
04d3 ; STRING TABLE
04d3 ; --------------------------------------------------------------------------------------
04d3 0040       | @  |		.STRTAB	0x0040->0x04f3							; "implicit"
04d4 0046       | F  |		.STRTAB	0x0046->0x04f7							; "Could not catch implicit exceptions "
04d5 0068       | h  |		.STRTAB	0x0068->0x0509							; ":"
04d6 0067       | g  |		.STRTAB	0x0067->0x0509							; "Implicit exceptions will be caught when raised "
04d7 0094       |    |		.STRTAB	0x0094->0x0521							; "."
04d8 0093       |    |		.STRTAB	0x0093->0x0521							; "Exception raised during command processing: "
04d9 00bd       |    |		.STRTAB	0x00bd->0x0537							; "Could not propagate implicit exceptions "
04da 00e3       |    |		.STRTAB	0x00e3->0x054b							; "Implicit exceptions will be propagated when raised "
04db 0114       |    |		.STRTAB	0x0114->0x0565							; "Name must be non-null; use \x22all\x22 for all exceptions"
04dc 0145       | E  |		.STRTAB	0x0145->0x057e							; "all"
04dd 0146       | F  |		.STRTAB	0x0146->0x0580							; "Unable to forget all exception requests "
04de 016c       | l  |		.STRTAB	0x016c->0x0594							; "All exception requests specified "
04df 018b       |    |		.STRTAB	0x018b->0x05a4							; " have been forgotten."
04e0 019e       |    |		.STRTAB	0x019e->0x05af							; "Unable to forget implicit exceptions "
04e1 01c1       |    |		.STRTAB	0x01c1->0x05c1							; "Implicit exceptions have been forgotten "
04e2 01e7       |    |		.STRTAB	0x01e7->0x05d5							; "Invalid exception name:\x0a"
04e3 01fd       |    |		.STRTAB	0x01fd->0x05e1							; "Could not forget "
04e4 020c       |    |		.STRTAB	0x020c->0x05ea							; "has been forgotten "
04e5 021d       |    |		.STRTAB	0x021d->0x05f3							; "all exceptions "
04e6 022a       | *  |		.STRTAB	0x022a->0x05fb							; "the exception "
04e7 0236       | 6  |		.STRTAB	0x0236->0x0602							; " "
04e8 0235       | 5  |		.STRTAB	0x0235->0x0602							; "exception_handling_commands passed exception_id_node "
04e9 0268       | h  |		.STRTAB	0x0268->0x061d							; "Could not start catching "
04ea 027f       |    |		.STRTAB	0x027f->0x0629							; "will be caught when raised "
04eb 0298       |    |		.STRTAB	0x0298->0x0637							; "Could not start catching unlisted exceptions in unlisted locations and tasks:\x0a"
04ec 02e4       |    |		.STRTAB	0x02e4->0x065e							; "Unlisted exceptions in unlisted locations and tasks will be caught.\x0a"
04ed 0326       | &  |		.STRTAB	0x0326->0x0680							; "Could not start propagating "
04ee 0340       | @  |		.STRTAB	0x0340->0x068e							; "will be propagated when raised "
04ef 035d       | ]  |		.STRTAB	0x035d->0x069d							; "Could not start propagating unlisted exceptions in unlisted locations and tasks:\x0a"
04f0 03ac       |    |		.STRTAB	0x03ac->0x06c6							; "Unlisted exceptions in unlisted locations and tasks will be propagated.\x0a"
04f1 03f2       |    |		.STRTAB	0x03f2->0x06ea							; " ("
04f2 03f2       |    |		.STREND 0x03f2->0x06eb
04f3 696d 706c  |impl|		.STRTAB_STRINGS
06eb 0000 0000  |    |		.BLANK	0000[0x5]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; Debug Table
06f0 ; --------------------------------------------------------------------------------------
06f0 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x164d,0x0000,0x0001,0x0000
06f6 0000 0000  |    |		.XXX[0xd]
06f8 08fb 0004  |    |
06fa 0001 00da  |    |
06fc 0f0a 7003  |  p |
06fe 00da 0f0d  |    |
0700 4401 4801  |D H |
0702 4401       |D   |
0703 0000 0000  |    |		.BLANK	0000[0x4]
0707 0400 0000  |    |		.XXX[0x5]
0709 0000 002d  |   -|
070b eca4       |    |
070c 0000 0000  |    |		.BLANK	0000[0x4]
0710 0913 0004  |    |		.XXX[0xb]
0712 0001 00da  |    |
0714 0f20 7003  |  p |
0716 00da 0f09  |    |
0718 4401 4801  |D H |
071a 4401       |D   |
071b 0000 0000  |    |		.BLANK	0000[0x5]
0720 0923 0004  | #  |		.XXX[0x11]
0722 0001 00db  |    |
0724 e001 1825  |   %|
0726 e5fe e001  |    |
0728 1828 027c  | ( ||
072a 6805 00db  |h   |
072c 00db e001  |    |
072e 1819 00d1  |    |
0730 4502       |E   |
0731 0000 0000  |    |		.BLANK	0000[0x7]
0738 0942 0004  | B  |		.XXX[0x31]
073a 0003 49ff  |  I |
073c e001 1b0e  |    |
073e 1c08 00d8  |    |
0740 1c00 00e8  |    |
0742 00cf 7810  |  x |
0744 00e8 e5fd  |    |
0746 8218 c5fd  |    |
0748 005a 00d9  | Z  |
074a 828d 700d  |  p |
074c 00d9 828e  |    |
074e 7004 00da  |p   |
0750 00da 828f  |    |
0752 00d1 00c9  |    |
0754 e5fd e20f  |    |
0756 0119 8213  |    |
0758 6feb 00ce  |o   |
075a 00d9 e001  |    |
075c 1825 0c01  | %  |
075e 6809 e5fe  |h   |
0760 e5ff e210  |    |
0762 0119 00db  |    |
0764 e001 1813  |    |
0766 828c c5fe  |    |
0768 4502       |E   |
0769 0000 0000  |    |		.BLANK	0000[0x7]
0770 0975 0004  | u  |		.XXX[0x54]
0772 0002 e002  |    |
0774 1b13 00db  |    |
0776 e21b 0119  |    |
0778 821d 6845  |  hE|
077a 00cf e229  |   )|
077c 4801 0263  |H  c|
077e 703a e002  |p:  |
0780 1b13 e5fc  |    |
0782 0120 6802  |  h |
0784 e21c 7803  |  x |
0786 e5fc e21c  |    |
0788 0119 e5fd  |    |
078a e210 0119  |    |
078c e5fe e5ff  |    |
078e e21b 0119  |    |
0790 821e c5fc  |    |
0792 c402 00db  |    |
0794 4604 4504  |F E |
0796 7811 7818  |x x |
0798 7817 7800  |x x |
079a 00d8 e229  |   )|
079c 027c 6819  | |h |
079e 4800 0092  |H   |
07a0 0b64 e402  | d  |
07a2 e250 1d51  | P Q|
07a4 8246 e22a  | F *|
07a6 00ba 780f  |  x |
07a8 4801 0092  |H   |
07aa 0b65 e402  | e  |
07ac e250 1d51  | P Q|
07ae 8246 7807  | Fx |
07b0 4801 0092  |H   |
07b2 0b66 e402  | f  |
07b4 e250 1d51  | P Q|
07b6 8246 00c8  | F  |
07b8 3fc6 00ce  |?   |
07ba 4801 0092  |H   |
07bc 0b67 824e  | g N|
07be 4504 4801  |E H |
07c0 0092 0b68  |   h|
07c2 824e 4504  | NE |
07c4 0000 0000  |    |		.BLANK	0000[0x4]
07c8 09d0 0004  |    |		.XXX[0x29]
07ca 0003 e002  |    |
07cc 1b16 0322  |   "|
07ce e002 1b14  |    |
07d0 00d9 4801  |  H |
07d2 e5ff e21c  |    |
07d4 0119 8220  |    |
07d6 00d1 4800  |  H |
07d8 0092 0b69  |   i|
07da 00db 3c03  |  < |
07dc e26b e26c  | k l|
07de 1d6d 1d6e  | m n|
07e0 8247 e002  | G  |
07e2 1b14 e5ff  |    |
07e4 821f c5ff  |    |
07e6 0059 4801  | YH |
07e8 0092 0b6a  |   j|
07ea 00da e264  |   d|
07ec e265 1d66  | e f|
07ee 1d67 8247  | g G|
07f0 4501       |E   |
07f1 0000 0000  |    |		.BLANK	0000[0x7]
07f8 09fb 0004  |    |		.XXX[0x8]
07fa 0001 e406  |    |
07fc 0a01 c406  |    |
07fe e406 0f01  |    |