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

⟦dc6f41728⟧

    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
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 08a0       |    |		.CONST	0x08a0								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 006a       | j  |		.CONST	0x006a								; Address of begin
0019 009f       |    |		.CONST	0x009f								; Address of exception handler
001a 000e       |    |		.CONST	0x000e								; Number of locals
001b			INIT_0018:
001b 4800       |H   |		Short_Literal	0x0
001c 0093 05db  |    |		push_full_address	INIT_05d8
001e 02a0       |    |		Declare_Subprogram	Null_Subprogram
001f 038e       |    |		Declare_Type	Package,Defined
0020 0387       |    |		Declare_Variable	Package
0021 0092 066b  |   k|		Action	Push_String_Extended,0x66b					; "Analyze Disks for Backup"
0023 e002       |    |		Load	0x0,0x2
0024 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0025 02c7       |    |		Declare_Variable	Any
0026 00d8       |    |		Load_Top	At_Offset_0
0027 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0028 00e3       |    |		Load_Encached	Natural_Cache
0029 4800       |H   |		Short_Literal	0x0
002a 4802       |H   |		Short_Literal	0x2
002b 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
002d 03fd       |    |		Declare_Type	Discrete,Defined
002e 00d8       |    |		Load_Top	At_Offset_0
002f 4801       |H   |		Short_Literal	0x1
0030 00e3       |    |		Load_Encached	Natural_Cache
0031 4801       |H   |		Short_Literal	0x1
0032 e003       |    |		Load	0x0,0x3
0033 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0034 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
0036 4802       |H   |		Short_Literal	0x2
0037 4800       |H   |		Short_Literal	0x0
0038 4802       |H   |		Short_Literal	0x2
0039 4800       |H   |		Short_Literal	0x0
003a 4801       |H   |		Short_Literal	0x1
003b 031d       |    |		Declare_Type	Variant_Record,Defined
003c 4800       |H   |		Short_Literal	0x0
003d 4802       |H   |		Short_Literal	0x2
003e 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
0040 03fd       |    |		Declare_Type	Discrete,Defined
0041 00d8       |    |		Load_Top	At_Offset_0
0042 e004       |    |		Load	0x0,0x4
0043 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0044 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0045 e003       |    |		Load	0x0,0x3
0046 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0047 e005       |    |		Load	0x0,0x5
0048 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0049 e006       |    |		Load	0x0,0x6
004a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004b 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
004d 4805       |H   |		Short_Literal	0x5
004e 032d       | -  |		Declare_Type	Record,Defined
004f e007       |    |		Load	0x0,0x7
0050 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0051 0266       | f  |		Execute	Discrete,Bounds
0052 e409       |    |		Load	0x2,0x9
0053 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
0055 4801       |H   |		Short_Literal	0x1
0056 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0057 e008       |    |		Load	0x0,0x8
0058 e006       |    |		Load	0x0,0x6
0059 e009       |    |		Load	0x0,0x9
005a e00a       |    |		Load	0x0,0xa
005b e00b       |    |		Load	0x0,0xb
005c e00c       |    |		Load	0x0,0xc
005d 4806       |H   |		Short_Literal	0x6
005e e402       |    |		Load	0x2,0x2
005f 020e       |    |		Execute	Module,Augment_Imports
0060 e402       |    |		Load	0x2,0x2
0061 020f       |    |		Execute	Module,Activate
0062 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0064 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
0066 029f 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Call
0068 029f 0313  |    |		Declare_Subprogram	INIT_0310,For_Call
006a			BODY_0018:
006a e00d       |    |		Load	0x0,0xd
006b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
006c 4800       |H   |		Short_Literal	0x0
006d 0092 066c  |   l|		Action	Push_String_Extended,0x66c					; "Analyze_Disks_For_Backup has started"
006f e00e       |    |		Load	0x0,0xe
0070 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0071 e00f       |    |		Load	0x0,0xf
0072 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0073 e00f       |    |		Load	0x0,0xf
0074 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0075 00d9       |    |		Load_Top	At_Offset_1
0076 00d0       |    |		Action	Swap_Control
0077 0260       | `  |		Execute	Discrete,In_Type
0078 7001       |p   |		Jump_Nonzero	0x7a
0079 0801       |    |		Execute_Immediate	Raise,0x1
007a 6029       |`)  |		Indirect_Literal	Discrete,0xa4,{0x00000000, 0x0000fde8}
007b e00f       |    |		Load	0x0,0xf
007c 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
007d e404       |    |		Load	0x2,0x4
007e 0120       |    |		Execute	Any,Is_Value
007f 6803       |h   |		Jump_Zero	0x83
0080 e002       |    |		Load	0x0,0x2
0081 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0082 7801       |x   |		Jump	0x84
0083 e404       |    |		Load	0x2,0x4
0084 e010       |    |		Load	0x0,0x10
0085 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0086 48ff       |H   |		Short_Literal	0xff
0087 e403       |    |		Load	0x2,0x3
0088 e002       |    |		Load	0x0,0x2
0089 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
008a c404       |    |		Store	0x2,0x4
008b e5fc       |    |		Load	0x2,-0x4
008c 0d01       |    |		Execute_Immediate	Less,0x1
008d e5fc       |    |		Load	0x2,-0x4
008e 0c20       |    |		Execute_Immediate	Greater_Equal,0x20
008f 0278       | x  |		Execute	Discrete,Or
0090 680a       |h   |		Jump_Zero	0x9b
0091 e00d       |    |		Load	0x0,0xd
0092 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0093 4802       |H   |		Short_Literal	0x2
0094 0092 066d  |   m|		Action	Push_String_Extended,0x66d					; "Invalid Start_Volume value specified, all disks will be logged."
0096 e00e       |    |		Load	0x0,0xe
0097 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0098 4801       |H   |		Short_Literal	0x1
0099 a405       |    |		Store_Unchecked	0x2,0x5
009a 7802       |x   |		Jump	0x9d
009b e5fc       |    |		Load	0x2,-0x4
009c a405       |    |		Store_Unchecked	0x2,0x5
009d 840e       |    |		Call	0x2,0xe
009e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
009f			TRAP_0018:
009f 0007       |    |		Action	Break_Optional
00a0 e404       |    |		Load	0x2,0x4
00a1 e002       |    |		Load	0x0,0x2
00a2 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00a3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000fde8}
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 4607       |F   |		Jump_Case	0x8
00ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ad 7807       |x   |		Jump	0xb5								; case 0x1
00ae 780a       |x   |		Jump	0xb9								; case 0x2
00af 780e       |x   |		Jump	0xbe								; case 0x3
00b0 7811       |x   |		Jump	0xc2								; case 0x4
00b1 7812       |x   |		Jump	0xc4								; case 0x5
00b2 7813       |x   |		Jump	0xc6								; case 0x6
00b3 7816       |x   |		Jump	0xca								; case 0x7
00b4 4302       |C   |		.XXX[0x1]
00b5 00da       |    |		Load_Top	At_Offset_2
00b6 0091 0665  |   e|		Action	Push_String_Extended_Indexed,0x665				; "EMPTY"
00b8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 00db       |    |		Load_Top	At_Offset_3
00bb 00e0       |    |		Load_Encached	Standard_Cache
00bc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00be 00da       |    |		Load_Top	At_Offset_2
00bf 00e0       |    |		Load_Encached	Standard_Cache
00c0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00c1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c2 00db       |    |		Load_Top	At_Offset_3
00c3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c4 00db       |    |		Load_Top	At_Offset_3
00c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c6 e406       |    |		Load	0x2,0x6
00c7 00dc       |    |		Load_Top	At_Offset_4
00c8 0267       | g  |		Execute	Discrete,Predecessor
00c9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ca e406       |    |		Load	0x2,0x6
00cb 00dc       |    |		Load_Top	At_Offset_4
00cc 0268       | h  |		Execute	Discrete,Successor
00cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ce 0000 0000  |    |		.XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 4609       |F   |		Jump_Case	0xa
00d4 7809       |x   |		Jump	0xde								; case 0x0
00d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00d6 781a       |x   |		Jump	0xf1								; case 0x2
00d7 781d       |x   |		Jump	0xf5								; case 0x3
00d8 7846       |xF  |		Jump	0x11f								; case 0x4
00d9 7845       |xE  |		Jump	0x11f								; case 0x5
00da 7820       |x   |		Jump	0xfb								; case 0x6
00db 782a       |x*  |		Jump	0x106								; case 0x7
00dc 7837       |x7  |		Jump	0x114								; case 0x8
00dd 783d       |x=  |		Jump	0x11b								; case 0x9
00de e7ff       |    |		Load	0x3,-0x1
00df 016c       | l  |		Execute	Variant_Record,Is_Constrained
00e0 7009       |p   |		Jump_Nonzero	0xea
00e1 00cf       |    |		Action	Mark_Auxiliary
00e2 4800       |H   |		Short_Literal	0x0
00e3 e7ff       |    |		Load	0x3,-0x1
00e4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00e5 00d8       |    |		Load_Top	At_Offset_0
00e6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e7 c7ff       |    |		Store	0x3,-0x1
00e8 00ce       |    |		Action	Pop_Auxiliary
00e9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00ea e7ff       |    |		Load	0x3,-0x1
00eb 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ec 4602       |F   |		Jump_Case	0x3
00ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ee 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00ef 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
00f0 4302       |C   |		.XXX[0x1]
00f1 4801       |H   |		Short_Literal	0x1
00f2 4803       |H   |		Short_Literal	0x3
00f3 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
00f4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f5 e7fd       |    |		Load	0x3,-0x3
00f6 e7ff       |    |		Load	0x3,-0x1
00f7 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00f8 e7fe       |    |		Load	0x3,-0x2
00f9 0306       |    |		Complete_Type	Variant_Record,By_Renaming
00fa 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
00fb e7fe       |    |		Load	0x3,-0x2
00fc 4602       |F   |		Jump_Case	0x3
00fd 7806       |x   |		Jump	0x104								; case 0x0
00fe 7803       |x   |		Jump	0x102								; case 0x1
00ff 7800       |x   |		Jump	0x100								; case 0x2
0100 4802       |H   |		Short_Literal	0x2
0101 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0102 4801       |H   |		Short_Literal	0x1
0103 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0104 48ff       |H   |		Short_Literal	0xff
0105 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0106 e7fe       |    |		Load	0x3,-0x2
0107 00d8       |    |		Load_Top	At_Offset_0
0108 4602       |F   |		Jump_Case	0x3
0109 7804       |x   |		Jump	0x10e								; case 0x0
010a 7805       |x   |		Jump	0x110								; case 0x1
010b 7800       |x   |		Jump	0x10c								; case 0x2
010c 4802       |H   |		Short_Literal	0x2
010d 7803       |x   |		Jump	0x111
010e 48ff       |H   |		Short_Literal	0xff
010f 7801       |x   |		Jump	0x111
0110 4801       |H   |		Short_Literal	0x1
0111 e7ff       |    |		Load	0x3,-0x1
0112 031b       |    |		Declare_Type	Variant_Record,Constrained
0113 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0114 e7fe       |    |		Load	0x3,-0x2
0115 00d8       |    |		Load_Top	At_Offset_0
0116 e7ff       |    |		Load	0x3,-0x1
0117 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0118 e7ff       |    |		Load	0x3,-0x1
0119 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
011a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011b 4800       |H   |		Short_Literal	0x0
011c e7ff       |    |		Load	0x3,-0x1
011d 1c07       |    |		Execute_Immediate	Run_Utility,0x7
011e 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
011f 0869       | i  |		Execute_Immediate	Raise,0x69
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 4607       |F   |		Jump_Case	0x8
0124 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0125 7807       |x   |		Jump	0x12d								; case 0x1
0126 780a       |x   |		Jump	0x131								; case 0x2
0127 780e       |x   |		Jump	0x136								; case 0x3
0128 7811       |x   |		Jump	0x13a								; case 0x4
0129 7812       |x   |		Jump	0x13c								; case 0x5
012a 7813       |x   |		Jump	0x13e								; case 0x6
012b 7816       |x   |		Jump	0x142								; case 0x7
012c 4302       |C   |		.XXX[0x1]
012d 00da       |    |		Load_Top	At_Offset_2
012e 0091 0668  |   h|		Action	Push_String_Extended_Indexed,0x668				; "EMPTY"
0130 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0131 00db       |    |		Load_Top	At_Offset_3
0132 00db       |    |		Load_Top	At_Offset_3
0133 00e0       |    |		Load_Encached	Standard_Cache
0134 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0135 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0136 00da       |    |		Load_Top	At_Offset_2
0137 00e0       |    |		Load_Encached	Standard_Cache
0138 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0139 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
013a 00db       |    |		Load_Top	At_Offset_3
013b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013c 00db       |    |		Load_Top	At_Offset_3
013d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013e e408       |    |		Load	0x2,0x8
013f 00dc       |    |		Load_Top	At_Offset_4
0140 0267       | g  |		Execute	Discrete,Predecessor
0141 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0142 e408       |    |		Load	0x2,0x8
0143 00dc       |    |		Load_Top	At_Offset_4
0144 0268       | h  |		Execute	Discrete,Successor
0145 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 4601       |F   |		Jump_Case	0x2
014c 7801       |x   |		Jump	0x14e								; case 0x0
014d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
014e e7ff       |    |		Load	0x3,-0x1
014f 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0150 0125       | %  |		Execute	Any,Set_Constraint
0151 e7ff       |    |		Load	0x3,-0x1
0152 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0153 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0154 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00d1       |    |		Pop_Control	Pop_Count_1
015c e7ff       |    |		Load	0x3,-0x1
015d 01dc       |    |		Execute	Vector,Last
015e e7ff       |    |		Load	0x3,-0x1
015f 01dd       |    |		Execute	Vector,First
0160 0263       | c  |		Execute	Discrete,Above_Bound
0161 7006       |p   |		Jump_Nonzero	0x168
0162 00d8       |    |		Load_Top	At_Offset_0
0163 e7ff       |    |		Load	0x3,-0x1
0164 01d5       |    |		Execute	Vector,Field_Reference
0165 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0166 0a01       |    |		Execute_Immediate	Plus,0x1
0167 7ff8       |    |		Jump	0x160
0168 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0169 0000 0000  |    |		.BLANK	0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 01dc       |    |		.CONST	0x01dc								; Address of begin
0171 0252       | R  |		.CONST	0x0252								; Address of exception handler
0172 0026       | &  |		.CONST	0x0026								; Number of locals
0173			INIT_0170:
0173 e011       |    |		Load	0x0,0x11
0174 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0175 02c7       |    |		Declare_Variable	Any
0176 00d8       |    |		Load_Top	At_Offset_0
0177 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0178 00e1       |    |		Load_Encached	Boolean_Cache
0179 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
017a e008       |    |		Load	0x0,0x8
017b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
017d 00e1       |    |		Load_Encached	Boolean_Cache
017e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
017f 4800       |H   |		Short_Literal	0x0
0180 4bff       |K   |		Short_Literal	0x3ff
0181 e407       |    |		Load	0x2,0x7
0182 029f 0353  |   S|		Declare_Subprogram	INIT_0350,For_Call
0184 4801       |H   |		Short_Literal	0x1
0185 035d       | ]  |		Declare_Type	Array,Defined
0186 00d8       |    |		Load_Top	At_Offset_0
0187 0337       | 7  |		Declare_Variable	Array
0188 00d8       |    |		Load_Top	At_Offset_0
0189 1c00       |    |		Execute_Immediate	Run_Utility,0x0
018a e007       |    |		Load	0x0,0x7
018b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018c e007       |    |		Load	0x0,0x7
018d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
018e e004       |    |		Load	0x0,0x4
018f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0190 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0191 e007       |    |		Load	0x0,0x7
0192 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0193 03f1       |    |		Declare_Variable	Discrete,With_Value
0194 4801       |H   |		Short_Literal	0x1
0195 e60a       |    |		Load	0x3,0xa
0196 e40a       |    |		Load	0x2,0xa
0197 035b       | [  |		Declare_Type	Array,Constrained
0198 0337       | 7  |		Declare_Variable	Array
0199 00d8       |    |		Load_Top	At_Offset_0
019a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
019b 00e3       |    |		Load_Encached	Natural_Cache
019c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
019d 029f 036b  |   k|		Declare_Subprogram	INIT_0368,For_Call
019f 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
01a1 029f 0383  |    |		Declare_Subprogram	INIT_0380,For_Call
01a3 029f 038b  |    |		Declare_Subprogram	INIT_0388,For_Call
01a5 029f 0393  |    |		Declare_Subprogram	INIT_0390,For_Call
01a7 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
01a9 029f 03db  |    |		Declare_Subprogram	INIT_03d8,For_Call
01ab 029f 042b  |   +|		Declare_Subprogram	INIT_0428,For_Call
01ad 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
01af 029f 048b  |    |		Declare_Subprogram	INIT_0488,For_Call
01b1 029f 056b  |   k|		Declare_Subprogram	INIT_0568,For_Call
01b3 e004       |    |		Load	0x0,0x4
01b4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01b5 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
01b6 00c6       |    |		Action	Check_Subprogram_Elaborated
01b7 480e       |H   |		Short_Literal	0xe
01b8 4803       |H   |		Short_Literal	0x3
01b9 0099       |    |		Action	Reference_Dynamic
01ba 480f       |H   |		Short_Literal	0xf
01bb 4803       |H   |		Short_Literal	0x3
01bc 0099       |    |		Action	Reference_Dynamic
01bd 4810       |H   |		Short_Literal	0x10
01be 4803       |H   |		Short_Literal	0x3
01bf 0099       |    |		Action	Reference_Dynamic
01c0 4811       |H   |		Short_Literal	0x11
01c1 4803       |H   |		Short_Literal	0x3
01c2 0099       |    |		Action	Reference_Dynamic
01c3 4812       |H   |		Short_Literal	0x12
01c4 4803       |H   |		Short_Literal	0x3
01c5 0099       |    |		Action	Reference_Dynamic
01c6 4813       |H   |		Short_Literal	0x13
01c7 4803       |H   |		Short_Literal	0x3
01c8 0099       |    |		Action	Reference_Dynamic
01c9 4814       |H   |		Short_Literal	0x14
01ca 4803       |H   |		Short_Literal	0x3
01cb 0099       |    |		Action	Reference_Dynamic
01cc 4815       |H   |		Short_Literal	0x15
01cd 4803       |H   |		Short_Literal	0x3
01ce 0099       |    |		Action	Reference_Dynamic
01cf 4816       |H   |		Short_Literal	0x16
01d0 4803       |H   |		Short_Literal	0x3
01d1 0099       |    |		Action	Reference_Dynamic
01d2 4817       |H   |		Short_Literal	0x17
01d3 4803       |H   |		Short_Literal	0x3
01d4 0099       |    |		Action	Reference_Dynamic
01d5 e012       |    |		Load	0x0,0x12
01d6 e013       |    |		Load	0x0,0x13
01d7 4824       |H$  |		Short_Literal	0x24
01d8 029f 0573  |   s|		Declare_Subprogram	INIT_0570,For_Call
01da 029f 0583  |    |		Declare_Subprogram	INIT_0580,For_Call
01dc			BODY_0170:
01dc 00e1       |    |		Load_Encached	Boolean_Cache
01dd e7ff       |    |		Load	0x3,-0x1
01de e014       |    |		Load	0x0,0x14
01df 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e0 c603       |    |		Store	0x3,0x3
01e1 e603       |    |		Load	0x3,0x3
01e2 7008       |p   |		Jump_Nonzero	0x1eb
01e3 e00d       |    |		Load	0x0,0xd
01e4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01e5 4805       |H   |		Short_Literal	0x5
01e6 0092 066e  |   n|		Action	Push_String_Extended,0x66e					; "Check_Disk_For_Backup can not complete because Backupor disk garbage collection is already in progress."
01e8 e00e       |    |		Load	0x0,0xe
01e9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ea 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01eb e00d       |    |		Load	0x0,0xd
01ec 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01ed 4804       |H   |		Short_Literal	0x4
01ee 0092 066f  |   o|		Action	Push_String_Extended,0x66f					; "Starting retained snapshot"
01f0 e00e       |    |		Load	0x0,0xe
01f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f2 e602       |    |		Load	0x3,0x2
01f3 0120       |    |		Execute	Any,Is_Value
01f4 6803       |h   |		Jump_Zero	0x1f8
01f5 e011       |    |		Load	0x0,0x11
01f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f7 7801       |x   |		Jump	0x1f9
01f8 e602       |    |		Load	0x3,0x2
01f9 e015       |    |		Load	0x0,0x15
01fa 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
01fb e7ff       |    |		Load	0x3,-0x1
01fc e015       |    |		Load	0x0,0x15
01fd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01fe c604       |    |		Store	0x3,0x4
01ff c602       |    |		Store	0x3,0x2
0200 4801       |H   |		Short_Literal	0x1
0201 a605       |    |		Store_Unchecked	0x3,0x5
0202 e00d       |    |		Load	0x0,0xd
0203 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0204 4804       |H   |		Short_Literal	0x4
0205 0092 0670  |   p|		Action	Push_String_Extended,0x670					; "Retained snapshot has completed"
0207 e00e       |    |		Load	0x0,0xe
0208 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0209 e604       |    |		Load	0x3,0x4
020a e7fe       |    |		Load	0x3,-0x2
020b 4818       |H   |		Short_Literal	0x18
020c 4803       |H   |		Short_Literal	0x3
020d 0099       |    |		Action	Reference_Dynamic
020e 4819       |H   |		Short_Literal	0x19
020f 4803       |H   |		Short_Literal	0x3
0210 0099       |    |		Action	Reference_Dynamic
0211 481a       |H   |		Short_Literal	0x1a
0212 4803       |H   |		Short_Literal	0x3
0213 0099       |    |		Action	Reference_Dynamic
0214 481b       |H   |		Short_Literal	0x1b
0215 4803       |H   |		Short_Literal	0x3
0216 0099       |    |		Action	Reference_Dynamic
0217 481c       |H   |		Short_Literal	0x1c
0218 4803       |H   |		Short_Literal	0x3
0219 0099       |    |		Action	Reference_Dynamic
021a 481d       |H   |		Short_Literal	0x1d
021b 4803       |H   |		Short_Literal	0x3
021c 0099       |    |		Action	Reference_Dynamic
021d 481e       |H   |		Short_Literal	0x1e
021e 4803       |H   |		Short_Literal	0x3
021f 0099       |    |		Action	Reference_Dynamic
0220 481f       |H   |		Short_Literal	0x1f
0221 4803       |H   |		Short_Literal	0x3
0222 0099       |    |		Action	Reference_Dynamic
0223 4820       |H   |		Short_Literal	0x20
0224 4803       |H   |		Short_Literal	0x3
0225 0099       |    |		Action	Reference_Dynamic
0226 4821       |H!  |		Short_Literal	0x21
0227 4803       |H   |		Short_Literal	0x3
0228 0099       |    |		Action	Reference_Dynamic
0229 4822       |H"  |		Short_Literal	0x22
022a 4803       |H   |		Short_Literal	0x3
022b 0099       |    |		Action	Reference_Dynamic
022c e004       |    |		Load	0x0,0x4
022d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
022e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
022f e7ff       |    |		Load	0x3,-0x1
0230 e004       |    |		Load	0x0,0x4
0231 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0232 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0233 e604       |    |		Load	0x3,0x4
0234 e004       |    |		Load	0x0,0x4
0235 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0236 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0237 e014       |    |		Load	0x0,0x14
0238 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0239 e60c       |    |		Load	0x3,0xc
023a 680f       |h   |		Jump_Zero	0x24a
023b e00d       |    |		Load	0x0,0xd
023c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
023d 4806       |H   |		Short_Literal	0x6
023e 0092 0671  |   q|		Action	Push_String_Extended,0x671					; "Analyze_Disks_For_Backup has detected"
0240 e60c       |    |		Load	0x3,0xc
0241 00e0       |    |		Load_Encached	Standard_Cache
0242 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0243 01cc       |    |		Execute	Vector,Catenate
0244 0092 0672  |   r|		Action	Push_String_Extended,0x672					; " inconsistencies."
0246 01cc       |    |		Execute	Vector,Catenate
0247 e00e       |    |		Load	0x0,0xe
0248 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0249 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
024a e00d       |    |		Load	0x0,0xd
024b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
024c 4803       |H   |		Short_Literal	0x3
024d 0092 0673  |   s|		Action	Push_String_Extended,0x673					; "Analyze_Disks_For_Backup has completed."
024f e00e       |    |		Load	0x0,0xe
0250 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0251 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0252			TRAP_0170:
0252 0007       |    |		Action	Break_Optional
0253 e00d       |    |		Load	0x0,0xd
0254 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0255 4808       |H   |		Short_Literal	0x8
0256 e016       |    |		Load	0x0,0x16
0257 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0258 e00e       |    |		Load	0x0,0xe
0259 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
025a e00d       |    |		Load	0x0,0xd
025b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
025c 4806       |H   |		Short_Literal	0x6
025d 0092 0671  |   q|		Action	Push_String_Extended,0x671					; "Analyze_Disks_For_Backup has detected"
025f e60c       |    |		Load	0x3,0xc
0260 00e0       |    |		Load_Encached	Standard_Cache
0261 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0262 01cc       |    |		Execute	Vector,Catenate
0263 0092 0672  |   r|		Action	Push_String_Extended,0x672					; " inconsistencies."
0265 01cc       |    |		Execute	Vector,Catenate
0266 e00e       |    |		Load	0x0,0xe
0267 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0268 e00d       |    |		Load	0x0,0xd
0269 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
026a 4805       |H   |		Short_Literal	0x5
026b 0092 0674  |   t|		Action	Push_String_Extended,0x674					; "Check_Disks_For_Backup did NOT complete"
026d e00e       |    |		Load	0x0,0xe
026e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
026f e404       |    |		Load	0x2,0x4
0270 e002       |    |		Load	0x0,0x2
0271 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0272 e605       |    |		Load	0x3,0x5
0273 6801       |h   |		Jump_Zero	0x275
0274 8625       | %  |		Call	0x3,0x25
0275 e603       |    |		Load	0x3,0x3
0276 6801       |h   |		Jump_Zero	0x278
0277 8626       | &  |		Call	0x3,0x26
0278 00d8       |    |		Load_Top	At_Offset_0
0279 0101       |    |		Execute	Exception,Reraise
027a 0000 0000  |    |		.BLANK	0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0286       |    |		.CONST	0x0286								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0002       |    |		.CONST	0x0002								; Number of locals
0283			INIT_0280:
0283 e008       |    |		Load	0x0,0x8
0284 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0285 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0286			BODY_0280:
0286 00cf       |    |		Action	Mark_Auxiliary
0287 e7ff       |    |		Load	0x3,-0x1
0288 01d9       |    |		Execute	Vector,Reverse_Bounds
0289 0007       |    |		Action	Break_Optional
028a 00d8       |    |		Load_Top	At_Offset_0
028b e7ff       |    |		Load	0x3,-0x1
028c 01d5       |    |		Execute	Vector,Field_Reference
028d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
028e 0f03       |    |		Execute_Immediate	Equal,0x3
028f 6813       |h   |		Jump_Zero	0x2a3
0290 00d8       |    |		Load_Top	At_Offset_0
0291 e7ff       |    |		Load	0x3,-0x1
0292 01d5       |    |		Execute	Vector,Field_Reference
0293 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0294 700e       |p   |		Jump_Nonzero	0x2a3
0295 e602       |    |		Load	0x3,0x2
0296 680a       |h   |		Jump_Zero	0x2a1
0297 e602       |    |		Load	0x3,0x2
0298 e7ff       |    |		Load	0x3,-0x1
0299 01d5       |    |		Execute	Vector,Field_Reference
029a 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
029b e605       |    |		Load	0x3,0x5
029c e7ff       |    |		Load	0x3,-0x1
029d 01d5       |    |		Execute	Vector,Field_Reference
029e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
029f 027c       | |  |		Execute	Discrete,Less
02a0 6802       |h   |		Jump_Zero	0x2a3
02a1 00d8       |    |		Load_Top	At_Offset_0
02a2 a602       |    |		Store_Unchecked	0x3,0x2
02a3 00c8       |    |		Action	Pop_Auxiliary_Range
02a4 3fe5       |?   |		Loop_Increasing	0x28a
02a5 00ce       |    |		Action	Pop_Auxiliary
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02c7       |    |		.CONST	0x02c7								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 000a       |    |		.CONST	0x000a								; Number of locals
02ab			INIT_02a8:
02ab e7ff       |    |		Load	0x3,-0x1
02ac 840c       |    |		Call	0x2,0xc
02ad e008       |    |		Load	0x0,0x8
02ae 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02af 03f1       |    |		Declare_Variable	Discrete,With_Value
02b0 e008       |    |		Load	0x0,0x8
02b1 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02b2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02b3 e011       |    |		Load	0x0,0x11
02b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b5 02c7       |    |		Declare_Variable	Any
02b6 00d8       |    |		Load_Top	At_Offset_0
02b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b8 00e1       |    |		Load_Encached	Boolean_Cache
02b9 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02ba 029f 058b  |    |		Declare_Subprogram	INIT_0588,For_Call
02bc e017       |    |		Load	0x0,0x17
02bd 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02be 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
02bf 00c6       |    |		Action	Check_Subprogram_Elaborated
02c0 4806       |H   |		Short_Literal	0x6
02c1 4803       |H   |		Short_Literal	0x3
02c2 0099       |    |		Action	Reference_Dynamic
02c3 e018       |    |		Load	0x0,0x18
02c4 e019       |    |		Load	0x0,0x19
02c5 480a       |H   |		Short_Literal	0xa
02c6 0007       |    |		Action	Break_Optional
02c7			BODY_02a8:
02c7 e602       |    |		Load	0x3,0x2
02c8 683e       |h>  |		Jump_Zero	0x307
02c9 e602       |    |		Load	0x3,0x2
02ca e7ff       |    |		Load	0x3,-0x1
02cb 01d5       |    |		Execute	Vector,Field_Reference
02cc 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02cd c604       |    |		Store	0x3,0x4
02ce 00cf       |    |		Action	Mark_Auxiliary
02cf e7ff       |    |		Load	0x3,-0x1
02d0 01d9       |    |		Execute	Vector,Reverse_Bounds
02d1 0007       |    |		Action	Break_Optional
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 e7ff       |    |		Load	0x3,-0x1
02d4 01d5       |    |		Execute	Vector,Field_Reference
02d5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02d6 0f03       |    |		Execute_Immediate	Equal,0x3
02d7 682c       |h,  |		Jump_Zero	0x304
02d8 00d8       |    |		Load_Top	At_Offset_0
02d9 e7ff       |    |		Load	0x3,-0x1
02da 01d5       |    |		Execute	Vector,Field_Reference
02db 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02dc 0f01       |    |		Execute_Immediate	Equal,0x1
02dd 6826       |h&  |		Jump_Zero	0x304
02de e604       |    |		Load	0x3,0x4
02df e60d       |    |		Load	0x3,0xd
02e0 e7ff       |    |		Load	0x3,-0x1
02e1 01d5       |    |		Execute	Vector,Field_Reference
02e2 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02e3 e011       |    |		Load	0x0,0x11
02e4 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
02e5 681e       |h   |		Jump_Zero	0x304
02e6 00d8       |    |		Load_Top	At_Offset_0
02e7 e7ff       |    |		Load	0x3,-0x1
02e8 01d5       |    |		Execute	Vector,Field_Reference
02e9 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02ea e7fe       |    |		Load	0x3,-0x2
02eb 4807       |H   |		Short_Literal	0x7
02ec 4803       |H   |		Short_Literal	0x3
02ed 0099       |    |		Action	Reference_Dynamic
02ee 4808       |H   |		Short_Literal	0x8
02ef 4803       |H   |		Short_Literal	0x3
02f0 0099       |    |		Action	Reference_Dynamic
02f1 e017       |    |		Load	0x0,0x17
02f2 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02f3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f4 e605       |    |		Load	0x3,0x5
02f5 680e       |h   |		Jump_Zero	0x304
02f6 e603       |    |		Load	0x3,0x3
02f7 680a       |h   |		Jump_Zero	0x302
02f8 e603       |    |		Load	0x3,0x3
02f9 e7ff       |    |		Load	0x3,-0x1
02fa 01d5       |    |		Execute	Vector,Field_Reference
02fb 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02fc e60d       |    |		Load	0x3,0xd
02fd e7ff       |    |		Load	0x3,-0x1
02fe 01d5       |    |		Execute	Vector,Field_Reference
02ff 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0300 027c       | |  |		Execute	Discrete,Less
0301 6802       |h   |		Jump_Zero	0x304
0302 00d8       |    |		Load_Top	At_Offset_0
0303 a603       |    |		Store_Unchecked	0x3,0x3
0304 00c8       |    |		Action	Pop_Auxiliary_Range
0305 3fcc       |?   |		Loop_Increasing	0x2d2
0306 00ce       |    |		Action	Pop_Auxiliary
0307 e603       |    |		Load	0x3,0x3
0308 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0309 0000 0000  |    |		.BLANK	0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0321       | !  |		.CONST	0x0321								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0005       |    |		.CONST	0x0005								; Number of locals
0313			INIT_0310:
0313 e017       |    |		Load	0x0,0x17
0314 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0315 02c7       |    |		Declare_Variable	Any
0316 00d8       |    |		Load_Top	At_Offset_0
0317 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0318 e008       |    |		Load	0x0,0x8
0319 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
031a e008       |    |		Load	0x0,0x8
031b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
031c e008       |    |		Load	0x0,0x8
031d 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
031e 0337       | 7  |		Declare_Variable	Array
031f 00d8       |    |		Load_Top	At_Offset_0
0320 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0321			BODY_0310:
0321 e602       |    |		Load	0x3,0x2
0322 e017       |    |		Load	0x0,0x17
0323 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0324 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0325 c602       |    |		Store	0x3,0x2
0326 e004       |    |		Load	0x0,0x4
0327 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0328 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0329 e605       |    |		Load	0x3,0x5
032a 01d4       |    |		Execute	Vector,Structure_Write
032b 00d8       |    |		Load_Top	At_Offset_0
032c 840c       |    |		Call	0x2,0xc
032d a603       |    |		Store_Unchecked	0x3,0x3
032e e602       |    |		Load	0x3,0x2
032f e605       |    |		Load	0x3,0x5
0330 840d       |    |		Call	0x2,0xd
0331 a604       |    |		Store_Unchecked	0x3,0x4
0332 e602       |    |		Load	0x3,0x2
0333 e017       |    |		Load	0x0,0x17
0334 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0335 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0336 c602       |    |		Store	0x3,0x2
0337 00cf       |    |		Action	Mark_Auxiliary
0338 4803       |H   |		Short_Literal	0x3
0339 4801       |H   |		Short_Literal	0x1
033a 0007       |    |		Action	Break_Optional
033b 00d8       |    |		Load_Top	At_Offset_0
033c e603       |    |		Load	0x3,0x3
033d 027f       |    |		Execute	Discrete,Equal
033e 0f00       |    |		Execute_Immediate	Equal,0x0
033f e608       |    |		Load	0x3,0x8
0340 e604       |    |		Load	0x3,0x4
0341 027f       |    |		Execute	Discrete,Equal
0342 0f00       |    |		Execute_Immediate	Equal,0x0
0343 0279       | y  |		Execute	Discrete,And
0344 6805       |h   |		Jump_Zero	0x34a
0345 4800       |H   |		Short_Literal	0x0
0346 e608       |    |		Load	0x3,0x8
0347 840b       |    |		Call	0x2,0xb
0348 00d2       |    |		Pop_Control	Pop_Count_2
0349 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034a 00c8       |    |		Action	Pop_Auxiliary_Range
034b 3fef       |?   |		Loop_Increasing	0x33b
034c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034d 0000 0000  |    |		.XXX[0x3]
034f 0000       |    |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 00d1       |    |		Pop_Control	Pop_Count_1
0354 e9ff       |    |		Load	0x4,-0x1
0355 01d8       |    |		Execute	Vector,Element_Type
0356 02ff       |    |		Declare_Variable	Variant_Record
0357 00d8       |    |		Load_Top	At_Offset_0
0358 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0359 e9ff       |    |		Load	0x4,-0x1
035a 01dc       |    |		Execute	Vector,Last
035b e9ff       |    |		Load	0x4,-0x1
035c 01dd       |    |		Execute	Vector,First
035d 0263       | c  |		Execute	Discrete,Above_Bound
035e 7006       |p   |		Jump_Nonzero	0x365
035f e802       |    |		Load	0x4,0x2
0360 e804       |    |		Load	0x4,0x4
0361 e9ff       |    |		Load	0x4,-0x1
0362 01d6       |    |		Execute	Vector,Field_Write
0363 0a01       |    |		Execute_Immediate	Plus,0x1
0364 7ff8       |    |		Jump	0x35d
0365 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0366 0000 0000  |    |		.XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b e60c       |    |		Load	0x3,0xc
036c 0a01       |    |		Execute_Immediate	Plus,0x1
036d c60c       |    |		Store	0x3,0xc
036e e00d       |    |		Load	0x0,0xd
036f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0370 4805       |H   |		Short_Literal	0x5
0371 e9ff       |    |		Load	0x4,-0x1
0372 e00e       |    |		Load	0x0,0xe
0373 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0374 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0375 0000 0000  |    |		.XXX[0x3]
0377 0000       |    |
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 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
037c 0000 0000  |    |		.BLANK	0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0384 0000 0000  |    |		.BLANK	0000[0x4]
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 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
038c 0000 0000  |    |		.BLANK	0000[0x4]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0394 0000 0000  |    |		.BLANK	0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b e00d       |    |		Load	0x0,0xd
039c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
039d 4804       |H   |		Short_Literal	0x4
039e 0092 0675  |   u|		Action	Push_String_Extended,0x675					; "Checking disk volume"
03a0 e9ff       |    |		Load	0x4,-0x1
03a1 00e0       |    |		Load_Encached	Standard_Cache
03a2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03a3 01cc       |    |		Execute	Vector,Catenate
03a4 e00e       |    |		Load	0x0,0xe
03a5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03a6 e9fe       |    |		Load	0x4,-0x2
03a7 e60a       |    |		Load	0x3,0xa
03a8 027d       | }  |		Execute	Discrete,Greater
03a9 680e       |h   |		Jump_Zero	0x3b8
03aa 0092 0676  |   v|		Action	Push_String_Extended,0x676					; "Inconsistent Max_Block.  Found:"
03ac e9fe       |    |		Load	0x4,-0x2
03ad 00e0       |    |		Load_Encached	Standard_Cache
03ae 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03af 01cc       |    |		Execute	Vector,Catenate
03b0 0092 0677  |   w|		Action	Push_String_Extended,0x677					; "  Should not exceed"
03b2 01cc       |    |		Execute	Vector,Catenate
03b3 e60a       |    |		Load	0x3,0xa
03b4 00e0       |    |		Load_Encached	Standard_Cache
03b5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03b6 01cc       |    |		Execute	Vector,Catenate
03b7 860d       |    |		Call	0x3,0xd
03b8 e9ff       |    |		Load	0x4,-0x1
03b9 a608       |    |		Store_Unchecked	0x3,0x8
03ba e9fe       |    |		Load	0x4,-0x2
03bb a609       |    |		Store_Unchecked	0x3,0x9
03bc 00cf       |    |		Action	Mark_Auxiliary
03bd e60b       |    |		Load	0x3,0xb
03be 01d9       |    |		Execute	Vector,Reverse_Bounds
03bf 0263       | c  |		Execute	Discrete,Above_Bound
03c0 7007       |p   |		Jump_Nonzero	0x3c8
03c1 4800       |H   |		Short_Literal	0x0
03c2 e804       |    |		Load	0x4,0x4
03c3 e60b       |    |		Load	0x3,0xb
03c4 01d5       |    |		Execute	Vector,Field_Reference
03c5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03c6 00c8       |    |		Action	Pop_Auxiliary_Range
03c7 3ff9       |?   |		Loop_Increasing	0x3c1
03c8 00ce       |    |		Action	Pop_Auxiliary
03c9 e00d       |    |		Load	0x0,0xd
03ca 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03cb 4804       |H   |		Short_Literal	0x4
03cc 0092 0678  |   x|		Action	Push_String_Extended,0x678					; "   Checking VPs"
03ce e00e       |    |		Load	0x0,0xe
03cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03d0 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03d1 0000 0000  |    |		.BLANK	0000[0x7]
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 e9fb       |    |		Load	0x4,-0x5
03dc e608       |    |		Load	0x3,0x8
03dd 027f       |    |		Execute	Discrete,Equal
03de 7015       |p   |		Jump_Nonzero	0x3f4
03df 0092 0679  |   y|		Action	Push_String_Extended,0x679					; "Inconsistent Volume for VP"
03e1 e9ff       |    |		Load	0x4,-0x1
03e2 00e0       |    |		Load_Encached	Standard_Cache
03e3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03e4 01cc       |    |		Execute	Vector,Catenate
03e5 0092 067a  |   z|		Action	Push_String_Extended,0x67a					; "  Found:"
03e7 01cc       |    |		Execute	Vector,Catenate
03e8 e9fb       |    |		Load	0x4,-0x5
03e9 00e0       |    |		Load_Encached	Standard_Cache
03ea 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03eb 01cc       |    |		Execute	Vector,Catenate
03ec 0092 067b  |   {|		Action	Push_String_Extended,0x67b					; "  Expected:"
03ee 01cc       |    |		Execute	Vector,Catenate
03ef e608       |    |		Load	0x3,0x8
03f0 00e0       |    |		Load_Encached	Standard_Cache
03f1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03f2 01cc       |    |		Execute	Vector,Catenate
03f3 860d       |    |		Call	0x3,0xd
03f4 e9ff       |    |		Load	0x4,-0x1
03f5 e607       |    |		Load	0x3,0x7
03f6 01d5       |    |		Execute	Vector,Field_Reference
03f7 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03f8 6813       |h   |		Jump_Zero	0x40c
03f9 0092 067c  |   ||		Action	Push_String_Extended,0x67c					; "Inconsistent VP_Table state.  VP:"
03fb e9ff       |    |		Load	0x4,-0x1
03fc 00e0       |    |		Load_Encached	Standard_Cache
03fd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03fe 01cc       |    |		Execute	Vector,Catenate
03ff 0092 067d  |   }|		Action	Push_String_Extended,0x67d					; "  Expected: EMPTY  Found: "
0401 01cc       |    |		Execute	Vector,Catenate
0402 e9ff       |    |		Load	0x4,-0x1
0403 e607       |    |		Load	0x3,0x7
0404 01d5       |    |		Execute	Vector,Field_Reference
0405 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0406 e406       |    |		Load	0x2,0x6
0407 011c       |    |		Execute	Any,Convert_Unchecked
0408 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0409 01cc       |    |		Execute	Vector,Catenate
040a 860d       |    |		Call	0x3,0xd
040b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
040c e9ff       |    |		Load	0x4,-0x1
040d e9fc       |    |		Load	0x4,-0x4
040e 027f       |    |		Execute	Discrete,Equal
040f 680a       |h   |		Jump_Zero	0x41a
0410 4801       |H   |		Short_Literal	0x1
0411 e407       |    |		Load	0x2,0x7
0412 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0413 4800       |H   |		Short_Literal	0x0
0414 e802       |    |		Load	0x4,0x2
0415 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0416 e9ff       |    |		Load	0x4,-0x1
0417 e607       |    |		Load	0x3,0x7
0418 01d6       |    |		Execute	Vector,Field_Write
0419 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
041a 4802       |H   |		Short_Literal	0x2
041b e407       |    |		Load	0x2,0x7
041c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
041d e9fc       |    |		Load	0x4,-0x4
041e e802       |    |		Load	0x4,0x2
041f 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0420 e9ff       |    |		Load	0x4,-0x1
0421 e607       |    |		Load	0x3,0x7
0422 01d6       |    |		Execute	Vector,Field_Write
0423 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0424 0000 0000  |    |		.BLANK	0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b e00d       |    |		Load	0x0,0xd
042c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
042d 4804       |H   |		Short_Literal	0x4
042e 0092 067e  |   ~|		Action	Push_String_Extended,0x67e					; "   Checking Segments/Blocks"
0430 e00e       |    |		Load	0x0,0xe
0431 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0432 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0433 0000 0000  |    |		.BLANK	0000[0x5]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b e5ff       |    |		Load	0x2,-0x1
043c e608       |    |		Load	0x3,0x8
043d e405       |    |		Load	0x2,0x5
043e 027b       | {  |		Execute	Discrete,Greater_Equal
043f 0279       | y  |		Execute	Discrete,And
0440 6840       |h@  |		Jump_Zero	0x481
0441 e00d       |    |		Load	0x0,0xd
0442 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0443 4802       |H   |		Short_Literal	0x2
0444 0092 067f  |    |		Action	Push_String_Extended,0x67f					; "    Working on volume "
0446 e608       |    |		Load	0x3,0x8
0447 00e0       |    |		Load_Encached	Standard_Cache
0448 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0449 01cc       |    |		Execute	Vector,Catenate
044a 0092 0680  |    |		Action	Push_String_Extended,0x680					; " "
044c 01cc       |    |		Execute	Vector,Catenate
044d e9ff       |    |		Load	0x4,-0x1
044e 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
044f e006       |    |		Load	0x0,0x6
0450 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0451 01cc       |    |		Execute	Vector,Catenate
0452 e00e       |    |		Load	0x0,0xe
0453 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0454 e5fd       |    |		Load	0x2,-0x3
0455 6814       |h   |		Jump_Zero	0x46a
0456 0092 0681  |    |		Action	Push_String_Extended,0x681					; "Working on: volume "
0458 e608       |    |		Load	0x3,0x8
0459 00e0       |    |		Load_Encached	Standard_Cache
045a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
045b 01cc       |    |		Execute	Vector,Catenate
045c 0092 0680  |    |		Action	Push_String_Extended,0x680					; " "
045e 01cc       |    |		Execute	Vector,Catenate
045f e9ff       |    |		Load	0x4,-0x1
0460 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0461 e006       |    |		Load	0x0,0x6
0462 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0463 01cc       |    |		Execute	Vector,Catenate
0464 0092 0682  |    |		Action	Push_String_Extended,0x682					; "Next_Space"
0466 4801       |H   |		Short_Literal	0x1
0467 e403       |    |		Load	0x2,0x3
0468 e01a       |    |		Load	0x0,0x1a
0469 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
046a e5fe       |    |		Load	0x2,-0x2
046b e5fd       |    |		Load	0x2,-0x3
046c 0278       | x  |		Execute	Discrete,Or
046d 6813       |h   |		Jump_Zero	0x481
046e e404       |    |		Load	0x2,0x4
046f 0092 0683  |    |		Action	Push_String_Extended,0x683					; "Working on volume "
0471 e608       |    |		Load	0x3,0x8
0472 00e0       |    |		Load_Encached	Standard_Cache
0473 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0474 01cc       |    |		Execute	Vector,Catenate
0475 0092 0680  |    |		Action	Push_String_Extended,0x680					; " "
0477 01cc       |    |		Execute	Vector,Catenate
0478 e9ff       |    |		Load	0x4,-0x1
0479 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
047a e006       |    |		Load	0x0,0x6
047b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
047c 01cc       |    |		Execute	Vector,Catenate
047d e002       |    |		Load	0x0,0x2
047e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
047f 4948       |IH  |		Short_Literal	0x148
0480 00ba       |    |		Action	Initiate_Delay
0481 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0482 0000 0000  |    |		.BLANK	0000[0x6]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048f       |    |		.CONST	0x048f								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0003       |    |		.CONST	0x0003								; Number of locals
048b			INIT_0488:
048b e003       |    |		Load	0x0,0x3
048c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
048d 029f 059b  |    |		Declare_Subprogram	INIT_0598,For_Call
048f			BODY_0488:
048f e9fc       |    |		Load	0x4,-0x4
0490 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0491 e608       |    |		Load	0x3,0x8
0492 027f       |    |		Execute	Discrete,Equal
0493 7011       |p   |		Jump_Nonzero	0x4a5
0494 0092 0684  |    |		Action	Push_String_Extended,0x684					; "Inconsistent Volume for Block  Found:"
0496 e9fc       |    |		Load	0x4,-0x4
0497 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0498 00e0       |    |		Load_Encached	Standard_Cache
0499 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
049a 01cc       |    |		Execute	Vector,Catenate
049b 0092 067b  |   {|		Action	Push_String_Extended,0x67b					; "  Expected:"
049d 01cc       |    |		Execute	Vector,Catenate
049e e608       |    |		Load	0x3,0x8
049f 00e0       |    |		Load_Encached	Standard_Cache
04a0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04a1 01cc       |    |		Execute	Vector,Catenate
04a2 860d       |    |		Call	0x3,0xd
04a3 4800       |H   |		Short_Literal	0x0
04a4 8803       |    |		Call	0x4,0x3
04a5 e9fe       |    |		Load	0x4,-0x2
04a6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04a7 e607       |    |		Load	0x3,0x7
04a8 01d5       |    |		Execute	Vector,Field_Reference
04a9 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04aa 4602       |F   |		Jump_Case	0x3
04ab 7809       |x   |		Jump	0x4b5								; case 0x0
04ac 781f       |x   |		Jump	0x4cc								; case 0x1
04ad 7800       |x   |		Jump	0x4ae								; case 0x2
04ae e9fe       |    |		Load	0x4,-0x2
04af 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04b0 e607       |    |		Load	0x3,0x7
04b1 01d5       |    |		Execute	Vector,Field_Reference
04b2 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04b3 a802       |    |		Store_Unchecked	0x4,0x2
04b4 781a       |x   |		Jump	0x4cf
04b5 0092 067c  |   ||		Action	Push_String_Extended,0x67c					; "Inconsistent VP_Table state.  VP:"
04b7 e9fe       |    |		Load	0x4,-0x2
04b8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04b9 00e0       |    |		Load_Encached	Standard_Cache
04ba 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04bb 01cc       |    |		Execute	Vector,Catenate
04bc 0092 067d  |   }|		Action	Push_String_Extended,0x67d					; "  Expected: EMPTY  Found: "
04be 01cc       |    |		Execute	Vector,Catenate
04bf e9fe       |    |		Load	0x4,-0x2
04c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04c1 e607       |    |		Load	0x3,0x7
04c2 01d5       |    |		Execute	Vector,Field_Reference
04c3 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04c4 e406       |    |		Load	0x2,0x6
04c5 011c       |    |		Execute	Any,Convert_Unchecked
04c6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04c7 01cc       |    |		Execute	Vector,Catenate
04c8 860d       |    |		Call	0x3,0xd
04c9 4800       |H   |		Short_Literal	0x0
04ca 8803       |    |		Call	0x4,0x3
04cb 7803       |x   |		Jump	0x4cf
04cc e9fe       |    |		Load	0x4,-0x2
04cd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04ce a802       |    |		Store_Unchecked	0x4,0x2
04cf e9fc       |    |		Load	0x4,-0x4
04d0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04d1 e609       |    |		Load	0x3,0x9
04d2 027d       | }  |		Execute	Discrete,Greater
04d3 680a       |h   |		Jump_Zero	0x4de
04d4 0092 0685  |    |		Action	Push_String_Extended,0x685					; "Block number exceeds Disk Capacity.  Max:"
04d6 e609       |    |		Load	0x3,0x9
04d7 00e0       |    |		Load_Encached	Standard_Cache
04d8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04d9 01cc       |    |		Execute	Vector,Catenate
04da 860d       |    |		Call	0x3,0xd
04db 4800       |H   |		Short_Literal	0x0
04dc 8803       |    |		Call	0x4,0x3
04dd 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
04de e9fc       |    |		Load	0x4,-0x4
04df 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04e0 e60b       |    |		Load	0x3,0xb
04e1 01d5       |    |		Execute	Vector,Field_Reference
04e2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04e3 4602       |F   |		Jump_Case	0x3
04e4 783a       |x:  |		Jump	0x51f								; case 0x0
04e5 7866       |xf  |		Jump	0x54c								; case 0x1
04e6 7800       |x   |		Jump	0x4e7								; case 0x2
04e7 e9fd       |    |		Load	0x4,-0x3
04e8 e9fc       |    |		Load	0x4,-0x4
04e9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04ea e60b       |    |		Load	0x3,0xb
04eb 01d5       |    |		Execute	Vector,Field_Reference
04ec 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04ed 012f       | /  |		Execute	Any,Equal
04ee 7018       |p   |		Jump_Nonzero	0x507
04ef 0092 0686  |    |		Action	Push_String_Extended,0x686					; "Inconsistent Block_Table state.  Expected FAMILY: "
04f1 e9fd       |    |		Load	0x4,-0x3
04f2 e402       |    |		Load	0x2,0x2
04f3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
04f4 00e0       |    |		Load_Encached	Standard_Cache
04f5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04f6 01cc       |    |		Execute	Vector,Catenate
04f7 0092 0687  |    |		Action	Push_String_Extended,0x687					; "  Found: "
04f9 01cc       |    |		Execute	Vector,Catenate
04fa e9fc       |    |		Load	0x4,-0x4
04fb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04fc e60b       |    |		Load	0x3,0xb
04fd 01d5       |    |		Execute	Vector,Field_Reference
04fe 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04ff e402       |    |		Load	0x2,0x2
0500 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0501 00e0       |    |		Load_Encached	Standard_Cache
0502 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0503 01cc       |    |		Execute	Vector,Catenate
0504 860d       |    |		Call	0x3,0xd
0505 4801       |H   |		Short_Literal	0x1
0506 8803       |    |		Call	0x4,0x3
0507 e9fb       |    |		Load	0x4,-0x5
0508 7015       |p   |		Jump_Nonzero	0x51e
0509 0092 0688  |    |		Action	Push_String_Extended,0x688					; "Inconsistent Block_Table state  VP"
050b e9fe       |    |		Load	0x4,-0x2
050c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
050d 00e0       |    |		Load_Encached	Standard_Cache
050e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
050f 01cc       |    |		Execute	Vector,Catenate
0510 0092 0689  |    |		Action	Push_String_Extended,0x689					; "   Block"
0512 01cc       |    |		Execute	Vector,Catenate
0513 e9fc       |    |		Load	0x4,-0x4
0514 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0515 00e0       |    |		Load_Encached	Standard_Cache
0516 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0517 01cc       |    |		Execute	Vector,Catenate
0518 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "  Expected: Is_In_Save_Set"
051a 01cc       |    |		Execute	Vector,Catenate
051b 860d       |    |		Call	0x3,0xd
051c 4801       |H   |		Short_Literal	0x1
051d 8803       |    |		Call	0x4,0x3
051e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
051f e9fb       |    |		Load	0x4,-0x5
0520 681b       |h   |		Jump_Zero	0x53c
0521 e409       |    |		Load	0x2,0x9
0522 0322       | "  |		Declare_Variable	Record
0523 4802       |H   |		Short_Literal	0x2
0524 e804       |    |		Load	0x4,0x4
0525 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0526 e9ff       |    |		Load	0x4,-0x1
0527 e804       |    |		Load	0x4,0x4
0528 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0529 e9fe       |    |		Load	0x4,-0x2
052a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
052b e804       |    |		Load	0x4,0x4
052c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
052d e9fd       |    |		Load	0x4,-0x3
052e e409       |    |		Load	0x2,0x9
052f 3003       |0   |		Execute	Record,Field_Type,Field_Number 0x3
0530 0119       |    |		Execute	Any,Check_In_Formal_Type
0531 e804       |    |		Load	0x4,0x4
0532 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0533 e9fe       |    |		Load	0x4,-0x2
0534 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0535 e804       |    |		Load	0x4,0x4
0536 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0537 e9fc       |    |		Load	0x4,-0x4
0538 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0539 e60b       |    |		Load	0x3,0xb
053a 01d6       |    |		Execute	Vector,Field_Write
053b 7806       |x   |		Jump	0x542
053c 4801       |H   |		Short_Literal	0x1
053d e9fc       |    |		Load	0x4,-0x4
053e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
053f e60b       |    |		Load	0x3,0xb
0540 01d5       |    |		Execute	Vector,Field_Reference
0541 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0542 e802       |    |		Load	0x4,0x2
0543 e607       |    |		Load	0x3,0x7
0544 01d5       |    |		Execute	Vector,Field_Reference
0545 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0546 0a01       |    |		Execute_Immediate	Plus,0x1
0547 e802       |    |		Load	0x4,0x2
0548 e607       |    |		Load	0x3,0x7
0549 01d5       |    |		Execute	Vector,Field_Reference
054a 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
054b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
054c e9fb       |    |		Load	0x4,-0x5
054d 6815       |h   |		Jump_Zero	0x563
054e 0092 0688  |    |		Action	Push_String_Extended,0x688					; "Inconsistent Block_Table state  VP"
0550 e9fe       |    |		Load	0x4,-0x2
0551 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0552 00e0       |    |		Load_Encached	Standard_Cache
0553 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0554 01cc       |    |		Execute	Vector,Catenate
0555 0092 0689  |    |		Action	Push_String_Extended,0x689					; "   Block"
0557 01cc       |    |		Execute	Vector,Catenate
0558 e9fc       |    |		Load	0x4,-0x4
0559 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
055a 00e0       |    |		Load_Encached	Standard_Cache
055b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
055c 01cc       |    |		Execute	Vector,Catenate
055d 0092 068b  |    |		Action	Push_String_Extended,0x68b					; "  Expected: NOT Is_In_Save_Set"
055f 01cc       |    |		Execute	Vector,Catenate
0560 860d       |    |		Call	0x3,0xd
0561 4801       |H   |		Short_Literal	0x1
0562 8803       |    |		Call	0x4,0x3
0563 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0564 0000 0000  |    |		.BLANK	0000[0x4]
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 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
056c 0000 0000  |    |		.BLANK	0000[0x4]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573       | s  |		.CONST	0x0573								; Address of begin
0571 057c       | |  |		.CONST	0x057c								; Address of exception handler
0572 0001       |    |		.CONST	0x0001								; Number of locals
0573			BODY_0570:
0573			INIT_0570:
0573 e7ff       |    |		Load	0x3,-0x1
0574 e004       |    |		Load	0x0,0x4
0575 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0576 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0577 e604       |    |		Load	0x3,0x4
0578 e004       |    |		Load	0x0,0x4
0579 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
057a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
057b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
057c			TRAP_0570:
057c 0007       |    |		Action	Break_Optional
057d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
057e 0000 0000  |    |		.XXX[0x2]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0586       |    |		.CONST	0x0586								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 e014       |    |		Load	0x0,0x14
0584 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0585 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0586			TRAP_0580:
0586 0007       |    |		Action	Break_Optional
0587 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b       |    |		.CONST	0x058b								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0001       |    |		.CONST	0x0001								; Number of locals
058b			BODY_0588:
058b			INIT_0588:
058b e9ff       |    |		Load	0x4,-0x1
058c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
058d 0f01       |    |		Execute_Immediate	Equal,0x1
058e 6805       |h   |		Jump_Zero	0x594
058f e9ff       |    |		Load	0x4,-0x1
0590 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0591 e604       |    |		Load	0x3,0x4
0592 012f       | /  |		Execute	Any,Equal
0593 7801       |x   |		Jump	0x595
0594 4800       |H   |		Short_Literal	0x0
0595 a605       |    |		Store_Unchecked	0x3,0x5
0596 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0597 0000       |    |		.XXX[0x1]
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 e00d       |    |		Load	0x0,0xd
059c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
059d 4800       |H   |		Short_Literal	0x0
059e 0092 068c  |    |		Action	Push_String_Extended,0x68c					; "Block Number:"
05a0 e9fc       |    |		Load	0x4,-0x4
05a1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05a2 00e0       |    |		Load_Encached	Standard_Cache
05a3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05a4 01cc       |    |		Execute	Vector,Catenate
05a5 e00e       |    |		Load	0x0,0xe
05a6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05a7 ebff       |    |		Load	0x5,-0x1
05a8 681a       |h   |		Jump_Zero	0x5c3
05a9 e00d       |    |		Load	0x0,0xd
05aa 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05ab 4800       |H   |		Short_Literal	0x0
05ac 0092 068d  |    |		Action	Push_String_Extended,0x68d					; "Block_Table:    VP"
05ae e9fc       |    |		Load	0x4,-0x4
05af 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05b0 e60b       |    |		Load	0x3,0xb
05b1 01d5       |    |		Execute	Vector,Field_Reference
05b2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05b3 00e0       |    |		Load_Encached	Standard_Cache
05b4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05b5 01cc       |    |		Execute	Vector,Catenate
05b6 0092 068e  |    |		Action	Push_String_Extended,0x68e					; "  Segment "
05b8 01cc       |    |		Execute	Vector,Catenate
05b9 e9fc       |    |		Load	0x4,-0x4
05ba 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05bb e60b       |    |		Load	0x3,0xb
05bc 01d5       |    |		Execute	Vector,Field_Reference
05bd 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
05be 00e0       |    |		Load_Encached	Standard_Cache
05bf 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05c0 01cc       |    |		Execute	Vector,Catenate
05c1 e00e       |    |		Load	0x0,0xe
05c2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05c3 e00d       |    |		Load	0x0,0xd
05c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05c5 4800       |H   |		Short_Literal	0x0
05c6 0092 068f  |    |		Action	Push_String_Extended,0x68f					; "Space_Address:  VP"
05c8 e9fe       |    |		Load	0x4,-0x2
05c9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05ca 00e0       |    |		Load_Encached	Standard_Cache
05cb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05cc 01cc       |    |		Execute	Vector,Catenate
05cd 0092 068e  |    |		Action	Push_String_Extended,0x68e					; "  Segment "
05cf 01cc       |    |		Execute	Vector,Catenate
05d0 e9fe       |    |		Load	0x4,-0x2
05d1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05d2 00e0       |    |		Load_Encached	Standard_Cache
05d3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05d4 01cc       |    |		Execute	Vector,Catenate
05d5 e00e       |    |		Load	0x0,0xe
05d6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05d7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05e4       |    |		.CONST	0x05e4								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 000e       |    |		.CONST	0x000e								; Number of locals
05db			INIT_05d8:
05db 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
05dd 029a 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call,Visible,Unelaborated
05df 00bf       |    |		Action	Accept_Activation
05e0 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
05e1 00c7       |    |		Action	Elaborate_Subprogram
05e2 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
05e3 00c7       |    |		Action	Elaborate_Subprogram
05e4			BODY_05d8:
05e4 00bc       |    |		Action	Signal_Activated
05e5 00bb       |    |		Action	Signal_Completion
05e6 0000 0000  |    |		.XXX[0x2]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 0615       |    |		.CONST	0x0615								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0009       |    |		.CONST	0x0009								; Number of locals
05eb			INIT_05e8:
05eb 00e5       |    |		Load_Encached	Long_Integer_Cache
05ec 012c       | ,  |		Execute	Any,Size
05ed e001       |    |		Load	0x0,0x1
05ee 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
05ef 012c       | ,  |		Execute	Any,Size
05f0 027f       |    |		Execute	Discrete,Equal
05f1 7001       |p   |		Jump_Nonzero	0x5f3
05f2 0887       |    |		Execute_Immediate	Raise,0x87
05f3 e001       |    |		Load	0x0,0x1
05f4 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
05f5 029f 064b  |   K|		Declare_Subprogram	INIT_0648,For_Call
05f7 4801       |H   |		Short_Literal	0x1
05f8 032d       | -  |		Declare_Type	Record,Defined
05f9 00e5       |    |		Load_Encached	Long_Integer_Cache
05fa 02a0       |    |		Declare_Subprogram	Null_Subprogram
05fb 4801       |H   |		Short_Literal	0x1
05fc 032d       | -  |		Declare_Type	Record,Defined
05fd e402       |    |		Load	0x2,0x2
05fe 0322       | "  |		Declare_Variable	Record
05ff e5ff       |    |		Load	0x2,-0x1
0600 e402       |    |		Load	0x2,0x2
0601 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0602 0119       |    |		Execute	Any,Check_In_Formal_Type
0603 e404       |    |		Load	0x2,0x4
0604 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0605 e002       |    |		Load	0x0,0x2
0606 1950       | P  |		Execute	Package,Field_Reference,Field_Number 0x50
0607 00c6       |    |		Action	Check_Subprogram_Elaborated
0608 e403       |    |		Load	0x2,0x3
0609 e003       |    |		Load	0x0,0x3
060a e004       |    |		Load	0x0,0x4
060b 4808       |H   |		Short_Literal	0x8
060c 0007       |    |		Action	Break_Optional
060d e404       |    |		Load	0x2,0x4
060e 012d       | -  |		Execute	Any,Address
060f e405       |    |		Load	0x2,0x5
0610 4806       |H   |		Short_Literal	0x6
0611 4802       |H   |		Short_Literal	0x2
0612 0099       |    |		Action	Reference_Dynamic
0613 e002       |    |		Load	0x0,0x2
0614 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
0615			BODY_05e8:
0615 00d8       |    |		Load_Top	At_Offset_0
0616 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0617 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0642       | B  |		.CONST	0x0642								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0009       |    |		.CONST	0x0009								; Number of locals
061b			INIT_0618:
061b 00e5       |    |		Load_Encached	Long_Integer_Cache
061c 012c       | ,  |		Execute	Any,Size
061d e001       |    |		Load	0x0,0x1
061e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
061f 012c       | ,  |		Execute	Any,Size
0620 027f       |    |		Execute	Discrete,Equal
0621 7001       |p   |		Jump_Nonzero	0x623
0622 0887       |    |		Execute_Immediate	Raise,0x87
0623 e001       |    |		Load	0x0,0x1
0624 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0625 029f 065b  |   [|		Declare_Subprogram	INIT_0658,For_Call
0627 4801       |H   |		Short_Literal	0x1
0628 032d       | -  |		Declare_Type	Record,Defined
0629 00e5       |    |		Load_Encached	Long_Integer_Cache
062a 02a0       |    |		Declare_Subprogram	Null_Subprogram
062b 4801       |H   |		Short_Literal	0x1
062c 032d       | -  |		Declare_Type	Record,Defined
062d 00d8       |    |		Load_Top	At_Offset_0
062e 0322       | "  |		Declare_Variable	Record
062f e5ff       |    |		Load	0x2,-0x1
0630 e404       |    |		Load	0x2,0x4
0631 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0632 e002       |    |		Load	0x0,0x2
0633 1950       | P  |		Execute	Package,Field_Reference,Field_Number 0x50
0634 00c6       |    |		Action	Check_Subprogram_Elaborated
0635 e402       |    |		Load	0x2,0x2
0636 e005       |    |		Load	0x0,0x5
0637 e006       |    |		Load	0x0,0x6
0638 4808       |H   |		Short_Literal	0x8
0639 0007       |    |		Action	Break_Optional
063a e404       |    |		Load	0x2,0x4
063b 012d       | -  |		Execute	Any,Address
063c e405       |    |		Load	0x2,0x5
063d 4806       |H   |		Short_Literal	0x6
063e 4802       |H   |		Short_Literal	0x2
063f 0099       |    |		Action	Reference_Dynamic
0640 e002       |    |		Load	0x0,0x2
0641 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
0642			BODY_0618:
0642 00d8       |    |		Load_Top	At_Offset_0
0643 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0644 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0645 0000 0000  |    |		.XXX[0x3]
0647 0000       |    |
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b       | K  |		.CONST	0x064b								; Address of begin
0649 0004       |    |		.CONST	0x0004								; Address of exception handler
064a 0001       |    |		.CONST	0x0001								; Number of locals
064b			BODY_0648:
064b			INIT_0648:
064b 4601       |F   |		Jump_Case	0x2
064c 7801       |x   |		Jump	0x64e								; case 0x0
064d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
064e e7ff       |    |		Load	0x3,-0x1
064f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0650 0125       | %  |		Execute	Any,Set_Constraint
0651 e7ff       |    |		Load	0x3,-0x1
0652 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0653 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0654 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0655 0000 0000  |    |		.XXX[0x3]
0657 0000       |    |
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b       | [  |		.CONST	0x065b								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0001       |    |		.CONST	0x0001								; Number of locals
065b			BODY_0658:
065b			INIT_0658:
065b 4601       |F   |		Jump_Case	0x2
065c 7801       |x   |		Jump	0x65e								; case 0x0
065d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
065e e7ff       |    |		Load	0x3,-0x1
065f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0660 0125       | %  |		Execute	Any,Set_Constraint
0661 e7ff       |    |		Load	0x3,-0x1
0662 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0663 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0664 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0665 ; --------------------------------------------------------------------------------------
0665 ; STRING TABLE
0665 ; --------------------------------------------------------------------------------------
0665 0058       | X  |		.STRTAB	0x0058->0x0691							; "EMPTY"
0666 005b       | [  |		.STRTAB	0x005b->0x0693							; "CLASS_REPRESENTATIVE"
0667 006d       | m  |		.STRTAB	0x006d->0x069d							; "CLASS_MEMBER"
0668 0077       | w  |		.STRTAB	0x0077->0x06a3							; "EMPTY"
0669 007a       | z  |		.STRTAB	0x007a->0x06a6							; "EXISTS"
066a 007e       | ~  |		.STRTAB	0x007e->0x06a9							; "IN_SAVE_SET"
066b 0087       |    |		.STRTAB	0x0087->0x06ae							; "Analyze Disks for Backup"
066c 009d       |    |		.STRTAB	0x009d->0x06ba							; "Analyze_Disks_For_Backup has started"
066d 00bf       |    |		.STRTAB	0x00bf->0x06cc							; "Invalid Start_Volume value specified, all disks will be logged."
066e 00fc       |    |		.STRTAB	0x00fc->0x06ec							; "Check_Disk_For_Backup can not complete because Backupor disk garbage collection is already in progress."
066f 0161       | a  |		.STRTAB	0x0161->0x071f							; "Starting retained snapshot"
0670 0179       | y  |		.STRTAB	0x0179->0x072c							; "Retained snapshot has completed"
0671 0196       |    |		.STRTAB	0x0196->0x073c							; "Analyze_Disks_For_Backup has detected"
0672 01b9       |    |		.STRTAB	0x01b9->0x074e							; " inconsistencies."
0673 01c8       |    |		.STRTAB	0x01c8->0x0757							; "Analyze_Disks_For_Backup has completed."
0674 01ed       |    |		.STRTAB	0x01ed->0x076a							; "Check_Disks_For_Backup did NOT complete"
0675 0212       |    |		.STRTAB	0x0212->0x077e							; "Checking disk volume"
0676 0224       | $  |		.STRTAB	0x0224->0x0788							; "Inconsistent Max_Block.  Found:"
0677 0241       | A  |		.STRTAB	0x0241->0x0797							; "  Should not exceed"
0678 0252       | R  |		.STRTAB	0x0252->0x07a1							; "   Checking VPs"
0679 025f       | _  |		.STRTAB	0x025f->0x07a8							; "Inconsistent Volume for VP"
067a 0277       | w  |		.STRTAB	0x0277->0x07b5							; "  Found:"
067b 027d       | }  |		.STRTAB	0x027d->0x07b9							; "  Expected:"
067c 0286       |    |		.STRTAB	0x0286->0x07bf							; "Inconsistent VP_Table state.  VP:"
067d 02a5       |    |		.STRTAB	0x02a5->0x07cf							; "  Expected: EMPTY  Found: "
067e 02bd       |    |		.STRTAB	0x02bd->0x07dc							; "   Checking Segments/Blocks"
067f 02d6       |    |		.STRTAB	0x02d6->0x07ea							; "    Working on volume "
0680 02ea       |    |		.STRTAB	0x02ea->0x07f5							; " "
0681 02e9       |    |		.STRTAB	0x02e9->0x07f5							; "Working on: volume "
0682 02fa       |    |		.STRTAB	0x02fa->0x07ff							; "Next_Space"
0683 0302       |    |		.STRTAB	0x0302->0x0804							; "Working on volume "
0684 0312       |    |		.STRTAB	0x0312->0x080d							; "Inconsistent Volume for Block  Found:"
0685 0335       | 5  |		.STRTAB	0x0335->0x081f							; "Block number exceeds Disk Capacity.  Max:"
0686 035c       | \  |		.STRTAB	0x035c->0x0834							; "Inconsistent Block_Table state.  Expected FAMILY: "
0687 038c       |    |		.STRTAB	0x038c->0x084d							; "  Found: "
0688 0393       |    |		.STRTAB	0x0393->0x0851							; "Inconsistent Block_Table state  VP"
0689 03b3       |    |		.STRTAB	0x03b3->0x0862							; "   Block"
068a 03b9       |    |		.STRTAB	0x03b9->0x0866							; "  Expected: Is_In_Save_Set"
068b 03d1       |    |		.STRTAB	0x03d1->0x0873							; "  Expected: NOT Is_In_Save_Set"
068c 03ed       |    |		.STRTAB	0x03ed->0x0882							; "Block Number:"
068d 03f8       |    |		.STRTAB	0x03f8->0x0889							; "Block_Table:    VP"
068e 0408       |    |		.STRTAB	0x0408->0x0892							; "  Segment "
068f 0410       |    |		.STRTAB	0x0410->0x0897							; "Space_Address:  VP"
0690 0420       |    |		.STREND 0x0420->0x08a0
0691 454d 5054  |EMPT|		.STRTAB_STRINGS
08a0 ; --------------------------------------------------------------------------------------
08a0 ; Debug Table
08a0 ; --------------------------------------------------------------------------------------
08a0 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x9748,0x0000,0x0001,0x0000
08a6 0000 0000  |    |		.BLANK	0000[0x15a]