|
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 6236 c740 |b6 @| .XXX[0x19]
06c0 1001 0000 | |
06c2 d100 0000 | |
06c4 0eac c000 | |
06c6 0300 0000 | |
06c8 0300 2800 | ( |
06ca 0000 0800 | |
06cc 0002 0000 | |
06ce 0011 0000 | |
06d0 0000 0800 | |
06d2 0000 5200 | R |
06d4 0010 2f0a | / |
06d6 a000 | |
06d7 0000 0000 | | .BLANK 0000[0x1b]
06f2 004e 0742 | N B| .XXX[0x1e]
06f4 1600 3060 | 0`|
06f6 0002 6c46 | lF|
06f8 d8e8 0200 | |
06fa 2000 1a20 | |
06fc 0000 01d5 | |
06fe 9800 0060 | `|
0700 0000 0060 | `|
0702 0500 0000 | |
0704 0100 0000 | |
0706 4000 0002 |@ |
0708 2000 0000 | |
070a 0100 0000 | |
070c 0a40 0002 | @ |
070e 05e1 5400 | T |
0710 0000 0000 | | .BLANK 0000[0x1b]
072b 0009 c0e8 | | .XXX[0x1e]
072d 42c0 060c |B |
072f 0000 4d88 | M |
0731 db1d 0040 | @|
0733 0400 0344 | D|
0735 0000 003a | :|
0737 b300 000c | |
0739 0000 000c | |
073b 00a0 0000 | |
073d 0020 0000 | |
073f 0800 0000 | |
0741 4400 0000 |D |
0743 0020 0000 | |
0745 0148 0000 | H |
0747 40bc 2a80 |@ * |
0749 0000 0000 | | .BLANK 0000[0x1b]
0764 0001 381d | 8 | .XXX[0x1e]
0766 0858 00c1 | X |
0768 8000 09b1 | |
076a 1b63 a008 | c |
076c 0080 0068 | h|
076e 8000 0007 | |
0770 5660 0001 |V` |
0772 8000 0001 | |
0774 8014 0000 | |
0776 0004 0000 | |
0778 0100 0000 | |
077a 0880 0000 | |
077c 0004 0000 | |
077e 0029 0000 | ) |
0780 0817 8550 | P|
0782 0000 0000 | | .BLANK 0000[0x1c]
079e 2703 a000 |' | .XXX[0x2]
07a0 0000 0000 | | .BLANK 0000[0xd]
07ad 1002 8000 | | .XXX[0xb]
07af 0000 0000 | |
07b1 0020 0000 | |
07b3 0110 0000 | |
07b5 0000 8000 | |
07b7 0005 | |
07b8 0000 0000 | | .BLANK 0000[0x48]