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

⟦7f0f5fbc0⟧

    Length: 5120 (0x1400)
    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
    └─ ⟦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 08b0       |    |		.CONST	0x08b0								; 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 0076       | v  |		.CONST	0x0076								; Address of begin
0019 00ab       |    |		.CONST	0x00ab								; Address of exception handler
001a 0015       |    |		.CONST	0x0015								; 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 e001       |    |		Load	0x0,0x1
0022 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0023 e001       |    |		Load	0x0,0x1
0024 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0025 e002       |    |		Load	0x0,0x2
0026 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0027 e002       |    |		Load	0x0,0x2
0028 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0029 e003       |    |		Load	0x0,0x3
002a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
002b 0092 067b  |   {|		Action	Push_String_Extended,0x67b					; "Analyze Disks for Backup"
002d e004       |    |		Load	0x0,0x4
002e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002f 02c7       |    |		Declare_Variable	Any
0030 00d8       |    |		Load_Top	At_Offset_0
0031 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0032 00e3       |    |		Load_Encached	Natural_Cache
0033 e005       |    |		Load	0x0,0x5
0034 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
0035 0007       |    |		Action	Break_Optional
0036 e402       |    |		Load	0x2,0x2
0037 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
0038 0007       |    |		Action	Break_Optional
0039 4800       |H   |		Short_Literal	0x0
003a 4802       |H   |		Short_Literal	0x2
003b 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
003d 03fd       |    |		Declare_Type	Discrete,Defined
003e 00d8       |    |		Load_Top	At_Offset_0
003f 4801       |H   |		Short_Literal	0x1
0040 00e3       |    |		Load_Encached	Natural_Cache
0041 4801       |H   |		Short_Literal	0x1
0042 e407       |    |		Load	0x2,0x7
0043 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
0045 4802       |H   |		Short_Literal	0x2
0046 4800       |H   |		Short_Literal	0x0
0047 4802       |H   |		Short_Literal	0x2
0048 4800       |H   |		Short_Literal	0x0
0049 4801       |H   |		Short_Literal	0x1
004a 031d       |    |		Declare_Type	Variant_Record,Defined
004b 4800       |H   |		Short_Literal	0x0
004c 4802       |H   |		Short_Literal	0x2
004d 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
004f 03fd       |    |		Declare_Type	Discrete,Defined
0050 00d8       |    |		Load_Top	At_Offset_0
0051 e006       |    |		Load	0x0,0x6
0052 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0053 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0054 e407       |    |		Load	0x2,0x7
0055 e405       |    |		Load	0x2,0x5
0056 e007       |    |		Load	0x0,0x7
0057 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0058 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
005a 4805       |H   |		Short_Literal	0x5
005b 032d       | -  |		Declare_Type	Record,Defined
005c e403       |    |		Load	0x2,0x3
005d 0266       | f  |		Execute	Discrete,Bounds
005e e410       |    |		Load	0x2,0x10
005f 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
0061 4801       |H   |		Short_Literal	0x1
0062 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0063 e002       |    |		Load	0x0,0x2
0064 e007       |    |		Load	0x0,0x7
0065 e008       |    |		Load	0x0,0x8
0066 e009       |    |		Load	0x0,0x9
0067 e00a       |    |		Load	0x0,0xa
0068 e00b       |    |		Load	0x0,0xb
0069 4806       |H   |		Short_Literal	0x6
006a e402       |    |		Load	0x2,0x2
006b 020e       |    |		Execute	Module,Augment_Imports
006c e402       |    |		Load	0x2,0x2
006d 020f       |    |		Execute	Module,Activate
006e 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
0070 029f 028b  |    |		Declare_Subprogram	INIT_0288,For_Call
0072 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
0074 029f 0313  |    |		Declare_Subprogram	INIT_0310,For_Call
0076			BODY_0018:
0076 e00c       |    |		Load	0x0,0xc
0077 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0078 4800       |H   |		Short_Literal	0x0
0079 0092 067c  |   ||		Action	Push_String_Extended,0x67c					; "Analyze_Disks_For_Backup has started"
007b e00d       |    |		Load	0x0,0xd
007c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
007d e00e       |    |		Load	0x0,0xe
007e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
007f e00e       |    |		Load	0x0,0xe
0080 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0081 00d9       |    |		Load_Top	At_Offset_1
0082 00d0       |    |		Action	Swap_Control
0083 0260       | `  |		Execute	Discrete,In_Type
0084 7001       |p   |		Jump_Nonzero	0x86
0085 0801       |    |		Execute_Immediate	Raise,0x1
0086 6029       |`)  |		Indirect_Literal	Discrete,0xb0,{0x00000000, 0x0000fde8}
0087 e00e       |    |		Load	0x0,0xe
0088 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0089 e409       |    |		Load	0x2,0x9
008a 0120       |    |		Execute	Any,Is_Value
008b 6803       |h   |		Jump_Zero	0x8f
008c e004       |    |		Load	0x0,0x4
008d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008e 7801       |x   |		Jump	0x90
008f e409       |    |		Load	0x2,0x9
0090 e00f       |    |		Load	0x0,0xf
0091 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0092 48ff       |H   |		Short_Literal	0xff
0093 e408       |    |		Load	0x2,0x8
0094 e004       |    |		Load	0x0,0x4
0095 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0096 c409       |    |		Store	0x2,0x9
0097 e5fc       |    |		Load	0x2,-0x4
0098 0d01       |    |		Execute_Immediate	Less,0x1
0099 e5fc       |    |		Load	0x2,-0x4
009a 0c20       |    |		Execute_Immediate	Greater_Equal,0x20
009b 0278       | x  |		Execute	Discrete,Or
009c 680a       |h   |		Jump_Zero	0xa7
009d e00c       |    |		Load	0x0,0xc
009e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
009f 4802       |H   |		Short_Literal	0x2
00a0 0092 067d  |   }|		Action	Push_String_Extended,0x67d					; "Invalid Start_Volume value specified, all disks will be logged."
00a2 e00d       |    |		Load	0x0,0xd
00a3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00a4 4801       |H   |		Short_Literal	0x1
00a5 a40a       |    |		Store_Unchecked	0x2,0xa
00a6 7802       |x   |		Jump	0xa9
00a7 e5fc       |    |		Load	0x2,-0x4
00a8 a40a       |    |		Store_Unchecked	0x2,0xa
00a9 8415       |    |		Call	0x2,0x15
00aa 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00ab			TRAP_0018:
00ab 0007       |    |		Action	Break_Optional
00ac e409       |    |		Load	0x2,0x9
00ad e004       |    |		Load	0x0,0x4
00ae 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00af 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000fde8}
00b4 0000 0000  |    |		.BLANK	0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 4607       |F   |		Jump_Case	0x8
00bc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00bd 7806       |x   |		Jump	0xc4								; case 0x1
00be 7809       |x   |		Jump	0xc8								; case 0x2
00bf 780d       |x   |		Jump	0xcd								; case 0x3
00c0 7810       |x   |		Jump	0xd1								; case 0x4
00c1 7811       |x   |		Jump	0xd3								; case 0x5
00c2 7812       |x   |		Jump	0xd5								; case 0x6
00c3 7815       |x   |		Jump	0xd9								; case 0x7
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 0091 0675  |   u|		Action	Push_String_Extended_Indexed,0x675				; "EMPTY"
00c7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c8 00db       |    |		Load_Top	At_Offset_3
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 00e0       |    |		Load_Encached	Standard_Cache
00cb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00cc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00cd 00da       |    |		Load_Top	At_Offset_2
00ce 00e0       |    |		Load_Encached	Standard_Cache
00cf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d1 00db       |    |		Load_Top	At_Offset_3
00d2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d3 00db       |    |		Load_Top	At_Offset_3
00d4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d5 e40d       |    |		Load	0x2,0xd
00d6 00dc       |    |		Load_Top	At_Offset_4
00d7 0267       | g  |		Execute	Discrete,Predecessor
00d8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d9 e40d       |    |		Load	0x2,0xd
00da 00dc       |    |		Load_Top	At_Offset_4
00db 0268       | h  |		Execute	Discrete,Successor
00dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00dd 0000 0000  |    |		.XXX[0x3]
00df 0000       |    |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4608       |F   |		Jump_Case	0x9
00e4 7808       |x   |		Jump	0xed								; case 0x0
00e5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00e6 7838       |x8  |		Jump	0x11f								; case 0x2
00e7 7837       |x7  |		Jump	0x11f								; case 0x3
00e8 7836       |x6  |		Jump	0x11f								; case 0x4
00e9 7835       |x5  |		Jump	0x11f								; case 0x5
00ea 7814       |x   |		Jump	0xff								; case 0x6
00eb 781e       |x   |		Jump	0x10a								; case 0x7
00ec 782b       |x+  |		Jump	0x118								; case 0x8
00ed e7ff       |    |		Load	0x3,-0x1
00ee 016c       | l  |		Execute	Variant_Record,Is_Constrained
00ef 7009       |p   |		Jump_Nonzero	0xf9
00f0 00cf       |    |		Action	Mark_Auxiliary
00f1 4800       |H   |		Short_Literal	0x0
00f2 e7ff       |    |		Load	0x3,-0x1
00f3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00f4 00d8       |    |		Load_Top	At_Offset_0
00f5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f6 c7ff       |    |		Store	0x3,-0x1
00f7 00ce       |    |		Action	Pop_Auxiliary
00f8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00f9 e7ff       |    |		Load	0x3,-0x1
00fa 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00fb 4602       |F   |		Jump_Case	0x3
00fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00fe 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
00ff e7fe       |    |		Load	0x3,-0x2
0100 4602       |F   |		Jump_Case	0x3
0101 7806       |x   |		Jump	0x108								; case 0x0
0102 7803       |x   |		Jump	0x106								; case 0x1
0103 7800       |x   |		Jump	0x104								; case 0x2
0104 4802       |H   |		Short_Literal	0x2
0105 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0106 4801       |H   |		Short_Literal	0x1
0107 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0108 48ff       |H   |		Short_Literal	0xff
0109 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010a e7fe       |    |		Load	0x3,-0x2
010b 00d8       |    |		Load_Top	At_Offset_0
010c 4602       |F   |		Jump_Case	0x3
010d 7804       |x   |		Jump	0x112								; case 0x0
010e 7805       |x   |		Jump	0x114								; case 0x1
010f 7800       |x   |		Jump	0x110								; case 0x2
0110 4802       |H   |		Short_Literal	0x2
0111 7803       |x   |		Jump	0x115
0112 48ff       |H   |		Short_Literal	0xff
0113 7801       |x   |		Jump	0x115
0114 4801       |H   |		Short_Literal	0x1
0115 e7ff       |    |		Load	0x3,-0x1
0116 031b       |    |		Declare_Type	Variant_Record,Constrained
0117 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0118 e7fe       |    |		Load	0x3,-0x2
0119 00d8       |    |		Load_Top	At_Offset_0
011a e7ff       |    |		Load	0x3,-0x1
011b 1c06       |    |		Execute_Immediate	Run_Utility,0x6
011c e7ff       |    |		Load	0x3,-0x1
011d 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
011e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
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 7806       |x   |		Jump	0x12c								; case 0x1
0126 7809       |x   |		Jump	0x130								; case 0x2
0127 780d       |x   |		Jump	0x135								; case 0x3
0128 7810       |x   |		Jump	0x139								; case 0x4
0129 7811       |x   |		Jump	0x13b								; case 0x5
012a 7812       |x   |		Jump	0x13d								; case 0x6
012b 7815       |x   |		Jump	0x141								; case 0x7
012c 00da       |    |		Load_Top	At_Offset_2
012d 0091 0678  |   x|		Action	Push_String_Extended_Indexed,0x678				; "EMPTY"
012f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0130 00db       |    |		Load_Top	At_Offset_3
0131 00db       |    |		Load_Top	At_Offset_3
0132 00e0       |    |		Load_Encached	Standard_Cache
0133 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0134 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0135 00da       |    |		Load_Top	At_Offset_2
0136 00e0       |    |		Load_Encached	Standard_Cache
0137 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0138 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0139 00db       |    |		Load_Top	At_Offset_3
013a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013b 00db       |    |		Load_Top	At_Offset_3
013c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013d e40f       |    |		Load	0x2,0xf
013e 00dc       |    |		Load_Top	At_Offset_4
013f 0267       | g  |		Execute	Discrete,Predecessor
0140 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0141 e40f       |    |		Load	0x2,0xf
0142 00dc       |    |		Load_Top	At_Offset_4
0143 0268       | h  |		Execute	Discrete,Successor
0144 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0145 0000 0000  |    |		.XXX[0x3]
0147 0000       |    |
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 4608       |F   |		Jump_Case	0x9
014c 7808       |x   |		Jump	0x155								; case 0x0
014d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
014e 780d       |x   |		Jump	0x15c								; case 0x2
014f 780c       |x   |		Jump	0x15c								; case 0x3
0150 780b       |x   |		Jump	0x15c								; case 0x4
0151 780a       |x   |		Jump	0x15c								; case 0x5
0152 7809       |x   |		Jump	0x15c								; case 0x6
0153 7808       |x   |		Jump	0x15c								; case 0x7
0154 7807       |x   |		Jump	0x15c								; case 0x8
0155 e7ff       |    |		Load	0x3,-0x1
0156 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0157 0125       | %  |		Execute	Any,Set_Constraint
0158 e7ff       |    |		Load	0x3,-0x1
0159 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
015a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
015b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
015c 0869       | i  |		Execute_Immediate	Raise,0x69
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00d1       |    |		Pop_Control	Pop_Count_1
0164 e7ff       |    |		Load	0x3,-0x1
0165 01dc       |    |		Execute	Vector,Last
0166 e7ff       |    |		Load	0x3,-0x1
0167 01dd       |    |		Execute	Vector,First
0168 0263       | c  |		Execute	Discrete,Above_Bound
0169 7006       |p   |		Jump_Nonzero	0x170
016a 00d8       |    |		Load_Top	At_Offset_0
016b e7ff       |    |		Load	0x3,-0x1
016c 01d5       |    |		Execute	Vector,Field_Reference
016d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
016e 0a01       |    |		Execute_Immediate	Plus,0x1
016f 7ff8       |    |		Jump	0x168
0170 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 01e3       |    |		.CONST	0x01e3								; Address of begin
0179 0259       | Y  |		.CONST	0x0259								; Address of exception handler
017a 0026       | &  |		.CONST	0x0026								; Number of locals
017b			INIT_0178:
017b e005       |    |		Load	0x0,0x5
017c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017d 02c7       |    |		Declare_Variable	Any
017e 00d8       |    |		Load_Top	At_Offset_0
017f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0180 00e1       |    |		Load_Encached	Boolean_Cache
0181 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0182 e002       |    |		Load	0x0,0x2
0183 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0184 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0185 00e1       |    |		Load_Encached	Boolean_Cache
0186 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0187 4800       |H   |		Short_Literal	0x0
0188 4bff       |K   |		Short_Literal	0x3ff
0189 e40e       |    |		Load	0x2,0xe
018a 029f 0353  |   S|		Declare_Subprogram	INIT_0350,For_Call
018c 4801       |H   |		Short_Literal	0x1
018d 035d       | ]  |		Declare_Type	Array,Defined
018e 00d8       |    |		Load_Top	At_Offset_0
018f 0337       | 7  |		Declare_Variable	Array
0190 00d8       |    |		Load_Top	At_Offset_0
0191 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0192 e404       |    |		Load	0x2,0x4
0193 0007       |    |		Action	Break_Optional
0194 e403       |    |		Load	0x2,0x3
0195 0007       |    |		Action	Break_Optional
0196 e006       |    |		Load	0x0,0x6
0197 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0198 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0199 e403       |    |		Load	0x2,0x3
019a 03f1       |    |		Declare_Variable	Discrete,With_Value
019b 4801       |H   |		Short_Literal	0x1
019c e60a       |    |		Load	0x3,0xa
019d e411       |    |		Load	0x2,0x11
019e 035b       | [  |		Declare_Type	Array,Constrained
019f 0337       | 7  |		Declare_Variable	Array
01a0 00d8       |    |		Load_Top	At_Offset_0
01a1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a2 00e3       |    |		Load_Encached	Natural_Cache
01a3 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01a4 029f 036b  |   k|		Declare_Subprogram	INIT_0368,For_Call
01a6 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
01a8 029f 0383  |    |		Declare_Subprogram	INIT_0380,For_Call
01aa 029f 038b  |    |		Declare_Subprogram	INIT_0388,For_Call
01ac 029f 0393  |    |		Declare_Subprogram	INIT_0390,For_Call
01ae 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
01b0 029f 03db  |    |		Declare_Subprogram	INIT_03d8,For_Call
01b2 029f 042b  |   +|		Declare_Subprogram	INIT_0428,For_Call
01b4 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
01b6 029f 048b  |    |		Declare_Subprogram	INIT_0488,For_Call
01b8 029f 056b  |   k|		Declare_Subprogram	INIT_0568,For_Call
01ba e006       |    |		Load	0x0,0x6
01bb 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01bc 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
01bd 00c6       |    |		Action	Check_Subprogram_Elaborated
01be 480e       |H   |		Short_Literal	0xe
01bf 4803       |H   |		Short_Literal	0x3
01c0 0099       |    |		Action	Reference_Dynamic
01c1 480f       |H   |		Short_Literal	0xf
01c2 4803       |H   |		Short_Literal	0x3
01c3 0099       |    |		Action	Reference_Dynamic
01c4 4810       |H   |		Short_Literal	0x10
01c5 4803       |H   |		Short_Literal	0x3
01c6 0099       |    |		Action	Reference_Dynamic
01c7 4811       |H   |		Short_Literal	0x11
01c8 4803       |H   |		Short_Literal	0x3
01c9 0099       |    |		Action	Reference_Dynamic
01ca 4812       |H   |		Short_Literal	0x12
01cb 4803       |H   |		Short_Literal	0x3
01cc 0099       |    |		Action	Reference_Dynamic
01cd 4813       |H   |		Short_Literal	0x13
01ce 4803       |H   |		Short_Literal	0x3
01cf 0099       |    |		Action	Reference_Dynamic
01d0 4814       |H   |		Short_Literal	0x14
01d1 4803       |H   |		Short_Literal	0x3
01d2 0099       |    |		Action	Reference_Dynamic
01d3 4815       |H   |		Short_Literal	0x15
01d4 4803       |H   |		Short_Literal	0x3
01d5 0099       |    |		Action	Reference_Dynamic
01d6 4816       |H   |		Short_Literal	0x16
01d7 4803       |H   |		Short_Literal	0x3
01d8 0099       |    |		Action	Reference_Dynamic
01d9 4817       |H   |		Short_Literal	0x17
01da 4803       |H   |		Short_Literal	0x3
01db 0099       |    |		Action	Reference_Dynamic
01dc e010       |    |		Load	0x0,0x10
01dd e011       |    |		Load	0x0,0x11
01de 4824       |H$  |		Short_Literal	0x24
01df 029f 0573  |   s|		Declare_Subprogram	INIT_0570,For_Call
01e1 029f 0583  |    |		Declare_Subprogram	INIT_0580,For_Call
01e3			BODY_0178:
01e3 00e1       |    |		Load_Encached	Boolean_Cache
01e4 e7ff       |    |		Load	0x3,-0x1
01e5 e012       |    |		Load	0x0,0x12
01e6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e7 c603       |    |		Store	0x3,0x3
01e8 e603       |    |		Load	0x3,0x3
01e9 7008       |p   |		Jump_Nonzero	0x1f2
01ea e00c       |    |		Load	0x0,0xc
01eb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01ec 4805       |H   |		Short_Literal	0x5
01ed 0092 067e  |   ~|		Action	Push_String_Extended,0x67e					; "Check_Disk_For_Backup can not complete because Backupor disk garbage collection is already in progress."
01ef e00d       |    |		Load	0x0,0xd
01f0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f2 e00c       |    |		Load	0x0,0xc
01f3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01f4 4804       |H   |		Short_Literal	0x4
01f5 0092 067f  |    |		Action	Push_String_Extended,0x67f					; "Starting retained snapshot"
01f7 e00d       |    |		Load	0x0,0xd
01f8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f9 e602       |    |		Load	0x3,0x2
01fa 0120       |    |		Execute	Any,Is_Value
01fb 6803       |h   |		Jump_Zero	0x1ff
01fc e005       |    |		Load	0x0,0x5
01fd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01fe 7801       |x   |		Jump	0x200
01ff e602       |    |		Load	0x3,0x2
0200 e013       |    |		Load	0x0,0x13
0201 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0202 e7ff       |    |		Load	0x3,-0x1
0203 e013       |    |		Load	0x0,0x13
0204 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0205 c604       |    |		Store	0x3,0x4
0206 c602       |    |		Store	0x3,0x2
0207 4801       |H   |		Short_Literal	0x1
0208 a605       |    |		Store_Unchecked	0x3,0x5
0209 e00c       |    |		Load	0x0,0xc
020a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
020b 4804       |H   |		Short_Literal	0x4
020c 0092 0680  |    |		Action	Push_String_Extended,0x680					; "Retained snapshot has completed"
020e e00d       |    |		Load	0x0,0xd
020f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0210 e604       |    |		Load	0x3,0x4
0211 e7fe       |    |		Load	0x3,-0x2
0212 4818       |H   |		Short_Literal	0x18
0213 4803       |H   |		Short_Literal	0x3
0214 0099       |    |		Action	Reference_Dynamic
0215 4819       |H   |		Short_Literal	0x19
0216 4803       |H   |		Short_Literal	0x3
0217 0099       |    |		Action	Reference_Dynamic
0218 481a       |H   |		Short_Literal	0x1a
0219 4803       |H   |		Short_Literal	0x3
021a 0099       |    |		Action	Reference_Dynamic
021b 481b       |H   |		Short_Literal	0x1b
021c 4803       |H   |		Short_Literal	0x3
021d 0099       |    |		Action	Reference_Dynamic
021e 481c       |H   |		Short_Literal	0x1c
021f 4803       |H   |		Short_Literal	0x3
0220 0099       |    |		Action	Reference_Dynamic
0221 481d       |H   |		Short_Literal	0x1d
0222 4803       |H   |		Short_Literal	0x3
0223 0099       |    |		Action	Reference_Dynamic
0224 481e       |H   |		Short_Literal	0x1e
0225 4803       |H   |		Short_Literal	0x3
0226 0099       |    |		Action	Reference_Dynamic
0227 481f       |H   |		Short_Literal	0x1f
0228 4803       |H   |		Short_Literal	0x3
0229 0099       |    |		Action	Reference_Dynamic
022a 4820       |H   |		Short_Literal	0x20
022b 4803       |H   |		Short_Literal	0x3
022c 0099       |    |		Action	Reference_Dynamic
022d 4821       |H!  |		Short_Literal	0x21
022e 4803       |H   |		Short_Literal	0x3
022f 0099       |    |		Action	Reference_Dynamic
0230 4822       |H"  |		Short_Literal	0x22
0231 4803       |H   |		Short_Literal	0x3
0232 0099       |    |		Action	Reference_Dynamic
0233 e006       |    |		Load	0x0,0x6
0234 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0235 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0236 e7ff       |    |		Load	0x3,-0x1
0237 e006       |    |		Load	0x0,0x6
0238 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0239 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
023a e604       |    |		Load	0x3,0x4
023b e006       |    |		Load	0x0,0x6
023c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
023e e012       |    |		Load	0x0,0x12
023f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0240 e60c       |    |		Load	0x3,0xc
0241 680f       |h   |		Jump_Zero	0x251
0242 e00c       |    |		Load	0x0,0xc
0243 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0244 4806       |H   |		Short_Literal	0x6
0245 0092 0681  |    |		Action	Push_String_Extended,0x681					; "Analyze_Disks_For_Backup has detected"
0247 e60c       |    |		Load	0x3,0xc
0248 00e0       |    |		Load_Encached	Standard_Cache
0249 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
024a 01cc       |    |		Execute	Vector,Catenate
024b 0092 0682  |    |		Action	Push_String_Extended,0x682					; " inconsistencies."
024d 01cc       |    |		Execute	Vector,Catenate
024e e00d       |    |		Load	0x0,0xd
024f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0250 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0251 e00c       |    |		Load	0x0,0xc
0252 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0253 4803       |H   |		Short_Literal	0x3
0254 0092 0683  |    |		Action	Push_String_Extended,0x683					; "Analyze_Disks_For_Backup has completed."
0256 e00d       |    |		Load	0x0,0xd
0257 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0258 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0259			TRAP_0178:
0259 0007       |    |		Action	Break_Optional
025a e00c       |    |		Load	0x0,0xc
025b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
025c 4808       |H   |		Short_Literal	0x8
025d e014       |    |		Load	0x0,0x14
025e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
025f e00d       |    |		Load	0x0,0xd
0260 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0261 e00c       |    |		Load	0x0,0xc
0262 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0263 4806       |H   |		Short_Literal	0x6
0264 0092 0681  |    |		Action	Push_String_Extended,0x681					; "Analyze_Disks_For_Backup has detected"
0266 e60c       |    |		Load	0x3,0xc
0267 00e0       |    |		Load_Encached	Standard_Cache
0268 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0269 01cc       |    |		Execute	Vector,Catenate
026a 0092 0682  |    |		Action	Push_String_Extended,0x682					; " inconsistencies."
026c 01cc       |    |		Execute	Vector,Catenate
026d e00d       |    |		Load	0x0,0xd
026e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
026f e00c       |    |		Load	0x0,0xc
0270 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0271 4805       |H   |		Short_Literal	0x5
0272 0092 0684  |    |		Action	Push_String_Extended,0x684					; "Check_Disks_For_Backup did NOT complete"
0274 e00d       |    |		Load	0x0,0xd
0275 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0276 e409       |    |		Load	0x2,0x9
0277 e004       |    |		Load	0x0,0x4
0278 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0279 e605       |    |		Load	0x3,0x5
027a 6801       |h   |		Jump_Zero	0x27c
027b 8625       | %  |		Call	0x3,0x25
027c e603       |    |		Load	0x3,0x3
027d 6801       |h   |		Jump_Zero	0x27f
027e 8626       | &  |		Call	0x3,0x26
027f 00d8       |    |		Load_Top	At_Offset_0
0280 0101       |    |		Execute	Exception,Reraise
0281 0000 0000  |    |		.BLANK	0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d       |    |		.CONST	0x028d								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0002       |    |		.CONST	0x0002								; Number of locals
028b			INIT_0288:
028b e406       |    |		Load	0x2,0x6
028c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
028d			BODY_0288:
028d 00cf       |    |		Action	Mark_Auxiliary
028e e7ff       |    |		Load	0x3,-0x1
028f 01d9       |    |		Execute	Vector,Reverse_Bounds
0290 0007       |    |		Action	Break_Optional
0291 00d8       |    |		Load_Top	At_Offset_0
0292 e7ff       |    |		Load	0x3,-0x1
0293 01d5       |    |		Execute	Vector,Field_Reference
0294 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0295 0f03       |    |		Execute_Immediate	Equal,0x3
0296 6813       |h   |		Jump_Zero	0x2aa
0297 00d8       |    |		Load_Top	At_Offset_0
0298 e7ff       |    |		Load	0x3,-0x1
0299 01d5       |    |		Execute	Vector,Field_Reference
029a 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
029b 700e       |p   |		Jump_Nonzero	0x2aa
029c e602       |    |		Load	0x3,0x2
029d 680a       |h   |		Jump_Zero	0x2a8
029e e602       |    |		Load	0x3,0x2
029f e7ff       |    |		Load	0x3,-0x1
02a0 01d5       |    |		Execute	Vector,Field_Reference
02a1 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02a2 e605       |    |		Load	0x3,0x5
02a3 e7ff       |    |		Load	0x3,-0x1
02a4 01d5       |    |		Execute	Vector,Field_Reference
02a5 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02a6 027c       | |  |		Execute	Discrete,Less
02a7 6802       |h   |		Jump_Zero	0x2aa
02a8 00d8       |    |		Load_Top	At_Offset_0
02a9 a602       |    |		Store_Unchecked	0x3,0x2
02aa 00c8       |    |		Action	Pop_Auxiliary_Range
02ab 3fe5       |?   |		Loop_Increasing	0x291
02ac 00ce       |    |		Action	Pop_Auxiliary
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02af 0000       |    |		.XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02cd       |    |		.CONST	0x02cd								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 000a       |    |		.CONST	0x000a								; Number of locals
02b3			INIT_02b0:
02b3 e7ff       |    |		Load	0x3,-0x1
02b4 8413       |    |		Call	0x2,0x13
02b5 e406       |    |		Load	0x2,0x6
02b6 03f1       |    |		Declare_Variable	Discrete,With_Value
02b7 e406       |    |		Load	0x2,0x6
02b8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02b9 e005       |    |		Load	0x0,0x5
02ba 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02bb 02c7       |    |		Declare_Variable	Any
02bc 00d8       |    |		Load_Top	At_Offset_0
02bd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02be 00e1       |    |		Load_Encached	Boolean_Cache
02bf 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02c0 029f 058b  |    |		Declare_Subprogram	INIT_0588,For_Call
02c2 e015       |    |		Load	0x0,0x15
02c3 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02c4 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
02c5 00c6       |    |		Action	Check_Subprogram_Elaborated
02c6 4806       |H   |		Short_Literal	0x6
02c7 4803       |H   |		Short_Literal	0x3
02c8 0099       |    |		Action	Reference_Dynamic
02c9 e016       |    |		Load	0x0,0x16
02ca e017       |    |		Load	0x0,0x17
02cb 480a       |H   |		Short_Literal	0xa
02cc 0007       |    |		Action	Break_Optional
02cd			BODY_02b0:
02cd e602       |    |		Load	0x3,0x2
02ce 683d       |h=  |		Jump_Zero	0x30c
02cf e602       |    |		Load	0x3,0x2
02d0 e7ff       |    |		Load	0x3,-0x1
02d1 01d5       |    |		Execute	Vector,Field_Reference
02d2 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02d3 c604       |    |		Store	0x3,0x4
02d4 00cf       |    |		Action	Mark_Auxiliary
02d5 e7ff       |    |		Load	0x3,-0x1
02d6 01d9       |    |		Execute	Vector,Reverse_Bounds
02d7 0007       |    |		Action	Break_Optional
02d8 00d8       |    |		Load_Top	At_Offset_0
02d9 e7ff       |    |		Load	0x3,-0x1
02da 01d5       |    |		Execute	Vector,Field_Reference
02db 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02dc 0f03       |    |		Execute_Immediate	Equal,0x3
02dd 682b       |h+  |		Jump_Zero	0x309
02de 00d8       |    |		Load_Top	At_Offset_0
02df e7ff       |    |		Load	0x3,-0x1
02e0 01d5       |    |		Execute	Vector,Field_Reference
02e1 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02e2 0f01       |    |		Execute_Immediate	Equal,0x1
02e3 6825       |h%  |		Jump_Zero	0x309
02e4 e604       |    |		Load	0x3,0x4
02e5 e60d       |    |		Load	0x3,0xd
02e6 e7ff       |    |		Load	0x3,-0x1
02e7 01d5       |    |		Execute	Vector,Field_Reference
02e8 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02e9 840b       |    |		Call	0x2,0xb
02ea 681e       |h   |		Jump_Zero	0x309
02eb 00d8       |    |		Load_Top	At_Offset_0
02ec e7ff       |    |		Load	0x3,-0x1
02ed 01d5       |    |		Execute	Vector,Field_Reference
02ee 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02ef e7fe       |    |		Load	0x3,-0x2
02f0 4807       |H   |		Short_Literal	0x7
02f1 4803       |H   |		Short_Literal	0x3
02f2 0099       |    |		Action	Reference_Dynamic
02f3 4808       |H   |		Short_Literal	0x8
02f4 4803       |H   |		Short_Literal	0x3
02f5 0099       |    |		Action	Reference_Dynamic
02f6 e015       |    |		Load	0x0,0x15
02f7 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02f8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f9 e605       |    |		Load	0x3,0x5
02fa 680e       |h   |		Jump_Zero	0x309
02fb e603       |    |		Load	0x3,0x3
02fc 680a       |h   |		Jump_Zero	0x307
02fd e603       |    |		Load	0x3,0x3
02fe e7ff       |    |		Load	0x3,-0x1
02ff 01d5       |    |		Execute	Vector,Field_Reference
0300 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0301 e60d       |    |		Load	0x3,0xd
0302 e7ff       |    |		Load	0x3,-0x1
0303 01d5       |    |		Execute	Vector,Field_Reference
0304 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0305 027c       | |  |		Execute	Discrete,Less
0306 6802       |h   |		Jump_Zero	0x309
0307 00d8       |    |		Load_Top	At_Offset_0
0308 a603       |    |		Store_Unchecked	0x3,0x3
0309 00c8       |    |		Action	Pop_Auxiliary_Range
030a 3fcd       |?   |		Loop_Increasing	0x2d8
030b 00ce       |    |		Action	Pop_Auxiliary
030c e603       |    |		Load	0x3,0x3
030d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
030e 0000 0000  |    |		.XXX[0x2]
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 e015       |    |		Load	0x0,0x15
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 e406       |    |		Load	0x2,0x6
0319 0007       |    |		Action	Break_Optional
031a 00d8       |    |		Load_Top	At_Offset_0
031b 0007       |    |		Action	Break_Optional
031c e002       |    |		Load	0x0,0x2
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 e015       |    |		Load	0x0,0x15
0323 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0324 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0325 c602       |    |		Store	0x3,0x2
0326 e006       |    |		Load	0x0,0x6
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 8413       |    |		Call	0x2,0x13
032d a603       |    |		Store_Unchecked	0x3,0x3
032e e602       |    |		Load	0x3,0x2
032f e605       |    |		Load	0x3,0x5
0330 8414       |    |		Call	0x2,0x14
0331 a604       |    |		Store_Unchecked	0x3,0x4
0332 e602       |    |		Load	0x3,0x2
0333 e015       |    |		Load	0x0,0x15
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 8412       |    |		Call	0x2,0x12
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 e00c       |    |		Load	0x0,0xc
036f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0370 4805       |H   |		Short_Literal	0x5
0371 e9ff       |    |		Load	0x4,-0x1
0372 e00d       |    |		Load	0x0,0xd
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 e00c       |    |		Load	0x0,0xc
039c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
039d 4804       |H   |		Short_Literal	0x4
039e 0092 0685  |    |		Action	Push_String_Extended,0x685					; "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 e00d       |    |		Load	0x0,0xd
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 0686  |    |		Action	Push_String_Extended,0x686					; "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 0687  |    |		Action	Push_String_Extended,0x687					; "  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 e00c       |    |		Load	0x0,0xc
03ca 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03cb 4804       |H   |		Short_Literal	0x4
03cc 0092 0688  |    |		Action	Push_String_Extended,0x688					; "   Checking VPs"
03ce e00d       |    |		Load	0x0,0xd
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 0689  |    |		Action	Push_String_Extended,0x689					; "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 068a  |    |		Action	Push_String_Extended,0x68a					; "  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 068b  |    |		Action	Push_String_Extended,0x68b					; "  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 068c  |    |		Action	Push_String_Extended,0x68c					; "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 068d  |    |		Action	Push_String_Extended,0x68d					; "  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 e40d       |    |		Load	0x2,0xd
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 e40e       |    |		Load	0x2,0xe
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 e40e       |    |		Load	0x2,0xe
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 e00c       |    |		Load	0x0,0xc
042c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
042d 4804       |H   |		Short_Literal	0x4
042e 0092 068e  |    |		Action	Push_String_Extended,0x68e					; "   Checking Segments/Blocks"
0430 e00d       |    |		Load	0x0,0xd
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 e40a       |    |		Load	0x2,0xa
043e 027b       | {  |		Execute	Discrete,Greater_Equal
043f 0279       | y  |		Execute	Discrete,And
0440 6840       |h@  |		Jump_Zero	0x481
0441 e00c       |    |		Load	0x0,0xc
0442 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0443 4802       |H   |		Short_Literal	0x2
0444 0092 068f  |    |		Action	Push_String_Extended,0x68f					; "    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 0690  |    |		Action	Push_String_Extended,0x690					; " "
044c 01cc       |    |		Execute	Vector,Catenate
044d e9ff       |    |		Load	0x4,-0x1
044e 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
044f e007       |    |		Load	0x0,0x7
0450 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0451 01cc       |    |		Execute	Vector,Catenate
0452 e00d       |    |		Load	0x0,0xd
0453 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0454 e5fd       |    |		Load	0x2,-0x3
0455 6814       |h   |		Jump_Zero	0x46a
0456 0092 0691  |    |		Action	Push_String_Extended,0x691					; "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 0690  |    |		Action	Push_String_Extended,0x690					; " "
045e 01cc       |    |		Execute	Vector,Catenate
045f e9ff       |    |		Load	0x4,-0x1
0460 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0461 e007       |    |		Load	0x0,0x7
0462 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0463 01cc       |    |		Execute	Vector,Catenate
0464 0092 0692  |    |		Action	Push_String_Extended,0x692					; "Next_Space"
0466 4801       |H   |		Short_Literal	0x1
0467 e408       |    |		Load	0x2,0x8
0468 e018       |    |		Load	0x0,0x18
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 e409       |    |		Load	0x2,0x9
046f 0092 0693  |    |		Action	Push_String_Extended,0x693					; "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 0690  |    |		Action	Push_String_Extended,0x690					; " "
0477 01cc       |    |		Execute	Vector,Catenate
0478 e9ff       |    |		Load	0x4,-0x1
0479 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
047a e007       |    |		Load	0x0,0x7
047b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
047c 01cc       |    |		Execute	Vector,Catenate
047d e004       |    |		Load	0x0,0x4
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 e407       |    |		Load	0x2,0x7
048c 0007       |    |		Action	Break_Optional
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 0694  |    |		Action	Push_String_Extended,0x694					; "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 068b  |    |		Action	Push_String_Extended,0x68b					; "  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 068c  |    |		Action	Push_String_Extended,0x68c					; "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 068d  |    |		Action	Push_String_Extended,0x68d					; "  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 e40d       |    |		Load	0x2,0xd
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 0695  |    |		Action	Push_String_Extended,0x695					; "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 7838       |x8  |		Jump	0x51d								; case 0x0
04e5 7864       |xd  |		Jump	0x54a								; 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 7016       |p   |		Jump_Nonzero	0x505
04ef 0092 0696  |    |		Action	Push_String_Extended,0x696					; "Inconsistent Block_Table state.  Expected FAMILY: "
04f1 e9fd       |    |		Load	0x4,-0x3
04f2 840c       |    |		Call	0x2,0xc
04f3 00e0       |    |		Load_Encached	Standard_Cache
04f4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04f5 01cc       |    |		Execute	Vector,Catenate
04f6 0092 0697  |    |		Action	Push_String_Extended,0x697					; "  Found: "
04f8 01cc       |    |		Execute	Vector,Catenate
04f9 e9fc       |    |		Load	0x4,-0x4
04fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04fb e60b       |    |		Load	0x3,0xb
04fc 01d5       |    |		Execute	Vector,Field_Reference
04fd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04fe 840c       |    |		Call	0x2,0xc
04ff 00e0       |    |		Load_Encached	Standard_Cache
0500 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0501 01cc       |    |		Execute	Vector,Catenate
0502 860d       |    |		Call	0x3,0xd
0503 4801       |H   |		Short_Literal	0x1
0504 8803       |    |		Call	0x4,0x3
0505 e9fb       |    |		Load	0x4,-0x5
0506 7015       |p   |		Jump_Nonzero	0x51c
0507 0092 0698  |    |		Action	Push_String_Extended,0x698					; "Inconsistent Block_Table state  VP"
0509 e9fe       |    |		Load	0x4,-0x2
050a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
050b 00e0       |    |		Load_Encached	Standard_Cache
050c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
050d 01cc       |    |		Execute	Vector,Catenate
050e 0092 0699  |    |		Action	Push_String_Extended,0x699					; "   Block"
0510 01cc       |    |		Execute	Vector,Catenate
0511 e9fc       |    |		Load	0x4,-0x4
0512 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0513 00e0       |    |		Load_Encached	Standard_Cache
0514 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0515 01cc       |    |		Execute	Vector,Catenate
0516 0092 069a  |    |		Action	Push_String_Extended,0x69a					; "  Expected: Is_In_Save_Set"
0518 01cc       |    |		Execute	Vector,Catenate
0519 860d       |    |		Call	0x3,0xd
051a 4801       |H   |		Short_Literal	0x1
051b 8803       |    |		Call	0x4,0x3
051c 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
051d e9fb       |    |		Load	0x4,-0x5
051e 681b       |h   |		Jump_Zero	0x53a
051f e410       |    |		Load	0x2,0x10
0520 0322       | "  |		Declare_Variable	Record
0521 4802       |H   |		Short_Literal	0x2
0522 e804       |    |		Load	0x4,0x4
0523 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0524 e9ff       |    |		Load	0x4,-0x1
0525 e804       |    |		Load	0x4,0x4
0526 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0527 e9fe       |    |		Load	0x4,-0x2
0528 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0529 e804       |    |		Load	0x4,0x4
052a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
052b e9fd       |    |		Load	0x4,-0x3
052c e410       |    |		Load	0x2,0x10
052d 3003       |0   |		Execute	Record,Field_Type,Field_Number 0x3
052e 0119       |    |		Execute	Any,Check_In_Formal_Type
052f e804       |    |		Load	0x4,0x4
0530 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0531 e9fe       |    |		Load	0x4,-0x2
0532 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0533 e804       |    |		Load	0x4,0x4
0534 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0535 e9fc       |    |		Load	0x4,-0x4
0536 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0537 e60b       |    |		Load	0x3,0xb
0538 01d6       |    |		Execute	Vector,Field_Write
0539 7806       |x   |		Jump	0x540
053a 4801       |H   |		Short_Literal	0x1
053b e9fc       |    |		Load	0x4,-0x4
053c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
053d e60b       |    |		Load	0x3,0xb
053e 01d5       |    |		Execute	Vector,Field_Reference
053f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0540 e802       |    |		Load	0x4,0x2
0541 e607       |    |		Load	0x3,0x7
0542 01d5       |    |		Execute	Vector,Field_Reference
0543 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0544 0a01       |    |		Execute_Immediate	Plus,0x1
0545 e802       |    |		Load	0x4,0x2
0546 e607       |    |		Load	0x3,0x7
0547 01d5       |    |		Execute	Vector,Field_Reference
0548 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0549 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
054a e9fb       |    |		Load	0x4,-0x5
054b 6815       |h   |		Jump_Zero	0x561
054c 0092 0698  |    |		Action	Push_String_Extended,0x698					; "Inconsistent Block_Table state  VP"
054e e9fe       |    |		Load	0x4,-0x2
054f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0550 00e0       |    |		Load_Encached	Standard_Cache
0551 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0552 01cc       |    |		Execute	Vector,Catenate
0553 0092 0699  |    |		Action	Push_String_Extended,0x699					; "   Block"
0555 01cc       |    |		Execute	Vector,Catenate
0556 e9fc       |    |		Load	0x4,-0x4
0557 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0558 00e0       |    |		Load_Encached	Standard_Cache
0559 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
055a 01cc       |    |		Execute	Vector,Catenate
055b 0092 069b  |    |		Action	Push_String_Extended,0x69b					; "  Expected: NOT Is_In_Save_Set"
055d 01cc       |    |		Execute	Vector,Catenate
055e 860d       |    |		Call	0x3,0xd
055f 4801       |H   |		Short_Literal	0x1
0560 8803       |    |		Call	0x4,0x3
0561 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0562 0000 0000  |    |		.BLANK	0000[0x6]
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 e006       |    |		Load	0x0,0x6
0575 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0576 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0577 e604       |    |		Load	0x3,0x4
0578 e006       |    |		Load	0x0,0x6
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 e012       |    |		Load	0x0,0x12
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 e00c       |    |		Load	0x0,0xc
059c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
059d 4800       |H   |		Short_Literal	0x0
059e 0092 069c  |    |		Action	Push_String_Extended,0x69c					; "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 e00d       |    |		Load	0x0,0xd
05a6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05a7 ebff       |    |		Load	0x5,-0x1
05a8 681a       |h   |		Jump_Zero	0x5c3
05a9 e00c       |    |		Load	0x0,0xc
05aa 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05ab 4800       |H   |		Short_Literal	0x0
05ac 0092 069d  |    |		Action	Push_String_Extended,0x69d					; "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 069e  |    |		Action	Push_String_Extended,0x69e					; "  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 e00d       |    |		Load	0x0,0xd
05c2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05c3 e00c       |    |		Load	0x0,0xc
05c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05c5 4800       |H   |		Short_Literal	0x0
05c6 0092 069f  |    |		Action	Push_String_Extended,0x69f					; "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 069e  |    |		Action	Push_String_Extended,0x69e					; "  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 e00d       |    |		Load	0x0,0xd
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 0663  |   c|		Declare_Subprogram	INIT_0660,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 4608       |F   |		Jump_Case	0x9
064c 7808       |x   |		Jump	0x655								; case 0x0
064d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
064e 780d       |x   |		Jump	0x65c								; case 0x2
064f 780c       |x   |		Jump	0x65c								; case 0x3
0650 780b       |x   |		Jump	0x65c								; case 0x4
0651 780a       |x   |		Jump	0x65c								; case 0x5
0652 7809       |x   |		Jump	0x65c								; case 0x6
0653 7808       |x   |		Jump	0x65c								; case 0x7
0654 7807       |x   |		Jump	0x65c								; case 0x8
0655 e7ff       |    |		Load	0x3,-0x1
0656 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0657 0125       | %  |		Execute	Any,Set_Constraint
0658 e7ff       |    |		Load	0x3,-0x1
0659 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
065a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
065b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
065c 0869       | i  |		Execute_Immediate	Raise,0x69
065d 0000 0000  |    |		.XXX[0x3]
065f 0000       |    |
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663       | c  |		.CONST	0x0663								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0001       |    |		.CONST	0x0001								; Number of locals
0663			BODY_0660:
0663			INIT_0660:
0663 4608       |F   |		Jump_Case	0x9
0664 7808       |x   |		Jump	0x66d								; case 0x0
0665 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0666 780d       |x   |		Jump	0x674								; case 0x2
0667 780c       |x   |		Jump	0x674								; case 0x3
0668 780b       |x   |		Jump	0x674								; case 0x4
0669 780a       |x   |		Jump	0x674								; case 0x5
066a 7809       |x   |		Jump	0x674								; case 0x6
066b 7808       |x   |		Jump	0x674								; case 0x7
066c 7807       |x   |		Jump	0x674								; case 0x8
066d e7ff       |    |		Load	0x3,-0x1
066e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
066f 0125       | %  |		Execute	Any,Set_Constraint
0670 e7ff       |    |		Load	0x3,-0x1
0671 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0672 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0673 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0674 0869       | i  |		Execute_Immediate	Raise,0x69
0675 ; --------------------------------------------------------------------------------------
0675 ; STRING TABLE
0675 ; --------------------------------------------------------------------------------------
0675 0058       | X  |		.STRTAB	0x0058->0x06a1							; "EMPTY"
0676 005b       | [  |		.STRTAB	0x005b->0x06a3							; "CLASS_REPRESENTATIVE"
0677 006d       | m  |		.STRTAB	0x006d->0x06ad							; "CLASS_MEMBER"
0678 0077       | w  |		.STRTAB	0x0077->0x06b3							; "EMPTY"
0679 007a       | z  |		.STRTAB	0x007a->0x06b6							; "EXISTS"
067a 007e       | ~  |		.STRTAB	0x007e->0x06b9							; "IN_SAVE_SET"
067b 0087       |    |		.STRTAB	0x0087->0x06be							; "Analyze Disks for Backup"
067c 009d       |    |		.STRTAB	0x009d->0x06ca							; "Analyze_Disks_For_Backup has started"
067d 00bf       |    |		.STRTAB	0x00bf->0x06dc							; "Invalid Start_Volume value specified, all disks will be logged."
067e 00fc       |    |		.STRTAB	0x00fc->0x06fc							; "Check_Disk_For_Backup can not complete because Backupor disk garbage collection is already in progress."
067f 0161       | a  |		.STRTAB	0x0161->0x072f							; "Starting retained snapshot"
0680 0179       | y  |		.STRTAB	0x0179->0x073c							; "Retained snapshot has completed"
0681 0196       |    |		.STRTAB	0x0196->0x074c							; "Analyze_Disks_For_Backup has detected"
0682 01b9       |    |		.STRTAB	0x01b9->0x075e							; " inconsistencies."
0683 01c8       |    |		.STRTAB	0x01c8->0x0767							; "Analyze_Disks_For_Backup has completed."
0684 01ed       |    |		.STRTAB	0x01ed->0x077a							; "Check_Disks_For_Backup did NOT complete"
0685 0212       |    |		.STRTAB	0x0212->0x078e							; "Checking disk volume"
0686 0224       | $  |		.STRTAB	0x0224->0x0798							; "Inconsistent Max_Block.  Found:"
0687 0241       | A  |		.STRTAB	0x0241->0x07a7							; "  Should not exceed"
0688 0252       | R  |		.STRTAB	0x0252->0x07b1							; "   Checking VPs"
0689 025f       | _  |		.STRTAB	0x025f->0x07b8							; "Inconsistent Volume for VP"
068a 0277       | w  |		.STRTAB	0x0277->0x07c5							; "  Found:"
068b 027d       | }  |		.STRTAB	0x027d->0x07c9							; "  Expected:"
068c 0286       |    |		.STRTAB	0x0286->0x07cf							; "Inconsistent VP_Table state.  VP:"
068d 02a5       |    |		.STRTAB	0x02a5->0x07df							; "  Expected: EMPTY  Found: "
068e 02bd       |    |		.STRTAB	0x02bd->0x07ec							; "   Checking Segments/Blocks"
068f 02d6       |    |		.STRTAB	0x02d6->0x07fa							; "    Working on volume "
0690 02ea       |    |		.STRTAB	0x02ea->0x0805							; " "
0691 02e9       |    |		.STRTAB	0x02e9->0x0805							; "Working on: volume "
0692 02fa       |    |		.STRTAB	0x02fa->0x080f							; "Next_Space"
0693 0302       |    |		.STRTAB	0x0302->0x0814							; "Working on volume "
0694 0312       |    |		.STRTAB	0x0312->0x081d							; "Inconsistent Volume for Block  Found:"
0695 0335       | 5  |		.STRTAB	0x0335->0x082f							; "Block number exceeds Disk Capacity.  Max:"
0696 035c       | \  |		.STRTAB	0x035c->0x0844							; "Inconsistent Block_Table state.  Expected FAMILY: "
0697 038c       |    |		.STRTAB	0x038c->0x085d							; "  Found: "
0698 0393       |    |		.STRTAB	0x0393->0x0861							; "Inconsistent Block_Table state  VP"
0699 03b3       |    |		.STRTAB	0x03b3->0x0872							; "   Block"
069a 03b9       |    |		.STRTAB	0x03b9->0x0876							; "  Expected: Is_In_Save_Set"
069b 03d1       |    |		.STRTAB	0x03d1->0x0883							; "  Expected: NOT Is_In_Save_Set"
069c 03ed       |    |		.STRTAB	0x03ed->0x0892							; "Block Number:"
069d 03f8       |    |		.STRTAB	0x03f8->0x0899							; "Block_Table:    VP"
069e 0408       |    |		.STRTAB	0x0408->0x08a2							; "  Segment "
069f 0410       |    |		.STRTAB	0x0410->0x08a7							; "Space_Address:  VP"
06a0 0420       |    |		.STREND 0x0420->0x08b0
06a1 454d 5054  |EMPT|		.STRTAB_STRINGS
08b0 ; --------------------------------------------------------------------------------------
08b0 ; Debug Table
08b0 ; --------------------------------------------------------------------------------------
08b0 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xee55,0x0000,0x0001,0x0000
08b6 0000 0f32  |   2|		.XXX[0xc6]
08b8 0010 9cfe  |    |
08ba 0000 0036  |   6|
08bc 00b9 d014  |    |
08be 0000 1032  |   2|
08c0 0010 9cfe  |    |
08c2 0000 0036  |   6|
08c4 00b9 d014  |    |
08c6 0000 12b2  |    |
08c8 0010 9cfe  |    |
08ca 0000 0036  |   6|
08cc 00b9 d014  |    |
08ce 0000 1432  |   2|
08d0 0010 9cfe  |    |
08d2 0000 0036  |   6|
08d4 00b9 d014  |    |
08d6 0000 16b2  |    |
08d8 0010 9cfe  |    |
08da 0000 0036  |   6|
08dc 00b9 d014  |    |
08de 0000 17b2  |    |
08e0 0010 9cfe  |    |
08e2 0000 0036  |   6|
08e4 00b9 d014  |    |
08e6 0000 18b2  |    |
08e8 0010 9cfe  |    |
08ea 0000 0036  |   6|
08ec 00b9 d014  |    |
08ee 0000 19b2  |    |
08f0 0010 9cfe  |    |
08f2 0000 0036  |   6|
08f4 00b9 d014  |    |
08f6 0000 1a32  |   2|
08f8 0010 9cfe  |    |
08fa 0000 0036  |   6|
08fc 00b9 d014  |    |
08fe 0000 1b32  |   2|
0900 0010 9cfe  |    |
0902 0000 0036  |   6|
0904 00b9 d014  |    |
0906 0000 1c32  |   2|
0908 0010 9cfe  |    |
090a 0000 0036  |   6|
090c 00b9 d014  |    |
090e 0000 1d32  |   2|
0910 0010 9cfe  |    |
0912 0000 0036  |   6|
0914 00b9 d014  |    |
0916 0000 1e32  |   2|
0918 0010 9cfe  |    |
091a 0000 0036  |   6|
091c 00b9 d014  |    |
091e 0000 1f32  |   2|
0920 0010 9cfe  |    |
0922 0000 0036  |   6|
0924 00b9 d014  |    |
0926 0000 20b2  |    |
0928 0010 9cfe  |    |
092a 0000 0036  |   6|
092c 00b9 d014  |    |
092e 0000 2232  |  "2|
0930 0010 9cfe  |    |
0932 0000 0036  |   6|
0934 00b9 d014  |    |
0936 0000 23b2  |  # |
0938 0010 9cfe  |    |
093a 0000 0036  |   6|
093c 00b9 d014  |    |
093e 0000 2532  |  %2|
0940 0010 9cfe  |    |
0942 0000 0036  |   6|
0944 00b9 d014  |    |
0946 0000 2732  |  '2|
0948 0010 9cfe  |    |
094a 0000 0036  |   6|
094c 00b9 d014  |    |
094e 0000 28b2  |  ( |
0950 0010 9cfe  |    |
0952 0000 0036  |   6|
0954 00b9 d014  |    |
0956 0000 2ab2  |  * |
0958 0010 9cfe  |    |
095a 0000 0036  |   6|
095c 00b9 d014  |    |
095e 0000 2d32  |  -2|
0960 0010 9cfe  |    |
0962 0000 07d8  |    |
0964 0010 a4fe  |    |
0966 0000 0000  |    |
0968 0006 f804  |    |
096a 0000 0032  |   2|
096c 0006 f804  |    |
096e 0000 0720  |    |
0970 0006 f804  |    |
0972 0000 0032  |   2|
0974 0006 f804  |    |
0976 0000 06a0  |    |
0978 0001 0404  |    |
097a 0800 0888  |    |
097c 0000 0000  |    |		.BLANK	0000[0xa]
0986 004e e8b5  | N  |		.XXX[0x2]
0988 0000 0000  |    |		.BLANK	0000[0x7]
098f 0048       | H  |		.XXX[0x1]
0990 0000 0000  |    |		.BLANK	0000[0x8]
0998 0010 9cfe  |    |		.XXX[0x5]
099a 0800 0480  |    |
099c 8000       |    |
099d 0000 0000  |    |		.BLANK	0000[0x9]
09a6 004e e8b5  | N  |		.XXX[0x2]
09a8 0000 0000  |    |		.BLANK	0000[0x7]
09af 0054       | T  |		.XXX[0x1]
09b0 0000 0000  |    |		.BLANK	0000[0x8]
09b8 0010 9cfe  |    |		.XXX[0x5]
09ba 0800 0600  |    |
09bc 8000       |    |
09bd 0000 0000  |    |		.BLANK	0000[0x9]
09c6 004e e8b5  | N  |		.XXX[0x2]
09c8 0000 0000  |    |		.BLANK	0000[0x7]
09cf 0060       | `  |		.XXX[0x1]
09d0 0000 0000  |    |		.BLANK	0000[0x8]
09d8 0001 0404  |    |		.XXX[0x5]
09da 0000 0280  |    |
09dc 8000       |    |
09dd 0000 0000  |    |		.BLANK	0000[0x9]
09e6 004e e8b5  | N  |		.XXX[0x2]
09e8 0000 0000  |    |		.BLANK	0000[0x7]
09ef 006c       | l  |		.XXX[0x1]
09f0 0000 0000  |    |		.BLANK	0000[0x8]
09f8 0001 0404  |    |		.XXX[0x8]
09fa 0000 0700  |    |
09fc 8000 0000  |    |
09fe 0000 0000  |    |