|
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_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 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 0000 0000 | | .BLANK 0000[0x14a]