|
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_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0320 | | .CONST 0x0320 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 007f | | .CONST 0x007f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001c | | .CONST 0x001c ; Number of locals 000b INIT_0008: 000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 e001 | | Load 0x0,0x1 0011 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0012 02a0 | | Declare_Subprogram Null_Subprogram 0013 03ad | | Declare_Type Heap_Access,Defined 0014 e002 | | Load 0x0,0x2 0015 e003 | | Load 0x0,0x3 0016 e001 | | Load 0x0,0x1 0017 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0018 00db | | Load_Top At_Offset_3 0019 e004 | | Load 0x0,0x4 001a 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 001b 0387 | | Declare_Variable Package 001c 00d8 | | Load_Top At_Offset_0 001d 020f | | Execute Module,Activate 001e e005 | | Load 0x0,0x5 001f e006 | | Load 0x0,0x6 0020 e001 | | Load 0x0,0x1 0021 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0022 e20f | | Load 0x1,0xf 0023 e007 | | Load 0x0,0x7 0024 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0025 0387 | | Declare_Variable Package 0026 00d8 | | Load_Top At_Offset_0 0027 020f | | Execute Module,Activate 0028 e008 | | Load 0x0,0x8 0029 e009 | | Load 0x0,0x9 002a e001 | | Load 0x0,0x1 002b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 002c e004 | | Load 0x0,0x4 002d 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 002e 0387 | | Declare_Variable Package 002f 00d8 | | Load_Top At_Offset_0 0030 020f | | Execute Module,Activate 0031 4800 |H | Short_Literal 0x0 0032 48ff |H | Short_Literal 0xff 0033 e004 | | Load 0x0,0x4 0034 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0035 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0037 4801 |H | Short_Literal 0x1 0038 035d | ] | Declare_Type Array,Defined 0039 00d8 | | Load_Top At_Offset_0 003a 0337 | 7 | Declare_Variable Array 003b 00d8 | | Load_Top At_Offset_0 003c 1c00 | | Execute_Immediate Run_Utility,0x0 003d e00a | | Load 0x0,0xa 003e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 003f 4801 |H | Short_Literal 0x1 0040 4828 |H( | Short_Literal 0x28 0041 00e9 | | Load_Encached String_Cache 0042 035b | [ | Declare_Type Array,Constrained 0043 00e3 | | Load_Encached Natural_Cache 0044 e001 | | Load 0x0,0x1 0045 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0046 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0048 4804 |H | Short_Literal 0x4 0049 032d | - | Declare_Type Record,Defined 004a 00d8 | | Load_Top At_Offset_0 004b 0322 | " | Declare_Variable Record 004c 4800 |H | Short_Literal 0x0 004d 00d9 | | Load_Top At_Offset_1 004e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 004f e001 | | Load 0x0,0x1 0050 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0051 00d9 | | Load_Top At_Offset_1 0052 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0053 00d9 | | Load_Top At_Offset_1 0054 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0055 0337 | 7 | Declare_Variable Array 0056 4828 |H( | Short_Literal 0x28 0057 4801 |H | Short_Literal 0x1 0058 4820 |H | Short_Literal 0x20 0059 00d9 | | Load_Top At_Offset_1 005a e217 | | Load 0x1,0x17 005b 01d6 | | Execute Vector,Field_Write 005c 3ffb |? | Loop_Increasing 0x58 005d 00da | | Load_Top At_Offset_2 005e 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 005f 0119 | | Execute Any,Check_In_Formal_Type 0060 00d9 | | Load_Top At_Offset_1 0061 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0062 4800 |H | Short_Literal 0x0 0063 00d9 | | Load_Top At_Offset_1 0064 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0065 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 0067 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call 0069 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 006b 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 006d 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call 006f e00b | | Load 0x0,0xb 0070 e00c | | Load 0x0,0xc 0071 e215 | | Load 0x1,0x15 0072 e216 | | Load 0x1,0x16 0073 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0074 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0075 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "UNKNOWN" 0077 e00d | | Load 0x0,0xd 0078 0387 | | Declare_Variable Package 0079 00d8 | | Load_Top At_Offset_0 007a 020f | | Execute Module,Activate 007b 1d0d | | Execute_Immediate Reference_Lex_1,0xd 007c 00c7 | | Action Elaborate_Subprogram 007d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 007e 00c7 | | Action Elaborate_Subprogram 007f BODY_0008: 007f 00be | | Action Activate_Tasks 0080 00bc | | Action Signal_Activated 0081 00bb | | Action Signal_Completion 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0095 | | .CONST 0x0095 ; Address of begin 0089 00a5 | | .CONST 0x00a5 ; Address of exception handler 008a 0003 | | .CONST 0x0003 ; Number of locals 008b INIT_0088: 008b e215 | | Load 0x1,0x15 008c 0322 | " | Declare_Variable Record 008d e216 | | Load 0x1,0x16 008e 00d9 | | Load_Top At_Offset_1 008f 017d | } | Execute Record,Structure_Write 0090 e00a | | Load 0x0,0xa 0091 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0092 e00a | | Load 0x0,0xa 0093 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0094 03f1 | | Declare_Variable Discrete,With_Value 0095 BODY_0088: 0095 e00a | | Load 0x0,0xa 0096 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0097 e00e | | Load 0x0,0xe 0098 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0099 00ca | | Action Exit_Nullary_Function 009a 02e1 e00a | | .XXX[0xb] 009c 1811 00e0 | | 009e 1818 01cc | | 00a0 e010 1813 | | 00a2 00d9 3c03 | < | 00a4 00ca | | 00a5 TRAP_0088: 00a5 0007 | | Action Break_Optional 00a6 4801 |H | Short_Literal 0x1 00a7 4802 |H | Short_Literal 0x2 00a8 e011 | | Load 0x0,0x11 00a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00aa 035b | [ | Declare_Type Array,Constrained 00ab 0337 | 7 | Declare_Variable Array 00ac 4800 |H | Short_Literal 0x0 00ad 4801 |H | Short_Literal 0x1 00ae e012 | | Load 0x0,0x12 00af 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b0 e011 | | Load 0x0,0x11 00b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b2 4801 |H | Short_Literal 0x1 00b3 00da | | Load_Top At_Offset_2 00b4 01d6 | | Execute Vector,Field_Write 00b5 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "Get" 00b7 e011 | | Load 0x0,0x11 00b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b9 4802 |H | Short_Literal 0x2 00ba 00da | | Load_Top At_Offset_2 00bb 01d6 | | Execute Vector,Field_Write 00bc 6003 |` | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00006803} 00bd e013 | | Load 0x0,0x13 00be 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00bf 0831 | 1 | Execute_Immediate Raise,0x31 00c0 0000 0000 | | .LITERAL {0x00000000, 0x00006803} 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 00d0 | | .CONST 0x00d0 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e00a | | Load 0x0,0xa 00cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00cd e21c | | Load 0x1,0x1c 00ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d0 TRAP_00c8: 00d0 0007 | | Action Break_Optional 00d1 4801 |H | Short_Literal 0x1 00d2 4802 |H | Short_Literal 0x2 00d3 e011 | | Load 0x0,0x11 00d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d5 035b | [ | Declare_Type Array,Constrained 00d6 0337 | 7 | Declare_Variable Array 00d7 4800 |H | Short_Literal 0x0 00d8 4801 |H | Short_Literal 0x1 00d9 e012 | | Load 0x0,0x12 00da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00db e011 | | Load 0x0,0x11 00dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00dd 4801 |H | Short_Literal 0x1 00de 00da | | Load_Top At_Offset_2 00df 01d6 | | Execute Vector,Field_Write 00e0 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Destroy" 00e2 e011 | | Load 0x0,0x11 00e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e4 4802 |H | Short_Literal 0x2 00e5 00da | | Load_Top At_Offset_2 00e6 01d6 | | Execute Vector,Field_Write 00e7 67d8 |g | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00006803} 00e8 e013 | | Load 0x0,0x13 00e9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00eb 0000 0000 | | .BLANK 0000[0x5] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00d1 | | Pop_Control Pop_Count_1 00f4 00da | | Load_Top At_Offset_2 00f5 01dc | | Execute Vector,Last 00f6 00db | | Load_Top At_Offset_3 00f7 01dd | | Execute Vector,First 00f8 0263 | c | Execute Discrete,Above_Bound 00f9 700a |p | Jump_Nonzero 0x104 00fa 00d8 | | Load_Top At_Offset_0 00fb e5ff | | Load 0x2,-0x1 00fc 01d5 | | Execute Vector,Field_Reference 00fd 0125 | % | Execute Any,Set_Constraint 00fe 00d8 | | Load_Top At_Offset_0 00ff e5ff | | Load 0x2,-0x1 0100 01d5 | | Execute Vector,Field_Reference 0101 1c00 | | Execute_Immediate Run_Utility,0x0 0102 0a01 | | Execute_Immediate Plus,0x1 0103 7ff4 | | Jump 0xf8 0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4608 |F | Jump_Case 0x9 010c 7808 |x | Jump 0x115 ; case 0x0 010d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 010e 780a |x | Jump 0x119 ; case 0x2 010f 7809 |x | Jump 0x119 ; case 0x3 0110 7808 |x | Jump 0x119 ; case 0x4 0111 7807 |x | Jump 0x119 ; case 0x5 0112 7806 |x | Jump 0x119 ; case 0x6 0113 7805 |x | Jump 0x119 ; case 0x7 0114 7804 |x | Jump 0x119 ; case 0x8 0115 4800 |H | Short_Literal 0x0 0116 00db | | Load_Top At_Offset_3 0117 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0118 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0119 0869 | i | Execute_Immediate Raise,0x69 011a 0000 0000 | | .BLANK 0000[0x6] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 013b | ; | .CONST 0x013b ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0006 | | .CONST 0x0006 ; Number of locals 0123 INIT_0120: 0123 e014 | | Load 0x0,0x14 0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0125 02c7 | | Declare_Variable Any 0126 00d8 | | Load_Top At_Offset_0 0127 1c00 | | Execute_Immediate Run_Utility,0x0 0128 e015 | | Load 0x0,0x15 0129 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 012a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 012b 02c7 | | Declare_Variable Any 012c 00d8 | | Load_Top At_Offset_0 012d 1c00 | | Execute_Immediate Run_Utility,0x0 012e e015 | | Load 0x0,0x15 012f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0130 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0131 02c7 | | Declare_Variable Any 0132 00d8 | | Load_Top At_Offset_0 0133 1c00 | | Execute_Immediate Run_Utility,0x0 0134 e015 | | Load 0x0,0x15 0135 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0136 e015 | | Load 0x0,0x15 0137 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0138 02ff | | Declare_Variable Variant_Record 0139 00d8 | | Load_Top At_Offset_0 013a 1c00 | | Execute_Immediate Run_Utility,0x0 013b BODY_0120: 013b e004 | | Load 0x0,0x4 013c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 013d e5fd | | Load 0x2,-0x3 013e 4800 |H | Short_Literal 0x0 013f 60c4 |` | Indirect_Literal Discrete,0x204,{0x00000000, 0x00004000} 0140 e016 | | Load 0x0,0x16 0141 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0142 e00a | | Load 0x0,0xa 0143 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0144 e015 | | Load 0x0,0x15 0145 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0146 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0147 4800 |H | Short_Literal 0x0 0148 e5fe | | Load 0x2,-0x2 0149 e5ff | | Load 0x2,-0x1 014a e004 | | Load 0x0,0x4 014b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 014c c5fd | | Store 0x2,-0x3 014d 005a | Z | Store_Top Discrete,At_Offset_2 014e 00d9 | | Load_Top At_Offset_1 014f 460e |F | Jump_Case 0xf 0150 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0 0151 780d |x | Jump 0x15f ; case 0x1 0152 780c |x | Jump 0x15f ; case 0x2 0153 780b |x | Jump 0x15f ; case 0x3 0154 780a |x | Jump 0x15f ; case 0x4 0155 7809 |x | Jump 0x15f ; case 0x5 0156 7808 |x | Jump 0x15f ; case 0x6 0157 7807 |x | Jump 0x15f ; case 0x7 0158 7806 |x | Jump 0x15f ; case 0x8 0159 781e |x | Jump 0x178 ; case 0x9 015a 7804 |x | Jump 0x15f ; case 0xa 015b 7803 |x | Jump 0x15f ; case 0xb 015c 7802 |x | Jump 0x15f ; case 0xc 015d 7801 |x | Jump 0x15f ; case 0xd 015e 7800 |x | Jump 0x15f ; case 0xe 015f e013 | | Load 0x0,0x13 0160 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0161 4801 |H | Short_Literal 0x1 0162 4802 |H | Short_Literal 0x2 0163 e011 | | Load 0x0,0x11 0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0165 035b | [ | Declare_Type Array,Constrained 0166 0337 | 7 | Declare_Variable Array 0167 e5fe | | Load 0x2,-0x2 0168 e011 | | Load 0x0,0x11 0169 1810 | | Execute Package,Field_Execute,Field_Number 0x10 016a 4801 |H | Short_Literal 0x1 016b 00da | | Load_Top At_Offset_2 016c 01d6 | | Execute Vector,Field_Write 016d 00db | | Load_Top At_Offset_3 016e e011 | | Load 0x0,0x11 016f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0170 4802 |H | Short_Literal 0x2 0171 00da | | Load_Top At_Offset_2 0172 01d6 | | Execute Vector,Field_Write 0173 608c |` | Indirect_Literal Discrete,0x200,{0x00000000, 0x00005001} 0174 e013 | | Load 0x0,0x13 0175 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0176 c5fc | | Store 0x2,-0x4 0177 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0178 e015 | | Load 0x0,0x15 0179 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017a 00db | | Load_Top At_Offset_3 017b 0120 | | Execute Any,Is_Value 017c 6802 |h | Jump_Zero 0x17f 017d 00f1 | | Load_Encached Diana_Temp_Seq 017e 7801 |x | Jump 0x180 017f 00db | | Load_Top At_Offset_3 0180 e403 | | Load 0x2,0x3 0181 0120 | | Execute Any,Is_Value 0182 6804 |h | Jump_Zero 0x187 0183 e015 | | Load 0x0,0x15 0184 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0185 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0186 7801 |x | Jump 0x188 0187 e403 | | Load 0x2,0x3 0188 e402 | | Load 0x2,0x2 0189 0120 | | Execute Any,Is_Value 018a 6803 |h | Jump_Zero 0x18e 018b e014 | | Load 0x0,0x14 018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018d 7801 |x | Jump 0x18f 018e e402 | | Load 0x2,0x2 018f e406 | | Load 0x2,0x6 0190 6073 |`s | Indirect_Literal Discrete,0x204,{0x00000000, 0x00004000} 0191 e016 | | Load 0x0,0x16 0192 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0193 4800 |H | Short_Literal 0x0 0194 e015 | | Load 0x0,0x15 0195 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0196 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0197 e015 | | Load 0x0,0x15 0198 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0199 6062 |`b | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x7fffffff} 019a 4ffc |O | Short_Literal -0x4 019b 4ffd |O | Short_Literal -0x3 019c e00a | | Load 0x0,0xa 019d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 019e e015 | | Load 0x0,0x15 019f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01a1 e015 | | Load 0x0,0x15 01a2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01a3 e004 | | Load 0x0,0x4 01a4 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a5 e5fe | | Load 0x2,-0x2 01a6 e015 | | Load 0x0,0x15 01a7 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 01a8 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a9 00d1 | | Pop_Control Pop_Count_1 01aa c402 | | Store 0x2,0x2 01ab c403 | | Store 0x2,0x3 01ac c404 | | Store 0x2,0x4 01ad 005a | Z | Store_Top Discrete,At_Offset_2 01ae 00d9 | | Load_Top At_Offset_1 01af 6819 |h | Jump_Zero 0x1c9 01b0 e013 | | Load 0x0,0x13 01b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b2 4801 |H | Short_Literal 0x1 01b3 4802 |H | Short_Literal 0x2 01b4 e011 | | Load 0x0,0x11 01b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01b6 035b | [ | Declare_Type Array,Constrained 01b7 0337 | 7 | Declare_Variable Array 01b8 e5fe | | Load 0x2,-0x2 01b9 e011 | | Load 0x0,0x11 01ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01bb 4801 |H | Short_Literal 0x1 01bc 00da | | Load_Top At_Offset_2 01bd 01d6 | | Execute Vector,Field_Write 01be 00db | | Load_Top At_Offset_3 01bf e011 | | Load 0x0,0x11 01c0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01c1 4802 |H | Short_Literal 0x2 01c2 00da | | Load_Top At_Offset_2 01c3 01d6 | | Execute Vector,Field_Write 01c4 6033 |`3 | Indirect_Literal Discrete,0x1f8,{0x00000000, 0x00005002} 01c5 e013 | | Load 0x0,0x13 01c6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01c7 c5fc | | Store 0x2,-0x4 01c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c9 e004 | | Load 0x0,0x4 01ca 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01cb 00d9 | | Load_Top At_Offset_1 01cc e5fd | | Load 0x2,-0x3 01cd 4801 |H | Short_Literal 0x1 01ce 6035 |`5 | Indirect_Literal Discrete,0x204,{0x00000000, 0x00004000} 01cf e016 | | Load 0x0,0x16 01d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d1 e5ff | | Load 0x2,-0x1 01d2 e004 | | Load 0x0,0x4 01d3 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01d4 c5fd | | Store 0x2,-0x3 01d5 00d1 | | Pop_Control Pop_Count_1 01d6 005a | Z | Store_Top Discrete,At_Offset_2 01d7 00d9 | | Load_Top At_Offset_1 01d8 6818 |h | Jump_Zero 0x1f1 01d9 e013 | | Load 0x0,0x13 01da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01db 4801 |H | Short_Literal 0x1 01dc 4802 |H | Short_Literal 0x2 01dd e011 | | Load 0x0,0x11 01de 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01df 035b | [ | Declare_Type Array,Constrained 01e0 0337 | 7 | Declare_Variable Array 01e1 00da | | Load_Top At_Offset_2 01e2 e011 | | Load 0x0,0x11 01e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e4 4801 |H | Short_Literal 0x1 01e5 00da | | Load_Top At_Offset_2 01e6 01d6 | | Execute Vector,Field_Write 01e7 00db | | Load_Top At_Offset_3 01e8 e011 | | Load 0x0,0x11 01e9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01ea 4802 |H | Short_Literal 0x2 01eb 00da | | Load_Top At_Offset_2 01ec 01d6 | | Execute Vector,Field_Write 01ed 6006 |` | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00005004} 01ee e013 | | Load 0x0,0x13 01ef 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01f0 c5fc | | Store 0x2,-0x4 01f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f2 0000 0000 | | .XXX[0x2] 01f4 0000 0000 | | .LITERAL {0x00000000, 0x00005004} 01f8 0000 0000 | | .LITERAL {0x00000000, 0x00005002} 01fc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0200 0000 0000 | | .LITERAL {0x00000000, 0x00005001} 0204 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0212 | | .CONST 0x0212 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0004 | | .CONST 0x0004 ; Number of locals 020b INIT_0208: 020b e001 | | Load 0x0,0x1 020c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 020d e20f | | Load 0x1,0xf 020e 0007 | | Action Break_Optional 020f e013 | | Load 0x0,0x13 0210 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0211 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0212 BODY_0208: 0212 00d8 | | Load_Top At_Offset_0 0213 e5fe | | Load 0x2,-0x2 0214 e5ff | | Load 0x2,-0x1 0215 4802 |H | Short_Literal 0x2 0216 8217 | | Call 0x1,0x17 0217 c5fe | | Store 0x2,-0x2 0218 0059 | Y | Store_Top Discrete,At_Offset_1 0219 4800 |H | Short_Literal 0x0 021a 00d9 | | Load_Top At_Offset_1 021b e013 | | Load 0x0,0x13 021c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 021d 6820 |h | Jump_Zero 0x23e 021e 4800 |H | Short_Literal 0x0 021f e004 | | Load 0x0,0x4 0220 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0221 e5fe | | Load 0x2,-0x2 0222 e212 | | Load 0x1,0x12 0223 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0224 e004 | | Load 0x0,0x4 0225 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0226 e5fe | | Load 0x2,-0x2 0227 e210 | | Load 0x1,0x10 0228 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0229 e211 | | Load 0x1,0x11 022a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 022b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 022c e004 | | Load 0x0,0x4 022d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 022e e5fe | | Load 0x2,-0x2 022f e210 | | Load 0x1,0x10 0230 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0231 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0232 00d9 | | Load_Top At_Offset_1 0233 e211 | | Load 0x1,0x11 0234 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0235 00db | | Load_Top At_Offset_3 0236 e007 | | Load 0x0,0x7 0237 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0238 4800 |H | Short_Literal 0x0 0239 e004 | | Load 0x0,0x4 023a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 023b e5fe | | Load 0x2,-0x2 023c e212 | | Load 0x1,0x12 023d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 023e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023f 0000 | | .XXX[0x1] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0245 | E | .CONST 0x0245 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0002 | | .CONST 0x0002 ; Number of locals 0243 INIT_0240: 0243 e20f | | Load 0x1,0xf 0244 0007 | | Action Break_Optional 0245 BODY_0240: 0245 e004 | | Load 0x0,0x4 0246 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0247 e5ff | | Load 0x2,-0x1 0248 e210 | | Load 0x1,0x10 0249 1811 | | Execute Package,Field_Execute,Field_Number 0x11 024a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 024b 00d8 | | Load_Top At_Offset_0 024c e211 | | Load 0x1,0x11 024d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 024e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024f 0000 | | .XXX[0x1] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 026c | l | .CONST 0x026c ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0004 | | .CONST 0x0004 ; Number of locals 0253 INIT_0250: 0253 e00a | | Load 0x0,0xa 0254 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0255 00e0 | | Load_Encached Standard_Cache 0256 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0257 0092 02e4 | | Action Push_String_Extended,0x2e4 ; "!machine.temporary.rcf_heap_for_job_" 0259 00d9 | | Load_Top At_Offset_1 025a 01dd | | Execute Vector,First 025b 0a01 | | Execute_Immediate Plus,0x1 025c 00d8 | | Load_Top At_Offset_0 025d 00e2 | | Load_Encached Integer_Cache 025e 0260 | ` | Execute Discrete,In_Type 025f 7001 |p | Jump_Nonzero 0x261 0260 0801 | | Execute_Immediate Raise,0x1 0261 00da | | Load_Top At_Offset_2 0262 01dc | | Execute Vector,Last 0263 00db | | Load_Top At_Offset_3 0264 01cf | | Execute Vector,Slice_Read 0265 01cc | | Execute Vector,Catenate 0266 0007 | | Action Break_Optional 0267 e00a | | Load 0x0,0xa 0268 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0269 e00a | | Load 0x0,0xa 026a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 026b 03f1 | | Declare_Variable Discrete,With_Value 026c BODY_0250: 026c 00d8 | | Load_Top At_Offset_0 026d e5ff | | Load 0x2,-0x1 026e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 026f e214 | | Load 0x1,0x14 0270 00d9 | | Load_Top At_Offset_1 0271 00d8 | | Load_Top At_Offset_0 0272 00da | | Load_Top At_Offset_2 0273 01d7 | | Execute Vector,Field_Read 0274 e403 | | Load 0x2,0x3 0275 8218 | | Call 0x1,0x18 0276 00d9 | | Load_Top At_Offset_1 0277 00db | | Load_Top At_Offset_3 0278 01d6 | | Execute Vector,Field_Write 0279 00d2 | | Pop_Control Pop_Count_2 027a 4800 |H | Short_Literal 0x0 027b e004 | | Load 0x0,0x4 027c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 027d 00da | | Load_Top At_Offset_2 027e e214 | | Load 0x1,0x14 027f 01d7 | | Execute Vector,Field_Read 0280 e212 | | Load 0x1,0x12 0281 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0282 00d8 | | Load_Top At_Offset_0 0283 e214 | | Load 0x1,0x14 0284 01d7 | | Execute Vector,Field_Read 0285 8219 | | Call 0x1,0x19 0286 e5ff | | Load 0x2,-0x1 0287 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0288 00d9 | | Load_Top At_Offset_1 0289 01db | | Execute Vector,Length 028a e5ff | | Load 0x2,-0x1 028b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 028c 00d9 | | Load_Top At_Offset_1 028d 4801 |H | Short_Literal 0x1 028e 00db | | Load_Top At_Offset_3 028f 01db | | Execute Vector,Length 0290 00d8 | | Load_Top At_Offset_0 0291 00e2 | | Load_Encached Integer_Cache 0292 0260 | ` | Execute Discrete,In_Type 0293 7001 |p | Jump_Nonzero 0x295 0294 0801 | | Execute_Immediate Raise,0x1 0295 e5ff | | Load 0x2,-0x1 0296 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0297 01ce | | Execute Vector,Slice_Write 0298 e00f | | Load 0x0,0xf 0299 180e | | Execute Package,Field_Execute,Field_Number 0xe 029a 4801 |H | Short_Literal 0x1 029b 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "Created Heap for Job" 029d e402 | | Load 0x2,0x2 029e 01cc | | Execute Vector,Catenate 029f e010 | | Load 0x0,0x10 02a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ad | | .CONST 0x02ad ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0002 | | .CONST 0x0002 ; Number of locals 02ab INIT_02a8: 02ab e015 | | Load 0x0,0x15 02ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ad BODY_02a8: 02ad e214 | | Load 0x1,0x14 02ae e5ff | | Load 0x2,-0x1 02af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b0 e004 | | Load 0x0,0x4 02b1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02b2 00d9 | | Load_Top At_Offset_1 02b3 00db | | Load_Top At_Offset_3 02b4 01d7 | | Execute Vector,Field_Read 02b5 e004 | | Load 0x0,0x4 02b6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02b7 00da | | Load_Top At_Offset_2 02b8 e403 | | Load 0x2,0x3 02b9 01d6 | | Execute Vector,Field_Write 02ba 005b | [ | Store_Top Discrete,At_Offset_3 02bb 00d2 | | Pop_Control Pop_Count_2 02bc 00d8 | | Load_Top At_Offset_0 02bd 681a |h | Jump_Zero 0x2d8 02be 4801 |H | Short_Literal 0x1 02bf 4802 |H | Short_Literal 0x2 02c0 e011 | | Load 0x0,0x11 02c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02c2 035b | [ | Declare_Type Array,Constrained 02c3 0337 | 7 | Declare_Variable Array 02c4 00d9 | | Load_Top At_Offset_1 02c5 e011 | | Load 0x0,0x11 02c6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02c7 4801 |H | Short_Literal 0x1 02c8 00da | | Load_Top At_Offset_2 02c9 01d6 | | Execute Vector,Field_Write 02ca 4801 |H | Short_Literal 0x1 02cb e5ff | | Load 0x2,-0x1 02cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02cd e5ff | | Load 0x2,-0x1 02ce 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02cf 01cf | | Execute Vector,Slice_Read 02d0 e011 | | Load 0x0,0x11 02d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02d2 4802 |H | Short_Literal 0x2 02d3 00da | | Load_Top At_Offset_2 02d4 01d6 | | Execute Vector,Field_Write 02d5 6006 |` | Indirect_Literal Discrete,0x2dc,{0x00000000, 0x00006804} 02d6 e013 | | Load 0x0,0x13 02d7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d9 0000 0000 | | .XXX[0x3] 02db 0000 | | 02dc 0000 0000 | | .LITERAL {0x00000000, 0x00006804} 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; STRING TABLE 02e0 ; -------------------------------------------------------------------------------------- 02e0 000e | | .STRTAB 0x000e->0x02e7 ; "UNKNOWN" 02e1 0013 | | .STRTAB 0x0013->0x02ea ; "Returned Null_Segment for process" 02e2 0032 | 2 | .STRTAB 0x0032->0x02fb ; "Get" 02e3 0033 | 3 | .STRTAB 0x0033->0x02fc ; "Destroy" 02e4 0038 | 8 | .STRTAB 0x0038->0x0300 ; "!machine.temporary.rcf_heap_for_job_" 02e5 005a | Z | .STRTAB 0x005a->0x0312 ; "Created Heap for Job" 02e6 006c | l | .STREND 0x006c->0x031c 02e7 554e 4b4e |UNKN| .STRTAB_STRINGS 031c 0000 0000 | | .BLANK 0000[0x4] 0320 ; -------------------------------------------------------------------------------------- 0320 ; Debug Table 0320 ; -------------------------------------------------------------------------------------- 0320 0004 000d | | .DEBUG4 0x0004,0x000d,0xd9e4,0x0000,0x0001,0x0000 0326 0000 0000 | | .BLANK 0000[0xda]