|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 00b0 | | .CONST 0x00b0 ; 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 4801 |H | Short_Literal 0x1
0051 e5fd | | Load 0x2,-0x3
0052 8005 | | Call 0x0,0x5
0053 c402 | | Store 0x2,0x2
0054 005b | [ | Store_Top Discrete,At_Offset_3
0055 00da | | Load_Top At_Offset_2
0056 7001 |p | Jump_Nonzero 0x58
0057 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0058 e5fc | | Load 0x2,-0x4
0059 e402 | | Load 0x2,0x2
005a e5ff | | Load 0x2,-0x1
005b 8006 | | Call 0x0,0x6
005c 8211 | | Call 0x1,0x11
005d 6803 |h | Jump_Zero 0x61
005e e5fb | | Load 0x2,-0x5
005f 8219 | | Call 0x1,0x19
0060 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0061 00d9 | | Load_Top At_Offset_1
0062 00d9 | | Load_Top At_Offset_1
0063 e5fc | | Load 0x2,-0x4
0064 8007 | | Call 0x0,0x7
0065 00d1 | | Pop_Control Pop_Count_1
0066 c404 | | Store 0x2,0x4
0067 4802 |H | Short_Literal 0x2
0068 00da | | Load_Top At_Offset_2
0069 e003 | | Load 0x0,0x3
006a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
006b 6801 |h | Jump_Zero 0x6d
006c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
006d 0092 04d3 | | Action Push_String_Extended,0x4d3 ; "implicit"
006f e5ff | | Load 0x2,-0x1
0070 8008 | | Call 0x0,0x8
0071 6834 |h4 | Jump_Zero 0xa6
0072 00d9 | | Load_Top At_Offset_1
0073 00d9 | | Load_Top At_Offset_1
0074 e009 | | Load 0x0,0x9
0075 e5fb | | Load 0x2,-0x5
0076 e402 | | Load 0x2,0x2
0077 800a | | Call 0x0,0xa
0078 e00b | | Load 0x0,0xb
0079 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
007a c009 | | Store 0x0,0x9
007b 00d1 | | Pop_Control Pop_Count_1
007c c404 | | Store 0x2,0x4
007d 4802 |H | Short_Literal 0x2
007e 00da | | Load_Top At_Offset_2
007f e003 | | Load 0x0,0x3
0080 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0081 6815 |h | Jump_Zero 0x97
0082 480a |H | Short_Literal 0xa
0083 480a |H | Short_Literal 0xa
0084 0092 04d4 | | Action Push_String_Extended,0x4d4 ; "Could not catch implicit exceptions "
0086 4800 |H | Short_Literal 0x0
0087 e402 | | Load 0x2,0x2
0088 e405 | | Load 0x2,0x5
0089 e5fc | | Load 0x2,-0x4
008a 800c | | Call 0x0,0xc
008b 01cc | | Execute Vector,Catenate
008c 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ":"
008e 01cc | | Execute Vector,Catenate
008f 01cb | | Execute Vector,Append
0090 00db | | Load_Top At_Offset_3
0091 e003 | | Load 0x0,0x3
0092 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0093 01cc | | Execute Vector,Catenate
0094 01cb | | Execute Vector,Append
0095 800d | | Call 0x0,0xd
0096 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0097 480a |H | Short_Literal 0xa
0098 0092 04d6 | | Action Push_String_Extended,0x4d6 ; "Implicit exceptions will be caught when raised "
009a 4800 |H | Short_Literal 0x0
009b e402 | | Load 0x2,0x2
009c e405 | | Load 0x2,0x5
009d e5fc | | Load 0x2,-0x4
009e 800c | | Call 0x0,0xc
009f 01cc | | Execute Vector,Catenate
00a0 0092 04d7 | | Action Push_String_Extended,0x4d7 ; "."
00a2 01cc | | Execute Vector,Catenate
00a3 01cb | | Execute Vector,Append
00a4 800e | | Call 0x0,0xe
00a5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00a6 00d8 | | Load_Top At_Offset_0
00a7 e402 | | Load 0x2,0x2
00a8 e5fb | | Load 0x2,-0x5
00a9 e5fc | | Load 0x2,-0x4
00aa e5fe | | Load 0x2,-0x2
00ab e5ff | | Load 0x2,-0x1
00ac 8006 | | Call 0x0,0x6
00ad 8218 | | Call 0x1,0x18
00ae 00d1 | | Pop_Control Pop_Count_1
00af 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00b0 TRAP_0038:
00b0 0007 | | Action Break_Optional
00b1 480a |H | Short_Literal 0xa
00b2 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "Exception raised during command processing: "
00b4 e00f | | Load 0x0,0xf
00b5 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b6 01cc | | Execute Vector,Catenate
00b7 01cb | | Execute Vector,Append
00b8 800d | | Call 0x0,0xd
00b9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d1 | | .CONST 0x00d1 ; Address of begin
00c1 0135 | 5 | .CONST 0x0135 ; 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 4801 |H | Short_Literal 0x1
00d9 e5fd | | Load 0x2,-0x3
00da 8005 | | Call 0x0,0x5
00db c402 | | Store 0x2,0x2
00dc 005b | [ | Store_Top Discrete,At_Offset_3
00dd 00da | | Load_Top At_Offset_2
00de 7001 |p | Jump_Nonzero 0xe0
00df 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00e0 e5fc | | Load 0x2,-0x4
00e1 e402 | | Load 0x2,0x2
00e2 e5ff | | Load 0x2,-0x1
00e3 8006 | | Call 0x0,0x6
00e4 8211 | | Call 0x1,0x11
00e5 6802 |h | Jump_Zero 0xe8
00e6 821b | | Call 0x1,0x1b
00e7 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00e8 00d8 | | Load_Top At_Offset_0
00e9 00da | | Load_Top At_Offset_2
00ea e5fc | | Load 0x2,-0x4
00eb 8007 | | Call 0x0,0x7
00ec 00d1 | | Pop_Control Pop_Count_1
00ed c405 | | Store 0x2,0x5
00ee 4802 |H | Short_Literal 0x2
00ef 00d9 | | Load_Top At_Offset_1
00f0 e003 | | Load 0x0,0x3
00f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f2 6801 |h | Jump_Zero 0xf4
00f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00f4 0092 04d3 | | Action Push_String_Extended,0x4d3 ; "implicit"
00f6 e5ff | | Load 0x2,-0x1
00f7 8008 | | Call 0x0,0x8
00f8 6833 |h3 | Jump_Zero 0x12c
00f9 00d8 | | Load_Top At_Offset_0
00fa 00da | | Load_Top At_Offset_2
00fb e009 | | Load 0x0,0x9
00fc e402 | | Load 0x2,0x2
00fd 800a | | Call 0x0,0xa
00fe e00b | | Load 0x0,0xb
00ff 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0100 c009 | | Store 0x0,0x9
0101 00d1 | | Pop_Control Pop_Count_1
0102 c405 | | Store 0x2,0x5
0103 4802 |H | Short_Literal 0x2
0104 00d9 | | Load_Top At_Offset_1
0105 e003 | | Load 0x0,0x3
0106 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0107 6815 |h | Jump_Zero 0x11d
0108 480a |H | Short_Literal 0xa
0109 480a |H | Short_Literal 0xa
010a 0092 04d9 | | Action Push_String_Extended,0x4d9 ; "Could not propagate implicit exceptions "
010c 4800 |H | Short_Literal 0x0
010d e402 | | Load 0x2,0x2
010e e404 | | Load 0x2,0x4
010f e5fc | | Load 0x2,-0x4
0110 800c | | Call 0x0,0xc
0111 01cc | | Execute Vector,Catenate
0112 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ":"
0114 01cc | | Execute Vector,Catenate
0115 01cb | | Execute Vector,Append
0116 00da | | Load_Top At_Offset_2
0117 e003 | | Load 0x0,0x3
0118 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0119 01cc | | Execute Vector,Catenate
011a 01cb | | Execute Vector,Append
011b 800d | | Call 0x0,0xd
011c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
011d 480a |H | Short_Literal 0xa
011e 0092 04da | | Action Push_String_Extended,0x4da ; "Implicit exceptions will be propagated when raised "
0120 4800 |H | Short_Literal 0x0
0121 e402 | | Load 0x2,0x2
0122 e404 | | Load 0x2,0x4
0123 e5fc | | Load 0x2,-0x4
0124 800c | | Call 0x0,0xc
0125 01cc | | Execute Vector,Catenate
0126 0092 04d7 | | Action Push_String_Extended,0x4d7 ; "."
0128 01cc | | Execute Vector,Catenate
0129 01cb | | Execute Vector,Append
012a 800e | | Call 0x0,0xe
012b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
012c 00d9 | | Load_Top At_Offset_1
012d e402 | | Load 0x2,0x2
012e e5fc | | Load 0x2,-0x4
012f e5fe | | Load 0x2,-0x2
0130 e5ff | | Load 0x2,-0x1
0131 8006 | | Call 0x0,0x6
0132 821a | | Call 0x1,0x1a
0133 00d1 | | Pop_Control Pop_Count_1
0134 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0135 TRAP_00c0:
0135 0007 | | Action Break_Optional
0136 480a |H | Short_Literal 0xa
0137 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "Exception raised during command processing: "
0139 e00f | | Load 0x0,0xf
013a 180d | | Execute Package,Field_Execute,Field_Number 0xd
013b 01cc | | Execute Vector,Catenate
013c 01cb | | Execute Vector,Append
013d 800d | | Call 0x0,0xd
013e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0155 | U | .CONST 0x0155 ; Address of begin
0141 0240 | @ | .CONST 0x0240 ; 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 4801 |H | Short_Literal 0x1
0169 e5fd | | Load 0x2,-0x3
016a 8005 | | Call 0x0,0x5
016b c405 | | Store 0x2,0x5
016c 0059 | Y | Store_Top Discrete,At_Offset_1
016d 00d8 | | Load_Top At_Offset_0
016e 7001 |p | Jump_Nonzero 0x170
016f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0170 e402 | | Load 0x2,0x2
0171 e403 | | Load 0x2,0x3
0172 e5fc | | Load 0x2,-0x4
0173 8007 | | Call 0x0,0x7
0174 00d1 | | Pop_Control Pop_Count_1
0175 c402 | | Store 0x2,0x2
0176 4802 |H | Short_Literal 0x2
0177 e402 | | Load 0x2,0x2
0178 e003 | | Load 0x0,0x3
0179 1810 | | Execute Package,Field_Execute,Field_Number 0x10
017a 6801 |h | Jump_Zero 0x17c
017b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
017c 0092 04dc | | Action Push_String_Extended,0x4dc ; "all"
017e e5ff | | Load 0x2,-0x1
017f 8008 | | Call 0x0,0x8
0180 6831 |h1 | Jump_Zero 0x1b2
0181 e402 | | Load 0x2,0x2
0182 e403 | | Load 0x2,0x3
0183 e009 | | Load 0x0,0x9
0184 e405 | | Load 0x2,0x5
0185 8011 | | Call 0x0,0x11
0186 e00b | | Load 0x0,0xb
0187 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0188 c009 | | Store 0x0,0x9
0189 00d1 | | Pop_Control Pop_Count_1
018a c402 | | Store 0x2,0x2
018b 4802 |H | Short_Literal 0x2
018c e402 | | Load 0x2,0x2
018d e003 | | Load 0x0,0x3
018e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
018f 6813 |h | Jump_Zero 0x1a3
0190 480a |H | Short_Literal 0xa
0191 0092 04dd | | Action Push_String_Extended,0x4dd ; "Unable to forget all exception requests "
0193 4801 |H | Short_Literal 0x1
0194 e405 | | Load 0x2,0x5
0195 e403 | | Load 0x2,0x3
0196 e5fc | | Load 0x2,-0x4
0197 800c | | Call 0x0,0xc
0198 01cc | | Execute Vector,Catenate
0199 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ":"
019b 01cc | | Execute Vector,Catenate
019c 01cb | | Execute Vector,Append
019d e402 | | Load 0x2,0x2
019e e003 | | Load 0x0,0x3
019f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01a0 01cc | | Execute Vector,Catenate
01a1 800d | | Call 0x0,0xd
01a2 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01a3 480a |H | Short_Literal 0xa
01a4 0092 04de | | Action Push_String_Extended,0x4de ; "All exception requests specified "
01a6 4801 |H | Short_Literal 0x1
01a7 e405 | | Load 0x2,0x5
01a8 e403 | | Load 0x2,0x3
01a9 e5fc | | Load 0x2,-0x4
01aa 800c | | Call 0x0,0xc
01ab 01cc | | Execute Vector,Catenate
01ac 0092 04df | | Action Push_String_Extended,0x4df ; " have been forgotten."
01ae 01cc | | Execute Vector,Catenate
01af 01cb | | Execute Vector,Append
01b0 800e | | Call 0x0,0xe
01b1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01b2 0092 04d3 | | Action Push_String_Extended,0x4d3 ; "implicit"
01b4 e5ff | | Load 0x2,-0x1
01b5 8008 | | Call 0x0,0x8
01b6 6833 |h3 | Jump_Zero 0x1ea
01b7 e402 | | Load 0x2,0x2
01b8 e403 | | Load 0x2,0x3
01b9 e009 | | Load 0x0,0x9
01ba e405 | | Load 0x2,0x5
01bb 800a | | Call 0x0,0xa
01bc e00b | | Load 0x0,0xb
01bd 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
01be c009 | | Store 0x0,0x9
01bf 00d1 | | Pop_Control Pop_Count_1
01c0 c402 | | Store 0x2,0x2
01c1 4802 |H | Short_Literal 0x2
01c2 e402 | | Load 0x2,0x2
01c3 e003 | | Load 0x0,0x3
01c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c5 6815 |h | Jump_Zero 0x1db
01c6 480a |H | Short_Literal 0xa
01c7 480a |H | Short_Literal 0xa
01c8 0092 04e0 | | Action Push_String_Extended,0x4e0 ; "Unable to forget implicit exceptions "
01ca 4801 |H | Short_Literal 0x1
01cb e405 | | Load 0x2,0x5
01cc e403 | | Load 0x2,0x3
01cd e5fc | | Load 0x2,-0x4
01ce 800c | | Call 0x0,0xc
01cf 01cc | | Execute Vector,Catenate
01d0 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ":"
01d2 01cc | | Execute Vector,Catenate
01d3 01cb | | Execute Vector,Append
01d4 e402 | | Load 0x2,0x2
01d5 e003 | | Load 0x0,0x3
01d6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01d7 01cc | | Execute Vector,Catenate
01d8 01cb | | Execute Vector,Append
01d9 800d | | Call 0x0,0xd
01da 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01db 480a |H | Short_Literal 0xa
01dc 0092 04e1 | | Action Push_String_Extended,0x4e1 ; "Implicit exceptions have been forgotten "
01de 4801 |H | Short_Literal 0x1
01df e405 | | Load 0x2,0x5
01e0 e403 | | Load 0x2,0x3
01e1 e5fc | | Load 0x2,-0x4
01e2 800c | | Call 0x0,0xc
01e3 01cc | | Execute Vector,Catenate
01e4 0092 04d7 | | Action Push_String_Extended,0x4d7 ; "."
01e6 01cc | | Execute Vector,Catenate
01e7 01cb | | Execute Vector,Append
01e8 800e | | Call 0x0,0xe
01e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01ea e402 | | Load 0x2,0x2
01eb 00db | | Load_Top At_Offset_3
01ec 0120 | | Execute Any,Is_Value
01ed 6802 |h | Jump_Zero 0x1f0
01ee e010 | | Load 0x0,0x10
01ef 7801 |x | Jump 0x1f1
01f0 00db | | Load_Top At_Offset_3
01f1 e5fe | | Load 0x2,-0x2
01f2 e5ff | | Load 0x2,-0x1
01f3 8217 | | Call 0x1,0x17
01f4 c404 | | Store 0x2,0x4
01f5 c402 | | Store 0x2,0x2
01f6 4802 |H | Short_Literal 0x2
01f7 e402 | | Load 0x2,0x2
01f8 e003 | | Load 0x0,0x3
01f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01fa 680a |h | Jump_Zero 0x205
01fb 480a |H | Short_Literal 0xa
01fc 0092 04e2 | | Action Push_String_Extended,0x4e2 ; "Invalid exception name:\x0a"
01fe e402 | | Load 0x2,0x2
01ff e003 | | Load 0x0,0x3
0200 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0201 01cc | | Execute Vector,Catenate
0202 01cb | | Execute Vector,Append
0203 800d | | Call 0x0,0xd
0204 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0205 e402 | | Load 0x2,0x2
0206 e403 | | Load 0x2,0x3
0207 e009 | | Load 0x0,0x9
0208 e405 | | Load 0x2,0x5
0209 e404 | | Load 0x2,0x4
020a e00b | | Load 0x0,0xb
020b 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
020c c009 | | Store 0x0,0x9
020d 00d1 | | Pop_Control Pop_Count_1
020e c402 | | Store 0x2,0x2
020f 4802 |H | Short_Literal 0x2
0210 e402 | | Load 0x2,0x2
0211 e003 | | Load 0x0,0x3
0212 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0213 6819 |h | Jump_Zero 0x22d
0214 480a |H | Short_Literal 0xa
0215 480a |H | Short_Literal 0xa
0216 0092 04e3 | | Action Push_String_Extended,0x4e3 ; "Could not forget "
0218 4800 |H | Short_Literal 0x0
0219 e5ff | | Load 0x2,-0x1
021a 8213 | | Call 0x1,0x13
021b 01cc | | Execute Vector,Catenate
021c 4801 |H | Short_Literal 0x1
021d e405 | | Load 0x2,0x5
021e e403 | | Load 0x2,0x3
021f e5fc | | Load 0x2,-0x4
0220 800c | | Call 0x0,0xc
0221 01cc | | Execute Vector,Catenate
0222 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ":"
0224 01cc | | Execute Vector,Catenate
0225 01cb | | Execute Vector,Append
0226 e402 | | Load 0x2,0x2
0227 e003 | | Load 0x0,0x3
0228 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0229 01cc | | Execute Vector,Catenate
022a 01cb | | Execute Vector,Append
022b 800d | | Call 0x0,0xd
022c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
022d 480a |H | Short_Literal 0xa
022e 4801 |H | Short_Literal 0x1
022f e404 | | Load 0x2,0x4
0230 8214 | | Call 0x1,0x14
0231 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "has been forgotten "
0233 01cc | | Execute Vector,Catenate
0234 4801 |H | Short_Literal 0x1
0235 e405 | | Load 0x2,0x5
0236 e403 | | Load 0x2,0x3
0237 e5fc | | Load 0x2,-0x4
0238 800c | | Call 0x0,0xc
0239 01cc | | Execute Vector,Catenate
023a 0092 04d7 | | Action Push_String_Extended,0x4d7 ; "."
023c 01cc | | Execute Vector,Catenate
023d 01cb | | Execute Vector,Append
023e 800e | | Call 0x0,0xe
023f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0240 TRAP_0140:
0240 0007 | | Action Break_Optional
0241 480a |H | Short_Literal 0xa
0242 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "Exception raised during command processing: "
0244 e00f | | Load 0x0,0xf
0245 180d | | Execute Package,Field_Execute,Field_Number 0xd
0246 01cc | | Execute Vector,Catenate
0247 01cb | | Execute Vector,Append
0248 800d | | Call 0x0,0xd
0249 4506 |E | Exit_Suprogram New_Top_Offset 0x6
024a 0000 0000 | | .BLANK 0000[0x6]
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 000d | | .DEBUG4 0x0004,0x000d,0x76a9,0x0000,0x0001,0x0000
06f6 0000 0000 | | .BLANK 0000[0x10a]