|
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_03b8fe
└─⟦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 0660 | ` | .CONST 0x0660 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 006c | l | .CONST 0x006c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0024 | $ | .CONST 0x0024 ; Number of locals 000b INIT_0008: 000b 00e5 | | Load_Encached Long_Integer_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 4800 |H | Short_Literal 0x0 000e 48ff |H | Short_Literal 0xff 000f e20d | | Load 0x1,0xd 0010 03f9 | | Declare_Type Discrete,Constrained,Visible 0011 4900 |I | Short_Literal 0x100 0012 60fd |` | Indirect_Literal Discrete,0x110,{0x7fffffff, 0xffffffff} 0013 e20d | | Load 0x1,0xd 0014 03f9 | | Declare_Type Discrete,Constrained,Visible 0015 4800 |H | Short_Literal 0x0 0016 48df |H | Short_Literal 0xdf 0017 e20d | | Load 0x1,0xd 0018 03f9 | | Declare_Type Discrete,Constrained,Visible 0019 48e0 |H | Short_Literal 0xe0 001a 60f5 |` | Indirect_Literal Discrete,0x110,{0x7fffffff, 0xffffffff} 001b e20d | | Load 0x1,0xd 001c 03f9 | | Declare_Type Discrete,Constrained,Visible 001d 48e0 |H | Short_Literal 0xe0 001e 48ff |H | Short_Literal 0xff 001f e20d | | Load 0x1,0xd 0020 03f9 | | Declare_Type Discrete,Constrained,Visible 0021 4801 |H | Short_Literal 0x1 0022 481f |H | Short_Literal 0x1f 0023 e20e | | Load 0x1,0xe 0024 03f9 | | Declare_Type Discrete,Constrained,Visible 0025 4820 |H | Short_Literal 0x20 0026 482f |H/ | Short_Literal 0x2f 0027 e20e | | Load 0x1,0xe 0028 03f9 | | Declare_Type Discrete,Constrained,Visible 0029 4830 |H0 | Short_Literal 0x30 002a 483f |H? | Short_Literal 0x3f 002b e20e | | Load 0x1,0xe 002c 03f9 | | Declare_Type Discrete,Constrained,Visible 002d 4840 |H@ | Short_Literal 0x40 002e 484f |HO | Short_Literal 0x4f 002f e20e | | Load 0x1,0xe 0030 03f9 | | Declare_Type Discrete,Constrained,Visible 0031 4850 |HP | Short_Literal 0x50 0032 485f |H_ | Short_Literal 0x5f 0033 e20e | | Load 0x1,0xe 0034 03f9 | | Declare_Type Discrete,Constrained,Visible 0035 4860 |H` | Short_Literal 0x60 0036 487f |H | Short_Literal 0x7f 0037 e20e | | Load 0x1,0xe 0038 03f9 | | Declare_Type Discrete,Constrained,Visible 0039 4880 |H | Short_Literal 0x80 003a 48df |H | Short_Literal 0xdf 003b e20e | | Load 0x1,0xe 003c 03f9 | | Declare_Type Discrete,Constrained,Visible 003d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 003f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0041 4800 |H | Short_Literal 0x0 0042 0093 02cb | | push_full_address INIT_02c8 0044 02a0 | | Declare_Subprogram Null_Subprogram 0045 038f | | Declare_Type Package,Defined,Visible 0046 0386 | | Declare_Variable Package,Visible 0047 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0049 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 004b 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 004d 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 004f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0051 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0053 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0055 e001 | | Load 0x0,0x1 0056 0129 | ) | Execute Any,Make_Visible 0057 00bf | | Action Accept_Activation 0058 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0059 00c7 | | Action Elaborate_Subprogram 005a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 005b 00c7 | | Action Elaborate_Subprogram 005c 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 005d 00c7 | | Action Elaborate_Subprogram 005e 1d20 | | Execute_Immediate Reference_Lex_1,0x20 005f 00c7 | | Action Elaborate_Subprogram 0060 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0061 00c7 | | Action Elaborate_Subprogram 0062 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0063 00c7 | | Action Elaborate_Subprogram 0064 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0065 00c7 | | Action Elaborate_Subprogram 0066 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0067 00c7 | | Action Elaborate_Subprogram 0068 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0069 00c7 | | Action Elaborate_Subprogram 006a e21c | | Load 0x1,0x1c 006b 020f | | Execute Module,Activate 006c BODY_0008: 006c 00bc | | Action Signal_Activated 006d 00bb | | Action Signal_Completion 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 010a | | .CONST 0x010a ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 e5ff | | Load 0x2,-0x1 0074 00d8 | | Load_Top At_Offset_0 0075 0d40 | @ | Execute_Immediate Less,0x40 0076 7020 |p | Jump_Nonzero 0x97 0077 00d8 | | Load_Top At_Offset_0 0078 0c50 | P | Execute_Immediate Greater_Equal,0x50 0079 700e |p | Jump_Nonzero 0x88 007a 00d1 | | Pop_Control Pop_Count_1 007b e5ff | | Load 0x2,-0x1 007c 0ac0 | | Execute_Immediate Plus,-0x40 007d 00d8 | | Load_Top At_Offset_0 007e e21c | | Load 0x1,0x1c 007f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0080 0260 | ` | Execute Discrete,In_Type 0081 7001 |p | Jump_Nonzero 0x83 0082 08e0 | | Execute_Immediate Raise,0xe0 0083 e21c | | Load 0x1,0x1c 0084 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0085 025e | ^ | Execute Discrete,Convert 0086 1c01 | | Execute_Immediate Run_Utility,0x1 0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0088 00d8 | | Load_Top At_Offset_0 0089 0c60 | ` | Execute_Immediate Greater_Equal,0x60 008a 6847 |hG | Jump_Zero 0xd2 008b 00d8 | | Load_Top At_Offset_0 008c 0c80 | | Execute_Immediate Greater_Equal,-0x80 008d 6852 |hR | Jump_Zero 0xe0 008e 00d8 | | Load_Top At_Offset_0 008f 0ce0 | | Execute_Immediate Greater_Equal,-0x20 0090 685d |h] | Jump_Zero 0xee 0091 48ff |H | Short_Literal 0xff 0092 027d | } | Execute Discrete,Greater 0093 6868 |hh | Jump_Zero 0xfc 0094 0092 0404 | | Action Push_String_Extended,0x404 ; "User defined exception" 0096 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0097 0b00 | | Execute_Immediate Case_Compare,0x0 0098 700c |p | Jump_Nonzero 0xa5 0099 00d8 | | Load_Top At_Offset_0 009a e213 | | Load 0x1,0x13 009b 0260 | ` | Execute Discrete,In_Type 009c 700c |p | Jump_Nonzero 0xa9 009d 00d8 | | Load_Top At_Offset_0 009e e214 | | Load 0x1,0x14 009f 0260 | ` | Execute Discrete,In_Type 00a0 7016 |p | Jump_Nonzero 0xb7 00a1 e215 | | Load 0x1,0x15 00a2 0260 | ` | Execute Discrete,In_Type 00a3 7021 |p! | Jump_Nonzero 0xc5 00a4 7fef | | Jump 0x94 00a5 00d1 | | Pop_Control Pop_Count_1 00a6 0092 0405 | | Action Push_String_Extended,0x405 ; "No exception" 00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a9 00d1 | | Pop_Control Pop_Count_1 00aa e5ff | | Load 0x2,-0x1 00ab 0aff | | Execute_Immediate Plus,-0x1 00ac 00d8 | | Load_Top At_Offset_0 00ad e21c | | Load 0x1,0x1c 00ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00af 0260 | ` | Execute Discrete,In_Type 00b0 7001 |p | Jump_Nonzero 0xb2 00b1 08e0 | | Execute_Immediate Raise,0xe0 00b2 e21c | | Load 0x1,0x1c 00b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b4 025e | ^ | Execute Discrete,Convert 00b5 1c01 | | Execute_Immediate Run_Utility,0x1 00b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b7 00d1 | | Pop_Control Pop_Count_1 00b8 e5ff | | Load 0x2,-0x1 00b9 0ae0 | | Execute_Immediate Plus,-0x20 00ba 00d8 | | Load_Top At_Offset_0 00bb e21c | | Load 0x1,0x1c 00bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bd 0260 | ` | Execute Discrete,In_Type 00be 7001 |p | Jump_Nonzero 0xc0 00bf 08e0 | | Execute_Immediate Raise,0xe0 00c0 e21c | | Load 0x1,0x1c 00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c2 025e | ^ | Execute Discrete,Convert 00c3 1c01 | | Execute_Immediate Run_Utility,0x1 00c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c5 e5ff | | Load 0x2,-0x1 00c6 0ad0 | | Execute_Immediate Plus,-0x30 00c7 00d8 | | Load_Top At_Offset_0 00c8 e21c | | Load 0x1,0x1c 00c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ca 0260 | ` | Execute Discrete,In_Type 00cb 7001 |p | Jump_Nonzero 0xcd 00cc 08e0 | | Execute_Immediate Raise,0xe0 00cd e21c | | Load 0x1,0x1c 00ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00cf 025e | ^ | Execute Discrete,Convert 00d0 1c01 | | Execute_Immediate Run_Utility,0x1 00d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d2 00d1 | | Pop_Control Pop_Count_1 00d3 e5ff | | Load 0x2,-0x1 00d4 0ab0 | | Execute_Immediate Plus,-0x50 00d5 00d8 | | Load_Top At_Offset_0 00d6 e21c | | Load 0x1,0x1c 00d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d8 0260 | ` | Execute Discrete,In_Type 00d9 7001 |p | Jump_Nonzero 0xdb 00da 08e0 | | Execute_Immediate Raise,0xe0 00db e21c | | Load 0x1,0x1c 00dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00dd 025e | ^ | Execute Discrete,Convert 00de 1c01 | | Execute_Immediate Run_Utility,0x1 00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e0 00d1 | | Pop_Control Pop_Count_1 00e1 e5ff | | Load 0x2,-0x1 00e2 0aa0 | | Execute_Immediate Plus,-0x60 00e3 00d8 | | Load_Top At_Offset_0 00e4 e21c | | Load 0x1,0x1c 00e5 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00e6 0260 | ` | Execute Discrete,In_Type 00e7 7001 |p | Jump_Nonzero 0xe9 00e8 08e0 | | Execute_Immediate Raise,0xe0 00e9 e21c | | Load 0x1,0x1c 00ea 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00eb 025e | ^ | Execute Discrete,Convert 00ec 1c01 | | Execute_Immediate Run_Utility,0x1 00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ee 00d1 | | Pop_Control Pop_Count_1 00ef e5ff | | Load 0x2,-0x1 00f0 0a80 | | Execute_Immediate Plus,-0x80 00f1 00d8 | | Load_Top At_Offset_0 00f2 e21c | | Load 0x1,0x1c 00f3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f4 0260 | ` | Execute Discrete,In_Type 00f5 7001 |p | Jump_Nonzero 0xf7 00f6 08e0 | | Execute_Immediate Raise,0xe0 00f7 e21c | | Load 0x1,0x1c 00f8 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f9 025e | ^ | Execute Discrete,Convert 00fa 1c01 | | Execute_Immediate Run_Utility,0x1 00fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fc e5ff | | Load 0x2,-0x1 00fd 4f20 |O | Short_Literal -0xe0 00fe 0273 | s | Execute Discrete,Plus 00ff 00d8 | | Load_Top At_Offset_0 0100 e21c | | Load 0x1,0x1c 0101 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0102 0260 | ` | Execute Discrete,In_Type 0103 7001 |p | Jump_Nonzero 0x105 0104 08e0 | | Execute_Immediate Raise,0xe0 0105 e21c | | Load 0x1,0x1c 0106 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0107 025e | ^ | Execute Discrete,Convert 0108 1c01 | | Execute_Immediate Run_Utility,0x1 0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010a TRAP_0070: 010a 010e | | Execute Exception,Is_Constraint_Error 010b 6803 |h | Jump_Zero 0x10f 010c 0092 0406 | | Action Push_String_Extended,0x406 ; "Illegal predefined value" 010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010f 0100 | | Execute Exception,Raise 0110 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 012b | + | .CONST 0x012b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0009 | | .CONST 0x0009 ; Number of locals 011b INIT_0118: 011b 029f 020b | | Declare_Subprogram INIT_0208,For_Call 011d 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 011f 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 0121 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 0123 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 0125 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 0127 029f 029b | | Declare_Subprogram INIT_0298,For_Call 0129 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 012b BODY_0118: 012b 8402 | | Call 0x2,0x2 012c 8403 | | Call 0x2,0x3 012d 8404 | | Call 0x2,0x4 012e 8405 | | Call 0x2,0x5 012f 8406 | | Call 0x2,0x6 0130 8407 | | Call 0x2,0x7 0131 8408 | | Call 0x2,0x8 0132 8409 | | Call 0x2,0x9 0133 08e0 | | Execute_Immediate Raise,0xe0 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013d | = | .CONST 0x013d ; Address of begin 0139 014e | N | .CONST 0x014e ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b e20d | | Load 0x1,0xd 013c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 013d BODY_0138: 013d e5ff | | Load 0x2,-0x1 013e 0107 | | Execute Exception,Get_Name 013f c402 | | Store 0x2,0x2 0140 00d8 | | Load_Top At_Offset_0 0141 0fe0 | | Execute_Immediate Equal,-0x20 0142 6802 |h | Jump_Zero 0x145 0143 4809 |H | Short_Literal 0x9 0144 00ca | | Action Exit_Nullary_Function 0145 00d8 | | Load_Top At_Offset_0 0146 0aff | | Execute_Immediate Plus,-0x1 0147 00d8 | | Load_Top At_Offset_0 0148 e21c | | Load 0x1,0x1c 0149 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014a 0260 | ` | Execute Discrete,In_Type 014b 7001 |p | Jump_Nonzero 0x14d 014c 08e0 | | Execute_Immediate Raise,0xe0 014d 00ca | | Action Exit_Nullary_Function 014e TRAP_0138: 014e 0007 | | Action Break_Optional 014f e224 | $ | Load 0x1,0x24 0150 0257 | W | Execute Discrete,Raise 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015d | ] | .CONST 0x015d ; Address of begin 0159 016e | n | .CONST 0x016e ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e20d | | Load 0x1,0xd 015c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 015d BODY_0158: 015d e5ff | | Load 0x2,-0x1 015e 0107 | | Execute Exception,Get_Name 015f c402 | | Store 0x2,0x2 0160 00d8 | | Load_Top At_Offset_0 0161 0fe1 | | Execute_Immediate Equal,-0x1f 0162 6802 |h | Jump_Zero 0x165 0163 4802 |H | Short_Literal 0x2 0164 00ca | | Action Exit_Nullary_Function 0165 00d8 | | Load_Top At_Offset_0 0166 0ae0 | | Execute_Immediate Plus,-0x20 0167 00d8 | | Load_Top At_Offset_0 0168 e21c | | Load 0x1,0x1c 0169 1b0e | | Execute Package,Field_Read,Field_Number 0xe 016a 0260 | ` | Execute Discrete,In_Type 016b 7001 |p | Jump_Nonzero 0x16d 016c 08e0 | | Execute_Immediate Raise,0xe0 016d 00ca | | Action Exit_Nullary_Function 016e TRAP_0158: 016e 0007 | | Action Break_Optional 016f e224 | $ | Load 0x1,0x24 0170 0257 | W | Execute Discrete,Raise 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017d | } | .CONST 0x017d ; Address of begin 0179 018e | | .CONST 0x018e ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b e20d | | Load 0x1,0xd 017c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 017d BODY_0178: 017d e5ff | | Load 0x2,-0x1 017e 0107 | | Execute Exception,Get_Name 017f c402 | | Store 0x2,0x2 0180 00d8 | | Load_Top At_Offset_0 0181 0fe2 | | Execute_Immediate Equal,-0x1e 0182 6802 |h | Jump_Zero 0x185 0183 4803 |H | Short_Literal 0x3 0184 00ca | | Action Exit_Nullary_Function 0185 00d8 | | Load_Top At_Offset_0 0186 0ad0 | | Execute_Immediate Plus,-0x30 0187 00d8 | | Load_Top At_Offset_0 0188 e21c | | Load 0x1,0x1c 0189 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018a 0260 | ` | Execute Discrete,In_Type 018b 7001 |p | Jump_Nonzero 0x18d 018c 08e0 | | Execute_Immediate Raise,0xe0 018d 00ca | | Action Exit_Nullary_Function 018e TRAP_0178: 018e 0007 | | Action Break_Optional 018f e224 | $ | Load 0x1,0x24 0190 0257 | W | Execute Discrete,Raise 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 01ae | | .CONST 0x01ae ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e20d | | Load 0x1,0xd 019c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 019d BODY_0198: 019d e5ff | | Load 0x2,-0x1 019e 0107 | | Execute Exception,Get_Name 019f c402 | | Store 0x2,0x2 01a0 00d8 | | Load_Top At_Offset_0 01a1 0fe3 | | Execute_Immediate Equal,-0x1d 01a2 6802 |h | Jump_Zero 0x1a5 01a3 480a |H | Short_Literal 0xa 01a4 00ca | | Action Exit_Nullary_Function 01a5 00d8 | | Load_Top At_Offset_0 01a6 0ac0 | | Execute_Immediate Plus,-0x40 01a7 00d8 | | Load_Top At_Offset_0 01a8 e21c | | Load 0x1,0x1c 01a9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01aa 0260 | ` | Execute Discrete,In_Type 01ab 7001 |p | Jump_Nonzero 0x1ad 01ac 08e0 | | Execute_Immediate Raise,0xe0 01ad 00ca | | Action Exit_Nullary_Function 01ae TRAP_0198: 01ae 0007 | | Action Break_Optional 01af e224 | $ | Load 0x1,0x24 01b0 0257 | W | Execute Discrete,Raise 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bd | | .CONST 0x01bd ; Address of begin 01b9 01ce | | .CONST 0x01ce ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb e20d | | Load 0x1,0xd 01bc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01bd BODY_01b8: 01bd e5ff | | Load 0x2,-0x1 01be 0107 | | Execute Exception,Get_Name 01bf c402 | | Store 0x2,0x2 01c0 00d8 | | Load_Top At_Offset_0 01c1 0fe4 | | Execute_Immediate Equal,-0x1c 01c2 6802 |h | Jump_Zero 0x1c5 01c3 4803 |H | Short_Literal 0x3 01c4 00ca | | Action Exit_Nullary_Function 01c5 00d8 | | Load_Top At_Offset_0 01c6 0ab0 | | Execute_Immediate Plus,-0x50 01c7 00d8 | | Load_Top At_Offset_0 01c8 e21c | | Load 0x1,0x1c 01c9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ca 0260 | ` | Execute Discrete,In_Type 01cb 7001 |p | Jump_Nonzero 0x1cd 01cc 08e0 | | Execute_Immediate Raise,0xe0 01cd 00ca | | Action Exit_Nullary_Function 01ce TRAP_01b8: 01ce 0007 | | Action Break_Optional 01cf e224 | $ | Load 0x1,0x24 01d0 0257 | W | Execute Discrete,Raise 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01dd | | .CONST 0x01dd ; Address of begin 01d9 01e9 | | .CONST 0x01e9 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db e20d | | Load 0x1,0xd 01dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01dd BODY_01d8: 01dd e5ff | | Load 0x2,-0x1 01de 0107 | | Execute Exception,Get_Name 01df c402 | | Store 0x2,0x2 01e0 00d8 | | Load_Top At_Offset_0 01e1 0aa0 | | Execute_Immediate Plus,-0x60 01e2 00d8 | | Load_Top At_Offset_0 01e3 e21c | | Load 0x1,0x1c 01e4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01e5 0260 | ` | Execute Discrete,In_Type 01e6 7001 |p | Jump_Nonzero 0x1e8 01e7 08e0 | | Execute_Immediate Raise,0xe0 01e8 00ca | | Action Exit_Nullary_Function 01e9 TRAP_01d8: 01e9 0007 | | Action Break_Optional 01ea e224 | $ | Load 0x1,0x24 01eb 0257 | W | Execute Discrete,Raise 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f5 | | .CONST 0x01f5 ; Address of begin 01f1 0201 | | .CONST 0x0201 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e20d | | Load 0x1,0xd 01f4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01f5 BODY_01f0: 01f5 e5ff | | Load 0x2,-0x1 01f6 0107 | | Execute Exception,Get_Name 01f7 c402 | | Store 0x2,0x2 01f8 00d8 | | Load_Top At_Offset_0 01f9 0a80 | | Execute_Immediate Plus,-0x80 01fa 00d8 | | Load_Top At_Offset_0 01fb e21c | | Load 0x1,0x1c 01fc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01fd 0260 | ` | Execute Discrete,In_Type 01fe 7001 |p | Jump_Nonzero 0x200 01ff 08e0 | | Execute_Immediate Raise,0xe0 0200 00ca | | Action Exit_Nullary_Function 0201 TRAP_01f0: 0201 0007 | | Action Break_Optional 0202 e224 | $ | Load 0x1,0x24 0203 0257 | W | Execute Discrete,Raise 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 021a | | .CONST 0x021a ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b e5ff | | Load 0x2,-0x1 020c e21c | | Load 0x1,0x1c 020d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020e 00e0 | | Load_Encached Standard_Cache 020f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0210 00d8 | | Load_Top At_Offset_0 0211 e20e | | Load 0x1,0xe 0212 0260 | ` | Execute Discrete,In_Type 0213 7001 |p | Jump_Nonzero 0x215 0214 08e0 | | Execute_Immediate Raise,0xe0 0215 0a01 | | Execute_Immediate Plus,0x1 0216 e20e | | Load 0x1,0xe 0217 025b | [ | Execute Discrete,Check_In_Type 0218 00cb | | Action Pop_Block_With_Result 0219 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021a TRAP_0208: 021a 010e | | Execute Exception,Is_Constraint_Error 021b 6802 |h | Jump_Zero 0x21e 021c 0008 | | Action Idle 021d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021e 0100 | | Execute Exception,Raise 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0232 | 2 | .CONST 0x0232 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e5ff | | Load 0x2,-0x1 0224 e21c | | Load 0x1,0x1c 0225 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0226 00e0 | | Load_Encached Standard_Cache 0227 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0228 00d8 | | Load_Top At_Offset_0 0229 e20e | | Load 0x1,0xe 022a 0260 | ` | Execute Discrete,In_Type 022b 7001 |p | Jump_Nonzero 0x22d 022c 08e0 | | Execute_Immediate Raise,0xe0 022d 0a50 | P | Execute_Immediate Plus,0x50 022e e20e | | Load 0x1,0xe 022f 025b | [ | Execute Discrete,Check_In_Type 0230 00cb | | Action Pop_Block_With_Result 0231 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0232 TRAP_0220: 0232 010e | | Execute Exception,Is_Constraint_Error 0233 6802 |h | Jump_Zero 0x236 0234 0008 | | Action Idle 0235 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0236 0100 | | Execute Exception,Raise 0237 0000 | | .XXX[0x1] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 024a | J | .CONST 0x024a ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b e5ff | | Load 0x2,-0x1 023c e21c | | Load 0x1,0x1c 023d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023e 00e0 | | Load_Encached Standard_Cache 023f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0240 00d8 | | Load_Top At_Offset_0 0241 e20e | | Load 0x1,0xe 0242 0260 | ` | Execute Discrete,In_Type 0243 7001 |p | Jump_Nonzero 0x245 0244 08e0 | | Execute_Immediate Raise,0xe0 0245 0a20 | | Execute_Immediate Plus,0x20 0246 e20e | | Load 0x1,0xe 0247 025b | [ | Execute Discrete,Check_In_Type 0248 00cb | | Action Pop_Block_With_Result 0249 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024a TRAP_0238: 024a 010e | | Execute Exception,Is_Constraint_Error 024b 6802 |h | Jump_Zero 0x24e 024c 0008 | | Action Idle 024d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024e 0100 | | Execute Exception,Raise 024f 0000 | | .XXX[0x1] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0262 | b | .CONST 0x0262 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e5ff | | Load 0x2,-0x1 0254 e21c | | Load 0x1,0x1c 0255 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0256 00e0 | | Load_Encached Standard_Cache 0257 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0258 00d8 | | Load_Top At_Offset_0 0259 e20e | | Load 0x1,0xe 025a 0260 | ` | Execute Discrete,In_Type 025b 7001 |p | Jump_Nonzero 0x25d 025c 08e0 | | Execute_Immediate Raise,0xe0 025d 0a30 | 0 | Execute_Immediate Plus,0x30 025e e20e | | Load 0x1,0xe 025f 025b | [ | Execute Discrete,Check_In_Type 0260 00cb | | Action Pop_Block_With_Result 0261 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0262 TRAP_0250: 0262 010e | | Execute Exception,Is_Constraint_Error 0263 6802 |h | Jump_Zero 0x266 0264 0008 | | Action Idle 0265 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0266 0100 | | Execute Exception,Raise 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 027a | z | .CONST 0x027a ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e5ff | | Load 0x2,-0x1 026c e21c | | Load 0x1,0x1c 026d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 026e 00e0 | | Load_Encached Standard_Cache 026f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0270 00d8 | | Load_Top At_Offset_0 0271 e20e | | Load 0x1,0xe 0272 0260 | ` | Execute Discrete,In_Type 0273 7001 |p | Jump_Nonzero 0x275 0274 08e0 | | Execute_Immediate Raise,0xe0 0275 0a40 | @ | Execute_Immediate Plus,0x40 0276 e20e | | Load 0x1,0xe 0277 025b | [ | Execute Discrete,Check_In_Type 0278 00cb | | Action Pop_Block_With_Result 0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027a TRAP_0268: 027a 010e | | Execute Exception,Is_Constraint_Error 027b 6802 |h | Jump_Zero 0x27e 027c 0008 | | Action Idle 027d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027e 0100 | | Execute Exception,Raise 027f 0000 | | .XXX[0x1] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0292 | | .CONST 0x0292 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 e5ff | | Load 0x2,-0x1 0284 e21c | | Load 0x1,0x1c 0285 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0286 00e0 | | Load_Encached Standard_Cache 0287 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0288 00d8 | | Load_Top At_Offset_0 0289 e20e | | Load 0x1,0xe 028a 0260 | ` | Execute Discrete,In_Type 028b 7001 |p | Jump_Nonzero 0x28d 028c 08e0 | | Execute_Immediate Raise,0xe0 028d 0a60 | ` | Execute_Immediate Plus,0x60 028e e20e | | Load 0x1,0xe 028f 025b | [ | Execute Discrete,Check_In_Type 0290 00cb | | Action Pop_Block_With_Result 0291 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0292 TRAP_0280: 0292 010e | | Execute Exception,Is_Constraint_Error 0293 6802 |h | Jump_Zero 0x296 0294 0008 | | Action Idle 0295 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0296 0100 | | Execute Exception,Raise 0297 0000 | | .XXX[0x1] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02ab | | .CONST 0x02ab ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e5ff | | Load 0x2,-0x1 029c e21c | | Load 0x1,0x1c 029d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 029e 00e0 | | Load_Encached Standard_Cache 029f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02a0 00d8 | | Load_Top At_Offset_0 02a1 e20e | | Load 0x1,0xe 02a2 0260 | ` | Execute Discrete,In_Type 02a3 7001 |p | Jump_Nonzero 0x2a5 02a4 08e0 | | Execute_Immediate Raise,0xe0 02a5 4880 |H | Short_Literal 0x80 02a6 0273 | s | Execute Discrete,Plus 02a7 e20e | | Load 0x1,0xe 02a8 025b | [ | Execute Discrete,Check_In_Type 02a9 00cb | | Action Pop_Block_With_Result 02aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ab TRAP_0298: 02ab 010e | | Execute Exception,Is_Constraint_Error 02ac 6802 |h | Jump_Zero 0x2af 02ad 0008 | | Action Idle 02ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02af 0100 | | Execute Exception,Raise 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 02c3 | | .CONST 0x02c3 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e5ff | | Load 0x2,-0x1 02b4 e21c | | Load 0x1,0x1c 02b5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02b6 00e0 | | Load_Encached Standard_Cache 02b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02b8 00d8 | | Load_Top At_Offset_0 02b9 e20e | | Load 0x1,0xe 02ba 0260 | ` | Execute Discrete,In_Type 02bb 7001 |p | Jump_Nonzero 0x2bd 02bc 08e0 | | Execute_Immediate Raise,0xe0 02bd 48e0 |H | Short_Literal 0xe0 02be 0273 | s | Execute Discrete,Plus 02bf e20e | | Load 0x1,0xe 02c0 025b | [ | Execute Discrete,Check_In_Type 02c1 00cb | | Action Pop_Block_With_Result 02c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c3 TRAP_02b0: 02c3 010e | | Execute Exception,Is_Constraint_Error 02c4 6802 |h | Jump_Zero 0x2c7 02c5 0008 | | Action Idle 02c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c7 0100 | | Execute Exception,Raise 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02f4 | | .CONST 0x02f4 ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0014 | | .CONST 0x0014 ; Number of locals 02cb INIT_02c8: 02cb 4800 |H | Short_Literal 0x0 02cc 480c |H | Short_Literal 0xc 02cd 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 02cf 03fe | | Declare_Type Discrete,Defined,Visible 02d0 4800 |H | Short_Literal 0x0 02d1 4805 |H | Short_Literal 0x5 02d2 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 02d4 03fe | | Declare_Type Discrete,Defined,Visible 02d5 4800 |H | Short_Literal 0x0 02d6 4806 |H | Short_Literal 0x6 02d7 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 02d9 03fe | | Declare_Type Discrete,Defined,Visible 02da 4800 |H | Short_Literal 0x0 02db 480d |H | Short_Literal 0xd 02dc 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 02de 03fe | | Declare_Type Discrete,Defined,Visible 02df 4800 |H | Short_Literal 0x0 02e0 4806 |H | Short_Literal 0x6 02e1 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 02e3 03fe | | Declare_Type Discrete,Defined,Visible 02e4 4800 |H | Short_Literal 0x0 02e5 480f |H | Short_Literal 0xf 02e6 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 02e8 03fe | | Declare_Type Discrete,Defined,Visible 02e9 4800 |H | Short_Literal 0x0 02ea 480a |H | Short_Literal 0xa 02eb 029f 038b | | Declare_Subprogram INIT_0388,For_Call 02ed 03fe | | Declare_Type Discrete,Defined,Visible 02ee 4800 |H | Short_Literal 0x0 02ef 4804 |H | Short_Literal 0x4 02f0 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call 02f2 03fe | | Declare_Type Discrete,Defined,Visible 02f3 00bf | | Action Accept_Activation 02f4 BODY_02c8: 02f4 00bc | | Action Signal_Activated 02f5 00bb | | Action Signal_Completion 02f6 0000 0000 | | .XXX[0x2] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 4603 |F | Jump_Case 0x4 02fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02fd 7802 |x | Jump 0x300 ; case 0x1 02fe 7805 |x | Jump 0x304 ; case 0x2 02ff 7809 |x | Jump 0x309 ; case 0x3 0300 e5ff | | Load 0x2,-0x1 0301 0091 03b5 | | Action Push_String_Extended_Indexed,0x3b5 ; "RANGE_ERROR" 0303 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0304 e5fe | | Load 0x2,-0x2 0305 e5ff | | Load 0x2,-0x1 0306 00e0 | | Load_Encached Standard_Cache 0307 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0308 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0309 e5ff | | Load 0x2,-0x1 030a 00e0 | | Load_Encached Standard_Cache 030b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 030c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 030d 0000 0000 | | .XXX[0x3] 030f 0000 | | 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 4603 |F | Jump_Case 0x4 0314 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0315 7802 |x | Jump 0x318 ; case 0x1 0316 7805 |x | Jump 0x31c ; case 0x2 0317 7809 |x | Jump 0x321 ; case 0x3 0318 e5ff | | Load 0x2,-0x1 0319 0091 03c2 | | Action Push_String_Extended_Indexed,0x3c2 ; "ZERO_DIVIDE_ERROR" 031b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 031c e5fe | | Load 0x2,-0x2 031d e5ff | | Load 0x2,-0x1 031e 00e0 | | Load_Encached Standard_Cache 031f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0320 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0321 e5ff | | Load 0x2,-0x1 0322 00e0 | | Load_Encached Standard_Cache 0323 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0324 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0325 0000 0000 | | .XXX[0x3] 0327 0000 | | 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 4603 |F | Jump_Case 0x4 032c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 032d 7802 |x | Jump 0x330 ; case 0x1 032e 7805 |x | Jump 0x334 ; case 0x2 032f 7809 |x | Jump 0x339 ; case 0x3 0330 e5ff | | Load 0x2,-0x1 0331 0091 03c8 | | Action Push_String_Extended_Indexed,0x3c8 ; "ELABORATION_ERROR" 0333 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0334 e5fe | | Load 0x2,-0x2 0335 e5ff | | Load 0x2,-0x1 0336 00e0 | | Load_Encached Standard_Cache 0337 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0338 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0339 e5ff | | Load 0x2,-0x1 033a 00e0 | | Load_Encached Standard_Cache 033b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 033c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 033d 0000 0000 | | .XXX[0x3] 033f 0000 | | 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 4603 |F | Jump_Case 0x4 0344 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0345 7802 |x | Jump 0x348 ; case 0x1 0346 7805 |x | Jump 0x34c ; case 0x2 0347 7809 |x | Jump 0x351 ; case 0x3 0348 e5ff | | Load 0x2,-0x1 0349 0091 03cf | | Action Push_String_Extended_Indexed,0x3cf ; "CONTROL_SPACE_ERROR" 034b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 034c e5fe | | Load 0x2,-0x2 034d e5ff | | Load 0x2,-0x1 034e 00e0 | | Load_Encached Standard_Cache 034f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0350 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0351 e5ff | | Load 0x2,-0x1 0352 00e0 | | Load_Encached Standard_Cache 0353 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0354 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0355 0000 0000 | | .XXX[0x3] 0357 0000 | | 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 4603 |F | Jump_Case 0x4 035c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 035d 7802 |x | Jump 0x360 ; case 0x1 035e 7805 |x | Jump 0x364 ; case 0x2 035f 7809 |x | Jump 0x369 ; case 0x3 0360 e5ff | | Load 0x2,-0x1 0361 0091 03dd | | Action Push_String_Extended_Indexed,0x3dd ; "ACTIVATION_ERROR" 0363 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0364 e5fe | | Load 0x2,-0x2 0365 e5ff | | Load 0x2,-0x1 0366 00e0 | | Load_Encached Standard_Cache 0367 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0368 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0369 e5ff | | Load 0x2,-0x1 036a 00e0 | | Load_Encached Standard_Cache 036b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 036c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 036d 0000 0000 | | .XXX[0x3] 036f 0000 | | 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 4603 |F | Jump_Case 0x4 0374 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0375 7802 |x | Jump 0x378 ; case 0x1 0376 7805 |x | Jump 0x37c ; case 0x2 0377 7809 |x | Jump 0x381 ; case 0x3 0378 e5ff | | Load 0x2,-0x1 0379 0091 03e4 | | Action Push_String_Extended_Indexed,0x3e4 ; "OPERAND_CLASS_ERROR" 037b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 037c e5fe | | Load 0x2,-0x2 037d e5ff | | Load 0x2,-0x1 037e 00e0 | | Load_Encached Standard_Cache 037f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0380 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0381 e5ff | | Load 0x2,-0x1 0382 00e0 | | Load_Encached Standard_Cache 0383 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0384 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0385 0000 0000 | | .XXX[0x3] 0387 0000 | | 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 4603 |F | Jump_Case 0x4 038c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 038d 7802 |x | Jump 0x390 ; case 0x1 038e 7805 |x | Jump 0x394 ; case 0x2 038f 7809 |x | Jump 0x399 ; case 0x3 0390 e5ff | | Load 0x2,-0x1 0391 0091 03f4 | | Action Push_String_Extended_Indexed,0x3f4 ; "TASK_ABORTED" 0393 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0394 e5fe | | Load 0x2,-0x2 0395 e5ff | | Load 0x2,-0x1 0396 00e0 | | Load_Encached Standard_Cache 0397 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0398 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0399 e5ff | | Load 0x2,-0x1 039a 00e0 | | Load_Encached Standard_Cache 039b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 039c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 039d 0000 0000 | | .XXX[0x3] 039f 0000 | | 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 4603 |F | Jump_Case 0x4 03a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03a5 7802 |x | Jump 0x3a8 ; case 0x1 03a6 7805 |x | Jump 0x3ac ; case 0x2 03a7 7809 |x | Jump 0x3b1 ; case 0x3 03a8 e5ff | | Load 0x2,-0x1 03a9 0091 03ff | | Action Push_String_Extended_Indexed,0x3ff ; "CONSTRAINT_ERROR" 03ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03ac e5fe | | Load 0x2,-0x2 03ad e5ff | | Load 0x2,-0x1 03ae 00e0 | | Load_Encached Standard_Cache 03af 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03b1 e5ff | | Load 0x2,-0x1 03b2 00e0 | | Load_Encached Standard_Cache 03b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03b5 ; -------------------------------------------------------------------------------------- 03b5 ; STRING TABLE 03b5 ; -------------------------------------------------------------------------------------- 03b5 00a6 | | .STRTAB 0x00a6->0x0408 ; "RANGE_ERROR" 03b6 00af | | .STRTAB 0x00af->0x040d ; "CASE_RANGE_ERROR" 03b7 00bd | | .STRTAB 0x00bd->0x0415 ; "EXPONENT_ERROR" 03b8 00c9 | | .STRTAB 0x00c9->0x041c ; "NULL_ACCESS_ERROR" 03b9 00d8 | | .STRTAB 0x00d8->0x0425 ; "INDEX_ERROR" 03ba 00e1 | | .STRTAB 0x00e1->0x042a ; "LENGTH_ERROR" 03bb 00eb | | .STRTAB 0x00eb->0x0430 ; "DISCRIMINANT_ERROR" 03bc 00fb | | .STRTAB 0x00fb->0x0439 ; "VARIANT_ERROR" 03bd 0106 | | .STRTAB 0x0106->0x0440 ; "FAMILY_ERROR" 03be 0110 | | .STRTAB 0x0110->0x0446 ; "EXPLICIT_CONSTRAINT_ERROR" 03bf 0127 | ' | .STRTAB 0x0127->0x0452 ; "SPARE_0" 03c0 012c | , | .STRTAB 0x012c->0x0456 ; "SPARE_1" 03c1 0131 | 1 | .STRTAB 0x0131->0x0459 ; "SPARE_2" 03c2 0136 | 6 | .STRTAB 0x0136->0x045d ; "ZERO_DIVIDE_ERROR" 03c3 0145 | E | .STRTAB 0x0145->0x0465 ; "OVERFLOW_ERROR" 03c4 0151 | Q | .STRTAB 0x0151->0x046c ; "EXPLICIT_NUMERIC_ERROR" 03c5 0165 | e | .STRTAB 0x0165->0x0477 ; "SPARE_0" 03c6 016a | j | .STRTAB 0x016a->0x047b ; "SPARE_1" 03c7 016f | o | .STRTAB 0x016f->0x047e ; "SPARE_2" 03c8 0174 | t | .STRTAB 0x0174->0x0482 ; "ELABORATION_ERROR" 03c9 0183 | | .STRTAB 0x0183->0x048a ; "FUNCTION_EXIT_ERROR" 03ca 0194 | | .STRTAB 0x0194->0x0494 ; "SELECT_ERROR" 03cb 019e | | .STRTAB 0x019e->0x049a ; "EXPLICIT_PROGRAM_ERROR" 03cc 01b2 | | .STRTAB 0x01b2->0x04a5 ; "SPARE_0" 03cd 01b7 | | .STRTAB 0x01b7->0x04a8 ; "SPARE_1" 03ce 01bc | | .STRTAB 0x01bc->0x04ac ; "SPARE_2" 03cf 01c1 | | .STRTAB 0x01c1->0x04af ; "CONTROL_SPACE_ERROR" 03d0 01d2 | | .STRTAB 0x01d2->0x04b9 ; "TYPE_SPACE_ERROR" 03d1 01e0 | | .STRTAB 0x01e0->0x04c1 ; "DATA_SPACE_ERROR" 03d2 01ee | | .STRTAB 0x01ee->0x04c9 ; "IMPORT_SPACE_ERROR" 03d3 01fe | | .STRTAB 0x01fe->0x04d2 ; "QUEUE_SPACE_ERROR" 03d4 020d | | .STRTAB 0x020d->0x04da ; "PROGRAM_SPACE_ERROR" 03d5 021e | | .STRTAB 0x021e->0x04e4 ; "ALLOCATION_ERROR" 03d6 022c | , | .STRTAB 0x022c->0x04ec ; "RESOURCE_ERROR" 03d7 0238 | 8 | .STRTAB 0x0238->0x04f3 ; "OVERSIZE_OBJECT" 03d8 0245 | E | .STRTAB 0x0245->0x04fa ; "NAME_ERROR" 03d9 024d | M | .STRTAB 0x024d->0x04ff ; "EXPLICIT_STORAGE_ERROR" 03da 0261 | a | .STRTAB 0x0261->0x050a ; "SPARE_0" 03db 0266 | f | .STRTAB 0x0266->0x050e ; "SPARE_1" 03dc 026b | k | .STRTAB 0x026b->0x0511 ; "SPARE_2" 03dd 0270 | p | .STRTAB 0x0270->0x0515 ; "ACTIVATION_ERROR" 03de 027e | ~ | .STRTAB 0x027e->0x051d ; "COMPLETED_TASK_ERROR" 03df 0290 | | .STRTAB 0x0290->0x0527 ; "ABNORMAL_TASK_ERROR" 03e0 02a1 | | .STRTAB 0x02a1->0x0530 ; "EXPLICIT_TASKING_ERROR" 03e1 02b5 | | .STRTAB 0x02b5->0x053b ; "SPARE_0" 03e2 02ba | | .STRTAB 0x02ba->0x053f ; "SPARE_1" 03e3 02bf | | .STRTAB 0x02bf->0x0542 ; "SPARE_2" 03e4 02c4 | | .STRTAB 0x02c4->0x0546 ; "OPERAND_CLASS_ERROR" 03e5 02d5 | | .STRTAB 0x02d5->0x054f ; "TYPE_ERROR" 03e6 02dd | | .STRTAB 0x02dd->0x0554 ; "VISIBILITY_ERROR" 03e7 02eb | | .STRTAB 0x02eb->0x055c ; "CAPABILITY_ERROR" 03e8 02f9 | | .STRTAB 0x02f9->0x0564 ; "MACHINE_RESTRICTION" 03e9 030a | | .STRTAB 0x030a->0x056e ; "ILLEGAL_INSTRUCTION" 03ea 031b | | .STRTAB 0x031b->0x0577 ; "ILLEGAL_REFERENCE" 03eb 032a | * | .STRTAB 0x032a->0x0580 ; "ILLEGAL_FRAME_EXIT" 03ec 033a | : | .STRTAB 0x033a->0x0589 ; "RECORD_FIELD_ERROR" 03ed 034a | J | .STRTAB 0x034a->0x0592 ; "UTILITY_ERROR" 03ee 0355 | U | .STRTAB 0x0355->0x0598 ; "UNSUPPORTED_FEATURE" 03ef 0366 | f | .STRTAB 0x0366->0x05a2 ; "ILLEGAL_HEAP_ACCESS" 03f0 0377 | w | .STRTAB 0x0377->0x05ab ; "SELECT_USE_ERROR" 03f1 0385 | | .STRTAB 0x0385->0x05b3 ; "SPARE_0" 03f2 038a | | .STRTAB 0x038a->0x05b7 ; "SPARE_1" 03f3 038f | | .STRTAB 0x038f->0x05ba ; "SPARE_2" 03f4 0394 | | .STRTAB 0x0394->0x05be ; "TASK_ABORTED" 03f5 039e | | .STRTAB 0x039e->0x05c4 ; "FRAME_ESTABLISH_ERROR" 03f6 03b1 | | .STRTAB 0x03b1->0x05ce ; "UNIMPLEMENTED_MICROCODE" 03f7 03c6 | | .STRTAB 0x03c6->0x05da ; "NONEXISTENT_SPACE_ERROR" 03f8 03db | | .STRTAB 0x03db->0x05e5 ; "NONEXISTENT_PAGE_ERROR" 03f9 03ef | | .STRTAB 0x03ef->0x05f0 ; "WRITE_TO_READ_ONLY_PAGE" 03fa 0404 | | .STRTAB 0x0404->0x05fc ; "HEAP_POINTER_COPY_ERROR" 03fb 0419 | | .STRTAB 0x0419->0x0607 ; "ASSERTION_ERROR" 03fc 0426 | & | .STRTAB 0x0426->0x060f ; "MICROCODE_ASSIST_ERROR" 03fd 043a | : | .STRTAB 0x043a->0x061a ; "SPARE_0" 03fe 043f | ? | .STRTAB 0x043f->0x061d ; "SPARE_1" 03ff 0444 | D | .STRTAB 0x0444->0x0621 ; "CONSTRAINT_ERROR" 0400 0452 | R | .STRTAB 0x0452->0x0629 ; "NUMERIC_ERROR" 0401 045d | ] | .STRTAB 0x045d->0x062f ; "PROGRAM_ERROR" 0402 0468 | h | .STRTAB 0x0468->0x0636 ; "STORAGE_ERROR" 0403 0473 | s | .STRTAB 0x0473->0x063c ; "TASKING_ERROR" 0404 047e | ~ | .STRTAB 0x047e->0x0643 ; "User defined exception" 0405 0492 | | .STRTAB 0x0492->0x064e ; "No exception" 0406 049c | | .STRTAB 0x049c->0x0654 ; "Illegal predefined value" 0407 04b2 | | .STREND 0x04b2->0x0660 0408 5241 4e47 |RANG| .STRTAB_STRINGS 0660 ; -------------------------------------------------------------------------------------- 0660 ; Debug Table 0660 ; -------------------------------------------------------------------------------------- 0660 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb4b,0x0000,0x0001,0x0000 0666 004e e8b5 | N | .XXX[0x2] 0668 0000 0000 | | .BLANK 0000[0x7] 066f 009c | | .XXX[0x1] 0670 0000 0000 | | .BLANK 0000[0x8] 0678 0001 0404 | | .XXX[0x5] 067a 0000 0280 | | 067c 8000 | | 067d 0000 0000 | | .BLANK 0000[0x9] 0686 004e e8b5 | N | .XXX[0x2] 0688 0000 0000 | | .BLANK 0000[0x7] 068f 00a8 | | .XXX[0x1] 0690 0000 0000 | | .BLANK 0000[0x8] 0698 0001 0404 | | .XXX[0x5] 069a 0000 0700 | | 069c 8000 | | 069d 0000 0000 | | .BLANK 0000[0x9] 06a6 004e e8b5 | N | .XXX[0x2] 06a8 0000 0000 | | .BLANK 0000[0x7] 06af 00b4 | | .XXX[0x1] 06b0 0000 0000 | | .BLANK 0000[0x8] 06b8 0010 6cfe | l | .XXX[0x8] 06ba 0000 0016 | | 06bc 00b9 d014 | | 06be 0000 32b2 | 2 | 06c0 0000 0000 | | .BLANK 0000[0x140]