DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦9f108200c⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 0298       |    |		.CONST	0x0298								; 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 004b       | K  |		.CONST	0x004b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000b       |    |		.CONST	0x000b								; Number of locals
001b			INIT_0018:
001b 0092 020d  |    |		Action	Push_String_Extended,0x20d					; "<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 e002       |    |		Load	0x0,0x2
0023 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0024 02c7       |    |		Declare_Variable	Any
0025 608e       |`   |		Indirect_Literal	Discrete,0xb4,{0x00000004, 0x9d400000}
0026 e002       |    |		Load	0x0,0x2
0027 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0028 e002       |    |		Load	0x0,0x2
0029 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
002a 0092 020e  |    |		Action	Push_String_Extended,0x20e					; "<MINUS_7_DAYS>"
002c e5ff       |    |		Load	0x2,-0x1
002d 8003       |    |		Call	0x0,0x3
002e 8004       |    |		Call	0x0,0x4
002f a404       |    |		Store_Unchecked	0x2,0x4
0030 e002       |    |		Load	0x0,0x2
0031 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0032 02c7       |    |		Declare_Variable	Any
0033 e002       |    |		Load	0x0,0x2
0034 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0035 0092 020f  |    |		Action	Push_String_Extended,0x20f					; "<TODAY>"
0037 e5fe       |    |		Load	0x2,-0x2
0038 8003       |    |		Call	0x0,0x3
0039 a405       |    |		Store_Unchecked	0x2,0x5
003a 00e7       |    |		Load_Encached	Duration_Cache
003b e005       |    |		Load	0x0,0x5
003c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003d 02c7       |    |		Declare_Variable	Any
003e 00d8       |    |		Load_Top	At_Offset_0
003f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0040 e006       |    |		Load	0x0,0x6
0041 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0042 02c7       |    |		Declare_Variable	Any
0043 00d8       |    |		Load_Top	At_Offset_0
0044 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0045 00e1       |    |		Load_Encached	Boolean_Cache
0046 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0047 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
0049 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
004b			BODY_0018:
004b e407       |    |		Load	0x2,0x7
004c 0092 0210  |    |		Action	Push_String_Extended,0x210					; "<QUIET>"
004e e007       |    |		Load	0x0,0x7
004f 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0050 c407       |    |		Store	0x2,0x7
0051 e403       |    |		Load	0x2,0x3
0052 6803       |h   |		Jump_Zero	0x56
0053 e5fd       |    |		Load	0x2,-0x3
0054 e006       |    |		Load	0x0,0x6
0055 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0056 e407       |    |		Load	0x2,0x7
0057 00e7       |    |		Load_Encached	Duration_Cache
0058 e5fb       |    |		Load	0x2,-0x5
0059 4802       |H   |		Short_Literal	0x2
005a 4801       |H   |		Short_Literal	0x1
005b 4802       |H   |		Short_Literal	0x2
005c e405       |    |		Load	0x2,0x5
005d 8008       |    |		Call	0x0,0x8
005e 4802       |H   |		Short_Literal	0x2
005f 4801       |H   |		Short_Literal	0x1
0060 4802       |H   |		Short_Literal	0x2
0061 e404       |    |		Load	0x2,0x4
0062 8008       |    |		Call	0x0,0x8
0063 8009       |    |		Call	0x0,0x9
0064 c406       |    |		Store	0x2,0x6
0065 c407       |    |		Store	0x2,0x7
0066 e408       |    |		Load	0x2,0x8
0067 00ea       |    |		Load_Encached	Null_String_Cache
0068 0092 0211  |    |		Action	Push_String_Extended,0x211					; "!Machine.Error_Logs.Error_Summary_"
006a 800a       |    |		Call	0x0,0xa
006b 01cc       |    |		Execute	Vector,Catenate
006c 4801       |H   |		Short_Literal	0x1
006d e006       |    |		Load	0x0,0x6
006e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
006f c408       |    |		Store	0x2,0x8
0070 0092 0212  |    |		Action	Push_String_Extended,0x212					; "Error Summary Information from "
0072 4802       |H   |		Short_Literal	0x2
0073 4801       |H   |		Short_Literal	0x1
0074 4802       |H   |		Short_Literal	0x2
0075 e404       |    |		Load	0x2,0x4
0076 8008       |    |		Call	0x0,0x8
0077 01cc       |    |		Execute	Vector,Catenate
0078 0092 0213  |    |		Action	Push_String_Extended,0x213					; " thru "
007a 01cc       |    |		Execute	Vector,Catenate
007b 4802       |H   |		Short_Literal	0x2
007c 4801       |H   |		Short_Literal	0x1
007d 4802       |H   |		Short_Literal	0x2
007e e405       |    |		Load	0x2,0x5
007f 8008       |    |		Call	0x0,0x8
0080 01cc       |    |		Execute	Vector,Catenate
0081 e006       |    |		Load	0x0,0x6
0082 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0083 840a       |    |		Call	0x2,0xa
0084 840b       |    |		Call	0x2,0xb
0085 e409       |    |		Load	0x2,0x9
0086 681b       |h   |		Jump_Zero	0xa2
0087 4802       |H   |		Short_Literal	0x2
0088 e006       |    |		Load	0x0,0x6
0089 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
008a e5fc       |    |		Load	0x2,-0x4
008b 6811       |h   |		Jump_Zero	0x9d
008c 0092 0214  |    |		Action	Push_String_Extended,0x214					; "Error Information Written to :"
008e e006       |    |		Load	0x0,0x6
008f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0090 0092 0215  |    |		Action	Push_String_Extended,0x215					; "     "
0092 e408       |    |		Load	0x2,0x8
0093 e006       |    |		Load	0x0,0x6
0094 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0095 01cc       |    |		Execute	Vector,Catenate
0096 e006       |    |		Load	0x0,0x6
0097 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0098 e408       |    |		Load	0x2,0x8
0099 e006       |    |		Load	0x0,0x6
009a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
009b c408       |    |		Store	0x2,0x8
009c 7810       |x   |		Jump	0xad
009d e408       |    |		Load	0x2,0x8
009e e006       |    |		Load	0x0,0x6
009f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00a0 c408       |    |		Store	0x2,0x8
00a1 780b       |x   |		Jump	0xad
00a2 4801       |H   |		Short_Literal	0x1
00a3 e006       |    |		Load	0x0,0x6
00a4 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
00a5 0092 0216  |    |		Action	Push_String_Extended,0x216					; "No errors detected for period."
00a7 e006       |    |		Load	0x0,0x6
00a8 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00a9 e408       |    |		Load	0x2,0x8
00aa e006       |    |		Load	0x0,0x6
00ab 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00ac c408       |    |		Store	0x2,0x8
00ad e403       |    |		Load	0x2,0x3
00ae 6802       |h   |		Jump_Zero	0xb1
00af e006       |    |		Load	0x0,0x6
00b0 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
00b1 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00b2 0000 0000  |    |		.XXX[0x2]
00b4 0000 0004  |    |		.LITERAL	{0x00000004, 0x9d400000}
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00e1       |    |		.CONST	0x00e1								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0008       |    |		.CONST	0x0008								; Number of locals
00bb			INIT_00b8:
00bb e00b       |    |		Load	0x0,0xb
00bc 0007       |    |		Action	Break_Optional
00bd e00c       |    |		Load	0x0,0xc
00be 0322       | "  |		Declare_Variable	Record
00bf e00d       |    |		Load	0x0,0xd
00c0 0266       | f  |		Execute	Discrete,Bounds
00c1 00e3       |    |		Load_Encached	Natural_Cache
00c2 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c3 4801       |H   |		Short_Literal	0x1
00c4 035d       | ]  |		Declare_Type	Array,Defined
00c5 e00d       |    |		Load	0x0,0xd
00c6 0266       | f  |		Execute	Discrete,Bounds
00c7 e006       |    |		Load	0x0,0x6
00c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c9 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
00cb 4801       |H   |		Short_Literal	0x1
00cc 035d       | ]  |		Declare_Type	Array,Defined
00cd e604       |    |		Load	0x3,0x4
00ce 0337       | 7  |		Declare_Variable	Array
00cf 00d8       |    |		Load_Top	At_Offset_0
00d0 0335       | 5  |		Declare_Variable	Array,Duplicate
00d1 00cd       |    |		Action	Spare6_Action
00d2 4804       |H   |		Short_Literal	0x4
00d3 4800       |H   |		Short_Literal	0x0
00d4 4800       |H   |		Short_Literal	0x0
00d5 e609       |    |		Load	0x3,0x9
00d6 e607       |    |		Load	0x3,0x7
00d7 01d6       |    |		Execute	Vector,Field_Write
00d8 3ffb       |?   |		Loop_Increasing	0xd4
00d9 e606       |    |		Load	0x3,0x6
00da 01d4       |    |		Execute	Vector,Structure_Write
00db e605       |    |		Load	0x3,0x5
00dc 0337       | 7  |		Declare_Variable	Array
00dd 00d8       |    |		Load_Top	At_Offset_0
00de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00df 00e1       |    |		Load_Encached	Boolean_Cache
00e0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00e1			BODY_00b8:
00e1 e00b       |    |		Load	0x0,0xb
00e2 800e       |    |		Call	0x0,0xe
00e3 c602       |    |		Store	0x3,0x2
00e4 00cf       |    |		Action	Mark_Auxiliary
00e5 e605       |    |		Load	0x3,0x5
00e6 01d9       |    |		Execute	Vector,Reverse_Bounds
00e7 0007       |    |		Action	Break_Optional
00e8 e607       |    |		Load	0x3,0x7
00e9 e60b       |    |		Load	0x3,0xb
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb e60c       |    |		Load	0x3,0xc
00ec 01d7       |    |		Execute	Vector,Field_Read
00ed 00ea       |    |		Load_Encached	Null_String_Cache
00ee 00ea       |    |		Load_Encached	Null_String_Cache
00ef 4801       |H   |		Short_Literal	0x1
00f0 e006       |    |		Load	0x0,0x6
00f1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00f2 e60d       |    |		Load	0x3,0xd
00f3 e60c       |    |		Load	0x3,0xc
00f4 01d6       |    |		Execute	Vector,Field_Write
00f5 00d2       |    |		Pop_Control	Pop_Count_2
00f6 00c8       |    |		Action	Pop_Auxiliary_Range
00f7 3ff0       |?   |		Loop_Increasing	0xe8
00f8 00c9       |    |		Action	Pop_Auxiliary_Loop
00f9 782d       |x-  |		Jump	0x127
00fa e602       |    |		Load	0x3,0x2
00fb 800f       |    |		Call	0x0,0xf
00fc e603       |    |		Load	0x3,0x3
00fd 017d       | }  |		Execute	Record,Structure_Write
00fe e603       |    |		Load	0x3,0x3
00ff 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0100 4801       |H   |		Short_Literal	0x1
0101 4802       |H   |		Short_Literal	0x2
0102 0262       | b  |		Execute	Discrete,In_Range
0103 701f       |p   |		Jump_Nonzero	0x123
0104 7800       |x   |		Jump	0x105
0105 e603       |    |		Load	0x3,0x3
0106 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0107 e606       |    |		Load	0x3,0x6
0108 01d7       |    |		Execute	Vector,Field_Read
0109 0a01       |    |		Execute_Immediate	Plus,0x1
010a e603       |    |		Load	0x3,0x3
010b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
010c e606       |    |		Load	0x3,0x6
010d 01d6       |    |		Execute	Vector,Field_Write
010e 4801       |H   |		Short_Literal	0x1
010f a608       |    |		Store_Unchecked	0x3,0x8
0110 4820       |H   |		Short_Literal	0x20
0111 4802       |H   |		Short_Literal	0x2
0112 4801       |H   |		Short_Literal	0x1
0113 4802       |H   |		Short_Literal	0x2
0114 e603       |    |		Load	0x3,0x3
0115 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0116 e010       |    |		Load	0x0,0x10
0117 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0118 01cb       |    |		Execute	Vector,Append
0119 e603       |    |		Load	0x3,0x3
011a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011b 0217       |    |		Execute	Heap_Access,All_Reference
011c 01cc       |    |		Execute	Vector,Catenate
011d e603       |    |		Load	0x3,0x3
011e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
011f e607       |    |		Load	0x3,0x7
0120 01d7       |    |		Execute	Vector,Field_Read
0121 e006       |    |		Load	0x0,0x6
0122 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0123 e602       |    |		Load	0x3,0x2
0124 8011       |    |		Call	0x0,0x11
0125 c602       |    |		Store	0x3,0x2
0126 00c9       |    |		Action	Pop_Auxiliary_Loop
0127 e602       |    |		Load	0x3,0x2
0128 8012       |    |		Call	0x0,0x12
0129 6fd0       |o   |		Jump_Zero	0xfa
012a 00ce       |    |		Action	Pop_Auxiliary
012b 00d8       |    |		Load_Top	At_Offset_0
012c 685e       |h^  |		Jump_Zero	0x18b
012d 4801       |H   |		Short_Literal	0x1
012e a409       |    |		Store_Unchecked	0x2,0x9
012f 00cf       |    |		Action	Mark_Auxiliary
0130 e00d       |    |		Load	0x0,0xd
0131 0265       | e  |		Execute	Discrete,Reverse_Bounds
0132 0007       |    |		Action	Break_Optional
0133 00d8       |    |		Load_Top	At_Offset_0
0134 e606       |    |		Load	0x3,0x6
0135 01d7       |    |		Execute	Vector,Field_Read
0136 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0137 6850       |hP  |		Jump_Zero	0x188
0138 00d8       |    |		Load_Top	At_Offset_0
0139 4801       |H   |		Short_Literal	0x1
013a 4802       |H   |		Short_Literal	0x2
013b 0262       | b  |		Execute	Discrete,In_Range
013c 704b       |pK  |		Jump_Nonzero	0x188
013d 7800       |x   |		Jump	0x13e
013e 4820       |H   |		Short_Literal	0x20
013f e60b       |    |		Load	0x3,0xb
0140 e606       |    |		Load	0x3,0x6
0141 01d7       |    |		Execute	Vector,Field_Read
0142 00e0       |    |		Load_Encached	Standard_Cache
0143 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0144 01cb       |    |		Execute	Vector,Append
0145 e60b       |    |		Load	0x3,0xb
0146 e00d       |    |		Load	0x0,0xd
0147 011c       |    |		Execute	Any,Convert_Unchecked
0148 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0149 01cc       |    |		Execute	Vector,Catenate
014a 0092 0217  |    |		Action	Push_String_Extended,0x217					; " Errors."
014c 01cc       |    |		Execute	Vector,Catenate
014d e006       |    |		Load	0x0,0x6
014e 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
014f e607       |    |		Load	0x3,0x7
0150 e60b       |    |		Load	0x3,0xb
0151 00d8       |    |		Load_Top	At_Offset_0
0152 e60c       |    |		Load	0x3,0xc
0153 01d7       |    |		Execute	Vector,Field_Read
0154 4800       |H   |		Short_Literal	0x0
0155 e006       |    |		Load	0x0,0x6
0156 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0157 e60d       |    |		Load	0x3,0xd
0158 e60c       |    |		Load	0x3,0xc
0159 01d6       |    |		Execute	Vector,Field_Write
015a 00d2       |    |		Pop_Control	Pop_Count_2
015b 0092 0218  |    |		Action	Push_String_Extended,0x218					; "=========================="
015d e408       |    |		Load	0x2,0x8
015e e006       |    |		Load	0x0,0x6
015f 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0160 4820       |H   |		Short_Literal	0x20
0161 e60b       |    |		Load	0x3,0xb
0162 e606       |    |		Load	0x3,0x6
0163 01d7       |    |		Execute	Vector,Field_Read
0164 00e0       |    |		Load_Encached	Standard_Cache
0165 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0166 01cb       |    |		Execute	Vector,Append
0167 e60b       |    |		Load	0x3,0xb
0168 e00d       |    |		Load	0x0,0xd
0169 011c       |    |		Execute	Any,Convert_Unchecked
016a 1c01       |    |		Execute_Immediate	Run_Utility,0x1
016b 01cc       |    |		Execute	Vector,Catenate
016c 0092 0217  |    |		Action	Push_String_Extended,0x217					; " Errors."
016e 01cc       |    |		Execute	Vector,Catenate
016f e408       |    |		Load	0x2,0x8
0170 e006       |    |		Load	0x0,0x6
0171 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0172 4802       |H   |		Short_Literal	0x2
0173 e408       |    |		Load	0x2,0x8
0174 e006       |    |		Load	0x0,0x6
0175 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0176 00cf       |    |		Action	Mark_Auxiliary
0177 7809       |x   |		Jump	0x181
0178 e60b       |    |		Load	0x3,0xb
0179 e607       |    |		Load	0x3,0x7
017a 01d7       |    |		Execute	Vector,Field_Read
017b e006       |    |		Load	0x0,0x6
017c 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
017d e408       |    |		Load	0x2,0x8
017e e006       |    |		Load	0x0,0x6
017f 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0180 00c9       |    |		Action	Pop_Auxiliary_Loop
0181 e60b       |    |		Load	0x3,0xb
0182 e607       |    |		Load	0x3,0x7
0183 01d7       |    |		Execute	Vector,Field_Read
0184 e006       |    |		Load	0x0,0x6
0185 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0186 6ff1       |o   |		Jump_Zero	0x178
0187 00ce       |    |		Action	Pop_Auxiliary
0188 00c8       |    |		Action	Pop_Auxiliary_Range
0189 3fa9       |?   |		Loop_Increasing	0x133
018a 00ce       |    |		Action	Pop_Auxiliary
018b 00cf       |    |		Action	Mark_Auxiliary
018c e00d       |    |		Load	0x0,0xd
018d 0265       | e  |		Execute	Discrete,Reverse_Bounds
018e 0007       |    |		Action	Break_Optional
018f e607       |    |		Load	0x3,0x7
0190 e60b       |    |		Load	0x3,0xb
0191 00d8       |    |		Load_Top	At_Offset_0
0192 e60c       |    |		Load	0x3,0xc
0193 01d7       |    |		Execute	Vector,Field_Read
0194 e006       |    |		Load	0x0,0x6
0195 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0196 e60d       |    |		Load	0x3,0xd
0197 e60c       |    |		Load	0x3,0xc
0198 01d6       |    |		Execute	Vector,Field_Write
0199 00d2       |    |		Pop_Control	Pop_Count_2
019a 00c8       |    |		Action	Pop_Auxiliary_Range
019b 3ff3       |?   |		Loop_Increasing	0x18f
019c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
019d 0000 0000  |    |		.XXX[0x3]
019f 0000       |    |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ab       |    |		.CONST	0x01ab								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0005       |    |		.CONST	0x0005								; Number of locals
01a3			INIT_01a0:
01a3 e013       |    |		Load	0x0,0x13
01a4 0007       |    |		Action	Break_Optional
01a5 e014       |    |		Load	0x0,0x14
01a6 0322       | "  |		Declare_Variable	Record
01a7 00e1       |    |		Load_Encached	Boolean_Cache
01a8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01a9 00e3       |    |		Load_Encached	Natural_Cache
01aa 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01ab			BODY_01a0:
01ab e013       |    |		Load	0x0,0x13
01ac 8015       |    |		Call	0x0,0x15
01ad c602       |    |		Store	0x3,0x2
01ae 00cf       |    |		Action	Mark_Auxiliary
01af 7831       |x1  |		Jump	0x1e1
01b0 e602       |    |		Load	0x3,0x2
01b1 8016       |    |		Call	0x0,0x16
01b2 e603       |    |		Load	0x3,0x3
01b3 017d       | }  |		Execute	Record,Structure_Write
01b4 e603       |    |		Load	0x3,0x3
01b5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b6 0f01       |    |		Execute_Immediate	Equal,0x1
01b7 6825       |h%  |		Jump_Zero	0x1dd
01b8 e604       |    |		Load	0x3,0x4
01b9 700e       |p   |		Jump_Nonzero	0x1c8
01ba 0092 0218  |    |		Action	Push_String_Extended,0x218					; "=========================="
01bc e408       |    |		Load	0x2,0x8
01bd e006       |    |		Load	0x0,0x6
01be 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
01bf 0092 0219  |    |		Action	Push_String_Extended,0x219					; "Exceptions Errors"
01c1 e408       |    |		Load	0x2,0x8
01c2 e006       |    |		Load	0x0,0x6
01c3 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
01c4 4802       |H   |		Short_Literal	0x2
01c5 e408       |    |		Load	0x2,0x8
01c6 e006       |    |		Load	0x0,0x6
01c7 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
01c8 4801       |H   |		Short_Literal	0x1
01c9 a604       |    |		Store_Unchecked	0x3,0x4
01ca e605       |    |		Load	0x3,0x5
01cb 0a01       |    |		Execute_Immediate	Plus,0x1
01cc c605       |    |		Store	0x3,0x5
01cd 4820       |H   |		Short_Literal	0x20
01ce 4802       |H   |		Short_Literal	0x2
01cf 4801       |H   |		Short_Literal	0x1
01d0 4802       |H   |		Short_Literal	0x2
01d1 e603       |    |		Load	0x3,0x3
01d2 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01d3 e010       |    |		Load	0x0,0x10
01d4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01d5 01cb       |    |		Execute	Vector,Append
01d6 e603       |    |		Load	0x3,0x3
01d7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d8 0217       |    |		Execute	Heap_Access,All_Reference
01d9 01cc       |    |		Execute	Vector,Catenate
01da e408       |    |		Load	0x2,0x8
01db e006       |    |		Load	0x0,0x6
01dc 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
01dd e602       |    |		Load	0x3,0x2
01de 8017       |    |		Call	0x0,0x17
01df c602       |    |		Store	0x3,0x2
01e0 00c9       |    |		Action	Pop_Auxiliary_Loop
01e1 e602       |    |		Load	0x3,0x2
01e2 8018       |    |		Call	0x0,0x18
01e3 6fcc       |o   |		Jump_Zero	0x1b0
01e4 00ce       |    |		Action	Pop_Auxiliary
01e5 e604       |    |		Load	0x3,0x4
01e6 680a       |h   |		Jump_Zero	0x1f1
01e7 00d8       |    |		Load_Top	At_Offset_0
01e8 00e0       |    |		Load_Encached	Standard_Cache
01e9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01ea 0092 021a  |    |		Action	Push_String_Extended,0x21a					; " Exceptions."
01ec 01cc       |    |		Execute	Vector,Catenate
01ed e006       |    |		Load	0x0,0x6
01ee 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01ef 4801       |H   |		Short_Literal	0x1
01f0 a409       |    |		Store_Unchecked	0x2,0x9
01f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01f2 0000 0000  |    |		.BLANK	0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00d1       |    |		Pop_Control	Pop_Count_1
01fc e9ff       |    |		Load	0x4,-0x1
01fd 01dc       |    |		Execute	Vector,Last
01fe e9ff       |    |		Load	0x4,-0x1
01ff 01dd       |    |		Execute	Vector,First
0200 0263       | c  |		Execute	Discrete,Above_Bound
0201 700a       |p   |		Jump_Nonzero	0x20c
0202 00d8       |    |		Load_Top	At_Offset_0
0203 e9ff       |    |		Load	0x4,-0x1
0204 01d5       |    |		Execute	Vector,Field_Reference
0205 0125       | %  |		Execute	Any,Set_Constraint
0206 00d8       |    |		Load_Top	At_Offset_0
0207 e9ff       |    |		Load	0x4,-0x1
0208 01d5       |    |		Execute	Vector,Field_Reference
0209 1c00       |    |		Execute_Immediate	Run_Utility,0x0
020a 0a01       |    |		Execute_Immediate	Plus,0x1
020b 7ff4       |    |		Jump	0x200
020c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
020d ; --------------------------------------------------------------------------------------
020d ; STRING TABLE
020d ; --------------------------------------------------------------------------------------
020d 001e       |    |		.STRTAB	0x001e->0x021c							; "<CURRENT_OUTPUT>"
020e 002c       | ,  |		.STRTAB	0x002c->0x0224							; "<MINUS_7_DAYS>"
020f 0038       | 8  |		.STRTAB	0x0038->0x022b							; "<TODAY>"
0210 003d       | =  |		.STRTAB	0x003d->0x022e							; "<QUIET>"
0211 0042       | B  |		.STRTAB	0x0042->0x0232							; "!Machine.Error_Logs.Error_Summary_"
0212 0062       | b  |		.STRTAB	0x0062->0x0243							; "Error Summary Information from "
0213 007f       |    |		.STRTAB	0x007f->0x0252							; " thru "
0214 0083       |    |		.STRTAB	0x0083->0x0255							; "Error Information Written to :"
0215 009f       |    |		.STRTAB	0x009f->0x0264							; "     "
0216 00a2       |    |		.STRTAB	0x00a2->0x0267							; "No errors detected for period."
0217 00be       |    |		.STRTAB	0x00be->0x0276							; " Errors."
0218 00c4       |    |		.STRTAB	0x00c4->0x027a							; "=========================="
0219 00dc       |    |		.STRTAB	0x00dc->0x0287							; "Exceptions Errors"
021a 00eb       |    |		.STRTAB	0x00eb->0x028f							; " Exceptions."
021b 00f5       |    |		.STREND 0x00f5->0x0295
021c 3c43 5552  |<CUR|		.STRTAB_STRINGS
0296 0000 0000  |    |		.XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x9c91,0x0000,0x0001,0x0000
029e 0000 0000  |    |		.BLANK	0000[0x162]