|
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 0278 | x | .CONST 0x0278 ; 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 002f | / | .CONST 0x002f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001c | | .CONST 0x001c ; 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 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0011 e001 | | Load 0x0,0x1 0012 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0013 0129 | ) | Execute Any,Make_Visible 0014 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0016 e002 | | Load 0x0,0x2 0017 0129 | ) | Execute Any,Make_Visible 0018 e003 | | Load 0x0,0x3 0019 0129 | ) | Execute Any,Make_Visible 001a 00bf | | Action Accept_Activation 001b 00ea | | Load_Encached Null_String_Cache 001c 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 001e e004 | | Load 0x0,0x4 001f e005 | | Load 0x0,0x5 0020 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0021 e006 | | Load 0x0,0x6 0022 0387 | | Declare_Variable Package 0023 00d8 | | Load_Top At_Offset_0 0024 020f | | Execute Module,Activate 0025 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 0027 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0028 00c7 | | Action Elaborate_Subprogram 0029 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002a 00c7 | | Action Elaborate_Subprogram 002b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002c 00c7 | | Action Elaborate_Subprogram 002d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 002e 00c7 | | Action Elaborate_Subprogram 002f BODY_0008: 002f 00bc | | Action Signal_Activated 0030 00bb | | Action Signal_Completion 0031 0000 0000 | | .BLANK 0000[0x7] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 004f | O | .CONST 0x004f ; Address of begin 0039 0057 | W | .CONST 0x0057 ; 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 e5fd | | Load 0x2,-0x3 004b e5ff | | Load 0x2,-0x1 004c 821c | | Call 0x1,0x1c 004d 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 004f BODY_0038: 004f 4801 |H | Short_Literal 0x1 0050 e210 | | Load 0x1,0x10 0051 e21b | | Load 0x1,0x1b 0052 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0053 e402 | | Load 0x2,0x2 0054 017d | } | Execute Record,Structure_Write 0055 8406 | | Call 0x2,0x6 0056 0831 | 1 | Execute_Immediate Raise,0x31 0057 TRAP_0038: 0057 e21b | | Load 0x1,0x1b 0058 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 0059 010f | | Execute Exception,Equal 005a 6802 |h | Jump_Zero 0x5d 005b e218 | | Load 0x1,0x18 005c 0257 | W | Execute Discrete,Raise 005d 0100 | | Execute Exception,Raise 005e 0000 0000 | | .XXX[0x2] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 007d | } | .CONST 0x007d ; Address of begin 0061 00a3 | | .CONST 0x00a3 ; 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 e5fc | | Load 0x2,-0x4 0073 e5ff | | Load 0x2,-0x1 0074 821c | | Call 0x1,0x1c 0075 00e1 | | Load_Encached Boolean_Cache 0076 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0077 00e1 | | Load_Encached Boolean_Cache 0078 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0079 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 007b 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 007d BODY_0060: 007d e405 | | Load 0x2,0x5 007e e219 | | Load 0x1,0x19 007f 01df | | Execute Vector,Equal 0080 6802 |h | Jump_Zero 0x83 0081 e217 | | Load 0x1,0x17 0082 0257 | W | Execute Discrete,Raise 0083 4801 |H | Short_Literal 0x1 0084 e210 | | Load 0x1,0x10 0085 e21b | | Load 0x1,0x1b 0086 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0087 e402 | | Load 0x2,0x2 0088 017d | } | Execute Record,Structure_Write 0089 e5fd | | Load 0x2,-0x3 008a 6809 |h | Jump_Zero 0x94 008b 00cf | | Action Mark_Auxiliary 008c e20f | | Load 0x1,0xf 008d 0265 | e | Execute Discrete,Reverse_Bounds 008e 0263 | c | Execute Discrete,Above_Bound 008f 7003 |p | Jump_Nonzero 0x93 0090 8408 | | Call 0x2,0x8 0091 00c8 | | Action Pop_Auxiliary_Range 0092 3ffd |? | Loop_Increasing 0x90 0093 00ce | | Action Pop_Auxiliary 0094 00da | | Load_Top At_Offset_2 0095 6808 |h | Jump_Zero 0x9e 0096 00db | | Load_Top At_Offset_3 0097 6807 |h | Jump_Zero 0x9f 0098 e402 | | Load 0x2,0x2 0099 e210 | | Load 0x1,0x10 009a e21b | | Load 0x1,0x1b 009b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 009c 00d1 | | Pop_Control Pop_Count_1 009d 7801 |x | Jump 0x9f 009e 8409 | | Call 0x2,0x9 009f e402 | | Load 0x2,0x2 00a0 e21b | | Load 0x1,0x1b 00a1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00a2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00a3 TRAP_0060: 00a3 e21b | | Load 0x1,0x1b 00a4 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 00a5 010f | | Execute Exception,Equal 00a6 6802 |h | Jump_Zero 0xa9 00a7 e218 | | Load 0x1,0x18 00a8 0257 | W | Execute Discrete,Raise 00a9 0100 | | Execute Exception,Raise 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00c9 | | .CONST 0x00c9 ; Address of begin 00b1 00d4 | | .CONST 0x00d4 ; Address of exception handler 00b2 0007 | | .CONST 0x0007 ; Number of locals 00b3 INIT_00b0: 00b3 e21b | | Load 0x1,0x1b 00b4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00b5 0322 | " | Declare_Variable Record 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 e21b | | Load 0x1,0x1b 00b9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ba 0322 | " | Declare_Variable Record 00bb 00d8 | | Load_Top At_Offset_0 00bc 1c00 | | Execute_Immediate Run_Utility,0x0 00bd e5fe | | Load 0x2,-0x2 00be e20f | | Load 0x1,0xf 00bf 0122 | " | Execute Any,Make_Root_Type 00c0 011c | | Execute Any,Convert_Unchecked 00c1 1c01 | | Execute_Immediate Run_Utility,0x1 00c2 e5fd | | Load 0x2,-0x3 00c3 e5ff | | Load 0x2,-0x1 00c4 821c | | Call 0x1,0x1c 00c5 00e1 | | Load_Encached Boolean_Cache 00c6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c7 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 00c9 BODY_00b0: 00c9 4801 |H | Short_Literal 0x1 00ca e210 | | Load 0x1,0x10 00cb e21b | | Load 0x1,0x1b 00cc 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00cd e402 | | Load 0x2,0x2 00ce 017d | } | Execute Record,Structure_Write 00cf 8407 | | Call 0x2,0x7 00d0 e402 | | Load 0x2,0x2 00d1 e21b | | Load 0x1,0x1b 00d2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d4 TRAP_00b0: 00d4 e21b | | Load 0x1,0x1b 00d5 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 00d6 010f | | Execute Exception,Equal 00d7 6802 |h | Jump_Zero 0xda 00d8 e218 | | Load 0x1,0x18 00d9 0257 | W | Execute Discrete,Raise 00da 0100 | | Execute Exception,Raise 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00fa | | .CONST 0x00fa ; Address of begin 00e1 010b | | .CONST 0x010b ; Address of exception handler 00e2 0006 | | .CONST 0x0006 ; Number of locals 00e3 INIT_00e0: 00e3 e215 | | Load 0x1,0x15 00e4 0322 | " | Declare_Variable Record 00e5 e001 | | Load 0x0,0x1 00e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e7 00d9 | | Load_Top At_Offset_1 00e8 017d | } | Execute Record,Structure_Write 00e9 e21b | | Load 0x1,0x1b 00ea 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00eb 0322 | " | Declare_Variable Record 00ec 00d8 | | Load_Top At_Offset_0 00ed 1c00 | | Execute_Immediate Run_Utility,0x0 00ee e21b | | Load 0x1,0x1b 00ef 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00f0 0322 | " | Declare_Variable Record 00f1 00d8 | | Load_Top At_Offset_0 00f2 1c00 | | Execute_Immediate Run_Utility,0x0 00f3 e5ff | | Load 0x2,-0x1 00f4 e20f | | Load 0x1,0xf 00f5 0122 | " | Execute Any,Make_Root_Type 00f6 011c | | Execute Any,Convert_Unchecked 00f7 1c01 | | Execute_Immediate Run_Utility,0x1 00f8 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 00fa BODY_00e0: 00fa 4801 |H | Short_Literal 0x1 00fb e210 | | Load 0x1,0x10 00fc e21b | | Load 0x1,0x1b 00fd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00fe e403 | | Load 0x2,0x3 00ff 017d | } | Execute Record,Structure_Write 0100 8406 | | Call 0x2,0x6 0101 e402 | | Load 0x2,0x2 0102 e001 | | Load 0x0,0x1 0103 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0104 00d1 | | Pop_Control Pop_Count_1 0105 00db | | Load_Top At_Offset_3 0106 e21b | | Load 0x1,0x1b 0107 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0108 00d1 | | Pop_Control Pop_Count_1 0109 e402 | | Load 0x2,0x2 010a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010b TRAP_00e0: 010b e21b | | Load 0x1,0x1b 010c 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 010d 010f | | Execute Exception,Equal 010e 6802 |h | Jump_Zero 0x111 010f e218 | | Load 0x1,0x18 0110 0257 | W | Execute Discrete,Raise 0111 0100 | | Execute Exception,Raise 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c e211 | | Load 0x1,0x11 011d 027f | | Execute Discrete,Equal 011e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011f 0000 | | .XXX[0x1] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00db | | Load_Top At_Offset_3 0124 6804 |h | Jump_Zero 0x129 0125 00da | | Load_Top At_Offset_2 0126 e007 | | Load 0x0,0x7 0127 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0128 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0129 00da | | Load_Top At_Offset_2 012a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 012b 0000 0000 | | .BLANK 0000[0x5] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 015d | ] | .CONST 0x015d ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e402 | | Load 0x2,0x2 0134 e404 | | Load 0x2,0x4 0135 e21b | | Load 0x1,0x1b 0136 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0137 e403 | | Load 0x2,0x3 0138 017d | } | Execute Record,Structure_Write 0139 e403 | | Load 0x2,0x3 013a e21b | | Load 0x1,0x1b 013b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 013c 00d1 | | Pop_Control Pop_Count_1 013d 00cf | | Action Mark_Auxiliary 013e 7812 |x | Jump 0x151 013f e403 | | Load 0x2,0x3 0140 e21b | | Load 0x1,0x1b 0141 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0142 e405 | | Load 0x2,0x5 0143 01df | | Execute Vector,Equal 0144 6807 |h | Jump_Zero 0x14c 0145 e402 | | Load 0x2,0x2 0146 e21b | | Load 0x1,0x1b 0147 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0148 00d1 | | Pop_Control Pop_Count_1 0149 4801 |H | Short_Literal 0x1 014a 00cb | | Action Pop_Block_With_Result 014b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 014c e403 | | Load 0x2,0x3 014d e21b | | Load 0x1,0x1b 014e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 014f 00d1 | | Pop_Control Pop_Count_1 0150 00c9 | | Action Pop_Auxiliary_Loop 0151 e403 | | Load 0x2,0x3 0152 e21b | | Load 0x1,0x1b 0153 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0154 6fea |o | Jump_Zero 0x13f 0155 00ce | | Action Pop_Auxiliary 0156 e402 | | Load 0x2,0x2 0157 e21b | | Load 0x1,0x1b 0158 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0159 00d1 | | Pop_Control Pop_Count_1 015a 4800 |H | Short_Literal 0x0 015b 00cb | | Action Pop_Block_With_Result 015c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 015d TRAP_0130: 015d e21b | | Load 0x1,0x1b 015e 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 015f 010f | | Execute Exception,Equal 0160 6807 |h | Jump_Zero 0x168 0161 e402 | | Load 0x2,0x2 0162 e21b | | Load 0x1,0x1b 0163 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0164 00d1 | | Pop_Control Pop_Count_1 0165 4800 |H | Short_Literal 0x0 0166 00cb | | Action Pop_Block_With_Result 0167 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0168 0100 | | Execute Exception,Raise 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 01a9 | | .CONST 0x01a9 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e402 | | Load 0x2,0x2 0174 e40c | | Load 0x2,0xc 0175 e20f | | Load 0x1,0xf 0176 0122 | " | Execute Any,Make_Root_Type 0177 011c | | Execute Any,Convert_Unchecked 0178 1c01 | | Execute_Immediate Run_Utility,0x1 0179 e21b | | Load 0x1,0x1b 017a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 017b e403 | | Load 0x2,0x3 017c 017d | } | Execute Record,Structure_Write 017d e403 | | Load 0x2,0x3 017e e21b | | Load 0x1,0x1b 017f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0180 00d1 | | Pop_Control Pop_Count_1 0181 00cf | | Action Mark_Auxiliary 0182 7819 |x | Jump 0x19c 0183 e403 | | Load 0x2,0x3 0184 e21b | | Load 0x1,0x1b 0185 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0186 e405 | | Load 0x2,0x5 0187 01df | | Execute Vector,Equal 0188 680e |h | Jump_Zero 0x197 0189 e40c | | Load 0x2,0xc 018a e5fe | | Load 0x2,-0x2 018b 027f | | Execute Discrete,Equal 018c 6803 |h | Jump_Zero 0x190 018d 4801 |H | Short_Literal 0x1 018e a407 | | Store_Unchecked 0x2,0x7 018f 7810 |x | Jump 0x1a0 0190 e403 | | Load 0x2,0x3 0191 e219 | | Load 0x1,0x19 0192 e21b | | Load 0x1,0x1b 0193 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0194 00d1 | | Pop_Control Pop_Count_1 0195 4801 |H | Short_Literal 0x1 0196 a406 | | Store_Unchecked 0x2,0x6 0197 e403 | | Load 0x2,0x3 0198 e21b | | Load 0x1,0x1b 0199 1818 | | Execute Package,Field_Execute,Field_Number 0x18 019a 00d1 | | Pop_Control Pop_Count_1 019b 00c9 | | Action Pop_Auxiliary_Loop 019c e403 | | Load 0x2,0x3 019d e21b | | Load 0x1,0x1b 019e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019f 6fe3 |o | Jump_Zero 0x183 01a0 00ce | | Action Pop_Auxiliary 01a1 e406 | | Load 0x2,0x6 01a2 6805 |h | Jump_Zero 0x1a8 01a3 e402 | | Load 0x2,0x2 01a4 e403 | | Load 0x2,0x3 01a5 e21b | | Load 0x1,0x1b 01a6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01a7 00d1 | | Pop_Control Pop_Count_1 01a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a9 TRAP_0170: 01a9 e21b | | Load 0x1,0x1b 01aa 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 01ab 010f | | Execute Exception,Equal 01ac 6801 |h | Jump_Zero 0x1ae 01ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ae 0100 | | Execute Exception,Raise 01af 0000 | | .XXX[0x1] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 01e5 | | .CONST 0x01e5 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 e402 | | Load 0x2,0x2 01b4 e404 | | Load 0x2,0x4 01b5 e21b | | Load 0x1,0x1b 01b6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01b7 e403 | | Load 0x2,0x3 01b8 017d | } | Execute Record,Structure_Write 01b9 e403 | | Load 0x2,0x3 01ba e21b | | Load 0x1,0x1b 01bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01bc 00d1 | | Pop_Control Pop_Count_1 01bd 00cf | | Action Mark_Auxiliary 01be 780e |x | Jump 0x1cd 01bf e403 | | Load 0x2,0x3 01c0 e21b | | Load 0x1,0x1b 01c1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c2 e405 | | Load 0x2,0x5 01c3 01df | | Execute Vector,Equal 01c4 6803 |h | Jump_Zero 0x1c8 01c5 4801 |H | Short_Literal 0x1 01c6 a407 | | Store_Unchecked 0x2,0x7 01c7 7809 |x | Jump 0x1d1 01c8 e403 | | Load 0x2,0x3 01c9 e21b | | Load 0x1,0x1b 01ca 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01cb 00d1 | | Pop_Control Pop_Count_1 01cc 00c9 | | Action Pop_Auxiliary_Loop 01cd e403 | | Load 0x2,0x3 01ce e21b | | Load 0x1,0x1b 01cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01d0 6fee |o | Jump_Zero 0x1bf 01d1 00ce | | Action Pop_Auxiliary 01d2 e407 | | Load 0x2,0x7 01d3 7010 |p | Jump_Nonzero 0x1e4 01d4 e403 | | Load 0x2,0x3 01d5 e211 | | Load 0x1,0x11 01d6 e405 | | Load 0x2,0x5 01d7 e21b | | Load 0x1,0x1b 01d8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01d9 00d1 | | Pop_Control Pop_Count_1 01da e402 | | Load 0x2,0x2 01db e403 | | Load 0x2,0x3 01dc e21b | | Load 0x1,0x1b 01dd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01de 00d1 | | Pop_Control Pop_Count_1 01df e402 | | Load 0x2,0x2 01e0 e210 | | Load 0x1,0x10 01e1 e21b | | Load 0x1,0x1b 01e2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01e3 00d1 | | Pop_Control Pop_Count_1 01e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e5 TRAP_01b0: 01e5 e21b | | Load 0x1,0x1b 01e6 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 01e7 010f | | Execute Exception,Equal 01e8 680e |h | Jump_Zero 0x1f7 01e9 e402 | | Load 0x2,0x2 01ea e211 | | Load 0x1,0x11 01eb e404 | | Load 0x2,0x4 01ec 01cb | | Execute Vector,Append 01ed e405 | | Load 0x2,0x5 01ee 01cc | | Execute Vector,Catenate 01ef e21b | | Load 0x1,0x1b 01f0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01f1 00d1 | | Pop_Control Pop_Count_1 01f2 e402 | | Load 0x2,0x2 01f3 e210 | | Load 0x1,0x10 01f4 e21b | | Load 0x1,0x1b 01f5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f7 0100 | | Execute Exception,Raise 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 022b | + | .CONST 0x022b ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e402 | | Load 0x2,0x2 01fc e404 | | Load 0x2,0x4 01fd e21b | | Load 0x1,0x1b 01fe 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01ff e403 | | Load 0x2,0x3 0200 017d | } | Execute Record,Structure_Write 0201 e403 | | Load 0x2,0x3 0202 e21b | | Load 0x1,0x1b 0203 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0204 00d1 | | Pop_Control Pop_Count_1 0205 00cf | | Action Mark_Auxiliary 0206 7812 |x | Jump 0x219 0207 e403 | | Load 0x2,0x3 0208 e21b | | Load 0x1,0x1b 0209 1816 | | Execute Package,Field_Execute,Field_Number 0x16 020a e405 | | Load 0x2,0x5 020b 01df | | Execute Vector,Equal 020c 6807 |h | Jump_Zero 0x214 020d e403 | | Load 0x2,0x3 020e e219 | | Load 0x1,0x19 020f e21b | | Load 0x1,0x1b 0210 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0211 00d1 | | Pop_Control Pop_Count_1 0212 4801 |H | Short_Literal 0x1 0213 a406 | | Store_Unchecked 0x2,0x6 0214 e403 | | Load 0x2,0x3 0215 e21b | | Load 0x1,0x1b 0216 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0217 00d1 | | Pop_Control Pop_Count_1 0218 00c9 | | Action Pop_Auxiliary_Loop 0219 e403 | | Load 0x2,0x3 021a e21b | | Load 0x1,0x1b 021b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 021c 6fea |o | Jump_Zero 0x207 021d 00ce | | Action Pop_Auxiliary 021e e406 | | Load 0x2,0x6 021f 680a |h | Jump_Zero 0x22a 0220 e402 | | Load 0x2,0x2 0221 e403 | | Load 0x2,0x3 0222 e21b | | Load 0x1,0x1b 0223 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0224 00d1 | | Pop_Control Pop_Count_1 0225 e402 | | Load 0x2,0x2 0226 e210 | | Load 0x1,0x10 0227 e21b | | Load 0x1,0x1b 0228 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0229 00d1 | | Pop_Control Pop_Count_1 022a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022b TRAP_01f8: 022b e21b | | Load 0x1,0x1b 022c 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 022d 010f | | Execute Exception,Equal 022e 6801 |h | Jump_Zero 0x230 022f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0230 0100 | | Execute Exception,Raise 0231 0000 0000 | | .BLANK 0000[0x7] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023d | = | .CONST 0x023d ; Address of begin 0239 0258 | X | .CONST 0x0258 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 023d BODY_0238: 023d e403 | | Load 0x2,0x3 023e e405 | | Load 0x2,0x5 023f e21b | | Load 0x1,0x1b 0240 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0241 e404 | | Load 0x2,0x4 0242 017d | } | Execute Record,Structure_Write 0243 e404 | | Load 0x2,0x4 0244 e21b | | Load 0x1,0x1b 0245 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0246 00d1 | | Pop_Control Pop_Count_1 0247 e404 | | Load 0x2,0x4 0248 e21b | | Load 0x1,0x1b 0249 1818 | | Execute Package,Field_Execute,Field_Number 0x18 024a 00d1 | | Pop_Control Pop_Count_1 024b 00cf | | Action Mark_Auxiliary 024c 7806 |x | Jump 0x253 024d 8602 | | Call 0x3,0x2 024e e404 | | Load 0x2,0x4 024f e21b | | Load 0x1,0x1b 0250 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0251 00d1 | | Pop_Control Pop_Count_1 0252 00c9 | | Action Pop_Auxiliary_Loop 0253 e404 | | Load 0x2,0x4 0254 e21b | | Load 0x1,0x1b 0255 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0256 6ff6 |o | Jump_Zero 0x24d 0257 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0258 TRAP_0238: 0258 e21b | | Load 0x1,0x1b 0259 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 025a 010f | | Execute Exception,Equal 025b 6801 |h | Jump_Zero 0x25d 025c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025d 0100 | | Execute Exception,Raise 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0268 | h | .CONST 0x0268 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0002 | | .CONST 0x0002 ; Number of locals 0263 INIT_0260: 0263 e5fe | | Load 0x2,-0x2 0264 e404 | | Load 0x2,0x4 0265 e21b | | Load 0x1,0x1b 0266 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0267 821c | | Call 0x1,0x1c 0268 BODY_0260: 0268 00d8 | | Load_Top At_Offset_0 0269 e219 | | Load 0x1,0x19 026a 01de | | Execute Vector,Not_Equal 026b 6807 |h | Jump_Zero 0x273 026c e402 | | Load 0x2,0x2 026d 00d9 | | Load_Top At_Offset_1 026e e001 | | Load 0x0,0x1 026f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0270 e001 | | Load 0x0,0x1 0271 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0272 00d1 | | Pop_Control Pop_Count_1 0273 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0274 0000 0000 | | .BLANK 0000[0x4] 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug Table 0278 ; -------------------------------------------------------------------------------------- 0278 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7147,0x0000,0x0001,0x000e 027e 000b 02b6 | | .DBG4T 0x000b,0x02b6,0xc000,0x0000 0282 001b 02bf | | .DBG4T 0x001b,0x02bf,0xc000,0x0000 0286 003b 02c9 | ; | .DBG4T 0x003b,0x02c9,0x1002,0x0000 028a 0063 02d2 | c | .DBG4T 0x0063,0x02d2,0x1001,0x0000 028e 00b3 02e6 | | .DBG4T 0x00b3,0x02e6,0x1001,0x0000 0292 00e3 02f1 | | .DBG4T 0x00e3,0x02f1,0x1002,0x0000 0296 011b 02fd | | .DBG4T 0x011b,0x02fd,0x1002,0x0000 029a 0123 0300 | # | .DBG4T 0x0123,0x0300,0x1002,0x0000 029e 0133 0305 | 3 | .DBG4T 0x0133,0x0305,0x1004,0x4000 02a2 0173 031d | s | .DBG4T 0x0173,0x031d,0x1004,0x4000 02a6 01b3 0339 | 9| .DBG4T 0x01b3,0x0339,0x1004,0x4000 02aa 01fb 0355 | U| .DBG4T 0x01fb,0x0355,0x1004,0x4000 02ae 023b 036d | ; m| .DBG4T 0x023b,0x036d,0x1004,0x4000 02b2 0263 037d | c }| .DBG4T 0x0263,0x037d,0x1004,0x0000 02b6 ; -------------------------------------------------------------------------------------- 02b6 ; Debug chain 02b6 ; -------------------------------------------------------------------------------------- 02b6 0007 0000 | | .DBGLEN 0x0007,0x0000 02b8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0014,0x0016,0x0018 02bf ; -------------------------------------------------------------------------------------- 02bf ; Debug chain 02bf ; -------------------------------------------------------------------------------------- 02bf 0008 0000 | | .DBGLEN 0x0008,0x0000 02c1 001b 001c | | .DBGLNO 0x001b,0x001c,0x001e,0x0025,0x0027,0x0029,0x002b,0x002d 02c9 ; -------------------------------------------------------------------------------------- 02c9 ; Debug chain 02c9 ; -------------------------------------------------------------------------------------- 02c9 0004 0003 | | .DBGLEN 0x0004,0x0003 02cb 003b 0040 | ; @| .DBGLNO 0x003b,0x0040,0x0045,0x004a,0x004f,0x0055,0x005b 02d2 ; -------------------------------------------------------------------------------------- 02d2 ; Debug chain 02d2 ; -------------------------------------------------------------------------------------- 02d2 0006 000c | | .DBGLEN 0x0006,0x000c 02d4 0063 0068 | c h| .DBGLNO 0x0063,0x0068,0x006d,0x0072,0x0075,0x0077,0x007d,0x0081,0x0083,0x0089,0x008c,0x0090,0x0094,0x0096,0x0098,0x009e,0x009f,0x00a7 02e6 ; -------------------------------------------------------------------------------------- 02e6 ; Debug chain 02e6 ; -------------------------------------------------------------------------------------- 02e6 0005 0004 | | .DBGLEN 0x0005,0x0004 02e8 00b3 00b8 | | .DBGLNO 0x00b3,0x00b8,0x00bd,0x00c2,0x00c5,0x00c9,0x00cf,0x00d0,0x00d8 02f1 ; -------------------------------------------------------------------------------------- 02f1 ; Debug chain 02f1 ; -------------------------------------------------------------------------------------- 02f1 0004 0006 | | .DBGLEN 0x0004,0x0006 02f3 00e3 00e9 | | .DBGLNO 0x00e3,0x00e9,0x00ee,0x00f3,0x00fa,0x0100,0x0101,0x0105,0x0109,0x010f 02fd ; -------------------------------------------------------------------------------------- 02fd ; Debug chain 02fd ; -------------------------------------------------------------------------------------- 02fd 0000 0001 | | .DBGLEN 0x0000,0x0001 02ff 011b | | .DBGLNO 0x011b 0300 ; -------------------------------------------------------------------------------------- 0300 ; Debug chain 0300 ; -------------------------------------------------------------------------------------- 0300 0000 0003 | | .DBGLEN 0x0000,0x0003 0302 0123 0125 | # %| .DBGLNO 0x0123,0x0125,0x0129 0305 ; -------------------------------------------------------------------------------------- 0305 ; Debug chain 0305 ; -------------------------------------------------------------------------------------- 0305 0000 000b | | .DBGLEN 0x0000,0x000b 0307 0133 0139 | 3 9| .DBGLNO 0x0133,0x0139,0x013f,0x0145,0x0149,0x014c,0x0151,0x0156,0x015a,0x0161,0x0165 0312 0001 0002 | | .XXX[0xb] 0314 0004 0005 | | 0316 0006 0007 | | 0318 0003 0008 | | 031a 0009 000a | | 031c 000b | | 031d ; -------------------------------------------------------------------------------------- 031d ; Debug chain 031d ; -------------------------------------------------------------------------------------- 031d 0000 000d | | .DBGLEN 0x0000,0x000d 031f 0173 017d | s }| .DBGLNO 0x0173,0x017d,0x0183,0x0189,0x018d,0x018f,0x0190,0x0195,0x0197,0x019c,0x01a1,0x01a3,0x01ad 032c 0001 0002 | | .XXX[0xd] 032e 0004 0005 | | 0330 0006 0007 | | 0332 0008 0009 | | 0334 000a 0003 | | 0336 000b 000c | | 0338 000d | | 0339 ; -------------------------------------------------------------------------------------- 0339 ; Debug chain 0339 ; -------------------------------------------------------------------------------------- 0339 0000 000d | | .DBGLEN 0x0000,0x000d 033b 01b3 01b9 | | .DBGLNO 0x01b3,0x01b9,0x01bf,0x01c5,0x01c7,0x01c8,0x01cd,0x01d2,0x01d4,0x01da,0x01df,0x01e9,0x01f2 0348 0001 0002 | | .XXX[0xd] 034a 0004 0005 | | 034c 0006 0007 | | 034e 0003 0008 | | 0350 0009 000a | | 0352 000b 000c | | 0354 000d | | 0355 ; -------------------------------------------------------------------------------------- 0355 ; Debug chain 0355 ; -------------------------------------------------------------------------------------- 0355 0000 000b | | .DBGLEN 0x0000,0x000b 0357 01fb 0201 | | .DBGLNO 0x01fb,0x0201,0x0207,0x020d,0x0212,0x0214,0x0219,0x021e,0x0220,0x0225,0x022f 0362 0001 0002 | | .XXX[0xb] 0364 0004 0005 | | 0366 0006 0007 | | 0368 0003 0008 | | 036a 0009 000a | | 036c 000b | | 036d ; -------------------------------------------------------------------------------------- 036d ; Debug chain 036d ; -------------------------------------------------------------------------------------- 036d 0000 0007 | | .DBGLEN 0x0000,0x0007 036f 023d 0243 | = C| .DBGLNO 0x023d,0x0243,0x0247,0x024d,0x024e,0x0253,0x025c 0376 0001 0002 | | .XXX[0x7] 0378 0003 0005 | | 037a 0006 0004 | | 037c 0007 | | 037d ; -------------------------------------------------------------------------------------- 037d ; Debug chain 037d ; -------------------------------------------------------------------------------------- 037d 0001 0002 | | .DBGLEN 0x0001,0x0002 037f 0263 0268 | c h| .DBGLNO 0x0263,0x0268,0x026c 0382 0000 0000 | | .BLANK 0000[0x7e]