|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 03b0 | | .CONST 0x03b0 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0011 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0013 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0015 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0017 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0019 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 001b 00bf | | Action Accept_Activation 001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001d 00c7 | | Action Elaborate_Subprogram 001e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 001f 00c7 | | Action Elaborate_Subprogram 0020 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0021 00c7 | | Action Elaborate_Subprogram 0022 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0023 00c7 | | Action Elaborate_Subprogram 0024 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0025 00c7 | | Action Elaborate_Subprogram 0026 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0027 00c7 | | Action Elaborate_Subprogram 0028 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0029 00c7 | | Action Elaborate_Subprogram 002a 1d17 | | Execute_Immediate Reference_Lex_1,0x17 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0046 | F | .CONST 0x0046 ; Address of begin 0031 007e | ~ | .CONST 0x007e ; Address of exception handler 0032 0004 | | .CONST 0x0004 ; Number of locals 0033 INIT_0030: 0033 e002 | | Load 0x0,0x2 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 02c7 | | Declare_Variable Any 0036 e002 | | Load 0x0,0x2 0037 180e | | Execute Package,Field_Execute,Field_Number 0xe 0038 a402 | | Store_Unchecked 0x2,0x2 0039 e002 | | Load 0x0,0x2 003a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003b 02c7 | | Declare_Variable Any 003c 0092 02d0 | | Action Push_String_Extended,0x2d0 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 003e e002 | | Load 0x0,0x2 003f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0040 a403 | | Store_Unchecked 0x2,0x3 0041 e003 | | Load 0x0,0x3 0042 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0043 02c7 | | Declare_Variable Any 0044 00d8 | | Load_Top At_Offset_0 0045 1c00 | | Execute_Immediate Run_Utility,0x0 0046 BODY_0030: 0046 e5ff | | Load 0x2,-0x1 0047 01db | | Execute Vector,Length 0048 7001 |p | Jump_Nonzero 0x4a 0049 4502 |E | Exit_Suprogram New_Top_Offset 0x2 004a 00d9 | | Load_Top At_Offset_1 004b e002 | | Load 0x0,0x2 004c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 004d e20f | | Load 0x1,0xf 004e e003 | | Load 0x0,0x3 004f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0050 e002 | | Load 0x0,0x2 0051 180e | | Execute Package,Field_Execute,Field_Number 0xe 0052 4803 |H | Short_Literal 0x3 0053 e5ff | | Load 0x2,-0x1 0054 e004 | | Load 0x0,0x4 0055 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0056 e003 | | Load 0x0,0x3 0057 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0058 e20e | | Load 0x1,0xe 0059 8005 | | Call 0x0,0x5 005a 7008 |p | Jump_Nonzero 0x63 005b 00d8 | | Load_Top At_Offset_0 005c 00ea | | Load_Encached Null_String_Cache 005d e20e | | Load 0x1,0xe 005e 4801 |H | Short_Literal 0x1 005f e003 | | Load 0x0,0x3 0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0061 c404 | | Store 0x2,0x4 0062 7806 |x | Jump 0x69 0063 00d8 | | Load_Top At_Offset_0 0064 00ea | | Load_Encached Null_String_Cache 0065 e20e | | Load 0x1,0xe 0066 e003 | | Load 0x0,0x3 0067 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0068 c404 | | Store 0x2,0x4 0069 00d8 | | Load_Top At_Offset_0 006a e003 | | Load 0x0,0x3 006b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 006c e002 | | Load 0x0,0x2 006d 180e | | Execute Package,Field_Execute,Field_Number 0xe 006e 4803 |H | Short_Literal 0x3 006f e5ff | | Load 0x2,-0x1 0070 e004 | | Load 0x0,0x4 0071 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0072 e003 | | Load 0x0,0x3 0073 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0074 e002 | | Load 0x0,0x2 0075 180e | | Execute Package,Field_Execute,Field_Number 0xe 0076 4803 |H | Short_Literal 0x3 0077 e5ff | | Load 0x2,-0x1 0078 e004 | | Load 0x0,0x4 0079 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007a 00da | | Load_Top At_Offset_2 007b e002 | | Load 0x0,0x2 007c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 007d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007e TRAP_0030: 007e 0007 | | Action Break_Optional 007f 00db | | Load_Top At_Offset_3 0080 e002 | | Load 0x0,0x2 0081 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0082 00d8 | | Load_Top At_Offset_0 0083 0101 | | Execute Exception,Reraise 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 009e | | .CONST 0x009e ; Address of begin 0089 00de | | .CONST 0x00de ; Address of exception handler 008a 0004 | | .CONST 0x0004 ; Number of locals 008b INIT_0088: 008b e002 | | Load 0x0,0x2 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 02c7 | | Declare_Variable Any 008e e002 | | Load 0x0,0x2 008f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0090 a402 | | Store_Unchecked 0x2,0x2 0091 e002 | | Load 0x0,0x2 0092 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0093 02c7 | | Declare_Variable Any 0094 0092 02d0 | | Action Push_String_Extended,0x2d0 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 0096 e002 | | Load 0x0,0x2 0097 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0098 a403 | | Store_Unchecked 0x2,0x3 0099 e003 | | Load 0x0,0x3 009a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009b 02c7 | | Declare_Variable Any 009c 00d8 | | Load_Top At_Offset_0 009d 1c00 | | Execute_Immediate Run_Utility,0x0 009e BODY_0088: 009e e5ff | | Load 0x2,-0x1 009f 01db | | Execute Vector,Length 00a0 7003 |p | Jump_Nonzero 0xa4 00a1 e20f | | Load 0x1,0xf 00a2 8006 | | Call 0x0,0x6 00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a4 00d9 | | Load_Top At_Offset_1 00a5 e002 | | Load 0x0,0x2 00a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a7 00d8 | | Load_Top At_Offset_0 00a8 00ea | | Load_Encached Null_String_Cache 00a9 e20f | | Load 0x1,0xf 00aa e003 | | Load 0x0,0x3 00ab 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ac c404 | | Store 0x2,0x4 00ad 00d8 | | Load_Top At_Offset_0 00ae e003 | | Load 0x0,0x3 00af 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00b0 e002 | | Load 0x0,0x2 00b1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b2 4803 |H | Short_Literal 0x3 00b3 e5ff | | Load 0x2,-0x1 00b4 e004 | | Load 0x0,0x4 00b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b6 e003 | | Load 0x0,0x3 00b7 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00b8 e20f | | Load 0x1,0xf 00b9 8006 | | Call 0x0,0x6 00ba 00d8 | | Load_Top At_Offset_0 00bb 00ea | | Load_Encached Null_String_Cache 00bc e20e | | Load 0x1,0xe 00bd e003 | | Load 0x0,0x3 00be 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00bf c404 | | Store 0x2,0x4 00c0 00d8 | | Load_Top At_Offset_0 00c1 e003 | | Load 0x0,0x3 00c2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00c3 4801 |H | Short_Literal 0x1 00c4 e003 | | Load 0x0,0x3 00c5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00c6 e002 | | Load 0x0,0x2 00c7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c8 4803 |H | Short_Literal 0x3 00c9 e5ff | | Load 0x2,-0x1 00ca e004 | | Load 0x0,0x4 00cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cc 4802 |H | Short_Literal 0x2 00cd e003 | | Load 0x0,0x3 00ce 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00cf e003 | | Load 0x0,0x3 00d0 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00d1 4801 |H | Short_Literal 0x1 00d2 e003 | | Load 0x0,0x3 00d3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00d4 e002 | | Load 0x0,0x2 00d5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d6 4803 |H | Short_Literal 0x3 00d7 e5ff | | Load 0x2,-0x1 00d8 e004 | | Load 0x0,0x4 00d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00da 00da | | Load_Top At_Offset_2 00db e002 | | Load 0x0,0x2 00dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00de TRAP_0088: 00de 0007 | | Action Break_Optional 00df 00db | | Load_Top At_Offset_3 00e0 e002 | | Load 0x0,0x2 00e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e2 00d8 | | Load_Top At_Offset_0 00e3 0101 | | Execute Exception,Reraise 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00fe | | .CONST 0x00fe ; Address of begin 00e9 013e | > | .CONST 0x013e ; Address of exception handler 00ea 0004 | | .CONST 0x0004 ; Number of locals 00eb INIT_00e8: 00eb e002 | | Load 0x0,0x2 00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ed 02c7 | | Declare_Variable Any 00ee e002 | | Load 0x0,0x2 00ef 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f0 a402 | | Store_Unchecked 0x2,0x2 00f1 e002 | | Load 0x0,0x2 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 02c7 | | Declare_Variable Any 00f4 0092 02d0 | | Action Push_String_Extended,0x2d0 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 00f6 e002 | | Load 0x0,0x2 00f7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00f8 a403 | | Store_Unchecked 0x2,0x3 00f9 e003 | | Load 0x0,0x3 00fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fb 02c7 | | Declare_Variable Any 00fc 00d8 | | Load_Top At_Offset_0 00fd 1c00 | | Execute_Immediate Run_Utility,0x0 00fe BODY_00e8: 00fe e5ff | | Load 0x2,-0x1 00ff 01db | | Execute Vector,Length 0100 7003 |p | Jump_Nonzero 0x104 0101 e20f | | Load 0x1,0xf 0102 8006 | | Call 0x0,0x6 0103 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0104 00d9 | | Load_Top At_Offset_1 0105 e002 | | Load 0x0,0x2 0106 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0107 00d8 | | Load_Top At_Offset_0 0108 00ea | | Load_Encached Null_String_Cache 0109 e20f | | Load 0x1,0xf 010a e003 | | Load 0x0,0x3 010b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 010c c404 | | Store 0x2,0x4 010d 00d8 | | Load_Top At_Offset_0 010e e003 | | Load 0x0,0x3 010f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0110 e002 | | Load 0x0,0x2 0111 180e | | Execute Package,Field_Execute,Field_Number 0xe 0112 4805 |H | Short_Literal 0x5 0113 e5ff | | Load 0x2,-0x1 0114 e004 | | Load 0x0,0x4 0115 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0116 e003 | | Load 0x0,0x3 0117 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0118 e20f | | Load 0x1,0xf 0119 8006 | | Call 0x0,0x6 011a 00d8 | | Load_Top At_Offset_0 011b 00ea | | Load_Encached Null_String_Cache 011c e20e | | Load 0x1,0xe 011d e003 | | Load 0x0,0x3 011e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 011f c404 | | Store 0x2,0x4 0120 00d8 | | Load_Top At_Offset_0 0121 e003 | | Load 0x0,0x3 0122 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0123 4801 |H | Short_Literal 0x1 0124 e003 | | Load 0x0,0x3 0125 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0126 e002 | | Load 0x0,0x2 0127 180e | | Execute Package,Field_Execute,Field_Number 0xe 0128 4805 |H | Short_Literal 0x5 0129 e5ff | | Load 0x2,-0x1 012a e004 | | Load 0x0,0x4 012b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012c 4802 |H | Short_Literal 0x2 012d e003 | | Load 0x0,0x3 012e 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 012f e003 | | Load 0x0,0x3 0130 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0131 4801 |H | Short_Literal 0x1 0132 e003 | | Load 0x0,0x3 0133 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0134 e002 | | Load 0x0,0x2 0135 180e | | Execute Package,Field_Execute,Field_Number 0xe 0136 4805 |H | Short_Literal 0x5 0137 e5ff | | Load 0x2,-0x1 0138 e004 | | Load 0x0,0x4 0139 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013a 00da | | Load_Top At_Offset_2 013b e002 | | Load 0x0,0x2 013c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013e TRAP_00e8: 013e 0007 | | Action Break_Optional 013f 00db | | Load_Top At_Offset_3 0140 e002 | | Load 0x0,0x2 0141 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0142 00d8 | | Load_Top At_Offset_0 0143 0101 | | Execute Exception,Reraise 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0155 | U | .CONST 0x0155 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "---- Beginning Process: " 014d 00db | | Load_Top At_Offset_3 014e 01cc | | Execute Vector,Catenate 014f 0007 | | Action Break_Optional 0150 e003 | | Load 0x0,0x3 0151 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0152 02c7 | | Declare_Variable Any 0153 00d8 | | Load_Top At_Offset_0 0154 1c00 | | Execute_Immediate Run_Utility,0x0 0155 BODY_0148: 0155 00d8 | | Load_Top At_Offset_0 0156 00ea | | Load_Encached Null_String_Cache 0157 e20f | | Load 0x1,0xf 0158 e003 | | Load 0x0,0x3 0159 1817 | | Execute Package,Field_Execute,Field_Number 0x17 015a c403 | | Store 0x2,0x3 015b 4802 |H | Short_Literal 0x2 015c 00d9 | | Load_Top At_Offset_1 015d e003 | | Load 0x0,0x3 015e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 015f 00d9 | | Load_Top At_Offset_1 0160 00d9 | | Load_Top At_Offset_1 0161 e003 | | Load 0x0,0x3 0162 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0163 00d8 | | Load_Top At_Offset_0 0164 e003 | | Load 0x0,0x3 0165 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0166 c403 | | Store 0x2,0x3 0167 00d8 | | Load_Top At_Offset_0 0168 00ea | | Load_Encached Null_String_Cache 0169 e20e | | Load 0x1,0xe 016a e003 | | Load 0x0,0x3 016b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 016c c403 | | Store 0x2,0x3 016d 4802 |H | Short_Literal 0x2 016e 00d9 | | Load_Top At_Offset_1 016f e003 | | Load 0x0,0x3 0170 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0171 00d9 | | Load_Top At_Offset_1 0172 00d9 | | Load_Top At_Offset_1 0173 e003 | | Load 0x0,0x3 0174 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0175 00d8 | | Load_Top At_Offset_0 0176 e003 | | Load 0x0,0x3 0177 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0178 c403 | | Store 0x2,0x3 0179 4802 |H | Short_Literal 0x2 017a e003 | | Load 0x0,0x3 017b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 017c 00d9 | | Load_Top At_Offset_1 017d e003 | | Load 0x0,0x3 017e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 017f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 018d | | .CONST 0x018d ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "%%%% Process Failure: " 0185 00db | | Load_Top At_Offset_3 0186 01cc | | Execute Vector,Catenate 0187 0007 | | Action Break_Optional 0188 e003 | | Load 0x0,0x3 0189 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018a 02c7 | | Declare_Variable Any 018b 00d8 | | Load_Top At_Offset_0 018c 1c00 | | Execute_Immediate Run_Utility,0x0 018d BODY_0180: 018d 00d8 | | Load_Top At_Offset_0 018e 00ea | | Load_Encached Null_String_Cache 018f e20f | | Load 0x1,0xf 0190 e003 | | Load 0x0,0x3 0191 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0192 c403 | | Store 0x2,0x3 0193 4801 |H | Short_Literal 0x1 0194 00d9 | | Load_Top At_Offset_1 0195 e003 | | Load 0x0,0x3 0196 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0197 00d9 | | Load_Top At_Offset_1 0198 00d9 | | Load_Top At_Offset_1 0199 e003 | | Load 0x0,0x3 019a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 019b 4801 |H | Short_Literal 0x1 019c 00d9 | | Load_Top At_Offset_1 019d e003 | | Load 0x0,0x3 019e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 019f 00d8 | | Load_Top At_Offset_0 01a0 e003 | | Load 0x0,0x3 01a1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a2 c403 | | Store 0x2,0x3 01a3 00d8 | | Load_Top At_Offset_0 01a4 00ea | | Load_Encached Null_String_Cache 01a5 e20e | | Load 0x1,0xe 01a6 e003 | | Load 0x0,0x3 01a7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01a8 c403 | | Store 0x2,0x3 01a9 4801 |H | Short_Literal 0x1 01aa 00d9 | | Load_Top At_Offset_1 01ab e003 | | Load 0x0,0x3 01ac 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01ad 00d9 | | Load_Top At_Offset_1 01ae 00d9 | | Load_Top At_Offset_1 01af e003 | | Load 0x0,0x3 01b0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01b1 4801 |H | Short_Literal 0x1 01b2 00d9 | | Load_Top At_Offset_1 01b3 e003 | | Load 0x0,0x3 01b4 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01b5 00d8 | | Load_Top At_Offset_0 01b6 e003 | | Load 0x0,0x3 01b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01b8 c403 | | Store 0x2,0x3 01b9 4801 |H | Short_Literal 0x1 01ba e003 | | Load 0x0,0x3 01bb 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01bc 00d9 | | Load_Top At_Offset_1 01bd e003 | | Load 0x0,0x3 01be 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01bf 4801 |H | Short_Literal 0x1 01c0 e003 | | Load 0x0,0x3 01c1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01d5 | | .CONST 0x01d5 ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0003 | | .CONST 0x0003 ; Number of locals 01cb INIT_01c8: 01cb 0092 02d3 | | Action Push_String_Extended,0x2d3 ; "------- Beginning step: " 01cd 00db | | Load_Top At_Offset_3 01ce 01cc | | Execute Vector,Catenate 01cf 0007 | | Action Break_Optional 01d0 e003 | | Load 0x0,0x3 01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d2 02c7 | | Declare_Variable Any 01d3 00d8 | | Load_Top At_Offset_0 01d4 1c00 | | Execute_Immediate Run_Utility,0x0 01d5 BODY_01c8: 01d5 00d8 | | Load_Top At_Offset_0 01d6 00ea | | Load_Encached Null_String_Cache 01d7 e20f | | Load 0x1,0xf 01d8 e003 | | Load 0x0,0x3 01d9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01da c403 | | Store 0x2,0x3 01db 4801 |H | Short_Literal 0x1 01dc 00d9 | | Load_Top At_Offset_1 01dd e003 | | Load 0x0,0x3 01de 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01df 00d9 | | Load_Top At_Offset_1 01e0 00d9 | | Load_Top At_Offset_1 01e1 e003 | | Load 0x0,0x3 01e2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01e3 4801 |H | Short_Literal 0x1 01e4 00d9 | | Load_Top At_Offset_1 01e5 e003 | | Load 0x0,0x3 01e6 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01e7 00d8 | | Load_Top At_Offset_0 01e8 e003 | | Load 0x0,0x3 01e9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ea c403 | | Store 0x2,0x3 01eb 00d8 | | Load_Top At_Offset_0 01ec 00ea | | Load_Encached Null_String_Cache 01ed e20e | | Load 0x1,0xe 01ee e003 | | Load 0x0,0x3 01ef 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01f0 c403 | | Store 0x2,0x3 01f1 4801 |H | Short_Literal 0x1 01f2 00d9 | | Load_Top At_Offset_1 01f3 e003 | | Load 0x0,0x3 01f4 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01f5 00d9 | | Load_Top At_Offset_1 01f6 00d9 | | Load_Top At_Offset_1 01f7 e003 | | Load 0x0,0x3 01f8 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01f9 00d8 | | Load_Top At_Offset_0 01fa e003 | | Load 0x0,0x3 01fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01fc c403 | | Store 0x2,0x3 01fd 4801 |H | Short_Literal 0x1 01fe e003 | | Load 0x0,0x3 01ff 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0200 00d9 | | Load_Top At_Offset_1 0201 e003 | | Load 0x0,0x3 0202 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0203 00d8 | | Load_Top At_Offset_0 0204 00ea | | Load_Encached Null_String_Cache 0205 e5fe | | Load 0x2,-0x2 0206 4801 |H | Short_Literal 0x1 0207 e003 | | Load 0x0,0x3 0208 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0209 c403 | | Store 0x2,0x3 020a 00d8 | | Load_Top At_Offset_0 020b e003 | | Load 0x0,0x3 020c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 020d 00d8 | | Load_Top At_Offset_0 020e c5fd | | Store 0x2,-0x3 020f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0226 | & | .CONST 0x0226 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0004 | | .CONST 0x0004 ; Number of locals 0213 INIT_0210: 0213 e003 | | Load 0x0,0x3 0214 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0215 02c7 | | Declare_Variable Any 0216 00d8 | | Load_Top At_Offset_0 0217 1c00 | | Execute_Immediate Run_Utility,0x0 0218 e002 | | Load 0x0,0x2 0219 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021a 02c7 | | Declare_Variable Any 021b e002 | | Load 0x0,0x2 021c 180e | | Execute Package,Field_Execute,Field_Number 0xe 021d a403 | | Store_Unchecked 0x2,0x3 021e e002 | | Load 0x0,0x2 021f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0220 02c7 | | Declare_Variable Any 0221 0092 02d4 | | Action Push_String_Extended,0x2d4 ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols),:::|---|+++|>>>|++*|!!!|***|%%%, Activity = !Machine.Release.Current.Activity" 0223 e002 | | Load 0x0,0x2 0224 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0225 a404 | | Store_Unchecked 0x2,0x4 0226 BODY_0210: 0226 e5fe | | Load 0x2,-0x2 0227 e003 | | Load 0x0,0x3 0228 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0229 012e | . | Execute Any,Not_Equal 022a 6823 |h# | Jump_Zero 0x24e 022b e002 | | Load 0x0,0x2 022c 180e | | Execute Package,Field_Execute,Field_Number 0xe 022d 4806 |H | Short_Literal 0x6 022e 0092 02d5 | | Action Push_String_Extended,0x2d5 ; "This procedure disturbs the io stack" 0230 e004 | | Load 0x0,0x4 0231 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0232 00cf | | Action Mark_Auxiliary 0233 4832 |H2 | Short_Literal 0x32 0234 4801 |H | Short_Literal 0x1 0235 0007 | | Action Break_Optional 0236 e003 | | Load 0x0,0x3 0237 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0238 e5fe | | Load 0x2,-0x2 0239 e003 | | Load 0x0,0x3 023a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 023b 012f | / | Execute Any,Equal 023c 6802 |h | Jump_Zero 0x23f 023d 00d2 | | Pop_Control Pop_Count_2 023e 7802 |x | Jump 0x241 023f 00c8 | | Action Pop_Auxiliary_Range 0240 3ff5 |? | Loop_Increasing 0x236 0241 00ce | | Action Pop_Auxiliary 0242 e5fe | | Load 0x2,-0x2 0243 e003 | | Load 0x0,0x3 0244 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0245 012e | . | Execute Any,Not_Equal 0246 6807 |h | Jump_Zero 0x24e 0247 e002 | | Load 0x0,0x2 0248 180e | | Execute Package,Field_Execute,Field_Number 0xe 0249 4806 |H | Short_Literal 0x6 024a 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "The io stack is corrupt" 024c e004 | | Load 0x0,0x4 024d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024e 00d8 | | Load_Top At_Offset_0 024f e002 | | Load 0x0,0x2 0250 180e | | Execute Package,Field_Execute,Field_Number 0xe 0251 012e | . | Execute Any,Not_Equal 0252 680c |h | Jump_Zero 0x25f 0253 00d8 | | Load_Top At_Offset_0 0254 e002 | | Load 0x0,0x2 0255 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0256 00d8 | | Load_Top At_Offset_0 0257 c403 | | Store 0x2,0x3 0258 e002 | | Load 0x0,0x2 0259 180e | | Execute Package,Field_Execute,Field_Number 0xe 025a 4806 |H | Short_Literal 0x6 025b 0092 02d7 | | Action Push_String_Extended,0x2d7 ; "This procedure changes the starting profile" 025d e004 | | Load 0x0,0x4 025e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 025f e003 | | Load 0x0,0x3 0260 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0261 e5fe | | Load 0x2,-0x2 0262 e003 | | Load 0x0,0x3 0263 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0264 6804 |h | Jump_Zero 0x269 0265 e5fe | | Load 0x2,-0x2 0266 e003 | | Load 0x0,0x3 0267 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0268 c5fe | | Store 0x2,-0x2 0269 4800 |H | Short_Literal 0x0 026a 4800 |H | Short_Literal 0x0 026b 4800 |H | Short_Literal 0x0 026c 4801 |H | Short_Literal 0x1 026d 4801 |H | Short_Literal 0x1 026e 4800 |H | Short_Literal 0x0 026f 4801 |H | Short_Literal 0x1 0270 4801 |H | Short_Literal 0x1 0271 4800 |H | Short_Literal 0x0 0272 4800 |H | Short_Literal 0x0 0273 4800 |H | Short_Literal 0x0 0274 4800 |H | Short_Literal 0x0 0275 e5ff | | Load 0x2,-0x1 0276 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "_Errors" 0278 01cc | | Execute Vector,Catenate 0279 e5ff | | Load 0x2,-0x1 027a e004 | | Load 0x0,0x4 027b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 027c 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "<QUIET>" 027e e002 | | Load 0x0,0x2 027f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0280 e002 | | Load 0x0,0x2 0281 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0282 e20f | | Load 0x1,0xf 0283 e5ff | | Load 0x2,-0x1 0284 e007 | | Load 0x0,0x7 0285 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0286 e20e | | Load 0x1,0xe 0287 e5ff | | Load 0x2,-0x1 0288 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "_Errors" 028a 01cc | | Execute Vector,Catenate 028b e007 | | Load 0x0,0x7 028c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 028d 00ea | | Load_Encached Null_String_Cache 028e e5ff | | Load 0x2,-0x1 028f 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "_Errors" 0291 01cc | | Execute Vector,Catenate 0292 e007 | | Load 0x0,0x7 0293 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0294 00d9 | | Load_Top At_Offset_1 0295 e002 | | Load 0x0,0x2 0296 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0297 0092 02da | | Action Push_String_Extended,0x2da ; "<ERRORS>" 0299 0092 02db | | Action Push_String_Extended,0x2db ; "<DIRECTORIES>" 029b 4801 |H | Short_Literal 0x1 029c 0092 02dc | | Action Push_String_Extended,0x2dc ; "[" 029e e5ff | | Load 0x2,-0x1 029f 01cc | | Execute Vector,Catenate 02a0 0092 02dd | | Action Push_String_Extended,0x2dd ; "," 02a2 01cc | | Execute Vector,Catenate 02a3 e5ff | | Load 0x2,-0x1 02a4 01cc | | Execute Vector,Catenate 02a5 0092 02de | | Action Push_String_Extended,0x2de ; "_Errors]" 02a7 01cc | | Execute Vector,Catenate 02a8 e008 | | Load 0x0,0x8 02a9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ab 0000 0000 | | .BLANK 0000[0x5] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b8 | | .CONST 0x02b8 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 e003 | | Load 0x0,0x3 02b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b5 02c7 | | Declare_Variable Any 02b6 00d8 | | Load_Top At_Offset_0 02b7 1c00 | | Execute_Immediate Run_Utility,0x0 02b8 BODY_02b0: 02b8 00d8 | | Load_Top At_Offset_0 02b9 00ea | | Load_Encached Null_String_Cache 02ba e20e | | Load 0x1,0xe 02bb e003 | | Load 0x0,0x3 02bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02bd c402 | | Store 0x2,0x2 02be 00d8 | | Load_Top At_Offset_0 02bf e003 | | Load 0x0,0x3 02c0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02c1 e002 | | Load 0x0,0x2 02c2 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c3 e5fe | | Load 0x2,-0x2 02c4 e5ff | | Load 0x2,-0x1 02c5 e004 | | Load 0x0,0x4 02c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c7 e003 | | Load 0x0,0x3 02c8 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 02c9 e002 | | Load 0x0,0x2 02ca 180e | | Execute Package,Field_Execute,Field_Number 0xe 02cb e5fe | | Load 0x2,-0x2 02cc e5ff | | Load 0x2,-0x1 02cd e004 | | Load 0x0,0x4 02ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; STRING TABLE 02d0 ; -------------------------------------------------------------------------------------- 02d0 0020 | | .STRTAB 0x0020->0x02e0 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 02d1 0063 | c | .STRTAB 0x0063->0x0302 ; "---- Beginning Process: " 02d2 0079 | y | .STRTAB 0x0079->0x030e ; "%%%% Process Failure: " 02d3 008d | | .STRTAB 0x008d->0x0319 ; "------- Beginning step: " 02d4 00a3 | | .STRTAB 0x00a3->0x0325 ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols),:::|---|+++|>>>|++*|!!!|***|%%%, Activity = !Machine.Release.Current.Activity" 02d5 0114 | | .STRTAB 0x0114->0x035f ; "This procedure disturbs the io stack" 02d6 0136 | 6 | .STRTAB 0x0136->0x0371 ; "The io stack is corrupt" 02d7 014b | K | .STRTAB 0x014b->0x037c ; "This procedure changes the starting profile" 02d8 0174 | t | .STRTAB 0x0174->0x0392 ; "_Errors" 02d9 0179 | y | .STRTAB 0x0179->0x0395 ; "<QUIET>" 02da 017e | ~ | .STRTAB 0x017e->0x0399 ; "<ERRORS>" 02db 0184 | | .STRTAB 0x0184->0x039d ; "<DIRECTORIES>" 02dc 018f | | .STRTAB 0x018f->0x03a3 ; "[" 02dd 018e | | .STRTAB 0x018e->0x03a4 ; "," 02de 018d | | .STRTAB 0x018d->0x03a4 ; "_Errors]" 02df 0193 | | .STREND 0x0193->0x03a8 02e0 5072 6566 |Pref| .STRTAB_STRINGS 03a9 0000 0000 | | .BLANK 0000[0x7] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; Debug Table 03b0 ; -------------------------------------------------------------------------------------- 03b0 0004 0002 | | .DEBUG4 0x0004,0x0002,0x28a9,0x0000,0x0001,0x0000 03b6 3d39 3915 |=99 | .XXX[0x4a] 03b8 0d50 f5ee | P | 03ba 51fa 408c |Q @ | 03bc 0011 1925 | %| 03be 3114 5c00 |1 \ | 03c0 5551 1531 |UQ 1| 03c2 3915 517d |9 Q}| 03c4 413d 4950 |A=IP| 03c6 b919 2531 | %1| 03c8 157d 5165 | }Qe| 03ca 4114 01f6 |A | 03cc 4094 0019 |@ | 03ce 4d51 0551 |MQ Q| 03d0 554c 5c00 |UL\ | 03d2 6951 4905 |iQI | 03d4 394d 413d |9MA=| 03d6 4951 7d11 |IQ} | 03d8 1519 4cb9 | L | 03da 4d51 0551 |MQ Q| 03dc 554d 7d0d |UM} | 03de 3d11 1401 |= | 03e0 fa40 8c00 | @ | 03e2 2d49 1535 |-I 5| 03e4 3d51 157d |=Q }| 03e6 213d 4d50 |!=MP| 03e8 5c00 5951 |\ YQ| 03ea 4905 394d |I 9M| 03ec 413d 4951 |A=IQ| 03ee 7d11 1519 |} | 03f0 4cb9 213d |L !=| 03f2 4d51 7d25 |MQ}%| 03f4 1001 fa40 | @| 03f6 8c00 1d39 | 9| 03f8 1551 5d3d | Q]=| 03fa 492c 5c00 |I,\ | 03fc 6d51 4905 |mQI | 03fe 394d 413d |9MA=|