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

⟦b4d3e69f5⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0910       |    |		.CONST	0x0910								; 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 00a8       |    |		.CONST	0x00a8								; 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 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
0015 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
0017 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
0019 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
001b 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
001d 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
001f 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0021 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
0023 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
0025 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
0027 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
0029 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
002b 029a 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call,Visible,Unelaborated
002d 029a 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call,Visible,Unelaborated
002f 4818       |H   |		Short_Literal	0x18
0030 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0031 00bf       |    |		Action	Accept_Activation
0032 00e1       |    |		Load_Encached	Boolean_Cache
0033 00e1       |    |		Load_Encached	Boolean_Cache
0034 e002       |    |		Load	0x0,0x2
0035 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0036 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0037 00e3       |    |		Load_Encached	Natural_Cache
0038 e003       |    |		Load	0x0,0x3
0039 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003a 6081       |`   |		Indirect_Literal	Discrete,0xbc,{0x00000000, 0x00002710}
003b e004       |    |		Load	0x0,0x4
003c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003d 1c07       |    |		Execute_Immediate	Run_Utility,0x7
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 e005       |    |		Load	0x0,0x5
0047 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0048 029f 056b  |   k|		Declare_Subprogram	INIT_0568,For_Call
004a 4809       |H   |		Short_Literal	0x9
004b 032d       | -  |		Declare_Type	Record,Defined
004c 00d8       |    |		Load_Top	At_Offset_0
004d 02a0       |    |		Declare_Subprogram	Null_Subprogram
004e e21f       |    |		Load	0x1,0x1f
004f 03c7       |    |		Complete_Type	Access,By_Defining
0050 00e3       |    |		Load_Encached	Natural_Cache
0051 00e1       |    |		Load_Encached	Boolean_Cache
0052 4882       |H   |		Short_Literal	0x82
0053 e004       |    |		Load	0x0,0x4
0054 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0055 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0056 4801       |H   |		Short_Literal	0x1
0057 48fa       |H   |		Short_Literal	0xfa
0058 e223       | #  |		Load	0x1,0x23
0059 029f 059b  |    |		Declare_Subprogram	INIT_0598,For_Call
005b 4801       |H   |		Short_Literal	0x1
005c 035d       | ]  |		Declare_Type	Array,Defined
005d 00d8       |    |		Load_Top	At_Offset_0
005e 0337       | 7  |		Declare_Variable	Array
005f 00d8       |    |		Load_Top	At_Offset_0
0060 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0061 e005       |    |		Load	0x0,0x5
0062 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0063 0322       | "  |		Declare_Variable	Record
0064 e005       |    |		Load	0x0,0x5
0065 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0066 e226       | &  |		Load	0x1,0x26
0067 017d       | }  |		Execute	Record,Structure_Write
0068 e005       |    |		Load	0x0,0x5
0069 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
006a 0322       | "  |		Declare_Variable	Record
006b e005       |    |		Load	0x0,0x5
006c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
006d e227       | '  |		Load	0x1,0x27
006e 017d       | }  |		Execute	Record,Structure_Write
006f e005       |    |		Load	0x0,0x5
0070 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0071 0322       | "  |		Declare_Variable	Record
0072 e005       |    |		Load	0x0,0x5
0073 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0074 e228       | (  |		Load	0x1,0x28
0075 017d       | }  |		Execute	Record,Structure_Write
0076 029d 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call
0078 029d 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call
007a 029d 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call
007c 029d 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call
007e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 029b 0643  |   C|		Declare_Subprogram	INIT_0640,For_Outer_Call,Unelaborated
0086 029d 065b  |   [|		Declare_Subprogram	INIT_0658,For_Outer_Call
0088 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8			BODY_0008:
00a8 00bc       |    |		Action	Signal_Activated
00a9 00bb       |    |		Action	Signal_Completion
00aa 0000 0000  |    |		.BLANK	0000[0x6]
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 06b3  |    |		Declare_Subprogram	INIT_06b0,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 0853  |   S|		Action	Push_String_Extended,0x853					; " "
00d5 01cc       |    |		Execute	Vector,Catenate
00d6 0092 0854  |   T|		Action	Push_String_Extended,0x854					; "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 0853  |   S|		Action	Push_String_Extended,0x853					; " "
00e7 01cc       |    |		Execute	Vector,Catenate
00e8 0092 0855  |   U|		Action	Push_String_Extended,0x855					; "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 0856  |   V|		Action	Push_String_Extended,0x856					; "!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 0857  |   W|		Action	Push_String_Extended,0x857					; ".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 0858  |   X|		Action	Push_String_Extended,0x858					; "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 0859  |   Y|		Action	Push_String_Extended,0x859					; "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 e21f       |    |		Load	0x1,0x1f
015c 0007       |    |		Action	Break_Optional
015d 029f 074b  |   K|		Declare_Subprogram	INIT_0748,For_Call
015f			BODY_0158:
015f e21f       |    |		Load	0x1,0x1f
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 085a  |   Z|		Action	Push_String_Extended,0x85a					; "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 0321       | !  |		.CONST	0x0321								; 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 079b  |    |		Declare_Subprogram	INIT_0798,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 7037       |p7  |		Jump_Nonzero	0x25e
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 783c       |x<  |		Jump	0x271
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 e5ff       |    |		Load	0x2,-0x1
0242 0227       | '  |		Execute	Access,All_Reference
0243 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0244 e004       |    |		Load	0x0,0x4
0245 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0246 702a       |p*  |		Jump_Nonzero	0x271
0247 00cf       |    |		Action	Mark_Auxiliary
0248 780d       |x   |		Jump	0x256
0249 e5ff       |    |		Load	0x2,-0x1
024a 0229       | )  |		Execute	Access,All_Read
024b 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
024c 00d8       |    |		Load_Top	At_Offset_0
024d e5ff       |    |		Load	0x2,-0x1
024e 0227       | '  |		Execute	Access,All_Reference
024f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0250 e003       |    |		Load	0x0,0x3
0251 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0252 e004       |    |		Load	0x0,0x4
0253 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0254 00d2       |    |		Pop_Control	Pop_Count_2
0255 00c9       |    |		Action	Pop_Auxiliary_Loop
0256 e5ff       |    |		Load	0x2,-0x1
0257 0227       | '  |		Execute	Access,All_Reference
0258 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0259 e004       |    |		Load	0x0,0x4
025a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
025b 6fed       |o   |		Jump_Zero	0x249
025c 00ce       |    |		Action	Pop_Auxiliary
025d 7813       |x   |		Jump	0x271
025e e5ff       |    |		Load	0x2,-0x1
025f 0229       | )  |		Execute	Access,All_Read
0260 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0261 00d8       |    |		Load_Top	At_Offset_0
0262 e5ff       |    |		Load	0x2,-0x1
0263 0227       | '  |		Execute	Access,All_Reference
0264 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0265 e004       |    |		Load	0x0,0x4
0266 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0267 00d2       |    |		Pop_Control	Pop_Count_2
0268 e5ff       |    |		Load	0x2,-0x1
0269 0229       | )  |		Execute	Access,All_Read
026a 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
026b 00d8       |    |		Load_Top	At_Offset_0
026c 4820       |H   |		Short_Literal	0x20
026d 4800       |H   |		Short_Literal	0x0
026e e004       |    |		Load	0x0,0x4
026f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0270 00d2       |    |		Pop_Control	Pop_Count_2
0271 e5ff       |    |		Load	0x2,-0x1
0272 0227       | '  |		Execute	Access,All_Reference
0273 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0274 e004       |    |		Load	0x0,0x4
0275 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0276 685c       |h\  |		Jump_Zero	0x2d3
0277 e5ff       |    |		Load	0x2,-0x1
0278 0227       | '  |		Execute	Access,All_Reference
0279 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
027a e004       |    |		Load	0x0,0x4
027b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
027c 822d       | -  |		Call	0x1,0x2d
027d 01dd       |    |		Execute	Vector,First
027e e5ff       |    |		Load	0x2,-0x1
027f 0227       | '  |		Execute	Access,All_Reference
0280 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0281 e004       |    |		Load	0x0,0x4
0282 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0283 822d       | -  |		Call	0x1,0x2d
0284 01dd       |    |		Execute	Vector,First
0285 0a01       |    |		Execute_Immediate	Plus,0x1
0286 00d8       |    |		Load_Top	At_Offset_0
0287 00e2       |    |		Load_Encached	Integer_Cache
0288 0260       | `  |		Execute	Discrete,In_Type
0289 7001       |p   |		Jump_Nonzero	0x28b
028a 0801       |    |		Execute_Immediate	Raise,0x1
028b e5ff       |    |		Load	0x2,-0x1
028c 0227       | '  |		Execute	Access,All_Reference
028d 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
028e e004       |    |		Load	0x0,0x4
028f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0290 822d       | -  |		Call	0x1,0x2d
0291 01cf       |    |		Execute	Vector,Slice_Read
0292 0092 085b  |   [|		Action	Push_String_Extended,0x85b					; "00"
0294 01df       |    |		Execute	Vector,Equal
0295 e5ff       |    |		Load	0x2,-0x1
0296 0227       | '  |		Execute	Access,All_Reference
0297 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0298 e004       |    |		Load	0x0,0x4
0299 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
029a 822d       | -  |		Call	0x1,0x2d
029b 01dd       |    |		Execute	Vector,First
029c e5ff       |    |		Load	0x2,-0x1
029d 0227       | '  |		Execute	Access,All_Reference
029e 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
029f e004       |    |		Load	0x0,0x4
02a0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02a1 822d       | -  |		Call	0x1,0x2d
02a2 01dd       |    |		Execute	Vector,First
02a3 0a01       |    |		Execute_Immediate	Plus,0x1
02a4 00d8       |    |		Load_Top	At_Offset_0
02a5 00e2       |    |		Load_Encached	Integer_Cache
02a6 0260       | `  |		Execute	Discrete,In_Type
02a7 7001       |p   |		Jump_Nonzero	0x2a9
02a8 0801       |    |		Execute_Immediate	Raise,0x1
02a9 e5ff       |    |		Load	0x2,-0x1
02aa 0227       | '  |		Execute	Access,All_Reference
02ab 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02ac e004       |    |		Load	0x0,0x4
02ad 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02ae 822d       | -  |		Call	0x1,0x2d
02af 01cf       |    |		Execute	Vector,Slice_Read
02b0 0092 085c  |   \|		Action	Push_String_Extended,0x85c					; "23"
02b2 01df       |    |		Execute	Vector,Equal
02b3 0279       | y  |		Execute	Discrete,And
02b4 681e       |h   |		Jump_Zero	0x2d3
02b5 4802       |H   |		Short_Literal	0x2
02b6 4800       |H   |		Short_Literal	0x0
02b7 4801       |H   |		Short_Literal	0x1
02b8 674f       |gO  |		Indirect_Literal	Discrete,0x208,{0x00000000, 0xa8c00000}
02b9 e5ff       |    |		Load	0x2,-0x1
02ba 0227       | '  |		Execute	Access,All_Reference
02bb 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
02bc e005       |    |		Load	0x0,0x5
02bd 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02be e006       |    |		Load	0x0,0x6
02bf 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02c0 e005       |    |		Load	0x0,0x5
02c1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02c2 e005       |    |		Load	0x0,0x5
02c3 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
02c4 0092 0853  |   S|		Action	Push_String_Extended,0x853					; " "
02c6 01cc       |    |		Execute	Vector,Catenate
02c7 e5ff       |    |		Load	0x2,-0x1
02c8 0227       | '  |		Execute	Access,All_Reference
02c9 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02ca e004       |    |		Load	0x0,0x4
02cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02cc 822d       | -  |		Call	0x1,0x2d
02cd 01cc       |    |		Execute	Vector,Catenate
02ce e005       |    |		Load	0x0,0x5
02cf 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02d0 e5ff       |    |		Load	0x2,-0x1
02d1 0227       | '  |		Execute	Access,All_Reference
02d2 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 0227       | '  |		Execute	Access,All_Reference
02d5 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02d6 e004       |    |		Load	0x0,0x4
02d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d8 821c       |    |		Call	0x1,0x1c
02d9 0092 085d  |   ]|		Action	Push_String_Extended,0x85d					; "Snapshot_Started"
02db 01df       |    |		Execute	Vector,Equal
02dc 6816       |h   |		Jump_Zero	0x2f3
02dd e5ff       |    |		Load	0x2,-0x1
02de 0227       | '  |		Execute	Access,All_Reference
02df 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02e0 e004       |    |		Load	0x0,0x4
02e1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e2 821b       |    |		Call	0x1,0x1b
02e3 0092 0853  |   S|		Action	Push_String_Extended,0x853					; " "
02e5 01cc       |    |		Execute	Vector,Catenate
02e6 e5ff       |    |		Load	0x2,-0x1
02e7 0227       | '  |		Execute	Access,All_Reference
02e8 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02e9 e004       |    |		Load	0x0,0x4
02ea 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02eb 822d       | -  |		Call	0x1,0x2d
02ec 01cc       |    |		Execute	Vector,Catenate
02ed e005       |    |		Load	0x0,0x5
02ee 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02ef e5ff       |    |		Load	0x2,-0x1
02f0 0227       | '  |		Execute	Access,All_Reference
02f1 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02f2 7821       |x!  |		Jump	0x314
02f3 e5ff       |    |		Load	0x2,-0x1
02f4 0227       | '  |		Execute	Access,All_Reference
02f5 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
02f6 e004       |    |		Load	0x0,0x4
02f7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f8 821b       |    |		Call	0x1,0x1b
02f9 0092 085e  |   ^|		Action	Push_String_Extended,0x85e					; "System_Boot"
02fb 01df       |    |		Execute	Vector,Equal
02fc 6816       |h   |		Jump_Zero	0x313
02fd e5ff       |    |		Load	0x2,-0x1
02fe 0227       | '  |		Execute	Access,All_Reference
02ff 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0300 e004       |    |		Load	0x0,0x4
0301 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0302 821c       |    |		Call	0x1,0x1c
0303 0092 0853  |   S|		Action	Push_String_Extended,0x853					; " "
0305 01cc       |    |		Execute	Vector,Catenate
0306 e5ff       |    |		Load	0x2,-0x1
0307 0227       | '  |		Execute	Access,All_Reference
0308 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0309 e004       |    |		Load	0x0,0x4
030a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
030b 822d       | -  |		Call	0x1,0x2d
030c 01cc       |    |		Execute	Vector,Catenate
030d e005       |    |		Load	0x0,0x5
030e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
030f e5ff       |    |		Load	0x2,-0x1
0310 0227       | '  |		Execute	Access,All_Reference
0311 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0312 7801       |x   |		Jump	0x314
0313 8403       |    |		Call	0x2,0x3
0314 e5ff       |    |		Load	0x2,-0x1
0315 0227       | '  |		Execute	Access,All_Reference
0316 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0317 e227       | '  |		Load	0x1,0x27
0318 8229       | )  |		Call	0x1,0x29
0319 6802       |h   |		Jump_Zero	0x31c
031a 4950       |IP  |		Short_Literal	0x150
031b 0257       | W  |		Execute	Discrete,Raise
031c e5fe       |    |		Load	0x2,-0x2
031d e00b       |    |		Load	0x0,0xb
031e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
031f c5fe       |    |		Store	0x2,-0x2
0320 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0321			TRAP_0210:
0321 00d8       |    |		Load_Top	At_Offset_0
0322 0107       |    |		Execute	Exception,Get_Name
0323 4950       |IP  |		Short_Literal	0x150
0324 495f       |I_  |		Short_Literal	0x15f
0325 0262       | b  |		Execute	Discrete,In_Range
0326 6849       |hI  |		Jump_Zero	0x370
0327 e5ff       |    |		Load	0x2,-0x1
0328 0227       | '  |		Execute	Access,All_Reference
0329 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
032a 6809       |h   |		Jump_Zero	0x334
032b e5fe       |    |		Load	0x2,-0x2
032c 4802       |H   |		Short_Literal	0x2
032d 00ea       |    |		Load_Encached	Null_String_Cache
032e 0092 085f  |   _|		Action	Push_String_Extended,0x85f					; "End of log"
0330 e00b       |    |		Load	0x0,0xb
0331 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0332 c5fe       |    |		Store	0x2,-0x2
0333 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0334 e5ff       |    |		Load	0x2,-0x1
0335 0227       | '  |		Execute	Access,All_Reference
0336 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0337 e221       | !  |		Load	0x1,0x21
0338 027c       | |  |		Execute	Discrete,Less
0339 6828       |h(  |		Jump_Zero	0x362
033a e5ff       |    |		Load	0x2,-0x1
033b 0229       | )  |		Execute	Access,All_Read
033c 00d8       |    |		Load_Top	At_Offset_0
033d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
033e e003       |    |		Load	0x0,0x3
033f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0340 e405       |    |		Load	0x2,0x5
0341 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0342 00d1       |    |		Pop_Control	Pop_Count_1
0343 e5ff       |    |		Load	0x2,-0x1
0344 0227       | '  |		Execute	Access,All_Reference
0345 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0346 0a01       |    |		Execute_Immediate	Plus,0x1
0347 e5ff       |    |		Load	0x2,-0x1
0348 0227       | '  |		Execute	Access,All_Reference
0349 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
034a e5ff       |    |		Load	0x2,-0x1
034b 0229       | )  |		Execute	Access,All_Read
034c 00d8       |    |		Load_Top	At_Offset_0
034d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
034e 00ea       |    |		Load_Encached	Null_String_Cache
034f e5ff       |    |		Load	0x2,-0x1
0350 0227       | '  |		Execute	Access,All_Reference
0351 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0352 e225       | %  |		Load	0x1,0x25
0353 01d5       |    |		Execute	Vector,Field_Reference
0354 e004       |    |		Load	0x0,0x4
0355 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0356 4800       |H   |		Short_Literal	0x0
0357 e003       |    |		Load	0x0,0x3
0358 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0359 e405       |    |		Load	0x2,0x5
035a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
035b 00d1       |    |		Pop_Control	Pop_Count_1
035c e5fe       |    |		Load	0x2,-0x2
035d e5ff       |    |		Load	0x2,-0x1
035e 8210       |    |		Call	0x1,0x10
035f c5ff       |    |		Store	0x2,-0x1
0360 c5fe       |    |		Store	0x2,-0x2
0361 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0362 4801       |H   |		Short_Literal	0x1
0363 e5ff       |    |		Load	0x2,-0x1
0364 0227       | '  |		Execute	Access,All_Reference
0365 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0366 66a5       |f   |		Indirect_Literal	Discrete,0x20c,{0xffffffff, 0x80000001}
0367 e5ff       |    |		Load	0x2,-0x1
0368 0227       | '  |		Execute	Access,All_Reference
0369 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
036a e5fe       |    |		Load	0x2,-0x2
036b e5ff       |    |		Load	0x2,-0x1
036c 8210       |    |		Call	0x1,0x10
036d c5ff       |    |		Store	0x2,-0x1
036e c5fe       |    |		Store	0x2,-0x2
036f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0370 0100       |    |		Execute	Exception,Raise
0371 0000 0000  |    |		.BLANK	0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b e5ff       |    |		Load	0x2,-0x1
037c 0227       | '  |		Execute	Access,All_Reference
037d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
037e 6806       |h   |		Jump_Zero	0x385
037f e5ff       |    |		Load	0x2,-0x1
0380 0227       | '  |		Execute	Access,All_Reference
0381 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0382 6802       |h   |		Jump_Zero	0x385
0383 4801       |H   |		Short_Literal	0x1
0384 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0385 4800       |H   |		Short_Literal	0x0
0386 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0387 0000       |    |		.XXX[0x1]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b e5ff       |    |		Load	0x2,-0x1
038c 0227       | '  |		Execute	Access,All_Reference
038d 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
038e e004       |    |		Load	0x0,0x4
038f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0390 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0391 0000 0000  |    |		.BLANK	0000[0x7]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039e       |    |		.CONST	0x039e								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0002       |    |		.CONST	0x0002								; Number of locals
039b			INIT_0398:
039b e005       |    |		Load	0x0,0x5
039c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
039d 0322       | "  |		Declare_Variable	Record
039e			BODY_0398:
039e e5ff       |    |		Load	0x2,-0x1
039f 0227       | '  |		Execute	Access,All_Reference
03a0 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03a1 e004       |    |		Load	0x0,0x4
03a2 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03a3 0d0a       |    |		Execute_Immediate	Less,0xa
03a4 700c       |p   |		Jump_Nonzero	0x3b1
03a5 4801       |H   |		Short_Literal	0x1
03a6 480a       |H   |		Short_Literal	0xa
03a7 e5ff       |    |		Load	0x2,-0x1
03a8 0227       | '  |		Execute	Access,All_Reference
03a9 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03aa e004       |    |		Load	0x0,0x4
03ab 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ac 01cf       |    |		Execute	Vector,Slice_Read
03ad 0092 0860  |   `|		Action	Push_String_Extended,0x860					; "             "
03af 01df       |    |		Execute	Vector,Equal
03b0 6806       |h   |		Jump_Zero	0x3b7
03b1 e5ff       |    |		Load	0x2,-0x1
03b2 0227       | '  |		Execute	Access,All_Reference
03b3 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
03b4 0320       |    |		Declare_Variable	Record,Duplicate
03b5 00cd       |    |		Action	Spare6_Action
03b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b7 e5ff       |    |		Load	0x2,-0x1
03b8 0227       | '  |		Execute	Access,All_Reference
03b9 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03ba e004       |    |		Load	0x0,0x4
03bb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03bc 8219       |    |		Call	0x1,0x19
03bd e402       |    |		Load	0x2,0x2
03be 017d       | }  |		Execute	Record,Structure_Write
03bf e5ff       |    |		Load	0x2,-0x1
03c0 0227       | '  |		Execute	Access,All_Reference
03c1 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
03c2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03c3 e402       |    |		Load	0x2,0x2
03c4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03c5 e5ff       |    |		Load	0x2,-0x1
03c6 0227       | '  |		Execute	Access,All_Reference
03c7 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
03c8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03c9 e402       |    |		Load	0x2,0x2
03ca 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03cb e5ff       |    |		Load	0x2,-0x1
03cc 0227       | '  |		Execute	Access,All_Reference
03cd 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
03ce 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03cf e402       |    |		Load	0x2,0x2
03d0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03d1 00d8       |    |		Load_Top	At_Offset_0
03d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d3 0000 0000  |    |		.BLANK	0000[0x5]
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 821a       |    |		Call	0x1,0x1a
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 821b       |    |		Call	0x1,0x1b
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 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03fe e004       |    |		Load	0x0,0x4
03ff 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0400 821c       |    |		Call	0x1,0x1c
0401 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0402 0000 0000  |    |		.BLANK	0000[0x6]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b e5ff       |    |		Load	0x2,-0x1
040c 0227       | '  |		Execute	Access,All_Reference
040d 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
040e e004       |    |		Load	0x0,0x4
040f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0410 821d       |    |		Call	0x1,0x1d
0411 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0412 0000 0000  |    |		.BLANK	0000[0x6]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b e5ff       |    |		Load	0x2,-0x1
041c 0227       | '  |		Execute	Access,All_Reference
041d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
041e 6803       |h   |		Jump_Zero	0x422
041f 0092 0861  |   a|		Action	Push_String_Extended,0x861					; "[CURRENT LOG]"
0421 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0422 e5ff       |    |		Load	0x2,-0x1
0423 0227       | '  |		Execute	Access,All_Reference
0424 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0425 e225       | %  |		Load	0x1,0x25
0426 01d5       |    |		Execute	Vector,Field_Reference
0427 e004       |    |		Load	0x0,0x4
0428 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0429 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042a 0000 0000  |    |		.BLANK	0000[0x6]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 e5ff       |    |		Load	0x2,-0x1
0434 01dd       |    |		Execute	Vector,First
0435 e5ff       |    |		Load	0x2,-0x1
0436 01dd       |    |		Execute	Vector,First
0437 0a07       |    |		Execute_Immediate	Plus,0x7
0438 00d8       |    |		Load_Top	At_Offset_0
0439 00e2       |    |		Load_Encached	Integer_Cache
043a 0260       | `  |		Execute	Discrete,In_Type
043b 7001       |p   |		Jump_Nonzero	0x43d
043c 0801       |    |		Execute_Immediate	Raise,0x1
043d e5ff       |    |		Load	0x2,-0x1
043e 01cf       |    |		Execute	Vector,Slice_Read
043f e005       |    |		Load	0x0,0x5
0440 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0441 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0442 0000 0000  |    |		.BLANK	0000[0x6]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b e5ff       |    |		Load	0x2,-0x1
044c 01dc       |    |		Execute	Vector,Last
044d 0d0d       |    |		Execute_Immediate	Less,0xd
044e 6802       |h   |		Jump_Zero	0x451
044f 00ea       |    |		Load_Encached	Null_String_Cache
0450 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0451 e5ff       |    |		Load	0x2,-0x1
0452 01dd       |    |		Execute	Vector,First
0453 0a09       |    |		Execute_Immediate	Plus,0x9
0454 00d8       |    |		Load_Top	At_Offset_0
0455 00e2       |    |		Load_Encached	Integer_Cache
0456 0260       | `  |		Execute	Discrete,In_Type
0457 7001       |p   |		Jump_Nonzero	0x459
0458 0801       |    |		Execute_Immediate	Raise,0x1
0459 e5ff       |    |		Load	0x2,-0x1
045a 01dd       |    |		Execute	Vector,First
045b 0a0b       |    |		Execute_Immediate	Plus,0xb
045c 00d8       |    |		Load_Top	At_Offset_0
045d 00e2       |    |		Load_Encached	Integer_Cache
045e 0260       | `  |		Execute	Discrete,In_Type
045f 7001       |p   |		Jump_Nonzero	0x461
0460 0801       |    |		Execute_Immediate	Raise,0x1
0461 e5ff       |    |		Load	0x2,-0x1
0462 01cf       |    |		Execute	Vector,Slice_Read
0463 0335       | 5  |		Declare_Variable	Array,Duplicate
0464 00cd       |    |		Action	Spare6_Action
0465 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0466 0000 0000  |    |		.XXX[0x2]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046d       | m  |		.CONST	0x046d								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0002       |    |		.CONST	0x0002								; Number of locals
046b			INIT_0468:
046b 00e3       |    |		Load_Encached	Natural_Cache
046c 060d       |    |		Execute_Immediate	Set_Value_Unchecked,0xd
046d			BODY_0468:
046d e5ff       |    |		Load	0x2,-0x1
046e 01dc       |    |		Execute	Vector,Last
046f 0d0d       |    |		Execute_Immediate	Less,0xd
0470 6802       |h   |		Jump_Zero	0x473
0471 00ea       |    |		Load_Encached	Null_String_Cache
0472 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0473 4801       |H   |		Short_Literal	0x1
0474 480d       |H   |		Short_Literal	0xd
0475 e5ff       |    |		Load	0x2,-0x1
0476 01cf       |    |		Execute	Vector,Slice_Read
0477 0092 0860  |   `|		Action	Push_String_Extended,0x860					; "             "
0479 01df       |    |		Execute	Vector,Equal
047a 6802       |h   |		Jump_Zero	0x47d
047b 00ea       |    |		Load_Encached	Null_String_Cache
047c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047d 00cf       |    |		Action	Mark_Auxiliary
047e 7804       |x   |		Jump	0x483
047f e402       |    |		Load	0x2,0x2
0480 0a01       |    |		Execute_Immediate	Plus,0x1
0481 c402       |    |		Store	0x2,0x2
0482 00c9       |    |		Action	Pop_Auxiliary_Loop
0483 e402       |    |		Load	0x2,0x2
0484 e5ff       |    |		Load	0x2,-0x1
0485 01dc       |    |		Execute	Vector,Last
0486 027c       | |  |		Execute	Discrete,Less
0487 6808       |h   |		Jump_Zero	0x490
0488 e5ff       |    |		Load	0x2,-0x1
0489 01dd       |    |		Execute	Vector,First
048a e402       |    |		Load	0x2,0x2
048b 0273       | s  |		Execute	Discrete,Plus
048c e5ff       |    |		Load	0x2,-0x1
048d 01d7       |    |		Execute	Vector,Field_Read
048e 0e20       |    |		Execute_Immediate	Not_Equal,0x20
048f 77ef       |w   |		Jump_Nonzero	0x47f
0490 00ce       |    |		Action	Pop_Auxiliary
0491 e5ff       |    |		Load	0x2,-0x1
0492 01dd       |    |		Execute	Vector,First
0493 0a0d       |    |		Execute_Immediate	Plus,0xd
0494 00d8       |    |		Load_Top	At_Offset_0
0495 00e2       |    |		Load_Encached	Integer_Cache
0496 0260       | `  |		Execute	Discrete,In_Type
0497 7001       |p   |		Jump_Nonzero	0x499
0498 0801       |    |		Execute_Immediate	Raise,0x1
0499 e5ff       |    |		Load	0x2,-0x1
049a 01dd       |    |		Execute	Vector,First
049b e402       |    |		Load	0x2,0x2
049c 0273       | s  |		Execute	Discrete,Plus
049d 0aff       |    |		Execute_Immediate	Plus,-0x1
049e 00d8       |    |		Load_Top	At_Offset_0
049f 00e2       |    |		Load_Encached	Integer_Cache
04a0 0260       | `  |		Execute	Discrete,In_Type
04a1 7001       |p   |		Jump_Nonzero	0x4a3
04a2 0801       |    |		Execute_Immediate	Raise,0x1
04a3 e5ff       |    |		Load	0x2,-0x1
04a4 01cf       |    |		Execute	Vector,Slice_Read
04a5 0335       | 5  |		Declare_Variable	Array,Duplicate
04a6 00cd       |    |		Action	Spare6_Action
04a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ae       |    |		.CONST	0x04ae								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0003       |    |		.CONST	0x0003								; Number of locals
04ab			INIT_04a8:
04ab 00e3       |    |		Load_Encached	Natural_Cache
04ac 060d       |    |		Execute_Immediate	Set_Value_Unchecked,0xd
04ad 00e3       |    |		Load_Encached	Natural_Cache
04ae			BODY_04a8:
04ae e5ff       |    |		Load	0x2,-0x1
04af 01dc       |    |		Execute	Vector,Last
04b0 0d0d       |    |		Execute_Immediate	Less,0xd
04b1 6802       |h   |		Jump_Zero	0x4b4
04b2 00ea       |    |		Load_Encached	Null_String_Cache
04b3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b4 00cf       |    |		Action	Mark_Auxiliary
04b5 7804       |x   |		Jump	0x4ba
04b6 e402       |    |		Load	0x2,0x2
04b7 0a01       |    |		Execute_Immediate	Plus,0x1
04b8 c402       |    |		Store	0x2,0x2
04b9 00c9       |    |		Action	Pop_Auxiliary_Loop
04ba e402       |    |		Load	0x2,0x2
04bb e5ff       |    |		Load	0x2,-0x1
04bc 01dc       |    |		Execute	Vector,Last
04bd 027c       | |  |		Execute	Discrete,Less
04be 6808       |h   |		Jump_Zero	0x4c7
04bf e5ff       |    |		Load	0x2,-0x1
04c0 01dd       |    |		Execute	Vector,First
04c1 e402       |    |		Load	0x2,0x2
04c2 0273       | s  |		Execute	Discrete,Plus
04c3 e5ff       |    |		Load	0x2,-0x1
04c4 01d7       |    |		Execute	Vector,Field_Read
04c5 0e20       |    |		Execute_Immediate	Not_Equal,0x20
04c6 77ef       |w   |		Jump_Nonzero	0x4b6
04c7 00ce       |    |		Action	Pop_Auxiliary
04c8 e402       |    |		Load	0x2,0x2
04c9 0a01       |    |		Execute_Immediate	Plus,0x1
04ca c403       |    |		Store	0x2,0x3
04cb 00d8       |    |		Load_Top	At_Offset_0
04cc a402       |    |		Store_Unchecked	0x2,0x2
04cd 00cf       |    |		Action	Mark_Auxiliary
04ce 7804       |x   |		Jump	0x4d3
04cf e402       |    |		Load	0x2,0x2
04d0 0a01       |    |		Execute_Immediate	Plus,0x1
04d1 c402       |    |		Store	0x2,0x2
04d2 00c9       |    |		Action	Pop_Auxiliary_Loop
04d3 e402       |    |		Load	0x2,0x2
04d4 e5ff       |    |		Load	0x2,-0x1
04d5 01dc       |    |		Execute	Vector,Last
04d6 027c       | |  |		Execute	Discrete,Less
04d7 6810       |h   |		Jump_Zero	0x4e8
04d8 e5ff       |    |		Load	0x2,-0x1
04d9 01dd       |    |		Execute	Vector,First
04da e402       |    |		Load	0x2,0x2
04db 0273       | s  |		Execute	Discrete,Plus
04dc e5ff       |    |		Load	0x2,-0x1
04dd 01d7       |    |		Execute	Vector,Field_Read
04de 0e20       |    |		Execute_Immediate	Not_Equal,0x20
04df 6808       |h   |		Jump_Zero	0x4e8
04e0 e5ff       |    |		Load	0x2,-0x1
04e1 01dd       |    |		Execute	Vector,First
04e2 e402       |    |		Load	0x2,0x2
04e3 0273       | s  |		Execute	Discrete,Plus
04e4 e5ff       |    |		Load	0x2,-0x1
04e5 01d7       |    |		Execute	Vector,Field_Read
04e6 0e0a       |    |		Execute_Immediate	Not_Equal,0xa
04e7 77e7       |w   |		Jump_Nonzero	0x4cf
04e8 00ce       |    |		Action	Pop_Auxiliary
04e9 e5ff       |    |		Load	0x2,-0x1
04ea 01dd       |    |		Execute	Vector,First
04eb e403       |    |		Load	0x2,0x3
04ec 0273       | s  |		Execute	Discrete,Plus
04ed 00d8       |    |		Load_Top	At_Offset_0
04ee 00e2       |    |		Load_Encached	Integer_Cache
04ef 0260       | `  |		Execute	Discrete,In_Type
04f0 7001       |p   |		Jump_Nonzero	0x4f2
04f1 0801       |    |		Execute_Immediate	Raise,0x1
04f2 e5ff       |    |		Load	0x2,-0x1
04f3 01dd       |    |		Execute	Vector,First
04f4 e402       |    |		Load	0x2,0x2
04f5 0273       | s  |		Execute	Discrete,Plus
04f6 0aff       |    |		Execute_Immediate	Plus,-0x1
04f7 00d8       |    |		Load_Top	At_Offset_0
04f8 00e2       |    |		Load_Encached	Integer_Cache
04f9 0260       | `  |		Execute	Discrete,In_Type
04fa 7001       |p   |		Jump_Nonzero	0x4fc
04fb 0801       |    |		Execute_Immediate	Raise,0x1
04fc e5ff       |    |		Load	0x2,-0x1
04fd 01cf       |    |		Execute	Vector,Slice_Read
04fe 0335       | 5  |		Declare_Variable	Array,Duplicate
04ff 00cd       |    |		Action	Spare6_Action
0500 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0501 0000 0000  |    |		.BLANK	0000[0x7]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050d       |    |		.CONST	0x050d								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0002       |    |		.CONST	0x0002								; Number of locals
050b			INIT_0508:
050b 00e3       |    |		Load_Encached	Natural_Cache
050c 060d       |    |		Execute_Immediate	Set_Value_Unchecked,0xd
050d			BODY_0508:
050d e5ff       |    |		Load	0x2,-0x1
050e 01db       |    |		Execute	Vector,Length
050f 0d0d       |    |		Execute_Immediate	Less,0xd
0510 6802       |h   |		Jump_Zero	0x513
0511 00ea       |    |		Load_Encached	Null_String_Cache
0512 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0513 4801       |H   |		Short_Literal	0x1
0514 480d       |H   |		Short_Literal	0xd
0515 e5ff       |    |		Load	0x2,-0x1
0516 01cf       |    |		Execute	Vector,Slice_Read
0517 0092 0860  |   `|		Action	Push_String_Extended,0x860					; "             "
0519 01df       |    |		Execute	Vector,Equal
051a 6808       |h   |		Jump_Zero	0x523
051b 480e       |H   |		Short_Literal	0xe
051c e5ff       |    |		Load	0x2,-0x1
051d 01dc       |    |		Execute	Vector,Last
051e e5ff       |    |		Load	0x2,-0x1
051f 01cf       |    |		Execute	Vector,Slice_Read
0520 0335       | 5  |		Declare_Variable	Array,Duplicate
0521 00cd       |    |		Action	Spare6_Action
0522 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0523 00cf       |    |		Action	Mark_Auxiliary
0524 7804       |x   |		Jump	0x529
0525 e402       |    |		Load	0x2,0x2
0526 0a01       |    |		Execute_Immediate	Plus,0x1
0527 c402       |    |		Store	0x2,0x2
0528 00c9       |    |		Action	Pop_Auxiliary_Loop
0529 e402       |    |		Load	0x2,0x2
052a e5ff       |    |		Load	0x2,-0x1
052b 01dc       |    |		Execute	Vector,Last
052c 027c       | |  |		Execute	Discrete,Less
052d 6808       |h   |		Jump_Zero	0x536
052e e5ff       |    |		Load	0x2,-0x1
052f 01dd       |    |		Execute	Vector,First
0530 e402       |    |		Load	0x2,0x2
0531 0273       | s  |		Execute	Discrete,Plus
0532 e5ff       |    |		Load	0x2,-0x1
0533 01d7       |    |		Execute	Vector,Field_Read
0534 0e20       |    |		Execute_Immediate	Not_Equal,0x20
0535 77ef       |w   |		Jump_Nonzero	0x525
0536 00ce       |    |		Action	Pop_Auxiliary
0537 00d8       |    |		Load_Top	At_Offset_0
0538 0a01       |    |		Execute_Immediate	Plus,0x1
0539 c402       |    |		Store	0x2,0x2
053a 00cf       |    |		Action	Mark_Auxiliary
053b 7804       |x   |		Jump	0x540
053c e402       |    |		Load	0x2,0x2
053d 0a01       |    |		Execute_Immediate	Plus,0x1
053e c402       |    |		Store	0x2,0x2
053f 00c9       |    |		Action	Pop_Auxiliary_Loop
0540 e402       |    |		Load	0x2,0x2
0541 e5ff       |    |		Load	0x2,-0x1
0542 01dc       |    |		Execute	Vector,Last
0543 027c       | |  |		Execute	Discrete,Less
0544 6808       |h   |		Jump_Zero	0x54d
0545 e5ff       |    |		Load	0x2,-0x1
0546 01dd       |    |		Execute	Vector,First
0547 e402       |    |		Load	0x2,0x2
0548 0273       | s  |		Execute	Discrete,Plus
0549 e5ff       |    |		Load	0x2,-0x1
054a 01d7       |    |		Execute	Vector,Field_Read
054b 0e20       |    |		Execute_Immediate	Not_Equal,0x20
054c 77ef       |w   |		Jump_Nonzero	0x53c
054d 00ce       |    |		Action	Pop_Auxiliary
054e e5ff       |    |		Load	0x2,-0x1
054f 01dd       |    |		Execute	Vector,First
0550 e402       |    |		Load	0x2,0x2
0551 0273       | s  |		Execute	Discrete,Plus
0552 0a01       |    |		Execute_Immediate	Plus,0x1
0553 00d8       |    |		Load_Top	At_Offset_0
0554 00e2       |    |		Load_Encached	Integer_Cache
0555 0260       | `  |		Execute	Discrete,In_Type
0556 7001       |p   |		Jump_Nonzero	0x558
0557 0801       |    |		Execute_Immediate	Raise,0x1
0558 e5ff       |    |		Load	0x2,-0x1
0559 01dc       |    |		Execute	Vector,Last
055a e5ff       |    |		Load	0x2,-0x1
055b 01cf       |    |		Execute	Vector,Slice_Read
055c 0335       | 5  |		Declare_Variable	Array,Duplicate
055d 00cd       |    |		Action	Spare6_Action
055e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055f 0000       |    |		.XXX[0x1]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563       | c  |		.CONST	0x0563								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0001       |    |		.CONST	0x0001								; Number of locals
0563			BODY_0560:
0563			INIT_0560:
0563 e221       | !  |		Load	0x1,0x21
0564 00ca       |    |		Action	Exit_Nullary_Function
0565 0000 0000  |    |		.XXX[0x3]
0567 0000       |    |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 4601       |F   |		Jump_Case	0x2
056c 7801       |x   |		Jump	0x56e								; case 0x0
056d 7819       |x   |		Jump	0x587								; case 0x1
056e e5ff       |    |		Load	0x2,-0x1
056f 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0570 0125       | %  |		Execute	Any,Set_Constraint
0571 e5ff       |    |		Load	0x2,-0x1
0572 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0573 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0574 e5ff       |    |		Load	0x2,-0x1
0575 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0576 0125       | %  |		Execute	Any,Set_Constraint
0577 e5ff       |    |		Load	0x2,-0x1
0578 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0579 1c00       |    |		Execute_Immediate	Run_Utility,0x0
057a e5ff       |    |		Load	0x2,-0x1
057b 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
057c 0125       | %  |		Execute	Any,Set_Constraint
057d e5ff       |    |		Load	0x2,-0x1
057e 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
057f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0580 e5ff       |    |		Load	0x2,-0x1
0581 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0582 0125       | %  |		Execute	Any,Set_Constraint
0583 e5ff       |    |		Load	0x2,-0x1
0584 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0585 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0586 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0587 e5ff       |    |		Load	0x2,-0x1
0588 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0589 0125       | %  |		Execute	Any,Set_Constraint
058a e5ff       |    |		Load	0x2,-0x1
058b 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
058c 0125       | %  |		Execute	Any,Set_Constraint
058d e5ff       |    |		Load	0x2,-0x1
058e 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
058f 0125       | %  |		Execute	Any,Set_Constraint
0590 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0591 0000 0000  |    |		.BLANK	0000[0x7]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b       |    |		.CONST	0x059b								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0001       |    |		.CONST	0x0001								; Number of locals
059b			BODY_0598:
059b			INIT_0598:
059b 4605       |F   |		Jump_Case	0x6
059c 7804       |x   |		Jump	0x5a1								; case 0x0
059d 7819       |x   |		Jump	0x5b7								; case 0x1
059e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
059f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
05a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
05a1 e5ff       |    |		Load	0x2,-0x1							; case 0x5
05a2 01d8       |    |		Execute	Vector,Element_Type
05a3 02ff       |    |		Declare_Variable	Variant_Record
05a4 00d8       |    |		Load_Top	At_Offset_0
05a5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05a6 e5ff       |    |		Load	0x2,-0x1
05a7 01dc       |    |		Execute	Vector,Last
05a8 e5ff       |    |		Load	0x2,-0x1
05a9 01dd       |    |		Execute	Vector,First
05aa 0263       | c  |		Execute	Discrete,Above_Bound
05ab 700a       |p   |		Jump_Nonzero	0x5b6
05ac 00d8       |    |		Load_Top	At_Offset_0
05ad e5ff       |    |		Load	0x2,-0x1
05ae 01d5       |    |		Execute	Vector,Field_Reference
05af 0125       | %  |		Execute	Any,Set_Constraint
05b0 e402       |    |		Load	0x2,0x2
05b1 e404       |    |		Load	0x2,0x4
05b2 e5ff       |    |		Load	0x2,-0x1
05b3 01d6       |    |		Execute	Vector,Field_Write
05b4 0a01       |    |		Execute_Immediate	Plus,0x1
05b5 7ff4       |    |		Jump	0x5aa
05b6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05b7 e5ff       |    |		Load	0x2,-0x1
05b8 01dc       |    |		Execute	Vector,Last
05b9 e5ff       |    |		Load	0x2,-0x1
05ba 01dd       |    |		Execute	Vector,First
05bb 0263       | c  |		Execute	Discrete,Above_Bound
05bc 7006       |p   |		Jump_Nonzero	0x5c3
05bd 00d8       |    |		Load_Top	At_Offset_0
05be e5ff       |    |		Load	0x2,-0x1
05bf 01d5       |    |		Execute	Vector,Field_Reference
05c0 0125       | %  |		Execute	Any,Set_Constraint
05c1 0a01       |    |		Execute_Immediate	Plus,0x1
05c2 7ff8       |    |		Jump	0x5bb
05c3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05c4 0000 0000  |    |		.BLANK	0000[0x4]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb       |    |		.CONST	0x05cb								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0001       |    |		.CONST	0x0001								; Number of locals
05cb			BODY_05c8:
05cb			INIT_05c8:
05cb 4802       |H   |		Short_Literal	0x2
05cc 4800       |H   |		Short_Literal	0x0
05cd 4803       |H   |		Short_Literal	0x3
05ce e5ff       |    |		Load	0x2,-0x1
05cf e005       |    |		Load	0x0,0x5
05d0 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05d1 4802       |H   |		Short_Literal	0x2
05d2 4800       |H   |		Short_Literal	0x0
05d3 4803       |H   |		Short_Literal	0x3
05d4 e5fe       |    |		Load	0x2,-0x2
05d5 e005       |    |		Load	0x0,0x5
05d6 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05d7 01c1       |    |		Execute	Vector,Less
05d8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05d9 0000 0000  |    |		.BLANK	0000[0x7]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 4802       |H   |		Short_Literal	0x2
05e4 4800       |H   |		Short_Literal	0x0
05e5 4803       |H   |		Short_Literal	0x3
05e6 e5ff       |    |		Load	0x2,-0x1
05e7 e005       |    |		Load	0x0,0x5
05e8 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05e9 4802       |H   |		Short_Literal	0x2
05ea 4800       |H   |		Short_Literal	0x0
05eb 4803       |H   |		Short_Literal	0x3
05ec e5fe       |    |		Load	0x2,-0x2
05ed e005       |    |		Load	0x0,0x5
05ee 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05ef 01df       |    |		Execute	Vector,Equal
05f0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05f1 0000 0000  |    |		.BLANK	0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb e5ff       |    |		Load	0x2,-0x1
05fc 01db       |    |		Execute	Vector,Length
05fd 0d41       | A  |		Execute_Immediate	Less,0x41
05fe 6802       |h   |		Jump_Zero	0x601
05ff e5ff       |    |		Load	0x2,-0x1
0600 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0601 e5ff       |    |		Load	0x2,-0x1
0602 01dd       |    |		Execute	Vector,First
0603 e5ff       |    |		Load	0x2,-0x1
0604 01dd       |    |		Execute	Vector,First
0605 0a3c       | <  |		Execute_Immediate	Plus,0x3c
0606 00d8       |    |		Load_Top	At_Offset_0
0607 00e2       |    |		Load_Encached	Integer_Cache
0608 0260       | `  |		Execute	Discrete,In_Type
0609 7001       |p   |		Jump_Nonzero	0x60b
060a 0801       |    |		Execute_Immediate	Raise,0x1
060b e5ff       |    |		Load	0x2,-0x1
060c 01cf       |    |		Execute	Vector,Slice_Read
060d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
060e 0000 0000  |    |		.XXX[0x2]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 e5ff       |    |		Load	0x2,-0x1
0614 7003       |p   |		Jump_Nonzero	0x618
0615 0092 0862  |   b|		Action	Push_String_Extended,0x862					; "<null iterator>"
0617 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0618 e5ff       |    |		Load	0x2,-0x1
0619 0227       | '  |		Execute	Access,All_Reference
061a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
061b 680a       |h   |		Jump_Zero	0x626
061c 0092 0863  |   c|		Action	Push_String_Extended,0x863					; "Current log; entry: "
061e e5ff       |    |		Load	0x2,-0x1
061f 0227       | '  |		Execute	Access,All_Reference
0620 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0621 e004       |    |		Load	0x0,0x4
0622 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0623 822b       | +  |		Call	0x1,0x2b
0624 01cc       |    |		Execute	Vector,Catenate
0625 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0626 480a       |H   |		Short_Literal	0xa
0627 0092 0864  |   d|		Action	Push_String_Extended,0x864					; "File: "
0629 e5ff       |    |		Load	0x2,-0x1
062a 0227       | '  |		Execute	Access,All_Reference
062b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
062c e225       | %  |		Load	0x1,0x25
062d 01d5       |    |		Execute	Vector,Field_Reference
062e e004       |    |		Load	0x0,0x4
062f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0630 01cc       |    |		Execute	Vector,Catenate
0631 01cb       |    |		Execute	Vector,Append
0632 0092 0865  |   e|		Action	Push_String_Extended,0x865					; "      Entry: "
0634 01cc       |    |		Execute	Vector,Catenate
0635 e5ff       |    |		Load	0x2,-0x1
0636 0227       | '  |		Execute	Access,All_Reference
0637 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0638 e004       |    |		Load	0x0,0x4
0639 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
063a 822b       | +  |		Call	0x1,0x2b
063b 01cc       |    |		Execute	Vector,Catenate
063c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
063d 0000 0000  |    |		.XXX[0x3]
063f 0000       |    |
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643       | C  |		.CONST	0x0643								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0001       |    |		.CONST	0x0001								; Number of locals
0643			BODY_0640:
0643			INIT_0640:
0643 e5ff       |    |		Load	0x2,-0x1
0644 01dd       |    |		Execute	Vector,First
0645 e5ff       |    |		Load	0x2,-0x1
0646 01dd       |    |		Execute	Vector,First
0647 0a07       |    |		Execute_Immediate	Plus,0x7
0648 00d8       |    |		Load_Top	At_Offset_0
0649 00e2       |    |		Load_Encached	Integer_Cache
064a 0260       | `  |		Execute	Discrete,In_Type
064b 7001       |p   |		Jump_Nonzero	0x64d
064c 0801       |    |		Execute_Immediate	Raise,0x1
064d e5ff       |    |		Load	0x2,-0x1
064e 01cf       |    |		Execute	Vector,Slice_Read
064f 0335       | 5  |		Declare_Variable	Array,Duplicate
0650 00cd       |    |		Action	Spare6_Action
0651 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0652 0000 0000  |    |		.BLANK	0000[0x6]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 0663       | c  |		.CONST	0x0663								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0004       |    |		.CONST	0x0004								; Number of locals
065b			INIT_0658:
065b 00e1       |    |		Load_Encached	Boolean_Cache
065c e002       |    |		Load	0x0,0x2
065d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
065e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
065f e002       |    |		Load	0x0,0x2
0660 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0661 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0662 0337       | 7  |		Declare_Variable	Array
0663			BODY_0658:
0663 e222       | "  |		Load	0x1,0x22
0664 683c       |h<  |		Jump_Zero	0x6a1
0665 e5ff       |    |		Load	0x2,-0x1
0666 0227       | '  |		Execute	Access,All_Reference
0667 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0668 603f       |`?  |		Indirect_Literal	Discrete,0x6a8,{0xffffffff, 0x80000001}
0669 027f       |    |		Execute	Discrete,Equal
066a 6810       |h   |		Jump_Zero	0x67b
066b e5ff       |    |		Load	0x2,-0x1
066c 0229       | )  |		Execute	Access,All_Read
066d e404       |    |		Load	0x2,0x4
066e e002       |    |		Load	0x0,0x2
066f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0670 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0671 00e1       |    |		Load_Encached	Boolean_Cache
0672 4804       |H   |		Short_Literal	0x4
0673 6034       |`4  |		Indirect_Literal	Discrete,0x6a8,{0xffffffff, 0x80000001}
0674 e002       |    |		Load	0x0,0x2
0675 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0676 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0677 c402       |    |		Store	0x2,0x2
0678 e405       |    |		Load	0x2,0x5
0679 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
067a 00d2       |    |		Pop_Control	Pop_Count_2
067b e402       |    |		Load	0x2,0x2
067c 6824       |h$  |		Jump_Zero	0x6a1
067d 00cf       |    |		Action	Mark_Auxiliary
067e e404       |    |		Load	0x2,0x4
067f e002       |    |		Load	0x0,0x2
0680 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0681 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0682 00e1       |    |		Load_Encached	Boolean_Cache
0683 4802       |H   |		Short_Literal	0x2
0684 e5ff       |    |		Load	0x2,-0x1
0685 0227       | '  |		Execute	Access,All_Reference
0686 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0687 e002       |    |		Load	0x0,0x2
0688 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0689 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
068a c402       |    |		Store	0x2,0x2
068b c403       |    |		Store	0x2,0x3
068c 00d1       |    |		Pop_Control	Pop_Count_1
068d e402       |    |		Load	0x2,0x2
068e 6811       |h   |		Jump_Zero	0x6a0
068f e403       |    |		Load	0x2,0x3
0690 0a01       |    |		Execute_Immediate	Plus,0x1
0691 e5ff       |    |		Load	0x2,-0x1
0692 0227       | '  |		Execute	Access,All_Reference
0693 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0694 4801       |H   |		Short_Literal	0x1
0695 e404       |    |		Load	0x2,0x4
0696 01d7       |    |		Execute	Vector,Field_Read
0697 0e7f       |    |		Execute_Immediate	Not_Equal,0x7f
0698 6805       |h   |		Jump_Zero	0x69e
0699 4820       |H   |		Short_Literal	0x20
069a e404       |    |		Load	0x2,0x4
069b e008       |    |		Load	0x0,0x8
069c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
069d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
069e 00c9       |    |		Action	Pop_Auxiliary_Loop
069f 7fde       |    |		Jump	0x67e
06a0 00ce       |    |		Action	Pop_Auxiliary
06a1 4801       |H   |		Short_Literal	0x1
06a2 e5ff       |    |		Load	0x2,-0x1
06a3 0227       | '  |		Execute	Access,All_Reference
06a4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
06a5 4950       |IP  |		Short_Literal	0x150
06a6 0257       | W  |		Execute	Discrete,Raise
06a7 0000       |    |		.XXX[0x1]
06a8 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
06ac 0000 0000  |    |		.BLANK	0000[0x4]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06e4       |    |		.CONST	0x06e4								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 000a       |    |		.CONST	0x000a								; Number of locals
06b3			INIT_06b0:
06b3 e007       |    |		Load	0x0,0x7
06b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06b5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
06b6 02c7       |    |		Declare_Variable	Any
06b7 00d8       |    |		Load_Top	At_Offset_0
06b8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06b9 e007       |    |		Load	0x0,0x7
06ba 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06bb 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
06bc 02c7       |    |		Declare_Variable	Any
06bd e007       |    |		Load	0x0,0x7
06be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06bf 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
06c0 a603       |    |		Store_Unchecked	0x3,0x3
06c1 00e1       |    |		Load_Encached	Boolean_Cache
06c2 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
06c3 e007       |    |		Load	0x0,0x7
06c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06c6 02c7       |    |		Declare_Variable	Any
06c7 e007       |    |		Load	0x0,0x7
06c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06c9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06ca a605       |    |		Store_Unchecked	0x3,0x5
06cb e007       |    |		Load	0x0,0x7
06cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06ce 02c7       |    |		Declare_Variable	Any
06cf e007       |    |		Load	0x0,0x7
06d0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06d1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06d2 a606       |    |		Store_Unchecked	0x3,0x6
06d3 e007       |    |		Load	0x0,0x7
06d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06d5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06d6 02c7       |    |		Declare_Variable	Any
06d7 e007       |    |		Load	0x0,0x7
06d8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06d9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06da a607       |    |		Store_Unchecked	0x3,0x7
06db e007       |    |		Load	0x0,0x7
06dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06de 02c7       |    |		Declare_Variable	Any
06df 00d8       |    |		Load_Top	At_Offset_0
06e0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06e1 00e1       |    |		Load_Encached	Boolean_Cache
06e2 029f 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Call
06e4			BODY_06b0:
06e4 4801       |H   |		Short_Literal	0x1
06e5 e007       |    |		Load	0x0,0x7
06e6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06e7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06e8 e7ff       |    |		Load	0x3,-0x1
06e9 e007       |    |		Load	0x0,0x7
06ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06eb 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
06ec c602       |    |		Store	0x3,0x2
06ed 00cf       |    |		Action	Mark_Auxiliary
06ee 784d       |xM  |		Jump	0x73c
06ef e7fe       |    |		Load	0x3,-0x2
06f0 e005       |    |		Load	0x0,0x5
06f1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06f2 e602       |    |		Load	0x3,0x2
06f3 e007       |    |		Load	0x0,0x7
06f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06f5 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
06f6 860a       |    |		Call	0x3,0xa
06f7 8229       | )  |		Call	0x1,0x29
06f8 6801       |h   |		Jump_Zero	0x6fa
06f9 7837       |x7  |		Jump	0x731
06fa e602       |    |		Load	0x3,0x2
06fb e007       |    |		Load	0x0,0x7
06fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06fd 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
06fe 860a       |    |		Call	0x3,0xa
06ff e7fd       |    |		Load	0x3,-0x3
0700 e005       |    |		Load	0x0,0x5
0701 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0702 8229       | )  |		Call	0x1,0x29
0703 680d       |h   |		Jump_Zero	0x711
0704 e607       |    |		Load	0x3,0x7
0705 e007       |    |		Load	0x0,0x7
0706 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0707 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0708 7008       |p   |		Jump_Nonzero	0x711
0709 e607       |    |		Load	0x3,0x7
070a 860a       |    |		Call	0x3,0xa
070b e7fd       |    |		Load	0x3,-0x3
070c e005       |    |		Load	0x0,0x5
070d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
070e 8229       | )  |		Call	0x1,0x29
070f 6801       |h   |		Jump_Zero	0x711
0710 7820       |x   |		Jump	0x731
0711 e604       |    |		Load	0x3,0x4
0712 e605       |    |		Load	0x3,0x5
0713 e007       |    |		Load	0x0,0x7
0714 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0715 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0716 0f00       |    |		Execute_Immediate	Equal,0x0
0717 0279       | y  |		Execute	Discrete,And
0718 6804       |h   |		Jump_Zero	0x71d
0719 e605       |    |		Load	0x3,0x5
071a 860a       |    |		Call	0x3,0xa
071b e228       | (  |		Load	0x1,0x28
071c 017d       | }  |		Execute	Record,Structure_Write
071d 4800       |H   |		Short_Literal	0x0
071e a604       |    |		Store_Unchecked	0x3,0x4
071f e602       |    |		Load	0x3,0x2
0720 e007       |    |		Load	0x0,0x7
0721 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0722 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0723 c607       |    |		Store	0x3,0x7
0724 00e1       |    |		Load_Encached	Boolean_Cache
0725 e007       |    |		Load	0x0,0x7
0726 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0727 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0728 e602       |    |		Load	0x3,0x2
0729 e007       |    |		Load	0x0,0x7
072a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
072b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
072c e603       |    |		Load	0x3,0x3
072d e007       |    |		Load	0x0,0x7
072e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
072f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0730 c609       |    |		Store	0x3,0x9
0731 e602       |    |		Load	0x3,0x2
0732 e007       |    |		Load	0x0,0x7
0733 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0734 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0735 c605       |    |		Store	0x3,0x5
0736 e602       |    |		Load	0x3,0x2
0737 e007       |    |		Load	0x0,0x7
0738 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0739 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
073a c602       |    |		Store	0x3,0x2
073b 00c9       |    |		Action	Pop_Auxiliary_Loop
073c e602       |    |		Load	0x3,0x2
073d e007       |    |		Load	0x0,0x7
073e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
073f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0740 6fae       |o   |		Jump_Zero	0x6ef
0741 00ce       |    |		Action	Pop_Auxiliary
0742 e603       |    |		Load	0x3,0x3
0743 e007       |    |		Load	0x0,0x7
0744 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0745 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0746 e603       |    |		Load	0x3,0x3
0747 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b       | K  |		.CONST	0x074b								; Address of begin
0749 0004       |    |		.CONST	0x0004								; Address of exception handler
074a 0001       |    |		.CONST	0x0001								; Number of locals
074b			BODY_0748:
074b			INIT_0748:
074b e7ff       |    |		Load	0x3,-0x1
074c e004       |    |		Load	0x0,0x4
074d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
074e e007       |    |		Load	0x0,0x7
074f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0750 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0751 01dd       |    |		Execute	Vector,First
0752 0a04       |    |		Execute_Immediate	Plus,0x4
0753 00d8       |    |		Load_Top	At_Offset_0
0754 00e2       |    |		Load_Encached	Integer_Cache
0755 0260       | `  |		Execute	Discrete,In_Type
0756 7001       |p   |		Jump_Nonzero	0x758
0757 0801       |    |		Execute_Immediate	Raise,0x1
0758 e7ff       |    |		Load	0x3,-0x1
0759 e004       |    |		Load	0x0,0x4
075a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
075b e007       |    |		Load	0x0,0x7
075c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
075d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
075e 01dd       |    |		Execute	Vector,First
075f 0a0b       |    |		Execute_Immediate	Plus,0xb
0760 00d8       |    |		Load_Top	At_Offset_0
0761 00e2       |    |		Load_Encached	Integer_Cache
0762 0260       | `  |		Execute	Discrete,In_Type
0763 7001       |p   |		Jump_Nonzero	0x765
0764 0801       |    |		Execute_Immediate	Raise,0x1
0765 e7ff       |    |		Load	0x3,-0x1
0766 e004       |    |		Load	0x0,0x4
0767 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0768 e007       |    |		Load	0x0,0x7
0769 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
076a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
076b 01cf       |    |		Execute	Vector,Slice_Read
076c 0092 0853  |   S|		Action	Push_String_Extended,0x853					; " "
076e 01cc       |    |		Execute	Vector,Catenate
076f e7ff       |    |		Load	0x3,-0x1
0770 e004       |    |		Load	0x0,0x4
0771 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0772 e007       |    |		Load	0x0,0x7
0773 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0774 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0775 01dd       |    |		Execute	Vector,First
0776 0a10       |    |		Execute_Immediate	Plus,0x10
0777 00d8       |    |		Load_Top	At_Offset_0
0778 00e2       |    |		Load_Encached	Integer_Cache
0779 0260       | `  |		Execute	Discrete,In_Type
077a 7001       |p   |		Jump_Nonzero	0x77c
077b 0801       |    |		Execute_Immediate	Raise,0x1
077c e7ff       |    |		Load	0x3,-0x1
077d e004       |    |		Load	0x0,0x4
077e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
077f e007       |    |		Load	0x0,0x7
0780 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0781 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0782 01dd       |    |		Execute	Vector,First
0783 0a17       |    |		Execute_Immediate	Plus,0x17
0784 00d8       |    |		Load_Top	At_Offset_0
0785 00e2       |    |		Load_Encached	Integer_Cache
0786 0260       | `  |		Execute	Discrete,In_Type
0787 7001       |p   |		Jump_Nonzero	0x789
0788 0801       |    |		Execute_Immediate	Raise,0x1
0789 e7ff       |    |		Load	0x3,-0x1
078a e004       |    |		Load	0x0,0x4
078b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
078c e007       |    |		Load	0x0,0x7
078d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
078e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
078f 01cf       |    |		Execute	Vector,Slice_Read
0790 01cc       |    |		Execute	Vector,Catenate
0791 e005       |    |		Load	0x0,0x5
0792 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0793 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0794 0000 0000  |    |		.BLANK	0000[0x4]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079d       |    |		.CONST	0x079d								; Address of begin
0799 07dc       |    |		.CONST	0x07dc								; Address of exception handler
079a 0002       |    |		.CONST	0x0002								; Number of locals
079b			INIT_0798:
079b 029f 082b  |   +|		Declare_Subprogram	INIT_0828,For_Call
079d			BODY_0798:
079d 4800       |H   |		Short_Literal	0x0
079e a402       |    |		Store_Unchecked	0x2,0x2
079f 00cf       |    |		Action	Mark_Auxiliary
07a0 e5ff       |    |		Load	0x2,-0x1
07a1 0227       | '  |		Execute	Access,All_Reference
07a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07a3 680a       |h   |		Jump_Zero	0x7ae
07a4 e5ff       |    |		Load	0x2,-0x1
07a5 0229       | )  |		Execute	Access,All_Read
07a6 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
07a7 00d8       |    |		Load_Top	At_Offset_0
07a8 e5ff       |    |		Load	0x2,-0x1
07a9 822e       | .  |		Call	0x1,0x2e
07aa e004       |    |		Load	0x0,0x4
07ab 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07ac 00d2       |    |		Pop_Control	Pop_Count_2
07ad 780c       |x   |		Jump	0x7ba
07ae e5ff       |    |		Load	0x2,-0x1
07af 0229       | )  |		Execute	Access,All_Read
07b0 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
07b1 00d8       |    |		Load_Top	At_Offset_0
07b2 e5ff       |    |		Load	0x2,-0x1
07b3 0227       | '  |		Execute	Access,All_Reference
07b4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
07b5 e003       |    |		Load	0x0,0x3
07b6 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
07b7 e004       |    |		Load	0x0,0x4
07b8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07b9 00d2       |    |		Pop_Control	Pop_Count_2
07ba e5ff       |    |		Load	0x2,-0x1
07bb 0227       | '  |		Execute	Access,All_Reference
07bc 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
07bd e004       |    |		Load	0x0,0x4
07be 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
07bf 0c0b       |    |		Execute_Immediate	Greater_Equal,0xb
07c0 6818       |h   |		Jump_Zero	0x7d9
07c1 4809       |H   |		Short_Literal	0x9
07c2 4801       |H   |		Short_Literal	0x1
07c3 e5ff       |    |		Load	0x2,-0x1
07c4 0227       | '  |		Execute	Access,All_Reference
07c5 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
07c6 e004       |    |		Load	0x0,0x4
07c7 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
07c8 0092 0866  |   f|		Action	Push_String_Extended,0x866					; "         "
07ca 01df       |    |		Execute	Vector,Equal
07cb 680d       |h   |		Jump_Zero	0x7d9
07cc e402       |    |		Load	0x2,0x2
07cd 7001       |p   |		Jump_Nonzero	0x7cf
07ce 8602       |    |		Call	0x3,0x2
07cf e5ff       |    |		Load	0x2,-0x1
07d0 0229       | )  |		Execute	Access,All_Read
07d1 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
07d2 00d8       |    |		Load_Top	At_Offset_0
07d3 4820       |H   |		Short_Literal	0x20
07d4 4800       |H   |		Short_Literal	0x0
07d5 e004       |    |		Load	0x0,0x4
07d6 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
07d7 00d2       |    |		Pop_Control	Pop_Count_2
07d8 7801       |x   |		Jump	0x7da
07d9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07da 00c9       |    |		Action	Pop_Auxiliary_Loop
07db 7fc4       |    |		Jump	0x7a0
07dc			TRAP_0798:
07dc 00d8       |    |		Load_Top	At_Offset_0
07dd 0107       |    |		Execute	Exception,Get_Name
07de 4950       |IP  |		Short_Literal	0x150
07df 495f       |I_  |		Short_Literal	0x15f
07e0 0262       | b  |		Execute	Discrete,In_Range
07e1 6801       |h   |		Jump_Zero	0x7e3
07e2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07e3 0100       |    |		Execute	Exception,Raise
07e4 0000 0000  |    |		.BLANK	0000[0x4]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb       |    |		.CONST	0x07eb								; Address of begin
07e9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ea 0001       |    |		.CONST	0x0001								; Number of locals
07eb			BODY_07e8:
07eb			INIT_07e8:
07eb e9ff       |    |		Load	0x4,-0x1
07ec e007       |    |		Load	0x0,0x7
07ed 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07ee 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07ef 01dd       |    |		Execute	Vector,First
07f0 0a04       |    |		Execute_Immediate	Plus,0x4
07f1 00d8       |    |		Load_Top	At_Offset_0
07f2 00e2       |    |		Load_Encached	Integer_Cache
07f3 0260       | `  |		Execute	Discrete,In_Type
07f4 7001       |p   |		Jump_Nonzero	0x7f6
07f5 0801       |    |		Execute_Immediate	Raise,0x1
07f6 e9ff       |    |		Load	0x4,-0x1
07f7 e007       |    |		Load	0x0,0x7
07f8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07f9 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07fa 01dd       |    |		Execute	Vector,First
07fb 0a0b       |    |		Execute_Immediate	Plus,0xb
07fc 00d8       |    |		Load_Top	At_Offset_0
07fd 00e2       |    |		Load_Encached	Integer_Cache
07fe 0260       | `  |		Execute	Discrete,In_Type
07ff 7001       |p   |		Jump_Nonzero	0x801
0800 0801       |    |		Execute_Immediate	Raise,0x1
0801 e9ff       |    |		Load	0x4,-0x1
0802 e007       |    |		Load	0x0,0x7
0803 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0804 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0805 01cf       |    |		Execute	Vector,Slice_Read
0806 0092 0853  |   S|		Action	Push_String_Extended,0x853					; " "
0808 01cc       |    |		Execute	Vector,Catenate
0809 e9ff       |    |		Load	0x4,-0x1
080a e007       |    |		Load	0x0,0x7
080b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
080c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
080d 01dd       |    |		Execute	Vector,First
080e 0a10       |    |		Execute_Immediate	Plus,0x10
080f 00d8       |    |		Load_Top	At_Offset_0
0810 00e2       |    |		Load_Encached	Integer_Cache
0811 0260       | `  |		Execute	Discrete,In_Type
0812 7001       |p   |		Jump_Nonzero	0x814
0813 0801       |    |		Execute_Immediate	Raise,0x1
0814 e9ff       |    |		Load	0x4,-0x1
0815 e007       |    |		Load	0x0,0x7
0816 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0817 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0818 01dd       |    |		Execute	Vector,First
0819 0a17       |    |		Execute_Immediate	Plus,0x17
081a 00d8       |    |		Load_Top	At_Offset_0
081b 00e2       |    |		Load_Encached	Integer_Cache
081c 0260       | `  |		Execute	Discrete,In_Type
081d 7001       |p   |		Jump_Nonzero	0x81f
081e 0801       |    |		Execute_Immediate	Raise,0x1
081f e9ff       |    |		Load	0x4,-0x1
0820 e007       |    |		Load	0x0,0x7
0821 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0822 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0823 01cf       |    |		Execute	Vector,Slice_Read
0824 01cc       |    |		Execute	Vector,Catenate
0825 e005       |    |		Load	0x0,0x5
0826 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0827 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b       | +  |		.CONST	0x082b								; Address of begin
0829 083f       | ?  |		.CONST	0x083f								; Address of exception handler
082a 0001       |    |		.CONST	0x0001								; Number of locals
082b			BODY_0828:
082b			INIT_0828:
082b e5ff       |    |		Load	0x2,-0x1
082c 0229       | )  |		Execute	Access,All_Read
082d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
082e 00d8       |    |		Load_Top	At_Offset_0
082f 480a       |H   |		Short_Literal	0xa
0830 e5ff       |    |		Load	0x2,-0x1
0831 0227       | '  |		Execute	Access,All_Reference
0832 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0833 e004       |    |		Load	0x0,0x4
0834 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0835 480a       |H   |		Short_Literal	0xa
0836 e5ff       |    |		Load	0x2,-0x1
0837 0227       | '  |		Execute	Access,All_Reference
0838 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0839 e004       |    |		Load	0x0,0x4
083a 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
083b 01ca       |    |		Execute	Vector,Prepend
083c e004       |    |		Load	0x0,0x4
083d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
083e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
083f			TRAP_0828:
083f 010e       |    |		Execute	Exception,Is_Constraint_Error
0840 6811       |h   |		Jump_Zero	0x852
0841 e009       |    |		Load	0x0,0x9
0842 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0843 4802       |H   |		Short_Literal	0x2
0844 0092 0867  |   g|		Action	Push_String_Extended,0x867					; "Log entry too long."
0846 e00a       |    |		Load	0x0,0xa
0847 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0848 e009       |    |		Load	0x0,0x9
0849 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
084a 4802       |H   |		Short_Literal	0x2
084b e5ff       |    |		Load	0x2,-0x1
084c 822c       | ,  |		Call	0x1,0x2c
084d e00a       |    |		Load	0x0,0xa
084e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
084f 4801       |H   |		Short_Literal	0x1
0850 a402       |    |		Store_Unchecked	0x2,0x2
0851 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0852 0100       |    |		Execute	Exception,Raise
0853 ; --------------------------------------------------------------------------------------
0853 ; STRING TABLE
0853 ; --------------------------------------------------------------------------------------
0853 002c       | ,  |		.STRTAB	0x002c->0x0869							; " "
0854 002b       | +  |		.STRTAB	0x002b->0x0869							; "00:00:01"
0855 0031       | 1  |		.STRTAB	0x0031->0x086d							; "23:59:59"
0856 0037       | 7  |		.STRTAB	0x0037->0x0871							; "!machine.error_logs"
0857 0048       | H  |		.STRTAB	0x0048->0x087b							; ".log@_at_@"
0858 0050       | P  |		.STRTAB	0x0050->0x0880							; "Too many log files.  Maximum is  250. Extra files will not be processed."
0859 0096       |    |		.STRTAB	0x0096->0x08a4							; "No log files within specified dates in: "
085a 00bc       |    |		.STRTAB	0x00bc->0x08b8							; "Log files can't be opened"
085b 00d3       |    |		.STRTAB	0x00d3->0x08c4							; "00"
085c 00d3       |    |		.STRTAB	0x00d3->0x08c5							; "23"
085d 00d3       |    |		.STRTAB	0x00d3->0x08c6							; "Snapshot_Started"
085e 00e1       |    |		.STRTAB	0x00e1->0x08ce							; "System_Boot"
085f 00ea       |    |		.STRTAB	0x00ea->0x08d4							; "End of log"
0860 00f2       |    |		.STRTAB	0x00f2->0x08d9							; "             "
0861 00fd       |    |		.STRTAB	0x00fd->0x08df							; "[CURRENT LOG]"
0862 0108       |    |		.STRTAB	0x0108->0x08e6							; "<null iterator>"
0863 0115       |    |		.STRTAB	0x0115->0x08ed							; "Current log; entry: "
0864 0127       | '  |		.STRTAB	0x0127->0x08f7							; "File: "
0865 012b       | +  |		.STRTAB	0x012b->0x08fa							; "      Entry: "
0866 0136       | 6  |		.STRTAB	0x0136->0x0901							; "         "
0867 013d       | =  |		.STRTAB	0x013d->0x0905							; "Log entry too long."
0868 014e       | N  |		.STREND 0x014e->0x090f
0869 2030 303a  | 00:|		.STRTAB_STRINGS
090f 0000       |    |		.XXX[0x1]
0910 ; --------------------------------------------------------------------------------------
0910 ; Debug Table
0910 ; --------------------------------------------------------------------------------------
0910 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0xa92d,0x0000,0x0001,0x0000
0916 0000 0000  |    |		.BLANK	0000[0xea]