|
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_0694fc
└─⟦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 0248 | H | .CONST 0x0248 ; 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 0073 | s | .CONST 0x0073 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0023 | # | .CONST 0x0023 ; Number of locals 000b INIT_0008: 000b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0028 c221 | ! | Store 0x1,0x21 0029 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 002b c222 | " | Store 0x1,0x22 002c 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 002e c212 | | Store 0x1,0x12 002f 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0031 c213 | | Store 0x1,0x13 0032 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0034 c220 | | Store 0x1,0x20 0035 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0037 c214 | | Store 0x1,0x14 0038 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 003a c215 | | Store 0x1,0x15 003b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 003d c21a | | Store 0x1,0x1a 003e 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0040 c21b | | Store 0x1,0x1b 0041 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0043 c21f | | Store 0x1,0x1f 0044 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0046 c216 | | Store 0x1,0x16 0047 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0049 c217 | | Store 0x1,0x17 004a 00bf | | Action Accept_Activation 004b e001 | | Load 0x0,0x1 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d 02c7 | | Declare_Variable Any 004e e001 | | Load 0x0,0x1 004f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0050 a223 | # | Store_Unchecked 0x1,0x23 0051 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0052 00c7 | | Action Elaborate_Subprogram 0053 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0054 00c7 | | Action Elaborate_Subprogram 0055 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0056 00c7 | | Action Elaborate_Subprogram 0057 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0058 00c7 | | Action Elaborate_Subprogram 0059 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 005a 00c7 | | Action Elaborate_Subprogram 005b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005c 00c7 | | Action Elaborate_Subprogram 005d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 005e 00c7 | | Action Elaborate_Subprogram 005f 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0060 00c7 | | Action Elaborate_Subprogram 0061 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0062 00c7 | | Action Elaborate_Subprogram 0063 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0064 00c7 | | Action Elaborate_Subprogram 0065 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0066 00c7 | | Action Elaborate_Subprogram 0067 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0068 00c7 | | Action Elaborate_Subprogram 0069 1d20 | | Execute_Immediate Reference_Lex_1,0x20 006a 00c7 | | Action Elaborate_Subprogram 006b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 006c 00c7 | | Action Elaborate_Subprogram 006d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 006e 00c7 | | Action Elaborate_Subprogram 006f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0070 00c7 | | Action Elaborate_Subprogram 0071 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0072 00c7 | | Action Elaborate_Subprogram 0073 BODY_0008: 0073 00bc | | Action Signal_Activated 0074 00bb | | Action Signal_Completion 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 007c e002 | | Load 0x0,0x2 007d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 007e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007f 0000 | | .XXX[0x1] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e001 | | Load 0x0,0x1 0084 180e | | Execute Package,Field_Execute,Field_Number 0xe 0085 e002 | | Load 0x0,0x2 0086 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0087 e002 | | Load 0x0,0x2 0088 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0089 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009a | | .CONST 0x009a ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 e003 | | Load 0x0,0x3 0094 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b 0095 02c7 | | Declare_Variable Any 0096 00d8 | | Load_Top At_Offset_0 0097 1c00 | | Execute_Immediate Run_Utility,0x0 0098 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 009a BODY_0090: 009a 00d9 | | Load_Top At_Offset_1 009b 0120 | | Execute Any,Is_Value 009c 6803 |h | Jump_Zero 0xa0 009d e003 | | Load 0x0,0x3 009e 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b 009f 7801 |x | Jump 0xa1 00a0 00d9 | | Load_Top At_Offset_1 00a1 e003 | | Load 0x0,0x3 00a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00a3 e003 | | Load 0x0,0x3 00a4 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00a5 c402 | | Store 0x2,0x2 00a6 00cf | | Action Mark_Auxiliary 00a7 7806 |x | Jump 0xae 00a8 8403 | | Call 0x2,0x3 00a9 00da | | Load_Top At_Offset_2 00aa e003 | | Load 0x0,0x3 00ab 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ac c402 | | Store 0x2,0x2 00ad 00c9 | | Action Pop_Auxiliary_Loop 00ae 00da | | Load_Top At_Offset_2 00af e003 | | Load 0x0,0x3 00b0 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00b1 6ff6 |o | Jump_Zero 0xa8 00b2 00ce | | Action Pop_Auxiliary 00b3 4800 |H | Short_Literal 0x0 00b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00d3 | | .CONST 0x00d3 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb e001 | | Load 0x0,0x1 00bc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00bd e001 | | Load 0x0,0x1 00be 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00bf e001 | | Load 0x0,0x1 00c0 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c1 e001 | | Load 0x0,0x1 00c2 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 00c3 e001 | | Load 0x0,0x1 00c4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c5 e001 | | Load 0x0,0x1 00c6 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 00c7 e001 | | Load 0x0,0x1 00c8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c9 e001 | | Load 0x0,0x1 00ca 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00cb e001 | | Load 0x0,0x1 00cc 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00cd 4801 |H | Short_Literal 0x1 00ce e001 | | Load 0x0,0x1 00cf 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00d0 e001 | | Load 0x0,0x1 00d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d2 011e | | Execute Any,Convert 00d3 BODY_00b8: 00d3 e001 | | Load 0x0,0x1 00d4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d5 c223 | # | Store 0x1,0x23 00d6 00d8 | | Load_Top At_Offset_0 00d7 e001 | | Load 0x0,0x1 00d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 e223 | # | Load 0x1,0x23 00e4 e001 | | Load 0x0,0x1 00e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 00f7 | | .CONST 0x00f7 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4801 |H | Short_Literal 0x1 00ec 4806 |H | Short_Literal 0x6 00ed 00e9 | | Load_Encached String_Cache 00ee 0334 | 4 | Declare_Variable Array,With_Constraint 00ef 500c |P | Indirect_Literal Any,0xfc,{0x5443502f, 0x49502020} 00f0 e004 | | Load 0x0,0x4 00f1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f2 e004 | | Load 0x0,0x4 00f3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f4 e005 | | Load 0x0,0x5 00f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f6 00ca | | Action Exit_Nullary_Function 00f7 TRAP_00e8: 00f7 0007 | | Action Break_Optional 00f8 00ea | | Load_Encached Null_String_Cache 00f9 00ca | | Action Exit_Nullary_Function 00fa 0000 0000 | | .XXX[0x2] 00fc 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 010d | | .CONST 0x010d ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4801 |H | Short_Literal 0x1 0104 4806 |H | Short_Literal 0x6 0105 00e9 | | Load_Encached String_Cache 0106 0334 | 4 | Declare_Variable Array,With_Constraint 0107 5008 |P | Indirect_Literal Any,0x110,{0x5443502f, 0x49502020} 0108 e004 | | Load 0x0,0x4 0109 1817 | | Execute Package,Field_Execute,Field_Number 0x17 010a e006 | | Load 0x0,0x6 010b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010c 00ca | | Action Exit_Nullary_Function 010d TRAP_0100: 010d 0007 | | Action Break_Optional 010e 00ea | | Load_Encached Null_String_Cache 010f 00ca | | Action Exit_Nullary_Function 0110 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0114 0000 0000 | | .BLANK 0000[0x4] 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 e001 | | Load 0x0,0x1 011c 180e | | Execute Package,Field_Execute,Field_Number 0xe 011d 4800 |H | Short_Literal 0x0 011e e5ff | | Load 0x2,-0x1 011f e002 | | Load 0x0,0x2 0120 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0121 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0131 | 1 | .CONST 0x0131 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e001 | | Load 0x0,0x1 012c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012d 02c7 | | Declare_Variable Any 012e e001 | | Load 0x0,0x1 012f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0130 a402 | | Store_Unchecked 0x2,0x2 0131 BODY_0128: 0131 e001 | | Load 0x0,0x1 0132 180e | | Execute Package,Field_Execute,Field_Number 0xe 0133 4802 |H | Short_Literal 0x2 0134 e5ff | | Load 0x2,-0x1 0135 e002 | | Load 0x0,0x2 0136 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0137 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b e001 | | Load 0x0,0x1 013c 180e | | Execute Package,Field_Execute,Field_Number 0xe 013d 4801 |H | Short_Literal 0x1 013e e5ff | | Load 0x2,-0x1 013f e002 | | Load 0x0,0x2 0140 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0141 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0142 0000 0000 | | .BLANK 0000[0x6] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b e001 | | Load 0x0,0x1 014c 180e | | Execute Package,Field_Execute,Field_Number 0xe 014d 4806 |H | Short_Literal 0x6 014e e5ff | | Load 0x2,-0x1 014f e002 | | Load 0x0,0x2 0150 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0151 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e001 | | Load 0x0,0x1 015c 180e | | Execute Package,Field_Execute,Field_Number 0xe 015d 4807 |H | Short_Literal 0x7 015e e5ff | | Load 0x2,-0x1 015f e002 | | Load 0x0,0x2 0160 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0192 | | .CONST 0x0192 ; Address of begin 0169 01ba | | .CONST 0x01ba ; Address of exception handler 016a 0005 | | .CONST 0x0005 ; Number of locals 016b INIT_0168: 016b 4801 |H | Short_Literal 0x1 016c 00db | | Load_Top At_Offset_3 016d 01db | | Execute Vector,Length 016e 00d8 | | Load_Top At_Offset_0 016f 00e2 | | Load_Encached Integer_Cache 0170 0260 | ` | Execute Discrete,In_Type 0171 7001 |p | Jump_Nonzero 0x173 0172 0801 | | Execute_Immediate Raise,0x1 0173 00e9 | | Load_Encached String_Cache 0174 035b | [ | Declare_Type Array,Constrained 0175 0337 | 7 | Declare_Variable Array 0176 00db | | Load_Top At_Offset_3 0177 01dd | | Execute Vector,First 0178 e5ff | | Load 0x2,-0x1 0179 01d7 | | Execute Vector,Field_Read 017a e006 | | Load 0x0,0x6 017b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017c e5ff | | Load 0x2,-0x1 017d 01dd | | Execute Vector,First 017e 0a01 | | Execute_Immediate Plus,0x1 017f 00d8 | | Load_Top At_Offset_0 0180 00e2 | | Load_Encached Integer_Cache 0181 0260 | ` | Execute Discrete,In_Type 0182 7001 |p | Jump_Nonzero 0x184 0183 0801 | | Execute_Immediate Raise,0x1 0184 e5ff | | Load 0x2,-0x1 0185 01dc | | Execute Vector,Last 0186 e5ff | | Load 0x2,-0x1 0187 01cf | | Execute Vector,Slice_Read 0188 e006 | | Load 0x0,0x6 0189 1815 | | Execute Package,Field_Execute,Field_Number 0x15 018a 01ca | | Execute Vector,Prepend 018b 00d9 | | Load_Top At_Offset_1 018c 01d4 | | Execute Vector,Structure_Write 018d 00e3 | | Load_Encached Natural_Cache 018e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 018f 00e2 | | Load_Encached Integer_Cache 0190 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0192 BODY_0168: 0192 00cf | | Action Mark_Auxiliary 0193 00db | | Load_Top At_Offset_3 0194 e5ff | | Load 0x2,-0x1 0195 01db | | Execute Vector,Length 0196 00d8 | | Load_Top At_Offset_0 0197 00e2 | | Load_Encached Integer_Cache 0198 0260 | ` | Execute Discrete,In_Type 0199 7001 |p | Jump_Nonzero 0x19b 019a 0801 | | Execute_Immediate Raise,0x1 019b e402 | | Load 0x2,0x2 019c 01cf | | Execute Vector,Slice_Read 019d 8405 | | Call 0x2,0x5 019e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 019f 00da | | Load_Top At_Offset_2 01a0 0a01 | | Execute_Immediate Plus,0x1 01a1 c403 | | Store 0x2,0x3 01a2 00da | | Load_Top At_Offset_2 01a3 0f00 | | Execute_Immediate Equal,0x0 01a4 e403 | | Load 0x2,0x3 01a5 e5ff | | Load 0x2,-0x1 01a6 01db | | Execute Vector,Length 01a7 027d | } | Execute Discrete,Greater 01a8 0278 | x | Execute Discrete,Or 01a9 6801 |h | Jump_Zero 0x1ab 01aa 780a |x | Jump 0x1b5 01ab 00db | | Load_Top At_Offset_3 01ac e402 | | Load 0x2,0x2 01ad 01d7 | | Execute Vector,Field_Read 01ae e006 | | Load 0x0,0x6 01af 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b0 e403 | | Load 0x2,0x3 01b1 e402 | | Load 0x2,0x2 01b2 01d6 | | Execute Vector,Field_Write 01b3 00c9 | | Action Pop_Auxiliary_Loop 01b4 7fde | | Jump 0x193 01b5 00ce | | Action Pop_Auxiliary 01b6 00db | | Load_Top At_Offset_3 01b7 00e9 | | Load_Encached String_Cache 01b8 01c6 | | Execute Vector,Convert_To_Formal 01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ba TRAP_0168: 01ba 0007 | | Action Break_Optional 01bb e402 | | Load 0x2,0x2 01bc 00e9 | | Load_Encached String_Cache 01bd 01c6 | | Execute Vector,Convert_To_Formal 01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 e006 | | Load 0x0,0x6 01c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc e006 | | Load 0x0,0x6 01cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cf 0000 | | .XXX[0x1] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 01dd | | .CONST 0x01dd ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 8210 | | Call 0x1,0x10 01d4 0092 0226 | &| Action Push_String_Extended,0x226 ; "<PROFILE>" 01d6 0092 0227 | '| Action Push_String_Extended,0x227 ; "<DIRECTORIES>" 01d8 e5ff | | Load 0x2,-0x1 01d9 e007 | | Load 0x0,0x7 01da 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01db 8211 | | Call 0x1,0x11 01dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dd TRAP_01d0: 01dd 0007 | | Action Break_Optional 01de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 0092 0228 | (| Action Push_String_Extended,0x228 ; "!machine.temporary.discover_" 01e5 4800 |H | Short_Literal 0x0 01e6 4803 |H | Short_Literal 0x3 01e7 4804 |H | Short_Literal 0x4 01e8 e008 | | Load 0x0,0x8 01e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ea e008 | | Load 0x0,0x8 01eb 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01ec 01cc | | Execute Vector,Catenate 01ed 00ca | | Action Exit_Nullary_Function 01ee 0000 0000 | | .XXX[0x2] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f8 | | .CONST 0x01f8 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e402 | | Load 0x2,0x2 01f4 e003 | | Load 0x0,0x3 01f5 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 01f6 e003 | | Load 0x0,0x3 01f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f8 BODY_01f0: 01f8 4801 |H | Short_Literal 0x1 01f9 00d9 | | Load_Top At_Offset_1 01fa e5ff | | Load 0x2,-0x1 01fb e006 | | Load 0x0,0x6 01fc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01fd 6803 |h | Jump_Zero 0x201 01fe 4801 |H | Short_Literal 0x1 01ff 00cb | | Action Pop_Block_With_Result 0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0201 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0202 0000 0000 | | .BLANK 0000[0x6] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00cf | | Action Mark_Auxiliary 020c 00db | | Load_Top At_Offset_3 020d 01d9 | | Execute Vector,Reverse_Bounds 020e 0263 | c | Execute Discrete,Above_Bound 020f 7013 |p | Jump_Nonzero 0x223 0210 00d8 | | Load_Top At_Offset_0 0211 e7ff | | Load 0x3,-0x1 0212 01d7 | | Execute Vector,Field_Read 0213 0f5f | _ | Execute_Immediate Equal,0x5f 0214 00d9 | | Load_Top At_Offset_1 0215 e7ff | | Load 0x3,-0x1 0216 01d7 | | Execute Vector,Field_Read 0217 0f2e | . | Execute_Immediate Equal,0x2e 0218 0278 | x | Execute Discrete,Or 0219 00d9 | | Load_Top At_Offset_1 021a e7ff | | Load 0x3,-0x1 021b 01d7 | | Execute Vector,Field_Read 021c 0f21 | ! | Execute_Immediate Equal,0x21 021d 0278 | x | Execute Discrete,Or 021e 6802 |h | Jump_Zero 0x221 021f 00d8 | | Load_Top At_Offset_0 0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0221 00c8 | | Action Pop_Auxiliary_Range 0222 3fed |? | Loop_Increasing 0x210 0223 00ce | | Action Pop_Auxiliary 0224 4800 |H | Short_Literal 0x0 0225 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0226 ; -------------------------------------------------------------------------------------- 0226 ; STRING TABLE 0226 ; -------------------------------------------------------------------------------------- 0226 0008 | | .STRTAB 0x0008->0x022a ; "<PROFILE>" 0227 000f | | .STRTAB 0x000f->0x022e ; "<DIRECTORIES>" 0228 001a | | .STRTAB 0x001a->0x0235 ; "!machine.temporary.discover_" 0229 0034 | 4 | .STREND 0x0034->0x0243 022a 3c50 524f |<PRO| .STRTAB_STRINGS 0243 0000 0000 | | .BLANK 0000[0x5] 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug Table 0248 ; -------------------------------------------------------------------------------------- 0248 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0e3a,0x0000,0x0001,0x0000 024e bdd1 957d | }| .XXX[0xf3] 0250 55cd 95c9 |U | 0252 b985 b594 | | 0254 80f4 f881 | | 0256 4995 b5bd |I | 0258 d195 7d55 | }U| 025a cd95 c9b9 | | 025c 85b5 9481 | | 025e bd89 d185 | | 0260 a5b9 9590 | | 0262 81d5 cda5 | | 0264 b99c 8149 | I| 0266 c18d 7d05 | } | 0268 8d8d 95cd | | 026a cd7d 55d1 | }U | 026c a5b1 a5d1 | | 026e a595 cd49 | I| 0270 95b5 bdd1 | | 0272 957d 55cd | }U | 0274 95c9 b985 | | 0276 b594 81a5 | | 0278 cc81 85cd | | 027a cdd5 b595 | | 027c 9081 d1bc | | 027e 8189 9481 | | 0280 d1a1 9481 | | 0282 cd85 b594 | | 0284 8185 cc81 | | 0286 31bd 8d85 |1 | 0288 b17d 55cd | }U | 028a 95c9 b985 | | 028c b595 19d1 | | 028e c0b9 4185 | A | 0290 cdcd ddbd | | 0292 c991 4995 | I | 0294 b5bd d195 | | 0296 7d41 85cd |}A | 0298 cddd bdc9 | | 029a 9081 bd89 | | 029c d185 a5b9 | | 029e 9590 8199 | | 02a0 c9bd b481 | | 02a2 d1a1 9481 | | 02a4 b1a5 89c9 | | 02a6 85c9 e481 | | 02a8 cddd a5d1 | | 02aa 8da0 8119 | | 02ac d1c0 b941 | A| 02ae 85cd cddd | | 02b0 bdc9 9149 | I| 02b2 95b5 bdd1 | | 02b4 957d 4185 | }A | 02b6 cdcd ddbd | | 02b8 c990 80f4 | | 02ba f881 4995 | I | 02bc b5bd d195 | | 02be 7d41 85cd |}A | 02c0 cddd bdc9 | | 02c2 9081 bd89 | | 02c4 d185 a5b9 | | 02c6 9590 81d5 | | 02c8 cda5 b99c | | 02ca 8149 c18d | I | 02cc 7d05 8d8d |} | 02ce 95cd cd7d | }| 02d0 55d1 a5b1 |U | 02d2 a5d1 a595 | | 02d4 cd19 d1c0 | | 02d6 b949 95b5 | I | 02d8 bdd1 957d | }| 02da 11a5 c995 | | 02dc 8dd1 bdc9 | | 02de e549 95b5 | I | 02e0 bdd1 957d | }| 02e2 11a5 c995 | | 02e4 8dd1 bdc9 | | 02e6 e481 bd89 | | 02e8 d185 a5b9 | | 02ea 9590 8199 | | 02ec c9bd b481 | | 02ee d1a1 9481 | | 02f0 b1a5 89c9 | | 02f2 85c9 e481 | | 02f4 cddd a5d1 | | 02f6 8da0 8119 | | 02f8 d1c0 b949 | I| 02fa 95b5 bdd1 | | 02fc 957d 11a5 | } | 02fe c995 8dd1 | | 0300 bdc9 e549 | I| 0302 95b5 bdd1 | | 0304 957d 11a5 | } | 0306 c995 8dd1 | | 0308 bdc9 e480 | | 030a f4f8 814d | M| 030c 95cd cda5 | | 030e bdb9 7d19 | } | 0310 d1c0 b949 | I| 0312 95b5 bdd1 | | 0314 957d 11a5 | } | 0316 c995 8dd1 | | 0318 bdc9 e549 | I| 031a 95b5 bdd1 | | 031c 957d 11a5 | } | 031e c995 8dd1 | | 0320 bdc9 e481 | | 0322 bd89 d185 | | 0324 a5b9 9590 | | 0326 8199 c9bd | | 0328 b481 d1a1 | | 032a 9481 cd95 | | 032c cdcd a5bd | | 032e b881 cddd | | 0330 a5d1 8da0 | | 0332 814d 95cd | M | 0334 cda5 bdb9 | | 0336 7d19 d1c0 |} | 0338 b949 95b5 | I | 033a bdd1 957d | }| 033c 11a5 c995 | | 033e 8dd1 bdc9 | | 0340 e400 | | 0341 0000 0000 | | .BLANK 0000[0x5] 0346 1000 3779 | 7y| .XXX[0x1c] 0348 3400 0000 |4 | 034a 0400 0000 | | 034c 0000 14c4 | | 034e d0d9 1504 | | 0350 0000 0018 | | 0352 c8cc c4e4 | | 0354 c0cc 0000 | | 0356 02b0 003d | =| 0358 6000 0000 |` | 035a 0140 0400 | @ | 035c 02ec 0002 | | 035e 0000 0098 | | 0360 0010 004c | L| 0362 0310 0310 | | .BLANK 0310[0x6] 0368 0313 8004 | | .XXX[0x21] 036a 6c34 04a7 |l4 | 036c 0844 0a68 | D h| 036e 00af 0848 | H| 0370 0a68 00ef | h | 0372 084c 0a68 | L h| 0374 010f 0840 | @| 0376 02fc 7448 | tH| 0378 031c 744c | tL| 037a 031c 7440 | t@| 037c 031c 02f0 | | 037e 02ec 00ac | | 0380 0010 0005 | | 0382 2028 036c | ( l| 0384 072f 97fb | / | 0386 8004 60ad | ` | 0388 1408 | | 0389 0000 0000 | | .BLANK 0000[0x6] 038f 00ec 0010 | | .XXX[0x14] 0391 0004 036b | k| 0393 97fb 8004 | | 0395 60ad 1408 |` | 0397 010c 0010 | | 0399 0004 036b | k| 039b 8004 6095 | ` | 039d a010 036b | k| 039f 8004 6067 | `g| 03a1 17fd 1404 | | 03a3 0000 0000 | | .BLANK 0000[0x4] 03a7 0010 0036 | 6| .XXX[0x34] 03a9 4700 0000 |G | 03ab 0004 0000 | | 03ad 0000 0014 | | 03af c4d0 d915 | | 03b1 0800 0000 | | 03b3 18c8 cce4 | | 03b5 c4c0 cc00 | | 03b7 0003 7000 | p | 03b9 3d60 0000 |=` | 03bb 0001 a004 | | 03bd 0002 ec00 | | 03bf 0200 0000 | | 03c1 8000 1000 | | 03c3 4380 046c |C l| 03c5 6b80 046c |k l| 03c7 340a 7c01 |4 | | 03c9 4d20 080c |M | 03cb b80a 6800 | h | 03cd ac0a 6800 | h | 03cf ec0a 6801 | h | 03d1 2c02 fc74 |, t| 03d3 3803 1c74 |8 t| 03d5 3c03 1c74 |< t| 03d7 4003 1c02 |@ | 03d9 f002 ec00 | | 03db 0000 0000 | | .BLANK 0000[0x6] 03e1 ac00 1000 | | .XXX[0xb] 03e3 0403 6cf0 | l | 03e5 0797 f8f0 | | 03e7 0397 ff80 | | 03e9 0860 4d14 | `M | 03eb 0800 | | 03ec 0000 0000 | | .BLANK 0000[0x5] 03f1 ec00 1000 | | .XXX[0xb] 03f3 0403 6cf0 | l | 03f5 0797 f8f0 | | 03f7 0397 ff80 | | 03f9 0860 4d14 | `M | 03fb 0800 | | 03fc 0000 0000 | | .BLANK 0000[0x4]