|
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_0d2ce3
└─⟦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 0390 | | .CONST 0x0390 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001a c21b | | Store 0x1,0x1b 001b 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001d c213 | | Store 0x1,0x13 001e 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0020 c214 | | Store 0x1,0x14 0021 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0023 c219 | | Store 0x1,0x19 0024 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0026 c21a | | Store 0x1,0x1a 0027 00bf | | Action Accept_Activation 0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0029 00c7 | | Action Elaborate_Subprogram 002a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002b 00c7 | | Action Elaborate_Subprogram 002c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 002d 00c7 | | Action Elaborate_Subprogram 002e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002f 00c7 | | Action Elaborate_Subprogram 0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0031 00c7 | | Action Elaborate_Subprogram 0032 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0033 00c7 | | Action Elaborate_Subprogram 0034 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0035 00c7 | | Action Elaborate_Subprogram 0036 BODY_0008: 0036 00bc | | Action Signal_Activated 0037 00bb | | Action Signal_Completion 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 004e | N | .CONST 0x004e ; Address of begin 0039 0086 | | .CONST 0x0086 ; Address of exception handler 003a 0004 | | .CONST 0x0004 ; Number of locals 003b INIT_0038: 003b e001 | | Load 0x0,0x1 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 02c7 | | Declare_Variable Any 003e e001 | | Load 0x0,0x1 003f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0040 a402 | | Store_Unchecked 0x2,0x2 0041 e001 | | Load 0x0,0x1 0042 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0043 02c7 | | Declare_Variable Any 0044 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 0046 e001 | | Load 0x0,0x1 0047 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0048 a403 | | Store_Unchecked 0x2,0x3 0049 e002 | | Load 0x0,0x2 004a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004b 02c7 | | Declare_Variable Any 004c 00d8 | | Load_Top At_Offset_0 004d 1c00 | | Execute_Immediate Run_Utility,0x0 004e BODY_0038: 004e e5ff | | Load 0x2,-0x1 004f 01db | | Execute Vector,Length 0050 7001 |p | Jump_Nonzero 0x52 0051 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0052 00d9 | | Load_Top At_Offset_1 0053 e001 | | Load 0x0,0x1 0054 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0055 e210 | | Load 0x1,0x10 0056 e002 | | Load 0x0,0x2 0057 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0058 e001 | | Load 0x0,0x1 0059 180e | | Execute Package,Field_Execute,Field_Number 0xe 005a 4803 |H | Short_Literal 0x3 005b e5ff | | Load 0x2,-0x1 005c e003 | | Load 0x0,0x3 005d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005e e002 | | Load 0x0,0x2 005f 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0060 e20f | | Load 0x1,0xf 0061 8004 | | Call 0x0,0x4 0062 7008 |p | Jump_Nonzero 0x6b 0063 00d8 | | Load_Top At_Offset_0 0064 00ea | | Load_Encached Null_String_Cache 0065 e20f | | Load 0x1,0xf 0066 4801 |H | Short_Literal 0x1 0067 e002 | | Load 0x0,0x2 0068 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0069 c404 | | Store 0x2,0x4 006a 7806 |x | Jump 0x71 006b 00d8 | | Load_Top At_Offset_0 006c 00ea | | Load_Encached Null_String_Cache 006d e20f | | Load 0x1,0xf 006e e002 | | Load 0x0,0x2 006f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0070 c404 | | Store 0x2,0x4 0071 00d8 | | Load_Top At_Offset_0 0072 e002 | | Load 0x0,0x2 0073 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0074 e001 | | Load 0x0,0x1 0075 180e | | Execute Package,Field_Execute,Field_Number 0xe 0076 4803 |H | Short_Literal 0x3 0077 e5ff | | Load 0x2,-0x1 0078 e003 | | Load 0x0,0x3 0079 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007a e002 | | Load 0x0,0x2 007b 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 007c e001 | | Load 0x0,0x1 007d 180e | | Execute Package,Field_Execute,Field_Number 0xe 007e 4803 |H | Short_Literal 0x3 007f e5ff | | Load 0x2,-0x1 0080 e003 | | Load 0x0,0x3 0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0082 00da | | Load_Top At_Offset_2 0083 e001 | | Load 0x0,0x1 0084 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0085 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0086 TRAP_0038: 0086 0007 | | Action Break_Optional 0087 00db | | Load_Top At_Offset_3 0088 e001 | | Load 0x0,0x1 0089 1810 | | Execute Package,Field_Execute,Field_Number 0x10 008a 00d8 | | Load_Top At_Offset_0 008b 0101 | | Execute Exception,Reraise 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 00a6 | | .CONST 0x00a6 ; Address of begin 0091 00e6 | | .CONST 0x00e6 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e001 | | Load 0x0,0x1 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 02c7 | | Declare_Variable Any 0096 e001 | | Load 0x0,0x1 0097 180e | | Execute Package,Field_Execute,Field_Number 0xe 0098 a402 | | Store_Unchecked 0x2,0x2 0099 e001 | | Load 0x0,0x1 009a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009b 02c7 | | Declare_Variable Any 009c 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 009e e001 | | Load 0x0,0x1 009f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00a0 a403 | | Store_Unchecked 0x2,0x3 00a1 e002 | | Load 0x0,0x2 00a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a3 02c7 | | Declare_Variable Any 00a4 00d8 | | Load_Top At_Offset_0 00a5 1c00 | | Execute_Immediate Run_Utility,0x0 00a6 BODY_0090: 00a6 e5ff | | Load 0x2,-0x1 00a7 01db | | Execute Vector,Length 00a8 7003 |p | Jump_Nonzero 0xac 00a9 e210 | | Load 0x1,0x10 00aa 8005 | | Call 0x0,0x5 00ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ac 00d9 | | Load_Top At_Offset_1 00ad e001 | | Load 0x0,0x1 00ae 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00af 00d8 | | Load_Top At_Offset_0 00b0 00ea | | Load_Encached Null_String_Cache 00b1 e210 | | Load 0x1,0x10 00b2 e002 | | Load 0x0,0x2 00b3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b4 c404 | | Store 0x2,0x4 00b5 00d8 | | Load_Top At_Offset_0 00b6 e002 | | Load 0x0,0x2 00b7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00b8 e001 | | Load 0x0,0x1 00b9 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ba 4803 |H | Short_Literal 0x3 00bb e5ff | | Load 0x2,-0x1 00bc e003 | | Load 0x0,0x3 00bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00be e002 | | Load 0x0,0x2 00bf 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00c0 e210 | | Load 0x1,0x10 00c1 8005 | | Call 0x0,0x5 00c2 00d8 | | Load_Top At_Offset_0 00c3 00ea | | Load_Encached Null_String_Cache 00c4 e20f | | Load 0x1,0xf 00c5 e002 | | Load 0x0,0x2 00c6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c7 c404 | | Store 0x2,0x4 00c8 00d8 | | Load_Top At_Offset_0 00c9 e002 | | Load 0x0,0x2 00ca 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00cb 4801 |H | Short_Literal 0x1 00cc e002 | | Load 0x0,0x2 00cd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00ce e001 | | Load 0x0,0x1 00cf 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d0 4803 |H | Short_Literal 0x3 00d1 e5ff | | Load 0x2,-0x1 00d2 e003 | | Load 0x0,0x3 00d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d4 4802 |H | Short_Literal 0x2 00d5 e002 | | Load 0x0,0x2 00d6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00d7 e002 | | Load 0x0,0x2 00d8 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00d9 4801 |H | Short_Literal 0x1 00da e002 | | Load 0x0,0x2 00db 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00dc e001 | | Load 0x0,0x1 00dd 180e | | Execute Package,Field_Execute,Field_Number 0xe 00de 4803 |H | Short_Literal 0x3 00df e5ff | | Load 0x2,-0x1 00e0 e003 | | Load 0x0,0x3 00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e2 00da | | Load_Top At_Offset_2 00e3 e001 | | Load 0x0,0x1 00e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e6 TRAP_0090: 00e6 0007 | | Action Break_Optional 00e7 00db | | Load_Top At_Offset_3 00e8 e001 | | Load 0x0,0x1 00e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ea 00d8 | | Load_Top At_Offset_0 00eb 0101 | | Execute Exception,Reraise 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0106 | | .CONST 0x0106 ; Address of begin 00f1 0146 | F | .CONST 0x0146 ; Address of exception handler 00f2 0004 | | .CONST 0x0004 ; Number of locals 00f3 INIT_00f0: 00f3 e001 | | Load 0x0,0x1 00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f5 02c7 | | Declare_Variable Any 00f6 e001 | | Load 0x0,0x1 00f7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f8 a402 | | Store_Unchecked 0x2,0x2 00f9 e001 | | Load 0x0,0x1 00fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fb 02c7 | | Declare_Variable Any 00fc 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 00fe e001 | | Load 0x0,0x1 00ff 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0100 a403 | | Store_Unchecked 0x2,0x3 0101 e002 | | Load 0x0,0x2 0102 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0103 02c7 | | Declare_Variable Any 0104 00d8 | | Load_Top At_Offset_0 0105 1c00 | | Execute_Immediate Run_Utility,0x0 0106 BODY_00f0: 0106 e5ff | | Load 0x2,-0x1 0107 01db | | Execute Vector,Length 0108 7003 |p | Jump_Nonzero 0x10c 0109 e210 | | Load 0x1,0x10 010a 8005 | | Call 0x0,0x5 010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010c 00d9 | | Load_Top At_Offset_1 010d e001 | | Load 0x0,0x1 010e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 010f 00d8 | | Load_Top At_Offset_0 0110 00ea | | Load_Encached Null_String_Cache 0111 e210 | | Load 0x1,0x10 0112 e002 | | Load 0x0,0x2 0113 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0114 c404 | | Store 0x2,0x4 0115 00d8 | | Load_Top At_Offset_0 0116 e002 | | Load 0x0,0x2 0117 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0118 e001 | | Load 0x0,0x1 0119 180e | | Execute Package,Field_Execute,Field_Number 0xe 011a 4805 |H | Short_Literal 0x5 011b e5ff | | Load 0x2,-0x1 011c e003 | | Load 0x0,0x3 011d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011e e002 | | Load 0x0,0x2 011f 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0120 e210 | | Load 0x1,0x10 0121 8005 | | Call 0x0,0x5 0122 00d8 | | Load_Top At_Offset_0 0123 00ea | | Load_Encached Null_String_Cache 0124 e20f | | Load 0x1,0xf 0125 e002 | | Load 0x0,0x2 0126 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0127 c404 | | Store 0x2,0x4 0128 00d8 | | Load_Top At_Offset_0 0129 e002 | | Load 0x0,0x2 012a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 012b 4801 |H | Short_Literal 0x1 012c e002 | | Load 0x0,0x2 012d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 012e e001 | | Load 0x0,0x1 012f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0130 4805 |H | Short_Literal 0x5 0131 e5ff | | Load 0x2,-0x1 0132 e003 | | Load 0x0,0x3 0133 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0134 4802 |H | Short_Literal 0x2 0135 e002 | | Load 0x0,0x2 0136 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0137 e002 | | Load 0x0,0x2 0138 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0139 4801 |H | Short_Literal 0x1 013a e002 | | Load 0x0,0x2 013b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 013c e001 | | Load 0x0,0x1 013d 180e | | Execute Package,Field_Execute,Field_Number 0xe 013e 4805 |H | Short_Literal 0x5 013f e5ff | | Load 0x2,-0x1 0140 e003 | | Load 0x0,0x3 0141 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0142 00da | | Load_Top At_Offset_2 0143 e001 | | Load 0x0,0x1 0144 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0145 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0146 TRAP_00f0: 0146 0007 | | Action Break_Optional 0147 00db | | Load_Top At_Offset_3 0148 e001 | | Load 0x0,0x1 0149 1810 | | Execute Package,Field_Execute,Field_Number 0x10 014a 00d8 | | Load_Top At_Offset_0 014b 0101 | | Execute Exception,Reraise 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015d | ] | .CONST 0x015d ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 0092 02b4 | | Action Push_String_Extended,0x2b4 ; "---- Beginning Process: " 0155 00db | | Load_Top At_Offset_3 0156 01cc | | Execute Vector,Catenate 0157 0007 | | Action Break_Optional 0158 e002 | | Load 0x0,0x2 0159 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015a 02c7 | | Declare_Variable Any 015b 00d8 | | Load_Top At_Offset_0 015c 1c00 | | Execute_Immediate Run_Utility,0x0 015d BODY_0150: 015d 00d8 | | Load_Top At_Offset_0 015e 00ea | | Load_Encached Null_String_Cache 015f e210 | | Load 0x1,0x10 0160 e002 | | Load 0x0,0x2 0161 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0162 c403 | | Store 0x2,0x3 0163 4802 |H | Short_Literal 0x2 0164 00d9 | | Load_Top At_Offset_1 0165 e002 | | Load 0x0,0x2 0166 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0167 00d9 | | Load_Top At_Offset_1 0168 00d9 | | Load_Top At_Offset_1 0169 e002 | | Load 0x0,0x2 016a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 016b 00d8 | | Load_Top At_Offset_0 016c e002 | | Load 0x0,0x2 016d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 016e c403 | | Store 0x2,0x3 016f 00d8 | | Load_Top At_Offset_0 0170 00ea | | Load_Encached Null_String_Cache 0171 e20f | | Load 0x1,0xf 0172 e002 | | Load 0x0,0x2 0173 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0174 c403 | | Store 0x2,0x3 0175 4802 |H | Short_Literal 0x2 0176 00d9 | | Load_Top At_Offset_1 0177 e002 | | Load 0x0,0x2 0178 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0179 00d9 | | Load_Top At_Offset_1 017a 00d9 | | Load_Top At_Offset_1 017b e002 | | Load 0x0,0x2 017c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 017d 00d8 | | Load_Top At_Offset_0 017e e002 | | Load 0x0,0x2 017f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0180 c403 | | Store 0x2,0x3 0181 4802 |H | Short_Literal 0x2 0182 e002 | | Load 0x0,0x2 0183 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0184 00d9 | | Load_Top At_Offset_1 0185 e002 | | Load 0x0,0x2 0186 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0187 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0195 | | .CONST 0x0195 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0003 | | .CONST 0x0003 ; Number of locals 018b INIT_0188: 018b 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "%%%% Process Failure: " 018d 00db | | Load_Top At_Offset_3 018e 01cc | | Execute Vector,Catenate 018f 0007 | | Action Break_Optional 0190 e002 | | Load 0x0,0x2 0191 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0192 02c7 | | Declare_Variable Any 0193 00d8 | | Load_Top At_Offset_0 0194 1c00 | | Execute_Immediate Run_Utility,0x0 0195 BODY_0188: 0195 00d8 | | Load_Top At_Offset_0 0196 00ea | | Load_Encached Null_String_Cache 0197 e210 | | Load 0x1,0x10 0198 e002 | | Load 0x0,0x2 0199 1817 | | Execute Package,Field_Execute,Field_Number 0x17 019a c403 | | Store 0x2,0x3 019b 4801 |H | Short_Literal 0x1 019c 00d9 | | Load_Top At_Offset_1 019d e002 | | Load 0x0,0x2 019e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 019f 00d9 | | Load_Top At_Offset_1 01a0 00d9 | | Load_Top At_Offset_1 01a1 e002 | | Load 0x0,0x2 01a2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01a3 4801 |H | Short_Literal 0x1 01a4 00d9 | | Load_Top At_Offset_1 01a5 e002 | | Load 0x0,0x2 01a6 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01a7 00d8 | | Load_Top At_Offset_0 01a8 e002 | | Load 0x0,0x2 01a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01aa c403 | | Store 0x2,0x3 01ab 00d8 | | Load_Top At_Offset_0 01ac 00ea | | Load_Encached Null_String_Cache 01ad e20f | | Load 0x1,0xf 01ae e002 | | Load 0x0,0x2 01af 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01b0 c403 | | Store 0x2,0x3 01b1 4801 |H | Short_Literal 0x1 01b2 00d9 | | Load_Top At_Offset_1 01b3 e002 | | Load 0x0,0x2 01b4 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01b5 00d9 | | Load_Top At_Offset_1 01b6 00d9 | | Load_Top At_Offset_1 01b7 e002 | | Load 0x0,0x2 01b8 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01b9 4801 |H | Short_Literal 0x1 01ba 00d9 | | Load_Top At_Offset_1 01bb e002 | | Load 0x0,0x2 01bc 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01bd 00d8 | | Load_Top At_Offset_0 01be e002 | | Load 0x0,0x2 01bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01c0 c403 | | Store 0x2,0x3 01c1 4801 |H | Short_Literal 0x1 01c2 e002 | | Load 0x0,0x2 01c3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01c4 00d9 | | Load_Top At_Offset_1 01c5 e002 | | Load 0x0,0x2 01c6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01c7 4801 |H | Short_Literal 0x1 01c8 e002 | | Load 0x0,0x2 01c9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01dd | | .CONST 0x01dd ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0003 | | .CONST 0x0003 ; Number of locals 01d3 INIT_01d0: 01d3 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "------- Beginning step: " 01d5 00db | | Load_Top At_Offset_3 01d6 01cc | | Execute Vector,Catenate 01d7 0007 | | Action Break_Optional 01d8 e002 | | Load 0x0,0x2 01d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01da 02c7 | | Declare_Variable Any 01db 00d8 | | Load_Top At_Offset_0 01dc 1c00 | | Execute_Immediate Run_Utility,0x0 01dd BODY_01d0: 01dd 00d8 | | Load_Top At_Offset_0 01de 00ea | | Load_Encached Null_String_Cache 01df e210 | | Load 0x1,0x10 01e0 e002 | | Load 0x0,0x2 01e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01e2 c403 | | Store 0x2,0x3 01e3 4801 |H | Short_Literal 0x1 01e4 00d9 | | Load_Top At_Offset_1 01e5 e002 | | Load 0x0,0x2 01e6 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01e7 00d9 | | Load_Top At_Offset_1 01e8 00d9 | | Load_Top At_Offset_1 01e9 e002 | | Load 0x0,0x2 01ea 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01eb 4801 |H | Short_Literal 0x1 01ec 00d9 | | Load_Top At_Offset_1 01ed e002 | | Load 0x0,0x2 01ee 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01ef 00d8 | | Load_Top At_Offset_0 01f0 e002 | | Load 0x0,0x2 01f1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f2 c403 | | Store 0x2,0x3 01f3 00d8 | | Load_Top At_Offset_0 01f4 00ea | | Load_Encached Null_String_Cache 01f5 e20f | | Load 0x1,0xf 01f6 e002 | | Load 0x0,0x2 01f7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01f8 c403 | | Store 0x2,0x3 01f9 4801 |H | Short_Literal 0x1 01fa 00d9 | | Load_Top At_Offset_1 01fb e002 | | Load 0x0,0x2 01fc 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01fd 00d9 | | Load_Top At_Offset_1 01fe 00d9 | | Load_Top At_Offset_1 01ff e002 | | Load 0x0,0x2 0200 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0201 00d8 | | Load_Top At_Offset_0 0202 e002 | | Load 0x0,0x2 0203 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0204 c403 | | Store 0x2,0x3 0205 4801 |H | Short_Literal 0x1 0206 e002 | | Load 0x0,0x2 0207 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0208 00d9 | | Load_Top At_Offset_1 0209 e002 | | Load 0x0,0x2 020a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 020b 00d8 | | Load_Top At_Offset_0 020c 00ea | | Load_Encached Null_String_Cache 020d e5fe | | Load 0x2,-0x2 020e 4801 |H | Short_Literal 0x1 020f e002 | | Load 0x0,0x2 0210 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0211 c403 | | Store 0x2,0x3 0212 00d8 | | Load_Top At_Offset_0 0213 e002 | | Load 0x0,0x2 0214 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0215 00d8 | | Load_Top At_Offset_0 0216 c5fd | | Store 0x2,-0x3 0217 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 022e | . | .CONST 0x022e ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0004 | | .CONST 0x0004 ; Number of locals 021b INIT_0218: 021b e002 | | Load 0x0,0x2 021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021d 02c7 | | Declare_Variable Any 021e 00d8 | | Load_Top At_Offset_0 021f 1c00 | | Execute_Immediate Run_Utility,0x0 0220 e001 | | Load 0x0,0x1 0221 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0222 02c7 | | Declare_Variable Any 0223 e001 | | Load 0x0,0x1 0224 180e | | Execute Package,Field_Execute,Field_Number 0xe 0225 a403 | | Store_Unchecked 0x2,0x3 0226 e001 | | Load 0x0,0x1 0227 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0228 02c7 | | Declare_Variable Any 0229 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols),:::|---|+++|>>>|++*|!!!|***|%%%, Activity = !Machine.Release.Current.Activity" 022b e001 | | Load 0x0,0x1 022c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 022d a404 | | Store_Unchecked 0x2,0x4 022e BODY_0218: 022e e5fe | | Load 0x2,-0x2 022f e002 | | Load 0x0,0x2 0230 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0231 012e | . | Execute Any,Not_Equal 0232 6823 |h# | Jump_Zero 0x256 0233 e001 | | Load 0x0,0x1 0234 180e | | Execute Package,Field_Execute,Field_Number 0xe 0235 4806 |H | Short_Literal 0x6 0236 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "This procedure disturbs the io stack" 0238 e003 | | Load 0x0,0x3 0239 1813 | | Execute Package,Field_Execute,Field_Number 0x13 023a 00cf | | Action Mark_Auxiliary 023b 4832 |H2 | Short_Literal 0x32 023c 4801 |H | Short_Literal 0x1 023d 0007 | | Action Break_Optional 023e e002 | | Load 0x0,0x2 023f 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0240 e5fe | | Load 0x2,-0x2 0241 e002 | | Load 0x0,0x2 0242 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0243 012f | / | Execute Any,Equal 0244 6802 |h | Jump_Zero 0x247 0245 00d2 | | Pop_Control Pop_Count_2 0246 7802 |x | Jump 0x249 0247 00c8 | | Action Pop_Auxiliary_Range 0248 3ff5 |? | Loop_Increasing 0x23e 0249 00ce | | Action Pop_Auxiliary 024a e5fe | | Load 0x2,-0x2 024b e002 | | Load 0x0,0x2 024c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 024d 012e | . | Execute Any,Not_Equal 024e 6807 |h | Jump_Zero 0x256 024f e001 | | Load 0x0,0x1 0250 180e | | Execute Package,Field_Execute,Field_Number 0xe 0251 4806 |H | Short_Literal 0x6 0252 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "The io stack is corrupt" 0254 e003 | | Load 0x0,0x3 0255 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0256 00d8 | | Load_Top At_Offset_0 0257 e001 | | Load 0x0,0x1 0258 180e | | Execute Package,Field_Execute,Field_Number 0xe 0259 012e | . | Execute Any,Not_Equal 025a 680c |h | Jump_Zero 0x267 025b 00d8 | | Load_Top At_Offset_0 025c e001 | | Load 0x0,0x1 025d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 025e 00d8 | | Load_Top At_Offset_0 025f c403 | | Store 0x2,0x3 0260 e001 | | Load 0x0,0x1 0261 180e | | Execute Package,Field_Execute,Field_Number 0xe 0262 4806 |H | Short_Literal 0x6 0263 0092 02ba | | Action Push_String_Extended,0x2ba ; "This procedure changes the starting profile" 0265 e003 | | Load 0x0,0x3 0266 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0267 e002 | | Load 0x0,0x2 0268 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0269 e5fe | | Load 0x2,-0x2 026a e002 | | Load 0x0,0x2 026b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 026c 6804 |h | Jump_Zero 0x271 026d e5fe | | Load 0x2,-0x2 026e e002 | | Load 0x0,0x2 026f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0270 c5fe | | Store 0x2,-0x2 0271 4800 |H | Short_Literal 0x0 0272 4800 |H | Short_Literal 0x0 0273 4800 |H | Short_Literal 0x0 0274 4801 |H | Short_Literal 0x1 0275 4801 |H | Short_Literal 0x1 0276 4800 |H | Short_Literal 0x0 0277 4801 |H | Short_Literal 0x1 0278 4801 |H | Short_Literal 0x1 0279 4800 |H | Short_Literal 0x0 027a 4800 |H | Short_Literal 0x0 027b 4800 |H | Short_Literal 0x0 027c 4800 |H | Short_Literal 0x0 027d e5ff | | Load 0x2,-0x1 027e 0092 02bb | | Action Push_String_Extended,0x2bb ; "_Errors" 0280 01cc | | Execute Vector,Catenate 0281 e5ff | | Load 0x2,-0x1 0282 e003 | | Load 0x0,0x3 0283 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0284 0092 02bc | | Action Push_String_Extended,0x2bc ; "<QUIET>" 0286 e001 | | Load 0x0,0x1 0287 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0288 e001 | | Load 0x0,0x1 0289 1810 | | Execute Package,Field_Execute,Field_Number 0x10 028a e210 | | Load 0x1,0x10 028b e5ff | | Load 0x2,-0x1 028c e006 | | Load 0x0,0x6 028d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 028e e20f | | Load 0x1,0xf 028f e5ff | | Load 0x2,-0x1 0290 0092 02bb | | Action Push_String_Extended,0x2bb ; "_Errors" 0292 01cc | | Execute Vector,Catenate 0293 e006 | | Load 0x0,0x6 0294 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0295 00ea | | Load_Encached Null_String_Cache 0296 e5ff | | Load 0x2,-0x1 0297 0092 02bb | | Action Push_String_Extended,0x2bb ; "_Errors" 0299 01cc | | Execute Vector,Catenate 029a e006 | | Load 0x0,0x6 029b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 029c 00d9 | | Load_Top At_Offset_1 029d e001 | | Load 0x0,0x1 029e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 029f 0092 02bd | | Action Push_String_Extended,0x2bd ; "<ERRORS>" 02a1 0092 02be | | Action Push_String_Extended,0x2be ; "<DIRECTORIES>" 02a3 4801 |H | Short_Literal 0x1 02a4 0092 02bf | | Action Push_String_Extended,0x2bf ; "[" 02a6 e5ff | | Load 0x2,-0x1 02a7 01cc | | Execute Vector,Catenate 02a8 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "," 02aa 01cc | | Execute Vector,Catenate 02ab e5ff | | Load 0x2,-0x1 02ac 01cc | | Execute Vector,Catenate 02ad 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "_Errors]" 02af 01cc | | Execute Vector,Catenate 02b0 e007 | | Load 0x0,0x7 02b1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b3 ; -------------------------------------------------------------------------------------- 02b3 ; STRING TABLE 02b3 ; -------------------------------------------------------------------------------------- 02b3 0020 | | .STRTAB 0x0020->0x02c3 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 02b4 0063 | c | .STRTAB 0x0063->0x02e5 ; "---- Beginning Process: " 02b5 0079 | y | .STRTAB 0x0079->0x02f1 ; "%%%% Process Failure: " 02b6 008d | | .STRTAB 0x008d->0x02fc ; "------- Beginning step: " 02b7 00a3 | | .STRTAB 0x00a3->0x0308 ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols),:::|---|+++|>>>|++*|!!!|***|%%%, Activity = !Machine.Release.Current.Activity" 02b8 0114 | | .STRTAB 0x0114->0x0342 ; "This procedure disturbs the io stack" 02b9 0136 | 6 | .STRTAB 0x0136->0x0354 ; "The io stack is corrupt" 02ba 014b | K | .STRTAB 0x014b->0x035f ; "This procedure changes the starting profile" 02bb 0174 | t | .STRTAB 0x0174->0x0375 ; "_Errors" 02bc 0179 | y | .STRTAB 0x0179->0x0378 ; "<QUIET>" 02bd 017e | ~ | .STRTAB 0x017e->0x037c ; "<ERRORS>" 02be 0184 | | .STRTAB 0x0184->0x0380 ; "<DIRECTORIES>" 02bf 018f | | .STRTAB 0x018f->0x0386 ; "[" 02c0 018e | | .STRTAB 0x018e->0x0387 ; "," 02c1 018d | | .STRTAB 0x018d->0x0387 ; "_Errors]" 02c2 0193 | | .STREND 0x0193->0x038b 02c3 5072 6566 |Pref| .STRTAB_STRINGS 038c 0000 0000 | | .BLANK 0000[0x4] 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug Table 0390 ; -------------------------------------------------------------------------------------- 0390 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7841,0x0000,0x0001,0x0000 0396 0000 0000 | | .BLANK 0000[0x6a]