|
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_0698fd
└─⟦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 0708 | | .CONST 0x0708 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00b9 | | .CONST 0x00b9 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002d | - | .CONST 0x002d ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0025 c221 | ! | Store 0x1,0x21 0026 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0028 c224 | $ | Store 0x1,0x24 0029 4818 |H | Short_Literal 0x18 002a 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 002b c20d | | Store 0x1,0xd 002c 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 002e c21d | | Store 0x1,0x1d 002f 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0031 c21e | | Store 0x1,0x1e 0032 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0034 c211 | | Store 0x1,0x11 0035 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0037 c212 | | Store 0x1,0x12 0038 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 003a c213 | | Store 0x1,0x13 003b 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 003d c21f | | Store 0x1,0x1f 003e 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0040 c214 | | Store 0x1,0x14 0041 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0043 c215 | | Store 0x1,0x15 0044 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0046 c216 | | Store 0x1,0x16 0047 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0049 c217 | | Store 0x1,0x17 004a 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 004c c218 | | Store 0x1,0x18 004d 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 004f c220 | | Store 0x1,0x20 0050 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 0052 c219 | | Store 0x1,0x19 0053 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 0055 c21a | | Store 0x1,0x1a 0056 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0058 c21b | | Store 0x1,0x1b 0059 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated 005b c222 | " | Store 0x1,0x22 005c 4808 |H | Short_Literal 0x8 005d 032a | * | Declare_Type Record,Incomplete 005e c21c | | Store 0x1,0x1c 005f e21c | | Load 0x1,0x1c 0060 02a0 | | Declare_Subprogram Null_Subprogram 0061 e20d | | Load 0x1,0xd 0062 03c7 | | Complete_Type Access,By_Defining 0063 00bf | | Action Accept_Activation 0064 00e1 | | Load_Encached Boolean_Cache 0065 00e1 | | Load_Encached Boolean_Cache 0066 e001 | | Load 0x0,0x1 0067 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0068 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0069 00e3 | | Load_Encached Natural_Cache 006a e002 | | Load 0x0,0x2 006b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006c 605f |`_ | Indirect_Literal Discrete,0xcc,{0x00000000, 0x00002710} 006d e003 | | Load 0x0,0x3 006e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006f 1c07 | | Execute_Immediate Run_Utility,0x7 0070 605b |`[ | Indirect_Literal Discrete,0xcc,{0x00000000, 0x00002710} 0071 e003 | | Load 0x0,0x3 0072 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0073 1c07 | | Execute_Immediate Run_Utility,0x7 0074 e004 | | Load 0x0,0x4 0075 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0076 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 0078 e21c | | Load 0x1,0x1c 0079 0326 | & | Complete_Type Record,By_Defining 007a 00e3 | | Load_Encached Natural_Cache 007b 00e1 | | Load_Encached Boolean_Cache 007c 4882 |H | Short_Literal 0x82 007d e003 | | Load 0x0,0x3 007e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007f 1c07 | | Execute_Immediate Run_Utility,0x7 0080 4801 |H | Short_Literal 0x1 0081 48fa |H | Short_Literal 0xfa 0082 e227 | ' | Load 0x1,0x27 0083 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call 0085 4801 |H | Short_Literal 0x1 0086 035d | ] | Declare_Type Array,Defined 0087 00d8 | | Load_Top At_Offset_0 0088 0337 | 7 | Declare_Variable Array 0089 00d8 | | Load_Top At_Offset_0 008a 1c00 | | Execute_Immediate Run_Utility,0x0 008b 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call 008d 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call 008f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0090 00c7 | | Action Elaborate_Subprogram 0091 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0092 00c7 | | Action Elaborate_Subprogram 0093 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0094 00c7 | | Action Elaborate_Subprogram 0095 029b 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Unelaborated 0097 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call 0099 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009a 00c7 | | Action Elaborate_Subprogram 009b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 009c 00c7 | | Action Elaborate_Subprogram 009d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 009e 00c7 | | Action Elaborate_Subprogram 009f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00ae 00c7 | | Action Elaborate_Subprogram 00af 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00b0 00c7 | | Action Elaborate_Subprogram 00b1 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00b2 00c7 | | Action Elaborate_Subprogram 00b3 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00b4 00c7 | | Action Elaborate_Subprogram 00b5 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00b6 00c7 | | Action Elaborate_Subprogram 00b7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00b8 00c7 | | Action Elaborate_Subprogram 00b9 BODY_0008: 00b9 00bc | | Action Signal_Activated 00ba 00bb | | Action Signal_Completion 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e5ff | | Load 0x2,-0x1 00c4 e005 | | Load 0x0,0x5 00c5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00c6 e004 | | Load 0x0,0x4 00c7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00c8 e004 | | Load 0x0,0x4 00c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ca 8224 | $ | Call 0x1,0x24 00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cc 0000 0000 | | .LITERAL {0x00000000, 0x00002710} 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00db | | .CONST 0x00db ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0003 | | .CONST 0x0003 ; Number of locals 00d3 INIT_00d0: 00d3 e006 | | Load 0x0,0x6 00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00d6 02c7 | | Declare_Variable Any 00d7 00d8 | | Load_Top At_Offset_0 00d8 1c00 | | Execute_Immediate Run_Utility,0x0 00d9 029f 055b | [| Declare_Subprogram INIT_0558,For_Call 00db BODY_00d0: 00db 4801 |H | Short_Literal 0x1 00dc 0092 0653 | S| Action Push_String_Extended,0x653 ; "!machine.error_logs" 00de e5fd | | Load 0x2,-0x3 00df e007 | | Load 0x0,0x7 00e0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00e1 a226 | & | Store_Unchecked 0x1,0x26 00e2 e5fe | | Load 0x2,-0x2 00e3 e5ff | | Load 0x2,-0x1 00e4 e5fd | | Load 0x2,-0x3 00e5 0092 0654 | T| Action Push_String_Extended,0x654 ; ".log@_at_@" 00e7 01cc | | Execute Vector,Catenate 00e8 8403 | | Call 0x2,0x3 00e9 c402 | | Store 0x2,0x2 00ea 4800 |H | Short_Literal 0x0 00eb a225 | % | Store_Unchecked 0x1,0x25 00ec 00cf | | Action Mark_Auxiliary 00ed 7822 |x" | Jump 0x110 00ee e225 | % | Load 0x1,0x25 00ef 0cfa | | Execute_Immediate Greater_Equal,-0x6 00f0 6808 |h | Jump_Zero 0xf9 00f1 e008 | | Load 0x0,0x8 00f2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f3 4806 |H | Short_Literal 0x6 00f4 0092 0655 | U| Action Push_String_Extended,0x655 ; "Too many log files. Maximum is 250. Extra files will not be processed." 00f6 e009 | | Load 0x0,0x9 00f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f8 781c |x | Jump 0x115 00f9 e225 | % | Load 0x1,0x25 00fa 0a01 | | Execute_Immediate Plus,0x1 00fb c225 | % | Store 0x1,0x25 00fc e225 | % | Load 0x1,0x25 00fd e229 | ) | Load 0x1,0x29 00fe 01d5 | | Execute Vector,Field_Reference 00ff 00d8 | | Load_Top At_Offset_0 0100 e402 | | Load 0x2,0x2 0101 e006 | | Load 0x0,0x6 0102 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0103 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0104 e006 | | Load 0x0,0x6 0105 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0106 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0107 e003 | | Load 0x0,0x3 0108 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0109 00d2 | | Pop_Control Pop_Count_2 010a e402 | | Load 0x2,0x2 010b e006 | | Load 0x0,0x6 010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 010e c402 | | Store 0x2,0x2 010f 00c9 | | Action Pop_Auxiliary_Loop 0110 e402 | | Load 0x2,0x2 0111 e006 | | Load 0x0,0x6 0112 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0113 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0114 6fd9 |o | Jump_Zero 0xee 0115 00ce | | Action Pop_Auxiliary 0116 e225 | % | Load 0x1,0x25 0117 7009 |p | Jump_Nonzero 0x121 0118 e008 | | Load 0x0,0x8 0119 180e | | Execute Package,Field_Execute,Field_Number 0xe 011a 4806 |H | Short_Literal 0x6 011b 0092 0656 | V| Action Push_String_Extended,0x656 ; "No log files within specified dates in: " 011d e5fd | | Load 0x2,-0x3 011e 01cc | | Execute Vector,Catenate 011f e009 | | Load 0x0,0x9 0120 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0121 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012d | - | .CONST 0x012d ; Address of begin 0129 0160 | ` | .CONST 0x0160 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e20d | | Load 0x1,0xd 012c 0007 | | Action Break_Optional 012d BODY_0128: 012d e20d | | Load 0x1,0xd 012e 03bc | | Declare_Variable Access,By_Allocation 012f 00d8 | | Load_Top At_Offset_0 0130 0227 | ' | Execute Access,All_Reference 0131 1c00 | | Execute_Immediate Run_Utility,0x0 0132 a402 | | Store_Unchecked 0x2,0x2 0133 4800 |H | Short_Literal 0x0 0134 e402 | | Load 0x2,0x2 0135 0227 | ' | Execute Access,All_Reference 0136 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0137 4800 |H | Short_Literal 0x0 0138 e402 | | Load 0x2,0x2 0139 0227 | ' | Execute Access,All_Reference 013a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013b 6040 |`@ | Indirect_Literal Discrete,0x17c,{0xffffffff, 0x80000001} 013c e402 | | Load 0x2,0x2 013d 0227 | ' | Execute Access,All_Reference 013e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 013f 4801 |H | Short_Literal 0x1 0140 e402 | | Load 0x2,0x2 0141 0227 | ' | Execute Access,All_Reference 0142 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0143 e004 | | Load 0x0,0x4 0144 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0145 e402 | | Load 0x2,0x2 0146 0227 | ' | Execute Access,All_Reference 0147 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0148 00d8 | | Load_Top At_Offset_0 0149 0229 | ) | Execute Access,All_Read 014a 00d8 | | Load_Top At_Offset_0 014b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 014c 00ea | | Load_Encached Null_String_Cache 014d 4801 |H | Short_Literal 0x1 014e e229 | ) | Load 0x1,0x29 014f 01d5 | | Execute Vector,Field_Reference 0150 e003 | | Load 0x0,0x3 0151 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0152 4800 |H | Short_Literal 0x0 0153 e002 | | Load 0x0,0x2 0154 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0155 e403 | | Load 0x2,0x3 0156 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0157 00d1 | | Pop_Control Pop_Count_1 0158 e5fe | | Load 0x2,-0x2 0159 e402 | | Load 0x2,0x2 015a 821e | | Call 0x1,0x1e 015b c402 | | Store 0x2,0x2 015c c5fe | | Store 0x2,-0x2 015d 00d8 | | Load_Top At_Offset_0 015e a5ff | | Store_Unchecked 0x2,-0x1 015f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0160 TRAP_0128: 0160 00d8 | | Load_Top At_Offset_0 0161 0107 | | Execute Exception,Get_Name 0162 4920 |I | Short_Literal 0x120 0163 492f |I/ | Short_Literal 0x12f 0164 0262 | b | Execute Discrete,In_Range 0165 6814 |h | Jump_Zero 0x17a 0166 e5fe | | Load 0x2,-0x2 0167 4801 |H | Short_Literal 0x1 0168 00ea | | Load_Encached Null_String_Cache 0169 0092 0657 | W| Action Push_String_Extended,0x657 ; "Log files can't be opened" 016b e00a | | Load 0x0,0xa 016c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 016d c5fe | | Store 0x2,-0x2 016e 4801 |H | Short_Literal 0x1 016f e402 | | Load 0x2,0x2 0170 0227 | ' | Execute Access,All_Reference 0171 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0172 e5fe | | Load 0x2,-0x2 0173 e402 | | Load 0x2,0x2 0174 821e | | Call 0x1,0x1e 0175 c402 | | Store 0x2,0x2 0176 c5fe | | Store 0x2,-0x2 0177 e402 | | Load 0x2,0x2 0178 a5ff | | Store_Unchecked 0x2,-0x1 0179 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017a 0100 | | Execute Exception,Raise 017b 0000 | | .XXX[0x1] 017c ffff ffff | | .LITERAL {0xffffffff, 0x80000001} 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0187 | | .CONST 0x0187 ; Address of begin 0181 0201 | | .CONST 0x0201 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 00e1 | | Load_Encached Boolean_Cache 0184 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0185 029f 05db | | Declare_Subprogram INIT_05d8,For_Call 0187 BODY_0180: 0187 e5ff | | Load 0x2,-0x1 0188 0227 | ' | Execute Access,All_Reference 0189 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 018a e003 | | Load 0x0,0x3 018b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 018c 701b |p | Jump_Nonzero 0x1a8 018d e5ff | | Load 0x2,-0x1 018e 0227 | ' | Execute Access,All_Reference 018f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0190 680a |h | Jump_Zero 0x19b 0191 e5ff | | Load 0x2,-0x1 0192 0229 | ) | Execute Access,All_Read 0193 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0194 00d8 | | Load_Top At_Offset_0 0195 e5ff | | Load 0x2,-0x1 0196 822d | - | Call 0x1,0x2d 0197 e003 | | Load 0x0,0x3 0198 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0199 00d2 | | Pop_Control Pop_Count_2 019a 7820 |x | Jump 0x1bb 019b e5ff | | Load 0x2,-0x1 019c 0229 | ) | Execute Access,All_Read 019d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 019e 00d8 | | Load_Top At_Offset_0 019f e5ff | | Load 0x2,-0x1 01a0 0227 | ' | Execute Access,All_Reference 01a1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01a2 e002 | | Load 0x0,0x2 01a3 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01a4 e003 | | Load 0x0,0x3 01a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a6 00d2 | | Pop_Control Pop_Count_2 01a7 7813 |x | Jump 0x1bb 01a8 e5ff | | Load 0x2,-0x1 01a9 0229 | ) | Execute Access,All_Read 01aa 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 01ab 00d8 | | Load_Top At_Offset_0 01ac e5ff | | Load 0x2,-0x1 01ad 0227 | ' | Execute Access,All_Reference 01ae 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 01af e003 | | Load 0x0,0x3 01b0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01b1 00d2 | | Pop_Control Pop_Count_2 01b2 e5ff | | Load 0x2,-0x1 01b3 0229 | ) | Execute Access,All_Read 01b4 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01b5 00d8 | | Load_Top At_Offset_0 01b6 4820 |H | Short_Literal 0x20 01b7 4800 |H | Short_Literal 0x0 01b8 e003 | | Load 0x0,0x3 01b9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01ba 00d2 | | Pop_Control Pop_Count_2 01bb e5ff | | Load 0x2,-0x1 01bc 0227 | ' | Execute Access,All_Reference 01bd 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01be e003 | | Load 0x0,0x3 01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c0 821a | | Call 0x1,0x1a 01c1 0092 0658 | X| Action Push_String_Extended,0x658 ; "Snapshot_Started" 01c3 01df | | Execute Vector,Equal 01c4 6816 |h | Jump_Zero 0x1db 01c5 e5ff | | Load 0x2,-0x1 01c6 0227 | ' | Execute Access,All_Reference 01c7 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01c8 e003 | | Load 0x0,0x3 01c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ca 8219 | | Call 0x1,0x19 01cb 0092 0659 | Y| Action Push_String_Extended,0x659 ; " " 01cd 01cc | | Execute Vector,Catenate 01ce e5ff | | Load 0x2,-0x1 01cf 0227 | ' | Execute Access,All_Reference 01d0 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01d1 e003 | | Load 0x0,0x3 01d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d3 822c | , | Call 0x1,0x2c 01d4 01cc | | Execute Vector,Catenate 01d5 e004 | | Load 0x0,0x4 01d6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01d7 e5ff | | Load 0x2,-0x1 01d8 0227 | ' | Execute Access,All_Reference 01d9 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 01da 7821 |x! | Jump 0x1fc 01db e5ff | | Load 0x2,-0x1 01dc 0227 | ' | Execute Access,All_Reference 01dd 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01de e003 | | Load 0x0,0x3 01df 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e0 8219 | | Call 0x1,0x19 01e1 0092 065a | Z| Action Push_String_Extended,0x65a ; "System_Boot" 01e3 01df | | Execute Vector,Equal 01e4 6816 |h | Jump_Zero 0x1fb 01e5 e5ff | | Load 0x2,-0x1 01e6 0227 | ' | Execute Access,All_Reference 01e7 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01e8 e003 | | Load 0x0,0x3 01e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ea 821a | | Call 0x1,0x1a 01eb 0092 0659 | Y| Action Push_String_Extended,0x659 ; " " 01ed 01cc | | Execute Vector,Catenate 01ee e5ff | | Load 0x2,-0x1 01ef 0227 | ' | Execute Access,All_Reference 01f0 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01f1 e003 | | Load 0x0,0x3 01f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f3 822c | , | Call 0x1,0x2c 01f4 01cc | | Execute Vector,Catenate 01f5 e004 | | Load 0x0,0x4 01f6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01f7 e5ff | | Load 0x2,-0x1 01f8 0227 | ' | Execute Access,All_Reference 01f9 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 01fa 7801 |x | Jump 0x1fc 01fb 8403 | | Call 0x2,0x3 01fc e5fe | | Load 0x2,-0x2 01fd e00a | | Load 0x0,0xa 01fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ff c5fe | | Store 0x2,-0x2 0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0201 TRAP_0180: 0201 00d8 | | Load_Top At_Offset_0 0202 0107 | | Execute Exception,Get_Name 0203 4950 |IP | Short_Literal 0x150 0204 495f |I_ | Short_Literal 0x15f 0205 0262 | b | Execute Discrete,In_Range 0206 6849 |hI | Jump_Zero 0x250 0207 e5ff | | Load 0x2,-0x1 0208 0227 | ' | Execute Access,All_Reference 0209 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 020a 6809 |h | Jump_Zero 0x214 020b e5fe | | Load 0x2,-0x2 020c 4802 |H | Short_Literal 0x2 020d 00ea | | Load_Encached Null_String_Cache 020e 0092 065b | [| Action Push_String_Extended,0x65b ; "End of log" 0210 e00a | | Load 0x0,0xa 0211 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0212 c5fe | | Store 0x2,-0x2 0213 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0214 e5ff | | Load 0x2,-0x1 0215 0227 | ' | Execute Access,All_Reference 0216 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0217 e225 | % | Load 0x1,0x25 0218 027c | | | Execute Discrete,Less 0219 6828 |h( | Jump_Zero 0x242 021a e5ff | | Load 0x2,-0x1 021b 0229 | ) | Execute Access,All_Read 021c 00d8 | | Load_Top At_Offset_0 021d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 021e e002 | | Load 0x0,0x2 021f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0220 e405 | | Load 0x2,0x5 0221 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0222 00d1 | | Pop_Control Pop_Count_1 0223 e5ff | | Load 0x2,-0x1 0224 0227 | ' | Execute Access,All_Reference 0225 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0226 0a01 | | Execute_Immediate Plus,0x1 0227 e5ff | | Load 0x2,-0x1 0228 0227 | ' | Execute Access,All_Reference 0229 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 022a e5ff | | Load 0x2,-0x1 022b 0229 | ) | Execute Access,All_Read 022c 00d8 | | Load_Top At_Offset_0 022d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 022e 00ea | | Load_Encached Null_String_Cache 022f e5ff | | Load 0x2,-0x1 0230 0227 | ' | Execute Access,All_Reference 0231 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0232 e229 | ) | Load 0x1,0x29 0233 01d5 | | Execute Vector,Field_Reference 0234 e003 | | Load 0x0,0x3 0235 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0236 4800 |H | Short_Literal 0x0 0237 e002 | | Load 0x0,0x2 0238 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0239 e405 | | Load 0x2,0x5 023a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 023b 00d1 | | Pop_Control Pop_Count_1 023c e5fe | | Load 0x2,-0x2 023d e5ff | | Load 0x2,-0x1 023e 821e | | Call 0x1,0x1e 023f c5ff | | Store 0x2,-0x1 0240 c5fe | | Store 0x2,-0x2 0241 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0242 4801 |H | Short_Literal 0x1 0243 e5ff | | Load 0x2,-0x1 0244 0227 | ' | Execute Access,All_Reference 0245 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0246 6735 |g5 | Indirect_Literal Discrete,0x17c,{0xffffffff, 0x80000001} 0247 e5ff | | Load 0x2,-0x1 0248 0227 | ' | Execute Access,All_Reference 0249 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 024a e5fe | | Load 0x2,-0x2 024b e5ff | | Load 0x2,-0x1 024c 821e | | Call 0x1,0x1e 024d c5ff | | Store 0x2,-0x1 024e c5fe | | Store 0x2,-0x2 024f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0250 0100 | | Execute Exception,Raise 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b e5ff | | Load 0x2,-0x1 025c 0227 | ' | Execute Access,All_Reference 025d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 025e 6806 |h | Jump_Zero 0x265 025f e5ff | | Load 0x2,-0x1 0260 0227 | ' | Execute Access,All_Reference 0261 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0262 6802 |h | Jump_Zero 0x265 0263 4801 |H | Short_Literal 0x1 0264 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0265 4800 |H | Short_Literal 0x0 0266 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e5ff | | Load 0x2,-0x1 026c 0227 | ' | Execute Access,All_Reference 026d 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 026e e003 | | Load 0x0,0x3 026f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0270 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0271 0000 0000 | | .BLANK 0000[0x7] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027e | ~ | .CONST 0x027e ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b e004 | | Load 0x0,0x4 027c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 027d 0322 | " | Declare_Variable Record 027e BODY_0278: 027e e5ff | | Load 0x2,-0x1 027f 0227 | ' | Execute Access,All_Reference 0280 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0281 e003 | | Load 0x0,0x3 0282 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0283 0d0a | | Execute_Immediate Less,0xa 0284 700c |p | Jump_Nonzero 0x291 0285 4801 |H | Short_Literal 0x1 0286 480a |H | Short_Literal 0xa 0287 e5ff | | Load 0x2,-0x1 0288 0227 | ' | Execute Access,All_Reference 0289 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 028a e003 | | Load 0x0,0x3 028b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 028c 01cf | | Execute Vector,Slice_Read 028d 0092 065c | \| Action Push_String_Extended,0x65c ; " " 028f 01df | | Execute Vector,Equal 0290 6806 |h | Jump_Zero 0x297 0291 e5ff | | Load 0x2,-0x1 0292 0227 | ' | Execute Access,All_Reference 0293 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 0294 0320 | | Declare_Variable Record,Duplicate 0295 00cd | | Action Spare6_Action 0296 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0297 e5ff | | Load 0x2,-0x1 0298 0227 | ' | Execute Access,All_Reference 0299 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 029a e003 | | Load 0x0,0x3 029b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 029c 8218 | | Call 0x1,0x18 029d e402 | | Load 0x2,0x2 029e 017d | } | Execute Record,Structure_Write 029f e5ff | | Load 0x2,-0x1 02a0 0227 | ' | Execute Access,All_Reference 02a1 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 02a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a3 e402 | | Load 0x2,0x2 02a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02a5 e5ff | | Load 0x2,-0x1 02a6 0227 | ' | Execute Access,All_Reference 02a7 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 02a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a9 e402 | | Load 0x2,0x2 02aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02ab e5ff | | Load 0x2,-0x1 02ac 0227 | ' | Execute Access,All_Reference 02ad 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 02ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02af e402 | | Load 0x2,0x2 02b0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02b1 00d8 | | Load_Top At_Offset_0 02b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b3 0000 0000 | | .BLANK 0000[0x5] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb e5ff | | Load 0x2,-0x1 02bc 0227 | ' | Execute Access,All_Reference 02bd 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 02be e003 | | Load 0x0,0x3 02bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c0 8220 | | Call 0x1,0x20 02c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c2 0000 0000 | | .BLANK 0000[0x6] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb e5ff | | Load 0x2,-0x1 02cc 0227 | ' | Execute Access,All_Reference 02cd 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 02ce e003 | | Load 0x0,0x3 02cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02d0 8219 | | Call 0x1,0x19 02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d2 0000 0000 | | .BLANK 0000[0x6] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db e5ff | | Load 0x2,-0x1 02dc 0227 | ' | Execute Access,All_Reference 02dd 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 02de e003 | | Load 0x0,0x3 02df 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02e0 821a | | Call 0x1,0x1a 02e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e2 0000 0000 | | .BLANK 0000[0x6] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e5ff | | Load 0x2,-0x1 02ec 0227 | ' | Execute Access,All_Reference 02ed 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 02ee e003 | | Load 0x0,0x3 02ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f0 821b | | Call 0x1,0x1b 02f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f2 0000 0000 | | .BLANK 0000[0x6] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb e5ff | | Load 0x2,-0x1 02fc 0227 | ' | Execute Access,All_Reference 02fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02fe 6803 |h | Jump_Zero 0x302 02ff 0092 065d | ]| Action Push_String_Extended,0x65d ; "[CURRENT LOG]" 0301 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0302 e5ff | | Load 0x2,-0x1 0303 0227 | ' | Execute Access,All_Reference 0304 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0305 e229 | ) | Load 0x1,0x29 0306 01d5 | | Execute Vector,Field_Reference 0307 e003 | | Load 0x0,0x3 0308 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0309 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030a 0000 0000 | | .BLANK 0000[0x6] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 e5ff | | Load 0x2,-0x1 0314 01dd | | Execute Vector,First 0315 e5ff | | Load 0x2,-0x1 0316 01dd | | Execute Vector,First 0317 0a07 | | Execute_Immediate Plus,0x7 0318 00d8 | | Load_Top At_Offset_0 0319 00e2 | | Load_Encached Integer_Cache 031a 0260 | ` | Execute Discrete,In_Type 031b 7001 |p | Jump_Nonzero 0x31d 031c 0801 | | Execute_Immediate Raise,0x1 031d e5ff | | Load 0x2,-0x1 031e 01cf | | Execute Vector,Slice_Read 031f e004 | | Load 0x0,0x4 0320 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0321 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0322 0000 0000 | | .BLANK 0000[0x6] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b e5ff | | Load 0x2,-0x1 032c 01dc | | Execute Vector,Last 032d 0d0d | | Execute_Immediate Less,0xd 032e 6802 |h | Jump_Zero 0x331 032f 00ea | | Load_Encached Null_String_Cache 0330 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0331 e5ff | | Load 0x2,-0x1 0332 01dd | | Execute Vector,First 0333 0a09 | | Execute_Immediate Plus,0x9 0334 00d8 | | Load_Top At_Offset_0 0335 00e2 | | Load_Encached Integer_Cache 0336 0260 | ` | Execute Discrete,In_Type 0337 7001 |p | Jump_Nonzero 0x339 0338 0801 | | Execute_Immediate Raise,0x1 0339 e5ff | | Load 0x2,-0x1 033a 01dd | | Execute Vector,First 033b 0a0b | | Execute_Immediate Plus,0xb 033c 00d8 | | Load_Top At_Offset_0 033d 00e2 | | Load_Encached Integer_Cache 033e 0260 | ` | Execute Discrete,In_Type 033f 7001 |p | Jump_Nonzero 0x341 0340 0801 | | Execute_Immediate Raise,0x1 0341 e5ff | | Load 0x2,-0x1 0342 01cf | | Execute Vector,Slice_Read 0343 0335 | 5 | Declare_Variable Array,Duplicate 0344 00cd | | Action Spare6_Action 0345 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0346 0000 0000 | | .XXX[0x2] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034d | M | .CONST 0x034d ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0002 | | .CONST 0x0002 ; Number of locals 034b INIT_0348: 034b 00e3 | | Load_Encached Natural_Cache 034c 060d | | Execute_Immediate Set_Value_Unchecked,0xd 034d BODY_0348: 034d e5ff | | Load 0x2,-0x1 034e 01dc | | Execute Vector,Last 034f 0d0d | | Execute_Immediate Less,0xd 0350 6802 |h | Jump_Zero 0x353 0351 00ea | | Load_Encached Null_String_Cache 0352 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0353 4801 |H | Short_Literal 0x1 0354 480d |H | Short_Literal 0xd 0355 e5ff | | Load 0x2,-0x1 0356 01cf | | Execute Vector,Slice_Read 0357 0092 065c | \| Action Push_String_Extended,0x65c ; " " 0359 01df | | Execute Vector,Equal 035a 6802 |h | Jump_Zero 0x35d 035b 00ea | | Load_Encached Null_String_Cache 035c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035d 00cf | | Action Mark_Auxiliary 035e 7804 |x | Jump 0x363 035f e402 | | Load 0x2,0x2 0360 0a01 | | Execute_Immediate Plus,0x1 0361 c402 | | Store 0x2,0x2 0362 00c9 | | Action Pop_Auxiliary_Loop 0363 e402 | | Load 0x2,0x2 0364 e5ff | | Load 0x2,-0x1 0365 01dc | | Execute Vector,Last 0366 027c | | | Execute Discrete,Less 0367 6808 |h | Jump_Zero 0x370 0368 e5ff | | Load 0x2,-0x1 0369 01dd | | Execute Vector,First 036a e402 | | Load 0x2,0x2 036b 0273 | s | Execute Discrete,Plus 036c e5ff | | Load 0x2,-0x1 036d 01d7 | | Execute Vector,Field_Read 036e 0e20 | | Execute_Immediate Not_Equal,0x20 036f 77ef |w | Jump_Nonzero 0x35f 0370 00ce | | Action Pop_Auxiliary 0371 e5ff | | Load 0x2,-0x1 0372 01dd | | Execute Vector,First 0373 0a0d | | Execute_Immediate Plus,0xd 0374 00d8 | | Load_Top At_Offset_0 0375 00e2 | | Load_Encached Integer_Cache 0376 0260 | ` | Execute Discrete,In_Type 0377 7001 |p | Jump_Nonzero 0x379 0378 0801 | | Execute_Immediate Raise,0x1 0379 e5ff | | Load 0x2,-0x1 037a 01dd | | Execute Vector,First 037b e402 | | Load 0x2,0x2 037c 0273 | s | Execute Discrete,Plus 037d 0aff | | Execute_Immediate Plus,-0x1 037e 00d8 | | Load_Top At_Offset_0 037f 00e2 | | Load_Encached Integer_Cache 0380 0260 | ` | Execute Discrete,In_Type 0381 7001 |p | Jump_Nonzero 0x383 0382 0801 | | Execute_Immediate Raise,0x1 0383 e5ff | | Load 0x2,-0x1 0384 01cf | | Execute Vector,Slice_Read 0385 0335 | 5 | Declare_Variable Array,Duplicate 0386 00cd | | Action Spare6_Action 0387 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038e | | .CONST 0x038e ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0003 | | .CONST 0x0003 ; Number of locals 038b INIT_0388: 038b 00e3 | | Load_Encached Natural_Cache 038c 060d | | Execute_Immediate Set_Value_Unchecked,0xd 038d 00e3 | | Load_Encached Natural_Cache 038e BODY_0388: 038e e5ff | | Load 0x2,-0x1 038f 01dc | | Execute Vector,Last 0390 0d0d | | Execute_Immediate Less,0xd 0391 6802 |h | Jump_Zero 0x394 0392 00ea | | Load_Encached Null_String_Cache 0393 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0394 00cf | | Action Mark_Auxiliary 0395 7804 |x | Jump 0x39a 0396 e402 | | Load 0x2,0x2 0397 0a01 | | Execute_Immediate Plus,0x1 0398 c402 | | Store 0x2,0x2 0399 00c9 | | Action Pop_Auxiliary_Loop 039a e402 | | Load 0x2,0x2 039b e5ff | | Load 0x2,-0x1 039c 01dc | | Execute Vector,Last 039d 027c | | | Execute Discrete,Less 039e 6808 |h | Jump_Zero 0x3a7 039f e5ff | | Load 0x2,-0x1 03a0 01dd | | Execute Vector,First 03a1 e402 | | Load 0x2,0x2 03a2 0273 | s | Execute Discrete,Plus 03a3 e5ff | | Load 0x2,-0x1 03a4 01d7 | | Execute Vector,Field_Read 03a5 0e20 | | Execute_Immediate Not_Equal,0x20 03a6 77ef |w | Jump_Nonzero 0x396 03a7 00ce | | Action Pop_Auxiliary 03a8 e402 | | Load 0x2,0x2 03a9 0a01 | | Execute_Immediate Plus,0x1 03aa c403 | | Store 0x2,0x3 03ab 00d8 | | Load_Top At_Offset_0 03ac a402 | | Store_Unchecked 0x2,0x2 03ad 00cf | | Action Mark_Auxiliary 03ae 7804 |x | Jump 0x3b3 03af e402 | | Load 0x2,0x2 03b0 0a01 | | Execute_Immediate Plus,0x1 03b1 c402 | | Store 0x2,0x2 03b2 00c9 | | Action Pop_Auxiliary_Loop 03b3 e402 | | Load 0x2,0x2 03b4 e5ff | | Load 0x2,-0x1 03b5 01dc | | Execute Vector,Last 03b6 027c | | | Execute Discrete,Less 03b7 6810 |h | Jump_Zero 0x3c8 03b8 e5ff | | Load 0x2,-0x1 03b9 01dd | | Execute Vector,First 03ba e402 | | Load 0x2,0x2 03bb 0273 | s | Execute Discrete,Plus 03bc e5ff | | Load 0x2,-0x1 03bd 01d7 | | Execute Vector,Field_Read 03be 0e20 | | Execute_Immediate Not_Equal,0x20 03bf 6808 |h | Jump_Zero 0x3c8 03c0 e5ff | | Load 0x2,-0x1 03c1 01dd | | Execute Vector,First 03c2 e402 | | Load 0x2,0x2 03c3 0273 | s | Execute Discrete,Plus 03c4 e5ff | | Load 0x2,-0x1 03c5 01d7 | | Execute Vector,Field_Read 03c6 0e0a | | Execute_Immediate Not_Equal,0xa 03c7 77e7 |w | Jump_Nonzero 0x3af 03c8 00ce | | Action Pop_Auxiliary 03c9 e5ff | | Load 0x2,-0x1 03ca 01dd | | Execute Vector,First 03cb e403 | | Load 0x2,0x3 03cc 0273 | s | Execute Discrete,Plus 03cd 00d8 | | Load_Top At_Offset_0 03ce 00e2 | | Load_Encached Integer_Cache 03cf 0260 | ` | Execute Discrete,In_Type 03d0 7001 |p | Jump_Nonzero 0x3d2 03d1 0801 | | Execute_Immediate Raise,0x1 03d2 e5ff | | Load 0x2,-0x1 03d3 01dd | | Execute Vector,First 03d4 e402 | | Load 0x2,0x2 03d5 0273 | s | Execute Discrete,Plus 03d6 0aff | | Execute_Immediate Plus,-0x1 03d7 00d8 | | Load_Top At_Offset_0 03d8 00e2 | | Load_Encached Integer_Cache 03d9 0260 | ` | Execute Discrete,In_Type 03da 7001 |p | Jump_Nonzero 0x3dc 03db 0801 | | Execute_Immediate Raise,0x1 03dc e5ff | | Load 0x2,-0x1 03dd 01cf | | Execute Vector,Slice_Read 03de 0335 | 5 | Declare_Variable Array,Duplicate 03df 00cd | | Action Spare6_Action 03e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03e1 0000 0000 | | .BLANK 0000[0x7] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03ed | | .CONST 0x03ed ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0002 | | .CONST 0x0002 ; Number of locals 03eb INIT_03e8: 03eb 00e3 | | Load_Encached Natural_Cache 03ec 060d | | Execute_Immediate Set_Value_Unchecked,0xd 03ed BODY_03e8: 03ed e5ff | | Load 0x2,-0x1 03ee 01db | | Execute Vector,Length 03ef 0d0d | | Execute_Immediate Less,0xd 03f0 6802 |h | Jump_Zero 0x3f3 03f1 00ea | | Load_Encached Null_String_Cache 03f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f3 4801 |H | Short_Literal 0x1 03f4 480d |H | Short_Literal 0xd 03f5 e5ff | | Load 0x2,-0x1 03f6 01cf | | Execute Vector,Slice_Read 03f7 0092 065c | \| Action Push_String_Extended,0x65c ; " " 03f9 01df | | Execute Vector,Equal 03fa 6808 |h | Jump_Zero 0x403 03fb 480e |H | Short_Literal 0xe 03fc e5ff | | Load 0x2,-0x1 03fd 01dc | | Execute Vector,Last 03fe e5ff | | Load 0x2,-0x1 03ff 01cf | | Execute Vector,Slice_Read 0400 0335 | 5 | Declare_Variable Array,Duplicate 0401 00cd | | Action Spare6_Action 0402 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0403 00cf | | Action Mark_Auxiliary 0404 7804 |x | Jump 0x409 0405 e402 | | Load 0x2,0x2 0406 0a01 | | Execute_Immediate Plus,0x1 0407 c402 | | Store 0x2,0x2 0408 00c9 | | Action Pop_Auxiliary_Loop 0409 e402 | | Load 0x2,0x2 040a e5ff | | Load 0x2,-0x1 040b 01dc | | Execute Vector,Last 040c 027c | | | Execute Discrete,Less 040d 6808 |h | Jump_Zero 0x416 040e e5ff | | Load 0x2,-0x1 040f 01dd | | Execute Vector,First 0410 e402 | | Load 0x2,0x2 0411 0273 | s | Execute Discrete,Plus 0412 e5ff | | Load 0x2,-0x1 0413 01d7 | | Execute Vector,Field_Read 0414 0e20 | | Execute_Immediate Not_Equal,0x20 0415 77ef |w | Jump_Nonzero 0x405 0416 00ce | | Action Pop_Auxiliary 0417 00d8 | | Load_Top At_Offset_0 0418 0a01 | | Execute_Immediate Plus,0x1 0419 c402 | | Store 0x2,0x2 041a 00cf | | Action Mark_Auxiliary 041b 7804 |x | Jump 0x420 041c e402 | | Load 0x2,0x2 041d 0a01 | | Execute_Immediate Plus,0x1 041e c402 | | Store 0x2,0x2 041f 00c9 | | Action Pop_Auxiliary_Loop 0420 e402 | | Load 0x2,0x2 0421 e5ff | | Load 0x2,-0x1 0422 01dc | | Execute Vector,Last 0423 027c | | | Execute Discrete,Less 0424 6808 |h | Jump_Zero 0x42d 0425 e5ff | | Load 0x2,-0x1 0426 01dd | | Execute Vector,First 0427 e402 | | Load 0x2,0x2 0428 0273 | s | Execute Discrete,Plus 0429 e5ff | | Load 0x2,-0x1 042a 01d7 | | Execute Vector,Field_Read 042b 0e20 | | Execute_Immediate Not_Equal,0x20 042c 77ef |w | Jump_Nonzero 0x41c 042d 00ce | | Action Pop_Auxiliary 042e e5ff | | Load 0x2,-0x1 042f 01dd | | Execute Vector,First 0430 e402 | | Load 0x2,0x2 0431 0273 | s | Execute Discrete,Plus 0432 0a01 | | Execute_Immediate Plus,0x1 0433 00d8 | | Load_Top At_Offset_0 0434 00e2 | | Load_Encached Integer_Cache 0435 0260 | ` | Execute Discrete,In_Type 0436 7001 |p | Jump_Nonzero 0x438 0437 0801 | | Execute_Immediate Raise,0x1 0438 e5ff | | Load 0x2,-0x1 0439 01dc | | Execute Vector,Last 043a e5ff | | Load 0x2,-0x1 043b 01cf | | Execute Vector,Slice_Read 043c 0335 | 5 | Declare_Variable Array,Duplicate 043d 00cd | | Action Spare6_Action 043e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 043f 0000 | | .XXX[0x1] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 e225 | % | Load 0x1,0x25 0444 00ca | | Action Exit_Nullary_Function 0445 0000 0000 | | .XXX[0x3] 0447 0000 | | 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 4608 |F | Jump_Case 0x9 044c 7808 |x | Jump 0x455 ; case 0x0 044d 781a |x | Jump 0x468 ; case 0x1 044e 7820 |x | Jump 0x46f ; case 0x2 044f 781f |x | Jump 0x46f ; case 0x3 0450 781e |x | Jump 0x46f ; case 0x4 0451 781d |x | Jump 0x46f ; case 0x5 0452 781c |x | Jump 0x46f ; case 0x6 0453 781b |x | Jump 0x46f ; case 0x7 0454 781a |x | Jump 0x46f ; case 0x8 0455 e5ff | | Load 0x2,-0x1 0456 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0457 0125 | % | Execute Any,Set_Constraint 0458 e5ff | | Load 0x2,-0x1 0459 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 045a 1c00 | | Execute_Immediate Run_Utility,0x0 045b e5ff | | Load 0x2,-0x1 045c 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 045d 0125 | % | Execute Any,Set_Constraint 045e e5ff | | Load 0x2,-0x1 045f 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0460 1c00 | | Execute_Immediate Run_Utility,0x0 0461 e5ff | | Load 0x2,-0x1 0462 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0463 0125 | % | Execute Any,Set_Constraint 0464 e5ff | | Load 0x2,-0x1 0465 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0466 1c00 | | Execute_Immediate Run_Utility,0x0 0467 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0468 e5ff | | Load 0x2,-0x1 0469 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 046a 0125 | % | Execute Any,Set_Constraint 046b e5ff | | Load 0x2,-0x1 046c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 046d 0125 | % | Execute Any,Set_Constraint 046e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 046f 0869 | i | Execute_Immediate Raise,0x69 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 4605 |F | Jump_Case 0x6 0474 7804 |x | Jump 0x479 ; case 0x0 0475 7814 |x | Jump 0x48a ; case 0x1 0476 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0477 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0478 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0479 e5ff | | Load 0x2,-0x1 ; case 0x5 047a 01dc | | Execute Vector,Last 047b e5ff | | Load 0x2,-0x1 047c 01dd | | Execute Vector,First 047d 0263 | c | Execute Discrete,Above_Bound 047e 700a |p | Jump_Nonzero 0x489 047f 00d8 | | Load_Top At_Offset_0 0480 e5ff | | Load 0x2,-0x1 0481 01d5 | | Execute Vector,Field_Reference 0482 0125 | % | Execute Any,Set_Constraint 0483 00d8 | | Load_Top At_Offset_0 0484 e5ff | | Load 0x2,-0x1 0485 01d5 | | Execute Vector,Field_Reference 0486 1c00 | | Execute_Immediate Run_Utility,0x0 0487 0a01 | | Execute_Immediate Plus,0x1 0488 7ff4 | | Jump 0x47d 0489 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 048a e5ff | | Load 0x2,-0x1 048b 01dc | | Execute Vector,Last 048c e5ff | | Load 0x2,-0x1 048d 01dd | | Execute Vector,First 048e 0263 | c | Execute Discrete,Above_Bound 048f 700a |p | Jump_Nonzero 0x49a 0490 00d8 | | Load_Top At_Offset_0 0491 e5ff | | Load 0x2,-0x1 0492 01d5 | | Execute Vector,Field_Reference 0493 0125 | % | Execute Any,Set_Constraint 0494 00d8 | | Load_Top At_Offset_0 0495 e5ff | | Load 0x2,-0x1 0496 01d7 | | Execute Vector,Field_Read 0497 1c00 | | Execute_Immediate Run_Utility,0x0 0498 0a01 | | Execute_Immediate Plus,0x1 0499 7ff4 | | Jump 0x48e 049a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 049b 0000 0000 | | .BLANK 0000[0x5] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a3 | | .CONST 0x04a3 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0001 | | .CONST 0x0001 ; Number of locals 04a3 BODY_04a0: 04a3 INIT_04a0: 04a3 e5ff | | Load 0x2,-0x1 04a4 01db | | Execute Vector,Length 04a5 0d41 | A | Execute_Immediate Less,0x41 04a6 6802 |h | Jump_Zero 0x4a9 04a7 e5ff | | Load 0x2,-0x1 04a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a9 e5ff | | Load 0x2,-0x1 04aa 01dd | | Execute Vector,First 04ab e5ff | | Load 0x2,-0x1 04ac 01dd | | Execute Vector,First 04ad 0a3c | < | Execute_Immediate Plus,0x3c 04ae 00d8 | | Load_Top At_Offset_0 04af 00e2 | | Load_Encached Integer_Cache 04b0 0260 | ` | Execute Discrete,In_Type 04b1 7001 |p | Jump_Nonzero 0x4b3 04b2 0801 | | Execute_Immediate Raise,0x1 04b3 e5ff | | Load 0x2,-0x1 04b4 01cf | | Execute Vector,Slice_Read 04b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b6 0000 0000 | | .XXX[0x2] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb e5ff | | Load 0x2,-0x1 04bc 7003 |p | Jump_Nonzero 0x4c0 04bd 0092 065e | ^| Action Push_String_Extended,0x65e ; "<null iterator>" 04bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c0 e5ff | | Load 0x2,-0x1 04c1 0227 | ' | Execute Access,All_Reference 04c2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04c3 680a |h | Jump_Zero 0x4ce 04c4 0092 065f | _| Action Push_String_Extended,0x65f ; "Current log; entry: " 04c6 e5ff | | Load 0x2,-0x1 04c7 0227 | ' | Execute Access,All_Reference 04c8 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 04c9 e003 | | Load 0x0,0x3 04ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04cb 822a | * | Call 0x1,0x2a 04cc 01cc | | Execute Vector,Catenate 04cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ce 480a |H | Short_Literal 0xa 04cf 0092 0660 | `| Action Push_String_Extended,0x660 ; "File: " 04d1 e5ff | | Load 0x2,-0x1 04d2 0227 | ' | Execute Access,All_Reference 04d3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04d4 e229 | ) | Load 0x1,0x29 04d5 01d5 | | Execute Vector,Field_Reference 04d6 e003 | | Load 0x0,0x3 04d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04d8 01cc | | Execute Vector,Catenate 04d9 01cb | | Execute Vector,Append 04da 0092 0661 | a| Action Push_String_Extended,0x661 ; " Entry: " 04dc 01cc | | Execute Vector,Catenate 04dd e5ff | | Load 0x2,-0x1 04de 0227 | ' | Execute Access,All_Reference 04df 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 04e0 e003 | | Load 0x0,0x3 04e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04e2 822a | * | Call 0x1,0x2a 04e3 01cc | | Execute Vector,Catenate 04e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e5 0000 0000 | | .XXX[0x3] 04e7 0000 | | 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb e5ff | | Load 0x2,-0x1 04ec 01dd | | Execute Vector,First 04ed e5ff | | Load 0x2,-0x1 04ee 01dd | | Execute Vector,First 04ef 0a07 | | Execute_Immediate Plus,0x7 04f0 00d8 | | Load_Top At_Offset_0 04f1 00e2 | | Load_Encached Integer_Cache 04f2 0260 | ` | Execute Discrete,In_Type 04f3 7001 |p | Jump_Nonzero 0x4f5 04f4 0801 | | Execute_Immediate Raise,0x1 04f5 e5ff | | Load 0x2,-0x1 04f6 01cf | | Execute Vector,Slice_Read 04f7 0335 | 5 | Declare_Variable Array,Duplicate 04f8 00cd | | Action Spare6_Action 04f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04fa 0000 0000 | | .BLANK 0000[0x6] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 050b | | .CONST 0x050b ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0004 | | .CONST 0x0004 ; Number of locals 0503 INIT_0500: 0503 00e1 | | Load_Encached Boolean_Cache 0504 e001 | | Load 0x0,0x1 0505 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0506 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0507 e001 | | Load 0x0,0x1 0508 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0509 1b0e | | Execute Package,Field_Read,Field_Number 0xe 050a 0337 | 7 | Declare_Variable Array 050b BODY_0500: 050b e226 | & | Load 0x1,0x26 050c 683c |h< | Jump_Zero 0x549 050d e5ff | | Load 0x2,-0x1 050e 0227 | ' | Execute Access,All_Reference 050f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0510 603f |`? | Indirect_Literal Discrete,0x550,{0xffffffff, 0x80000001} 0511 027f | | Execute Discrete,Equal 0512 6810 |h | Jump_Zero 0x523 0513 e5ff | | Load 0x2,-0x1 0514 0229 | ) | Execute Access,All_Read 0515 e404 | | Load 0x2,0x4 0516 e001 | | Load 0x0,0x1 0517 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0518 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0519 00e1 | | Load_Encached Boolean_Cache 051a 4804 |H | Short_Literal 0x4 051b 6034 |`4 | Indirect_Literal Discrete,0x550,{0xffffffff, 0x80000001} 051c e001 | | Load 0x0,0x1 051d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 051e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 051f c402 | | Store 0x2,0x2 0520 e405 | | Load 0x2,0x5 0521 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0522 00d2 | | Pop_Control Pop_Count_2 0523 e402 | | Load 0x2,0x2 0524 6824 |h$ | Jump_Zero 0x549 0525 00cf | | Action Mark_Auxiliary 0526 e404 | | Load 0x2,0x4 0527 e001 | | Load 0x0,0x1 0528 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0529 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052a 00e1 | | Load_Encached Boolean_Cache 052b 4802 |H | Short_Literal 0x2 052c e5ff | | Load 0x2,-0x1 052d 0227 | ' | Execute Access,All_Reference 052e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 052f e001 | | Load 0x0,0x1 0530 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0531 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0532 c402 | | Store 0x2,0x2 0533 c403 | | Store 0x2,0x3 0534 00d1 | | Pop_Control Pop_Count_1 0535 e402 | | Load 0x2,0x2 0536 6811 |h | Jump_Zero 0x548 0537 e403 | | Load 0x2,0x3 0538 0a01 | | Execute_Immediate Plus,0x1 0539 e5ff | | Load 0x2,-0x1 053a 0227 | ' | Execute Access,All_Reference 053b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 053c 4801 |H | Short_Literal 0x1 053d e404 | | Load 0x2,0x4 053e 01d7 | | Execute Vector,Field_Read 053f 0e7f | | Execute_Immediate Not_Equal,0x7f 0540 6805 |h | Jump_Zero 0x546 0541 4820 |H | Short_Literal 0x20 0542 e404 | | Load 0x2,0x4 0543 e007 | | Load 0x0,0x7 0544 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0545 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0546 00c9 | | Action Pop_Auxiliary_Loop 0547 7fde | | Jump 0x526 0548 00ce | | Action Pop_Auxiliary 0549 4801 |H | Short_Literal 0x1 054a e5ff | | Load 0x2,-0x1 054b 0227 | ' | Execute Access,All_Reference 054c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 054d 4950 |IP | Short_Literal 0x150 054e 0257 | W | Execute Discrete,Raise 054f 0000 | | .XXX[0x1] 0550 ffff ffff | | .LITERAL {0xffffffff, 0x80000001} 0554 0000 0000 | | .BLANK 0000[0x4] 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 0580 | | .CONST 0x0580 ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0007 | | .CONST 0x0007 ; Number of locals 055b INIT_0558: 055b e006 | | Load 0x0,0x6 055c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 055d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 055e 02c7 | | Declare_Variable Any 055f 00d8 | | Load_Top At_Offset_0 0560 1c00 | | Execute_Immediate Run_Utility,0x0 0561 e006 | | Load 0x0,0x6 0562 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0563 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0564 02c7 | | Declare_Variable Any 0565 e006 | | Load 0x0,0x6 0566 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0567 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0568 a603 | | Store_Unchecked 0x3,0x3 0569 e006 | | Load 0x0,0x6 056a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 056b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 056c 02c7 | | Declare_Variable Any 056d e006 | | Load 0x0,0x6 056e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 056f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0570 a604 | | Store_Unchecked 0x3,0x4 0571 e006 | | Load 0x0,0x6 0572 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0573 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0574 02c7 | | Declare_Variable Any 0575 e006 | | Load 0x0,0x6 0576 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0577 180e | | Execute Package,Field_Execute,Field_Number 0xe 0578 a605 | | Store_Unchecked 0x3,0x5 0579 e006 | | Load 0x0,0x6 057a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 057b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 057c 02c7 | | Declare_Variable Any 057d 00d8 | | Load_Top At_Offset_0 057e 1c00 | | Execute_Immediate Run_Utility,0x0 057f 00e1 | | Load_Encached Boolean_Cache 0580 BODY_0558: 0580 4801 |H | Short_Literal 0x1 0581 e006 | | Load 0x0,0x6 0582 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0583 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0584 e7ff | | Load 0x3,-0x1 0585 e006 | | Load 0x0,0x6 0586 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0587 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0588 c602 | | Store 0x3,0x2 0589 00cf | | Action Mark_Auxiliary 058a 783d |x= | Jump 0x5c8 058b e7fe | | Load 0x3,-0x2 058c e602 | | Load 0x3,0x2 058d e006 | | Load 0x0,0x6 058e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 058f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0590 e006 | | Load 0x0,0x6 0591 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0592 180f | | Execute Package,Field_Execute,Field_Number 0xf 0593 e005 | | Load 0x0,0x5 0594 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0595 6801 |h | Jump_Zero 0x597 0596 782b |x+ | Jump 0x5c2 0597 e602 | | Load 0x3,0x2 0598 e006 | | Load 0x0,0x6 0599 1b0d | | Execute Package,Field_Read,Field_Number 0xd 059a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 059b e006 | | Load 0x0,0x6 059c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 059d 180f | | Execute Package,Field_Execute,Field_Number 0xf 059e e7fd | | Load 0x3,-0x3 059f e005 | | Load 0x0,0x5 05a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05a1 680e |h | Jump_Zero 0x5b0 05a2 e605 | | Load 0x3,0x5 05a3 e006 | | Load 0x0,0x6 05a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a5 180f | | Execute Package,Field_Execute,Field_Number 0xf 05a6 7009 |p | Jump_Nonzero 0x5b0 05a7 e605 | | Load 0x3,0x5 05a8 e006 | | Load 0x0,0x6 05a9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 05aa 180f | | Execute Package,Field_Execute,Field_Number 0xf 05ab e7fd | | Load 0x3,-0x3 05ac e005 | | Load 0x0,0x5 05ad 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05ae 6801 |h | Jump_Zero 0x5b0 05af 7812 |x | Jump 0x5c2 05b0 e602 | | Load 0x3,0x2 05b1 e006 | | Load 0x0,0x6 05b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05b4 c605 | | Store 0x3,0x5 05b5 00e1 | | Load_Encached Boolean_Cache 05b6 e006 | | Load 0x0,0x6 05b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 05b9 e602 | | Load 0x3,0x2 05ba e006 | | Load 0x0,0x6 05bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05bc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05bd e603 | | Load 0x3,0x3 05be e006 | | Load 0x0,0x6 05bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05c0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 05c1 c607 | | Store 0x3,0x7 05c2 e602 | | Load 0x3,0x2 05c3 e006 | | Load 0x0,0x6 05c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05c5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 05c6 c602 | | Store 0x3,0x2 05c7 00c9 | | Action Pop_Auxiliary_Loop 05c8 e602 | | Load 0x3,0x2 05c9 e006 | | Load 0x0,0x6 05ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05cb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05cc 6fbe |o | Jump_Zero 0x58b 05cd 00ce | | Action Pop_Auxiliary 05ce e603 | | Load 0x3,0x3 05cf e006 | | Load 0x0,0x6 05d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 05d2 e603 | | Load 0x3,0x3 05d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 05d4 0000 0000 | | .BLANK 0000[0x4] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05dd | | .CONST 0x05dd ; Address of begin 05d9 061c | | .CONST 0x061c ; Address of exception handler 05da 0002 | | .CONST 0x0002 ; Number of locals 05db INIT_05d8: 05db 029f 062b | +| Declare_Subprogram INIT_0628,For_Call 05dd BODY_05d8: 05dd 4800 |H | Short_Literal 0x0 05de a402 | | Store_Unchecked 0x2,0x2 05df 00cf | | Action Mark_Auxiliary 05e0 e5ff | | Load 0x2,-0x1 05e1 0227 | ' | Execute Access,All_Reference 05e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05e3 680a |h | Jump_Zero 0x5ee 05e4 e5ff | | Load 0x2,-0x1 05e5 0229 | ) | Execute Access,All_Read 05e6 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 05e7 00d8 | | Load_Top At_Offset_0 05e8 e5ff | | Load 0x2,-0x1 05e9 822d | - | Call 0x1,0x2d 05ea e003 | | Load 0x0,0x3 05eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05ec 00d2 | | Pop_Control Pop_Count_2 05ed 780c |x | Jump 0x5fa 05ee e5ff | | Load 0x2,-0x1 05ef 0229 | ) | Execute Access,All_Read 05f0 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 05f1 00d8 | | Load_Top At_Offset_0 05f2 e5ff | | Load 0x2,-0x1 05f3 0227 | ' | Execute Access,All_Reference 05f4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05f5 e002 | | Load 0x0,0x2 05f6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 05f7 e003 | | Load 0x0,0x3 05f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05f9 00d2 | | Pop_Control Pop_Count_2 05fa e5ff | | Load 0x2,-0x1 05fb 0227 | ' | Execute Access,All_Reference 05fc 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 05fd e003 | | Load 0x0,0x3 05fe 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05ff 0c0b | | Execute_Immediate Greater_Equal,0xb 0600 6818 |h | Jump_Zero 0x619 0601 4809 |H | Short_Literal 0x9 0602 4801 |H | Short_Literal 0x1 0603 e5ff | | Load 0x2,-0x1 0604 0227 | ' | Execute Access,All_Reference 0605 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0606 e003 | | Load 0x0,0x3 0607 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0608 0092 0662 | b| Action Push_String_Extended,0x662 ; " " 060a 01df | | Execute Vector,Equal 060b 680d |h | Jump_Zero 0x619 060c e402 | | Load 0x2,0x2 060d 7001 |p | Jump_Nonzero 0x60f 060e 8602 | | Call 0x3,0x2 060f e5ff | | Load 0x2,-0x1 0610 0229 | ) | Execute Access,All_Read 0611 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0612 00d8 | | Load_Top At_Offset_0 0613 4820 |H | Short_Literal 0x20 0614 4800 |H | Short_Literal 0x0 0615 e003 | | Load 0x0,0x3 0616 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0617 00d2 | | Pop_Control Pop_Count_2 0618 7801 |x | Jump 0x61a 0619 4501 |E | Exit_Suprogram New_Top_Offset 0x1 061a 00c9 | | Action Pop_Auxiliary_Loop 061b 7fc4 | | Jump 0x5e0 061c TRAP_05d8: 061c 00d8 | | Load_Top At_Offset_0 061d 0107 | | Execute Exception,Get_Name 061e 4950 |IP | Short_Literal 0x150 061f 495f |I_ | Short_Literal 0x15f 0620 0262 | b | Execute Discrete,In_Range 0621 6801 |h | Jump_Zero 0x623 0622 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0623 0100 | | Execute Exception,Raise 0624 0000 0000 | | .BLANK 0000[0x4] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 063f | ? | .CONST 0x063f ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b e5ff | | Load 0x2,-0x1 062c 0229 | ) | Execute Access,All_Read 062d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 062e 00d8 | | Load_Top At_Offset_0 062f 480a |H | Short_Literal 0xa 0630 e5ff | | Load 0x2,-0x1 0631 0227 | ' | Execute Access,All_Reference 0632 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0633 e003 | | Load 0x0,0x3 0634 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0635 480a |H | Short_Literal 0xa 0636 e5ff | | Load 0x2,-0x1 0637 0227 | ' | Execute Access,All_Reference 0638 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0639 e003 | | Load 0x0,0x3 063a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 063b 01ca | | Execute Vector,Prepend 063c e003 | | Load 0x0,0x3 063d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 063e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 063f TRAP_0628: 063f 010e | | Execute Exception,Is_Constraint_Error 0640 6811 |h | Jump_Zero 0x652 0641 e008 | | Load 0x0,0x8 0642 180e | | Execute Package,Field_Execute,Field_Number 0xe 0643 4802 |H | Short_Literal 0x2 0644 0092 0663 | c| Action Push_String_Extended,0x663 ; "Log entry too long." 0646 e009 | | Load 0x0,0x9 0647 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0648 e008 | | Load 0x0,0x8 0649 180e | | Execute Package,Field_Execute,Field_Number 0xe 064a 4802 |H | Short_Literal 0x2 064b e5ff | | Load 0x2,-0x1 064c 822b | + | Call 0x1,0x2b 064d e009 | | Load 0x0,0x9 064e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 064f 4801 |H | Short_Literal 0x1 0650 a402 | | Store_Unchecked 0x2,0x2 0651 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0652 0100 | | Execute Exception,Raise 0653 ; -------------------------------------------------------------------------------------- 0653 ; STRING TABLE 0653 ; -------------------------------------------------------------------------------------- 0653 0024 | $ | .STRTAB 0x0024->0x0665 ; "!machine.error_logs" 0654 0035 | 5 | .STRTAB 0x0035->0x066e ; ".log@_at_@" 0655 003d | = | .STRTAB 0x003d->0x0673 ; "Too many log files. Maximum is 250. Extra files will not be processed." 0656 0083 | | .STRTAB 0x0083->0x0697 ; "No log files within specified dates in: " 0657 00a9 | | .STRTAB 0x00a9->0x06ab ; "Log files can't be opened" 0658 00c0 | | .STRTAB 0x00c0->0x06b8 ; "Snapshot_Started" 0659 00ce | | .STRTAB 0x00ce->0x06c0 ; " " 065a 00cd | | .STRTAB 0x00cd->0x06c0 ; "System_Boot" 065b 00d6 | | .STRTAB 0x00d6->0x06c6 ; "End of log" 065c 00de | | .STRTAB 0x00de->0x06cb ; " " 065d 00e9 | | .STRTAB 0x00e9->0x06d1 ; "[CURRENT LOG]" 065e 00f4 | | .STRTAB 0x00f4->0x06d8 ; "<null iterator>" 065f 0101 | | .STRTAB 0x0101->0x06df ; "Current log; entry: " 0660 0113 | | .STRTAB 0x0113->0x06e9 ; "File: " 0661 0117 | | .STRTAB 0x0117->0x06ec ; " Entry: " 0662 0122 | " | .STRTAB 0x0122->0x06f3 ; " " 0663 0129 | ) | .STRTAB 0x0129->0x06f7 ; "Log entry too long." 0664 013a | : | .STREND 0x013a->0x0701 0665 216d 6163 |!mac| .STRTAB_STRINGS 0701 0000 0000 | | .BLANK 0000[0x7] 0708 ; -------------------------------------------------------------------------------------- 0708 ; Debug Table 0708 ; -------------------------------------------------------------------------------------- 0708 0004 000d | | .DEBUG4 0x0004,0x000d,0x4018,0x0000,0x0001,0x0000 070e 0000 0000 | | .BLANK 0000[0xf2]