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

⟦349257567⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe

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 08f0       |    |		.CONST	0x08f0								; 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 8005       |    |		.CONST	0x8005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00aa       |    |		.CONST	0x00aa								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002e       | .  |		.CONST	0x002e								; Number of locals
000b			INIT_0008:
000b 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0011 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0013 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
0015 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
0017 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
0019 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
001b 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
001d 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
001f 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
0021 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
0023 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
0025 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
0027 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
0029 029a 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call,Visible,Unelaborated
002b 029a 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call,Visible,Unelaborated
002d 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
002f 4809       |H   |		Short_Literal	0x9
0030 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0031 00d8       |    |		Load_Top	At_Offset_0
0032 02a0       |    |		Declare_Subprogram	Null_Subprogram
0033 4818       |H   |		Short_Literal	0x18
0034 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0035 00bf       |    |		Action	Accept_Activation
0036 00e1       |    |		Load_Encached	Boolean_Cache
0037 00e1       |    |		Load_Encached	Boolean_Cache
0038 e002       |    |		Load	0x0,0x2
0039 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
003a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003b 00e3       |    |		Load_Encached	Natural_Cache
003c e003       |    |		Load	0x0,0x3
003d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003e 607d       |`}  |		Indirect_Literal	Discrete,0xbc,{0x00000000, 0x00002710}
003f e004       |    |		Load	0x0,0x4
0040 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0041 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0042 6079       |`y  |		Indirect_Literal	Discrete,0xbc,{0x00000000, 0x00002710}
0043 e004       |    |		Load	0x0,0x4
0044 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0045 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0046 6075       |`u  |		Indirect_Literal	Discrete,0xbc,{0x00000000, 0x00002710}
0047 e004       |    |		Load	0x0,0x4
0048 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0049 1c07       |    |		Execute_Immediate	Run_Utility,0x7
004a e005       |    |		Load	0x0,0x5
004b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
004c 029f 054b  |   K|		Declare_Subprogram	INIT_0548,For_Call
004e e21f       |    |		Load	0x1,0x1f
004f 0326       | &  |		Complete_Type	Record,By_Defining
0050 00d8       |    |		Load_Top	At_Offset_0
0051 03c4       |    |		Complete_Type	Access,By_Component_Completion
0052 00e3       |    |		Load_Encached	Natural_Cache
0053 00e1       |    |		Load_Encached	Boolean_Cache
0054 4882       |H   |		Short_Literal	0x82
0055 e004       |    |		Load	0x0,0x4
0056 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0057 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0058 4801       |H   |		Short_Literal	0x1
0059 48fa       |H   |		Short_Literal	0xfa
005a e223       | #  |		Load	0x1,0x23
005b 029f 057b  |   {|		Declare_Subprogram	INIT_0578,For_Call
005d 4801       |H   |		Short_Literal	0x1
005e 035d       | ]  |		Declare_Type	Array,Defined
005f 00d8       |    |		Load_Top	At_Offset_0
0060 0337       | 7  |		Declare_Variable	Array
0061 00d8       |    |		Load_Top	At_Offset_0
0062 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0063 e005       |    |		Load	0x0,0x5
0064 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0065 0322       | "  |		Declare_Variable	Record
0066 e005       |    |		Load	0x0,0x5
0067 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0068 e226       | &  |		Load	0x1,0x26
0069 017d       | }  |		Execute	Record,Structure_Write
006a e005       |    |		Load	0x0,0x5
006b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
006c 0322       | "  |		Declare_Variable	Record
006d e005       |    |		Load	0x0,0x5
006e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
006f e227       | '  |		Load	0x1,0x27
0070 017d       | }  |		Execute	Record,Structure_Write
0071 e005       |    |		Load	0x0,0x5
0072 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0073 0322       | "  |		Declare_Variable	Record
0074 e005       |    |		Load	0x0,0x5
0075 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0076 e228       | (  |		Load	0x1,0x28
0077 017d       | }  |		Execute	Record,Structure_Write
0078 029d 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call
007a 029d 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Outer_Call
007c 029d 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call
007e 029d 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call
0080 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 029b 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call,Unelaborated
0088 029d 063b  |   ;|		Declare_Subprogram	INIT_0638,For_Outer_Call
008a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa			BODY_0008:
00aa 00bc       |    |		Action	Signal_Activated
00ab 00bb       |    |		Action	Signal_Completion
00ac 0000 0000  |    |		.BLANK	0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 e5ff       |    |		Load	0x2,-0x1
00b4 e006       |    |		Load	0x0,0x6
00b5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00b6 e005       |    |		Load	0x0,0x5
00b7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00b8 e005       |    |		Load	0x0,0x5
00b9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00ba 820e       |    |		Call	0x1,0xe
00bb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002710}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cb       |    |		.CONST	0x00cb								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0003       |    |		.CONST	0x0003								; Number of locals
00c3			INIT_00c0:
00c3 e007       |    |		Load	0x0,0x7
00c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
00c6 02c7       |    |		Declare_Variable	Any
00c7 00d8       |    |		Load_Top	At_Offset_0
00c8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c9 029f 0693  |    |		Declare_Subprogram	INIT_0690,For_Call
00cb			BODY_00c0:
00cb 4802       |H   |		Short_Literal	0x2
00cc 4800       |H   |		Short_Literal	0x0
00cd 4801       |H   |		Short_Literal	0x1
00ce e5ff       |    |		Load	0x2,-0x1
00cf e005       |    |		Load	0x0,0x5
00d0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00d1 e005       |    |		Load	0x0,0x5
00d2 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00d3 0092 0833  |   3|		Action	Push_String_Extended,0x833					; " "
00d5 01cc       |    |		Execute	Vector,Catenate
00d6 0092 0834  |   4|		Action	Push_String_Extended,0x834					; "00:00:01"
00d8 01cc       |    |		Execute	Vector,Catenate
00d9 e005       |    |		Load	0x0,0x5
00da 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00db e226       | &  |		Load	0x1,0x26
00dc 017d       | }  |		Execute	Record,Structure_Write
00dd 4802       |H   |		Short_Literal	0x2
00de 4800       |H   |		Short_Literal	0x0
00df 4801       |H   |		Short_Literal	0x1
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 e005       |    |		Load	0x0,0x5
00e2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e3 e005       |    |		Load	0x0,0x5
00e4 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00e5 0092 0833  |   3|		Action	Push_String_Extended,0x833					; " "
00e7 01cc       |    |		Execute	Vector,Catenate
00e8 0092 0835  |   5|		Action	Push_String_Extended,0x835					; "23:59:59"
00ea 01cc       |    |		Execute	Vector,Catenate
00eb e005       |    |		Load	0x0,0x5
00ec 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00ed e227       | '  |		Load	0x1,0x27
00ee 017d       | }  |		Execute	Record,Structure_Write
00ef 4801       |H   |		Short_Literal	0x1
00f0 0092 0836  |   6|		Action	Push_String_Extended,0x836					; "!machine.error_logs"
00f2 e5fd       |    |		Load	0x2,-0x3
00f3 e008       |    |		Load	0x0,0x8
00f4 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00f5 e006       |    |		Load	0x0,0x6
00f6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00f7 e005       |    |		Load	0x0,0x5
00f8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00f9 e227       | '  |		Load	0x1,0x27
00fa 822a       | *  |		Call	0x1,0x2a
00fb e227       | '  |		Load	0x1,0x27
00fc e006       |    |		Load	0x0,0x6
00fd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00fe e005       |    |		Load	0x0,0x5
00ff 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0100 8229       | )  |		Call	0x1,0x29
0101 e006       |    |		Load	0x0,0x6
0102 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0103 e005       |    |		Load	0x0,0x5
0104 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0105 e226       | &  |		Load	0x1,0x26
0106 8229       | )  |		Call	0x1,0x29
0107 e006       |    |		Load	0x0,0x6
0108 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0109 e005       |    |		Load	0x0,0x5
010a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
010b e226       | &  |		Load	0x1,0x26
010c 822a       | *  |		Call	0x1,0x2a
010d 0278       | x  |		Execute	Discrete,Or
010e 0279       | y  |		Execute	Discrete,And
010f 0278       | x  |		Execute	Discrete,Or
0110 0279       | y  |		Execute	Discrete,And
0111 a222       | "  |		Store_Unchecked	0x1,0x22
0112 e5fe       |    |		Load	0x2,-0x2
0113 e5ff       |    |		Load	0x2,-0x1
0114 e5fd       |    |		Load	0x2,-0x3
0115 0092 0837  |   7|		Action	Push_String_Extended,0x837					; ".log@_at_@"
0117 01cc       |    |		Execute	Vector,Catenate
0118 8403       |    |		Call	0x2,0x3
0119 c402       |    |		Store	0x2,0x2
011a 4800       |H   |		Short_Literal	0x0
011b a221       | !  |		Store_Unchecked	0x1,0x21
011c 00cf       |    |		Action	Mark_Auxiliary
011d 7822       |x"  |		Jump	0x140
011e e221       | !  |		Load	0x1,0x21
011f 0cfa       |    |		Execute_Immediate	Greater_Equal,-0x6
0120 6808       |h   |		Jump_Zero	0x129
0121 e009       |    |		Load	0x0,0x9
0122 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0123 4806       |H   |		Short_Literal	0x6
0124 0092 0838  |   8|		Action	Push_String_Extended,0x838					; "Too many log files.  Maximum is  250. Extra files will not be processed."
0126 e00a       |    |		Load	0x0,0xa
0127 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0128 781c       |x   |		Jump	0x145
0129 e221       | !  |		Load	0x1,0x21
012a 0a01       |    |		Execute_Immediate	Plus,0x1
012b c221       | !  |		Store	0x1,0x21
012c e221       | !  |		Load	0x1,0x21
012d e225       | %  |		Load	0x1,0x25
012e 01d5       |    |		Execute	Vector,Field_Reference
012f 00d8       |    |		Load_Top	At_Offset_0
0130 e402       |    |		Load	0x2,0x2
0131 e007       |    |		Load	0x0,0x7
0132 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0133 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0134 e007       |    |		Load	0x0,0x7
0135 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0136 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0137 e004       |    |		Load	0x0,0x4
0138 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0139 00d2       |    |		Pop_Control	Pop_Count_2
013a e402       |    |		Load	0x2,0x2
013b e007       |    |		Load	0x0,0x7
013c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
013e c402       |    |		Store	0x2,0x2
013f 00c9       |    |		Action	Pop_Auxiliary_Loop
0140 e402       |    |		Load	0x2,0x2
0141 e007       |    |		Load	0x0,0x7
0142 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0143 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0144 6fd9       |o   |		Jump_Zero	0x11e
0145 00ce       |    |		Action	Pop_Auxiliary
0146 e221       | !  |		Load	0x1,0x21
0147 7009       |p   |		Jump_Nonzero	0x151
0148 e009       |    |		Load	0x0,0x9
0149 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014a 4806       |H   |		Short_Literal	0x6
014b 0092 0839  |   9|		Action	Push_String_Extended,0x839					; "No log files within specified dates in: "
014d e5fd       |    |		Load	0x2,-0x3
014e 01cc       |    |		Execute	Vector,Catenate
014f e00a       |    |		Load	0x0,0xa
0150 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0151 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0152 0000 0000  |    |		.BLANK	0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015f       | _  |		.CONST	0x015f								; Address of begin
0159 01ec       |    |		.CONST	0x01ec								; Address of exception handler
015a 0003       |    |		.CONST	0x0003								; Number of locals
015b			INIT_0158:
015b e220       |    |		Load	0x1,0x20
015c 0007       |    |		Action	Break_Optional
015d 029f 072b  |   +|		Declare_Subprogram	INIT_0728,For_Call
015f			BODY_0158:
015f e220       |    |		Load	0x1,0x20
0160 03bc       |    |		Declare_Variable	Access,By_Allocation
0161 00d8       |    |		Load_Top	At_Offset_0
0162 0227       | '  |		Execute	Access,All_Reference
0163 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0164 a402       |    |		Store_Unchecked	0x2,0x2
0165 4800       |H   |		Short_Literal	0x0
0166 e402       |    |		Load	0x2,0x2
0167 0227       | '  |		Execute	Access,All_Reference
0168 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0169 4800       |H   |		Short_Literal	0x0
016a e402       |    |		Load	0x2,0x2
016b 0227       | '  |		Execute	Access,All_Reference
016c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
016d 609e       |`   |		Indirect_Literal	Discrete,0x20c,{0xffffffff, 0x80000001}
016e e402       |    |		Load	0x2,0x2
016f 0227       | '  |		Execute	Access,All_Reference
0170 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0171 4801       |H   |		Short_Literal	0x1
0172 e402       |    |		Load	0x2,0x2
0173 0227       | '  |		Execute	Access,All_Reference
0174 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0175 e228       | (  |		Load	0x1,0x28
0176 e402       |    |		Load	0x2,0x2
0177 0227       | '  |		Execute	Access,All_Reference
0178 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0179 e402       |    |		Load	0x2,0x2
017a 0229       | )  |		Execute	Access,All_Read
017b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
017c 00d8       |    |		Load_Top	At_Offset_0
017d 4801       |H   |		Short_Literal	0x1
017e 4801       |H   |		Short_Literal	0x1
017f 4800       |H   |		Short_Literal	0x0
0180 e228       | (  |		Load	0x1,0x28
0181 e005       |    |		Load	0x0,0x5
0182 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0183 e004       |    |		Load	0x0,0x4
0184 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0185 00d2       |    |		Pop_Control	Pop_Count_2
0186 e402       |    |		Load	0x2,0x2
0187 0229       | )  |		Execute	Access,All_Read
0188 00d8       |    |		Load_Top	At_Offset_0
0189 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
018a 00ea       |    |		Load_Encached	Null_String_Cache
018b 4801       |H   |		Short_Literal	0x1
018c e225       | %  |		Load	0x1,0x25
018d 01d5       |    |		Execute	Vector,Field_Reference
018e e004       |    |		Load	0x0,0x4
018f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0190 4800       |H   |		Short_Literal	0x0
0191 e003       |    |		Load	0x0,0x3
0192 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0193 e404       |    |		Load	0x2,0x4
0194 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0195 00d1       |    |		Pop_Control	Pop_Count_1
0196 00cf       |    |		Action	Mark_Auxiliary
0197 7806       |x   |		Jump	0x19e
0198 e5fe       |    |		Load	0x2,-0x2
0199 e402       |    |		Load	0x2,0x2
019a 8210       |    |		Call	0x1,0x10
019b c402       |    |		Store	0x2,0x2
019c c5fe       |    |		Store	0x2,-0x2
019d 00c9       |    |		Action	Pop_Auxiliary_Loop
019e e005       |    |		Load	0x0,0x5
019f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a0 e402       |    |		Load	0x2,0x2
01a1 0227       | '  |		Execute	Access,All_Reference
01a2 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
01a3 822a       | *  |		Call	0x1,0x2a
01a4 6063       |`c  |		Indirect_Literal	Discrete,0x208,{0x00000000, 0xa8c00000}
01a5 e005       |    |		Load	0x0,0x5
01a6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a7 e005       |    |		Load	0x0,0x5
01a8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01a9 e006       |    |		Load	0x0,0x6
01aa 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01ab e005       |    |		Load	0x0,0x5
01ac 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01ad e402       |    |		Load	0x2,0x2
01ae 0227       | '  |		Execute	Access,All_Reference
01af 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
01b0 822a       | *  |		Call	0x1,0x2a
01b1 0278       | x  |		Execute	Discrete,Or
01b2 77e5       |w   |		Jump_Nonzero	0x198
01b3 00ce       |    |		Action	Pop_Auxiliary
01b4 e226       | &  |		Load	0x1,0x26
01b5 e402       |    |		Load	0x2,0x2
01b6 0227       | '  |		Execute	Access,All_Reference
01b7 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
01b8 8229       | )  |		Call	0x1,0x29
01b9 6810       |h   |		Jump_Zero	0x1ca
01ba 00cf       |    |		Action	Mark_Auxiliary
01bb 7806       |x   |		Jump	0x1c2
01bc e5fe       |    |		Load	0x2,-0x2
01bd e402       |    |		Load	0x2,0x2
01be 8210       |    |		Call	0x1,0x10
01bf c402       |    |		Store	0x2,0x2
01c0 c5fe       |    |		Store	0x2,-0x2
01c1 00c9       |    |		Action	Pop_Auxiliary_Loop
01c2 e226       | &  |		Load	0x1,0x26
01c3 e402       |    |		Load	0x2,0x2
01c4 0227       | '  |		Execute	Access,All_Reference
01c5 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
01c6 8229       | )  |		Call	0x1,0x29
01c7 77f4       |w   |		Jump_Nonzero	0x1bc
01c8 00ce       |    |		Action	Pop_Auxiliary
01c9 781f       |x   |		Jump	0x1e9
01ca e228       | (  |		Load	0x1,0x28
01cb e402       |    |		Load	0x2,0x2
01cc 0227       | '  |		Execute	Access,All_Reference
01cd 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
01ce e402       |    |		Load	0x2,0x2
01cf 0229       | )  |		Execute	Access,All_Read
01d0 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01d1 00d8       |    |		Load_Top	At_Offset_0
01d2 4801       |H   |		Short_Literal	0x1
01d3 4801       |H   |		Short_Literal	0x1
01d4 4800       |H   |		Short_Literal	0x0
01d5 e228       | (  |		Load	0x1,0x28
01d6 e005       |    |		Load	0x0,0x5
01d7 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01d8 e004       |    |		Load	0x0,0x4
01d9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01da 00d2       |    |		Pop_Control	Pop_Count_2
01db e402       |    |		Load	0x2,0x2
01dc 0229       | )  |		Execute	Access,All_Read
01dd 00d8       |    |		Load_Top	At_Offset_0
01de 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01df e003       |    |		Load	0x0,0x3
01e0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01e1 e404       |    |		Load	0x2,0x4
01e2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01e3 00d1       |    |		Pop_Control	Pop_Count_1
01e4 e5fe       |    |		Load	0x2,-0x2
01e5 e402       |    |		Load	0x2,0x2
01e6 8210       |    |		Call	0x1,0x10
01e7 c402       |    |		Store	0x2,0x2
01e8 c5fe       |    |		Store	0x2,-0x2
01e9 e402       |    |		Load	0x2,0x2
01ea a5ff       |    |		Store_Unchecked	0x2,-0x1
01eb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ec			TRAP_0158:
01ec 00d8       |    |		Load_Top	At_Offset_0
01ed 0107       |    |		Execute	Exception,Get_Name
01ee 4920       |I   |		Short_Literal	0x120
01ef 492f       |I/  |		Short_Literal	0x12f
01f0 0262       | b  |		Execute	Discrete,In_Range
01f1 6814       |h   |		Jump_Zero	0x206
01f2 e5fe       |    |		Load	0x2,-0x2
01f3 4801       |H   |		Short_Literal	0x1
01f4 00ea       |    |		Load_Encached	Null_String_Cache
01f5 0092 083a  |   :|		Action	Push_String_Extended,0x83a					; "Log files can't be opened"
01f7 e00b       |    |		Load	0x0,0xb
01f8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01f9 c5fe       |    |		Store	0x2,-0x2
01fa 4801       |H   |		Short_Literal	0x1
01fb e402       |    |		Load	0x2,0x2
01fc 0227       | '  |		Execute	Access,All_Reference
01fd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01fe e5fe       |    |		Load	0x2,-0x2
01ff e402       |    |		Load	0x2,0x2
0200 8210       |    |		Call	0x1,0x10
0201 c402       |    |		Store	0x2,0x2
0202 c5fe       |    |		Store	0x2,-0x2
0203 e402       |    |		Load	0x2,0x2
0204 a5ff       |    |		Store_Unchecked	0x2,-0x1
0205 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0206 0100       |    |		Execute	Exception,Raise
0207 0000       |    |		.XXX[0x1]
0208 0000 0000  |    |		.LITERAL	{0x00000000, 0xa8c00000}
020c ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0217       |    |		.CONST	0x0217								; Address of begin
0211 0305       |    |		.CONST	0x0305								; Address of exception handler
0212 0003       |    |		.CONST	0x0003								; Number of locals
0213			INIT_0210:
0213 00e1       |    |		Load_Encached	Boolean_Cache
0214 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0215 029f 077b  |   {|		Declare_Subprogram	INIT_0778,For_Call
0217			BODY_0210:
0217 e5ff       |    |		Load	0x2,-0x1
0218 0229       | )  |		Execute	Access,All_Read
0219 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
021a 00d8       |    |		Load_Top	At_Offset_0
021b e5ff       |    |		Load	0x2,-0x1
021c 0227       | '  |		Execute	Access,All_Reference
021d 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
021e e004       |    |		Load	0x0,0x4
021f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0220 00d2       |    |		Pop_Control	Pop_Count_2
0221 e5ff       |    |		Load	0x2,-0x1
0222 0227       | '  |		Execute	Access,All_Reference
0223 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0224 e004       |    |		Load	0x0,0x4
0225 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0226 701b       |p   |		Jump_Nonzero	0x242
0227 e5ff       |    |		Load	0x2,-0x1
0228 0227       | '  |		Execute	Access,All_Reference
0229 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
022a 680a       |h   |		Jump_Zero	0x235
022b e5ff       |    |		Load	0x2,-0x1
022c 0229       | )  |		Execute	Access,All_Read
022d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
022e 00d8       |    |		Load_Top	At_Offset_0
022f e5ff       |    |		Load	0x2,-0x1
0230 822e       | .  |		Call	0x1,0x2e
0231 e004       |    |		Load	0x0,0x4
0232 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0233 00d2       |    |		Pop_Control	Pop_Count_2
0234 7820       |x   |		Jump	0x255
0235 e5ff       |    |		Load	0x2,-0x1
0236 0229       | )  |		Execute	Access,All_Read
0237 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0238 00d8       |    |		Load_Top	At_Offset_0
0239 e5ff       |    |		Load	0x2,-0x1
023a 0227       | '  |		Execute	Access,All_Reference
023b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
023c e003       |    |		Load	0x0,0x3
023d 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
023e e004       |    |		Load	0x0,0x4
023f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0240 00d2       |    |		Pop_Control	Pop_Count_2
0241 7813       |x   |		Jump	0x255
0242 e5ff       |    |		Load	0x2,-0x1
0243 0229       | )  |		Execute	Access,All_Read
0244 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0245 00d8       |    |		Load_Top	At_Offset_0
0246 e5ff       |    |		Load	0x2,-0x1
0247 0227       | '  |		Execute	Access,All_Reference
0248 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0249 e004       |    |		Load	0x0,0x4
024a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
024b 00d2       |    |		Pop_Control	Pop_Count_2
024c e5ff       |    |		Load	0x2,-0x1
024d 0229       | )  |		Execute	Access,All_Read
024e 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
024f 00d8       |    |		Load_Top	At_Offset_0
0250 4820       |H   |		Short_Literal	0x20
0251 4800       |H   |		Short_Literal	0x0
0252 e004       |    |		Load	0x0,0x4
0253 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0254 00d2       |    |		Pop_Control	Pop_Count_2
0255 e5ff       |    |		Load	0x2,-0x1
0256 0227       | '  |		Execute	Access,All_Reference
0257 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0258 e004       |    |		Load	0x0,0x4
0259 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
025a 685c       |h\  |		Jump_Zero	0x2b7
025b e5ff       |    |		Load	0x2,-0x1
025c 0227       | '  |		Execute	Access,All_Reference
025d 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
025e e004       |    |		Load	0x0,0x4
025f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0260 822d       | -  |		Call	0x1,0x2d
0261 01dd       |    |		Execute	Vector,First
0262 e5ff       |    |		Load	0x2,-0x1
0263 0227       | '  |		Execute	Access,All_Reference
0264 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0265 e004       |    |		Load	0x0,0x4
0266 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0267 822d       | -  |		Call	0x1,0x2d
0268 01dd       |    |		Execute	Vector,First
0269 0a01       |    |		Execute_Immediate	Plus,0x1
026a 00d8       |    |		Load_Top	At_Offset_0
026b 00e2       |    |		Load_Encached	Integer_Cache
026c 0260       | `  |		Execute	Discrete,In_Type
026d 7001       |p   |		Jump_Nonzero	0x26f
026e 0801       |    |		Execute_Immediate	Raise,0x1
026f e5ff       |    |		Load	0x2,-0x1
0270 0227       | '  |		Execute	Access,All_Reference
0271 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0272 e004       |    |		Load	0x0,0x4
0273 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0274 822d       | -  |		Call	0x1,0x2d
0275 01cf       |    |		Execute	Vector,Slice_Read
0276 0092 083b  |   ;|		Action	Push_String_Extended,0x83b					; "00"
0278 01df       |    |		Execute	Vector,Equal
0279 e5ff       |    |		Load	0x2,-0x1
027a 0227       | '  |		Execute	Access,All_Reference
027b 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
027c e004       |    |		Load	0x0,0x4
027d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
027e 822d       | -  |		Call	0x1,0x2d
027f 01dd       |    |		Execute	Vector,First
0280 e5ff       |    |		Load	0x2,-0x1
0281 0227       | '  |		Execute	Access,All_Reference
0282 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0283 e004       |    |		Load	0x0,0x4
0284 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0285 822d       | -  |		Call	0x1,0x2d
0286 01dd       |    |		Execute	Vector,First
0287 0a01       |    |		Execute_Immediate	Plus,0x1
0288 00d8       |    |		Load_Top	At_Offset_0
0289 00e2       |    |		Load_Encached	Integer_Cache
028a 0260       | `  |		Execute	Discrete,In_Type
028b 7001       |p   |		Jump_Nonzero	0x28d
028c 0801       |    |		Execute_Immediate	Raise,0x1
028d e5ff       |    |		Load	0x2,-0x1
028e 0227       | '  |		Execute	Access,All_Reference
028f 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0290 e004       |    |		Load	0x0,0x4
0291 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0292 822d       | -  |		Call	0x1,0x2d
0293 01cf       |    |		Execute	Vector,Slice_Read
0294 0092 083c  |   <|		Action	Push_String_Extended,0x83c					; "23"
0296 01df       |    |		Execute	Vector,Equal
0297 0279       | y  |		Execute	Discrete,And
0298 681e       |h   |		Jump_Zero	0x2b7
0299 4802       |H   |		Short_Literal	0x2
029a 4800       |H   |		Short_Literal	0x0
029b 4801       |H   |		Short_Literal	0x1
029c 676b       |gk  |		Indirect_Literal	Discrete,0x208,{0x00000000, 0xa8c00000}
029d e5ff       |    |		Load	0x2,-0x1
029e 0227       | '  |		Execute	Access,All_Reference
029f 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
02a0 e005       |    |		Load	0x0,0x5
02a1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02a2 e006       |    |		Load	0x0,0x6
02a3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02a4 e005       |    |		Load	0x0,0x5
02a5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02a6 e005       |    |		Load	0x0,0x5
02a7 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
02a8 0092 0833  |   3|		Action	Push_String_Extended,0x833					; " "
02aa 01cc       |    |		Execute	Vector,Catenate
02ab e5ff       |    |		Load	0x2,-0x1
02ac 0227       | '  |		Execute	Access,All_Reference
02ad 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02ae e004       |    |		Load	0x0,0x4
02af 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02b0 822d       | -  |		Call	0x1,0x2d
02b1 01cc       |    |		Execute	Vector,Catenate
02b2 e005       |    |		Load	0x0,0x5
02b3 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02b4 e5ff       |    |		Load	0x2,-0x1
02b5 0227       | '  |		Execute	Access,All_Reference
02b6 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02b7 e5ff       |    |		Load	0x2,-0x1
02b8 0227       | '  |		Execute	Access,All_Reference
02b9 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02ba e004       |    |		Load	0x0,0x4
02bb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02bc 821c       |    |		Call	0x1,0x1c
02bd 0092 083d  |   =|		Action	Push_String_Extended,0x83d					; "Snapshot_Started"
02bf 01df       |    |		Execute	Vector,Equal
02c0 6816       |h   |		Jump_Zero	0x2d7
02c1 e5ff       |    |		Load	0x2,-0x1
02c2 0227       | '  |		Execute	Access,All_Reference
02c3 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02c4 e004       |    |		Load	0x0,0x4
02c5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02c6 821b       |    |		Call	0x1,0x1b
02c7 0092 0833  |   3|		Action	Push_String_Extended,0x833					; " "
02c9 01cc       |    |		Execute	Vector,Catenate
02ca e5ff       |    |		Load	0x2,-0x1
02cb 0227       | '  |		Execute	Access,All_Reference
02cc 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02cd e004       |    |		Load	0x0,0x4
02ce 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02cf 822d       | -  |		Call	0x1,0x2d
02d0 01cc       |    |		Execute	Vector,Catenate
02d1 e005       |    |		Load	0x0,0x5
02d2 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 0227       | '  |		Execute	Access,All_Reference
02d5 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02d6 7821       |x!  |		Jump	0x2f8
02d7 e5ff       |    |		Load	0x2,-0x1
02d8 0227       | '  |		Execute	Access,All_Reference
02d9 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02da e004       |    |		Load	0x0,0x4
02db 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02dc 821b       |    |		Call	0x1,0x1b
02dd 0092 083e  |   >|		Action	Push_String_Extended,0x83e					; "System_Boot"
02df 01df       |    |		Execute	Vector,Equal
02e0 6816       |h   |		Jump_Zero	0x2f7
02e1 e5ff       |    |		Load	0x2,-0x1
02e2 0227       | '  |		Execute	Access,All_Reference
02e3 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02e4 e004       |    |		Load	0x0,0x4
02e5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e6 821c       |    |		Call	0x1,0x1c
02e7 0092 0833  |   3|		Action	Push_String_Extended,0x833					; " "
02e9 01cc       |    |		Execute	Vector,Catenate
02ea e5ff       |    |		Load	0x2,-0x1
02eb 0227       | '  |		Execute	Access,All_Reference
02ec 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02ed e004       |    |		Load	0x0,0x4
02ee 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02ef 822d       | -  |		Call	0x1,0x2d
02f0 01cc       |    |		Execute	Vector,Catenate
02f1 e005       |    |		Load	0x0,0x5
02f2 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02f3 e5ff       |    |		Load	0x2,-0x1
02f4 0227       | '  |		Execute	Access,All_Reference
02f5 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02f6 7801       |x   |		Jump	0x2f8
02f7 8403       |    |		Call	0x2,0x3
02f8 e5ff       |    |		Load	0x2,-0x1
02f9 0227       | '  |		Execute	Access,All_Reference
02fa 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
02fb e227       | '  |		Load	0x1,0x27
02fc 8229       | )  |		Call	0x1,0x29
02fd 6802       |h   |		Jump_Zero	0x300
02fe 4950       |IP  |		Short_Literal	0x150
02ff 0257       | W  |		Execute	Discrete,Raise
0300 e5fe       |    |		Load	0x2,-0x2
0301 e00b       |    |		Load	0x0,0xb
0302 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0303 c5fe       |    |		Store	0x2,-0x2
0304 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0305			TRAP_0210:
0305 00d8       |    |		Load_Top	At_Offset_0
0306 0107       |    |		Execute	Exception,Get_Name
0307 4950       |IP  |		Short_Literal	0x150
0308 495f       |I_  |		Short_Literal	0x15f
0309 0262       | b  |		Execute	Discrete,In_Range
030a 6849       |hI  |		Jump_Zero	0x354
030b e5ff       |    |		Load	0x2,-0x1
030c 0227       | '  |		Execute	Access,All_Reference
030d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
030e 6809       |h   |		Jump_Zero	0x318
030f e5fe       |    |		Load	0x2,-0x2
0310 4802       |H   |		Short_Literal	0x2
0311 00ea       |    |		Load_Encached	Null_String_Cache
0312 0092 083f  |   ?|		Action	Push_String_Extended,0x83f					; "End of log"
0314 e00b       |    |		Load	0x0,0xb
0315 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0316 c5fe       |    |		Store	0x2,-0x2
0317 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0318 e5ff       |    |		Load	0x2,-0x1
0319 0227       | '  |		Execute	Access,All_Reference
031a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
031b e221       | !  |		Load	0x1,0x21
031c 027c       | |  |		Execute	Discrete,Less
031d 6828       |h(  |		Jump_Zero	0x346
031e e5ff       |    |		Load	0x2,-0x1
031f 0229       | )  |		Execute	Access,All_Read
0320 00d8       |    |		Load_Top	At_Offset_0
0321 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0322 e003       |    |		Load	0x0,0x3
0323 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0324 e405       |    |		Load	0x2,0x5
0325 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0326 00d1       |    |		Pop_Control	Pop_Count_1
0327 e5ff       |    |		Load	0x2,-0x1
0328 0227       | '  |		Execute	Access,All_Reference
0329 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
032a 0a01       |    |		Execute_Immediate	Plus,0x1
032b e5ff       |    |		Load	0x2,-0x1
032c 0227       | '  |		Execute	Access,All_Reference
032d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
032e e5ff       |    |		Load	0x2,-0x1
032f 0229       | )  |		Execute	Access,All_Read
0330 00d8       |    |		Load_Top	At_Offset_0
0331 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0332 00ea       |    |		Load_Encached	Null_String_Cache
0333 e5ff       |    |		Load	0x2,-0x1
0334 0227       | '  |		Execute	Access,All_Reference
0335 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0336 e225       | %  |		Load	0x1,0x25
0337 01d5       |    |		Execute	Vector,Field_Reference
0338 e004       |    |		Load	0x0,0x4
0339 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
033a 4800       |H   |		Short_Literal	0x0
033b e003       |    |		Load	0x0,0x3
033c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
033d e405       |    |		Load	0x2,0x5
033e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
033f 00d1       |    |		Pop_Control	Pop_Count_1
0340 e5fe       |    |		Load	0x2,-0x2
0341 e5ff       |    |		Load	0x2,-0x1
0342 8210       |    |		Call	0x1,0x10
0343 c5ff       |    |		Store	0x2,-0x1
0344 c5fe       |    |		Store	0x2,-0x2
0345 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0346 4801       |H   |		Short_Literal	0x1
0347 e5ff       |    |		Load	0x2,-0x1
0348 0227       | '  |		Execute	Access,All_Reference
0349 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
034a 66c1       |f   |		Indirect_Literal	Discrete,0x20c,{0xffffffff, 0x80000001}
034b e5ff       |    |		Load	0x2,-0x1
034c 0227       | '  |		Execute	Access,All_Reference
034d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
034e e5fe       |    |		Load	0x2,-0x2
034f e5ff       |    |		Load	0x2,-0x1
0350 8210       |    |		Call	0x1,0x10
0351 c5ff       |    |		Store	0x2,-0x1
0352 c5fe       |    |		Store	0x2,-0x2
0353 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0354 0100       |    |		Execute	Exception,Raise
0355 0000 0000  |    |		.XXX[0x3]
0357 0000       |    |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b e5ff       |    |		Load	0x2,-0x1
035c 0227       | '  |		Execute	Access,All_Reference
035d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
035e 6806       |h   |		Jump_Zero	0x365
035f e5ff       |    |		Load	0x2,-0x1
0360 0227       | '  |		Execute	Access,All_Reference
0361 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0362 6802       |h   |		Jump_Zero	0x365
0363 4801       |H   |		Short_Literal	0x1
0364 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0365 4800       |H   |		Short_Literal	0x0
0366 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0367 0000       |    |		.XXX[0x1]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b e5ff       |    |		Load	0x2,-0x1
036c 0227       | '  |		Execute	Access,All_Reference
036d 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
036e e004       |    |		Load	0x0,0x4
036f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0370 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0371 0000 0000  |    |		.BLANK	0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037e       | ~  |		.CONST	0x037e								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0002       |    |		.CONST	0x0002								; Number of locals
037b			INIT_0378:
037b e005       |    |		Load	0x0,0x5
037c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
037d 0322       | "  |		Declare_Variable	Record
037e			BODY_0378:
037e e5ff       |    |		Load	0x2,-0x1
037f 0227       | '  |		Execute	Access,All_Reference
0380 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0381 e004       |    |		Load	0x0,0x4
0382 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0383 0d0a       |    |		Execute_Immediate	Less,0xa
0384 700c       |p   |		Jump_Nonzero	0x391
0385 4801       |H   |		Short_Literal	0x1
0386 480a       |H   |		Short_Literal	0xa
0387 e5ff       |    |		Load	0x2,-0x1
0388 0227       | '  |		Execute	Access,All_Reference
0389 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
038a e004       |    |		Load	0x0,0x4
038b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
038c 01cf       |    |		Execute	Vector,Slice_Read
038d 0092 0840  |   @|		Action	Push_String_Extended,0x840					; "             "
038f 01df       |    |		Execute	Vector,Equal
0390 6806       |h   |		Jump_Zero	0x397
0391 e5ff       |    |		Load	0x2,-0x1
0392 0227       | '  |		Execute	Access,All_Reference
0393 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0394 0320       |    |		Declare_Variable	Record,Duplicate
0395 00cd       |    |		Action	Spare6_Action
0396 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0397 e5ff       |    |		Load	0x2,-0x1
0398 0227       | '  |		Execute	Access,All_Reference
0399 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
039a e004       |    |		Load	0x0,0x4
039b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
039c 8219       |    |		Call	0x1,0x19
039d e402       |    |		Load	0x2,0x2
039e 017d       | }  |		Execute	Record,Structure_Write
039f e5ff       |    |		Load	0x2,-0x1
03a0 0227       | '  |		Execute	Access,All_Reference
03a1 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
03a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a3 e402       |    |		Load	0x2,0x2
03a4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03a5 e5ff       |    |		Load	0x2,-0x1
03a6 0227       | '  |		Execute	Access,All_Reference
03a7 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
03a8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a9 e402       |    |		Load	0x2,0x2
03aa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03ab e5ff       |    |		Load	0x2,-0x1
03ac 0227       | '  |		Execute	Access,All_Reference
03ad 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
03ae 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03af e402       |    |		Load	0x2,0x2
03b0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03b1 00d8       |    |		Load_Top	At_Offset_0
03b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b3 0000 0000  |    |		.BLANK	0000[0x5]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb e5ff       |    |		Load	0x2,-0x1
03bc 0227       | '  |		Execute	Access,All_Reference
03bd 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03be e004       |    |		Load	0x0,0x4
03bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03c0 821a       |    |		Call	0x1,0x1a
03c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03c2 0000 0000  |    |		.BLANK	0000[0x6]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb e5ff       |    |		Load	0x2,-0x1
03cc 0227       | '  |		Execute	Access,All_Reference
03cd 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03ce e004       |    |		Load	0x0,0x4
03cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03d0 821b       |    |		Call	0x1,0x1b
03d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d2 0000 0000  |    |		.BLANK	0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db e5ff       |    |		Load	0x2,-0x1
03dc 0227       | '  |		Execute	Access,All_Reference
03dd 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03de e004       |    |		Load	0x0,0x4
03df 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e0 821c       |    |		Call	0x1,0x1c
03e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e2 0000 0000  |    |		.BLANK	0000[0x6]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb e5ff       |    |		Load	0x2,-0x1
03ec 0227       | '  |		Execute	Access,All_Reference
03ed 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03ee e004       |    |		Load	0x0,0x4
03ef 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f0 821d       |    |		Call	0x1,0x1d
03f1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03f2 0000 0000  |    |		.BLANK	0000[0x6]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb e5ff       |    |		Load	0x2,-0x1
03fc 0227       | '  |		Execute	Access,All_Reference
03fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03fe 6803       |h   |		Jump_Zero	0x402
03ff 0092 0841  |   A|		Action	Push_String_Extended,0x841					; "[CURRENT LOG]"
0401 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0402 e5ff       |    |		Load	0x2,-0x1
0403 0227       | '  |		Execute	Access,All_Reference
0404 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0405 e225       | %  |		Load	0x1,0x25
0406 01d5       |    |		Execute	Vector,Field_Reference
0407 e004       |    |		Load	0x0,0x4
0408 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0409 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
040a 0000 0000  |    |		.BLANK	0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 e5ff       |    |		Load	0x2,-0x1
0414 01dd       |    |		Execute	Vector,First
0415 e5ff       |    |		Load	0x2,-0x1
0416 01dd       |    |		Execute	Vector,First
0417 0a07       |    |		Execute_Immediate	Plus,0x7
0418 00d8       |    |		Load_Top	At_Offset_0
0419 00e2       |    |		Load_Encached	Integer_Cache
041a 0260       | `  |		Execute	Discrete,In_Type
041b 7001       |p   |		Jump_Nonzero	0x41d
041c 0801       |    |		Execute_Immediate	Raise,0x1
041d e5ff       |    |		Load	0x2,-0x1
041e 01cf       |    |		Execute	Vector,Slice_Read
041f e005       |    |		Load	0x0,0x5
0420 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0421 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0422 0000 0000  |    |		.BLANK	0000[0x6]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b e5ff       |    |		Load	0x2,-0x1
042c 01dc       |    |		Execute	Vector,Last
042d 0d0d       |    |		Execute_Immediate	Less,0xd
042e 6802       |h   |		Jump_Zero	0x431
042f 00ea       |    |		Load_Encached	Null_String_Cache
0430 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0431 e5ff       |    |		Load	0x2,-0x1
0432 01dd       |    |		Execute	Vector,First
0433 0a09       |    |		Execute_Immediate	Plus,0x9
0434 00d8       |    |		Load_Top	At_Offset_0
0435 00e2       |    |		Load_Encached	Integer_Cache
0436 0260       | `  |		Execute	Discrete,In_Type
0437 7001       |p   |		Jump_Nonzero	0x439
0438 0801       |    |		Execute_Immediate	Raise,0x1
0439 e5ff       |    |		Load	0x2,-0x1
043a 01dd       |    |		Execute	Vector,First
043b 0a0b       |    |		Execute_Immediate	Plus,0xb
043c 00d8       |    |		Load_Top	At_Offset_0
043d 00e2       |    |		Load_Encached	Integer_Cache
043e 0260       | `  |		Execute	Discrete,In_Type
043f 7001       |p   |		Jump_Nonzero	0x441
0440 0801       |    |		Execute_Immediate	Raise,0x1
0441 e5ff       |    |		Load	0x2,-0x1
0442 01cf       |    |		Execute	Vector,Slice_Read
0443 0335       | 5  |		Declare_Variable	Array,Duplicate
0444 00cd       |    |		Action	Spare6_Action
0445 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0446 0000 0000  |    |		.XXX[0x2]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044d       | M  |		.CONST	0x044d								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0002       |    |		.CONST	0x0002								; Number of locals
044b			INIT_0448:
044b 00e3       |    |		Load_Encached	Natural_Cache
044c 060d       |    |		Execute_Immediate	Set_Value_Unchecked,0xd
044d			BODY_0448:
044d e5ff       |    |		Load	0x2,-0x1
044e 01dc       |    |		Execute	Vector,Last
044f 0d0d       |    |		Execute_Immediate	Less,0xd
0450 6802       |h   |		Jump_Zero	0x453
0451 00ea       |    |		Load_Encached	Null_String_Cache
0452 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0453 4801       |H   |		Short_Literal	0x1
0454 480d       |H   |		Short_Literal	0xd
0455 e5ff       |    |		Load	0x2,-0x1
0456 01cf       |    |		Execute	Vector,Slice_Read
0457 0092 0840  |   @|		Action	Push_String_Extended,0x840					; "             "
0459 01df       |    |		Execute	Vector,Equal
045a 6802       |h   |		Jump_Zero	0x45d
045b 00ea       |    |		Load_Encached	Null_String_Cache
045c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
045d 00cf       |    |		Action	Mark_Auxiliary
045e 7804       |x   |		Jump	0x463
045f e402       |    |		Load	0x2,0x2
0460 0a01       |    |		Execute_Immediate	Plus,0x1
0461 c402       |    |		Store	0x2,0x2
0462 00c9       |    |		Action	Pop_Auxiliary_Loop
0463 e402       |    |		Load	0x2,0x2
0464 e5ff       |    |		Load	0x2,-0x1
0465 01dc       |    |		Execute	Vector,Last
0466 027c       | |  |		Execute	Discrete,Less
0467 6808       |h   |		Jump_Zero	0x470
0468 e5ff       |    |		Load	0x2,-0x1
0469 01dd       |    |		Execute	Vector,First
046a e402       |    |		Load	0x2,0x2
046b 0273       | s  |		Execute	Discrete,Plus
046c e5ff       |    |		Load	0x2,-0x1
046d 01d7       |    |		Execute	Vector,Field_Read
046e 0e20       |    |		Execute_Immediate	Not_Equal,0x20
046f 77ef       |w   |		Jump_Nonzero	0x45f
0470 00ce       |    |		Action	Pop_Auxiliary
0471 e5ff       |    |		Load	0x2,-0x1
0472 01dd       |    |		Execute	Vector,First
0473 0a0d       |    |		Execute_Immediate	Plus,0xd
0474 00d8       |    |		Load_Top	At_Offset_0
0475 00e2       |    |		Load_Encached	Integer_Cache
0476 0260       | `  |		Execute	Discrete,In_Type
0477 7001       |p   |		Jump_Nonzero	0x479
0478 0801       |    |		Execute_Immediate	Raise,0x1
0479 e5ff       |    |		Load	0x2,-0x1
047a 01dd       |    |		Execute	Vector,First
047b e402       |    |		Load	0x2,0x2
047c 0273       | s  |		Execute	Discrete,Plus
047d 0aff       |    |		Execute_Immediate	Plus,-0x1
047e 00d8       |    |		Load_Top	At_Offset_0
047f 00e2       |    |		Load_Encached	Integer_Cache
0480 0260       | `  |		Execute	Discrete,In_Type
0481 7001       |p   |		Jump_Nonzero	0x483
0482 0801       |    |		Execute_Immediate	Raise,0x1
0483 e5ff       |    |		Load	0x2,-0x1
0484 01cf       |    |		Execute	Vector,Slice_Read
0485 0335       | 5  |		Declare_Variable	Array,Duplicate
0486 00cd       |    |		Action	Spare6_Action
0487 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048e       |    |		.CONST	0x048e								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0003       |    |		.CONST	0x0003								; Number of locals
048b			INIT_0488:
048b 00e3       |    |		Load_Encached	Natural_Cache
048c 060d       |    |		Execute_Immediate	Set_Value_Unchecked,0xd
048d 00e3       |    |		Load_Encached	Natural_Cache
048e			BODY_0488:
048e e5ff       |    |		Load	0x2,-0x1
048f 01dc       |    |		Execute	Vector,Last
0490 0d0d       |    |		Execute_Immediate	Less,0xd
0491 6802       |h   |		Jump_Zero	0x494
0492 00ea       |    |		Load_Encached	Null_String_Cache
0493 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0494 00cf       |    |		Action	Mark_Auxiliary
0495 7804       |x   |		Jump	0x49a
0496 e402       |    |		Load	0x2,0x2
0497 0a01       |    |		Execute_Immediate	Plus,0x1
0498 c402       |    |		Store	0x2,0x2
0499 00c9       |    |		Action	Pop_Auxiliary_Loop
049a e402       |    |		Load	0x2,0x2
049b e5ff       |    |		Load	0x2,-0x1
049c 01dc       |    |		Execute	Vector,Last
049d 027c       | |  |		Execute	Discrete,Less
049e 6808       |h   |		Jump_Zero	0x4a7
049f e5ff       |    |		Load	0x2,-0x1
04a0 01dd       |    |		Execute	Vector,First
04a1 e402       |    |		Load	0x2,0x2
04a2 0273       | s  |		Execute	Discrete,Plus
04a3 e5ff       |    |		Load	0x2,-0x1
04a4 01d7       |    |		Execute	Vector,Field_Read
04a5 0e20       |    |		Execute_Immediate	Not_Equal,0x20
04a6 77ef       |w   |		Jump_Nonzero	0x496
04a7 00ce       |    |		Action	Pop_Auxiliary
04a8 e402       |    |		Load	0x2,0x2
04a9 0a01       |    |		Execute_Immediate	Plus,0x1
04aa c403       |    |		Store	0x2,0x3
04ab 00d8       |    |		Load_Top	At_Offset_0
04ac a402       |    |		Store_Unchecked	0x2,0x2
04ad 00cf       |    |		Action	Mark_Auxiliary
04ae 7804       |x   |		Jump	0x4b3
04af e402       |    |		Load	0x2,0x2
04b0 0a01       |    |		Execute_Immediate	Plus,0x1
04b1 c402       |    |		Store	0x2,0x2
04b2 00c9       |    |		Action	Pop_Auxiliary_Loop
04b3 e402       |    |		Load	0x2,0x2
04b4 e5ff       |    |		Load	0x2,-0x1
04b5 01dc       |    |		Execute	Vector,Last
04b6 027c       | |  |		Execute	Discrete,Less
04b7 6810       |h   |		Jump_Zero	0x4c8
04b8 e5ff       |    |		Load	0x2,-0x1
04b9 01dd       |    |		Execute	Vector,First
04ba e402       |    |		Load	0x2,0x2
04bb 0273       | s  |		Execute	Discrete,Plus
04bc e5ff       |    |		Load	0x2,-0x1
04bd 01d7       |    |		Execute	Vector,Field_Read
04be 0e20       |    |		Execute_Immediate	Not_Equal,0x20
04bf 6808       |h   |		Jump_Zero	0x4c8
04c0 e5ff       |    |		Load	0x2,-0x1
04c1 01dd       |    |		Execute	Vector,First
04c2 e402       |    |		Load	0x2,0x2
04c3 0273       | s  |		Execute	Discrete,Plus
04c4 e5ff       |    |		Load	0x2,-0x1
04c5 01d7       |    |		Execute	Vector,Field_Read
04c6 0e0a       |    |		Execute_Immediate	Not_Equal,0xa
04c7 77e7       |w   |		Jump_Nonzero	0x4af
04c8 00ce       |    |		Action	Pop_Auxiliary
04c9 e5ff       |    |		Load	0x2,-0x1
04ca 01dd       |    |		Execute	Vector,First
04cb e403       |    |		Load	0x2,0x3
04cc 0273       | s  |		Execute	Discrete,Plus
04cd 00d8       |    |		Load_Top	At_Offset_0
04ce 00e2       |    |		Load_Encached	Integer_Cache
04cf 0260       | `  |		Execute	Discrete,In_Type
04d0 7001       |p   |		Jump_Nonzero	0x4d2
04d1 0801       |    |		Execute_Immediate	Raise,0x1
04d2 e5ff       |    |		Load	0x2,-0x1
04d3 01dd       |    |		Execute	Vector,First
04d4 e402       |    |		Load	0x2,0x2
04d5 0273       | s  |		Execute	Discrete,Plus
04d6 0aff       |    |		Execute_Immediate	Plus,-0x1
04d7 00d8       |    |		Load_Top	At_Offset_0
04d8 00e2       |    |		Load_Encached	Integer_Cache
04d9 0260       | `  |		Execute	Discrete,In_Type
04da 7001       |p   |		Jump_Nonzero	0x4dc
04db 0801       |    |		Execute_Immediate	Raise,0x1
04dc e5ff       |    |		Load	0x2,-0x1
04dd 01cf       |    |		Execute	Vector,Slice_Read
04de 0335       | 5  |		Declare_Variable	Array,Duplicate
04df 00cd       |    |		Action	Spare6_Action
04e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e1 0000 0000  |    |		.BLANK	0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04ed       |    |		.CONST	0x04ed								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0002       |    |		.CONST	0x0002								; Number of locals
04eb			INIT_04e8:
04eb 00e3       |    |		Load_Encached	Natural_Cache
04ec 060d       |    |		Execute_Immediate	Set_Value_Unchecked,0xd
04ed			BODY_04e8:
04ed e5ff       |    |		Load	0x2,-0x1
04ee 01db       |    |		Execute	Vector,Length
04ef 0d0d       |    |		Execute_Immediate	Less,0xd
04f0 6802       |h   |		Jump_Zero	0x4f3
04f1 00ea       |    |		Load_Encached	Null_String_Cache
04f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f3 4801       |H   |		Short_Literal	0x1
04f4 480d       |H   |		Short_Literal	0xd
04f5 e5ff       |    |		Load	0x2,-0x1
04f6 01cf       |    |		Execute	Vector,Slice_Read
04f7 0092 0840  |   @|		Action	Push_String_Extended,0x840					; "             "
04f9 01df       |    |		Execute	Vector,Equal
04fa 6808       |h   |		Jump_Zero	0x503
04fb 480e       |H   |		Short_Literal	0xe
04fc e5ff       |    |		Load	0x2,-0x1
04fd 01dc       |    |		Execute	Vector,Last
04fe e5ff       |    |		Load	0x2,-0x1
04ff 01cf       |    |		Execute	Vector,Slice_Read
0500 0335       | 5  |		Declare_Variable	Array,Duplicate
0501 00cd       |    |		Action	Spare6_Action
0502 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0503 00cf       |    |		Action	Mark_Auxiliary
0504 7804       |x   |		Jump	0x509
0505 e402       |    |		Load	0x2,0x2
0506 0a01       |    |		Execute_Immediate	Plus,0x1
0507 c402       |    |		Store	0x2,0x2
0508 00c9       |    |		Action	Pop_Auxiliary_Loop
0509 e402       |    |		Load	0x2,0x2
050a e5ff       |    |		Load	0x2,-0x1
050b 01dc       |    |		Execute	Vector,Last
050c 027c       | |  |		Execute	Discrete,Less
050d 6808       |h   |		Jump_Zero	0x516
050e e5ff       |    |		Load	0x2,-0x1
050f 01dd       |    |		Execute	Vector,First
0510 e402       |    |		Load	0x2,0x2
0511 0273       | s  |		Execute	Discrete,Plus
0512 e5ff       |    |		Load	0x2,-0x1
0513 01d7       |    |		Execute	Vector,Field_Read
0514 0e20       |    |		Execute_Immediate	Not_Equal,0x20
0515 77ef       |w   |		Jump_Nonzero	0x505
0516 00ce       |    |		Action	Pop_Auxiliary
0517 00d8       |    |		Load_Top	At_Offset_0
0518 0a01       |    |		Execute_Immediate	Plus,0x1
0519 c402       |    |		Store	0x2,0x2
051a 00cf       |    |		Action	Mark_Auxiliary
051b 7804       |x   |		Jump	0x520
051c e402       |    |		Load	0x2,0x2
051d 0a01       |    |		Execute_Immediate	Plus,0x1
051e c402       |    |		Store	0x2,0x2
051f 00c9       |    |		Action	Pop_Auxiliary_Loop
0520 e402       |    |		Load	0x2,0x2
0521 e5ff       |    |		Load	0x2,-0x1
0522 01dc       |    |		Execute	Vector,Last
0523 027c       | |  |		Execute	Discrete,Less
0524 6808       |h   |		Jump_Zero	0x52d
0525 e5ff       |    |		Load	0x2,-0x1
0526 01dd       |    |		Execute	Vector,First
0527 e402       |    |		Load	0x2,0x2
0528 0273       | s  |		Execute	Discrete,Plus
0529 e5ff       |    |		Load	0x2,-0x1
052a 01d7       |    |		Execute	Vector,Field_Read
052b 0e20       |    |		Execute_Immediate	Not_Equal,0x20
052c 77ef       |w   |		Jump_Nonzero	0x51c
052d 00ce       |    |		Action	Pop_Auxiliary
052e e5ff       |    |		Load	0x2,-0x1
052f 01dd       |    |		Execute	Vector,First
0530 e402       |    |		Load	0x2,0x2
0531 0273       | s  |		Execute	Discrete,Plus
0532 0a01       |    |		Execute_Immediate	Plus,0x1
0533 00d8       |    |		Load_Top	At_Offset_0
0534 00e2       |    |		Load_Encached	Integer_Cache
0535 0260       | `  |		Execute	Discrete,In_Type
0536 7001       |p   |		Jump_Nonzero	0x538
0537 0801       |    |		Execute_Immediate	Raise,0x1
0538 e5ff       |    |		Load	0x2,-0x1
0539 01dc       |    |		Execute	Vector,Last
053a e5ff       |    |		Load	0x2,-0x1
053b 01cf       |    |		Execute	Vector,Slice_Read
053c 0335       | 5  |		Declare_Variable	Array,Duplicate
053d 00cd       |    |		Action	Spare6_Action
053e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
053f 0000       |    |		.XXX[0x1]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			INIT_0540:
0543 e221       | !  |		Load	0x1,0x21
0544 00ca       |    |		Action	Exit_Nullary_Function
0545 0000 0000  |    |		.XXX[0x3]
0547 0000       |    |
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b       | K  |		.CONST	0x054b								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0001       |    |		.CONST	0x0001								; Number of locals
054b			BODY_0548:
054b			INIT_0548:
054b 4601       |F   |		Jump_Case	0x2
054c 7801       |x   |		Jump	0x54e								; case 0x0
054d 7819       |x   |		Jump	0x567								; case 0x1
054e e5ff       |    |		Load	0x2,-0x1
054f 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0550 0125       | %  |		Execute	Any,Set_Constraint
0551 e5ff       |    |		Load	0x2,-0x1
0552 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0553 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0554 e5ff       |    |		Load	0x2,-0x1
0555 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0556 0125       | %  |		Execute	Any,Set_Constraint
0557 e5ff       |    |		Load	0x2,-0x1
0558 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0559 1c00       |    |		Execute_Immediate	Run_Utility,0x0
055a e5ff       |    |		Load	0x2,-0x1
055b 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
055c 0125       | %  |		Execute	Any,Set_Constraint
055d e5ff       |    |		Load	0x2,-0x1
055e 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
055f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0560 e5ff       |    |		Load	0x2,-0x1
0561 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0562 0125       | %  |		Execute	Any,Set_Constraint
0563 e5ff       |    |		Load	0x2,-0x1
0564 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0565 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0566 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0567 e5ff       |    |		Load	0x2,-0x1
0568 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0569 0125       | %  |		Execute	Any,Set_Constraint
056a e5ff       |    |		Load	0x2,-0x1
056b 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
056c 0125       | %  |		Execute	Any,Set_Constraint
056d e5ff       |    |		Load	0x2,-0x1
056e 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
056f 0125       | %  |		Execute	Any,Set_Constraint
0570 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0571 0000 0000  |    |		.BLANK	0000[0x7]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b       | {  |		.CONST	0x057b								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 0001       |    |		.CONST	0x0001								; Number of locals
057b			BODY_0578:
057b			INIT_0578:
057b 4605       |F   |		Jump_Case	0x6
057c 7804       |x   |		Jump	0x581								; case 0x0
057d 7814       |x   |		Jump	0x592								; case 0x1
057e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
057f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0580 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0581 e5ff       |    |		Load	0x2,-0x1							; case 0x5
0582 01dc       |    |		Execute	Vector,Last
0583 e5ff       |    |		Load	0x2,-0x1
0584 01dd       |    |		Execute	Vector,First
0585 0263       | c  |		Execute	Discrete,Above_Bound
0586 700a       |p   |		Jump_Nonzero	0x591
0587 00d8       |    |		Load_Top	At_Offset_0
0588 e5ff       |    |		Load	0x2,-0x1
0589 01d5       |    |		Execute	Vector,Field_Reference
058a 0125       | %  |		Execute	Any,Set_Constraint
058b 00d8       |    |		Load_Top	At_Offset_0
058c e5ff       |    |		Load	0x2,-0x1
058d 01d5       |    |		Execute	Vector,Field_Reference
058e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
058f 0a01       |    |		Execute_Immediate	Plus,0x1
0590 7ff4       |    |		Jump	0x585
0591 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0592 e5ff       |    |		Load	0x2,-0x1
0593 01dc       |    |		Execute	Vector,Last
0594 e5ff       |    |		Load	0x2,-0x1
0595 01dd       |    |		Execute	Vector,First
0596 0263       | c  |		Execute	Discrete,Above_Bound
0597 700a       |p   |		Jump_Nonzero	0x5a2
0598 00d8       |    |		Load_Top	At_Offset_0
0599 e5ff       |    |		Load	0x2,-0x1
059a 01d5       |    |		Execute	Vector,Field_Reference
059b 0125       | %  |		Execute	Any,Set_Constraint
059c 00d8       |    |		Load_Top	At_Offset_0
059d e5ff       |    |		Load	0x2,-0x1
059e 01d7       |    |		Execute	Vector,Field_Read
059f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05a0 0a01       |    |		Execute_Immediate	Plus,0x1
05a1 7ff4       |    |		Jump	0x596
05a2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05a3 0000 0000  |    |		.BLANK	0000[0x5]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab       |    |		.CONST	0x05ab								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0001       |    |		.CONST	0x0001								; Number of locals
05ab			BODY_05a8:
05ab			INIT_05a8:
05ab 4802       |H   |		Short_Literal	0x2
05ac 4800       |H   |		Short_Literal	0x0
05ad 4803       |H   |		Short_Literal	0x3
05ae e5ff       |    |		Load	0x2,-0x1
05af e005       |    |		Load	0x0,0x5
05b0 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05b1 4802       |H   |		Short_Literal	0x2
05b2 4800       |H   |		Short_Literal	0x0
05b3 4803       |H   |		Short_Literal	0x3
05b4 e5fe       |    |		Load	0x2,-0x2
05b5 e005       |    |		Load	0x0,0x5
05b6 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05b7 01c1       |    |		Execute	Vector,Less
05b8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05b9 0000 0000  |    |		.BLANK	0000[0x7]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 4802       |H   |		Short_Literal	0x2
05c4 4800       |H   |		Short_Literal	0x0
05c5 4803       |H   |		Short_Literal	0x3
05c6 e5ff       |    |		Load	0x2,-0x1
05c7 e005       |    |		Load	0x0,0x5
05c8 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05c9 4802       |H   |		Short_Literal	0x2
05ca 4800       |H   |		Short_Literal	0x0
05cb 4803       |H   |		Short_Literal	0x3
05cc e5fe       |    |		Load	0x2,-0x2
05cd e005       |    |		Load	0x0,0x5
05ce 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05cf 01df       |    |		Execute	Vector,Equal
05d0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05d1 0000 0000  |    |		.BLANK	0000[0x7]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db e5ff       |    |		Load	0x2,-0x1
05dc 01db       |    |		Execute	Vector,Length
05dd 0d41       | A  |		Execute_Immediate	Less,0x41
05de 6802       |h   |		Jump_Zero	0x5e1
05df e5ff       |    |		Load	0x2,-0x1
05e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e1 e5ff       |    |		Load	0x2,-0x1
05e2 01dd       |    |		Execute	Vector,First
05e3 e5ff       |    |		Load	0x2,-0x1
05e4 01dd       |    |		Execute	Vector,First
05e5 0a3c       | <  |		Execute_Immediate	Plus,0x3c
05e6 00d8       |    |		Load_Top	At_Offset_0
05e7 00e2       |    |		Load_Encached	Integer_Cache
05e8 0260       | `  |		Execute	Discrete,In_Type
05e9 7001       |p   |		Jump_Nonzero	0x5eb
05ea 0801       |    |		Execute_Immediate	Raise,0x1
05eb e5ff       |    |		Load	0x2,-0x1
05ec 01cf       |    |		Execute	Vector,Slice_Read
05ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05ee 0000 0000  |    |		.XXX[0x2]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3       |    |		.CONST	0x05f3								; Address of begin
05f1 0004       |    |		.CONST	0x0004								; Address of exception handler
05f2 0001       |    |		.CONST	0x0001								; Number of locals
05f3			BODY_05f0:
05f3			INIT_05f0:
05f3 e5ff       |    |		Load	0x2,-0x1
05f4 7003       |p   |		Jump_Nonzero	0x5f8
05f5 0092 0842  |   B|		Action	Push_String_Extended,0x842					; "<null iterator>"
05f7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f8 e5ff       |    |		Load	0x2,-0x1
05f9 0227       | '  |		Execute	Access,All_Reference
05fa 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05fb 680a       |h   |		Jump_Zero	0x606
05fc 0092 0843  |   C|		Action	Push_String_Extended,0x843					; "Current log; entry: "
05fe e5ff       |    |		Load	0x2,-0x1
05ff 0227       | '  |		Execute	Access,All_Reference
0600 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0601 e004       |    |		Load	0x0,0x4
0602 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0603 822b       | +  |		Call	0x1,0x2b
0604 01cc       |    |		Execute	Vector,Catenate
0605 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0606 480a       |H   |		Short_Literal	0xa
0607 0092 0844  |   D|		Action	Push_String_Extended,0x844					; "File: "
0609 e5ff       |    |		Load	0x2,-0x1
060a 0227       | '  |		Execute	Access,All_Reference
060b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
060c e225       | %  |		Load	0x1,0x25
060d 01d5       |    |		Execute	Vector,Field_Reference
060e e004       |    |		Load	0x0,0x4
060f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0610 01cc       |    |		Execute	Vector,Catenate
0611 01cb       |    |		Execute	Vector,Append
0612 0092 0845  |   E|		Action	Push_String_Extended,0x845					; "      Entry: "
0614 01cc       |    |		Execute	Vector,Catenate
0615 e5ff       |    |		Load	0x2,-0x1
0616 0227       | '  |		Execute	Access,All_Reference
0617 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0618 e004       |    |		Load	0x0,0x4
0619 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
061a 822b       | +  |		Call	0x1,0x2b
061b 01cc       |    |		Execute	Vector,Catenate
061c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
061d 0000 0000  |    |		.XXX[0x3]
061f 0000       |    |
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 e5ff       |    |		Load	0x2,-0x1
0624 01dd       |    |		Execute	Vector,First
0625 e5ff       |    |		Load	0x2,-0x1
0626 01dd       |    |		Execute	Vector,First
0627 0a07       |    |		Execute_Immediate	Plus,0x7
0628 00d8       |    |		Load_Top	At_Offset_0
0629 00e2       |    |		Load_Encached	Integer_Cache
062a 0260       | `  |		Execute	Discrete,In_Type
062b 7001       |p   |		Jump_Nonzero	0x62d
062c 0801       |    |		Execute_Immediate	Raise,0x1
062d e5ff       |    |		Load	0x2,-0x1
062e 01cf       |    |		Execute	Vector,Slice_Read
062f 0335       | 5  |		Declare_Variable	Array,Duplicate
0630 00cd       |    |		Action	Spare6_Action
0631 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0632 0000 0000  |    |		.BLANK	0000[0x6]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 0643       | C  |		.CONST	0x0643								; Address of begin
0639 0004       |    |		.CONST	0x0004								; Address of exception handler
063a 0004       |    |		.CONST	0x0004								; Number of locals
063b			INIT_0638:
063b 00e1       |    |		Load_Encached	Boolean_Cache
063c e002       |    |		Load	0x0,0x2
063d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
063e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
063f e002       |    |		Load	0x0,0x2
0640 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0641 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0642 0337       | 7  |		Declare_Variable	Array
0643			BODY_0638:
0643 e222       | "  |		Load	0x1,0x22
0644 683c       |h<  |		Jump_Zero	0x681
0645 e5ff       |    |		Load	0x2,-0x1
0646 0227       | '  |		Execute	Access,All_Reference
0647 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0648 603f       |`?  |		Indirect_Literal	Discrete,0x688,{0xffffffff, 0x80000001}
0649 027f       |    |		Execute	Discrete,Equal
064a 6810       |h   |		Jump_Zero	0x65b
064b e5ff       |    |		Load	0x2,-0x1
064c 0229       | )  |		Execute	Access,All_Read
064d e404       |    |		Load	0x2,0x4
064e e002       |    |		Load	0x0,0x2
064f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0650 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0651 00e1       |    |		Load_Encached	Boolean_Cache
0652 4804       |H   |		Short_Literal	0x4
0653 6034       |`4  |		Indirect_Literal	Discrete,0x688,{0xffffffff, 0x80000001}
0654 e002       |    |		Load	0x0,0x2
0655 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0656 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0657 c402       |    |		Store	0x2,0x2
0658 e405       |    |		Load	0x2,0x5
0659 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
065a 00d2       |    |		Pop_Control	Pop_Count_2
065b e402       |    |		Load	0x2,0x2
065c 6824       |h$  |		Jump_Zero	0x681
065d 00cf       |    |		Action	Mark_Auxiliary
065e e404       |    |		Load	0x2,0x4
065f e002       |    |		Load	0x0,0x2
0660 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0661 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0662 00e1       |    |		Load_Encached	Boolean_Cache
0663 4802       |H   |		Short_Literal	0x2
0664 e5ff       |    |		Load	0x2,-0x1
0665 0227       | '  |		Execute	Access,All_Reference
0666 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0667 e002       |    |		Load	0x0,0x2
0668 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0669 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
066a c402       |    |		Store	0x2,0x2
066b c403       |    |		Store	0x2,0x3
066c 00d1       |    |		Pop_Control	Pop_Count_1
066d e402       |    |		Load	0x2,0x2
066e 6811       |h   |		Jump_Zero	0x680
066f e403       |    |		Load	0x2,0x3
0670 0a01       |    |		Execute_Immediate	Plus,0x1
0671 e5ff       |    |		Load	0x2,-0x1
0672 0227       | '  |		Execute	Access,All_Reference
0673 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0674 4801       |H   |		Short_Literal	0x1
0675 e404       |    |		Load	0x2,0x4
0676 01d7       |    |		Execute	Vector,Field_Read
0677 0e7f       |    |		Execute_Immediate	Not_Equal,0x7f
0678 6805       |h   |		Jump_Zero	0x67e
0679 4820       |H   |		Short_Literal	0x20
067a e404       |    |		Load	0x2,0x4
067b e008       |    |		Load	0x0,0x8
067c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
067d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
067e 00c9       |    |		Action	Pop_Auxiliary_Loop
067f 7fde       |    |		Jump	0x65e
0680 00ce       |    |		Action	Pop_Auxiliary
0681 4801       |H   |		Short_Literal	0x1
0682 e5ff       |    |		Load	0x2,-0x1
0683 0227       | '  |		Execute	Access,All_Reference
0684 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0685 4950       |IP  |		Short_Literal	0x150
0686 0257       | W  |		Execute	Discrete,Raise
0687 0000       |    |		.XXX[0x1]
0688 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
068c 0000 0000  |    |		.BLANK	0000[0x4]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 06c4       |    |		.CONST	0x06c4								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 000a       |    |		.CONST	0x000a								; Number of locals
0693			INIT_0690:
0693 e007       |    |		Load	0x0,0x7
0694 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0695 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0696 02c7       |    |		Declare_Variable	Any
0697 00d8       |    |		Load_Top	At_Offset_0
0698 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0699 e007       |    |		Load	0x0,0x7
069a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
069b 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
069c 02c7       |    |		Declare_Variable	Any
069d e007       |    |		Load	0x0,0x7
069e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
069f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
06a0 a603       |    |		Store_Unchecked	0x3,0x3
06a1 00e1       |    |		Load_Encached	Boolean_Cache
06a2 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
06a3 e007       |    |		Load	0x0,0x7
06a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a6 02c7       |    |		Declare_Variable	Any
06a7 e007       |    |		Load	0x0,0x7
06a8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06aa a605       |    |		Store_Unchecked	0x3,0x5
06ab e007       |    |		Load	0x0,0x7
06ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06ae 02c7       |    |		Declare_Variable	Any
06af e007       |    |		Load	0x0,0x7
06b0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06b1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06b2 a606       |    |		Store_Unchecked	0x3,0x6
06b3 e007       |    |		Load	0x0,0x7
06b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06b5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06b6 02c7       |    |		Declare_Variable	Any
06b7 e007       |    |		Load	0x0,0x7
06b8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06b9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06ba a607       |    |		Store_Unchecked	0x3,0x7
06bb e007       |    |		Load	0x0,0x7
06bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06bd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06be 02c7       |    |		Declare_Variable	Any
06bf 00d8       |    |		Load_Top	At_Offset_0
06c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06c1 00e1       |    |		Load_Encached	Boolean_Cache
06c2 029f 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Call
06c4			BODY_0690:
06c4 4801       |H   |		Short_Literal	0x1
06c5 e007       |    |		Load	0x0,0x7
06c6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06c7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06c8 e7ff       |    |		Load	0x3,-0x1
06c9 e007       |    |		Load	0x0,0x7
06ca 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06cb 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
06cc c602       |    |		Store	0x3,0x2
06cd 00cf       |    |		Action	Mark_Auxiliary
06ce 784d       |xM  |		Jump	0x71c
06cf e7fe       |    |		Load	0x3,-0x2
06d0 e005       |    |		Load	0x0,0x5
06d1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06d2 e602       |    |		Load	0x3,0x2
06d3 e007       |    |		Load	0x0,0x7
06d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06d5 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
06d6 860a       |    |		Call	0x3,0xa
06d7 8229       | )  |		Call	0x1,0x29
06d8 6801       |h   |		Jump_Zero	0x6da
06d9 7837       |x7  |		Jump	0x711
06da e602       |    |		Load	0x3,0x2
06db e007       |    |		Load	0x0,0x7
06dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06dd 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
06de 860a       |    |		Call	0x3,0xa
06df e7fd       |    |		Load	0x3,-0x3
06e0 e005       |    |		Load	0x0,0x5
06e1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06e2 8229       | )  |		Call	0x1,0x29
06e3 680d       |h   |		Jump_Zero	0x6f1
06e4 e607       |    |		Load	0x3,0x7
06e5 e007       |    |		Load	0x0,0x7
06e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06e7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06e8 7008       |p   |		Jump_Nonzero	0x6f1
06e9 e607       |    |		Load	0x3,0x7
06ea 860a       |    |		Call	0x3,0xa
06eb e7fd       |    |		Load	0x3,-0x3
06ec e005       |    |		Load	0x0,0x5
06ed 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06ee 8229       | )  |		Call	0x1,0x29
06ef 6801       |h   |		Jump_Zero	0x6f1
06f0 7820       |x   |		Jump	0x711
06f1 e604       |    |		Load	0x3,0x4
06f2 e605       |    |		Load	0x3,0x5
06f3 e007       |    |		Load	0x0,0x7
06f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06f5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06f6 0f00       |    |		Execute_Immediate	Equal,0x0
06f7 0279       | y  |		Execute	Discrete,And
06f8 6804       |h   |		Jump_Zero	0x6fd
06f9 e605       |    |		Load	0x3,0x5
06fa 860a       |    |		Call	0x3,0xa
06fb e228       | (  |		Load	0x1,0x28
06fc 017d       | }  |		Execute	Record,Structure_Write
06fd 4800       |H   |		Short_Literal	0x0
06fe a604       |    |		Store_Unchecked	0x3,0x4
06ff e602       |    |		Load	0x3,0x2
0700 e007       |    |		Load	0x0,0x7
0701 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0702 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0703 c607       |    |		Store	0x3,0x7
0704 00e1       |    |		Load_Encached	Boolean_Cache
0705 e007       |    |		Load	0x0,0x7
0706 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0707 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0708 e602       |    |		Load	0x3,0x2
0709 e007       |    |		Load	0x0,0x7
070a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
070b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
070c e603       |    |		Load	0x3,0x3
070d e007       |    |		Load	0x0,0x7
070e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
070f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0710 c609       |    |		Store	0x3,0x9
0711 e602       |    |		Load	0x3,0x2
0712 e007       |    |		Load	0x0,0x7
0713 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0714 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0715 c605       |    |		Store	0x3,0x5
0716 e602       |    |		Load	0x3,0x2
0717 e007       |    |		Load	0x0,0x7
0718 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0719 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
071a c602       |    |		Store	0x3,0x2
071b 00c9       |    |		Action	Pop_Auxiliary_Loop
071c e602       |    |		Load	0x3,0x2
071d e007       |    |		Load	0x0,0x7
071e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
071f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0720 6fae       |o   |		Jump_Zero	0x6cf
0721 00ce       |    |		Action	Pop_Auxiliary
0722 e603       |    |		Load	0x3,0x3
0723 e007       |    |		Load	0x0,0x7
0724 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0725 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0726 e603       |    |		Load	0x3,0x3
0727 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b       | +  |		.CONST	0x072b								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 0001       |    |		.CONST	0x0001								; Number of locals
072b			BODY_0728:
072b			INIT_0728:
072b e7ff       |    |		Load	0x3,-0x1
072c e004       |    |		Load	0x0,0x4
072d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
072e e007       |    |		Load	0x0,0x7
072f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0730 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0731 01dd       |    |		Execute	Vector,First
0732 0a04       |    |		Execute_Immediate	Plus,0x4
0733 00d8       |    |		Load_Top	At_Offset_0
0734 00e2       |    |		Load_Encached	Integer_Cache
0735 0260       | `  |		Execute	Discrete,In_Type
0736 7001       |p   |		Jump_Nonzero	0x738
0737 0801       |    |		Execute_Immediate	Raise,0x1
0738 e7ff       |    |		Load	0x3,-0x1
0739 e004       |    |		Load	0x0,0x4
073a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
073b e007       |    |		Load	0x0,0x7
073c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
073d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
073e 01dd       |    |		Execute	Vector,First
073f 0a0b       |    |		Execute_Immediate	Plus,0xb
0740 00d8       |    |		Load_Top	At_Offset_0
0741 00e2       |    |		Load_Encached	Integer_Cache
0742 0260       | `  |		Execute	Discrete,In_Type
0743 7001       |p   |		Jump_Nonzero	0x745
0744 0801       |    |		Execute_Immediate	Raise,0x1
0745 e7ff       |    |		Load	0x3,-0x1
0746 e004       |    |		Load	0x0,0x4
0747 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0748 e007       |    |		Load	0x0,0x7
0749 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
074a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
074b 01cf       |    |		Execute	Vector,Slice_Read
074c 0092 0833  |   3|		Action	Push_String_Extended,0x833					; " "
074e 01cc       |    |		Execute	Vector,Catenate
074f e7ff       |    |		Load	0x3,-0x1
0750 e004       |    |		Load	0x0,0x4
0751 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0752 e007       |    |		Load	0x0,0x7
0753 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0754 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0755 01dd       |    |		Execute	Vector,First
0756 0a10       |    |		Execute_Immediate	Plus,0x10
0757 00d8       |    |		Load_Top	At_Offset_0
0758 00e2       |    |		Load_Encached	Integer_Cache
0759 0260       | `  |		Execute	Discrete,In_Type
075a 7001       |p   |		Jump_Nonzero	0x75c
075b 0801       |    |		Execute_Immediate	Raise,0x1
075c e7ff       |    |		Load	0x3,-0x1
075d e004       |    |		Load	0x0,0x4
075e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
075f e007       |    |		Load	0x0,0x7
0760 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0761 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0762 01dd       |    |		Execute	Vector,First
0763 0a17       |    |		Execute_Immediate	Plus,0x17
0764 00d8       |    |		Load_Top	At_Offset_0
0765 00e2       |    |		Load_Encached	Integer_Cache
0766 0260       | `  |		Execute	Discrete,In_Type
0767 7001       |p   |		Jump_Nonzero	0x769
0768 0801       |    |		Execute_Immediate	Raise,0x1
0769 e7ff       |    |		Load	0x3,-0x1
076a e004       |    |		Load	0x0,0x4
076b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
076c e007       |    |		Load	0x0,0x7
076d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
076e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
076f 01cf       |    |		Execute	Vector,Slice_Read
0770 01cc       |    |		Execute	Vector,Catenate
0771 e005       |    |		Load	0x0,0x5
0772 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0773 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0774 0000 0000  |    |		.BLANK	0000[0x4]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077d       | }  |		.CONST	0x077d								; Address of begin
0779 07bc       |    |		.CONST	0x07bc								; Address of exception handler
077a 0002       |    |		.CONST	0x0002								; Number of locals
077b			INIT_0778:
077b 029f 080b  |    |		Declare_Subprogram	INIT_0808,For_Call
077d			BODY_0778:
077d 4800       |H   |		Short_Literal	0x0
077e a402       |    |		Store_Unchecked	0x2,0x2
077f 00cf       |    |		Action	Mark_Auxiliary
0780 e5ff       |    |		Load	0x2,-0x1
0781 0227       | '  |		Execute	Access,All_Reference
0782 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0783 680a       |h   |		Jump_Zero	0x78e
0784 e5ff       |    |		Load	0x2,-0x1
0785 0229       | )  |		Execute	Access,All_Read
0786 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0787 00d8       |    |		Load_Top	At_Offset_0
0788 e5ff       |    |		Load	0x2,-0x1
0789 822e       | .  |		Call	0x1,0x2e
078a e004       |    |		Load	0x0,0x4
078b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
078c 00d2       |    |		Pop_Control	Pop_Count_2
078d 780c       |x   |		Jump	0x79a
078e e5ff       |    |		Load	0x2,-0x1
078f 0229       | )  |		Execute	Access,All_Read
0790 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0791 00d8       |    |		Load_Top	At_Offset_0
0792 e5ff       |    |		Load	0x2,-0x1
0793 0227       | '  |		Execute	Access,All_Reference
0794 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0795 e003       |    |		Load	0x0,0x3
0796 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0797 e004       |    |		Load	0x0,0x4
0798 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0799 00d2       |    |		Pop_Control	Pop_Count_2
079a e5ff       |    |		Load	0x2,-0x1
079b 0227       | '  |		Execute	Access,All_Reference
079c 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
079d e004       |    |		Load	0x0,0x4
079e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
079f 0c0b       |    |		Execute_Immediate	Greater_Equal,0xb
07a0 6818       |h   |		Jump_Zero	0x7b9
07a1 4809       |H   |		Short_Literal	0x9
07a2 4801       |H   |		Short_Literal	0x1
07a3 e5ff       |    |		Load	0x2,-0x1
07a4 0227       | '  |		Execute	Access,All_Reference
07a5 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
07a6 e004       |    |		Load	0x0,0x4
07a7 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
07a8 0092 0846  |   F|		Action	Push_String_Extended,0x846					; "         "
07aa 01df       |    |		Execute	Vector,Equal
07ab 680d       |h   |		Jump_Zero	0x7b9
07ac e402       |    |		Load	0x2,0x2
07ad 7001       |p   |		Jump_Nonzero	0x7af
07ae 8602       |    |		Call	0x3,0x2
07af e5ff       |    |		Load	0x2,-0x1
07b0 0229       | )  |		Execute	Access,All_Read
07b1 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
07b2 00d8       |    |		Load_Top	At_Offset_0
07b3 4820       |H   |		Short_Literal	0x20
07b4 4800       |H   |		Short_Literal	0x0
07b5 e004       |    |		Load	0x0,0x4
07b6 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
07b7 00d2       |    |		Pop_Control	Pop_Count_2
07b8 7801       |x   |		Jump	0x7ba
07b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07ba 00c9       |    |		Action	Pop_Auxiliary_Loop
07bb 7fc4       |    |		Jump	0x780
07bc			TRAP_0778:
07bc 00d8       |    |		Load_Top	At_Offset_0
07bd 0107       |    |		Execute	Exception,Get_Name
07be 4950       |IP  |		Short_Literal	0x150
07bf 495f       |I_  |		Short_Literal	0x15f
07c0 0262       | b  |		Execute	Discrete,In_Range
07c1 6801       |h   |		Jump_Zero	0x7c3
07c2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07c3 0100       |    |		Execute	Exception,Raise
07c4 0000 0000  |    |		.BLANK	0000[0x4]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb       |    |		.CONST	0x07cb								; Address of begin
07c9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ca 0001       |    |		.CONST	0x0001								; Number of locals
07cb			BODY_07c8:
07cb			INIT_07c8:
07cb e9ff       |    |		Load	0x4,-0x1
07cc e007       |    |		Load	0x0,0x7
07cd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07ce 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07cf 01dd       |    |		Execute	Vector,First
07d0 0a04       |    |		Execute_Immediate	Plus,0x4
07d1 00d8       |    |		Load_Top	At_Offset_0
07d2 00e2       |    |		Load_Encached	Integer_Cache
07d3 0260       | `  |		Execute	Discrete,In_Type
07d4 7001       |p   |		Jump_Nonzero	0x7d6
07d5 0801       |    |		Execute_Immediate	Raise,0x1
07d6 e9ff       |    |		Load	0x4,-0x1
07d7 e007       |    |		Load	0x0,0x7
07d8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07d9 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07da 01dd       |    |		Execute	Vector,First
07db 0a0b       |    |		Execute_Immediate	Plus,0xb
07dc 00d8       |    |		Load_Top	At_Offset_0
07dd 00e2       |    |		Load_Encached	Integer_Cache
07de 0260       | `  |		Execute	Discrete,In_Type
07df 7001       |p   |		Jump_Nonzero	0x7e1
07e0 0801       |    |		Execute_Immediate	Raise,0x1
07e1 e9ff       |    |		Load	0x4,-0x1
07e2 e007       |    |		Load	0x0,0x7
07e3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07e4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07e5 01cf       |    |		Execute	Vector,Slice_Read
07e6 0092 0833  |   3|		Action	Push_String_Extended,0x833					; " "
07e8 01cc       |    |		Execute	Vector,Catenate
07e9 e9ff       |    |		Load	0x4,-0x1
07ea e007       |    |		Load	0x0,0x7
07eb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07ec 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07ed 01dd       |    |		Execute	Vector,First
07ee 0a10       |    |		Execute_Immediate	Plus,0x10
07ef 00d8       |    |		Load_Top	At_Offset_0
07f0 00e2       |    |		Load_Encached	Integer_Cache
07f1 0260       | `  |		Execute	Discrete,In_Type
07f2 7001       |p   |		Jump_Nonzero	0x7f4
07f3 0801       |    |		Execute_Immediate	Raise,0x1
07f4 e9ff       |    |		Load	0x4,-0x1
07f5 e007       |    |		Load	0x0,0x7
07f6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07f7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07f8 01dd       |    |		Execute	Vector,First
07f9 0a17       |    |		Execute_Immediate	Plus,0x17
07fa 00d8       |    |		Load_Top	At_Offset_0
07fb 00e2       |    |		Load_Encached	Integer_Cache
07fc 0260       | `  |		Execute	Discrete,In_Type
07fd 7001       |p   |		Jump_Nonzero	0x7ff
07fe 0801       |    |		Execute_Immediate	Raise,0x1
07ff e9ff       |    |		Load	0x4,-0x1
0800 e007       |    |		Load	0x0,0x7
0801 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0802 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0803 01cf       |    |		Execute	Vector,Slice_Read
0804 01cc       |    |		Execute	Vector,Catenate
0805 e005       |    |		Load	0x0,0x5
0806 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0807 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b       |    |		.CONST	0x080b								; Address of begin
0809 081f       |    |		.CONST	0x081f								; Address of exception handler
080a 0001       |    |		.CONST	0x0001								; Number of locals
080b			BODY_0808:
080b			INIT_0808:
080b e5ff       |    |		Load	0x2,-0x1
080c 0229       | )  |		Execute	Access,All_Read
080d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
080e 00d8       |    |		Load_Top	At_Offset_0
080f 480a       |H   |		Short_Literal	0xa
0810 e5ff       |    |		Load	0x2,-0x1
0811 0227       | '  |		Execute	Access,All_Reference
0812 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0813 e004       |    |		Load	0x0,0x4
0814 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0815 480a       |H   |		Short_Literal	0xa
0816 e5ff       |    |		Load	0x2,-0x1
0817 0227       | '  |		Execute	Access,All_Reference
0818 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0819 e004       |    |		Load	0x0,0x4
081a 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
081b 01ca       |    |		Execute	Vector,Prepend
081c e004       |    |		Load	0x0,0x4
081d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
081e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
081f			TRAP_0808:
081f 010e       |    |		Execute	Exception,Is_Constraint_Error
0820 6811       |h   |		Jump_Zero	0x832
0821 e009       |    |		Load	0x0,0x9
0822 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0823 4802       |H   |		Short_Literal	0x2
0824 0092 0847  |   G|		Action	Push_String_Extended,0x847					; "Log entry too long."
0826 e00a       |    |		Load	0x0,0xa
0827 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0828 e009       |    |		Load	0x0,0x9
0829 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
082a 4802       |H   |		Short_Literal	0x2
082b e5ff       |    |		Load	0x2,-0x1
082c 822c       | ,  |		Call	0x1,0x2c
082d e00a       |    |		Load	0x0,0xa
082e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
082f 4801       |H   |		Short_Literal	0x1
0830 a402       |    |		Store_Unchecked	0x2,0x2
0831 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0832 0100       |    |		Execute	Exception,Raise
0833 ; --------------------------------------------------------------------------------------
0833 ; STRING TABLE
0833 ; --------------------------------------------------------------------------------------
0833 002c       | ,  |		.STRTAB	0x002c->0x0849							; " "
0834 002b       | +  |		.STRTAB	0x002b->0x0849							; "00:00:01"
0835 0031       | 1  |		.STRTAB	0x0031->0x084d							; "23:59:59"
0836 0037       | 7  |		.STRTAB	0x0037->0x0851							; "!machine.error_logs"
0837 0048       | H  |		.STRTAB	0x0048->0x085b							; ".log@_at_@"
0838 0050       | P  |		.STRTAB	0x0050->0x0860							; "Too many log files.  Maximum is  250. Extra files will not be processed."
0839 0096       |    |		.STRTAB	0x0096->0x0884							; "No log files within specified dates in: "
083a 00bc       |    |		.STRTAB	0x00bc->0x0898							; "Log files can't be opened"
083b 00d3       |    |		.STRTAB	0x00d3->0x08a4							; "00"
083c 00d3       |    |		.STRTAB	0x00d3->0x08a5							; "23"
083d 00d3       |    |		.STRTAB	0x00d3->0x08a6							; "Snapshot_Started"
083e 00e1       |    |		.STRTAB	0x00e1->0x08ae							; "System_Boot"
083f 00ea       |    |		.STRTAB	0x00ea->0x08b4							; "End of log"
0840 00f2       |    |		.STRTAB	0x00f2->0x08b9							; "             "
0841 00fd       |    |		.STRTAB	0x00fd->0x08bf							; "[CURRENT LOG]"
0842 0108       |    |		.STRTAB	0x0108->0x08c6							; "<null iterator>"
0843 0115       |    |		.STRTAB	0x0115->0x08cd							; "Current log; entry: "
0844 0127       | '  |		.STRTAB	0x0127->0x08d7							; "File: "
0845 012b       | +  |		.STRTAB	0x012b->0x08da							; "      Entry: "
0846 0136       | 6  |		.STRTAB	0x0136->0x08e1							; "         "
0847 013d       | =  |		.STRTAB	0x013d->0x08e5							; "Log entry too long."
0848 014e       | N  |		.STREND 0x014e->0x08ef
0849 2030 303a  | 00:|		.STRTAB_STRINGS
08ef 0000       |    |		.XXX[0x1]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; Debug Table
08f0 ; --------------------------------------------------------------------------------------
08f0 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x235b,0x0000,0x0001,0x0000
08f6 7980 0000  |y   |		.XXX[0x10]
08f8 13b1 7006  |  p |
08fa bfe8 0000  |    |
08fc 0000 5000  |  P |
08fe 0000 0022  |   "|
0900 ccc0 0d91  |    |
0902 5800 0000  |X   |
0904 00d7 c180  |    |
0906 0000 0000  |    |		.BLANK	0000[0x7]
090d 0009 6980  |  i |		.XXX[0x1e]
090f 0363 6200  | cb |
0911 0000 008c  |    |
0913 0000 35ff  |  5 |
0915 4000 0000  |@   |
0917 0358 0000  | X  |
0919 0000 d86e  |   n|
091b 4224 001b  |B$  |
091d 22b0 0000  |"   |
091f 0001 b17c  |   ||
0921 0036 bf30  | 6 0|
0923 6390 02b5  |c   |
0925 dc00 0000  |    |
0927 006c 6c40  | ll@|
0929 1aff a000  |    |
092b 0000 0000  |    |		.BLANK	0000[0x6]
0931 0003 665e  |  f^|		.XXX[0x13]
0933 0000 6c37  |  l7|
0935 0000 0009  |    |
0937 d8b8 0367  |   g|
0939 c600 0000  |    |
093b 0028 0000  | (  |
093d 0000 1166  |   f|
093f 6006 d850  |`  P|
0941 0000 0000  |    |
0943 6cdb       |l   |
0944 0000 0000  |    |		.BLANK	0000[0x8]
094c 04b4 c001  |    |		.XXX[0x1d]
094e b59a 0000  |    |
0950 0000 0600  |    |
0952 001b 3e30  |  >0|
0954 0000 0001  |    |
0956 b400 0000  |    |
0958 006d 3161  | m1a|
095a 1200 0db0  |    |
095c a000 0000  |    |
095e 00da b280  |    |
0960 1b9e 2831  |  (1|
0962 c801 5aee  |  Z |
0964 0000 0000  |    |
0966 36b3 400d  |6 @ |
0968 9f18       |    |
0969 0000 0000  |    |		.BLANK	0000[0x7]
0970 01b7 1800  |    |		.XXX[0x13]
0972 0036 98a0  | 6  |
0974 0000 04ec  |    |
0976 5c01 b7cc  |\   |
0978 0000 0000  |    |
097a 1400 0000  |    |
097c 0008 b330  |   0|
097e 0373 fa00  | s  |
0980 0000 0036  |   6|
0982 eaa0       |    |
0983 0000 0000  |    |		.BLANK	0000[0x7]
098a 0002 5a60  |  Z`|		.XXX[0x1e]
098c 00dc c180  |    |
098e 0000 0000  |    |
0990 c000 0dbe  |    |
0992 6000 0000  |`   |
0994 00de 0000  |    |
0996 0000 3715  |  7 |
0998 d089 0006  |    |
099a e7f4 0000  |    |
099c 0000 6e53  |  nS|
099e 800d ee5c  |   \|
09a0 18e4 00ad  |    |
09a2 7700 0000  |w   |
09a4 001b 9830  |   0|
09a6 06df 3000  |  0 |
09a8 0000 0000  |    |		.BLANK	0000[0x7]
09af dd80 8000  |    |		.XXX[0x13]
09b1 1b8a e000  |    |
09b3 0002 762e  |  v.|
09b5 00dd da80  |    |
09b7 0000 000a  |    |
09b9 0000 0000  |    |
09bb 0459 9801  | Y  |
09bd bde6 0000  |    |
09bf 0000 1bb3  |    |
09c1 e000       |    |
09c2 0000 0000  |    |		.BLANK	0000[0x7]
09c9 012d 3000  | -0 |		.XXX[0x1d]
09cb 6f5b 0000  |o[  |
09cd 0000 11a0  |    |
09cf 0006 eed4  |    |
09d1 0000 0000  |    |
09d3 7100 0000  |q   |
09d5 001b c978  |   x|
09d7 4480 037b  |D  {|
09d9 cc00 0000  |    |
09db 0037 a6e0  | 7  |
09dd 0706 d20c  |    |
09df 7200 56bb  |r V |
09e1 8000 0000  |    |
09e3 0deb 6003  |  ` |
09e5 776a       |wj  |
09e6 0000 0000  |    |		.BLANK	0000[0x7]
09ed 006f ba80  | o  |		.XXX[0x13]
09ef 000d e4b8  |    |
09f1 0000 013b  |   ;|
09f3 1700 6fe7  |  o |
09f5 8000 0000  |    |
09f7 0500 0000  |    |
09f9 0002 2ccc  |  , |
09fb 00e0 e780  |    |
09fd 0000 000d  |    |
09ff f938       | 8  |