|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0648e8
└─⟦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 06b8 | | .CONST 0x06b8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 00a6 | | .CONST 0x00a6 ; Address of begin 0019 00f2 | | .CONST 0x00f2 ; Address of exception handler 001a 0020 | | .CONST 0x0020 ; Number of locals 001b INIT_0018: 001b 0092 0400 | | Action Push_String_Extended,0x400 ; "2.0" 001d 4800 |H | Short_Literal 0x0 001e 4896 |H | Short_Literal 0x96 001f 00e3 | | Load_Encached Natural_Cache 0020 03f8 | | Declare_Type Discrete,Constrained 0021 e001 | | Load 0x0,0x1 0022 e002 | | Load 0x0,0x2 0023 00da | | Load_Top At_Offset_2 0024 4800 |H | Short_Literal 0x0 0025 4801 |H | Short_Literal 0x1 0026 4896 |H | Short_Literal 0x96 0027 0092 0401 | | Action Push_String_Extended,0x401 ; "others => Unspecified" 0029 00ea | | Load_Encached Null_String_Cache 002a 00ea | | Load_Encached Null_String_Cache 002b 4801 |H | Short_Literal 0x1 002c 4896 |H | Short_Literal 0x96 002d e003 | | Load 0x0,0x3 002e 0387 | | Declare_Variable Package 002f 00d8 | | Load_Top At_Offset_0 0030 020f | | Execute Module,Activate 0031 00d8 | | Load_Top At_Offset_0 0032 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0033 00d9 | | Load_Top At_Offset_1 0034 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0035 00e1 | | Load_Encached Boolean_Cache 0036 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0037 00e1 | | Load_Encached Boolean_Cache 0038 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0039 00e1 | | Load_Encached Boolean_Cache 003a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003b 00e1 | | Load_Encached Boolean_Cache 003c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 003d e004 | | Load 0x0,0x4 003e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0040 0092 0402 | | Action Push_String_Extended,0x402 ; ",LOAD_TAPE => (Archive.Restore(Options => \x22Replace,Promote\x22,Response=>\x22:::,<PROGRESS>\x22);)" 0042 485f |H_ | Short_Literal 0x5f 0043 e5fe | | Load 0x2,-0x2 0044 01ca | | Execute Vector,Prepend 0045 0007 | | Action Break_Optional 0046 e004 | | Load 0x0,0x4 0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0049 02c7 | | Declare_Variable Any 004a 4801 |H | Short_Literal 0x1 004b e004 | | Load 0x0,0x4 004c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004e e5fe | | Load 0x2,-0x2 004f e004 | | Load 0x0,0x4 0050 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0051 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0052 a40e | | Store_Unchecked 0x2,0xe 0053 e004 | | Load 0x0,0x4 0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0055 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0056 02c7 | | Declare_Variable Any 0057 00d9 | | Load_Top At_Offset_1 0058 e004 | | Load 0x0,0x4 0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 005b a40f | | Store_Unchecked 0x2,0xf 005c 00d8 | | Load_Top At_Offset_0 005d e004 | | Load 0x0,0x4 005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0060 00e1 | | Load_Encached Boolean_Cache 0061 03f1 | | Declare_Variable Discrete,With_Value 0062 e005 | | Load 0x0,0x5 0063 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0064 02c7 | | Declare_Variable Any 0065 e005 | | Load 0x0,0x5 0066 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0067 a411 | | Store_Unchecked 0x2,0x11 0068 e005 | | Load 0x0,0x5 0069 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006a 02c7 | | Declare_Variable Any 006b e005 | | Load 0x0,0x5 006c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006d a412 | | Store_Unchecked 0x2,0x12 006e e006 | | Load 0x0,0x6 006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0070 02c7 | | Declare_Variable Any 0071 00d8 | | Load_Top At_Offset_0 0072 1c00 | | Execute_Immediate Run_Utility,0x0 0073 e40b | | Load 0x2,0xb 0074 0092 0403 | | Action Push_String_Extended,0x403 ; ".Logs" 0076 01cc | | Execute Vector,Catenate 0077 0007 | | Action Break_Optional 0078 00d8 | | Load_Top At_Offset_0 0079 0092 0404 | | Action Push_String_Extended,0x404 ; ".Do_Step_Execution_Time" 007b 01cc | | Execute Vector,Catenate 007c 0007 | | Action Break_Optional 007d e007 | | Load 0x0,0x7 007e 191f | | Execute Package,Field_Reference,Field_Number 0x1f 007f 0007 | | Action Break_Optional 0080 e007 | | Load 0x0,0x7 0081 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0082 0007 | | Action Break_Optional 0083 4800 |H | Short_Literal 0x0 0084 4803 |H | Short_Literal 0x3 0085 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0087 03fd | | Declare_Type Discrete,Defined 0088 e008 | | Load 0x0,0x8 0089 e009 | | Load 0x0,0x9 008a 00da | | Load_Top At_Offset_2 008b 4800 |H | Short_Literal 0x0 008c 4801 |H | Short_Literal 0x1 008d 4803 |H | Short_Literal 0x3 008e 0092 0405 | | Action Push_String_Extended,0x405 ; "others => Boolean_Valued" 0090 00ea | | Load_Encached Null_String_Cache 0091 00ea | | Load_Encached Null_String_Cache 0092 4801 |H | Short_Literal 0x1 0093 4803 |H | Short_Literal 0x3 0094 e003 | | Load 0x0,0x3 0095 0387 | | Declare_Variable Package 0096 00d8 | | Load_Top At_Offset_0 0097 020f | | Execute Module,Activate 0098 00d9 | | Load_Top At_Offset_1 0099 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 009a 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 009c 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 009e 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 00a0 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 00a2 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 00a4 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 00a6 BODY_0018: 00a6 e00a | | Load 0x0,0xa 00a7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00a9 e00b | | Load 0x0,0xb 00aa 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ab 4801 |H | Short_Literal 0x1 00ac 0092 0406 | | Action Push_String_Extended,0x406 ; "DO_STEP Version 2.0" 00ae e00c | | Load 0x0,0xc 00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b0 4801 |H | Short_Literal 0x1 00b1 e00d | | Load 0x0,0xd 00b2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b3 e00d | | Load 0x0,0xd 00b4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b5 7008 |p | Jump_Nonzero 0xbe 00b6 e00b | | Load 0x0,0xb 00b7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b8 4807 |H | Short_Literal 0x7 00b9 0092 0407 | | Action Push_String_Extended,0x407 ; "Cannot enable privileged mode, halting procedure DO_STEP" 00bb e00c | | Load 0x0,0xc 00bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00be 841c | | Call 0x2,0x1c 00bf 841d | | Call 0x2,0x1d 00c0 6819 |h | Jump_Zero 0xda 00c1 e405 | | Load 0x2,0x5 00c2 e404 | | Load 0x2,0x4 00c3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00c4 c405 | | Store 0x2,0x5 00c5 e405 | | Load 0x2,0x5 00c6 e404 | | Load 0x2,0x4 00c7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00c8 6808 |h | Jump_Zero 0xd1 00c9 e00b | | Load 0x0,0xb 00ca 180e | | Execute Package,Field_Execute,Field_Number 0xe 00cb 4806 |H | Short_Literal 0x6 00cc 0092 0408 | | Action Push_String_Extended,0x408 ; "No steps were specified" 00ce e00c | | Load 0x0,0xc 00cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d0 7801 |x | Jump 0xd2 00d1 8420 | | Call 0x2,0x20 00d2 e00b | | Load 0x0,0xb 00d3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d4 4802 |H | Short_Literal 0x2 00d5 0092 0409 | | Action Push_String_Extended,0x409 ; "Completed procedure DO_STEP" 00d7 e00c | | Load 0x0,0xc 00d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00da e00b | | Load 0x0,0xb 00db 180e | | Execute Package,Field_Execute,Field_Number 0xe 00dc 4806 |H | Short_Literal 0x6 00dd 0092 040a | | Action Push_String_Extended,0x40a ; "Halting procedure DO_STEP" 00df e00c | | Load 0x0,0xc 00e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e1 e410 | | Load 0x2,0x10 00e2 700e |p | Jump_Nonzero 0xf1 00e3 e00b | | Load 0x0,0xb 00e4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e5 4806 |H | Short_Literal 0x6 00e6 0092 040b | | Action Push_String_Extended,0x40b ; "The STEP definition file, " 00e8 e5fe | | Load 0x2,-0x2 00e9 e00e | | Load 0x0,0xe 00ea 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00eb 01cc | | Execute Vector,Catenate 00ec 0092 040c | | Action Push_String_Extended,0x40c ; ", was not found; this may be the problem" 00ee 01cc | | Execute Vector,Catenate 00ef e00c | | Load 0x0,0xc 00f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f2 TRAP_0018: 00f2 0007 | | Action Break_Optional 00f3 e00b | | Load 0x0,0xb 00f4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f5 4808 |H | Short_Literal 0x8 00f6 0092 040d | | Action Push_String_Extended,0x40d ; "Unhandled Exception: " 00f8 4800 |H | Short_Literal 0x0 00f9 4801 |H | Short_Literal 0x1 00fa e00f | | Load 0x0,0xf 00fb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00fc 01cc | | Execute Vector,Catenate 00fd e00c | | Load 0x0,0xc 00fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4607 |F | Jump_Case 0x8 0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0105 7806 |x | Jump 0x10c ; case 0x1 0106 7809 |x | Jump 0x110 ; case 0x2 0107 780d |x | Jump 0x115 ; case 0x3 0108 7810 |x | Jump 0x119 ; case 0x4 0109 7811 |x | Jump 0x11b ; case 0x5 010a 7812 |x | Jump 0x11d ; case 0x6 010b 7815 |x | Jump 0x121 ; case 0x7 010c 00da | | Load_Top At_Offset_2 010d 0091 03fc | | Action Push_String_Extended_Indexed,0x3fc ; "NONE" 010f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0110 00db | | Load_Top At_Offset_3 0111 00db | | Load_Top At_Offset_3 0112 00e0 | | Load_Encached Standard_Cache 0113 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0115 00da | | Load_Top At_Offset_2 0116 00e0 | | Load_Encached Standard_Cache 0117 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0118 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0119 00db | | Load_Top At_Offset_3 011a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011b 00db | | Load_Top At_Offset_3 011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011d e418 | | Load 0x2,0x18 011e 00dc | | Load_Top At_Offset_4 011f 0267 | g | Execute Discrete,Predecessor 0120 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0121 e418 | | Load 0x2,0x18 0122 00dc | | Load_Top At_Offset_4 0123 0268 | h | Execute Discrete,Successor 0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012d | - | .CONST 0x012d ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e419 | | Load 0x2,0x19 012c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 012d BODY_0128: 012d 00cf | | Action Mark_Auxiliary 012e 0092 040e | | Action Push_String_Extended,0x40e ; "Continue with " 0130 4800 |H | Short_Literal 0x0 0131 e405 | | Load 0x2,0x5 0132 e404 | | Load 0x2,0x4 0133 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0134 01cc | | Execute Vector,Catenate 0135 0092 040f | | Action Push_String_Extended,0x40f ; " step (Continue | Skip | Quit)? [Continue] : " 0137 01cc | | Execute Vector,Catenate 0138 e006 | | Load 0x0,0x6 0139 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 013a e006 | | Load 0x0,0x6 013b 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 013c e419 | | Load 0x2,0x19 013d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 013e 0032 | 2 | Store_Top Heap_Access,At_Offset_2 013f 00d9 | | Load_Top At_Offset_1 0140 e419 | | Load 0x2,0x19 0141 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0142 6802 |h | Jump_Zero 0x145 0143 4801 |H | Short_Literal 0x1 0144 00ca | | Action Exit_Nullary_Function 0145 4800 |H | Short_Literal 0x0 0146 00da | | Load_Top At_Offset_2 0147 e419 | | Load 0x2,0x19 0148 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0149 6808 |h | Jump_Zero 0x152 014a 00d9 | | Load_Top At_Offset_1 014b e419 | | Load 0x2,0x19 014c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 014d 6804 |h | Jump_Zero 0x152 014e 00d9 | | Load_Top At_Offset_1 014f e419 | | Load 0x2,0x19 0150 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0151 00ca | | Action Exit_Nullary_Function 0152 0092 0410 | | Action Push_String_Extended,0x410 ; "*** ERROR: Must be one of CONTINUE | SKIP | QUIT" 0154 e006 | | Load 0x0,0x6 0155 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0156 00c9 | | Action Pop_Auxiliary_Loop 0157 7fd6 | | Jump 0x12e 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015d | ] | .CONST 0x015d ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e403 | | Load 0x2,0x3 015c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 015d BODY_0158: 015d 4801 |H | Short_Literal 0x1 015e 00ea | | Load_Encached Null_String_Cache 015f 4802 |H | Short_Literal 0x2 0160 0092 0411 | | Action Push_String_Extended,0x411 ; "TRACE" 0162 4896 |H | Short_Literal 0x96 0163 e404 | | Load 0x2,0x4 0164 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0165 4801 |H | Short_Literal 0x1 0166 00ea | | Load_Encached Null_String_Cache 0167 4802 |H | Short_Literal 0x2 0168 0092 0412 | | Action Push_String_Extended,0x412 ; "EXECUTE" 016a 4895 |H | Short_Literal 0x95 016b e404 | | Load 0x2,0x4 016c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 016d 4801 |H | Short_Literal 0x1 016e 00ea | | Load_Encached Null_String_Cache 016f 4802 |H | Short_Literal 0x2 0170 0092 0413 | | Action Push_String_Extended,0x413 ; "PROMPT" 0172 4894 |H | Short_Literal 0x94 0173 e404 | | Load 0x2,0x4 0174 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0175 4801 |H | Short_Literal 0x1 0176 00ea | | Load_Encached Null_String_Cache 0177 4802 |H | Short_Literal 0x2 0178 0092 0414 | | Action Push_String_Extended,0x414 ; "SEMANTICIZE" 017a 4893 |H | Short_Literal 0x93 017b e404 | | Load 0x2,0x4 017c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 017d 4801 |H | Short_Literal 0x1 017e 00ea | | Load_Encached Null_String_Cache 017f 4800 |H | Short_Literal 0x0 0180 0092 0415 | | Action Push_String_Extended,0x415 ; "LOAD_TAPE" 0182 4892 |H | Short_Literal 0x92 0183 e404 | | Load 0x2,0x4 0184 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0185 4801 |H | Short_Literal 0x1 0186 00ea | | Load_Encached Null_String_Cache 0187 4802 |H | Short_Literal 0x2 0188 0092 0416 | | Action Push_String_Extended,0x416 ; "PAUSE" 018a 4891 |H | Short_Literal 0x91 018b e404 | | Load 0x2,0x4 018c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 018d e410 | | Load 0x2,0x10 018e 6824 |h$ | Jump_Zero 0x1b3 018f e40d | | Load 0x2,0xd 0190 e404 | | Load 0x2,0x4 0191 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0192 a406 | | Store_Unchecked 0x2,0x6 0193 00cf | | Action Mark_Auxiliary 0194 7812 |x | Jump 0x1a7 0195 4801 |H | Short_Literal 0x1 0196 00ea | | Load_Encached Null_String_Cache 0197 4800 |H | Short_Literal 0x0 0198 4800 |H | Short_Literal 0x0 0199 e406 | | Load 0x2,0x6 019a e404 | | Load 0x2,0x4 019b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 019c e602 | | Load 0x3,0x2 019d e404 | | Load 0x2,0x4 019e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 019f 00d9 | | Load_Top At_Offset_1 01a0 0a01 | | Execute_Immediate Plus,0x1 01a1 005a | Z | Store_Top Discrete,At_Offset_2 01a2 e406 | | Load 0x2,0x6 01a3 e404 | | Load 0x2,0x4 01a4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01a5 c406 | | Store 0x2,0x6 01a6 00c9 | | Action Pop_Auxiliary_Loop 01a7 e406 | | Load 0x2,0x6 01a8 e404 | | Load 0x2,0x4 01a9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01aa 6fea |o | Jump_Zero 0x195 01ab 00ce | | Action Pop_Auxiliary 01ac e40d | | Load 0x2,0xd 01ad e40c | | Load 0x2,0xc 01ae 01cc | | Execute Vector,Catenate 01af e404 | | Load 0x2,0x4 01b0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01b1 a406 | | Store_Unchecked 0x2,0x6 01b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b3 e40c | | Load 0x2,0xc 01b4 e404 | | Load 0x2,0x4 01b5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01b6 a406 | | Store_Unchecked 0x2,0x6 01b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bf | | .CONST 0x01bf ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0003 | | .CONST 0x0003 ; Number of locals 01bb INIT_01b8: 01bb 00e1 | | Load_Encached Boolean_Cache 01bc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01bd 029f 039b | | Declare_Subprogram INIT_0398,For_Call 01bf BODY_01b8: 01bf e5ff | | Load 0x2,-0x1 01c0 e404 | | Load 0x2,0x4 01c1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01c2 a405 | | Store_Unchecked 0x2,0x5 01c3 00cf | | Action Mark_Auxiliary 01c4 7856 |xV | Jump 0x21b 01c5 e405 | | Load 0x2,0x5 01c6 e404 | | Load 0x2,0x4 01c7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01c8 00d8 | | Load_Top At_Offset_0 01c9 0d91 | | Execute_Immediate Less,-0x6f 01ca 700d |p | Jump_Nonzero 0x1d8 01cb 00d8 | | Load_Top At_Offset_0 01cc 0c93 | | Execute_Immediate Greater_Equal,-0x6d 01cd 7003 |p | Jump_Nonzero 0x1d1 01ce 0f92 | | Execute_Immediate Equal,-0x6e 01cf 7046 |pF | Jump_Nonzero 0x216 01d0 7822 |x" | Jump 0x1f3 01d1 0b93 | | Execute_Immediate Case_Compare,0x93 01d2 7027 |p' | Jump_Nonzero 0x1fa 01d3 0b95 | | Execute_Immediate Case_Compare,0x95 01d4 7008 |p | Jump_Nonzero 0x1dd 01d5 0f96 | | Execute_Immediate Equal,-0x6a 01d6 700e |p | Jump_Nonzero 0x1e5 01d7 782e |x. | Jump 0x206 01d8 4801 |H | Short_Literal 0x1 01d9 4890 |H | Short_Literal 0x90 01da 0262 | b | Execute Discrete,In_Range 01db 703a |p: | Jump_Nonzero 0x216 01dc 782b |x+ | Jump 0x208 01dd 00d1 | | Pop_Control Pop_Count_1 01de 4800 |H | Short_Literal 0x0 01df 4800 |H | Short_Literal 0x0 01e0 e405 | | Load 0x2,0x5 01e1 e404 | | Load 0x2,0x4 01e2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01e3 a408 | | Store_Unchecked 0x2,0x8 01e4 7831 |x1 | Jump 0x216 01e5 e00b | | Load 0x0,0xb 01e6 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e7 4802 |H | Short_Literal 0x2 01e8 0092 0406 | | Action Push_String_Extended,0x406 ; "DO_STEP Version 2.0" 01ea e00c | | Load 0x0,0xc 01eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ec 4800 |H | Short_Literal 0x0 01ed 4800 |H | Short_Literal 0x0 01ee e405 | | Load 0x2,0x5 01ef e404 | | Load 0x2,0x4 01f0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01f1 a407 | | Store_Unchecked 0x2,0x7 01f2 7823 |x# | Jump 0x216 01f3 4800 |H | Short_Literal 0x0 01f4 4800 |H | Short_Literal 0x0 01f5 e405 | | Load 0x2,0x5 01f6 e404 | | Load 0x2,0x4 01f7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01f8 a40a | | Store_Unchecked 0x2,0xa 01f9 781c |x | Jump 0x216 01fa 00d1 | | Pop_Control Pop_Count_1 01fb 4800 |H | Short_Literal 0x0 01fc 4800 |H | Short_Literal 0x0 01fd e405 | | Load 0x2,0x5 01fe e404 | | Load 0x2,0x4 01ff 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0200 a409 | | Store_Unchecked 0x2,0x9 0201 e006 | | Load 0x0,0x6 0202 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0203 e006 | | Load 0x0,0x6 0204 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0205 7810 |x | Jump 0x216 0206 8603 | | Call 0x3,0x3 0207 780e |x | Jump 0x216 0208 e00b | | Load 0x0,0xb 0209 180e | | Execute Package,Field_Execute,Field_Number 0xe 020a 4807 |H | Short_Literal 0x7 020b 0092 0417 | | Action Push_String_Extended,0x417 ; "ERROR with Step: " 020d 4800 |H | Short_Literal 0x0 020e e405 | | Load 0x2,0x5 020f e404 | | Load 0x2,0x4 0210 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0211 01cc | | Execute Vector,Catenate 0212 e00c | | Load 0x0,0xc 0213 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0214 4800 |H | Short_Literal 0x0 0215 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0216 e405 | | Load 0x2,0x5 0217 e404 | | Load 0x2,0x4 0218 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0219 c405 | | Store 0x2,0x5 021a 00c9 | | Action Pop_Auxiliary_Loop 021b e405 | | Load 0x2,0x5 021c e404 | | Load 0x2,0x4 021d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 021e 6fa6 |o | Jump_Zero 0x1c5 021f 00ce | | Action Pop_Auxiliary 0220 00d9 | | Load_Top At_Offset_1 0221 00ca | | Action Exit_Nullary_Function 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b e010 | | Load 0x0,0x10 022c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 022d 4801 |H | Short_Literal 0x1 022e 4800 |H | Short_Literal 0x0 022f 0092 0418 | | Action Push_String_Extended,0x418 ; "<IMAGE>" 0231 e010 | | Load 0x0,0x10 0232 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0233 4802 |H | Short_Literal 0x2 0234 e00a | | Load 0x0,0xa 0235 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0236 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0237 4801 |H | Short_Literal 0x1 0238 e00a | | Load 0x0,0xa 0239 1b10 | | Execute Package,Field_Read,Field_Number 0x10 023a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 023b 4801 |H | Short_Literal 0x1 023c 4801 |H | Short_Literal 0x1 023d 4801 |H | Short_Literal 0x1 023e e00a | | Load 0x0,0xa 023f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0240 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0241 0092 0419 | | Action Push_String_Extended,0x419 ; "Operator.Enable_Privileges; if Operator.Privileged_Mode then " 0243 e00a | | Load 0x0,0xa 0244 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0245 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0246 00da | | Load_Top At_Offset_2 0247 e00a | | Load 0x0,0xa 0248 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0249 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024a 0092 041a | | Action Push_String_Extended,0x41a ; "else Log.Put_Line (\x22Failed to enable Privileged mode\x22, Profile.Error_Msg); end if;" 024c e00a | | Load 0x0,0xa 024d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 024e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024f e010 | | Load 0x0,0x10 0250 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0251 4801 |H | Short_Literal 0x1 0252 e00a | | Load 0x0,0xa 0253 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0254 180d | | Execute Package,Field_Execute,Field_Number 0xd 0255 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0256 0000 0000 | | .XXX[0x2] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0262 | b | .CONST 0x0262 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0002 | | .CONST 0x0002 ; Number of locals 025b INIT_0258: 025b 00ea | | Load_Encached Null_String_Cache 025c 4800 |H | Short_Literal 0x0 025d e405 | | Load 0x2,0x5 025e e404 | | Load 0x2,0x4 025f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0260 e404 | | Load 0x2,0x4 0261 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0262 BODY_0258: 0262 e00b | | Load 0x0,0xb 0263 180e | | Execute Package,Field_Execute,Field_Number 0xe 0264 4802 |H | Short_Literal 0x2 0265 0092 041b | | Action Push_String_Extended,0x41b ; "Prompting for step " 0267 4800 |H | Short_Literal 0x0 0268 e602 | | Load 0x3,0x2 0269 e404 | | Load 0x2,0x4 026a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 026b 01cc | | Execute Vector,Catenate 026c e00c | | Load 0x0,0xc 026d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 026e 00ea | | Load_Encached Null_String_Cache 026f 00d9 | | Load_Top At_Offset_1 0270 e404 | | Load 0x2,0x4 0271 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0272 e406 | | Load 0x2,0x6 0273 e404 | | Load 0x2,0x4 0274 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0275 841e | | Call 0x2,0x1e 0276 e011 | | Load 0x0,0x11 0277 0257 | W | Execute Discrete,Raise 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027d | } | .CONST 0x027d ; Address of begin 0279 0378 | x | .CONST 0x0378 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 027d BODY_0278: 027d 00cf | | Action Mark_Auxiliary 027e 78f4 |x | Jump 0x373 027f e41a | | Load 0x2,0x1a 0280 0f01 | | Execute_Immediate Equal,0x1 0281 68d8 |h | Jump_Zero 0x35a 0282 e405 | | Load 0x2,0x5 0283 e404 | | Load 0x2,0x4 0284 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0285 0b94 | | Execute_Immediate Case_Compare,0x94 0286 7008 |p | Jump_Nonzero 0x28f 0287 00d8 | | Load_Top At_Offset_0 0288 4800 |H | Short_Literal 0x0 0289 4890 |H | Short_Literal 0x90 028a 0262 | b | Execute Discrete,In_Range 028b 7006 |p | Jump_Nonzero 0x292 028c 0f92 | | Execute_Immediate Equal,-0x6e 028d 7005 |p | Jump_Nonzero 0x293 028e 78cb |x | Jump 0x35a 028f 00d1 | | Pop_Control Pop_Count_1 0290 841f | | Call 0x2,0x1f 0291 78c8 |x | Jump 0x35a 0292 00d1 | | Pop_Control Pop_Count_1 0293 e409 | | Load 0x2,0x9 0294 6818 |h | Jump_Zero 0x2ad 0295 00ea | | Load_Encached Null_String_Cache 0296 e405 | | Load 0x2,0x5 0297 e404 | | Load 0x2,0x4 0298 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0299 e406 | | Load 0x2,0x6 029a e404 | | Load 0x2,0x4 029b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 029c 841e | | Call 0x2,0x1e 029d 4800 |H | Short_Literal 0x0 029e e405 | | Load 0x2,0x5 029f e404 | | Load 0x2,0x4 02a0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02a1 0092 041c | | Action Push_String_Extended,0x41c ; ": Semantic Results: " 02a3 01cc | | Execute Vector,Catenate 02a4 e006 | | Load 0x0,0x6 02a5 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02a6 e010 | | Load 0x0,0x10 02a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02a8 4800 |H | Short_Literal 0x0 02a9 4800 |H | Short_Literal 0x0 02aa e010 | | Load 0x0,0x10 02ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02ac 78ad |x | Jump 0x35a 02ad e407 | | Load 0x2,0x7 02ae 6815 |h | Jump_Zero 0x2c4 02af e00b | | Load 0x0,0xb 02b0 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b1 4802 |H | Short_Literal 0x2 02b2 0092 041d | | Action Push_String_Extended,0x41d ; "Tracing Step " 02b4 4800 |H | Short_Literal 0x0 02b5 e405 | | Load 0x2,0x5 02b6 e404 | | Load 0x2,0x4 02b7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02b8 01cc | | Execute Vector,Catenate 02b9 e00c | | Load 0x0,0xc 02ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02bb 00ea | | Load_Encached Null_String_Cache 02bc e405 | | Load 0x2,0x5 02bd e404 | | Load 0x2,0x4 02be 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 02bf e406 | | Load 0x2,0x6 02c0 e404 | | Load 0x2,0x4 02c1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02c2 e006 | | Load 0x0,0x6 02c3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 02c4 e00b | | Load 0x0,0xb 02c5 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c6 4802 |H | Short_Literal 0x2 02c7 4800 |H | Short_Literal 0x0 02c8 e405 | | Load 0x2,0x5 02c9 e404 | | Load 0x2,0x4 02ca 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02cb 0092 041e | | Action Push_String_Extended,0x41e ; ": Begin execution" 02cd 01cc | | Execute Vector,Catenate 02ce e00c | | Load 0x0,0xc 02cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02d0 e005 | | Load 0x0,0x5 02d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02d2 c411 | | Store 0x2,0x11 02d3 e408 | | Load 0x2,0x8 02d4 6812 |h | Jump_Zero 0x2e7 02d5 0092 041f | | Action Push_String_Extended,0x41f ; "Activity => !Machine.Release.Current.Activity, <DEFAULT>" 02d7 0092 0420 | | Action Push_String_Extended,0x420 ; "$" 02d9 00ea | | Load_Encached Null_String_Cache 02da e405 | | Load 0x2,0x5 02db e404 | | Load 0x2,0x4 02dc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 02dd e406 | | Load 0x2,0x6 02de e404 | | Load 0x2,0x4 02df 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02e0 e012 | | Load 0x0,0x12 02e1 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e2 00ea | | Load_Encached Null_String_Cache 02e3 e40b | | Load 0x2,0xb 02e4 e013 | | Load 0x0,0x13 02e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02e6 7807 |x | Jump 0x2ee 02e7 e00b | | Load 0x0,0xb 02e8 180e | | Execute Package,Field_Execute,Field_Number 0xe 02e9 4802 |H | Short_Literal 0x2 02ea 0092 0421 | !| Action Push_String_Extended,0x421 ; "Execution Inhibited" 02ec e00c | | Load 0x0,0xc 02ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ee e00b | | Load 0x0,0xb 02ef 180e | | Execute Package,Field_Execute,Field_Number 0xe 02f0 4802 |H | Short_Literal 0x2 02f1 4800 |H | Short_Literal 0x0 02f2 e405 | | Load 0x2,0x5 02f3 e404 | | Load 0x2,0x4 02f4 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02f5 0092 0422 | "| Action Push_String_Extended,0x422 ; ": End execution" 02f7 01cc | | Execute Vector,Catenate 02f8 e00c | | Load 0x0,0xc 02f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02fa e005 | | Load 0x0,0x5 02fb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02fc c412 | | Store 0x2,0x12 02fd e414 | | Load 0x2,0x14 02fe e004 | | Load 0x0,0x4 02ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0300 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0301 01db | | Execute Vector,Length 0302 6857 |hW | Jump_Zero 0x35a 0303 e415 | | Load 0x2,0x15 0304 e004 | | Load 0x0,0x4 0305 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0306 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0307 01db | | Execute Vector,Length 0308 7046 |pF | Jump_Nonzero 0x34f 0309 e413 | | Load 0x2,0x13 030a 00ea | | Load_Encached Null_String_Cache 030b e415 | | Load 0x2,0x15 030c 4801 |H | Short_Literal 0x1 030d e006 | | Load 0x0,0x6 030e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 030f c413 | | Store 0x2,0x13 0310 4829 |H) | Short_Literal 0x29 0311 480a |H | Short_Literal 0xa 0312 4829 |H) | Short_Literal 0x29 0313 480a |H | Short_Literal 0xa 0314 4829 |H) | Short_Literal 0x29 0315 480a |H | Short_Literal 0xa 0316 480a |H | Short_Literal 0xa 0317 482e |H. | Short_Literal 0x2e 0318 480a |H | Short_Literal 0xa 0319 0092 0423 | #| Action Push_String_Extended,0x423 ; "DO_STEP_INFORMATION => (FILENAME => " 031b e415 | | Load 0x2,0x15 031c 01cc | | Execute Vector,Catenate 031d 01cb | | Execute Vector,Append 031e 0092 0424 | $| Action Push_String_Extended,0x424 ; " USER => " 0320 01cc | | Execute Vector,Catenate 0321 e014 | | Load 0x0,0x14 0322 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0323 e014 | | Load 0x0,0x14 0324 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0325 01cc | | Execute Vector,Catenate 0326 01cb | | Execute Vector,Append 0327 e014 | | Load 0x0,0x14 0328 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0329 e014 | | Load 0x0,0x14 032a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 032b 01cc | | Execute Vector,Catenate 032c 01cb | | Execute Vector,Append 032d 0092 0425 | %| Action Push_String_Extended,0x425 ; " MACHINE_ID => " 032f 01cc | | Execute Vector,Catenate 0330 e015 | | Load 0x0,0x15 0331 180d | | Execute Package,Field_Execute,Field_Number 0xd 0332 01cc | | Execute Vector,Catenate 0333 01cb | | Execute Vector,Append 0334 0092 0426 | &| Action Push_String_Extended,0x426 ; " MACHINE_NAME => (" 0336 01cc | | Execute Vector,Catenate 0337 e015 | | Load 0x0,0x15 0338 180f | | Execute Package,Field_Execute,Field_Number 0xf 0339 01cc | | Execute Vector,Catenate 033a 01cb | | Execute Vector,Append 033b 01cb | | Execute Vector,Append 033c 0092 0427 | '| Action Push_String_Extended,0x427 ; " CUSTOMER_NAME => (" 033e 01cc | | Execute Vector,Catenate 033f e015 | | Load 0x0,0x15 0340 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0341 01cc | | Execute Vector,Catenate 0342 01cb | | Execute Vector,Append 0343 01cb | | Execute Vector,Append 0344 0092 0428 | (| Action Push_String_Extended,0x428 ; " CONFIGURATION => " 0346 01cc | | Execute Vector,Catenate 0347 e015 | | Load 0x0,0x15 0348 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0349 01cc | | Execute Vector,Catenate 034a 01cb | | Execute Vector,Append 034b e413 | | Load 0x2,0x13 034c e006 | | Load 0x0,0x6 034d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 034e 7806 |x | Jump 0x355 034f e413 | | Load 0x2,0x13 0350 00ea | | Load_Encached Null_String_Cache 0351 e415 | | Load 0x2,0x15 0352 e006 | | Load 0x0,0x6 0353 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0354 c413 | | Store 0x2,0x13 0355 8602 | | Call 0x3,0x2 0356 e413 | | Load 0x2,0x13 0357 e006 | | Load 0x0,0x6 0358 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0359 c413 | | Store 0x2,0x13 035a e405 | | Load 0x2,0x5 035b e404 | | Load 0x2,0x4 035c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 035d c405 | | Store 0x2,0x5 035e e40a | | Load 0x2,0xa 035f 6807 |h | Jump_Zero 0x367 0360 e405 | | Load 0x2,0x5 0361 e404 | | Load 0x2,0x4 0362 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0363 7003 |p | Jump_Nonzero 0x367 0364 841b | | Call 0x2,0x1b 0365 a41a | | Store_Unchecked 0x2,0x1a 0366 7802 |x | Jump 0x369 0367 4801 |H | Short_Literal 0x1 0368 a41a | | Store_Unchecked 0x2,0x1a 0369 e40a | | Load 0x2,0xa 036a 6807 |h | Jump_Zero 0x372 036b e405 | | Load 0x2,0x5 036c e404 | | Load 0x2,0x4 036d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 036e 7003 |p | Jump_Nonzero 0x372 036f e41a | | Load 0x2,0x1a 0370 0f03 | | Execute_Immediate Equal,0x3 0371 7005 |p | Jump_Nonzero 0x377 0372 00c9 | | Action Pop_Auxiliary_Loop 0373 e405 | | Load 0x2,0x5 0374 e404 | | Load 0x2,0x4 0375 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0376 6f08 |o | Jump_Zero 0x27f 0377 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0378 TRAP_0278: 0378 e011 | | Load 0x0,0x11 0379 010f | | Execute Exception,Equal 037a 6818 |h | Jump_Zero 0x393 037b e405 | | Load 0x2,0x5 037c e404 | | Load 0x2,0x4 037d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 037e c405 | | Store 0x2,0x5 037f e405 | | Load 0x2,0x5 0380 e404 | | Load 0x2,0x4 0381 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0382 700f |p | Jump_Nonzero 0x392 0383 e00b | | Load 0x0,0xb 0384 180e | | Execute Package,Field_Execute,Field_Number 0xe 0385 4802 |H | Short_Literal 0x2 0386 0092 0429 | )| Action Push_String_Extended,0x429 ; "Steps starting from " 0388 4800 |H | Short_Literal 0x0 0389 e405 | | Load 0x2,0x5 038a e404 | | Load 0x2,0x4 038b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 038c 01cc | | Execute Vector,Catenate 038d 0092 042a | *| Action Push_String_Extended,0x42a ; " were not executed" 038f 01cc | | Execute Vector,Catenate 0390 e00c | | Load 0x0,0xc 0391 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0392 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0393 0100 | | Execute Exception,Raise 0394 0000 0000 | | .BLANK 0000[0x4] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a2 | | .CONST 0x03a2 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0002 | | .CONST 0x0002 ; Number of locals 039b INIT_0398: 039b 00ea | | Load_Encached Null_String_Cache 039c 4800 |H | Short_Literal 0x0 039d e405 | | Load 0x2,0x5 039e e404 | | Load 0x2,0x4 039f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03a0 e404 | | Load 0x2,0x4 03a1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 03a2 BODY_0398: 03a2 00d8 | | Load_Top At_Offset_0 03a3 e404 | | Load 0x2,0x4 03a4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 03a5 00d8 | | Load_Top At_Offset_0 03a6 4893 |H | Short_Literal 0x93 03a7 4896 |H | Short_Literal 0x96 03a8 0262 | b | Execute Discrete,In_Range 03a9 7005 |p | Jump_Nonzero 0x3af 03aa 4801 |H | Short_Literal 0x1 03ab 4892 |H | Short_Literal 0x92 03ac 0262 | b | Execute Discrete,In_Range 03ad 701f |p | Jump_Nonzero 0x3cd 03ae 7810 |x | Jump 0x3bf 03af 00d1 | | Pop_Control Pop_Count_1 03b0 e00b | | Load 0x0,0xb 03b1 180e | | Execute Package,Field_Execute,Field_Number 0xe 03b2 4807 |H | Short_Literal 0x7 03b3 0092 042b | +| Action Push_String_Extended,0x42b ; "ERROR with PROMPT Step: Cannot prompt for " 03b5 4800 |H | Short_Literal 0x0 03b6 e802 | | Load 0x4,0x2 03b7 e404 | | Load 0x2,0x4 03b8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03b9 01cc | | Execute Vector,Catenate 03ba e00c | | Load 0x0,0xc 03bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03bc 4800 |H | Short_Literal 0x0 03bd a602 | | Store_Unchecked 0x3,0x2 03be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03bf e00b | | Load 0x0,0xb 03c0 180e | | Execute Package,Field_Execute,Field_Number 0xe 03c1 4807 |H | Short_Literal 0x7 03c2 0092 042c | ,| Action Push_String_Extended,0x42c ; "ERROR with PROMPT Step: " 03c4 4800 |H | Short_Literal 0x0 03c5 e802 | | Load 0x4,0x2 03c6 e404 | | Load 0x2,0x4 03c7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03c8 01cc | | Execute Vector,Catenate 03c9 e00c | | Load 0x0,0xc 03ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03cb 4800 |H | Short_Literal 0x0 03cc a602 | | Store_Unchecked 0x3,0x2 03cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ce 0000 0000 | | .XXX[0x2] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 4800 |H | Short_Literal 0x0 03d4 e405 | | Load 0x2,0x5 03d5 e404 | | Load 0x2,0x4 03d6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03d7 0092 042d | -| Action Push_String_Extended,0x42d ; " => (Elapsed => (" 03d9 01cc | | Execute Vector,Catenate 03da e411 | | Load 0x2,0x11 03db e412 | | Load 0x2,0x12 03dc e005 | | Load 0x0,0x5 03dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03de e007 | | Load 0x0,0x7 03df 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03e0 01cc | | Execute Vector,Catenate 03e1 0092 042e | .| Action Push_String_Extended,0x42e ; "), Start => (" 03e3 01cc | | Execute Vector,Catenate 03e4 4800 |H | Short_Literal 0x0 03e5 4801 |H | Short_Literal 0x1 03e6 4803 |H | Short_Literal 0x3 03e7 e411 | | Load 0x2,0x11 03e8 8417 | | Call 0x2,0x17 03e9 8416 | | Call 0x2,0x16 03ea 01cc | | Execute Vector,Catenate 03eb 0092 042f | /| Action Push_String_Extended,0x42f ; "), Stop => (" 03ed 01cc | | Execute Vector,Catenate 03ee 4800 |H | Short_Literal 0x0 03ef 4801 |H | Short_Literal 0x1 03f0 4803 |H | Short_Literal 0x3 03f1 e412 | | Load 0x2,0x12 03f2 8417 | | Call 0x2,0x17 03f3 8416 | | Call 0x2,0x16 03f4 01cc | | Execute Vector,Catenate 03f5 0092 0430 | 0| Action Push_String_Extended,0x430 ; "))" 03f7 01cc | | Execute Vector,Catenate 03f8 e413 | | Load 0x2,0x13 03f9 e006 | | Load 0x0,0x6 03fa 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 03fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03fc ; -------------------------------------------------------------------------------------- 03fc ; STRING TABLE 03fc ; -------------------------------------------------------------------------------------- 03fc 006c | l | .STRTAB 0x006c->0x0432 ; "NONE" 03fd 006e | n | .STRTAB 0x006e->0x0434 ; "CONTINUE" 03fe 0074 | t | .STRTAB 0x0074->0x0438 ; "SKIP" 03ff 0076 | v | .STRTAB 0x0076->0x043a ; "QUIT" 0400 0078 | x | .STRTAB 0x0078->0x043c ; "2.0" 0401 0079 | y | .STRTAB 0x0079->0x043d ; "others => Unspecified" 0402 008c | | .STRTAB 0x008c->0x0448 ; ",LOAD_TAPE => (Archive.Restore(Options => \x22Replace,Promote\x22,Response=>\x22:::,<PROGRESS>\x22);)" 0403 00e3 | | .STRTAB 0x00e3->0x0474 ; ".Logs" 0404 00e6 | | .STRTAB 0x00e6->0x0477 ; ".Do_Step_Execution_Time" 0405 00fb | | .STRTAB 0x00fb->0x0482 ; "others => Boolean_Valued" 0406 0111 | | .STRTAB 0x0111->0x048e ; "DO_STEP Version 2.0" 0407 0122 | " | .STRTAB 0x0122->0x0498 ; "Cannot enable privileged mode, halting procedure DO_STEP" 0408 0158 | X | .STRTAB 0x0158->0x04b4 ; "No steps were specified" 0409 016d | m | .STRTAB 0x016d->0x04bf ; "Completed procedure DO_STEP" 040a 0186 | | .STRTAB 0x0186->0x04cd ; "Halting procedure DO_STEP" 040b 019d | | .STRTAB 0x019d->0x04d9 ; "The STEP definition file, " 040c 01b5 | | .STRTAB 0x01b5->0x04e6 ; ", was not found; this may be the problem" 040d 01db | | .STRTAB 0x01db->0x04fa ; "Unhandled Exception: " 040e 01ee | | .STRTAB 0x01ee->0x0505 ; "Continue with " 040f 01fa | | .STRTAB 0x01fa->0x050c ; " step (Continue | Skip | Quit)? [Continue] : " 0410 0226 | & | .STRTAB 0x0226->0x0523 ; "*** ERROR: Must be one of CONTINUE | SKIP | QUIT" 0411 0254 | T | .STRTAB 0x0254->0x053b ; "TRACE" 0412 0257 | W | .STRTAB 0x0257->0x053d ; "EXECUTE" 0413 025c | \ | .STRTAB 0x025c->0x0541 ; "PROMPT" 0414 0260 | ` | .STRTAB 0x0260->0x0544 ; "SEMANTICIZE" 0415 0269 | i | .STRTAB 0x0269->0x0549 ; "LOAD_TAPE" 0416 0270 | p | .STRTAB 0x0270->0x054e ; "PAUSE" 0417 0273 | s | .STRTAB 0x0273->0x0550 ; "ERROR with Step: " 0418 0282 | | .STRTAB 0x0282->0x0559 ; "<IMAGE>" 0419 0287 | | .STRTAB 0x0287->0x055c ; "Operator.Enable_Privileges; if Operator.Privileged_Mode then " 041a 02c2 | | .STRTAB 0x02c2->0x057b ; "else Log.Put_Line (\x22Failed to enable Privileged mode\x22, Profile.Error_Msg); end if;" 041b 0312 | | .STRTAB 0x0312->0x05a4 ; "Prompting for step " 041c 0323 | # | .STRTAB 0x0323->0x05ad ; ": Semantic Results: " 041d 0335 | 5 | .STRTAB 0x0335->0x05b7 ; "Tracing Step " 041e 0340 | @ | .STRTAB 0x0340->0x05be ; ": Begin execution" 041f 034f | O | .STRTAB 0x034f->0x05c6 ; "Activity => !Machine.Release.Current.Activity, <DEFAULT>" 0420 0385 | | .STRTAB 0x0385->0x05e2 ; "$" 0421 0384 | | .STRTAB 0x0384->0x05e3 ; "Execution Inhibited" 0422 0395 | | .STRTAB 0x0395->0x05ec ; ": End execution" 0423 03a2 | | .STRTAB 0x03a2->0x05f4 ; "DO_STEP_INFORMATION => (FILENAME => " 0424 03c4 | | .STRTAB 0x03c4->0x0606 ; " USER => " 0425 03e2 | | .STRTAB 0x03e2->0x0616 ; " MACHINE_ID => " 0426 0406 | | .STRTAB 0x0406->0x0629 ; " MACHINE_NAME => (" 0427 042d | - | .STRTAB 0x042d->0x063d ; " CUSTOMER_NAME => (" 0428 0455 | U | .STRTAB 0x0455->0x0652 ; " CONFIGURATION => " 0429 047c | | | .STRTAB 0x047c->0x0667 ; "Steps starting from " 042a 048e | | .STRTAB 0x048e->0x0671 ; " were not executed" 042b 049e | | .STRTAB 0x049e->0x067a ; "ERROR with PROMPT Step: Cannot prompt for " 042c 04c6 | | .STRTAB 0x04c6->0x068f ; "ERROR with PROMPT Step: " 042d 04dc | | .STRTAB 0x04dc->0x069b ; " => (Elapsed => (" 042e 04eb | | .STRTAB 0x04eb->0x06a3 ; "), Start => (" 042f 04f6 | | .STRTAB 0x04f6->0x06aa ; "), Stop => (" 0430 0500 | | .STRTAB 0x0500->0x06b0 ; "))" 0431 0500 | | .STREND 0x0500->0x06b1 0432 4e4f 4e45 |NONE| .STRTAB_STRINGS 06b1 0000 0000 | | .BLANK 0000[0x7] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; Debug Table 06b8 ; -------------------------------------------------------------------------------------- 06b8 0004 0005 | | .DEBUG4 0x0004,0x0005,0xecfc,0x0000,0x0001,0x0000 06be 0e76 3000 | v0 | .XXX[0x142] 06c0 0666 2400 | f$ | 06c2 e5be 0000 | | 06c4 0000 0e65 | e| 06c6 5003 9c48 |P H| 06c8 0100 7bdf | { | 06ca 8021 41a0 | !A | 06cc 0e60 3003 | `0 | 06ce 9b9c 00e6 | | 06d0 9600 401f | @ | 06d2 7bf9 d0b0 |{ | 06d4 0399 5400 | T | 06d6 0000 005b | [| 06d8 0080 2698 | & | 06da c010 07dd | | 06dc 8002 0200 | | 06de 2c00 0000 |, | 06e0 0000 1cc0 | | 06e2 69d0 b003 |i | 06e4 980c 0000 | | 06e6 0000 6000 | ` | 06e8 803d b6c0 | = | 06ea 1007 bdf8 | | 06ec 0240 2000 | @ | 06ee e5be 0000 | | 06f0 0000 0e7c | || 06f2 2803 a7c2 |( | 06f4 0200 3087 | 0 | 06f6 c000 3865 | 8e| 06f8 ece4 5401 | T | 06fa cec6 0073 | s| 06fc f880 1107 | | 06fe a020 02c0 | | 0700 0000 0000 | | 0702 0386 d799 | | 0704 8900 3a7c | :|| 0706 2000 0000 | | 0708 03a1 b800 | | 070a e92b 0040 | + @| 070c 1ef7 e008 | | 070e 5068 03a0 |Ph | 0710 7000 e900 |p | 0712 003a 2bc0 | :+ | 0714 1007 defe | | 0716 742c 00e8 |t, | 0718 6e00 0000 |n | 071a 0016 c020 | | 071c 09a6 3004 | 0 | 071e 01f7 6000 | ` | 0720 8080 0b00 | | 0722 0000 0000 | | 0724 0740 e274 | @ t| 0726 2c00 e81c |, | 0728 0000 0000 | | 072a 1800 200f | | 072c 6db0 0401 |m | 072e ef7e 0080 | ~ | 0730 3a75 800e |:u | 0732 81c4 b820 | | 0734 01d3 e100 | | 0736 0000 0041 | A| 0738 8080 0c21 | !| 073a ffb8 0000 | | 073c 0000 e996 | | 073e c224 c01c | $ | 0740 ec60 0000 | ` | 0742 0001 d2f8 | | 0744 84cb 8037 | 7| 0746 3220 0000 |2 | 0748 0003 7ac0 | z | 074a 0002 003a | :| 074c ed30 4a10 | 0J | 074e 0777 9800 | w | 0750 0000 0075 | u| 0752 5540 1d6f |U@ o| 0754 9000 14e8 | | 0756 5801 d4cb |X | 0758 0000 0000 | | 075a 0880 4013 | @ | 075c c230 1001 | 0 | 075e 7a46 0000 |zF | 0760 0000 204b | K| 0762 800e b7c8 | | 0764 0000 0000 | | 0766 eb41 0000 | A | 0768 6762 e00e |gb | 076a b090 0000 | | 076c 0002 1002 | | 076e 00cb dbc2 | | 0770 65c0 1d4c |e L| 0772 b000 0000 | | 0774 01d5 f700 | | 0776 0080 0000 | | 0778 0825 0803 | % | 077a bbcc 0000 | | 077c 0000 0000 | | 077e 000e ead8 | | 0780 000c 0000 | | 0782 0041 1340 | A @| 0784 1dd5 b000 | | 0786 0000 01d8 | | 0788 b300 772e | w.| 078a 4000 3331 |@ 31| 078c 2007 60a4 | ` | 078e 0000 0000 | | 0790 7655 c01d |vU | 0792 c170 0801 | p | 0794 ff86 0133 | 3| 0796 1200 762c | v,| 0798 c000 0000 | | 079a 0767 ec01 | g | 079c db75 0080 | u | 079e 399f 6010 |9 ` | 07a0 a0d0 0765 | e| 07a2 5c01 db1f |\ | 07a4 0076 9f40 | v @| 07a6 200e 2ef4 | . | 07a8 e858 01d9 | X | 07aa fb00 0000 | | 07ac 003e 8000 | > | 07ae 1ac6 7000 | p | 07b0 035b e201 | [ | 07b2 0100 1600 | | 07b4 0000 0000 | | 07b6 0eca bce8 | | 07b8 5801 d957 |X W| 07ba 0000 0000 | | 07bc 1180 401c | @ | 07be b330 0803 | 0 | 07c0 99f6 013a | :| 07c2 1600 762c | v,| 07c4 c000 0000 | | 07c6 0e80 1003 | | 07c8 f7ec 0200 | | 07ca 7fe1 804e | N| 07cc 8580 1d82 | | 07ce 9000 0000 | | 07d0 03a0 0401 | | 07d2 39a6 0080 |9 | 07d4 1b8d 0010 | | 07d6 9970 075e | p ^| 07d8 1000 0000 | | 07da 0076 0380 | v | 07dc 0020 0000 | | 07de 0212 ac00 | | 07e0 ef2b 0000 | + | 07e2 0000 0dcb | | 07e4 b000 2213 | " | 07e6 2e00 d01b |. | 07e8 8000 0000 | | 07ea 0eee 5800 | X | 07ec 2613 1200 |& | 07ee d01b 8000 | | 07f0 0000 0000 | | 07f2 0000 020e | | 07f4 c0b4 0000 | | 07f6 007f ff40 | @| 07f8 4007 4000 |@ @ | 07fa 0000 0802 | | 07fc 62f9 008c |b | 07fe 5200 18fc |R |