|
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_06e8fd
└─⟦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 004c 95a5 | L | .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 004c 95a5 | L | .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 004c 95a5 | L | .XXX[0x2]
06a8 0000 0000 | | .BLANK 0000[0x7]
06af 00b4 | | .XXX[0x1]
06b0 0000 0000 | | .BLANK 0000[0x8]
06b8 000c 90fd | | .XXX[0x8]
06ba 0000 0016 | |
06bc 0085 e814 | |
06be 0000 31b2 | 1 |
06c0 0000 0000 | | .BLANK 0000[0x140]