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

⟦570c526f4⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe

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 0708       |    |		.CONST	0x0708								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b9       |    |		.CONST	0x00b9								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002d       | -  |		.CONST	0x002d								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0025 c221       | !  |		Store	0x1,0x21
0026 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0028 c224       | $  |		Store	0x1,0x24
0029 4818       |H   |		Short_Literal	0x18
002a 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
002b c20d       |    |		Store	0x1,0xd
002c 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
002e c21d       |    |		Store	0x1,0x1d
002f 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0031 c21e       |    |		Store	0x1,0x1e
0032 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0034 c211       |    |		Store	0x1,0x11
0035 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0037 c212       |    |		Store	0x1,0x12
0038 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
003a c213       |    |		Store	0x1,0x13
003b 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
003d c21f       |    |		Store	0x1,0x1f
003e 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0040 c214       |    |		Store	0x1,0x14
0041 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
0043 c215       |    |		Store	0x1,0x15
0044 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0046 c216       |    |		Store	0x1,0x16
0047 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0049 c217       |    |		Store	0x1,0x17
004a 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
004c c218       |    |		Store	0x1,0x18
004d 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
004f c220       |    |		Store	0x1,0x20
0050 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0052 c219       |    |		Store	0x1,0x19
0053 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
0055 c21a       |    |		Store	0x1,0x1a
0056 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
0058 c21b       |    |		Store	0x1,0x1b
0059 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
005b c222       | "  |		Store	0x1,0x22
005c 4808       |H   |		Short_Literal	0x8
005d 032a       | *  |		Declare_Type	Record,Incomplete
005e c21c       |    |		Store	0x1,0x1c
005f e21c       |    |		Load	0x1,0x1c
0060 02a0       |    |		Declare_Subprogram	Null_Subprogram
0061 e20d       |    |		Load	0x1,0xd
0062 03c7       |    |		Complete_Type	Access,By_Defining
0063 00bf       |    |		Action	Accept_Activation
0064 00e1       |    |		Load_Encached	Boolean_Cache
0065 00e1       |    |		Load_Encached	Boolean_Cache
0066 e001       |    |		Load	0x0,0x1
0067 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0068 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0069 00e3       |    |		Load_Encached	Natural_Cache
006a e002       |    |		Load	0x0,0x2
006b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006c 605f       |`_  |		Indirect_Literal	Discrete,0xcc,{0x00000000, 0x00002710}
006d e003       |    |		Load	0x0,0x3
006e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006f 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0070 605b       |`[  |		Indirect_Literal	Discrete,0xcc,{0x00000000, 0x00002710}
0071 e003       |    |		Load	0x0,0x3
0072 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0073 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0074 e004       |    |		Load	0x0,0x4
0075 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0076 029f 044b  |   K|		Declare_Subprogram	INIT_0448,For_Call
0078 e21c       |    |		Load	0x1,0x1c
0079 0326       | &  |		Complete_Type	Record,By_Defining
007a 00e3       |    |		Load_Encached	Natural_Cache
007b 00e1       |    |		Load_Encached	Boolean_Cache
007c 4882       |H   |		Short_Literal	0x82
007d e003       |    |		Load	0x0,0x3
007e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
007f 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0080 4801       |H   |		Short_Literal	0x1
0081 48fa       |H   |		Short_Literal	0xfa
0082 e227       | '  |		Load	0x1,0x27
0083 029f 0473  |   s|		Declare_Subprogram	INIT_0470,For_Call
0085 4801       |H   |		Short_Literal	0x1
0086 035d       | ]  |		Declare_Type	Array,Defined
0087 00d8       |    |		Load_Top	At_Offset_0
0088 0337       | 7  |		Declare_Variable	Array
0089 00d8       |    |		Load_Top	At_Offset_0
008a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008b 029d 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call
008d 029d 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call
008f 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 029b 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call,Unelaborated
0097 029d 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call
0099 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9			BODY_0008:
00b9 00bc       |    |		Action	Signal_Activated
00ba 00bb       |    |		Action	Signal_Completion
00bb 0000 0000  |    |		.BLANK	0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 e5ff       |    |		Load	0x2,-0x1
00c4 e005       |    |		Load	0x0,0x5
00c5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00c6 e004       |    |		Load	0x0,0x4
00c7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00c8 e004       |    |		Load	0x0,0x4
00c9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00ca 8224       | $  |		Call	0x1,0x24
00cb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002710}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00db       |    |		.CONST	0x00db								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0003       |    |		.CONST	0x0003								; Number of locals
00d3			INIT_00d0:
00d3 e006       |    |		Load	0x0,0x6
00d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
00d6 02c7       |    |		Declare_Variable	Any
00d7 00d8       |    |		Load_Top	At_Offset_0
00d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d9 029f 055b  |   [|		Declare_Subprogram	INIT_0558,For_Call
00db			BODY_00d0:
00db 4801       |H   |		Short_Literal	0x1
00dc 0092 0653  |   S|		Action	Push_String_Extended,0x653					; "!machine.error_logs"
00de e5fd       |    |		Load	0x2,-0x3
00df e007       |    |		Load	0x0,0x7
00e0 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00e1 a226       | &  |		Store_Unchecked	0x1,0x26
00e2 e5fe       |    |		Load	0x2,-0x2
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 e5fd       |    |		Load	0x2,-0x3
00e5 0092 0654  |   T|		Action	Push_String_Extended,0x654					; ".log@_at_@"
00e7 01cc       |    |		Execute	Vector,Catenate
00e8 8403       |    |		Call	0x2,0x3
00e9 c402       |    |		Store	0x2,0x2
00ea 4800       |H   |		Short_Literal	0x0
00eb a225       | %  |		Store_Unchecked	0x1,0x25
00ec 00cf       |    |		Action	Mark_Auxiliary
00ed 7822       |x"  |		Jump	0x110
00ee e225       | %  |		Load	0x1,0x25
00ef 0cfa       |    |		Execute_Immediate	Greater_Equal,-0x6
00f0 6808       |h   |		Jump_Zero	0xf9
00f1 e008       |    |		Load	0x0,0x8
00f2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f3 4806       |H   |		Short_Literal	0x6
00f4 0092 0655  |   U|		Action	Push_String_Extended,0x655					; "Too many log files.  Maximum is  250. Extra files will not be processed."
00f6 e009       |    |		Load	0x0,0x9
00f7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f8 781c       |x   |		Jump	0x115
00f9 e225       | %  |		Load	0x1,0x25
00fa 0a01       |    |		Execute_Immediate	Plus,0x1
00fb c225       | %  |		Store	0x1,0x25
00fc e225       | %  |		Load	0x1,0x25
00fd e229       | )  |		Load	0x1,0x29
00fe 01d5       |    |		Execute	Vector,Field_Reference
00ff 00d8       |    |		Load_Top	At_Offset_0
0100 e402       |    |		Load	0x2,0x2
0101 e006       |    |		Load	0x0,0x6
0102 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0103 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0104 e006       |    |		Load	0x0,0x6
0105 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0106 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0107 e003       |    |		Load	0x0,0x3
0108 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0109 00d2       |    |		Pop_Control	Pop_Count_2
010a e402       |    |		Load	0x2,0x2
010b e006       |    |		Load	0x0,0x6
010c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
010e c402       |    |		Store	0x2,0x2
010f 00c9       |    |		Action	Pop_Auxiliary_Loop
0110 e402       |    |		Load	0x2,0x2
0111 e006       |    |		Load	0x0,0x6
0112 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0113 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0114 6fd9       |o   |		Jump_Zero	0xee
0115 00ce       |    |		Action	Pop_Auxiliary
0116 e225       | %  |		Load	0x1,0x25
0117 7009       |p   |		Jump_Nonzero	0x121
0118 e008       |    |		Load	0x0,0x8
0119 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011a 4806       |H   |		Short_Literal	0x6
011b 0092 0656  |   V|		Action	Push_String_Extended,0x656					; "No log files within specified dates in: "
011d e5fd       |    |		Load	0x2,-0x3
011e 01cc       |    |		Execute	Vector,Catenate
011f e009       |    |		Load	0x0,0x9
0120 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0121 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0122 0000 0000  |    |		.BLANK	0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d       | -  |		.CONST	0x012d								; Address of begin
0129 0160       | `  |		.CONST	0x0160								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b e20d       |    |		Load	0x1,0xd
012c 0007       |    |		Action	Break_Optional
012d			BODY_0128:
012d e20d       |    |		Load	0x1,0xd
012e 03bc       |    |		Declare_Variable	Access,By_Allocation
012f 00d8       |    |		Load_Top	At_Offset_0
0130 0227       | '  |		Execute	Access,All_Reference
0131 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0132 a402       |    |		Store_Unchecked	0x2,0x2
0133 4800       |H   |		Short_Literal	0x0
0134 e402       |    |		Load	0x2,0x2
0135 0227       | '  |		Execute	Access,All_Reference
0136 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0137 4800       |H   |		Short_Literal	0x0
0138 e402       |    |		Load	0x2,0x2
0139 0227       | '  |		Execute	Access,All_Reference
013a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
013b 6040       |`@  |		Indirect_Literal	Discrete,0x17c,{0xffffffff, 0x80000001}
013c e402       |    |		Load	0x2,0x2
013d 0227       | '  |		Execute	Access,All_Reference
013e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
013f 4801       |H   |		Short_Literal	0x1
0140 e402       |    |		Load	0x2,0x2
0141 0227       | '  |		Execute	Access,All_Reference
0142 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0143 e004       |    |		Load	0x0,0x4
0144 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0145 e402       |    |		Load	0x2,0x2
0146 0227       | '  |		Execute	Access,All_Reference
0147 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0148 00d8       |    |		Load_Top	At_Offset_0
0149 0229       | )  |		Execute	Access,All_Read
014a 00d8       |    |		Load_Top	At_Offset_0
014b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
014c 00ea       |    |		Load_Encached	Null_String_Cache
014d 4801       |H   |		Short_Literal	0x1
014e e229       | )  |		Load	0x1,0x29
014f 01d5       |    |		Execute	Vector,Field_Reference
0150 e003       |    |		Load	0x0,0x3
0151 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0152 4800       |H   |		Short_Literal	0x0
0153 e002       |    |		Load	0x0,0x2
0154 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0155 e403       |    |		Load	0x2,0x3
0156 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0157 00d1       |    |		Pop_Control	Pop_Count_1
0158 e5fe       |    |		Load	0x2,-0x2
0159 e402       |    |		Load	0x2,0x2
015a 821e       |    |		Call	0x1,0x1e
015b c402       |    |		Store	0x2,0x2
015c c5fe       |    |		Store	0x2,-0x2
015d 00d8       |    |		Load_Top	At_Offset_0
015e a5ff       |    |		Store_Unchecked	0x2,-0x1
015f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0160			TRAP_0128:
0160 00d8       |    |		Load_Top	At_Offset_0
0161 0107       |    |		Execute	Exception,Get_Name
0162 4920       |I   |		Short_Literal	0x120
0163 492f       |I/  |		Short_Literal	0x12f
0164 0262       | b  |		Execute	Discrete,In_Range
0165 6814       |h   |		Jump_Zero	0x17a
0166 e5fe       |    |		Load	0x2,-0x2
0167 4801       |H   |		Short_Literal	0x1
0168 00ea       |    |		Load_Encached	Null_String_Cache
0169 0092 0657  |   W|		Action	Push_String_Extended,0x657					; "Log files can't be opened"
016b e00a       |    |		Load	0x0,0xa
016c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
016d c5fe       |    |		Store	0x2,-0x2
016e 4801       |H   |		Short_Literal	0x1
016f e402       |    |		Load	0x2,0x2
0170 0227       | '  |		Execute	Access,All_Reference
0171 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0172 e5fe       |    |		Load	0x2,-0x2
0173 e402       |    |		Load	0x2,0x2
0174 821e       |    |		Call	0x1,0x1e
0175 c402       |    |		Store	0x2,0x2
0176 c5fe       |    |		Store	0x2,-0x2
0177 e402       |    |		Load	0x2,0x2
0178 a5ff       |    |		Store_Unchecked	0x2,-0x1
0179 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017a 0100       |    |		Execute	Exception,Raise
017b 0000       |    |		.XXX[0x1]
017c ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0187       |    |		.CONST	0x0187								; Address of begin
0181 0201       |    |		.CONST	0x0201								; Address of exception handler
0182 0003       |    |		.CONST	0x0003								; Number of locals
0183			INIT_0180:
0183 00e1       |    |		Load_Encached	Boolean_Cache
0184 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0185 029f 05db  |    |		Declare_Subprogram	INIT_05d8,For_Call
0187			BODY_0180:
0187 e5ff       |    |		Load	0x2,-0x1
0188 0227       | '  |		Execute	Access,All_Reference
0189 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
018a e003       |    |		Load	0x0,0x3
018b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
018c 701b       |p   |		Jump_Nonzero	0x1a8
018d e5ff       |    |		Load	0x2,-0x1
018e 0227       | '  |		Execute	Access,All_Reference
018f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0190 680a       |h   |		Jump_Zero	0x19b
0191 e5ff       |    |		Load	0x2,-0x1
0192 0229       | )  |		Execute	Access,All_Read
0193 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0194 00d8       |    |		Load_Top	At_Offset_0
0195 e5ff       |    |		Load	0x2,-0x1
0196 822d       | -  |		Call	0x1,0x2d
0197 e003       |    |		Load	0x0,0x3
0198 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0199 00d2       |    |		Pop_Control	Pop_Count_2
019a 7820       |x   |		Jump	0x1bb
019b e5ff       |    |		Load	0x2,-0x1
019c 0229       | )  |		Execute	Access,All_Read
019d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
019e 00d8       |    |		Load_Top	At_Offset_0
019f e5ff       |    |		Load	0x2,-0x1
01a0 0227       | '  |		Execute	Access,All_Reference
01a1 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01a2 e002       |    |		Load	0x0,0x2
01a3 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01a4 e003       |    |		Load	0x0,0x3
01a5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a6 00d2       |    |		Pop_Control	Pop_Count_2
01a7 7813       |x   |		Jump	0x1bb
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 0229       | )  |		Execute	Access,All_Read
01aa 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01ab 00d8       |    |		Load_Top	At_Offset_0
01ac e5ff       |    |		Load	0x2,-0x1
01ad 0227       | '  |		Execute	Access,All_Reference
01ae 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
01af e003       |    |		Load	0x0,0x3
01b0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01b1 00d2       |    |		Pop_Control	Pop_Count_2
01b2 e5ff       |    |		Load	0x2,-0x1
01b3 0229       | )  |		Execute	Access,All_Read
01b4 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 4820       |H   |		Short_Literal	0x20
01b7 4800       |H   |		Short_Literal	0x0
01b8 e003       |    |		Load	0x0,0x3
01b9 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
01ba 00d2       |    |		Pop_Control	Pop_Count_2
01bb e5ff       |    |		Load	0x2,-0x1
01bc 0227       | '  |		Execute	Access,All_Reference
01bd 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
01be e003       |    |		Load	0x0,0x3
01bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01c0 821a       |    |		Call	0x1,0x1a
01c1 0092 0658  |   X|		Action	Push_String_Extended,0x658					; "Snapshot_Started"
01c3 01df       |    |		Execute	Vector,Equal
01c4 6816       |h   |		Jump_Zero	0x1db
01c5 e5ff       |    |		Load	0x2,-0x1
01c6 0227       | '  |		Execute	Access,All_Reference
01c7 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
01c8 e003       |    |		Load	0x0,0x3
01c9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ca 8219       |    |		Call	0x1,0x19
01cb 0092 0659  |   Y|		Action	Push_String_Extended,0x659					; " "
01cd 01cc       |    |		Execute	Vector,Catenate
01ce e5ff       |    |		Load	0x2,-0x1
01cf 0227       | '  |		Execute	Access,All_Reference
01d0 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
01d1 e003       |    |		Load	0x0,0x3
01d2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d3 822c       | ,  |		Call	0x1,0x2c
01d4 01cc       |    |		Execute	Vector,Catenate
01d5 e004       |    |		Load	0x0,0x4
01d6 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01d7 e5ff       |    |		Load	0x2,-0x1
01d8 0227       | '  |		Execute	Access,All_Reference
01d9 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01da 7821       |x!  |		Jump	0x1fc
01db e5ff       |    |		Load	0x2,-0x1
01dc 0227       | '  |		Execute	Access,All_Reference
01dd 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
01de e003       |    |		Load	0x0,0x3
01df 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01e0 8219       |    |		Call	0x1,0x19
01e1 0092 065a  |   Z|		Action	Push_String_Extended,0x65a					; "System_Boot"
01e3 01df       |    |		Execute	Vector,Equal
01e4 6816       |h   |		Jump_Zero	0x1fb
01e5 e5ff       |    |		Load	0x2,-0x1
01e6 0227       | '  |		Execute	Access,All_Reference
01e7 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
01e8 e003       |    |		Load	0x0,0x3
01e9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ea 821a       |    |		Call	0x1,0x1a
01eb 0092 0659  |   Y|		Action	Push_String_Extended,0x659					; " "
01ed 01cc       |    |		Execute	Vector,Catenate
01ee e5ff       |    |		Load	0x2,-0x1
01ef 0227       | '  |		Execute	Access,All_Reference
01f0 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
01f1 e003       |    |		Load	0x0,0x3
01f2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f3 822c       | ,  |		Call	0x1,0x2c
01f4 01cc       |    |		Execute	Vector,Catenate
01f5 e004       |    |		Load	0x0,0x4
01f6 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01f7 e5ff       |    |		Load	0x2,-0x1
01f8 0227       | '  |		Execute	Access,All_Reference
01f9 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01fa 7801       |x   |		Jump	0x1fc
01fb 8403       |    |		Call	0x2,0x3
01fc e5fe       |    |		Load	0x2,-0x2
01fd e00a       |    |		Load	0x0,0xa
01fe 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ff c5fe       |    |		Store	0x2,-0x2
0200 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0201			TRAP_0180:
0201 00d8       |    |		Load_Top	At_Offset_0
0202 0107       |    |		Execute	Exception,Get_Name
0203 4950       |IP  |		Short_Literal	0x150
0204 495f       |I_  |		Short_Literal	0x15f
0205 0262       | b  |		Execute	Discrete,In_Range
0206 6849       |hI  |		Jump_Zero	0x250
0207 e5ff       |    |		Load	0x2,-0x1
0208 0227       | '  |		Execute	Access,All_Reference
0209 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
020a 6809       |h   |		Jump_Zero	0x214
020b e5fe       |    |		Load	0x2,-0x2
020c 4802       |H   |		Short_Literal	0x2
020d 00ea       |    |		Load_Encached	Null_String_Cache
020e 0092 065b  |   [|		Action	Push_String_Extended,0x65b					; "End of log"
0210 e00a       |    |		Load	0x0,0xa
0211 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0212 c5fe       |    |		Store	0x2,-0x2
0213 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0214 e5ff       |    |		Load	0x2,-0x1
0215 0227       | '  |		Execute	Access,All_Reference
0216 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0217 e225       | %  |		Load	0x1,0x25
0218 027c       | |  |		Execute	Discrete,Less
0219 6828       |h(  |		Jump_Zero	0x242
021a e5ff       |    |		Load	0x2,-0x1
021b 0229       | )  |		Execute	Access,All_Read
021c 00d8       |    |		Load_Top	At_Offset_0
021d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
021e e002       |    |		Load	0x0,0x2
021f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0220 e405       |    |		Load	0x2,0x5
0221 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0222 00d1       |    |		Pop_Control	Pop_Count_1
0223 e5ff       |    |		Load	0x2,-0x1
0224 0227       | '  |		Execute	Access,All_Reference
0225 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0226 0a01       |    |		Execute_Immediate	Plus,0x1
0227 e5ff       |    |		Load	0x2,-0x1
0228 0227       | '  |		Execute	Access,All_Reference
0229 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
022a e5ff       |    |		Load	0x2,-0x1
022b 0229       | )  |		Execute	Access,All_Read
022c 00d8       |    |		Load_Top	At_Offset_0
022d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
022e 00ea       |    |		Load_Encached	Null_String_Cache
022f e5ff       |    |		Load	0x2,-0x1
0230 0227       | '  |		Execute	Access,All_Reference
0231 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0232 e229       | )  |		Load	0x1,0x29
0233 01d5       |    |		Execute	Vector,Field_Reference
0234 e003       |    |		Load	0x0,0x3
0235 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0236 4800       |H   |		Short_Literal	0x0
0237 e002       |    |		Load	0x0,0x2
0238 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0239 e405       |    |		Load	0x2,0x5
023a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
023b 00d1       |    |		Pop_Control	Pop_Count_1
023c e5fe       |    |		Load	0x2,-0x2
023d e5ff       |    |		Load	0x2,-0x1
023e 821e       |    |		Call	0x1,0x1e
023f c5ff       |    |		Store	0x2,-0x1
0240 c5fe       |    |		Store	0x2,-0x2
0241 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0242 4801       |H   |		Short_Literal	0x1
0243 e5ff       |    |		Load	0x2,-0x1
0244 0227       | '  |		Execute	Access,All_Reference
0245 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0246 6735       |g5  |		Indirect_Literal	Discrete,0x17c,{0xffffffff, 0x80000001}
0247 e5ff       |    |		Load	0x2,-0x1
0248 0227       | '  |		Execute	Access,All_Reference
0249 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
024a e5fe       |    |		Load	0x2,-0x2
024b e5ff       |    |		Load	0x2,-0x1
024c 821e       |    |		Call	0x1,0x1e
024d c5ff       |    |		Store	0x2,-0x1
024e c5fe       |    |		Store	0x2,-0x2
024f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0250 0100       |    |		Execute	Exception,Raise
0251 0000 0000  |    |		.BLANK	0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b e5ff       |    |		Load	0x2,-0x1
025c 0227       | '  |		Execute	Access,All_Reference
025d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
025e 6806       |h   |		Jump_Zero	0x265
025f e5ff       |    |		Load	0x2,-0x1
0260 0227       | '  |		Execute	Access,All_Reference
0261 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0262 6802       |h   |		Jump_Zero	0x265
0263 4801       |H   |		Short_Literal	0x1
0264 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0265 4800       |H   |		Short_Literal	0x0
0266 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0267 0000       |    |		.XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b e5ff       |    |		Load	0x2,-0x1
026c 0227       | '  |		Execute	Access,All_Reference
026d 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
026e e003       |    |		Load	0x0,0x3
026f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0270 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0271 0000 0000  |    |		.BLANK	0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027e       | ~  |		.CONST	0x027e								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b e004       |    |		Load	0x0,0x4
027c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
027d 0322       | "  |		Declare_Variable	Record
027e			BODY_0278:
027e e5ff       |    |		Load	0x2,-0x1
027f 0227       | '  |		Execute	Access,All_Reference
0280 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0281 e003       |    |		Load	0x0,0x3
0282 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0283 0d0a       |    |		Execute_Immediate	Less,0xa
0284 700c       |p   |		Jump_Nonzero	0x291
0285 4801       |H   |		Short_Literal	0x1
0286 480a       |H   |		Short_Literal	0xa
0287 e5ff       |    |		Load	0x2,-0x1
0288 0227       | '  |		Execute	Access,All_Reference
0289 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
028a e003       |    |		Load	0x0,0x3
028b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
028c 01cf       |    |		Execute	Vector,Slice_Read
028d 0092 065c  |   \|		Action	Push_String_Extended,0x65c					; "             "
028f 01df       |    |		Execute	Vector,Equal
0290 6806       |h   |		Jump_Zero	0x297
0291 e5ff       |    |		Load	0x2,-0x1
0292 0227       | '  |		Execute	Access,All_Reference
0293 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0294 0320       |    |		Declare_Variable	Record,Duplicate
0295 00cd       |    |		Action	Spare6_Action
0296 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0297 e5ff       |    |		Load	0x2,-0x1
0298 0227       | '  |		Execute	Access,All_Reference
0299 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
029a e003       |    |		Load	0x0,0x3
029b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
029c 8218       |    |		Call	0x1,0x18
029d e402       |    |		Load	0x2,0x2
029e 017d       | }  |		Execute	Record,Structure_Write
029f e5ff       |    |		Load	0x2,-0x1
02a0 0227       | '  |		Execute	Access,All_Reference
02a1 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a3 e402       |    |		Load	0x2,0x2
02a4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02a5 e5ff       |    |		Load	0x2,-0x1
02a6 0227       | '  |		Execute	Access,All_Reference
02a7 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02a8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a9 e402       |    |		Load	0x2,0x2
02aa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ab e5ff       |    |		Load	0x2,-0x1
02ac 0227       | '  |		Execute	Access,All_Reference
02ad 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02ae 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02af e402       |    |		Load	0x2,0x2
02b0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02b1 00d8       |    |		Load_Top	At_Offset_0
02b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b3 0000 0000  |    |		.BLANK	0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb e5ff       |    |		Load	0x2,-0x1
02bc 0227       | '  |		Execute	Access,All_Reference
02bd 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02be e003       |    |		Load	0x0,0x3
02bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02c0 8220       |    |		Call	0x1,0x20
02c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c2 0000 0000  |    |		.BLANK	0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb e5ff       |    |		Load	0x2,-0x1
02cc 0227       | '  |		Execute	Access,All_Reference
02cd 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02ce e003       |    |		Load	0x0,0x3
02cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d0 8219       |    |		Call	0x1,0x19
02d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d2 0000 0000  |    |		.BLANK	0000[0x6]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db e5ff       |    |		Load	0x2,-0x1
02dc 0227       | '  |		Execute	Access,All_Reference
02dd 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02de e003       |    |		Load	0x0,0x3
02df 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e0 821a       |    |		Call	0x1,0x1a
02e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e2 0000 0000  |    |		.BLANK	0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb e5ff       |    |		Load	0x2,-0x1
02ec 0227       | '  |		Execute	Access,All_Reference
02ed 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02ee e003       |    |		Load	0x0,0x3
02ef 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f0 821b       |    |		Call	0x1,0x1b
02f1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f2 0000 0000  |    |		.BLANK	0000[0x6]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb e5ff       |    |		Load	0x2,-0x1
02fc 0227       | '  |		Execute	Access,All_Reference
02fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02fe 6803       |h   |		Jump_Zero	0x302
02ff 0092 065d  |   ]|		Action	Push_String_Extended,0x65d					; "[CURRENT LOG]"
0301 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0302 e5ff       |    |		Load	0x2,-0x1
0303 0227       | '  |		Execute	Access,All_Reference
0304 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0305 e229       | )  |		Load	0x1,0x29
0306 01d5       |    |		Execute	Vector,Field_Reference
0307 e003       |    |		Load	0x0,0x3
0308 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0309 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030a 0000 0000  |    |		.BLANK	0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 e5ff       |    |		Load	0x2,-0x1
0314 01dd       |    |		Execute	Vector,First
0315 e5ff       |    |		Load	0x2,-0x1
0316 01dd       |    |		Execute	Vector,First
0317 0a07       |    |		Execute_Immediate	Plus,0x7
0318 00d8       |    |		Load_Top	At_Offset_0
0319 00e2       |    |		Load_Encached	Integer_Cache
031a 0260       | `  |		Execute	Discrete,In_Type
031b 7001       |p   |		Jump_Nonzero	0x31d
031c 0801       |    |		Execute_Immediate	Raise,0x1
031d e5ff       |    |		Load	0x2,-0x1
031e 01cf       |    |		Execute	Vector,Slice_Read
031f e004       |    |		Load	0x0,0x4
0320 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0321 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0322 0000 0000  |    |		.BLANK	0000[0x6]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b e5ff       |    |		Load	0x2,-0x1
032c 01dc       |    |		Execute	Vector,Last
032d 0d0d       |    |		Execute_Immediate	Less,0xd
032e 6802       |h   |		Jump_Zero	0x331
032f 00ea       |    |		Load_Encached	Null_String_Cache
0330 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0331 e5ff       |    |		Load	0x2,-0x1
0332 01dd       |    |		Execute	Vector,First
0333 0a09       |    |		Execute_Immediate	Plus,0x9
0334 00d8       |    |		Load_Top	At_Offset_0
0335 00e2       |    |		Load_Encached	Integer_Cache
0336 0260       | `  |		Execute	Discrete,In_Type
0337 7001       |p   |		Jump_Nonzero	0x339
0338 0801       |    |		Execute_Immediate	Raise,0x1
0339 e5ff       |    |		Load	0x2,-0x1
033a 01dd       |    |		Execute	Vector,First
033b 0a0b       |    |		Execute_Immediate	Plus,0xb
033c 00d8       |    |		Load_Top	At_Offset_0
033d 00e2       |    |		Load_Encached	Integer_Cache
033e 0260       | `  |		Execute	Discrete,In_Type
033f 7001       |p   |		Jump_Nonzero	0x341
0340 0801       |    |		Execute_Immediate	Raise,0x1
0341 e5ff       |    |		Load	0x2,-0x1
0342 01cf       |    |		Execute	Vector,Slice_Read
0343 0335       | 5  |		Declare_Variable	Array,Duplicate
0344 00cd       |    |		Action	Spare6_Action
0345 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0346 0000 0000  |    |		.XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034d       | M  |		.CONST	0x034d								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0002       |    |		.CONST	0x0002								; Number of locals
034b			INIT_0348:
034b 00e3       |    |		Load_Encached	Natural_Cache
034c 060d       |    |		Execute_Immediate	Set_Value_Unchecked,0xd
034d			BODY_0348:
034d e5ff       |    |		Load	0x2,-0x1
034e 01dc       |    |		Execute	Vector,Last
034f 0d0d       |    |		Execute_Immediate	Less,0xd
0350 6802       |h   |		Jump_Zero	0x353
0351 00ea       |    |		Load_Encached	Null_String_Cache
0352 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0353 4801       |H   |		Short_Literal	0x1
0354 480d       |H   |		Short_Literal	0xd
0355 e5ff       |    |		Load	0x2,-0x1
0356 01cf       |    |		Execute	Vector,Slice_Read
0357 0092 065c  |   \|		Action	Push_String_Extended,0x65c					; "             "
0359 01df       |    |		Execute	Vector,Equal
035a 6802       |h   |		Jump_Zero	0x35d
035b 00ea       |    |		Load_Encached	Null_String_Cache
035c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035d 00cf       |    |		Action	Mark_Auxiliary
035e 7804       |x   |		Jump	0x363
035f e402       |    |		Load	0x2,0x2
0360 0a01       |    |		Execute_Immediate	Plus,0x1
0361 c402       |    |		Store	0x2,0x2
0362 00c9       |    |		Action	Pop_Auxiliary_Loop
0363 e402       |    |		Load	0x2,0x2
0364 e5ff       |    |		Load	0x2,-0x1
0365 01dc       |    |		Execute	Vector,Last
0366 027c       | |  |		Execute	Discrete,Less
0367 6808       |h   |		Jump_Zero	0x370
0368 e5ff       |    |		Load	0x2,-0x1
0369 01dd       |    |		Execute	Vector,First
036a e402       |    |		Load	0x2,0x2
036b 0273       | s  |		Execute	Discrete,Plus
036c e5ff       |    |		Load	0x2,-0x1
036d 01d7       |    |		Execute	Vector,Field_Read
036e 0e20       |    |		Execute_Immediate	Not_Equal,0x20
036f 77ef       |w   |		Jump_Nonzero	0x35f
0370 00ce       |    |		Action	Pop_Auxiliary
0371 e5ff       |    |		Load	0x2,-0x1
0372 01dd       |    |		Execute	Vector,First
0373 0a0d       |    |		Execute_Immediate	Plus,0xd
0374 00d8       |    |		Load_Top	At_Offset_0
0375 00e2       |    |		Load_Encached	Integer_Cache
0376 0260       | `  |		Execute	Discrete,In_Type
0377 7001       |p   |		Jump_Nonzero	0x379
0378 0801       |    |		Execute_Immediate	Raise,0x1
0379 e5ff       |    |		Load	0x2,-0x1
037a 01dd       |    |		Execute	Vector,First
037b e402       |    |		Load	0x2,0x2
037c 0273       | s  |		Execute	Discrete,Plus
037d 0aff       |    |		Execute_Immediate	Plus,-0x1
037e 00d8       |    |		Load_Top	At_Offset_0
037f 00e2       |    |		Load_Encached	Integer_Cache
0380 0260       | `  |		Execute	Discrete,In_Type
0381 7001       |p   |		Jump_Nonzero	0x383
0382 0801       |    |		Execute_Immediate	Raise,0x1
0383 e5ff       |    |		Load	0x2,-0x1
0384 01cf       |    |		Execute	Vector,Slice_Read
0385 0335       | 5  |		Declare_Variable	Array,Duplicate
0386 00cd       |    |		Action	Spare6_Action
0387 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038e       |    |		.CONST	0x038e								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0003       |    |		.CONST	0x0003								; Number of locals
038b			INIT_0388:
038b 00e3       |    |		Load_Encached	Natural_Cache
038c 060d       |    |		Execute_Immediate	Set_Value_Unchecked,0xd
038d 00e3       |    |		Load_Encached	Natural_Cache
038e			BODY_0388:
038e e5ff       |    |		Load	0x2,-0x1
038f 01dc       |    |		Execute	Vector,Last
0390 0d0d       |    |		Execute_Immediate	Less,0xd
0391 6802       |h   |		Jump_Zero	0x394
0392 00ea       |    |		Load_Encached	Null_String_Cache
0393 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0394 00cf       |    |		Action	Mark_Auxiliary
0395 7804       |x   |		Jump	0x39a
0396 e402       |    |		Load	0x2,0x2
0397 0a01       |    |		Execute_Immediate	Plus,0x1
0398 c402       |    |		Store	0x2,0x2
0399 00c9       |    |		Action	Pop_Auxiliary_Loop
039a e402       |    |		Load	0x2,0x2
039b e5ff       |    |		Load	0x2,-0x1
039c 01dc       |    |		Execute	Vector,Last
039d 027c       | |  |		Execute	Discrete,Less
039e 6808       |h   |		Jump_Zero	0x3a7
039f e5ff       |    |		Load	0x2,-0x1
03a0 01dd       |    |		Execute	Vector,First
03a1 e402       |    |		Load	0x2,0x2
03a2 0273       | s  |		Execute	Discrete,Plus
03a3 e5ff       |    |		Load	0x2,-0x1
03a4 01d7       |    |		Execute	Vector,Field_Read
03a5 0e20       |    |		Execute_Immediate	Not_Equal,0x20
03a6 77ef       |w   |		Jump_Nonzero	0x396
03a7 00ce       |    |		Action	Pop_Auxiliary
03a8 e402       |    |		Load	0x2,0x2
03a9 0a01       |    |		Execute_Immediate	Plus,0x1
03aa c403       |    |		Store	0x2,0x3
03ab 00d8       |    |		Load_Top	At_Offset_0
03ac a402       |    |		Store_Unchecked	0x2,0x2
03ad 00cf       |    |		Action	Mark_Auxiliary
03ae 7804       |x   |		Jump	0x3b3
03af e402       |    |		Load	0x2,0x2
03b0 0a01       |    |		Execute_Immediate	Plus,0x1
03b1 c402       |    |		Store	0x2,0x2
03b2 00c9       |    |		Action	Pop_Auxiliary_Loop
03b3 e402       |    |		Load	0x2,0x2
03b4 e5ff       |    |		Load	0x2,-0x1
03b5 01dc       |    |		Execute	Vector,Last
03b6 027c       | |  |		Execute	Discrete,Less
03b7 6810       |h   |		Jump_Zero	0x3c8
03b8 e5ff       |    |		Load	0x2,-0x1
03b9 01dd       |    |		Execute	Vector,First
03ba e402       |    |		Load	0x2,0x2
03bb 0273       | s  |		Execute	Discrete,Plus
03bc e5ff       |    |		Load	0x2,-0x1
03bd 01d7       |    |		Execute	Vector,Field_Read
03be 0e20       |    |		Execute_Immediate	Not_Equal,0x20
03bf 6808       |h   |		Jump_Zero	0x3c8
03c0 e5ff       |    |		Load	0x2,-0x1
03c1 01dd       |    |		Execute	Vector,First
03c2 e402       |    |		Load	0x2,0x2
03c3 0273       | s  |		Execute	Discrete,Plus
03c4 e5ff       |    |		Load	0x2,-0x1
03c5 01d7       |    |		Execute	Vector,Field_Read
03c6 0e0a       |    |		Execute_Immediate	Not_Equal,0xa
03c7 77e7       |w   |		Jump_Nonzero	0x3af
03c8 00ce       |    |		Action	Pop_Auxiliary
03c9 e5ff       |    |		Load	0x2,-0x1
03ca 01dd       |    |		Execute	Vector,First
03cb e403       |    |		Load	0x2,0x3
03cc 0273       | s  |		Execute	Discrete,Plus
03cd 00d8       |    |		Load_Top	At_Offset_0
03ce 00e2       |    |		Load_Encached	Integer_Cache
03cf 0260       | `  |		Execute	Discrete,In_Type
03d0 7001       |p   |		Jump_Nonzero	0x3d2
03d1 0801       |    |		Execute_Immediate	Raise,0x1
03d2 e5ff       |    |		Load	0x2,-0x1
03d3 01dd       |    |		Execute	Vector,First
03d4 e402       |    |		Load	0x2,0x2
03d5 0273       | s  |		Execute	Discrete,Plus
03d6 0aff       |    |		Execute_Immediate	Plus,-0x1
03d7 00d8       |    |		Load_Top	At_Offset_0
03d8 00e2       |    |		Load_Encached	Integer_Cache
03d9 0260       | `  |		Execute	Discrete,In_Type
03da 7001       |p   |		Jump_Nonzero	0x3dc
03db 0801       |    |		Execute_Immediate	Raise,0x1
03dc e5ff       |    |		Load	0x2,-0x1
03dd 01cf       |    |		Execute	Vector,Slice_Read
03de 0335       | 5  |		Declare_Variable	Array,Duplicate
03df 00cd       |    |		Action	Spare6_Action
03e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e1 0000 0000  |    |		.BLANK	0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03ed       |    |		.CONST	0x03ed								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0002       |    |		.CONST	0x0002								; Number of locals
03eb			INIT_03e8:
03eb 00e3       |    |		Load_Encached	Natural_Cache
03ec 060d       |    |		Execute_Immediate	Set_Value_Unchecked,0xd
03ed			BODY_03e8:
03ed e5ff       |    |		Load	0x2,-0x1
03ee 01db       |    |		Execute	Vector,Length
03ef 0d0d       |    |		Execute_Immediate	Less,0xd
03f0 6802       |h   |		Jump_Zero	0x3f3
03f1 00ea       |    |		Load_Encached	Null_String_Cache
03f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03f3 4801       |H   |		Short_Literal	0x1
03f4 480d       |H   |		Short_Literal	0xd
03f5 e5ff       |    |		Load	0x2,-0x1
03f6 01cf       |    |		Execute	Vector,Slice_Read
03f7 0092 065c  |   \|		Action	Push_String_Extended,0x65c					; "             "
03f9 01df       |    |		Execute	Vector,Equal
03fa 6808       |h   |		Jump_Zero	0x403
03fb 480e       |H   |		Short_Literal	0xe
03fc e5ff       |    |		Load	0x2,-0x1
03fd 01dc       |    |		Execute	Vector,Last
03fe e5ff       |    |		Load	0x2,-0x1
03ff 01cf       |    |		Execute	Vector,Slice_Read
0400 0335       | 5  |		Declare_Variable	Array,Duplicate
0401 00cd       |    |		Action	Spare6_Action
0402 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0403 00cf       |    |		Action	Mark_Auxiliary
0404 7804       |x   |		Jump	0x409
0405 e402       |    |		Load	0x2,0x2
0406 0a01       |    |		Execute_Immediate	Plus,0x1
0407 c402       |    |		Store	0x2,0x2
0408 00c9       |    |		Action	Pop_Auxiliary_Loop
0409 e402       |    |		Load	0x2,0x2
040a e5ff       |    |		Load	0x2,-0x1
040b 01dc       |    |		Execute	Vector,Last
040c 027c       | |  |		Execute	Discrete,Less
040d 6808       |h   |		Jump_Zero	0x416
040e e5ff       |    |		Load	0x2,-0x1
040f 01dd       |    |		Execute	Vector,First
0410 e402       |    |		Load	0x2,0x2
0411 0273       | s  |		Execute	Discrete,Plus
0412 e5ff       |    |		Load	0x2,-0x1
0413 01d7       |    |		Execute	Vector,Field_Read
0414 0e20       |    |		Execute_Immediate	Not_Equal,0x20
0415 77ef       |w   |		Jump_Nonzero	0x405
0416 00ce       |    |		Action	Pop_Auxiliary
0417 00d8       |    |		Load_Top	At_Offset_0
0418 0a01       |    |		Execute_Immediate	Plus,0x1
0419 c402       |    |		Store	0x2,0x2
041a 00cf       |    |		Action	Mark_Auxiliary
041b 7804       |x   |		Jump	0x420
041c e402       |    |		Load	0x2,0x2
041d 0a01       |    |		Execute_Immediate	Plus,0x1
041e c402       |    |		Store	0x2,0x2
041f 00c9       |    |		Action	Pop_Auxiliary_Loop
0420 e402       |    |		Load	0x2,0x2
0421 e5ff       |    |		Load	0x2,-0x1
0422 01dc       |    |		Execute	Vector,Last
0423 027c       | |  |		Execute	Discrete,Less
0424 6808       |h   |		Jump_Zero	0x42d
0425 e5ff       |    |		Load	0x2,-0x1
0426 01dd       |    |		Execute	Vector,First
0427 e402       |    |		Load	0x2,0x2
0428 0273       | s  |		Execute	Discrete,Plus
0429 e5ff       |    |		Load	0x2,-0x1
042a 01d7       |    |		Execute	Vector,Field_Read
042b 0e20       |    |		Execute_Immediate	Not_Equal,0x20
042c 77ef       |w   |		Jump_Nonzero	0x41c
042d 00ce       |    |		Action	Pop_Auxiliary
042e e5ff       |    |		Load	0x2,-0x1
042f 01dd       |    |		Execute	Vector,First
0430 e402       |    |		Load	0x2,0x2
0431 0273       | s  |		Execute	Discrete,Plus
0432 0a01       |    |		Execute_Immediate	Plus,0x1
0433 00d8       |    |		Load_Top	At_Offset_0
0434 00e2       |    |		Load_Encached	Integer_Cache
0435 0260       | `  |		Execute	Discrete,In_Type
0436 7001       |p   |		Jump_Nonzero	0x438
0437 0801       |    |		Execute_Immediate	Raise,0x1
0438 e5ff       |    |		Load	0x2,-0x1
0439 01dc       |    |		Execute	Vector,Last
043a e5ff       |    |		Load	0x2,-0x1
043b 01cf       |    |		Execute	Vector,Slice_Read
043c 0335       | 5  |		Declare_Variable	Array,Duplicate
043d 00cd       |    |		Action	Spare6_Action
043e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
043f 0000       |    |		.XXX[0x1]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 e225       | %  |		Load	0x1,0x25
0444 00ca       |    |		Action	Exit_Nullary_Function
0445 0000 0000  |    |		.XXX[0x3]
0447 0000       |    |
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 4608       |F   |		Jump_Case	0x9
044c 7808       |x   |		Jump	0x455								; case 0x0
044d 781a       |x   |		Jump	0x468								; case 0x1
044e 7820       |x   |		Jump	0x46f								; case 0x2
044f 781f       |x   |		Jump	0x46f								; case 0x3
0450 781e       |x   |		Jump	0x46f								; case 0x4
0451 781d       |x   |		Jump	0x46f								; case 0x5
0452 781c       |x   |		Jump	0x46f								; case 0x6
0453 781b       |x   |		Jump	0x46f								; case 0x7
0454 781a       |x   |		Jump	0x46f								; case 0x8
0455 e5ff       |    |		Load	0x2,-0x1
0456 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0457 0125       | %  |		Execute	Any,Set_Constraint
0458 e5ff       |    |		Load	0x2,-0x1
0459 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
045a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
045b e5ff       |    |		Load	0x2,-0x1
045c 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
045d 0125       | %  |		Execute	Any,Set_Constraint
045e e5ff       |    |		Load	0x2,-0x1
045f 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0460 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0461 e5ff       |    |		Load	0x2,-0x1
0462 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0463 0125       | %  |		Execute	Any,Set_Constraint
0464 e5ff       |    |		Load	0x2,-0x1
0465 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0466 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0467 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0468 e5ff       |    |		Load	0x2,-0x1
0469 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
046a 0125       | %  |		Execute	Any,Set_Constraint
046b e5ff       |    |		Load	0x2,-0x1
046c 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
046d 0125       | %  |		Execute	Any,Set_Constraint
046e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
046f 0869       | i  |		Execute_Immediate	Raise,0x69
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 4605       |F   |		Jump_Case	0x6
0474 7804       |x   |		Jump	0x479								; case 0x0
0475 7814       |x   |		Jump	0x48a								; case 0x1
0476 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0477 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0478 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0479 e5ff       |    |		Load	0x2,-0x1							; case 0x5
047a 01dc       |    |		Execute	Vector,Last
047b e5ff       |    |		Load	0x2,-0x1
047c 01dd       |    |		Execute	Vector,First
047d 0263       | c  |		Execute	Discrete,Above_Bound
047e 700a       |p   |		Jump_Nonzero	0x489
047f 00d8       |    |		Load_Top	At_Offset_0
0480 e5ff       |    |		Load	0x2,-0x1
0481 01d5       |    |		Execute	Vector,Field_Reference
0482 0125       | %  |		Execute	Any,Set_Constraint
0483 00d8       |    |		Load_Top	At_Offset_0
0484 e5ff       |    |		Load	0x2,-0x1
0485 01d5       |    |		Execute	Vector,Field_Reference
0486 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0487 0a01       |    |		Execute_Immediate	Plus,0x1
0488 7ff4       |    |		Jump	0x47d
0489 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
048a e5ff       |    |		Load	0x2,-0x1
048b 01dc       |    |		Execute	Vector,Last
048c e5ff       |    |		Load	0x2,-0x1
048d 01dd       |    |		Execute	Vector,First
048e 0263       | c  |		Execute	Discrete,Above_Bound
048f 700a       |p   |		Jump_Nonzero	0x49a
0490 00d8       |    |		Load_Top	At_Offset_0
0491 e5ff       |    |		Load	0x2,-0x1
0492 01d5       |    |		Execute	Vector,Field_Reference
0493 0125       | %  |		Execute	Any,Set_Constraint
0494 00d8       |    |		Load_Top	At_Offset_0
0495 e5ff       |    |		Load	0x2,-0x1
0496 01d7       |    |		Execute	Vector,Field_Read
0497 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0498 0a01       |    |		Execute_Immediate	Plus,0x1
0499 7ff4       |    |		Jump	0x48e
049a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
049b 0000 0000  |    |		.BLANK	0000[0x5]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 e5ff       |    |		Load	0x2,-0x1
04a4 01db       |    |		Execute	Vector,Length
04a5 0d41       | A  |		Execute_Immediate	Less,0x41
04a6 6802       |h   |		Jump_Zero	0x4a9
04a7 e5ff       |    |		Load	0x2,-0x1
04a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04a9 e5ff       |    |		Load	0x2,-0x1
04aa 01dd       |    |		Execute	Vector,First
04ab e5ff       |    |		Load	0x2,-0x1
04ac 01dd       |    |		Execute	Vector,First
04ad 0a3c       | <  |		Execute_Immediate	Plus,0x3c
04ae 00d8       |    |		Load_Top	At_Offset_0
04af 00e2       |    |		Load_Encached	Integer_Cache
04b0 0260       | `  |		Execute	Discrete,In_Type
04b1 7001       |p   |		Jump_Nonzero	0x4b3
04b2 0801       |    |		Execute_Immediate	Raise,0x1
04b3 e5ff       |    |		Load	0x2,-0x1
04b4 01cf       |    |		Execute	Vector,Slice_Read
04b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b6 0000 0000  |    |		.XXX[0x2]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb       |    |		.CONST	0x04bb								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0001       |    |		.CONST	0x0001								; Number of locals
04bb			BODY_04b8:
04bb			INIT_04b8:
04bb e5ff       |    |		Load	0x2,-0x1
04bc 7003       |p   |		Jump_Nonzero	0x4c0
04bd 0092 065e  |   ^|		Action	Push_String_Extended,0x65e					; "<null iterator>"
04bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c0 e5ff       |    |		Load	0x2,-0x1
04c1 0227       | '  |		Execute	Access,All_Reference
04c2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04c3 680a       |h   |		Jump_Zero	0x4ce
04c4 0092 065f  |   _|		Action	Push_String_Extended,0x65f					; "Current log; entry: "
04c6 e5ff       |    |		Load	0x2,-0x1
04c7 0227       | '  |		Execute	Access,All_Reference
04c8 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
04c9 e003       |    |		Load	0x0,0x3
04ca 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04cb 822a       | *  |		Call	0x1,0x2a
04cc 01cc       |    |		Execute	Vector,Catenate
04cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ce 480a       |H   |		Short_Literal	0xa
04cf 0092 0660  |   `|		Action	Push_String_Extended,0x660					; "File: "
04d1 e5ff       |    |		Load	0x2,-0x1
04d2 0227       | '  |		Execute	Access,All_Reference
04d3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04d4 e229       | )  |		Load	0x1,0x29
04d5 01d5       |    |		Execute	Vector,Field_Reference
04d6 e003       |    |		Load	0x0,0x3
04d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04d8 01cc       |    |		Execute	Vector,Catenate
04d9 01cb       |    |		Execute	Vector,Append
04da 0092 0661  |   a|		Action	Push_String_Extended,0x661					; "      Entry: "
04dc 01cc       |    |		Execute	Vector,Catenate
04dd e5ff       |    |		Load	0x2,-0x1
04de 0227       | '  |		Execute	Access,All_Reference
04df 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
04e0 e003       |    |		Load	0x0,0x3
04e1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04e2 822a       | *  |		Call	0x1,0x2a
04e3 01cc       |    |		Execute	Vector,Catenate
04e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e5 0000 0000  |    |		.XXX[0x3]
04e7 0000       |    |
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb e5ff       |    |		Load	0x2,-0x1
04ec 01dd       |    |		Execute	Vector,First
04ed e5ff       |    |		Load	0x2,-0x1
04ee 01dd       |    |		Execute	Vector,First
04ef 0a07       |    |		Execute_Immediate	Plus,0x7
04f0 00d8       |    |		Load_Top	At_Offset_0
04f1 00e2       |    |		Load_Encached	Integer_Cache
04f2 0260       | `  |		Execute	Discrete,In_Type
04f3 7001       |p   |		Jump_Nonzero	0x4f5
04f4 0801       |    |		Execute_Immediate	Raise,0x1
04f5 e5ff       |    |		Load	0x2,-0x1
04f6 01cf       |    |		Execute	Vector,Slice_Read
04f7 0335       | 5  |		Declare_Variable	Array,Duplicate
04f8 00cd       |    |		Action	Spare6_Action
04f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04fa 0000 0000  |    |		.BLANK	0000[0x6]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 050b       |    |		.CONST	0x050b								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0004       |    |		.CONST	0x0004								; Number of locals
0503			INIT_0500:
0503 00e1       |    |		Load_Encached	Boolean_Cache
0504 e001       |    |		Load	0x0,0x1
0505 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0506 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0507 e001       |    |		Load	0x0,0x1
0508 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0509 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
050a 0337       | 7  |		Declare_Variable	Array
050b			BODY_0500:
050b e226       | &  |		Load	0x1,0x26
050c 683c       |h<  |		Jump_Zero	0x549
050d e5ff       |    |		Load	0x2,-0x1
050e 0227       | '  |		Execute	Access,All_Reference
050f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0510 603f       |`?  |		Indirect_Literal	Discrete,0x550,{0xffffffff, 0x80000001}
0511 027f       |    |		Execute	Discrete,Equal
0512 6810       |h   |		Jump_Zero	0x523
0513 e5ff       |    |		Load	0x2,-0x1
0514 0229       | )  |		Execute	Access,All_Read
0515 e404       |    |		Load	0x2,0x4
0516 e001       |    |		Load	0x0,0x1
0517 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0518 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0519 00e1       |    |		Load_Encached	Boolean_Cache
051a 4804       |H   |		Short_Literal	0x4
051b 6034       |`4  |		Indirect_Literal	Discrete,0x550,{0xffffffff, 0x80000001}
051c e001       |    |		Load	0x0,0x1
051d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
051e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
051f c402       |    |		Store	0x2,0x2
0520 e405       |    |		Load	0x2,0x5
0521 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0522 00d2       |    |		Pop_Control	Pop_Count_2
0523 e402       |    |		Load	0x2,0x2
0524 6824       |h$  |		Jump_Zero	0x549
0525 00cf       |    |		Action	Mark_Auxiliary
0526 e404       |    |		Load	0x2,0x4
0527 e001       |    |		Load	0x0,0x1
0528 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0529 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
052a 00e1       |    |		Load_Encached	Boolean_Cache
052b 4802       |H   |		Short_Literal	0x2
052c e5ff       |    |		Load	0x2,-0x1
052d 0227       | '  |		Execute	Access,All_Reference
052e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
052f e001       |    |		Load	0x0,0x1
0530 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0531 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0532 c402       |    |		Store	0x2,0x2
0533 c403       |    |		Store	0x2,0x3
0534 00d1       |    |		Pop_Control	Pop_Count_1
0535 e402       |    |		Load	0x2,0x2
0536 6811       |h   |		Jump_Zero	0x548
0537 e403       |    |		Load	0x2,0x3
0538 0a01       |    |		Execute_Immediate	Plus,0x1
0539 e5ff       |    |		Load	0x2,-0x1
053a 0227       | '  |		Execute	Access,All_Reference
053b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
053c 4801       |H   |		Short_Literal	0x1
053d e404       |    |		Load	0x2,0x4
053e 01d7       |    |		Execute	Vector,Field_Read
053f 0e7f       |    |		Execute_Immediate	Not_Equal,0x7f
0540 6805       |h   |		Jump_Zero	0x546
0541 4820       |H   |		Short_Literal	0x20
0542 e404       |    |		Load	0x2,0x4
0543 e007       |    |		Load	0x0,0x7
0544 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0545 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0546 00c9       |    |		Action	Pop_Auxiliary_Loop
0547 7fde       |    |		Jump	0x526
0548 00ce       |    |		Action	Pop_Auxiliary
0549 4801       |H   |		Short_Literal	0x1
054a e5ff       |    |		Load	0x2,-0x1
054b 0227       | '  |		Execute	Access,All_Reference
054c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
054d 4950       |IP  |		Short_Literal	0x150
054e 0257       | W  |		Execute	Discrete,Raise
054f 0000       |    |		.XXX[0x1]
0550 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
0554 0000 0000  |    |		.BLANK	0000[0x4]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 0580       |    |		.CONST	0x0580								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0007       |    |		.CONST	0x0007								; Number of locals
055b			INIT_0558:
055b e006       |    |		Load	0x0,0x6
055c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
055d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
055e 02c7       |    |		Declare_Variable	Any
055f 00d8       |    |		Load_Top	At_Offset_0
0560 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0561 e006       |    |		Load	0x0,0x6
0562 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0563 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0564 02c7       |    |		Declare_Variable	Any
0565 e006       |    |		Load	0x0,0x6
0566 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0567 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0568 a603       |    |		Store_Unchecked	0x3,0x3
0569 e006       |    |		Load	0x0,0x6
056a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
056b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
056c 02c7       |    |		Declare_Variable	Any
056d e006       |    |		Load	0x0,0x6
056e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
056f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0570 a604       |    |		Store_Unchecked	0x3,0x4
0571 e006       |    |		Load	0x0,0x6
0572 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0573 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0574 02c7       |    |		Declare_Variable	Any
0575 e006       |    |		Load	0x0,0x6
0576 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0577 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0578 a605       |    |		Store_Unchecked	0x3,0x5
0579 e006       |    |		Load	0x0,0x6
057a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
057b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
057c 02c7       |    |		Declare_Variable	Any
057d 00d8       |    |		Load_Top	At_Offset_0
057e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
057f 00e1       |    |		Load_Encached	Boolean_Cache
0580			BODY_0558:
0580 4801       |H   |		Short_Literal	0x1
0581 e006       |    |		Load	0x0,0x6
0582 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0583 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0584 e7ff       |    |		Load	0x3,-0x1
0585 e006       |    |		Load	0x0,0x6
0586 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0587 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0588 c602       |    |		Store	0x3,0x2
0589 00cf       |    |		Action	Mark_Auxiliary
058a 783d       |x=  |		Jump	0x5c8
058b e7fe       |    |		Load	0x3,-0x2
058c e602       |    |		Load	0x3,0x2
058d e006       |    |		Load	0x0,0x6
058e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
058f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0590 e006       |    |		Load	0x0,0x6
0591 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0592 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0593 e005       |    |		Load	0x0,0x5
0594 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0595 6801       |h   |		Jump_Zero	0x597
0596 782b       |x+  |		Jump	0x5c2
0597 e602       |    |		Load	0x3,0x2
0598 e006       |    |		Load	0x0,0x6
0599 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
059a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
059b e006       |    |		Load	0x0,0x6
059c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
059d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
059e e7fd       |    |		Load	0x3,-0x3
059f e005       |    |		Load	0x0,0x5
05a0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05a1 680e       |h   |		Jump_Zero	0x5b0
05a2 e605       |    |		Load	0x3,0x5
05a3 e006       |    |		Load	0x0,0x6
05a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05a5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05a6 7009       |p   |		Jump_Nonzero	0x5b0
05a7 e605       |    |		Load	0x3,0x5
05a8 e006       |    |		Load	0x0,0x6
05a9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05aa 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05ab e7fd       |    |		Load	0x3,-0x3
05ac e005       |    |		Load	0x0,0x5
05ad 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05ae 6801       |h   |		Jump_Zero	0x5b0
05af 7812       |x   |		Jump	0x5c2
05b0 e602       |    |		Load	0x3,0x2
05b1 e006       |    |		Load	0x0,0x6
05b2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05b3 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
05b4 c605       |    |		Store	0x3,0x5
05b5 00e1       |    |		Load_Encached	Boolean_Cache
05b6 e006       |    |		Load	0x0,0x6
05b7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05b8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05b9 e602       |    |		Load	0x3,0x2
05ba e006       |    |		Load	0x0,0x6
05bb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05bc 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
05bd e603       |    |		Load	0x3,0x3
05be e006       |    |		Load	0x0,0x6
05bf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05c0 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
05c1 c607       |    |		Store	0x3,0x7
05c2 e602       |    |		Load	0x3,0x2
05c3 e006       |    |		Load	0x0,0x6
05c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05c5 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05c6 c602       |    |		Store	0x3,0x2
05c7 00c9       |    |		Action	Pop_Auxiliary_Loop
05c8 e602       |    |		Load	0x3,0x2
05c9 e006       |    |		Load	0x0,0x6
05ca 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05cb 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
05cc 6fbe       |o   |		Jump_Zero	0x58b
05cd 00ce       |    |		Action	Pop_Auxiliary
05ce e603       |    |		Load	0x3,0x3
05cf e006       |    |		Load	0x0,0x6
05d0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05d1 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
05d2 e603       |    |		Load	0x3,0x3
05d3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05d4 0000 0000  |    |		.BLANK	0000[0x4]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05dd       |    |		.CONST	0x05dd								; Address of begin
05d9 061c       |    |		.CONST	0x061c								; Address of exception handler
05da 0002       |    |		.CONST	0x0002								; Number of locals
05db			INIT_05d8:
05db 029f 062b  |   +|		Declare_Subprogram	INIT_0628,For_Call
05dd			BODY_05d8:
05dd 4800       |H   |		Short_Literal	0x0
05de a402       |    |		Store_Unchecked	0x2,0x2
05df 00cf       |    |		Action	Mark_Auxiliary
05e0 e5ff       |    |		Load	0x2,-0x1
05e1 0227       | '  |		Execute	Access,All_Reference
05e2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05e3 680a       |h   |		Jump_Zero	0x5ee
05e4 e5ff       |    |		Load	0x2,-0x1
05e5 0229       | )  |		Execute	Access,All_Read
05e6 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
05e7 00d8       |    |		Load_Top	At_Offset_0
05e8 e5ff       |    |		Load	0x2,-0x1
05e9 822d       | -  |		Call	0x1,0x2d
05ea e003       |    |		Load	0x0,0x3
05eb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05ec 00d2       |    |		Pop_Control	Pop_Count_2
05ed 780c       |x   |		Jump	0x5fa
05ee e5ff       |    |		Load	0x2,-0x1
05ef 0229       | )  |		Execute	Access,All_Read
05f0 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
05f1 00d8       |    |		Load_Top	At_Offset_0
05f2 e5ff       |    |		Load	0x2,-0x1
05f3 0227       | '  |		Execute	Access,All_Reference
05f4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
05f5 e002       |    |		Load	0x0,0x2
05f6 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
05f7 e003       |    |		Load	0x0,0x3
05f8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05f9 00d2       |    |		Pop_Control	Pop_Count_2
05fa e5ff       |    |		Load	0x2,-0x1
05fb 0227       | '  |		Execute	Access,All_Reference
05fc 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
05fd e003       |    |		Load	0x0,0x3
05fe 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
05ff 0c0b       |    |		Execute_Immediate	Greater_Equal,0xb
0600 6818       |h   |		Jump_Zero	0x619
0601 4809       |H   |		Short_Literal	0x9
0602 4801       |H   |		Short_Literal	0x1
0603 e5ff       |    |		Load	0x2,-0x1
0604 0227       | '  |		Execute	Access,All_Reference
0605 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0606 e003       |    |		Load	0x0,0x3
0607 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0608 0092 0662  |   b|		Action	Push_String_Extended,0x662					; "         "
060a 01df       |    |		Execute	Vector,Equal
060b 680d       |h   |		Jump_Zero	0x619
060c e402       |    |		Load	0x2,0x2
060d 7001       |p   |		Jump_Nonzero	0x60f
060e 8602       |    |		Call	0x3,0x2
060f e5ff       |    |		Load	0x2,-0x1
0610 0229       | )  |		Execute	Access,All_Read
0611 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0612 00d8       |    |		Load_Top	At_Offset_0
0613 4820       |H   |		Short_Literal	0x20
0614 4800       |H   |		Short_Literal	0x0
0615 e003       |    |		Load	0x0,0x3
0616 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0617 00d2       |    |		Pop_Control	Pop_Count_2
0618 7801       |x   |		Jump	0x61a
0619 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
061a 00c9       |    |		Action	Pop_Auxiliary_Loop
061b 7fc4       |    |		Jump	0x5e0
061c			TRAP_05d8:
061c 00d8       |    |		Load_Top	At_Offset_0
061d 0107       |    |		Execute	Exception,Get_Name
061e 4950       |IP  |		Short_Literal	0x150
061f 495f       |I_  |		Short_Literal	0x15f
0620 0262       | b  |		Execute	Discrete,In_Range
0621 6801       |h   |		Jump_Zero	0x623
0622 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0623 0100       |    |		Execute	Exception,Raise
0624 0000 0000  |    |		.BLANK	0000[0x4]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b       | +  |		.CONST	0x062b								; Address of begin
0629 063f       | ?  |		.CONST	0x063f								; Address of exception handler
062a 0001       |    |		.CONST	0x0001								; Number of locals
062b			BODY_0628:
062b			INIT_0628:
062b e5ff       |    |		Load	0x2,-0x1
062c 0229       | )  |		Execute	Access,All_Read
062d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
062e 00d8       |    |		Load_Top	At_Offset_0
062f 480a       |H   |		Short_Literal	0xa
0630 e5ff       |    |		Load	0x2,-0x1
0631 0227       | '  |		Execute	Access,All_Reference
0632 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0633 e003       |    |		Load	0x0,0x3
0634 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0635 480a       |H   |		Short_Literal	0xa
0636 e5ff       |    |		Load	0x2,-0x1
0637 0227       | '  |		Execute	Access,All_Reference
0638 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0639 e003       |    |		Load	0x0,0x3
063a 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
063b 01ca       |    |		Execute	Vector,Prepend
063c e003       |    |		Load	0x0,0x3
063d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
063e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
063f			TRAP_0628:
063f 010e       |    |		Execute	Exception,Is_Constraint_Error
0640 6811       |h   |		Jump_Zero	0x652
0641 e008       |    |		Load	0x0,0x8
0642 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0643 4802       |H   |		Short_Literal	0x2
0644 0092 0663  |   c|		Action	Push_String_Extended,0x663					; "Log entry too long."
0646 e009       |    |		Load	0x0,0x9
0647 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0648 e008       |    |		Load	0x0,0x8
0649 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
064a 4802       |H   |		Short_Literal	0x2
064b e5ff       |    |		Load	0x2,-0x1
064c 822b       | +  |		Call	0x1,0x2b
064d e009       |    |		Load	0x0,0x9
064e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
064f 4801       |H   |		Short_Literal	0x1
0650 a402       |    |		Store_Unchecked	0x2,0x2
0651 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0652 0100       |    |		Execute	Exception,Raise
0653 ; --------------------------------------------------------------------------------------
0653 ; STRING TABLE
0653 ; --------------------------------------------------------------------------------------
0653 0024       | $  |		.STRTAB	0x0024->0x0665							; "!machine.error_logs"
0654 0035       | 5  |		.STRTAB	0x0035->0x066e							; ".log@_at_@"
0655 003d       | =  |		.STRTAB	0x003d->0x0673							; "Too many log files.  Maximum is  250. Extra files will not be processed."
0656 0083       |    |		.STRTAB	0x0083->0x0697							; "No log files within specified dates in: "
0657 00a9       |    |		.STRTAB	0x00a9->0x06ab							; "Log files can't be opened"
0658 00c0       |    |		.STRTAB	0x00c0->0x06b8							; "Snapshot_Started"
0659 00ce       |    |		.STRTAB	0x00ce->0x06c0							; " "
065a 00cd       |    |		.STRTAB	0x00cd->0x06c0							; "System_Boot"
065b 00d6       |    |		.STRTAB	0x00d6->0x06c6							; "End of log"
065c 00de       |    |		.STRTAB	0x00de->0x06cb							; "             "
065d 00e9       |    |		.STRTAB	0x00e9->0x06d1							; "[CURRENT LOG]"
065e 00f4       |    |		.STRTAB	0x00f4->0x06d8							; "<null iterator>"
065f 0101       |    |		.STRTAB	0x0101->0x06df							; "Current log; entry: "
0660 0113       |    |		.STRTAB	0x0113->0x06e9							; "File: "
0661 0117       |    |		.STRTAB	0x0117->0x06ec							; "      Entry: "
0662 0122       | "  |		.STRTAB	0x0122->0x06f3							; "         "
0663 0129       | )  |		.STRTAB	0x0129->0x06f7							; "Log entry too long."
0664 013a       | :  |		.STREND 0x013a->0x0701
0665 216d 6163  |!mac|		.STRTAB_STRINGS
0701 0000 0000  |    |		.BLANK	0000[0x7]
0708 ; --------------------------------------------------------------------------------------
0708 ; Debug Table
0708 ; --------------------------------------------------------------------------------------
0708 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x4018,0x0000,0x0001,0x0000
070e 8440 40de  | @@ |		.XXX[0xf2]
0710 4086 deda  |@   |
0712 dac2 dcc8  |    |
0714 40d2 dac2  |@   |
0716 ceca e674  |   t|
0718 4040 a4ca  |@@  |
071a c6c2 d8d8  |    |
071c e640 c6d0  | @  |
071e c2dc ceca  |    |
0720 e640 e0e4  | @  |
0722 caec d2de  |    |
0724 eae6 d8f2  |    |
0726 40da c2c8  |@   |
0728 ca40 e8de  | @  |
072a 40c2 40c6  |@ @ |
072c deda dac2  |    |
072e dcc8 5c00  |  \ |
0730 0000 ec00  |    |
0732 0000 78a8  |  x |
0734 d0ca 40a4  |  @ |
0736 c2e8 d2de  |    |
0738 dcc2 d840  |   @|
073a 8ac8 d2e8  |    |
073c dee4 40e4  |  @ |
073e cada cada  |    |
0740 c4ca e4e6  |    |
0742 40c6 d0c2  |@   |
0744 dcce cae6  |    |
0746 40da c2c8  |@   |
0748 ca40 e8de  | @  |
074a 40c6 deda  |@   |
074c dac2 dcc8  |    |
074e 40d2 dac2  |@   |
0750 ceca e600  |    |
0752 0000 e400  |    |
0754 0000 8040  |   @|
0756 4040 40a8  |@@@ |
0758 d0ca 40a4  |  @ |
075a c2e8 d2de  |    |
075c dcc2 d840  |   @|
075e 8ac8 d2e8  |    |
0760 dee4 40e4  |  @ |
0762 cada cada  |    |
0764 c4ca e4e6  |    |
0766 40c6 d0c2  |@   |
0768 dcce cae6  |    |
076a 40da c2c8  |@   |
076c ca40 e8de  | @  |
076e 40c6 deda  |@   |
0770 dac2 dcc8  |    |
0772 40d2 dac2  |@   |
0774 ceca e600  |    |
0776 0000 e400  |    |
0778 0000 8040  |   @|
077a 4040 40a8  |@@@ |
077c d0ca 40a4  |  @ |
077e c2e8 d2de  |    |
0780 dcc2 d840  |   @|
0782 8ac8 d2e8  |    |
0784 dee4 40e4  |  @ |
0786 cada cada  |    |
0788 c4ca e4e6  |    |
078a 40c6 d0c2  |@   |
078c dcce cae6  |    |
078e 40da c2c8  |@   |
0790 ca40 e8de  | @  |
0792 40c6 deda  |@   |
0794 dac2 dcc8  |    |
0796 40d2 dac2  |@   |
0798 ceca e600  |    |
079a 0000 6e00  |  n |
079c 0000 7ae6  |  z |
079e d2dc c6ca  |    |
07a0 40e8 d0ca  |@   |
07a2 4086 deda  |@   |
07a4 dac2 dcc8  |    |
07a6 40ee d2dc  |@   |
07a8 c8de ee40  |   @|
07aa eec2 e640  |   @|
07ac c6e4 cac2  |    |
07ae e8ca c858  |   X|
07b0 40c6 c2d8  |@   |
07b2 d8ca c840  |   @|
07b4 c240 d0d2  | @  |
07b6 e6e8 dee4  |    |
07b8 f25c 4040  | \@@|
07ba 8ac2 c6d0  |    |
07bc 0000 0066  |   f|
07be 0000 0082  |    |
07c0 4040 4040  |@@@@|
07c2 e6d2 dcc6  |    |
07c4 ca40 e8d0  | @  |
07c6 ca40 86de  | @  |
07c8 dada c2dc  |    |
07ca c840 eed2  | @  |
07cc dcc8 deee  |    |
07ce 40ee c2e6  |@   |
07d0 40c6 e4ca  |@   |
07d2 c2e8 cac8  |    |
07d4 5840 c6c2  |X@  |
07d6 d8d8 cac8  |    |
07d8 40c2 40d0  |@ @ |
07da d2e6 e8de  |    |
07dc e4f2 5c40  |  \@|
07de 408a c2c6  |@   |
07e0 d000 0000  |    |
07e2 6600 0000  |f   |
07e4 8240 4040  | @@@|
07e6 40e6 d2dc  |@   |
07e8 c6ca 40e8  |  @ |
07ea d0ca 4086  |  @ |
07ec deda dac2  |    |
07ee dcc8 40ee  |  @ |
07f0 d2dc c8de  |    |
07f2 ee40 eec2  | @  |
07f4 e640 c6e4  | @  |
07f6 cac2 e8ca  |    |
07f8 c858 40c6  | X@ |
07fa c2d8 d8ca  |    |
07fc c840 c240  | @ @|
07fe d0d2 e6e8  |    |