|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0030 | 0 | .CONST 0x0030 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0011 e210 | | Load 0x1,0x10 0012 0266 | f | Execute Discrete,Bounds 0013 00e1 | | Load_Encached Boolean_Cache 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 4801 |H | Short_Literal 0x1 0016 035e | ^ | Declare_Type Array,Defined,Visible 0017 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0019 e001 | | Load 0x0,0x1 001a 0129 | ) | Execute Any,Make_Visible 001b e002 | | Load 0x0,0x2 001c 0129 | ) | Execute Any,Make_Visible 001d 00bf | | Action Accept_Activation 001e 00ea | | Load_Encached Null_String_Cache 001f 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 0021 e003 | | Load 0x0,0x3 0022 e004 | | Load 0x0,0x4 0023 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0024 e005 | | Load 0x0,0x5 0025 0387 | | Declare_Variable Package 0026 00d8 | | Load_Top At_Offset_0 0027 020f | | Execute Module,Activate 0028 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0029 00c7 | | Action Elaborate_Subprogram 002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002b 00c7 | | Action Elaborate_Subprogram 002c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002d 00c7 | | Action Elaborate_Subprogram 002e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 002f 00c7 | | Action Elaborate_Subprogram 0030 BODY_0008: 0030 00bc | | Action Signal_Activated 0031 00bb | | Action Signal_Completion 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0051 | Q | .CONST 0x0051 ; Address of begin 0039 0059 | Y | .CONST 0x0059 ; Address of exception handler 003a 0006 | | .CONST 0x0006 ; Number of locals 003b INIT_0038: 003b e21b | | Load 0x1,0x1b 003c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 003d 0322 | " | Declare_Variable Record 003e 00d8 | | Load_Top At_Offset_0 003f 1c00 | | Execute_Immediate Run_Utility,0x0 0040 e21b | | Load 0x1,0x1b 0041 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0042 0322 | " | Declare_Variable Record 0043 00d8 | | Load_Top At_Offset_0 0044 1c00 | | Execute_Immediate Run_Utility,0x0 0045 e5fe | | Load 0x2,-0x2 0046 e20f | | Load 0x1,0xf 0047 0122 | " | Execute Any,Make_Root_Type 0048 011c | | Execute Any,Convert_Unchecked 0049 1c01 | | Execute_Immediate Run_Utility,0x1 004a e5ff | | Load 0x2,-0x1 004b e210 | | Load 0x1,0x10 004c 0122 | " | Execute Any,Make_Root_Type 004d 011c | | Execute Any,Convert_Unchecked 004e 1c01 | | Execute_Immediate Run_Utility,0x1 004f 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0051 BODY_0038: 0051 4801 |H | Short_Literal 0x1 0052 e211 | | Load 0x1,0x11 0053 e21b | | Load 0x1,0x1b 0054 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0055 e402 | | Load 0x2,0x2 0056 017d | } | Execute Record,Structure_Write 0057 8406 | | Call 0x2,0x6 0058 0831 | 1 | Execute_Immediate Raise,0x31 0059 TRAP_0038: 0059 e21b | | Load 0x1,0x1b 005a 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 005b 010f | | Execute Exception,Equal 005c 6802 |h | Jump_Zero 0x5f 005d e217 | | Load 0x1,0x17 005e 0257 | W | Execute Discrete,Raise 005f 0100 | | Execute Exception,Raise 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 007f | | .CONST 0x007f ; Address of begin 0061 009f | | .CONST 0x009f ; Address of exception handler 0062 0009 | | .CONST 0x0009 ; Number of locals 0063 INIT_0060: 0063 e21b | | Load 0x1,0x1b 0064 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0065 0322 | " | Declare_Variable Record 0066 00d8 | | Load_Top At_Offset_0 0067 1c00 | | Execute_Immediate Run_Utility,0x0 0068 e21b | | Load 0x1,0x1b 0069 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006a 0322 | " | Declare_Variable Record 006b 00d8 | | Load_Top At_Offset_0 006c 1c00 | | Execute_Immediate Run_Utility,0x0 006d e5fe | | Load 0x2,-0x2 006e e20f | | Load 0x1,0xf 006f 0122 | " | Execute Any,Make_Root_Type 0070 011c | | Execute Any,Convert_Unchecked 0071 1c01 | | Execute_Immediate Run_Utility,0x1 0072 e5ff | | Load 0x2,-0x1 0073 e210 | | Load 0x1,0x10 0074 0122 | " | Execute Any,Make_Root_Type 0075 011c | | Execute Any,Convert_Unchecked 0076 1c01 | | Execute_Immediate Run_Utility,0x1 0077 00e1 | | Load_Encached Boolean_Cache 0078 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0079 00e1 | | Load_Encached Boolean_Cache 007a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 007b 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 007d 029f 019b | | Declare_Subprogram INIT_0198,For_Call 007f BODY_0060: 007f 4801 |H | Short_Literal 0x1 0080 e211 | | Load 0x1,0x11 0081 e21b | | Load 0x1,0x1b 0082 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0083 e402 | | Load 0x2,0x2 0084 017d | } | Execute Record,Structure_Write 0085 e5fd | | Load 0x2,-0x3 0086 6809 |h | Jump_Zero 0x90 0087 00cf | | Action Mark_Auxiliary 0088 e20f | | Load 0x1,0xf 0089 0265 | e | Execute Discrete,Reverse_Bounds 008a 0263 | c | Execute Discrete,Above_Bound 008b 7003 |p | Jump_Nonzero 0x8f 008c 8408 | | Call 0x2,0x8 008d 00c8 | | Action Pop_Auxiliary_Range 008e 3ffd |? | Loop_Increasing 0x8c 008f 00ce | | Action Pop_Auxiliary 0090 00da | | Load_Top At_Offset_2 0091 6808 |h | Jump_Zero 0x9a 0092 00db | | Load_Top At_Offset_3 0093 6807 |h | Jump_Zero 0x9b 0094 e402 | | Load 0x2,0x2 0095 e211 | | Load 0x1,0x11 0096 e21b | | Load 0x1,0x1b 0097 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0098 00d1 | | Pop_Control Pop_Count_1 0099 7801 |x | Jump 0x9b 009a 8409 | | Call 0x2,0x9 009b e402 | | Load 0x2,0x2 009c e21b | | Load 0x1,0x1b 009d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 009e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 009f TRAP_0060: 009f e21b | | Load 0x1,0x1b 00a0 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 00a1 010f | | Execute Exception,Equal 00a2 6802 |h | Jump_Zero 0xa5 00a3 e217 | | Load 0x1,0x17 00a4 0257 | W | Execute Discrete,Raise 00a5 0100 | | Execute Exception,Raise 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00c3 | | .CONST 0x00c3 ; Address of begin 00a9 00ce | | .CONST 0x00ce ; Address of exception handler 00aa 0007 | | .CONST 0x0007 ; Number of locals 00ab INIT_00a8: 00ab e21b | | Load 0x1,0x1b 00ac 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00ad 0322 | " | Declare_Variable Record 00ae 00d8 | | Load_Top At_Offset_0 00af 1c00 | | Execute_Immediate Run_Utility,0x0 00b0 e21b | | Load 0x1,0x1b 00b1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00b2 0322 | " | Declare_Variable Record 00b3 00d8 | | Load_Top At_Offset_0 00b4 1c00 | | Execute_Immediate Run_Utility,0x0 00b5 e5fe | | Load 0x2,-0x2 00b6 e20f | | Load 0x1,0xf 00b7 0122 | " | Execute Any,Make_Root_Type 00b8 011c | | Execute Any,Convert_Unchecked 00b9 1c01 | | Execute_Immediate Run_Utility,0x1 00ba e5ff | | Load 0x2,-0x1 00bb e210 | | Load 0x1,0x10 00bc 0122 | " | Execute Any,Make_Root_Type 00bd 011c | | Execute Any,Convert_Unchecked 00be 1c01 | | Execute_Immediate Run_Utility,0x1 00bf 00e1 | | Load_Encached Boolean_Cache 00c0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c1 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 00c3 BODY_00a8: 00c3 4801 |H | Short_Literal 0x1 00c4 e211 | | Load 0x1,0x11 00c5 e21b | | Load 0x1,0x1b 00c6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00c7 e402 | | Load 0x2,0x2 00c8 017d | } | Execute Record,Structure_Write 00c9 8407 | | Call 0x2,0x7 00ca e402 | | Load 0x2,0x2 00cb e21b | | Load 0x1,0x1b 00cc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ce TRAP_00a8: 00ce e21b | | Load 0x1,0x1b 00cf 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 00d0 010f | | Execute Exception,Equal 00d1 6802 |h | Jump_Zero 0xd4 00d2 e217 | | Load 0x1,0x17 00d3 0257 | W | Execute Discrete,Raise 00d4 0100 | | Execute Exception,Raise 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00fc | | .CONST 0x00fc ; Address of begin 00d9 0109 | | .CONST 0x0109 ; Address of exception handler 00da 0006 | | .CONST 0x0006 ; Number of locals 00db INIT_00d8: 00db e215 | | Load 0x1,0x15 00dc 0337 | 7 | Declare_Variable Array 00dd 00d8 | | Load_Top At_Offset_0 00de 0335 | 5 | Declare_Variable Array,Duplicate 00df 00cd | | Action Spare6_Action 00e0 00d9 | | Load_Top At_Offset_1 00e1 01d9 | | Execute Vector,Reverse_Bounds 00e2 0263 | c | Execute Discrete,Above_Bound 00e3 7005 |p | Jump_Nonzero 0xe9 00e4 4800 |H | Short_Literal 0x0 00e5 00d9 | | Load_Top At_Offset_1 00e6 e403 | | Load 0x2,0x3 00e7 01d6 | | Execute Vector,Field_Write 00e8 3ffb |? | Loop_Increasing 0xe4 00e9 00d9 | | Load_Top At_Offset_1 00ea 01d4 | | Execute Vector,Structure_Write 00eb e21b | | Load 0x1,0x1b 00ec 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00ed 0322 | " | Declare_Variable Record 00ee 00d8 | | Load_Top At_Offset_0 00ef 1c00 | | Execute_Immediate Run_Utility,0x0 00f0 e21b | | Load 0x1,0x1b 00f1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00f2 0322 | " | Declare_Variable Record 00f3 00d8 | | Load_Top At_Offset_0 00f4 1c00 | | Execute_Immediate Run_Utility,0x0 00f5 e5ff | | Load 0x2,-0x1 00f6 e20f | | Load 0x1,0xf 00f7 0122 | " | Execute Any,Make_Root_Type 00f8 011c | | Execute Any,Convert_Unchecked 00f9 1c01 | | Execute_Immediate Run_Utility,0x1 00fa 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 00fc BODY_00d8: 00fc 4801 |H | Short_Literal 0x1 00fd e211 | | Load 0x1,0x11 00fe e21b | | Load 0x1,0x1b 00ff 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0100 e403 | | Load 0x2,0x3 0101 017d | } | Execute Record,Structure_Write 0102 8406 | | Call 0x2,0x6 0103 00db | | Load_Top At_Offset_3 0104 e21b | | Load 0x1,0x1b 0105 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0106 00d1 | | Pop_Control Pop_Count_1 0107 e402 | | Load 0x2,0x2 0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0109 TRAP_00d8: 0109 e21b | | Load 0x1,0x1b 010a 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 010b 010f | | Execute Exception,Equal 010c 6802 |h | Jump_Zero 0x10f 010d e217 | | Load 0x1,0x17 010e 0257 | W | Execute Discrete,Raise 010f 0100 | | Execute Exception,Raise 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 0f7c | | | Execute_Immediate Equal,0x7c 0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0145 | E | .CONST 0x0145 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b e402 | | Load 0x2,0x2 011c e404 | | Load 0x2,0x4 011d e21b | | Load 0x1,0x1b 011e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 011f e403 | | Load 0x2,0x3 0120 017d | } | Execute Record,Structure_Write 0121 e403 | | Load 0x2,0x3 0122 e21b | | Load 0x1,0x1b 0123 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0124 00d1 | | Pop_Control Pop_Count_1 0125 00cf | | Action Mark_Auxiliary 0126 7812 |x | Jump 0x139 0127 e403 | | Load 0x2,0x3 0128 e21b | | Load 0x1,0x1b 0129 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012a e405 | | Load 0x2,0x5 012b 01df | | Execute Vector,Equal 012c 6807 |h | Jump_Zero 0x134 012d e402 | | Load 0x2,0x2 012e e21b | | Load 0x1,0x1b 012f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0130 00d1 | | Pop_Control Pop_Count_1 0131 4801 |H | Short_Literal 0x1 0132 00cb | | Action Pop_Block_With_Result 0133 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0134 e403 | | Load 0x2,0x3 0135 e21b | | Load 0x1,0x1b 0136 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0137 00d1 | | Pop_Control Pop_Count_1 0138 00c9 | | Action Pop_Auxiliary_Loop 0139 e403 | | Load 0x2,0x3 013a e21b | | Load 0x1,0x1b 013b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 013c 6fea |o | Jump_Zero 0x127 013d 00ce | | Action Pop_Auxiliary 013e e402 | | Load 0x2,0x2 013f e21b | | Load 0x1,0x1b 0140 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0141 00d1 | | Pop_Control Pop_Count_1 0142 4800 |H | Short_Literal 0x0 0143 00cb | | Action Pop_Block_With_Result 0144 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0145 TRAP_0118: 0145 e21b | | Load 0x1,0x1b 0146 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0147 010f | | Execute Exception,Equal 0148 6807 |h | Jump_Zero 0x150 0149 e402 | | Load 0x2,0x2 014a e21b | | Load 0x1,0x1b 014b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 014c 00d1 | | Pop_Control Pop_Count_1 014d 4800 |H | Short_Literal 0x0 014e 00cb | | Action Pop_Block_With_Result 014f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0150 0100 | | Execute Exception,Raise 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0191 | | .CONST 0x0191 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e402 | | Load 0x2,0x2 015c e40c | | Load 0x2,0xc 015d e20f | | Load 0x1,0xf 015e 0122 | " | Execute Any,Make_Root_Type 015f 011c | | Execute Any,Convert_Unchecked 0160 1c01 | | Execute_Immediate Run_Utility,0x1 0161 e21b | | Load 0x1,0x1b 0162 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0163 e403 | | Load 0x2,0x3 0164 017d | } | Execute Record,Structure_Write 0165 e403 | | Load 0x2,0x3 0166 e21b | | Load 0x1,0x1b 0167 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0168 00d1 | | Pop_Control Pop_Count_1 0169 00cf | | Action Mark_Auxiliary 016a 7819 |x | Jump 0x184 016b e403 | | Load 0x2,0x3 016c e21b | | Load 0x1,0x1b 016d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 016e e405 | | Load 0x2,0x5 016f 01df | | Execute Vector,Equal 0170 680e |h | Jump_Zero 0x17f 0171 e40c | | Load 0x2,0xc 0172 e5fe | | Load 0x2,-0x2 0173 027f | | Execute Discrete,Equal 0174 6803 |h | Jump_Zero 0x178 0175 4801 |H | Short_Literal 0x1 0176 a407 | | Store_Unchecked 0x2,0x7 0177 7810 |x | Jump 0x188 0178 e403 | | Load 0x2,0x3 0179 e219 | | Load 0x1,0x19 017a e21b | | Load 0x1,0x1b 017b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 017c 00d1 | | Pop_Control Pop_Count_1 017d 4801 |H | Short_Literal 0x1 017e a406 | | Store_Unchecked 0x2,0x6 017f e403 | | Load 0x2,0x3 0180 e21b | | Load 0x1,0x1b 0181 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0182 00d1 | | Pop_Control Pop_Count_1 0183 00c9 | | Action Pop_Auxiliary_Loop 0184 e403 | | Load 0x2,0x3 0185 e21b | | Load 0x1,0x1b 0186 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0187 6fe3 |o | Jump_Zero 0x16b 0188 00ce | | Action Pop_Auxiliary 0189 e406 | | Load 0x2,0x6 018a 6805 |h | Jump_Zero 0x190 018b e402 | | Load 0x2,0x2 018c e403 | | Load 0x2,0x3 018d e21b | | Load 0x1,0x1b 018e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 018f 00d1 | | Pop_Control Pop_Count_1 0190 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0191 TRAP_0158: 0191 e21b | | Load 0x1,0x1b 0192 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0193 010f | | Execute Exception,Equal 0194 6801 |h | Jump_Zero 0x196 0195 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0196 0100 | | Execute Exception,Raise 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 01cd | | .CONST 0x01cd ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b e402 | | Load 0x2,0x2 019c e404 | | Load 0x2,0x4 019d e21b | | Load 0x1,0x1b 019e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 019f e403 | | Load 0x2,0x3 01a0 017d | } | Execute Record,Structure_Write 01a1 e403 | | Load 0x2,0x3 01a2 e21b | | Load 0x1,0x1b 01a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a4 00d1 | | Pop_Control Pop_Count_1 01a5 00cf | | Action Mark_Auxiliary 01a6 780e |x | Jump 0x1b5 01a7 e403 | | Load 0x2,0x3 01a8 e21b | | Load 0x1,0x1b 01a9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01aa e405 | | Load 0x2,0x5 01ab 01df | | Execute Vector,Equal 01ac 6803 |h | Jump_Zero 0x1b0 01ad 4801 |H | Short_Literal 0x1 01ae a407 | | Store_Unchecked 0x2,0x7 01af 7809 |x | Jump 0x1b9 01b0 e403 | | Load 0x2,0x3 01b1 e21b | | Load 0x1,0x1b 01b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b3 00d1 | | Pop_Control Pop_Count_1 01b4 00c9 | | Action Pop_Auxiliary_Loop 01b5 e403 | | Load 0x2,0x3 01b6 e21b | | Load 0x1,0x1b 01b7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01b8 6fee |o | Jump_Zero 0x1a7 01b9 00ce | | Action Pop_Auxiliary 01ba e407 | | Load 0x2,0x7 01bb 7010 |p | Jump_Nonzero 0x1cc 01bc e403 | | Load 0x2,0x3 01bd 487c |H| | Short_Literal 0x7c 01be e405 | | Load 0x2,0x5 01bf e21b | | Load 0x1,0x1b 01c0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01c1 00d1 | | Pop_Control Pop_Count_1 01c2 e402 | | Load 0x2,0x2 01c3 e403 | | Load 0x2,0x3 01c4 e21b | | Load 0x1,0x1b 01c5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01c6 00d1 | | Pop_Control Pop_Count_1 01c7 e402 | | Load 0x2,0x2 01c8 e211 | | Load 0x1,0x11 01c9 e21b | | Load 0x1,0x1b 01ca 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01cb 00d1 | | Pop_Control Pop_Count_1 01cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01cd TRAP_0198: 01cd e21b | | Load 0x1,0x1b 01ce 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 01cf 010f | | Execute Exception,Equal 01d0 680e |h | Jump_Zero 0x1df 01d1 e402 | | Load 0x2,0x2 01d2 487c |H| | Short_Literal 0x7c 01d3 e404 | | Load 0x2,0x4 01d4 01cb | | Execute Vector,Append 01d5 e405 | | Load 0x2,0x5 01d6 01cc | | Execute Vector,Catenate 01d7 e21b | | Load 0x1,0x1b 01d8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01d9 00d1 | | Pop_Control Pop_Count_1 01da e402 | | Load 0x2,0x2 01db e211 | | Load 0x1,0x11 01dc e21b | | Load 0x1,0x1b 01dd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01df 0100 | | Execute Exception,Raise 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0213 | | .CONST 0x0213 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e402 | | Load 0x2,0x2 01e4 e404 | | Load 0x2,0x4 01e5 e21b | | Load 0x1,0x1b 01e6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01e7 e403 | | Load 0x2,0x3 01e8 017d | } | Execute Record,Structure_Write 01e9 e403 | | Load 0x2,0x3 01ea e21b | | Load 0x1,0x1b 01eb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ec 00d1 | | Pop_Control Pop_Count_1 01ed 00cf | | Action Mark_Auxiliary 01ee 7812 |x | Jump 0x201 01ef e403 | | Load 0x2,0x3 01f0 e21b | | Load 0x1,0x1b 01f1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01f2 e405 | | Load 0x2,0x5 01f3 01df | | Execute Vector,Equal 01f4 6807 |h | Jump_Zero 0x1fc 01f5 e403 | | Load 0x2,0x3 01f6 e219 | | Load 0x1,0x19 01f7 e21b | | Load 0x1,0x1b 01f8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01f9 00d1 | | Pop_Control Pop_Count_1 01fa 4801 |H | Short_Literal 0x1 01fb a406 | | Store_Unchecked 0x2,0x6 01fc e403 | | Load 0x2,0x3 01fd e21b | | Load 0x1,0x1b 01fe 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ff 00d1 | | Pop_Control Pop_Count_1 0200 00c9 | | Action Pop_Auxiliary_Loop 0201 e403 | | Load 0x2,0x3 0202 e21b | | Load 0x1,0x1b 0203 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0204 6fea |o | Jump_Zero 0x1ef 0205 00ce | | Action Pop_Auxiliary 0206 e406 | | Load 0x2,0x6 0207 680a |h | Jump_Zero 0x212 0208 e402 | | Load 0x2,0x2 0209 e403 | | Load 0x2,0x3 020a e21b | | Load 0x1,0x1b 020b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 020c 00d1 | | Pop_Control Pop_Count_1 020d e402 | | Load 0x2,0x2 020e e211 | | Load 0x1,0x11 020f e21b | | Load 0x1,0x1b 0210 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0211 00d1 | | Pop_Control Pop_Count_1 0212 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0213 TRAP_01e0: 0213 e21b | | Load 0x1,0x1b 0214 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0215 010f | | Execute Exception,Equal 0216 6801 |h | Jump_Zero 0x218 0217 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0218 0100 | | Execute Exception,Raise 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0225 | % | .CONST 0x0225 ; Address of begin 0221 0240 | @ | .CONST 0x0240 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 0225 BODY_0220: 0225 e403 | | Load 0x2,0x3 0226 e405 | | Load 0x2,0x5 0227 e21b | | Load 0x1,0x1b 0228 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0229 e404 | | Load 0x2,0x4 022a 017d | } | Execute Record,Structure_Write 022b e404 | | Load 0x2,0x4 022c e21b | | Load 0x1,0x1b 022d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 022e 00d1 | | Pop_Control Pop_Count_1 022f e404 | | Load 0x2,0x4 0230 e21b | | Load 0x1,0x1b 0231 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0232 00d1 | | Pop_Control Pop_Count_1 0233 00cf | | Action Mark_Auxiliary 0234 7806 |x | Jump 0x23b 0235 8602 | | Call 0x3,0x2 0236 e404 | | Load 0x2,0x4 0237 e21b | | Load 0x1,0x1b 0238 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0239 00d1 | | Pop_Control Pop_Count_1 023a 00c9 | | Action Pop_Auxiliary_Loop 023b e404 | | Load 0x2,0x4 023c e21b | | Load 0x1,0x1b 023d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023e 6ff6 |o | Jump_Zero 0x235 023f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0240 TRAP_0220: 0240 e21b | | Load 0x1,0x1b 0241 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0242 010f | | Execute Exception,Equal 0243 6801 |h | Jump_Zero 0x245 0244 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0245 0100 | | Execute Exception,Raise 0246 0000 0000 | | .XXX[0x2] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024e | N | .CONST 0x024e ; Address of begin 0249 025a | Z | .CONST 0x025a ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b e404 | | Load 0x2,0x4 024c e21b | | Load 0x1,0x1b 024d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 024e BODY_0248: 024e 00d8 | | Load_Top At_Offset_0 024f e219 | | Load 0x1,0x19 0250 01de | | Execute Vector,Not_Equal 0251 6807 |h | Jump_Zero 0x259 0252 4801 |H | Short_Literal 0x1 0253 00d9 | | Load_Top At_Offset_1 0254 e210 | | Load 0x1,0x10 0255 0122 | " | Execute Any,Make_Root_Type 0256 1c02 | | Execute_Immediate Run_Utility,0x2 0257 e402 | | Load 0x2,0x2 0258 01d6 | | Execute Vector,Field_Write 0259 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025a TRAP_0248: 025a 010e | | Execute Exception,Is_Constraint_Error 025b 6802 |h | Jump_Zero 0x25e 025c e218 | | Load 0x1,0x18 025d 0257 | W | Execute Discrete,Raise 025e 0100 | | Execute Exception,Raise 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7145,0x0000,0x0001,0x000d 0266 000b 029a | | .DBG4T 0x000b,0x029a,0xc000,0x0000 026a 001e 02a3 | | .DBG4T 0x001e,0x02a3,0xc000,0x8000 026e 003b 02b3 | ; | .DBG4T 0x003b,0x02b3,0x1002,0x0000 0272 0063 02bc | c | .DBG4T 0x0063,0x02bc,0x1001,0x0000 0276 00ab 02ce | | .DBG4T 0x00ab,0x02ce,0x1001,0x0000 027a 00db 02d9 | | .DBG4T 0x00db,0x02d9,0x1002,0x0000 027e 0113 02e4 | | .DBG4T 0x0113,0x02e4,0x1002,0x0000 0282 011b 02e7 | | .DBG4T 0x011b,0x02e7,0x1004,0x4000 0286 015b 02ff | [ | .DBG4T 0x015b,0x02ff,0x1004,0x4000 028a 019b 031b | | .DBG4T 0x019b,0x031b,0x1004,0x4000 028e 01e3 0337 | 7| .DBG4T 0x01e3,0x0337,0x1004,0x4000 0292 0223 034f | # O| .DBG4T 0x0223,0x034f,0x1004,0x4000 0296 024b 035f | K _| .DBG4T 0x024b,0x035f,0x1004,0x0000 029a ; -------------------------------------------------------------------------------------- 029a ; Debug chain 029a ; -------------------------------------------------------------------------------------- 029a 0007 0000 | | .DBGLEN 0x0007,0x0000 029c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0017,0x0019,0x001b 02a3 ; -------------------------------------------------------------------------------------- 02a3 ; Debug chain 02a3 ; -------------------------------------------------------------------------------------- 02a3 0007 0000 | | .DBGLEN 0x0007,0x0000 02a5 001e 001f | | .DBGLNO 0x001e,0x001f,0x0021,0x0028,0x002a,0x002c,0x002e 02ac 0001 0003 | | .XXX[0x7] 02ae 0004 0005 | | 02b0 0006 0007 | | 02b2 0008 | | 02b3 ; -------------------------------------------------------------------------------------- 02b3 ; Debug chain 02b3 ; -------------------------------------------------------------------------------------- 02b3 0004 0003 | | .DBGLEN 0x0004,0x0003 02b5 003b 0040 | ; @| .DBGLNO 0x003b,0x0040,0x0045,0x004a,0x0051,0x0057,0x005d 02bc ; -------------------------------------------------------------------------------------- 02bc ; Debug chain 02bc ; -------------------------------------------------------------------------------------- 02bc 0006 000a | | .DBGLEN 0x0006,0x000a 02be 0063 0068 | c h| .DBGLNO 0x0063,0x0068,0x006d,0x0072,0x0077,0x0079,0x007f,0x0085,0x0088,0x008c,0x0090,0x0092,0x0094,0x009a,0x009b,0x00a3 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug chain 02ce ; -------------------------------------------------------------------------------------- 02ce 0005 0004 | | .DBGLEN 0x0005,0x0004 02d0 00ab 00b0 | | .DBGLNO 0x00ab,0x00b0,0x00b5,0x00ba,0x00bf,0x00c3,0x00c9,0x00ca,0x00d2 02d9 ; -------------------------------------------------------------------------------------- 02d9 ; Debug chain 02d9 ; -------------------------------------------------------------------------------------- 02d9 0004 0005 | | .DBGLEN 0x0004,0x0005 02db 00db 00eb | | .DBGLNO 0x00db,0x00eb,0x00f0,0x00f5,0x00fc,0x0102,0x0103,0x0107,0x010d 02e4 ; -------------------------------------------------------------------------------------- 02e4 ; Debug chain 02e4 ; -------------------------------------------------------------------------------------- 02e4 0000 0001 | | .DBGLEN 0x0000,0x0001 02e6 0113 | | .DBGLNO 0x0113 02e7 ; -------------------------------------------------------------------------------------- 02e7 ; Debug chain 02e7 ; -------------------------------------------------------------------------------------- 02e7 0000 000b | | .DBGLEN 0x0000,0x000b 02e9 011b 0121 | !| .DBGLNO 0x011b,0x0121,0x0127,0x012d,0x0131,0x0134,0x0139,0x013e,0x0142,0x0149,0x014d 02f4 0001 0002 | | .XXX[0xb] 02f6 0004 0005 | | 02f8 0006 0007 | | 02fa 0003 0008 | | 02fc 0009 000a | | 02fe 000b | | 02ff ; -------------------------------------------------------------------------------------- 02ff ; Debug chain 02ff ; -------------------------------------------------------------------------------------- 02ff 0000 000d | | .DBGLEN 0x0000,0x000d 0301 015b 0165 | [ e| .DBGLNO 0x015b,0x0165,0x016b,0x0171,0x0175,0x0177,0x0178,0x017d,0x017f,0x0184,0x0189,0x018b,0x0195 030e 0001 0002 | | .XXX[0xd] 0310 0004 0005 | | 0312 0006 0007 | | 0314 0008 0009 | | 0316 000a 0003 | | 0318 000b 000c | | 031a 000d | | 031b ; -------------------------------------------------------------------------------------- 031b ; Debug chain 031b ; -------------------------------------------------------------------------------------- 031b 0000 000d | | .DBGLEN 0x0000,0x000d 031d 019b 01a1 | | .DBGLNO 0x019b,0x01a1,0x01a7,0x01ad,0x01af,0x01b0,0x01b5,0x01ba,0x01bc,0x01c2,0x01c7,0x01d1,0x01da 032a 0001 0002 | | .XXX[0xd] 032c 0004 0005 | | 032e 0006 0007 | | 0330 0003 0008 | | 0332 0009 000a | | 0334 000b 000c | | 0336 000d | | 0337 ; -------------------------------------------------------------------------------------- 0337 ; Debug chain 0337 ; -------------------------------------------------------------------------------------- 0337 0000 000b | | .DBGLEN 0x0000,0x000b 0339 01e3 01e9 | | .DBGLNO 0x01e3,0x01e9,0x01ef,0x01f5,0x01fa,0x01fc,0x0201,0x0206,0x0208,0x020d,0x0217 0344 0001 0002 | | .XXX[0xb] 0346 0004 0005 | | 0348 0006 0007 | | 034a 0003 0008 | | 034c 0009 000a | | 034e 000b | | 034f ; -------------------------------------------------------------------------------------- 034f ; Debug chain 034f ; -------------------------------------------------------------------------------------- 034f 0000 0007 | | .DBGLEN 0x0000,0x0007 0351 0225 022b | % +| .DBGLNO 0x0225,0x022b,0x022f,0x0235,0x0236,0x023b,0x0244 0358 0001 0002 | | .XXX[0x7] 035a 0003 0005 | | 035c 0006 0004 | | 035e 0007 | | 035f ; -------------------------------------------------------------------------------------- 035f ; Debug chain 035f ; -------------------------------------------------------------------------------------- 035f 0001 0003 | | .DBGLEN 0x0001,0x0003 0361 024b 024e | K N| .DBGLNO 0x024b,0x024e,0x0252,0x025c 0365 0000 0000 | | .BLANK 0000[0x9b]