|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 02b0 | | .CONST 0x02b0 ; 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 8001 | | .CONST 0x8001 ; 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 004e | N | .CONST 0x004e ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b 0092 0225 | %| Action Push_String_Extended,0x225 ; "<CURRENT_OUTPUT>" 001d e5fd | | Load 0x2,-0x3 001e e402 | | Load 0x2,0x2 001f 01de | | Execute Vector,Not_Equal 0020 00e1 | | Load_Encached Boolean_Cache 0021 03f1 | | Declare_Variable Discrete,With_Value 0022 e001 | | Load 0x0,0x1 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 02c7 | | Declare_Variable Any 0025 6096 |` | Indirect_Literal Discrete,0xbc,{0x00000004, 0x9d400000} 0026 e001 | | Load 0x0,0x1 0027 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0028 e001 | | Load 0x0,0x1 0029 181b | | Execute Package,Field_Execute,Field_Number 0x1b 002a 0092 0226 | &| Action Push_String_Extended,0x226 ; "<MINUS_7_DAYS>" 002c e5ff | | Load 0x2,-0x1 002d e002 | | Load 0x0,0x2 002e 180e | | Execute Package,Field_Execute,Field_Number 0xe 002f e003 | | Load 0x0,0x3 0030 180d | | Execute Package,Field_Execute,Field_Number 0xd 0031 a404 | | Store_Unchecked 0x2,0x4 0032 e001 | | Load 0x0,0x1 0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0034 02c7 | | Declare_Variable Any 0035 e001 | | Load 0x0,0x1 0036 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0037 0092 0227 | '| Action Push_String_Extended,0x227 ; "<TODAY>" 0039 e5fe | | Load 0x2,-0x2 003a e002 | | Load 0x0,0x2 003b 180e | | Execute Package,Field_Execute,Field_Number 0xe 003c a405 | | Store_Unchecked 0x2,0x5 003d 00e7 | | Load_Encached Duration_Cache 003e e004 | | Load 0x0,0x4 003f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0040 02c7 | | Declare_Variable Any 0041 00d8 | | Load_Top At_Offset_0 0042 1c00 | | Execute_Immediate Run_Utility,0x0 0043 e005 | | Load 0x0,0x5 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 02c7 | | Declare_Variable Any 0046 00d8 | | Load_Top At_Offset_0 0047 1c00 | | Execute_Immediate Run_Utility,0x0 0048 00e1 | | Load_Encached Boolean_Cache 0049 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 004a 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 004c 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 004e BODY_0018: 004e e407 | | Load 0x2,0x7 004f 0092 0228 | (| Action Push_String_Extended,0x228 ; "<QUIET>" 0051 e006 | | Load 0x0,0x6 0052 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0053 c407 | | Store 0x2,0x7 0054 e403 | | Load 0x2,0x3 0055 6803 |h | Jump_Zero 0x59 0056 e5fd | | Load 0x2,-0x3 0057 e005 | | Load 0x0,0x5 0058 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0059 e407 | | Load 0x2,0x7 005a 00e7 | | Load_Encached Duration_Cache 005b e5fb | | Load 0x2,-0x5 005c 4802 |H | Short_Literal 0x2 005d 4801 |H | Short_Literal 0x1 005e 4802 |H | Short_Literal 0x2 005f e405 | | Load 0x2,0x5 0060 e003 | | Load 0x0,0x3 0061 180f | | Execute Package,Field_Execute,Field_Number 0xf 0062 4802 |H | Short_Literal 0x2 0063 4801 |H | Short_Literal 0x1 0064 4802 |H | Short_Literal 0x2 0065 e404 | | Load 0x2,0x4 0066 e003 | | Load 0x0,0x3 0067 180f | | Execute Package,Field_Execute,Field_Number 0xf 0068 e007 | | Load 0x0,0x7 0069 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 006a c406 | | Store 0x2,0x6 006b c407 | | Store 0x2,0x7 006c e408 | | Load 0x2,0x8 006d 00ea | | Load_Encached Null_String_Cache 006e 0092 0229 | )| Action Push_String_Extended,0x229 ; "!Machine.Error_Logs.Error_Summary_" 0070 e003 | | Load 0x0,0x3 0071 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0072 01cc | | Execute Vector,Catenate 0073 4801 |H | Short_Literal 0x1 0074 e005 | | Load 0x0,0x5 0075 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0076 c408 | | Store 0x2,0x8 0077 0092 022a | *| Action Push_String_Extended,0x22a ; "Error Summary Information from " 0079 4802 |H | Short_Literal 0x2 007a 4801 |H | Short_Literal 0x1 007b 4802 |H | Short_Literal 0x2 007c e404 | | Load 0x2,0x4 007d e003 | | Load 0x0,0x3 007e 180f | | Execute Package,Field_Execute,Field_Number 0xf 007f 01cc | | Execute Vector,Catenate 0080 0092 022b | +| Action Push_String_Extended,0x22b ; " thru " 0082 01cc | | Execute Vector,Catenate 0083 4802 |H | Short_Literal 0x2 0084 4801 |H | Short_Literal 0x1 0085 4802 |H | Short_Literal 0x2 0086 e405 | | Load 0x2,0x5 0087 e003 | | Load 0x0,0x3 0088 180f | | Execute Package,Field_Execute,Field_Number 0xf 0089 01cc | | Execute Vector,Catenate 008a e005 | | Load 0x0,0x5 008b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 008c 840a | | Call 0x2,0xa 008d 840b | | Call 0x2,0xb 008e e409 | | Load 0x2,0x9 008f 681b |h | Jump_Zero 0xab 0090 4802 |H | Short_Literal 0x2 0091 e005 | | Load 0x0,0x5 0092 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0093 e5fc | | Load 0x2,-0x4 0094 6811 |h | Jump_Zero 0xa6 0095 0092 022c | ,| Action Push_String_Extended,0x22c ; "Error Information Written to :" 0097 e005 | | Load 0x0,0x5 0098 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0099 0092 022d | -| Action Push_String_Extended,0x22d ; " " 009b e408 | | Load 0x2,0x8 009c e005 | | Load 0x0,0x5 009d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 009e 01cc | | Execute Vector,Catenate 009f e005 | | Load 0x0,0x5 00a0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00a1 e408 | | Load 0x2,0x8 00a2 e005 | | Load 0x0,0x5 00a3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00a4 c408 | | Store 0x2,0x8 00a5 7810 |x | Jump 0xb6 00a6 e408 | | Load 0x2,0x8 00a7 e005 | | Load 0x0,0x5 00a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a9 c408 | | Store 0x2,0x8 00aa 780b |x | Jump 0xb6 00ab 4801 |H | Short_Literal 0x1 00ac e005 | | Load 0x0,0x5 00ad 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00ae 0092 022e | .| Action Push_String_Extended,0x22e ; "No errors detected for period." 00b0 e005 | | Load 0x0,0x5 00b1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00b2 e408 | | Load 0x2,0x8 00b3 e005 | | Load 0x0,0x5 00b4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b5 c408 | | Store 0x2,0x8 00b6 e403 | | Load 0x2,0x3 00b7 6802 |h | Jump_Zero 0xba 00b8 e005 | | Load 0x0,0x5 00b9 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00ba 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00bb 0000 | | .XXX[0x1] 00bc 0000 0004 | | .LITERAL {0x00000004, 0x9d400000} 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00ec | | .CONST 0x00ec ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0008 | | .CONST 0x0008 ; Number of locals 00c3 INIT_00c0: 00c3 e007 | | Load 0x0,0x7 00c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c5 e007 | | Load 0x0,0x7 00c6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00c7 0322 | " | Declare_Variable Record 00c8 e007 | | Load 0x0,0x7 00c9 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00ca 0266 | f | Execute Discrete,Bounds 00cb 00e3 | | Load_Encached Natural_Cache 00cc 02a0 | | Declare_Subprogram Null_Subprogram 00cd 4801 |H | Short_Literal 0x1 00ce 035d | ] | Declare_Type Array,Defined 00cf e007 | | Load 0x0,0x7 00d0 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00d1 0266 | f | Execute Discrete,Bounds 00d2 e005 | | Load 0x0,0x5 00d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d4 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 00d6 4801 |H | Short_Literal 0x1 00d7 035d | ] | Declare_Type Array,Defined 00d8 e604 | | Load 0x3,0x4 00d9 0337 | 7 | Declare_Variable Array 00da 00d8 | | Load_Top At_Offset_0 00db 0335 | 5 | Declare_Variable Array,Duplicate 00dc 00cd | | Action Spare6_Action 00dd 4804 |H | Short_Literal 0x4 00de 4800 |H | Short_Literal 0x0 00df 4800 |H | Short_Literal 0x0 00e0 e609 | | Load 0x3,0x9 00e1 e607 | | Load 0x3,0x7 00e2 01d6 | | Execute Vector,Field_Write 00e3 3ffb |? | Loop_Increasing 0xdf 00e4 e606 | | Load 0x3,0x6 00e5 01d4 | | Execute Vector,Structure_Write 00e6 e605 | | Load 0x3,0x5 00e7 0337 | 7 | Declare_Variable Array 00e8 00d8 | | Load_Top At_Offset_0 00e9 1c00 | | Execute_Immediate Run_Utility,0x0 00ea 00e1 | | Load_Encached Boolean_Cache 00eb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00ec BODY_00c0: 00ec e007 | | Load 0x0,0x7 00ed 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ee e007 | | Load 0x0,0x7 00ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00f0 c602 | | Store 0x3,0x2 00f1 00cf | | Action Mark_Auxiliary 00f2 e605 | | Load 0x3,0x5 00f3 01d9 | | Execute Vector,Reverse_Bounds 00f4 0007 | | Action Break_Optional 00f5 e607 | | Load 0x3,0x7 00f6 e60b | | Load 0x3,0xb 00f7 00d8 | | Load_Top At_Offset_0 00f8 e60c | | Load 0x3,0xc 00f9 01d7 | | Execute Vector,Field_Read 00fa 00ea | | Load_Encached Null_String_Cache 00fb 00ea | | Load_Encached Null_String_Cache 00fc 4801 |H | Short_Literal 0x1 00fd e005 | | Load 0x0,0x5 00fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ff e60d | | Load 0x3,0xd 0100 e60c | | Load 0x3,0xc 0101 01d6 | | Execute Vector,Field_Write 0102 00d2 | | Pop_Control Pop_Count_2 0103 00c8 | | Action Pop_Auxiliary_Range 0104 3ff0 |? | Loop_Increasing 0xf5 0105 00c9 | | Action Pop_Auxiliary_Loop 0106 782f |x/ | Jump 0x136 0107 e602 | | Load 0x3,0x2 0108 e007 | | Load 0x0,0x7 0109 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 010a e603 | | Load 0x3,0x3 010b 017d | } | Execute Record,Structure_Write 010c e603 | | Load 0x3,0x3 010d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 010e 4801 |H | Short_Literal 0x1 010f 4802 |H | Short_Literal 0x2 0110 0262 | b | Execute Discrete,In_Range 0111 701f |p | Jump_Nonzero 0x131 0112 7800 |x | Jump 0x113 0113 e603 | | Load 0x3,0x3 0114 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0115 e606 | | Load 0x3,0x6 0116 01d7 | | Execute Vector,Field_Read 0117 0a01 | | Execute_Immediate Plus,0x1 0118 e603 | | Load 0x3,0x3 0119 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 011a e606 | | Load 0x3,0x6 011b 01d6 | | Execute Vector,Field_Write 011c 4801 |H | Short_Literal 0x1 011d a608 | | Store_Unchecked 0x3,0x8 011e 4820 |H | Short_Literal 0x20 011f 4802 |H | Short_Literal 0x2 0120 4801 |H | Short_Literal 0x1 0121 4802 |H | Short_Literal 0x2 0122 e603 | | Load 0x3,0x3 0123 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0124 e003 | | Load 0x0,0x3 0125 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0126 01cb | | Execute Vector,Append 0127 e603 | | Load 0x3,0x3 0128 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0129 0227 | ' | Execute Access,All_Reference 012a 01cc | | Execute Vector,Catenate 012b e603 | | Load 0x3,0x3 012c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 012d e607 | | Load 0x3,0x7 012e 01d7 | | Execute Vector,Field_Read 012f e005 | | Load 0x0,0x5 0130 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0131 e602 | | Load 0x3,0x2 0132 e007 | | Load 0x0,0x7 0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0134 c602 | | Store 0x3,0x2 0135 00c9 | | Action Pop_Auxiliary_Loop 0136 e602 | | Load 0x3,0x2 0137 e007 | | Load 0x0,0x7 0138 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0139 6fcd |o | Jump_Zero 0x107 013a 00ce | | Action Pop_Auxiliary 013b 00d8 | | Load_Top At_Offset_0 013c 6861 |ha | Jump_Zero 0x19e 013d 4801 |H | Short_Literal 0x1 013e a409 | | Store_Unchecked 0x2,0x9 013f 00cf | | Action Mark_Auxiliary 0140 e007 | | Load 0x0,0x7 0141 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0142 0265 | e | Execute Discrete,Reverse_Bounds 0143 0007 | | Action Break_Optional 0144 00d8 | | Load_Top At_Offset_0 0145 e606 | | Load 0x3,0x6 0146 01d7 | | Execute Vector,Field_Read 0147 0c01 | | Execute_Immediate Greater_Equal,0x1 0148 6852 |hR | Jump_Zero 0x19b 0149 00d8 | | Load_Top At_Offset_0 014a 4801 |H | Short_Literal 0x1 014b 4802 |H | Short_Literal 0x2 014c 0262 | b | Execute Discrete,In_Range 014d 704d |pM | Jump_Nonzero 0x19b 014e 7800 |x | Jump 0x14f 014f 4820 |H | Short_Literal 0x20 0150 e60b | | Load 0x3,0xb 0151 e606 | | Load 0x3,0x6 0152 01d7 | | Execute Vector,Field_Read 0153 00e0 | | Load_Encached Standard_Cache 0154 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0155 01cb | | Execute Vector,Append 0156 e60b | | Load 0x3,0xb 0157 e007 | | Load 0x0,0x7 0158 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0159 011c | | Execute Any,Convert_Unchecked 015a 1c01 | | Execute_Immediate Run_Utility,0x1 015b 01cc | | Execute Vector,Catenate 015c 0092 022f | /| Action Push_String_Extended,0x22f ; " Errors." 015e 01cc | | Execute Vector,Catenate 015f e005 | | Load 0x0,0x5 0160 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0161 e607 | | Load 0x3,0x7 0162 e60b | | Load 0x3,0xb 0163 00d8 | | Load_Top At_Offset_0 0164 e60c | | Load 0x3,0xc 0165 01d7 | | Execute Vector,Field_Read 0166 4800 |H | Short_Literal 0x0 0167 e005 | | Load 0x0,0x5 0168 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0169 e60d | | Load 0x3,0xd 016a e60c | | Load 0x3,0xc 016b 01d6 | | Execute Vector,Field_Write 016c 00d2 | | Pop_Control Pop_Count_2 016d 0092 0230 | 0| Action Push_String_Extended,0x230 ; "==========================" 016f e408 | | Load 0x2,0x8 0170 e005 | | Load 0x0,0x5 0171 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0172 4820 |H | Short_Literal 0x20 0173 e60b | | Load 0x3,0xb 0174 e606 | | Load 0x3,0x6 0175 01d7 | | Execute Vector,Field_Read 0176 00e0 | | Load_Encached Standard_Cache 0177 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0178 01cb | | Execute Vector,Append 0179 e60b | | Load 0x3,0xb 017a e007 | | Load 0x0,0x7 017b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 017c 011c | | Execute Any,Convert_Unchecked 017d 1c01 | | Execute_Immediate Run_Utility,0x1 017e 01cc | | Execute Vector,Catenate 017f 0092 022f | /| Action Push_String_Extended,0x22f ; " Errors." 0181 01cc | | Execute Vector,Catenate 0182 e408 | | Load 0x2,0x8 0183 e005 | | Load 0x0,0x5 0184 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0185 4802 |H | Short_Literal 0x2 0186 e408 | | Load 0x2,0x8 0187 e005 | | Load 0x0,0x5 0188 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0189 00cf | | Action Mark_Auxiliary 018a 7809 |x | Jump 0x194 018b e60b | | Load 0x3,0xb 018c e607 | | Load 0x3,0x7 018d 01d7 | | Execute Vector,Field_Read 018e e005 | | Load 0x0,0x5 018f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0190 e408 | | Load 0x2,0x8 0191 e005 | | Load 0x0,0x5 0192 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0193 00c9 | | Action Pop_Auxiliary_Loop 0194 e60b | | Load 0x3,0xb 0195 e607 | | Load 0x3,0x7 0196 01d7 | | Execute Vector,Field_Read 0197 e005 | | Load 0x0,0x5 0198 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0199 6ff1 |o | Jump_Zero 0x18b 019a 00ce | | Action Pop_Auxiliary 019b 00c8 | | Action Pop_Auxiliary_Range 019c 3fa7 |? | Loop_Increasing 0x144 019d 00ce | | Action Pop_Auxiliary 019e 00cf | | Action Mark_Auxiliary 019f e007 | | Load 0x0,0x7 01a0 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 01a1 0265 | e | Execute Discrete,Reverse_Bounds 01a2 0007 | | Action Break_Optional 01a3 e607 | | Load 0x3,0x7 01a4 e60b | | Load 0x3,0xb 01a5 00d8 | | Load_Top At_Offset_0 01a6 e60c | | Load 0x3,0xc 01a7 01d7 | | Execute Vector,Field_Read 01a8 e005 | | Load 0x0,0x5 01a9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01aa e60d | | Load 0x3,0xd 01ab e60c | | Load 0x3,0xc 01ac 01d6 | | Execute Vector,Field_Write 01ad 00d2 | | Pop_Control Pop_Count_2 01ae 00c8 | | Action Pop_Auxiliary_Range 01af 3ff3 |? | Loop_Increasing 0x1a3 01b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c4 | | .CONST 0x01c4 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0005 | | .CONST 0x0005 ; Number of locals 01bb INIT_01b8: 01bb e007 | | Load 0x0,0x7 01bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01bd e007 | | Load 0x0,0x7 01be 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 01bf 0322 | " | Declare_Variable Record 01c0 00e1 | | Load_Encached Boolean_Cache 01c1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01c2 00e3 | | Load_Encached Natural_Cache 01c3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01c4 BODY_01b8: 01c4 e007 | | Load 0x0,0x7 01c5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01c6 e007 | | Load 0x0,0x7 01c7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c8 c602 | | Store 0x3,0x2 01c9 00cf | | Action Mark_Auxiliary 01ca 7833 |x3 | Jump 0x1fe 01cb e602 | | Load 0x3,0x2 01cc e007 | | Load 0x0,0x7 01cd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01ce e603 | | Load 0x3,0x3 01cf 017d | } | Execute Record,Structure_Write 01d0 e603 | | Load 0x3,0x3 01d1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01d2 0f01 | | Execute_Immediate Equal,0x1 01d3 6825 |h% | Jump_Zero 0x1f9 01d4 e604 | | Load 0x3,0x4 01d5 700e |p | Jump_Nonzero 0x1e4 01d6 0092 0230 | 0| Action Push_String_Extended,0x230 ; "==========================" 01d8 e408 | | Load 0x2,0x8 01d9 e005 | | Load 0x0,0x5 01da 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01db 0092 0231 | 1| Action Push_String_Extended,0x231 ; "Exceptions Errors" 01dd e408 | | Load 0x2,0x8 01de e005 | | Load 0x0,0x5 01df 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01e0 4802 |H | Short_Literal 0x2 01e1 e408 | | Load 0x2,0x8 01e2 e005 | | Load 0x0,0x5 01e3 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01e4 4801 |H | Short_Literal 0x1 01e5 a604 | | Store_Unchecked 0x3,0x4 01e6 e605 | | Load 0x3,0x5 01e7 0a01 | | Execute_Immediate Plus,0x1 01e8 c605 | | Store 0x3,0x5 01e9 4820 |H | Short_Literal 0x20 01ea 4802 |H | Short_Literal 0x2 01eb 4801 |H | Short_Literal 0x1 01ec 4802 |H | Short_Literal 0x2 01ed e603 | | Load 0x3,0x3 01ee 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ef e003 | | Load 0x0,0x3 01f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f1 01cb | | Execute Vector,Append 01f2 e603 | | Load 0x3,0x3 01f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f4 0227 | ' | Execute Access,All_Reference 01f5 01cc | | Execute Vector,Catenate 01f6 e408 | | Load 0x2,0x8 01f7 e005 | | Load 0x0,0x5 01f8 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01f9 e602 | | Load 0x3,0x2 01fa e007 | | Load 0x0,0x7 01fb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01fc c602 | | Store 0x3,0x2 01fd 00c9 | | Action Pop_Auxiliary_Loop 01fe e602 | | Load 0x3,0x2 01ff e007 | | Load 0x0,0x7 0200 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0201 6fc9 |o | Jump_Zero 0x1cb 0202 00ce | | Action Pop_Auxiliary 0203 e604 | | Load 0x3,0x4 0204 680a |h | Jump_Zero 0x20f 0205 00d8 | | Load_Top At_Offset_0 0206 00e0 | | Load_Encached Standard_Cache 0207 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0208 0092 0232 | 2| Action Push_String_Extended,0x232 ; " Exceptions." 020a 01cc | | Execute Vector,Catenate 020b e005 | | Load 0x0,0x5 020c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 020d 4801 |H | Short_Literal 0x1 020e a409 | | Store_Unchecked 0x2,0x9 020f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00d1 | | Pop_Control Pop_Count_1 0214 e9ff | | Load 0x4,-0x1 0215 01dc | | Execute Vector,Last 0216 e9ff | | Load 0x4,-0x1 0217 01dd | | Execute Vector,First 0218 0263 | c | Execute Discrete,Above_Bound 0219 700a |p | Jump_Nonzero 0x224 021a 00d8 | | Load_Top At_Offset_0 021b e9ff | | Load 0x4,-0x1 021c 01d5 | | Execute Vector,Field_Reference 021d 0125 | % | Execute Any,Set_Constraint 021e 00d8 | | Load_Top At_Offset_0 021f e9ff | | Load 0x4,-0x1 0220 01d5 | | Execute Vector,Field_Reference 0221 1c00 | | Execute_Immediate Run_Utility,0x0 0222 0a01 | | Execute_Immediate Plus,0x1 0223 7ff4 | | Jump 0x218 0224 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0225 ; -------------------------------------------------------------------------------------- 0225 ; STRING TABLE 0225 ; -------------------------------------------------------------------------------------- 0225 001e | | .STRTAB 0x001e->0x0234 ; "<CURRENT_OUTPUT>" 0226 002c | , | .STRTAB 0x002c->0x023c ; "<MINUS_7_DAYS>" 0227 0038 | 8 | .STRTAB 0x0038->0x0243 ; "<TODAY>" 0228 003d | = | .STRTAB 0x003d->0x0246 ; "<QUIET>" 0229 0042 | B | .STRTAB 0x0042->0x024a ; "!Machine.Error_Logs.Error_Summary_" 022a 0062 | b | .STRTAB 0x0062->0x025b ; "Error Summary Information from " 022b 007f | | .STRTAB 0x007f->0x026a ; " thru " 022c 0083 | | .STRTAB 0x0083->0x026d ; "Error Information Written to :" 022d 009f | | .STRTAB 0x009f->0x027c ; " " 022e 00a2 | | .STRTAB 0x00a2->0x027f ; "No errors detected for period." 022f 00be | | .STRTAB 0x00be->0x028e ; " Errors." 0230 00c4 | | .STRTAB 0x00c4->0x0292 ; "==========================" 0231 00dc | | .STRTAB 0x00dc->0x029f ; "Exceptions Errors" 0232 00eb | | .STRTAB 0x00eb->0x02a7 ; " Exceptions." 0233 00f5 | | .STREND 0x00f5->0x02ad 0234 3c43 5552 |<CUR| .STRTAB_STRINGS 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug Table 02b0 ; -------------------------------------------------------------------------------------- 02b0 0004 000d | | .DEBUG4 0x0004,0x000d,0x4033,0x0000,0x0001,0x0000 02b6 6969 026b |ii k| .XXX[0x13] 02b8 0b5b 2afa | [* | 02ba 1b7b 739b | {s | 02bc 4b9b a32b |K +| 02be 73a1 7000 |s p | 02c0 0002 d800 | | 02c2 0000 1169 | i| 02c4 6800 0002 |h | 02c6 8800 0000 | | 02c8 6101 |a | 02c9 0101 0101 | | .BLANK 0101[0x4] 02cd 0169 6800 | ih | .XXX[0x6] 02cf 0002 8800 | | 02d1 0000 6101 | a | 02d3 0101 0101 | | .BLANK 0101[0x4] 02d7 0169 6800 | ih | .XXX[0x26] 02d9 0003 4000 | @ | 02db 0001 c169 | i| 02dd 6902 a343 |i C| 02df 2903 237b |) #{| 02e1 bb73 637b | sc{| 02e3 0b21 03a3 | ! | 02e5 4b6b 2b99 |Kk+ | 02e7 037b 3103 | {1 | 02e9 4b73 234b |Ks#K| 02eb b34b 23ab | K# | 02ed 0b61 03ab | a | 02ef 734b a399 |sK | 02f1 030b 9329 | )| 02f3 03ab 8323 | #| 02f5 0ba3 2b21 | +!| 02f7 0313 c800 | | 02f9 0002 f000 | | 02fb 0002 1101 | | 02fd 0101 0101 | | .BLANK 0101[0x4] 0301 0169 6902 | ii | .XXX[0x21] 0303 a343 2903 | C) | 0305 237b bb73 |#{ s| 0307 637b 0b21 |c{ !| 0309 03a3 4b6b | Kk| 030b 2b99 037b |+ {| 030d 3103 4b73 |1 Ks| 030f 234b b34b |#K K| 0311 23ab 0b61 |# a| 0313 03ab 734b | sK| 0315 a399 030b | | 0317 9329 03ab | ) | 0319 8323 0ba3 | # | 031b 2b21 0313 |+! | 031d c800 0002 | | 031f f000 0002 | | 0321 1101 | | 0322 0101 0101 | | .BLANK 0101[0x4] 0326 0169 6902 | ii | .XXX[0x40] 0328 a343 2903 | C) | 032a 237b bb73 |#{ s| 032c 637b 0b21 |c{ !| 032e 03a3 4b6b | Kk| 0330 2b99 037b |+ {| 0332 3103 4b73 |1 Ks| 0334 234b b34b |#K K| 0336 23ab 0b61 |# a| 0338 03ab 734b | sK| 033a a399 030b | | 033c 9329 03ab | ) | 033e 8323 0ba3 | # | 0340 2b21 0313 |+! | 0342 c800 0001 | | 0344 5800 0001 |X | 0346 b969 6902 | ii | 0348 a393 0b73 | s| 034a 9b33 2b91 | 3+ | 034c 726b 7bb3 |rk{ | 034e 2afa 9b7b |* {| 0350 ab93 1b29 | )| 0352 6102 a393 |a | 0354 0b73 9b33 | s 3| 0356 2b91 726b |+ rk| 0358 7bb3 2afa |{ * | 035a b34b 0afa | K | 035c 732b a3bb |s+ | 035e 7b93 5961 |{ Ya| 0360 030b 7320 | s | 0362 0000 0108 | | 0364 0000 0209 | | 0366 0101 0101 | | .BLANK 0101[0x5] 036b 6969 02a3 |ii | .XXX[0x20] 036d 930b 739b | s | 036f 332b 9172 |3+ r| 0371 6b7b b32a |k{ *| 0373 fa9b 7bab | { | 0375 931b 2961 | )a| 0377 02a3 930b | | 0379 739b 332b |s 3+| 037b 9172 6b7b | rk{| 037d b32a fab3 | * | 037f 4b0a fa73 |K s| 0381 2ba3 bb7b |+ {| 0383 9359 6103 | Ya | 0385 0b73 2000 | s | 0387 0001 0800 | | 0389 0002 0901 | | 038b 0101 0101 | | .BLANK 0101[0x4] 038f 0169 6902 | ii | .XXX[0x31] 0391 a393 0b73 | s| 0393 9b33 2b91 | 3+ | 0395 726b 7bb3 |rk{ | 0397 2afa 9b7b |* {| 0399 ab93 1b29 | )| 039b 6102 a393 |a | 039d 0b73 9b33 | s 3| 039f 2b91 726b |+ rk| 03a1 7bb3 2afa |{ * | 03a3 b34b 0afa | K | 03a5 732b a3bb |s+ | 03a7 7b93 5961 |{ Ya| 03a9 030b 7320 | s | 03ab 0000 0368 | h| 03ad 0000 00d1 | | 03af 6969 02a3 |ii | 03b1 930b 739b | s | 03b3 332b 9172 |3+ r| 03b5 6b7b b32a |k{ *| 03b7 fab3 4b0a | K | 03b9 faa3 0b83 | | 03bb 2970 0000 |)p | 03bd 0318 0000 | | 03bf 0121 | ! | 03c0 0101 0101 | | .BLANK 0101[0x5] 03c5 6969 02a3 |ii | .XXX[0x11] 03c7 930b 739b | s | 03c9 332b 9172 |3+ r| 03cb 6b7b b32a |k{ *| 03cd fab3 4b0a | K | 03cf faa3 0b83 | | 03d1 2970 0000 |)p | 03d3 0318 0000 | | 03d5 0121 | ! | 03d6 0101 0101 | | .BLANK 0101[0x5] 03db 6969 02a3 |ii | .XXX[0x25] 03dd 930b 739b | s | 03df 332b 9172 |3+ r| 03e1 6b7b b32a |k{ *| 03e3 fab3 4b0a | K | 03e5 faa3 0b83 | | 03e7 2970 0000 |)p | 03e9 0090 0000 | | 03eb 00cb 8393 | | 03ed 7b1b 2b23 |{ +#| 03ef ab93 2902 | ) | 03f1 3b7a fa13 |;z | 03f3 0b1b 5afa | Z | 03f5 4b72 faa3 |Kr | 03f7 4b6b 2800 |Kk( | 03f9 0000 4000 | @ | 03fb 0001 1901 | | 03fd 0101 0101 | | 03ff 0101 | |