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

⟦73f247f74⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 06d8       |    |		.CONST	0x06d8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 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 006c       | l  |		.CONST	0x006c								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0020       |    |		.CONST	0x0020								; Number of locals
001b			INIT_0018:
001b 0093 0000  |    |		push_full_address	0x0
001d 6246       |bF  |		Indirect_Literal	Discrete,0x264,{0x80000000, 0x00010000}
001e 0273       | s  |		Execute	Discrete,Plus
001f 0007       |    |		Action	Break_Optional
0020 4ffc       |O   |		Short_Literal	-0x4
0021 623e       |b>  |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x00007fff}
0022 00e2       |    |		Load_Encached	Integer_Cache
0023 03f8       |    |		Declare_Type	Discrete,Constrained
0024 4800       |H   |		Short_Literal	0x0
0025 6236       |b6  |		Indirect_Literal	Discrete,0x25c,{0x00000000, 0x0000ffff}
0026 00da       |    |		Load_Top	At_Offset_2
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 4801       |H   |		Short_Literal	0x1
0029 035d       | ]  |		Declare_Type	Array,Defined
002a 00d8       |    |		Load_Top	At_Offset_0
002b 0337       | 7  |		Declare_Variable	Array
002c 00d8       |    |		Load_Top	At_Offset_0
002d 0335       | 5  |		Declare_Variable	Array,Duplicate
002e 00cd       |    |		Action	Spare6_Action
002f 622c       |b,  |		Indirect_Literal	Discrete,0x25c,{0x00000000, 0x0000ffff}
0030 4800       |H   |		Short_Literal	0x0
0031 4fff       |O   |		Short_Literal	-0x1
0032 00d9       |    |		Load_Top	At_Offset_1
0033 e406       |    |		Load	0x2,0x6
0034 01d6       |    |		Execute	Vector,Field_Write
0035 3ffb       |?   |		Loop_Increasing	0x31
0036 00d9       |    |		Load_Top	At_Offset_1
0037 01d4       |    |		Execute	Vector,Structure_Write
0038 e002       |    |		Load	0x0,0x2
0039 0007       |    |		Action	Break_Optional
003a e003       |    |		Load	0x0,0x3
003b 03e9       |    |		Declare_Variable	Discrete,Duplicate
003c e003       |    |		Load	0x0,0x3
003d 03e9       |    |		Declare_Variable	Discrete,Duplicate
003e e003       |    |		Load	0x0,0x3
003f 0007       |    |		Action	Break_Optional
0040 e004       |    |		Load	0x0,0x4
0041 0337       | 7  |		Declare_Variable	Array
0042 e003       |    |		Load	0x0,0x3
0043 0007       |    |		Action	Break_Optional
0044 00d8       |    |		Load_Top	At_Offset_0
0045 0007       |    |		Action	Break_Optional
0046 00e2       |    |		Load_Encached	Integer_Cache
0047 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0048 00e2       |    |		Load_Encached	Integer_Cache
0049 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
004a 00e2       |    |		Load_Encached	Integer_Cache
004b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
004c e403       |    |		Load	0x2,0x3
004d 0007       |    |		Action	Break_Optional
004e e003       |    |		Load	0x0,0x3
004f 0007       |    |		Action	Break_Optional
0050 e005       |    |		Load	0x0,0x5
0051 0337       | 7  |		Declare_Variable	Array
0052 e006       |    |		Load	0x0,0x6
0053 0322       | "  |		Declare_Variable	Record
0054 e003       |    |		Load	0x0,0x3
0055 0007       |    |		Action	Break_Optional
0056 00d8       |    |		Load_Top	At_Offset_0
0057 0007       |    |		Action	Break_Optional
0058 00e2       |    |		Load_Encached	Integer_Cache
0059 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005a 00e2       |    |		Load_Encached	Integer_Cache
005b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005c 00e2       |    |		Load_Encached	Integer_Cache
005d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005e 4801       |H   |		Short_Literal	0x1
005f 481e       |H   |		Short_Literal	0x1e
0060 00e9       |    |		Load_Encached	String_Cache
0061 035b       | [  |		Declare_Type	Array,Constrained
0062 0337       | 7  |		Declare_Variable	Array
0063 00e3       |    |		Load_Encached	Natural_Cache
0064 029f 026b  |   k|		Declare_Subprogram	INIT_0268,For_Call
0066 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
0068 029f 0343  |   C|		Declare_Subprogram	INIT_0340,For_Call
006a 029f 048b  |    |		Declare_Subprogram	INIT_0488,For_Call
006c			BODY_0018:
006c e406       |    |		Load	0x2,0x6
006d 4800       |H   |		Short_Literal	0x0
006e 8007       |    |		Call	0x0,0x7
006f c406       |    |		Store	0x2,0x6
0070 e406       |    |		Load	0x2,0x6
0071 6809       |h   |		Jump_Zero	0x7b
0072 e008       |    |		Load	0x0,0x8
0073 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0074 4807       |H   |		Short_Literal	0x7
0075 0092 051d  |    |		Action	Push_String_Extended,0x51d					; "FS_UINIT got an error"
0077 e009       |    |		Load	0x0,0x9
0078 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0079 e402       |    |		Load	0x2,0x2
007a 0257       | W  |		Execute	Discrete,Raise
007b 841e       |    |		Call	0x2,0x1e
007c 4801       |H   |		Short_Literal	0x1
007d e00a       |    |		Load	0x0,0xa
007e 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
007f 8420       |    |		Call	0x2,0x20
0080 e00b       |    |		Load	0x0,0xb
0081 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0082 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0083 a40d       |    |		Store_Unchecked	0x2,0xd
0084 00cf       |    |		Action	Mark_Auxiliary
0085 e40d       |    |		Load	0x2,0xd
0086 6845       |hE  |		Jump_Zero	0xcc
0087 e406       |    |		Load	0x2,0x6
0088 e40c       |    |		Load	0x2,0xc
0089 4801       |H   |		Short_Literal	0x1
008a e40d       |    |		Load	0x2,0xd
008b 800c       |    |		Call	0x0,0xc
008c 00d1       |    |		Pop_Control	Pop_Count_1
008d c406       |    |		Store	0x2,0x6
008e e406       |    |		Load	0x2,0x6
008f 680d       |h   |		Jump_Zero	0x9d
0090 e008       |    |		Load	0x0,0x8
0091 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0092 4807       |H   |		Short_Literal	0x7
0093 0092 051e  |    |		Action	Push_String_Extended,0x51e					; "free extent read error, block# "
0095 e40d       |    |		Load	0x2,0xd
0096 00e0       |    |		Load_Encached	Standard_Cache
0097 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0098 01cc       |    |		Execute	Vector,Catenate
0099 e009       |    |		Load	0x0,0x9
009a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
009b e402       |    |		Load	0x2,0x2
009c 0257       | W  |		Execute	Discrete,Raise
009d 4800       |H   |		Short_Literal	0x0
009e e40c       |    |		Load	0x2,0xc
009f 01d7       |    |		Execute	Vector,Field_Read
00a0 0908       |    |		Execute_Immediate	Binary_Scale,0x8
00a1 4801       |H   |		Short_Literal	0x1
00a2 e40c       |    |		Load	0x2,0xc
00a3 01d7       |    |		Execute	Vector,Field_Read
00a4 0273       | s  |		Execute	Discrete,Plus
00a5 c40e       |    |		Store	0x2,0xe
00a6 e40f       |    |		Load	0x2,0xf
00a7 0a01       |    |		Execute_Immediate	Plus,0x1
00a8 c40f       |    |		Store	0x2,0xf
00a9 e410       |    |		Load	0x2,0x10
00aa e40e       |    |		Load	0x2,0xe
00ab 0273       | s  |		Execute	Discrete,Plus
00ac c410       |    |		Store	0x2,0x10
00ad e40e       |    |		Load	0x2,0xe
00ae e411       |    |		Load	0x2,0x11
00af 027d       | }  |		Execute	Discrete,Greater
00b0 6802       |h   |		Jump_Zero	0xb3
00b1 e40e       |    |		Load	0x2,0xe
00b2 a411       |    |		Store_Unchecked	0x2,0x11
00b3 4801       |H   |		Short_Literal	0x1
00b4 4801       |H   |		Short_Literal	0x1
00b5 e00d       |    |		Load	0x0,0xd
00b6 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00b7 035b       | [  |		Declare_Type	Array,Constrained
00b8 0337       | 7  |		Declare_Variable	Array
00b9 4800       |H   |		Short_Literal	0x0
00ba 4801       |H   |		Short_Literal	0x1
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 01d6       |    |		Execute	Vector,Field_Write
00bd 4ffd       |O   |		Short_Literal	-0x3
00be e40e       |    |		Load	0x2,0xe
00bf e40d       |    |		Load	0x2,0xd
00c0 841f       |    |		Call	0x2,0x1f
00c1 4802       |H   |		Short_Literal	0x2
00c2 e40c       |    |		Load	0x2,0xc
00c3 01d7       |    |		Execute	Vector,Field_Read
00c4 0908       |    |		Execute_Immediate	Binary_Scale,0x8
00c5 4803       |H   |		Short_Literal	0x3
00c6 e40c       |    |		Load	0x2,0xc
00c7 01d7       |    |		Execute	Vector,Field_Read
00c8 0273       | s  |		Execute	Discrete,Plus
00c9 c40d       |    |		Store	0x2,0xd
00ca 00c9       |    |		Action	Pop_Auxiliary_Loop
00cb 7fb9       |    |		Jump	0x85
00cc 00c9       |    |		Action	Pop_Auxiliary_Loop
00cd e00e       |    |		Load	0x0,0xe
00ce 01d9       |    |		Execute	Vector,Reverse_Bounds
00cf 0007       |    |		Action	Break_Optional
00d0 00d8       |    |		Load_Top	At_Offset_0
00d1 e00b       |    |		Load	0x0,0xb
00d2 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00d3 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
00d4 01d7       |    |		Execute	Vector,Field_Read
00d5 a413       |    |		Store_Unchecked	0x2,0x13
00d6 4801       |H   |		Short_Literal	0x1
00d7 4801       |H   |		Short_Literal	0x1
00d8 e00d       |    |		Load	0x0,0xd
00d9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00da 035b       | [  |		Declare_Type	Array,Constrained
00db 0337       | 7  |		Declare_Variable	Array
00dc 4800       |H   |		Short_Literal	0x0
00dd 4801       |H   |		Short_Literal	0x1
00de 00da       |    |		Load_Top	At_Offset_2
00df 01d6       |    |		Execute	Vector,Field_Write
00e0 4ffe       |O   |		Short_Literal	-0x2
00e1 4900       |I   |		Short_Literal	0x100
00e2 e413       |    |		Load	0x2,0x13
00e3 841f       |    |		Call	0x2,0x1f
00e4 00c8       |    |		Action	Pop_Auxiliary_Range
00e5 3fea       |?   |		Loop_Increasing	0xd0
00e6 00c9       |    |		Action	Pop_Auxiliary_Loop
00e7 6170       |ap  |		Indirect_Literal	Discrete,0x258,{0x00000000, 0x000007ff}
00e8 4800       |H   |		Short_Literal	0x0
00e9 0007       |    |		Action	Break_Optional
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
00ec e00b       |    |		Load	0x0,0xb
00ed 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00ee 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
00ef 01d7       |    |		Execute	Vector,Field_Read
00f0 00d9       |    |		Load_Top	At_Offset_1
00f1 48ff       |H   |		Short_Literal	0xff
00f2 0279       | y  |		Execute	Discrete,And
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 e003       |    |		Load	0x0,0x3
00f5 0260       | `  |		Execute	Discrete,In_Type
00f6 7001       |p   |		Jump_Nonzero	0xf8
00f7 0801       |    |		Execute_Immediate	Raise,0x1
00f8 0273       | s  |		Execute	Discrete,Plus
00f9 c413       |    |		Store	0x2,0x13
00fa e406       |    |		Load	0x2,0x6
00fb e414       |    |		Load	0x2,0x14
00fc 4801       |H   |		Short_Literal	0x1
00fd e413       |    |		Load	0x2,0x13
00fe 800f       |    |		Call	0x0,0xf
00ff 00d1       |    |		Pop_Control	Pop_Count_1
0100 c406       |    |		Store	0x2,0x6
0101 e406       |    |		Load	0x2,0x6
0102 680d       |h   |		Jump_Zero	0x110
0103 e008       |    |		Load	0x0,0x8
0104 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0105 4807       |H   |		Short_Literal	0x7
0106 0092 051f  |    |		Action	Push_String_Extended,0x51f					; "directory read error, block# "
0108 e413       |    |		Load	0x2,0x13
0109 00e0       |    |		Load_Encached	Standard_Cache
010a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
010b 01cc       |    |		Execute	Vector,Catenate
010c e009       |    |		Load	0x0,0x9
010d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
010e e402       |    |		Load	0x2,0x2
010f 0257       | W  |		Execute	Discrete,Raise
0110 00cf       |    |		Action	Mark_Auxiliary
0111 e005       |    |		Load	0x0,0x5
0112 01d9       |    |		Execute	Vector,Reverse_Bounds
0113 0007       |    |		Action	Break_Optional
0114 00d8       |    |		Load_Top	At_Offset_0
0115 e414       |    |		Load	0x2,0x14
0116 01d5       |    |		Execute	Vector,Field_Reference
0117 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0118 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0119 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011a 7089       |p   |		Jump_Nonzero	0x1a4
011b e418       |    |		Load	0x2,0x18
011c 0a01       |    |		Execute_Immediate	Plus,0x1
011d c418       |    |		Store	0x2,0x18
011e 00db       |    |		Load_Top	At_Offset_3
011f 0904       |    |		Execute_Immediate	Binary_Scale,0x4
0120 00d9       |    |		Load_Top	At_Offset_1
0121 0273       | s  |		Execute	Discrete,Plus
0122 c412       |    |		Store	0x2,0x12
0123 4800       |H   |		Short_Literal	0x0
0124 a416       |    |		Store_Unchecked	0x2,0x16
0125 00cf       |    |		Action	Mark_Auxiliary
0126 e010       |    |		Load	0x0,0x10
0127 01d9       |    |		Execute	Vector,Reverse_Bounds
0128 0007       |    |		Action	Break_Optional
0129 00d8       |    |		Load_Top	At_Offset_0
012a e426       | &  |		Load	0x2,0x26
012b e414       |    |		Load	0x2,0x14
012c 01d5       |    |		Execute	Vector,Field_Reference
012d 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
012e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
012f 01d5       |    |		Execute	Vector,Field_Reference
0130 e415       |    |		Load	0x2,0x15
0131 017d       | }  |		Execute	Record,Structure_Write
0132 e415       |    |		Load	0x2,0x15
0133 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0134 7002       |p   |		Jump_Nonzero	0x137
0135 00d2       |    |		Pop_Control	Pop_Count_2
0136 7817       |x   |		Jump	0x14e
0137 e415       |    |		Load	0x2,0x15
0138 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0139 e416       |    |		Load	0x2,0x16
013a 0272       | r  |		Execute	Discrete,Minus
013b c417       |    |		Store	0x2,0x17
013c e415       |    |		Load	0x2,0x15
013d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013e a416       |    |		Store_Unchecked	0x2,0x16
013f e419       |    |		Load	0x2,0x19
0140 e417       |    |		Load	0x2,0x17
0141 0273       | s  |		Execute	Discrete,Plus
0142 c419       |    |		Store	0x2,0x19
0143 00db       |    |		Load_Top	At_Offset_3
0144 e414       |    |		Load	0x2,0x14
0145 01d5       |    |		Execute	Vector,Field_Reference
0146 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0147 e412       |    |		Load	0x2,0x12
0148 e417       |    |		Load	0x2,0x17
0149 e415       |    |		Load	0x2,0x15
014a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
014b 841f       |    |		Call	0x2,0x1f
014c 00c8       |    |		Action	Pop_Auxiliary_Range
014d 3fdb       |?   |		Loop_Increasing	0x129
014e 00ce       |    |		Action	Pop_Auxiliary
014f e416       |    |		Load	0x2,0x16
0150 00d9       |    |		Load_Top	At_Offset_1
0151 e414       |    |		Load	0x2,0x14
0152 01d5       |    |		Execute	Vector,Field_Reference
0153 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0154 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0155 027e       | ~  |		Execute	Discrete,Not_Equal
0156 684d       |hM  |		Jump_Zero	0x1a4
0157 00cf       |    |		Action	Mark_Auxiliary
0158 481e       |H   |		Short_Literal	0x1e
0159 4801       |H   |		Short_Literal	0x1
015a 0007       |    |		Action	Break_Optional
015b 00d8       |    |		Load_Top	At_Offset_0
015c e426       | &  |		Load	0x2,0x26
015d e414       |    |		Load	0x2,0x14
015e 01d5       |    |		Execute	Vector,Field_Reference
015f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0160 01d7       |    |		Execute	Vector,Field_Read
0161 7005       |p   |		Jump_Nonzero	0x167
0162 00d8       |    |		Load_Top	At_Offset_0
0163 0aff       |    |		Execute_Immediate	Plus,-0x1
0164 c41c       |    |		Store	0x2,0x1c
0165 00d2       |    |		Pop_Control	Pop_Count_2
0166 7810       |x   |		Jump	0x177
0167 00d8       |    |		Load_Top	At_Offset_0
0168 e426       | &  |		Load	0x2,0x26
0169 e414       |    |		Load	0x2,0x14
016a 01d5       |    |		Execute	Vector,Field_Reference
016b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
016c 01d7       |    |		Execute	Vector,Field_Read
016d 00d8       |    |		Load_Top	At_Offset_0
016e 00e8       |    |		Load_Encached	Character_Cache
016f 0260       | `  |		Execute	Discrete,In_Type
0170 7001       |p   |		Jump_Nonzero	0x172
0171 0801       |    |		Execute_Immediate	Raise,0x1
0172 00d9       |    |		Load_Top	At_Offset_1
0173 e41b       |    |		Load	0x2,0x1b
0174 01d6       |    |		Execute	Vector,Field_Write
0175 00c8       |    |		Action	Pop_Auxiliary_Range
0176 3fe4       |?   |		Loop_Increasing	0x15b
0177 00ce       |    |		Action	Pop_Auxiliary
0178 0092 0520  |    |		Action	Push_String_Extended,0x520					; "*** fib.DATA.LENGTH ="
017a 00d9       |    |		Load_Top	At_Offset_1
017b e414       |    |		Load	0x2,0x14
017c 01d5       |    |		Execute	Vector,Field_Reference
017d 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
017e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017f 00e0       |    |		Load_Encached	Standard_Cache
0180 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0181 01cc       |    |		Execute	Vector,Catenate
0182 0092 0521  |   !|		Action	Push_String_Extended,0x521					; " but fib.DATA.POINTERS(last_seg).LAST_PAGE ="
0184 01cc       |    |		Execute	Vector,Catenate
0185 e416       |    |		Load	0x2,0x16
0186 00e0       |    |		Load_Encached	Standard_Cache
0187 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0188 01cc       |    |		Execute	Vector,Catenate
0189 0092 0522  |   "|		Action	Push_String_Extended,0x522					; " in file "
018b 01cc       |    |		Execute	Vector,Catenate
018c 4801       |H   |		Short_Literal	0x1
018d e41c       |    |		Load	0x2,0x1c
018e e41b       |    |		Load	0x2,0x1b
018f 01cf       |    |		Execute	Vector,Slice_Read
0190 01cc       |    |		Execute	Vector,Catenate
0191 0092 0523  |   #|		Action	Push_String_Extended,0x523					; ", directory block addr"
0193 01cc       |    |		Execute	Vector,Catenate
0194 e413       |    |		Load	0x2,0x13
0195 00e0       |    |		Load_Encached	Standard_Cache
0196 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0197 01cc       |    |		Execute	Vector,Catenate
0198 0092 0524  |   $|		Action	Push_String_Extended,0x524					; ", FIB offset"
019a 01cc       |    |		Execute	Vector,Catenate
019b 00d9       |    |		Load_Top	At_Offset_1
019c 00e0       |    |		Load_Encached	Standard_Cache
019d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
019e 01cc       |    |		Execute	Vector,Catenate
019f e00a       |    |		Load	0x0,0xa
01a0 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01a1 e41a       |    |		Load	0x2,0x1a
01a2 0a01       |    |		Execute_Immediate	Plus,0x1
01a3 c41a       |    |		Store	0x2,0x1a
01a4 00c8       |    |		Action	Pop_Auxiliary_Range
01a5 3f6e       |?n  |		Loop_Increasing	0x114
01a6 00ce       |    |		Action	Pop_Auxiliary
01a7 00c8       |    |		Action	Pop_Auxiliary_Range
01a8 3f41       |?A  |		Loop_Increasing	0xea
01a9 00c9       |    |		Action	Pop_Auxiliary_Loop
01aa e40a       |    |		Load	0x2,0xa
01ab e409       |    |		Load	0x2,0x9
01ac 0263       | c  |		Execute	Discrete,Above_Bound
01ad 7016       |p   |		Jump_Nonzero	0x1c4
01ae 00d8       |    |		Load_Top	At_Offset_0
01af e405       |    |		Load	0x2,0x5
01b0 01d7       |    |		Execute	Vector,Field_Read
01b1 4fff       |O   |		Short_Literal	-0x1
01b2 027f       |    |		Execute	Discrete,Equal
01b3 680e       |h   |		Jump_Zero	0x1c2
01b4 0092 0525  |   %|		Action	Push_String_Extended,0x525					; "block "
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 00e0       |    |		Load_Encached	Standard_Cache
01b8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b9 01cc       |    |		Execute	Vector,Catenate
01ba 0092 0526  |   &|		Action	Push_String_Extended,0x526					; " is not allocated or in an Unused segment ***"
01bc 01cc       |    |		Execute	Vector,Catenate
01bd e00a       |    |		Load	0x0,0xa
01be 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01bf e41a       |    |		Load	0x2,0x1a
01c0 0a01       |    |		Execute_Immediate	Plus,0x1
01c1 c41a       |    |		Store	0x2,0x1a
01c2 00c8       |    |		Action	Pop_Auxiliary_Range
01c3 3fea       |?   |		Loop_Increasing	0x1ae
01c4 00ce       |    |		Action	Pop_Auxiliary
01c5 4801       |H   |		Short_Literal	0x1
01c6 e00a       |    |		Load	0x0,0xa
01c7 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
01c8 e40a       |    |		Load	0x2,0xa
01c9 e409       |    |		Load	0x2,0x9
01ca 0272       | r  |		Execute	Discrete,Minus
01cb 0a01       |    |		Execute_Immediate	Plus,0x1
01cc 00e0       |    |		Load_Encached	Standard_Cache
01cd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01ce 0092 0527  |   '|		Action	Push_String_Extended,0x527					; " blocks in DFS area"
01d0 01cc       |    |		Execute	Vector,Catenate
01d1 e00a       |    |		Load	0x0,0xa
01d2 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01d3 e419       |    |		Load	0x2,0x19
01d4 00e0       |    |		Load_Encached	Standard_Cache
01d5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01d6 0092 0528  |   (|		Action	Push_String_Extended,0x528					; " used blocks contained in "
01d8 01cc       |    |		Execute	Vector,Catenate
01d9 e418       |    |		Load	0x2,0x18
01da 00e0       |    |		Load_Encached	Standard_Cache
01db 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01dc 01cc       |    |		Execute	Vector,Catenate
01dd 0092 0529  |   )|		Action	Push_String_Extended,0x529					; " files"
01df 01cc       |    |		Execute	Vector,Catenate
01e0 e00a       |    |		Load	0x0,0xa
01e1 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01e2 e410       |    |		Load	0x2,0x10
01e3 00e0       |    |		Load_Encached	Standard_Cache
01e4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e5 0092 052a  |   *|		Action	Push_String_Extended,0x52a					; " free blocks contained in "
01e7 01cc       |    |		Execute	Vector,Catenate
01e8 e40f       |    |		Load	0x2,0xf
01e9 00e0       |    |		Load_Encached	Standard_Cache
01ea 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01eb 01cc       |    |		Execute	Vector,Catenate
01ec 0092 052b  |   +|		Action	Push_String_Extended,0x52b					; " segments ("
01ee 01cc       |    |		Execute	Vector,Catenate
01ef e411       |    |		Load	0x2,0x11
01f0 00e0       |    |		Load_Encached	Standard_Cache
01f1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01f2 01cc       |    |		Execute	Vector,Catenate
01f3 0092 052c  |   ,|		Action	Push_String_Extended,0x52c					; " in largest segment)"
01f5 01cc       |    |		Execute	Vector,Catenate
01f6 e00a       |    |		Load	0x0,0xa
01f7 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01f8 0092 052d  |   -|		Action	Push_String_Extended,0x52d					; " lengths of the first 12 Unused_Segments:"
01fa e00a       |    |		Load	0x0,0xa
01fb 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01fc e00b       |    |		Load	0x0,0xb
01fd 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
01fe 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01ff a40d       |    |		Store_Unchecked	0x2,0xd
0200 00cf       |    |		Action	Mark_Auxiliary
0201 480c       |H   |		Short_Literal	0xc
0202 4801       |H   |		Short_Literal	0x1
0203 0007       |    |		Action	Break_Optional
0204 e40d       |    |		Load	0x2,0xd
0205 7002       |p   |		Jump_Nonzero	0x208
0206 00d2       |    |		Pop_Control	Pop_Count_2
0207 7832       |x2  |		Jump	0x23a
0208 e406       |    |		Load	0x2,0x6
0209 e40c       |    |		Load	0x2,0xc
020a 4801       |H   |		Short_Literal	0x1
020b e40d       |    |		Load	0x2,0xd
020c 800c       |    |		Call	0x0,0xc
020d 00d1       |    |		Pop_Control	Pop_Count_1
020e c406       |    |		Store	0x2,0x6
020f e406       |    |		Load	0x2,0x6
0210 680d       |h   |		Jump_Zero	0x21e
0211 e008       |    |		Load	0x0,0x8
0212 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0213 4807       |H   |		Short_Literal	0x7
0214 0092 051e  |    |		Action	Push_String_Extended,0x51e					; "free extent read error, block# "
0216 e40d       |    |		Load	0x2,0xd
0217 00e0       |    |		Load_Encached	Standard_Cache
0218 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0219 01cc       |    |		Execute	Vector,Catenate
021a e009       |    |		Load	0x0,0x9
021b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
021c e402       |    |		Load	0x2,0x2
021d 0257       | W  |		Execute	Discrete,Raise
021e 480a       |H   |		Short_Literal	0xa
021f 4806       |H   |		Short_Literal	0x6
0220 4800       |H   |		Short_Literal	0x0
0221 e40c       |    |		Load	0x2,0xc
0222 01d7       |    |		Execute	Vector,Field_Read
0223 0908       |    |		Execute_Immediate	Binary_Scale,0x8
0224 4801       |H   |		Short_Literal	0x1
0225 e40c       |    |		Load	0x2,0xc
0226 01d7       |    |		Execute	Vector,Field_Read
0227 0273       | s  |		Execute	Discrete,Plus
0228 00d8       |    |		Load_Top	At_Offset_0
0229 00e2       |    |		Load_Encached	Integer_Cache
022a 0260       | `  |		Execute	Discrete,In_Type
022b 7001       |p   |		Jump_Nonzero	0x22d
022c 0801       |    |		Execute_Immediate	Raise,0x1
022d e00a       |    |		Load	0x0,0xa
022e 186c       | l  |		Execute	Package,Field_Execute,Field_Number 0x6c
022f 4802       |H   |		Short_Literal	0x2
0230 e40c       |    |		Load	0x2,0xc
0231 01d7       |    |		Execute	Vector,Field_Read
0232 0908       |    |		Execute_Immediate	Binary_Scale,0x8
0233 4803       |H   |		Short_Literal	0x3
0234 e40c       |    |		Load	0x2,0xc
0235 01d7       |    |		Execute	Vector,Field_Read
0236 0273       | s  |		Execute	Discrete,Plus
0237 c40d       |    |		Store	0x2,0xd
0238 00c8       |    |		Action	Pop_Auxiliary_Range
0239 3fca       |?   |		Loop_Increasing	0x204
023a 00ce       |    |		Action	Pop_Auxiliary
023b 4801       |H   |		Short_Literal	0x1
023c e00a       |    |		Load	0x0,0xa
023d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
023e e41a       |    |		Load	0x2,0x1a
023f 0f01       |    |		Execute_Immediate	Equal,0x1
0240 6805       |h   |		Jump_Zero	0x246
0241 0092 052e  |   .|		Action	Push_String_Extended,0x52e					; "*** There was 1 discrepancy reported ***"
0243 e00a       |    |		Load	0x0,0xa
0244 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0245 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0246 e41a       |    |		Load	0x2,0x1a
0247 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0248 680b       |h   |		Jump_Zero	0x254
0249 0092 052f  |   /|		Action	Push_String_Extended,0x52f					; "*** There were"
024b e41a       |    |		Load	0x2,0x1a
024c 00e0       |    |		Load_Encached	Standard_Cache
024d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
024e 01cc       |    |		Execute	Vector,Catenate
024f 0092 0530  |   0|		Action	Push_String_Extended,0x530					; " discrepancies reported ***"
0251 01cc       |    |		Execute	Vector,Catenate
0252 e00a       |    |		Load	0x0,0xa
0253 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0254 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0255 0000 0000  |    |		.XXX[0x3]
0257 0000       |    |
0258 0000 0000  |    |		.LITERAL	{0x00000000, 0x000007ff}
025c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0260 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fff}
0264 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c e00b       |    |		Load	0x0,0xb
026d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
026e 0271       | q  |		Execute	Discrete,Times
026f e7fe       |    |		Load	0x3,-0x2
0270 e00b       |    |		Load	0x0,0xb
0271 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0272 0271       | q  |		Execute	Discrete,Times
0273 0273       | s  |		Execute	Discrete,Plus
0274 e7fd       |    |		Load	0x3,-0x3
0275 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0276 0273       | s  |		Execute	Discrete,Plus
0277 00d8       |    |		Load_Top	At_Offset_0
0278 e003       |    |		Load	0x0,0x3
0279 0260       | `  |		Execute	Discrete,In_Type
027a 7001       |p   |		Jump_Nonzero	0x27c
027b 0801       |    |		Execute_Immediate	Raise,0x1
027c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
027d 0000 0000  |    |		.XXX[0x3]
027f 0000       |    |
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 029b       |    |		.CONST	0x029b								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0007       |    |		.CONST	0x0007								; Number of locals
0283			INIT_0280:
0283 e011       |    |		Load	0x0,0x11
0284 0322       | "  |		Declare_Variable	Record
0285 e012       |    |		Load	0x0,0x12
0286 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0287 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0288 0322       | "  |		Declare_Variable	Record
0289 4800       |H   |		Short_Literal	0x0
028a 00d9       |    |		Load_Top	At_Offset_1
028b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
028c 4800       |H   |		Short_Literal	0x0
028d 00d9       |    |		Load_Top	At_Offset_1
028e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
028f 4804       |H   |		Short_Literal	0x4
0290 00d9       |    |		Load_Top	At_Offset_1
0291 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0292 e013       |    |		Load	0x0,0x13
0293 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0294 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
0295 00c6       |    |		Action	Check_Subprogram_Elaborated
0296 e011       |    |		Load	0x0,0x11
0297 e014       |    |		Load	0x0,0x14
0298 e015       |    |		Load	0x0,0x15
0299 4807       |H   |		Short_Literal	0x7
029a 0007       |    |		Action	Break_Optional
029b			BODY_0280:
029b e603       |    |		Load	0x3,0x3
029c e604       |    |		Load	0x3,0x4
029d 4805       |H   |		Short_Literal	0x5
029e 4803       |H   |		Short_Literal	0x3
029f 0099       |    |		Action	Reference_Dynamic
02a0 e013       |    |		Load	0x0,0x13
02a1 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02a2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02a3 e602       |    |		Load	0x3,0x2
02a4 017d       | }  |		Execute	Record,Structure_Write
02a5 e602       |    |		Load	0x3,0x2
02a6 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02a7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02a8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02a9 0a01       |    |		Execute_Immediate	Plus,0x1
02aa 00d8       |    |		Load_Top	At_Offset_0
02ab e016       |    |		Load	0x0,0x16
02ac 0260       | `  |		Execute	Discrete,In_Type
02ad 7001       |p   |		Jump_Nonzero	0x2af
02ae 0801       |    |		Execute_Immediate	Raise,0x1
02af e602       |    |		Load	0x3,0x2
02b0 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02b1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02b2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b3 e602       |    |		Load	0x3,0x2
02b4 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02b5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02b6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b7 841d       |    |		Call	0x2,0x1d
02b8 a407       |    |		Store_Unchecked	0x2,0x7
02b9 e602       |    |		Load	0x3,0x2
02ba 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02bb 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02bc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02bd 0aff       |    |		Execute_Immediate	Plus,-0x1
02be 00d8       |    |		Load_Top	At_Offset_0
02bf e016       |    |		Load	0x0,0x16
02c0 0260       | `  |		Execute	Discrete,In_Type
02c1 7001       |p   |		Jump_Nonzero	0x2c3
02c2 0801       |    |		Execute_Immediate	Raise,0x1
02c3 e602       |    |		Load	0x3,0x2
02c4 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02c5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02c6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c7 e602       |    |		Load	0x3,0x2
02c8 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02c9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02ca 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02cb 841d       |    |		Call	0x2,0x1d
02cc a408       |    |		Store_Unchecked	0x2,0x8
02cd e602       |    |		Load	0x3,0x2
02ce 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02cf 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02d0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02d1 0a01       |    |		Execute_Immediate	Plus,0x1
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 e016       |    |		Load	0x0,0x16
02d4 0260       | `  |		Execute	Discrete,In_Type
02d5 7001       |p   |		Jump_Nonzero	0x2d7
02d6 0801       |    |		Execute_Immediate	Raise,0x1
02d7 e602       |    |		Load	0x3,0x2
02d8 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02d9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02db e602       |    |		Load	0x3,0x2
02dc 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02dd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02de 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02df 841d       |    |		Call	0x2,0x1d
02e0 a409       |    |		Store_Unchecked	0x2,0x9
02e1 e602       |    |		Load	0x3,0x2
02e2 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02e3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02e4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02e5 0aff       |    |		Execute_Immediate	Plus,-0x1
02e6 00d8       |    |		Load_Top	At_Offset_0
02e7 e016       |    |		Load	0x0,0x16
02e8 0260       | `  |		Execute	Discrete,In_Type
02e9 7001       |p   |		Jump_Nonzero	0x2eb
02ea 0801       |    |		Execute_Immediate	Raise,0x1
02eb e602       |    |		Load	0x3,0x2
02ec 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02ed 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02ee 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ef e602       |    |		Load	0x3,0x2
02f0 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02f1 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02f2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f3 841d       |    |		Call	0x2,0x1d
02f4 a40a       |    |		Store_Unchecked	0x2,0xa
02f5 e602       |    |		Load	0x3,0x2
02f6 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02f7 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02f8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f9 a40b       |    |		Store_Unchecked	0x2,0xb
02fa 0092 0531  |   1|		Action	Push_String_Extended,0x531					; "DFS area: first block ="
02fc e409       |    |		Load	0x2,0x9
02fd 00e0       |    |		Load_Encached	Standard_Cache
02fe 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02ff 01cc       |    |		Execute	Vector,Catenate
0300 0092 0532  |   2|		Action	Push_String_Extended,0x532					; " (CTS ="
0302 01cc       |    |		Execute	Vector,Catenate
0303 e602       |    |		Load	0x3,0x2
0304 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0305 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0306 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0307 00e0       |    |		Load_Encached	Standard_Cache
0308 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0309 01cc       |    |		Execute	Vector,Catenate
030a e602       |    |		Load	0x3,0x2
030b 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
030c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
030d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030e 00e0       |    |		Load_Encached	Standard_Cache
030f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0310 01cc       |    |		Execute	Vector,Catenate
0311 e602       |    |		Load	0x3,0x2
0312 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0313 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0314 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0315 00e0       |    |		Load_Encached	Standard_Cache
0316 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0317 01cc       |    |		Execute	Vector,Catenate
0318 0092 0533  |   3|		Action	Push_String_Extended,0x533					; "), last block ="
031a 01cc       |    |		Execute	Vector,Catenate
031b e40a       |    |		Load	0x2,0xa
031c 00e0       |    |		Load_Encached	Standard_Cache
031d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
031e 01cc       |    |		Execute	Vector,Catenate
031f 0092 0532  |   2|		Action	Push_String_Extended,0x532					; " (CTS ="
0321 01cc       |    |		Execute	Vector,Catenate
0322 e602       |    |		Load	0x3,0x2
0323 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0324 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0325 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0326 00e0       |    |		Load_Encached	Standard_Cache
0327 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0328 01cc       |    |		Execute	Vector,Catenate
0329 e602       |    |		Load	0x3,0x2
032a 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
032b 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
032c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
032d 00e0       |    |		Load_Encached	Standard_Cache
032e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
032f 01cc       |    |		Execute	Vector,Catenate
0330 e602       |    |		Load	0x3,0x2
0331 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0332 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0333 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0334 00e0       |    |		Load_Encached	Standard_Cache
0335 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0336 01cc       |    |		Execute	Vector,Catenate
0337 0092 0534  |   4|		Action	Push_String_Extended,0x534					; ")"
0339 01cc       |    |		Execute	Vector,Catenate
033a e00a       |    |		Load	0x0,0xa
033b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
033c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
033d 0000 0000  |    |		.XXX[0x3]
033f 0000       |    |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0349       | I  |		.CONST	0x0349								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0003       |    |		.CONST	0x0003								; Number of locals
0343			INIT_0340:
0343 4801       |H   |		Short_Literal	0x1
0344 4832       |H2  |		Short_Literal	0x32
0345 00e9       |    |		Load_Encached	String_Cache
0346 035b       | [  |		Declare_Type	Array,Constrained
0347 0337       | 7  |		Declare_Variable	Array
0348 00e4       |    |		Load_Encached	Positive_Cache
0349			BODY_0340:
0349 e7fd       |    |		Load	0x3,-0x3
034a 4ffe       |O   |		Short_Literal	-0x2
034b 027f       |    |		Execute	Discrete,Equal
034c 683b       |h;  |		Jump_Zero	0x388
034d 4809       |H   |		Short_Literal	0x9
034e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
034f 00d9       |    |		Load_Top	At_Offset_1
0350 4801       |H   |		Short_Literal	0x1
0351 00da       |    |		Load_Top	At_Offset_2
0352 00d9       |    |		Load_Top	At_Offset_1
0353 00d9       |    |		Load_Top	At_Offset_1
0354 e604       |    |		Load	0x3,0x4
0355 035b       | [  |		Declare_Type	Array,Constrained
0356 00db       |    |		Load_Top	At_Offset_3
0357 01cd       |    |		Execute	Vector,Slice_Reference
0358 4801       |H   |		Short_Literal	0x1
0359 4809       |H   |		Short_Literal	0x9
035a 00e9       |    |		Load_Encached	String_Cache
035b 035b       | [  |		Declare_Type	Array,Constrained
035c 0337       | 7  |		Declare_Variable	Array
035d 4844       |HD  |		Short_Literal	0x44
035e 4801       |H   |		Short_Literal	0x1
035f 00da       |    |		Load_Top	At_Offset_2
0360 01d6       |    |		Execute	Vector,Field_Write
0361 4869       |Hi  |		Short_Literal	0x69
0362 4802       |H   |		Short_Literal	0x2
0363 00da       |    |		Load_Top	At_Offset_2
0364 01d6       |    |		Execute	Vector,Field_Write
0365 4872       |Hr  |		Short_Literal	0x72
0366 4803       |H   |		Short_Literal	0x3
0367 00da       |    |		Load_Top	At_Offset_2
0368 01d6       |    |		Execute	Vector,Field_Write
0369 4865       |He  |		Short_Literal	0x65
036a 4804       |H   |		Short_Literal	0x4
036b 00da       |    |		Load_Top	At_Offset_2
036c 01d6       |    |		Execute	Vector,Field_Write
036d 4863       |Hc  |		Short_Literal	0x63
036e 4805       |H   |		Short_Literal	0x5
036f 00da       |    |		Load_Top	At_Offset_2
0370 01d6       |    |		Execute	Vector,Field_Write
0371 4874       |Ht  |		Short_Literal	0x74
0372 4806       |H   |		Short_Literal	0x6
0373 00da       |    |		Load_Top	At_Offset_2
0374 01d6       |    |		Execute	Vector,Field_Write
0375 486f       |Ho  |		Short_Literal	0x6f
0376 4807       |H   |		Short_Literal	0x7
0377 00da       |    |		Load_Top	At_Offset_2
0378 01d6       |    |		Execute	Vector,Field_Write
0379 4872       |Hr  |		Short_Literal	0x72
037a 4808       |H   |		Short_Literal	0x8
037b 00da       |    |		Load_Top	At_Offset_2
037c 01d6       |    |		Execute	Vector,Field_Write
037d 4879       |Hy  |		Short_Literal	0x79
037e 4809       |H   |		Short_Literal	0x9
037f 00da       |    |		Load_Top	At_Offset_2
0380 01d6       |    |		Execute	Vector,Field_Write
0381 00cd       |    |		Action	Spare6_Action
0382 00da       |    |		Load_Top	At_Offset_2
0383 00da       |    |		Load_Top	At_Offset_2
0384 e604       |    |		Load	0x3,0x4
0385 01ce       |    |		Execute	Vector,Slice_Write
0386 00d3       |    |		Pop_Control	Pop_Count_3
0387 7899       |x   |		Jump	0x421
0388 e7fd       |    |		Load	0x3,-0x3
0389 4ffd       |O   |		Short_Literal	-0x3
038a 027f       |    |		Execute	Discrete,Equal
038b 684f       |hO  |		Jump_Zero	0x3db
038c 480e       |H   |		Short_Literal	0xe
038d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
038e 00d9       |    |		Load_Top	At_Offset_1
038f 4801       |H   |		Short_Literal	0x1
0390 00da       |    |		Load_Top	At_Offset_2
0391 00d9       |    |		Load_Top	At_Offset_1
0392 00d9       |    |		Load_Top	At_Offset_1
0393 e604       |    |		Load	0x3,0x4
0394 035b       | [  |		Declare_Type	Array,Constrained
0395 00db       |    |		Load_Top	At_Offset_3
0396 01cd       |    |		Execute	Vector,Slice_Reference
0397 4801       |H   |		Short_Literal	0x1
0398 480e       |H   |		Short_Literal	0xe
0399 00e9       |    |		Load_Encached	String_Cache
039a 035b       | [  |		Declare_Type	Array,Constrained
039b 0337       | 7  |		Declare_Variable	Array
039c 4855       |HU  |		Short_Literal	0x55
039d 4801       |H   |		Short_Literal	0x1
039e 00da       |    |		Load_Top	At_Offset_2
039f 01d6       |    |		Execute	Vector,Field_Write
03a0 486e       |Hn  |		Short_Literal	0x6e
03a1 4802       |H   |		Short_Literal	0x2
03a2 00da       |    |		Load_Top	At_Offset_2
03a3 01d6       |    |		Execute	Vector,Field_Write
03a4 4875       |Hu  |		Short_Literal	0x75
03a5 4803       |H   |		Short_Literal	0x3
03a6 00da       |    |		Load_Top	At_Offset_2
03a7 01d6       |    |		Execute	Vector,Field_Write
03a8 4873       |Hs  |		Short_Literal	0x73
03a9 4804       |H   |		Short_Literal	0x4
03aa 00da       |    |		Load_Top	At_Offset_2
03ab 01d6       |    |		Execute	Vector,Field_Write
03ac 4865       |He  |		Short_Literal	0x65
03ad 4805       |H   |		Short_Literal	0x5
03ae 00da       |    |		Load_Top	At_Offset_2
03af 01d6       |    |		Execute	Vector,Field_Write
03b0 4864       |Hd  |		Short_Literal	0x64
03b1 4806       |H   |		Short_Literal	0x6
03b2 00da       |    |		Load_Top	At_Offset_2
03b3 01d6       |    |		Execute	Vector,Field_Write
03b4 485f       |H_  |		Short_Literal	0x5f
03b5 4807       |H   |		Short_Literal	0x7
03b6 00da       |    |		Load_Top	At_Offset_2
03b7 01d6       |    |		Execute	Vector,Field_Write
03b8 4853       |HS  |		Short_Literal	0x53
03b9 4808       |H   |		Short_Literal	0x8
03ba 00da       |    |		Load_Top	At_Offset_2
03bb 01d6       |    |		Execute	Vector,Field_Write
03bc 4865       |He  |		Short_Literal	0x65
03bd 4809       |H   |		Short_Literal	0x9
03be 00da       |    |		Load_Top	At_Offset_2
03bf 01d6       |    |		Execute	Vector,Field_Write
03c0 4867       |Hg  |		Short_Literal	0x67
03c1 480a       |H   |		Short_Literal	0xa
03c2 00da       |    |		Load_Top	At_Offset_2
03c3 01d6       |    |		Execute	Vector,Field_Write
03c4 486d       |Hm  |		Short_Literal	0x6d
03c5 480b       |H   |		Short_Literal	0xb
03c6 00da       |    |		Load_Top	At_Offset_2
03c7 01d6       |    |		Execute	Vector,Field_Write
03c8 4865       |He  |		Short_Literal	0x65
03c9 480c       |H   |		Short_Literal	0xc
03ca 00da       |    |		Load_Top	At_Offset_2
03cb 01d6       |    |		Execute	Vector,Field_Write
03cc 486e       |Hn  |		Short_Literal	0x6e
03cd 480d       |H   |		Short_Literal	0xd
03ce 00da       |    |		Load_Top	At_Offset_2
03cf 01d6       |    |		Execute	Vector,Field_Write
03d0 4874       |Ht  |		Short_Literal	0x74
03d1 480e       |H   |		Short_Literal	0xe
03d2 00da       |    |		Load_Top	At_Offset_2
03d3 01d6       |    |		Execute	Vector,Field_Write
03d4 00cd       |    |		Action	Spare6_Action
03d5 00da       |    |		Load_Top	At_Offset_2
03d6 00da       |    |		Load_Top	At_Offset_2
03d7 e604       |    |		Load	0x3,0x4
03d8 01ce       |    |		Execute	Vector,Slice_Write
03d9 00d3       |    |		Pop_Control	Pop_Count_3
03da 7846       |xF  |		Jump	0x421
03db e7fd       |    |		Load	0x3,-0x3
03dc 4ffc       |O   |		Short_Literal	-0x4
03dd 027f       |    |		Execute	Discrete,Equal
03de 6823       |h#  |		Jump_Zero	0x402
03df 4803       |H   |		Short_Literal	0x3
03e0 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
03e1 00d9       |    |		Load_Top	At_Offset_1
03e2 4801       |H   |		Short_Literal	0x1
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 00d9       |    |		Load_Top	At_Offset_1
03e5 00d9       |    |		Load_Top	At_Offset_1
03e6 e604       |    |		Load	0x3,0x4
03e7 035b       | [  |		Declare_Type	Array,Constrained
03e8 00db       |    |		Load_Top	At_Offset_3
03e9 01cd       |    |		Execute	Vector,Slice_Reference
03ea 4801       |H   |		Short_Literal	0x1
03eb 4803       |H   |		Short_Literal	0x3
03ec 00e9       |    |		Load_Encached	String_Cache
03ed 035b       | [  |		Declare_Type	Array,Constrained
03ee 0337       | 7  |		Declare_Variable	Array
03ef 4842       |HB  |		Short_Literal	0x42
03f0 4801       |H   |		Short_Literal	0x1
03f1 00da       |    |		Load_Top	At_Offset_2
03f2 01d6       |    |		Execute	Vector,Field_Write
03f3 4861       |Ha  |		Short_Literal	0x61
03f4 4802       |H   |		Short_Literal	0x2
03f5 00da       |    |		Load_Top	At_Offset_2
03f6 01d6       |    |		Execute	Vector,Field_Write
03f7 4864       |Hd  |		Short_Literal	0x64
03f8 4803       |H   |		Short_Literal	0x3
03f9 00da       |    |		Load_Top	At_Offset_2
03fa 01d6       |    |		Execute	Vector,Field_Write
03fb 00cd       |    |		Action	Spare6_Action
03fc 00da       |    |		Load_Top	At_Offset_2
03fd 00da       |    |		Load_Top	At_Offset_2
03fe e604       |    |		Load	0x3,0x4
03ff 01ce       |    |		Execute	Vector,Slice_Write
0400 00d3       |    |		Pop_Control	Pop_Count_3
0401 781f       |x   |		Jump	0x421
0402 e7fc       |    |		Load	0x3,-0x4
0403 01dc       |    |		Execute	Vector,Last
0404 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0405 00cf       |    |		Action	Mark_Auxiliary
0406 e7fc       |    |		Load	0x3,-0x4
0407 01d9       |    |		Execute	Vector,Reverse_Bounds
0408 0263       | c  |		Execute	Discrete,Above_Bound
0409 7016       |p   |		Jump_Nonzero	0x420
040a 00d8       |    |		Load_Top	At_Offset_0
040b e7fc       |    |		Load	0x3,-0x4
040c 01d7       |    |		Execute	Vector,Field_Read
040d 7005       |p   |		Jump_Nonzero	0x413
040e 00d8       |    |		Load_Top	At_Offset_0
040f 0aff       |    |		Execute_Immediate	Plus,-0x1
0410 c603       |    |		Store	0x3,0x3
0411 00d2       |    |		Pop_Control	Pop_Count_2
0412 780d       |x   |		Jump	0x420
0413 00d8       |    |		Load_Top	At_Offset_0
0414 e7fc       |    |		Load	0x3,-0x4
0415 01d7       |    |		Execute	Vector,Field_Read
0416 00d8       |    |		Load_Top	At_Offset_0
0417 00e8       |    |		Load_Encached	Character_Cache
0418 0260       | `  |		Execute	Discrete,In_Type
0419 7001       |p   |		Jump_Nonzero	0x41b
041a 0801       |    |		Execute_Immediate	Raise,0x1
041b 00d9       |    |		Load_Top	At_Offset_1
041c e602       |    |		Load	0x3,0x2
041d 01d6       |    |		Execute	Vector,Field_Write
041e 00c8       |    |		Action	Pop_Auxiliary_Range
041f 3fea       |?   |		Loop_Increasing	0x40a
0420 00ce       |    |		Action	Pop_Auxiliary
0421 00cf       |    |		Action	Mark_Auxiliary
0422 e7ff       |    |		Load	0x3,-0x1
0423 e7fe       |    |		Load	0x3,-0x2
0424 0273       | s  |		Execute	Discrete,Plus
0425 0aff       |    |		Execute_Immediate	Plus,-0x1
0426 e7ff       |    |		Load	0x3,-0x1
0427 0263       | c  |		Execute	Discrete,Above_Bound
0428 705e       |p^  |		Jump_Nonzero	0x487
0429 00d8       |    |		Load_Top	At_Offset_0
042a e409       |    |		Load	0x2,0x9
042b e40a       |    |		Load	0x2,0xa
042c 0261       | a  |		Execute	Discrete,Not_In_Range
042d 00d9       |    |		Load_Top	At_Offset_1
042e 0e00       |    |		Execute_Immediate	Not_Equal,0x0
042f 0279       | y  |		Execute	Discrete,And
0430 6814       |h   |		Jump_Zero	0x445
0431 4801       |H   |		Short_Literal	0x1
0432 e603       |    |		Load	0x3,0x3
0433 e602       |    |		Load	0x3,0x2
0434 01cf       |    |		Execute	Vector,Slice_Read
0435 0092 0535  |   5|		Action	Push_String_Extended,0x535					; " block "
0437 01cc       |    |		Execute	Vector,Catenate
0438 00d9       |    |		Load_Top	At_Offset_1
0439 00e0       |    |		Load_Encached	Standard_Cache
043a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
043b 01cc       |    |		Execute	Vector,Catenate
043c 0092 0536  |   6|		Action	Push_String_Extended,0x536					; " is not in the DFS area ***"
043e 01cc       |    |		Execute	Vector,Catenate
043f e00a       |    |		Load	0x0,0xa
0440 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0441 e41a       |    |		Load	0x2,0x1a
0442 0a01       |    |		Execute_Immediate	Plus,0x1
0443 c41a       |    |		Store	0x2,0x1a
0444 7840       |x@  |		Jump	0x485
0445 00d8       |    |		Load_Top	At_Offset_0
0446 e405       |    |		Load	0x2,0x5
0447 01d7       |    |		Execute	Vector,Field_Read
0448 4fff       |O   |		Short_Literal	-0x1
0449 027f       |    |		Execute	Discrete,Equal
044a 6805       |h   |		Jump_Zero	0x450
044b e7fd       |    |		Load	0x3,-0x3
044c 00d9       |    |		Load_Top	At_Offset_1
044d e405       |    |		Load	0x2,0x5
044e 01d6       |    |		Execute	Vector,Field_Write
044f 7835       |x5  |		Jump	0x485
0450 4801       |H   |		Short_Literal	0x1
0451 e603       |    |		Load	0x3,0x3
0452 e602       |    |		Load	0x3,0x2
0453 01cf       |    |		Execute	Vector,Slice_Read
0454 0092 0535  |   5|		Action	Push_String_Extended,0x535					; " block "
0456 01cc       |    |		Execute	Vector,Catenate
0457 00d9       |    |		Load_Top	At_Offset_1
0458 00e0       |    |		Load_Encached	Standard_Cache
0459 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
045a 01cc       |    |		Execute	Vector,Catenate
045b e00a       |    |		Load	0x0,0xa
045c 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
045d e41a       |    |		Load	0x2,0x1a
045e 0a01       |    |		Execute_Immediate	Plus,0x1
045f c41a       |    |		Store	0x2,0x1a
0460 00d8       |    |		Load_Top	At_Offset_0
0461 e405       |    |		Load	0x2,0x5
0462 01d7       |    |		Execute	Vector,Field_Read
0463 4ffe       |O   |		Short_Literal	-0x2
0464 027f       |    |		Execute	Discrete,Equal
0465 6805       |h   |		Jump_Zero	0x46b
0466 0092 0537  |   7|		Action	Push_String_Extended,0x537					; " is also allocated as a Directory block ***"
0468 e00a       |    |		Load	0x0,0xa
0469 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
046a 781a       |x   |		Jump	0x485
046b 00d8       |    |		Load_Top	At_Offset_0
046c e405       |    |		Load	0x2,0x5
046d 01d7       |    |		Execute	Vector,Field_Read
046e 4ffd       |O   |		Short_Literal	-0x3
046f 027f       |    |		Execute	Discrete,Equal
0470 6805       |h   |		Jump_Zero	0x476
0471 0092 0538  |   8|		Action	Push_String_Extended,0x538					; " is also allocated in an Unused_Segment ***"
0473 e00a       |    |		Load	0x0,0xa
0474 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0475 780f       |x   |		Jump	0x485
0476 00d8       |    |		Load_Top	At_Offset_0
0477 e405       |    |		Load	0x2,0x5
0478 01d7       |    |		Execute	Vector,Field_Read
0479 4ffc       |O   |		Short_Literal	-0x4
047a 027f       |    |		Execute	Discrete,Equal
047b 6805       |h   |		Jump_Zero	0x481
047c 0092 0539  |   9|		Action	Push_String_Extended,0x539					; " is also allocated as a Bad block ***"
047e e00a       |    |		Load	0x0,0xa
047f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0480 7804       |x   |		Jump	0x485
0481 0092 053a  |   :|		Action	Push_String_Extended,0x53a					; " is also allocated to another file ***"
0483 e00a       |    |		Load	0x0,0xa
0484 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0485 00c8       |    |		Action	Pop_Auxiliary_Range
0486 3fa2       |?   |		Loop_Increasing	0x429
0487 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 0497       |    |		.CONST	0x0497								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0008       |    |		.CONST	0x0008								; Number of locals
048b			INIT_0488:
048b e004       |    |		Load	0x0,0x4
048c 0337       | 7  |		Declare_Variable	Array
048d e407       |    |		Load	0x2,0x7
048e 0007       |    |		Action	Break_Optional
048f e003       |    |		Load	0x0,0x3
0490 0007       |    |		Action	Break_Optional
0491 00d8       |    |		Load_Top	At_Offset_0
0492 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0493 e003       |    |		Load	0x0,0x3
0494 0007       |    |		Action	Break_Optional
0495 e016       |    |		Load	0x0,0x16
0496 03e9       |    |		Declare_Variable	Discrete,Duplicate
0497			BODY_0488:
0497 00cf       |    |		Action	Mark_Auxiliary
0498 e406       |    |		Load	0x2,0x6
0499 e602       |    |		Load	0x3,0x2
049a 4801       |H   |		Short_Literal	0x1
049b e603       |    |		Load	0x3,0x3
049c 800c       |    |		Call	0x0,0xc
049d 00d1       |    |		Pop_Control	Pop_Count_1
049e c406       |    |		Store	0x2,0x6
049f e406       |    |		Load	0x2,0x6
04a0 6809       |h   |		Jump_Zero	0x4aa
04a1 e008       |    |		Load	0x0,0x8
04a2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04a3 4807       |H   |		Short_Literal	0x7
04a4 0092 053b  |   ;|		Action	Push_String_Extended,0x53b					; "bad block list read error"
04a6 e009       |    |		Load	0x0,0x9
04a7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04a8 e402       |    |		Load	0x2,0x2
04a9 0257       | W  |		Execute	Discrete,Raise
04aa 00cf       |    |		Action	Mark_Auxiliary
04ab 48ff       |H   |		Short_Literal	0xff
04ac 4800       |H   |		Short_Literal	0x0
04ad 0007       |    |		Action	Break_Optional
04ae 00d8       |    |		Load_Top	At_Offset_0
04af 0902       |    |		Execute_Immediate	Binary_Scale,0x2
04b0 e602       |    |		Load	0x3,0x2
04b1 01d7       |    |		Execute	Vector,Field_Read
04b2 483f       |H?  |		Short_Literal	0x3f
04b3 0279       | y  |		Execute	Discrete,And
04b4 0908       |    |		Execute_Immediate	Binary_Scale,0x8
04b5 00d9       |    |		Load_Top	At_Offset_1
04b6 0902       |    |		Execute_Immediate	Binary_Scale,0x2
04b7 0a01       |    |		Execute_Immediate	Plus,0x1
04b8 e602       |    |		Load	0x3,0x2
04b9 01d7       |    |		Execute	Vector,Field_Read
04ba 0273       | s  |		Execute	Discrete,Plus
04bb c606       |    |		Store	0x3,0x6
04bc 00d8       |    |		Load_Top	At_Offset_0
04bd 0902       |    |		Execute_Immediate	Binary_Scale,0x2
04be 0a02       |    |		Execute_Immediate	Plus,0x2
04bf e602       |    |		Load	0x3,0x2
04c0 01d7       |    |		Execute	Vector,Field_Read
04c1 a607       |    |		Store_Unchecked	0x3,0x7
04c2 00d8       |    |		Load_Top	At_Offset_0
04c3 0902       |    |		Execute_Immediate	Binary_Scale,0x2
04c4 0a03       |    |		Execute_Immediate	Plus,0x3
04c5 e602       |    |		Load	0x3,0x2
04c6 01d7       |    |		Execute	Vector,Field_Read
04c7 a608       |    |		Store_Unchecked	0x3,0x8
04c8 e606       |    |		Load	0x3,0x6
04c9 0e00       |    |		Execute_Immediate	Not_Equal,0x0
04ca e607       |    |		Load	0x3,0x7
04cb 0e00       |    |		Execute_Immediate	Not_Equal,0x0
04cc 0278       | x  |		Execute	Discrete,Or
04cd e608       |    |		Load	0x3,0x8
04ce 0e00       |    |		Execute_Immediate	Not_Equal,0x0
04cf 0278       | x  |		Execute	Discrete,Or
04d0 e606       |    |		Load	0x3,0x6
04d1 e40b       |    |		Load	0x2,0xb
04d2 027a       | z  |		Execute	Discrete,Less_Equal
04d3 0279       | y  |		Execute	Discrete,And
04d4 683b       |h;  |		Jump_Zero	0x510
04d5 e608       |    |		Load	0x3,0x8
04d6 0fff       |    |		Execute_Immediate	Equal,-0x1
04d7 6817       |h   |		Jump_Zero	0x4ef
04d8 0092 053c  |   <|		Action	Push_String_Extended,0x53c					; "++ bad block list has a bad DFS TRACK!"
04da e00a       |    |		Load	0x0,0xa
04db 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
04dc 4801       |H   |		Short_Literal	0x1
04dd 4801       |H   |		Short_Literal	0x1
04de e00d       |    |		Load	0x0,0xd
04df 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
04e0 035b       | [  |		Declare_Type	Array,Constrained
04e1 0337       | 7  |		Declare_Variable	Array
04e2 4800       |H   |		Short_Literal	0x0
04e3 4801       |H   |		Short_Literal	0x1
04e4 00da       |    |		Load_Top	At_Offset_2
04e5 01d6       |    |		Execute	Vector,Field_Write
04e6 4ffc       |O   |		Short_Literal	-0x4
04e7 e00b       |    |		Load	0x0,0xb
04e8 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04e9 4800       |H   |		Short_Literal	0x0
04ea e607       |    |		Load	0x3,0x7
04eb e606       |    |		Load	0x3,0x6
04ec 841d       |    |		Call	0x2,0x1d
04ed 841f       |    |		Call	0x2,0x1f
04ee 7821       |x!  |		Jump	0x510
04ef e608       |    |		Load	0x3,0x8
04f0 e607       |    |		Load	0x3,0x7
04f1 e606       |    |		Load	0x3,0x6
04f2 841d       |    |		Call	0x2,0x1d
04f3 a604       |    |		Store_Unchecked	0x3,0x4
04f4 e604       |    |		Load	0x3,0x4
04f5 e605       |    |		Load	0x3,0x5
04f6 027e       | ~  |		Execute	Discrete,Not_Equal
04f7 6818       |h   |		Jump_Zero	0x510
04f8 0092 053d  |   =|		Action	Push_String_Extended,0x53d					; "-- bad block list has DFS block"
04fa e604       |    |		Load	0x3,0x4
04fb 00e0       |    |		Load_Encached	Standard_Cache
04fc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04fd 01cc       |    |		Execute	Vector,Catenate
04fe e00a       |    |		Load	0x0,0xa
04ff 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0500 4801       |H   |		Short_Literal	0x1
0501 4801       |H   |		Short_Literal	0x1
0502 e00d       |    |		Load	0x0,0xd
0503 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0504 035b       | [  |		Declare_Type	Array,Constrained
0505 0337       | 7  |		Declare_Variable	Array
0506 4800       |H   |		Short_Literal	0x0
0507 4801       |H   |		Short_Literal	0x1
0508 00da       |    |		Load_Top	At_Offset_2
0509 01d6       |    |		Execute	Vector,Field_Write
050a 4ffc       |O   |		Short_Literal	-0x4
050b 4801       |H   |		Short_Literal	0x1
050c e604       |    |		Load	0x3,0x4
050d 841f       |    |		Call	0x2,0x1f
050e e604       |    |		Load	0x3,0x4
050f a605       |    |		Store_Unchecked	0x3,0x5
0510 00c8       |    |		Action	Pop_Auxiliary_Range
0511 3f9c       |?   |		Loop_Increasing	0x4ae
0512 00ce       |    |		Action	Pop_Auxiliary
0513 e603       |    |		Load	0x3,0x3
0514 0a02       |    |		Execute_Immediate	Plus,0x2
0515 c603       |    |		Store	0x3,0x3
0516 e603       |    |		Load	0x3,0x3
0517 e408       |    |		Load	0x2,0x8
0518 027d       | }  |		Execute	Discrete,Greater
0519 7002       |p   |		Jump_Nonzero	0x51c
051a 00c9       |    |		Action	Pop_Auxiliary_Loop
051b 7f7c       | |  |		Jump	0x498
051c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
051d ; --------------------------------------------------------------------------------------
051d ; STRING TABLE
051d ; --------------------------------------------------------------------------------------
051d 0044       | D  |		.STRTAB	0x0044->0x053f							; "FS_UINIT got an error"
051e 0057       | W  |		.STRTAB	0x0057->0x0549							; "free extent read error, block# "
051f 0074       | t  |		.STRTAB	0x0074->0x0559							; "directory read error, block# "
0520 008f       |    |		.STRTAB	0x008f->0x0567							; "*** fib.DATA.LENGTH ="
0521 00a2       |    |		.STRTAB	0x00a2->0x0572							; " but fib.DATA.POINTERS(last_seg).LAST_PAGE ="
0522 00cc       |    |		.STRTAB	0x00cc->0x0588							; " in file "
0523 00d3       |    |		.STRTAB	0x00d3->0x058c							; ", directory block addr"
0524 00e7       |    |		.STRTAB	0x00e7->0x0597							; ", FIB offset"
0525 00f1       |    |		.STRTAB	0x00f1->0x059d							; "block "
0526 00f5       |    |		.STRTAB	0x00f5->0x05a0							; " is not allocated or in an Unused segment ***"
0527 0120       |    |		.STRTAB	0x0120->0x05b7							; " blocks in DFS area"
0528 0131       | 1  |		.STRTAB	0x0131->0x05c0							; " used blocks contained in "
0529 0149       | I  |		.STRTAB	0x0149->0x05cd							; " files"
052a 014d       | M  |		.STRTAB	0x014d->0x05d0							; " free blocks contained in "
052b 0165       | e  |		.STRTAB	0x0165->0x05dd							; " segments ("
052c 016e       | n  |		.STRTAB	0x016e->0x05e3							; " in largest segment)"
052d 0180       |    |		.STRTAB	0x0180->0x05ed							; " lengths of the first 12 Unused_Segments:"
052e 01a7       |    |		.STRTAB	0x01a7->0x0601							; "*** There was 1 discrepancy reported ***"
052f 01cd       |    |		.STRTAB	0x01cd->0x0615							; "*** There were"
0530 01d9       |    |		.STRTAB	0x01d9->0x061c							; " discrepancies reported ***"
0531 01f2       |    |		.STRTAB	0x01f2->0x062a							; "DFS area: first block ="
0532 0207       |    |		.STRTAB	0x0207->0x0635							; " (CTS ="
0533 020c       |    |		.STRTAB	0x020c->0x0639							; "), last block ="
0534 0219       |    |		.STRTAB	0x0219->0x0640							; ")"
0535 0218       |    |		.STRTAB	0x0218->0x0641							; " block "
0536 021d       |    |		.STRTAB	0x021d->0x0644							; " is not in the DFS area ***"
0537 0236       | 6  |		.STRTAB	0x0236->0x0652							; " is also allocated as a Directory block ***"
0538 025f       | _  |		.STRTAB	0x025f->0x0667							; " is also allocated in an Unused_Segment ***"
0539 0288       |    |		.STRTAB	0x0288->0x067d							; " is also allocated as a Bad block ***"
053a 02ab       |    |		.STRTAB	0x02ab->0x068f							; " is also allocated to another file ***"
053b 02cf       |    |		.STRTAB	0x02cf->0x06a2							; "bad block list read error"
053c 02e6       |    |		.STRTAB	0x02e6->0x06af							; "++ bad block list has a bad DFS TRACK!"
053d 030a       |    |		.STRTAB	0x030a->0x06c2							; "-- bad block list has DFS block"
053e 0327       | '  |		.STREND 0x0327->0x06d1
053f 4653 5f55  |FS_U|		.STRTAB_STRINGS
06d2 0000 0000  |    |		.BLANK	0000[0x6]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; Debug Table
06d8 ; --------------------------------------------------------------------------------------
06d8 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0x2fea,0x0000,0x0001,0x0000
06de 0000 0000  |    |		.BLANK	0000[0x122]