|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 0400 | | .CONST 0x0400 ; 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 8002 | | .CONST 0x8002 ; 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 0086 | | .CONST 0x0086 ; Address of begin
0019 008d | | .CONST 0x008d ; Address of exception handler
001a 0017 | | .CONST 0x0017 ; Number of locals
001b INIT_0018:
001b 00e2 | | Load_Encached Integer_Cache
001c 0266 | f | Execute Discrete,Bounds
001d e002 | | Load 0x0,0x2
001e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 4801 |H | Short_Literal 0x1
0021 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0022 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0024 8403 | | Call 0x2,0x3
0025 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0027 00e2 | | Load_Encached Integer_Cache
0028 0266 | f | Execute Discrete,Bounds
0029 e002 | | Load 0x0,0x2
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4801 |H | Short_Literal 0x1
002d 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
002e 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0030 8407 | | Call 0x2,0x7
0031 e003 | | Load 0x0,0x3
0032 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0033 0322 | " | Declare_Variable Record
0034 4800 |H | Short_Literal 0x0
0035 e409 | | Load 0x2,0x9
0036 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0037 4802 |H | Short_Literal 0x2
0038 e409 | | Load 0x2,0x9
0039 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
003a 4800 |H | Short_Literal 0x0
003b e409 | | Load 0x2,0x9
003c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
003d 00e1 | | Load_Encached Boolean_Cache
003e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003f 00e2 | | Load_Encached Integer_Cache
0040 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0041 00e2 | | Load_Encached Integer_Cache
0042 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0043 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0045 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0047 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0049 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
004b e004 | | Load 0x0,0x4
004c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
004d 190e | | Execute Package,Field_Reference,Field_Number 0xe
004e 00c6 | | Action Check_Subprogram_Elaborated
004f 4810 |H | Short_Literal 0x10
0050 4802 |H | Short_Literal 0x2
0051 0099 | | Action Reference_Dynamic
0052 480d |H | Short_Literal 0xd
0053 4802 |H | Short_Literal 0x2
0054 0099 | | Action Reference_Dynamic
0055 e005 | | Load 0x0,0x5
0056 e006 | | Load 0x0,0x6
0057 4815 |H | Short_Literal 0x15
0058 0007 | | Action Break_Optional
0059 4800 |H | Short_Literal 0x0
005a 0093 02db | | push_full_address INIT_02d8
005c 00f5 | | Load_Encached Unused21
005d 037d | } | Declare_Type Task,Defined
005e 036f | o | Declare_Variable Task
005f 480b |H | Short_Literal 0xb
0060 4802 |H | Short_Literal 0x2
0061 0099 | | Action Reference_Dynamic
0062 480c |H | Short_Literal 0xc
0063 4802 |H | Short_Literal 0x2
0064 0099 | | Action Reference_Dynamic
0065 e409 | | Load 0x2,0x9
0066 e003 | | Load 0x0,0x3
0067 e007 | | Load 0x0,0x7
0068 e008 | | Load 0x0,0x8
0069 4806 |H | Short_Literal 0x6
006a e416 | | Load 0x2,0x16
006b 020e | | Execute Module,Augment_Imports
006c 0007 | | Action Break_Optional
006d 4800 |H | Short_Literal 0x0
006e 0093 0263 | c| push_full_address INIT_0260
0070 00f5 | | Load_Encached Unused21
0071 037d | } | Declare_Type Task,Defined
0072 036f | o | Declare_Variable Task
0073 e004 | | Load 0x0,0x4
0074 e408 | | Load 0x2,0x8
0075 e007 | | Load 0x0,0x7
0076 e416 | | Load 0x2,0x16
0077 e008 | | Load 0x0,0x8
0078 e003 | | Load 0x0,0x3
0079 e409 | | Load 0x2,0x9
007a 4811 |H | Short_Literal 0x11
007b 4802 |H | Short_Literal 0x2
007c 0099 | | Action Reference_Dynamic
007d 4812 |H | Short_Literal 0x12
007e 4802 |H | Short_Literal 0x2
007f 0099 | | Action Reference_Dynamic
0080 4813 |H | Short_Literal 0x13
0081 4802 |H | Short_Literal 0x2
0082 0099 | | Action Reference_Dynamic
0083 480a |H | Short_Literal 0xa
0084 e417 | | Load 0x2,0x17
0085 020e | | Execute Module,Augment_Imports
0086 BODY_0018:
0086 00be | | Action Activate_Tasks
0087 4800 |H | Short_Literal 0x0
0088 e417 | | Load 0x2,0x17
0089 170d | | Execute Task,Entry_Call,Field_Number 0xd
008a e40a | | Load 0x2,0xa
008b 6800 |h | Jump_Zero 0x8c
008c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008d TRAP_0018:
008d 0007 | | Action Break_Optional
008e 0092 0308 | | Action Push_String_Extended,0x308 ; "Find_Retargeted_Blocks failed with "
0090 e008 | | Load 0x0,0x8
0091 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0092 01cc | | Execute Vector,Catenate
0093 e007 | | Load 0x0,0x7
0094 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0095 e417 | | Load 0x2,0x17
0096 0209 | | Execute Task,Abort
0097 0007 | | Action Break_Optional
0098 e416 | | Load 0x2,0x16
0099 0209 | | Execute Task,Abort
009a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009b 0000 0000 | | .BLANK 0000[0x5]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ac | | .CONST 0x00ac ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0004 | | .CONST 0x0004 ; Number of locals
00a3 INIT_00a0:
00a3 4801 |H | Short_Literal 0x1
00a4 602f |`/ | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00000ef1}
00a5 e402 | | Load 0x2,0x2
00a6 035b | [ | Declare_Type Array,Constrained
00a7 0337 | 7 | Declare_Variable Array
00a8 00e3 | | Load_Encached Natural_Cache
00a9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00aa 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
00ac BODY_00a0:
00ac 00cf | | Action Mark_Auxiliary
00ad 480f |H | Short_Literal 0xf
00ae 4801 |H | Short_Literal 0x1
00af 0007 | | Action Break_Optional
00b0 8604 | | Call 0x3,0x4
00b1 00c8 | | Action Pop_Auxiliary_Range
00b2 3ffd |? | Loop_Increasing 0xb0
00b3 00ce | | Action Pop_Auxiliary
00b4 0092 0309 | | Action Push_String_Extended,0x309 ; "looking for blocks:"
00b6 e007 | | Load 0x0,0x7
00b7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b8 00cf | | Action Mark_Auxiliary
00b9 e603 | | Load 0x3,0x3
00ba 4801 |H | Short_Literal 0x1
00bb 0263 | c | Execute Discrete,Above_Bound
00bc 700c |p | Jump_Nonzero 0xc9
00bd 0092 030a | | Action Push_String_Extended,0x30a ; " "
00bf e607 | | Load 0x3,0x7
00c0 e602 | | Load 0x3,0x2
00c1 01d5 | | Execute Vector,Field_Reference
00c2 e002 | | Load 0x0,0x2
00c3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00c4 01cc | | Execute Vector,Catenate
00c5 e007 | | Load 0x0,0x7
00c6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c7 00c8 | | Action Pop_Auxiliary_Range
00c8 3ff4 |? | Loop_Increasing 0xbd
00c9 00ce | | Action Pop_Auxiliary
00ca 4801 |H | Short_Literal 0x1
00cb e603 | | Load 0x3,0x3
00cc e602 | | Load 0x3,0x2
00cd 01cf | | Execute Vector,Slice_Read
00ce e402 | | Load 0x2,0x2
00cf 01c6 | | Execute Vector,Convert_To_Formal
00d0 00ca | | Action Exit_Nullary_Function
00d1 0000 0000 | | .XXX[0x3]
00d3 0000 | |
00d4 0000 0000 | | .LITERAL {0x00000000, 0x00000ef1}
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00cf | | Action Mark_Auxiliary
00dc e404 | | Load 0x2,0x4
00dd 01d9 | | Execute Vector,Reverse_Bounds
00de 0263 | c | Execute Discrete,Above_Bound
00df 700a |p | Jump_Nonzero 0xea
00e0 00d8 | | Load_Top At_Offset_0
00e1 e404 | | Load 0x2,0x4
00e2 01d5 | | Execute Vector,Field_Reference
00e3 e7ff | | Load 0x3,-0x1
00e4 017f | | Execute Record,Equal
00e5 6802 |h | Jump_Zero 0xe8
00e6 4801 |H | Short_Literal 0x1
00e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e8 00c8 | | Action Pop_Auxiliary_Range
00e9 3ff6 |? | Loop_Increasing 0xe0
00ea 00ce | | Action Pop_Auxiliary
00eb 4800 |H | Short_Literal 0x0
00ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 010e | | .CONST 0x010e ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0005 | | .CONST 0x0005 ; Number of locals
00f3 INIT_00f0:
00f3 4800 |H | Short_Literal 0x0
00f4 481f |H | Short_Literal 0x1f
00f5 00e1 | | Load_Encached Boolean_Cache
00f6 02a0 | | Declare_Subprogram Null_Subprogram
00f7 4801 |H | Short_Literal 0x1
00f8 035d | ] | Declare_Type Array,Defined
00f9 00d8 | | Load_Top At_Offset_0
00fa 0337 | 7 | Declare_Variable Array
00fb 00d8 | | Load_Top At_Offset_0
00fc 0335 | 5 | Declare_Variable Array,Duplicate
00fd 00cd | | Action Spare6_Action
00fe 481f |H | Short_Literal 0x1f
00ff 4800 |H | Short_Literal 0x0
0100 4800 |H | Short_Literal 0x0
0101 e606 | | Load 0x3,0x6
0102 e604 | | Load 0x3,0x4
0103 01d6 | | Execute Vector,Field_Write
0104 3ffb |? | Loop_Increasing 0x100
0105 e603 | | Load 0x3,0x3
0106 01d4 | | Execute Vector,Structure_Write
0107 4801 |H | Short_Literal 0x1
0108 480f |H | Short_Literal 0xf
0109 e406 | | Load 0x2,0x6
010a 035b | [ | Declare_Type Array,Constrained
010b 0337 | 7 | Declare_Variable Array
010c 00e3 | | Load_Encached Natural_Cache
010d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
010e BODY_00f0:
010e 00cf | | Action Mark_Auxiliary
010f e404 | | Load 0x2,0x4
0110 01d9 | | Execute Vector,Reverse_Bounds
0111 0263 | c | Execute Discrete,Above_Bound
0112 7009 |p | Jump_Nonzero 0x11c
0113 4801 |H | Short_Literal 0x1
0114 e608 | | Load 0x3,0x8
0115 e404 | | Load 0x2,0x4
0116 01d5 | | Execute Vector,Field_Reference
0117 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0118 e603 | | Load 0x3,0x3
0119 01d6 | | Execute Vector,Field_Write
011a 00c8 | | Action Pop_Auxiliary_Range
011b 3ff7 |? | Loop_Increasing 0x113
011c 00c9 | | Action Pop_Auxiliary_Loop
011d e603 | | Load 0x3,0x3
011e 01d9 | | Execute Vector,Reverse_Bounds
011f 0007 | | Action Break_Optional
0120 00d8 | | Load_Top At_Offset_0
0121 e603 | | Load 0x3,0x3
0122 01d7 | | Execute Vector,Field_Read
0123 6807 |h | Jump_Zero 0x12b
0124 e605 | | Load 0x3,0x5
0125 0a01 | | Execute_Immediate Plus,0x1
0126 c605 | | Store 0x3,0x5
0127 00d8 | | Load_Top At_Offset_0
0128 e605 | | Load 0x3,0x5
0129 e604 | | Load 0x3,0x4
012a 01d6 | | Execute Vector,Field_Write
012b 00c8 | | Action Pop_Auxiliary_Range
012c 3ff3 |? | Loop_Increasing 0x120
012d 00ce | | Action Pop_Auxiliary
012e 4801 |H | Short_Literal 0x1
012f e605 | | Load 0x3,0x5
0130 e604 | | Load 0x3,0x4
0131 01cf | | Execute Vector,Slice_Read
0132 e406 | | Load 0x2,0x6
0133 01c6 | | Execute Vector,Convert_To_Formal
0134 00ca | | Action Exit_Nullary_Function
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e7ff | | Load 0x3,-0x1
013c e409 | | Load 0x2,0x9
013d 017d | } | Execute Record,Structure_Write
013e e40b | | Load 0x2,0xb
013f 0a01 | | Execute_Immediate Plus,0x1
0140 c40b | | Store 0x2,0xb
0141 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0142 0000 0000 | | .BLANK 0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0163 | c | .CONST 0x0163 ; Address of begin
0149 0192 | | .CONST 0x0192 ; Address of exception handler
014a 000a | | .CONST 0x000a ; Number of locals
014b INIT_0148:
014b e7ff | | Load 0x3,-0x1
014c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014d 0007 | | Action Break_Optional
014e e009 | | Load 0x0,0x9
014f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0150 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0151 00c6 | | Action Check_Subprogram_Elaborated
0152 e007 | | Load 0x0,0x7
0153 194f | O | Execute Package,Field_Reference,Field_Number 0x4f
0154 e00a | | Load 0x0,0xa
0155 e00b | | Load 0x0,0xb
0156 4806 |H | Short_Literal 0x6
0157 0007 | | Action Break_Optional
0158 00e1 | | Load_Encached Boolean_Cache
0159 e002 | | Load 0x0,0x2
015a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015b e009 | | Load 0x0,0x9
015c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
015d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015e 0322 | " | Declare_Variable Record
015f 00d8 | | Load_Top At_Offset_0
0160 1c00 | | Execute_Immediate Run_Utility,0x0
0161 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
0163 BODY_0148:
0163 e602 | | Load 0x3,0x2
0164 4804 |H | Short_Literal 0x4
0165 4bfe |K | Short_Literal 0x3fe
0166 0261 | a | Execute Discrete,Not_In_Range
0167 6801 |h | Jump_Zero 0x169
0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0169 e002 | | Load 0x0,0x2
016a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016b 00e1 | | Load_Encached Boolean_Cache
016c e602 | | Load 0x3,0x2
016d e004 | | Load 0x0,0x4
016e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0170 c607 | | Store 0x3,0x7
0171 c608 | | Store 0x3,0x8
0172 e607 | | Load 0x3,0x7
0173 7001 |p | Jump_Nonzero 0x175
0174 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0175 e609 | | Load 0x3,0x9
0176 00e1 | | Load_Encached Boolean_Cache
0177 e7ff | | Load 0x3,-0x1
0178 e009 | | Load 0x0,0x9
0179 1b16 | | Execute Package,Field_Read,Field_Number 0x16
017a 180e | | Execute Package,Field_Execute,Field_Number 0xe
017b c607 | | Store 0x3,0x7
017c 00d1 | | Pop_Control Pop_Count_1
017d e607 | | Load 0x3,0x7
017e 7001 |p | Jump_Nonzero 0x180
017f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0180 0092 030b | | Action Push_String_Extended,0x30b ; "raw space information:"
0182 e007 | | Load 0x0,0x7
0183 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0184 e609 | | Load 0x3,0x9
0185 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0186 e7ff | | Load 0x3,-0x1
0187 4803 |H | Short_Literal 0x3
0188 4803 |H | Short_Literal 0x3
0189 0099 | | Action Reference_Dynamic
018a 4804 |H | Short_Literal 0x4
018b 4803 |H | Short_Literal 0x3
018c 0099 | | Action Reference_Dynamic
018d e009 | | Load 0x0,0x9
018e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
018f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0190 860a | | Call 0x3,0xa
0191 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0192 TRAP_0148:
0192 0007 | | Action Break_Optional
0193 0092 030c | | Action Push_String_Extended,0x30c ; "display space failed with "
0195 e008 | | Load 0x0,0x8
0196 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0197 01cc | | Execute Vector,Catenate
0198 e007 | | Load 0x0,0x7
0199 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
019a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019b 0000 0000 | | .BLANK 0000[0x5]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 0092 030d | | Action Push_String_Extended,0x30d ; "----------------------------------"
01a5 e007 | | Load 0x0,0x7
01a6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a7 0092 030e | | Action Push_String_Extended,0x30e ; "found block "
01a9 e7ff | | Load 0x3,-0x1
01aa e002 | | Load 0x0,0x2
01ab 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01ac 01cc | | Execute Vector,Catenate
01ad 0092 030f | | Action Push_String_Extended,0x30f ; " in space "
01af 01cc | | Execute Vector,Catenate
01b0 e7fe | | Load 0x3,-0x2
01b1 e003 | | Load 0x0,0x3
01b2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01b3 01cc | | Execute Vector,Catenate
01b4 0092 0310 | | Action Push_String_Extended,0x310 ; ":"
01b6 01cc | | Execute Vector,Catenate
01b7 e007 | | Load 0x0,0x7
01b8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01b9 e7fe | | Load 0x3,-0x2
01ba 840e | | Call 0x2,0xe
01bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 e40c | | Load 0x2,0xc
01c4 0a01 | | Execute_Immediate Plus,0x1
01c5 c40c | | Store 0x2,0xc
01c6 e7ff | | Load 0x3,-0x1
01c7 8405 | | Call 0x2,0x5
01c8 6807 |h | Jump_Zero 0x1d0
01c9 e409 | | Load 0x2,0x9
01ca e7ff | | Load 0x3,-0x1
01cb 840f | | Call 0x2,0xf
01cc 0092 0311 | | Action Push_String_Extended,0x311 ; "continuing to search ..."
01ce e007 | | Load 0x0,0x7
01cf 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d1 0000 0000 | | .BLANK 0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01df | | .CONST 0x01df ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db 4802 |H | Short_Literal 0x2
01dc e607 | | Load 0x3,0x7
01dd e00c | | Load 0x0,0xc
01de 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
01df BODY_01d8:
01df 00cf | | Action Mark_Auxiliary
01e0 e802 | | Load 0x4,0x2
01e1 01d9 | | Execute Vector,Reverse_Bounds
01e2 0263 | c | Execute Discrete,Above_Bound
01e3 7019 |p | Jump_Nonzero 0x1fd
01e4 e603 | | Load 0x3,0x3
01e5 0a01 | | Execute_Immediate Plus,0x1
01e6 c603 | | Store 0x3,0x3
01e7 e002 | | Load 0x0,0x2
01e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e9 0322 | " | Declare_Variable Record
01ea e607 | | Load 0x3,0x7
01eb e806 | | Load 0x4,0x6
01ec 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01ed e805 | | Load 0x4,0x5
01ee e802 | | Load 0x4,0x2
01ef 01d7 | | Execute Vector,Field_Read
01f0 00d8 | | Load_Top At_Offset_0
01f1 e002 | | Load 0x0,0x2
01f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f3 0260 | ` | Execute Discrete,In_Type
01f4 7001 |p | Jump_Nonzero 0x1f6
01f5 0801 | | Execute_Immediate Raise,0x1
01f6 e806 | | Load 0x4,0x6
01f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f8 e603 | | Load 0x3,0x3
01f9 e602 | | Load 0x3,0x2
01fa 01d6 | | Execute Vector,Field_Write
01fb 00c8 | | Action Pop_Auxiliary_Range
01fc 3fe7 |? | Loop_Increasing 0x1e4
01fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fe 0000 0000 | | .XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020d | | .CONST 0x020d ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0004 | | .CONST 0x0004 ; Number of locals
0203 INIT_0200:
0203 e609 | | Load 0x3,0x9
0204 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0205 e00d | | Load 0x0,0xd
0206 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0207 e609 | | Load 0x3,0x9
0208 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0209 e00d | | Load 0x0,0xd
020a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
020b 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
020d BODY_0200:
020d 0092 0312 | | Action Push_String_Extended,0x312 ; "manager_id ="
020f e802 | | Load 0x4,0x2
0210 00e0 | | Load_Encached Standard_Cache
0211 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0212 01cc | | Execute Vector,Catenate
0213 0092 0313 | | Action Push_String_Extended,0x313 ; "; object instance ="
0215 01cc | | Execute Vector,Catenate
0216 e803 | | Load 0x4,0x3
0217 00e0 | | Load_Encached Standard_Cache
0218 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0219 01cc | | Execute Vector,Catenate
021a e007 | | Load 0x0,0x7
021b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
021c e609 | | Load 0x3,0x9
021d 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
021e 4896 |H | Short_Literal 0x96
021f 48b3 |H | Short_Literal 0xb3
0220 0262 | b | Execute Discrete,In_Range
0221 6801 |h | Jump_Zero 0x223
0222 8804 | | Call 0x4,0x4
0223 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0238 | 8 | .CONST 0x0238 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e802 | | Load 0x4,0x2
022c 00d8 | | Load_Top At_Offset_0
022d e00e | | Load 0x0,0xe
022e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0230 0260 | ` | Execute Discrete,In_Type
0231 7001 |p | Jump_Nonzero 0x233
0232 0801 | | Execute_Immediate Raise,0x1
0233 e00f | | Load 0x0,0xf
0234 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0235 1c08 | | Execute_Immediate Run_Utility,0x8
0236 00d8 | | Load_Top At_Offset_0
0237 1c00 | | Execute_Immediate Run_Utility,0x0
0238 BODY_0228:
0238 00d8 | | Load_Top At_Offset_0
0239 4800 |H | Short_Literal 0x0
023a e803 | | Load 0x4,0x3
023b 00d8 | | Load_Top At_Offset_0
023c e00e | | Load 0x0,0xe
023d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023e 0260 | ` | Execute Discrete,In_Type
023f 7001 |p | Jump_Nonzero 0x241
0240 0801 | | Execute_Immediate Raise,0x1
0241 e00e | | Load 0x0,0xe
0242 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0243 00d1 | | Pop_Control Pop_Count_1
0244 0092 0314 | | Action Push_String_Extended,0x314 ; "directory unique full name:"
0246 e007 | | Load 0x0,0x7
0247 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0248 0092 0315 | | Action Push_String_Extended,0x315 ; " "
024a ea02 | | Load 0x5,0x2
024b e00f | | Load 0x0,0xf
024c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
024d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
024e 01cc | | Execute Vector,Catenate
024f e007 | | Load 0x0,0x7
0250 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0251 0092 0316 | | Action Push_String_Extended,0x316 ; "directory ineffable name:"
0253 e007 | | Load 0x0,0x7
0254 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0255 0092 0315 | | Action Push_String_Extended,0x315 ; " "
0257 ea02 | | Load 0x5,0x2
0258 e00f | | Load 0x0,0xf
0259 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
025a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
025b 01cc | | Execute Vector,Catenate
025c e007 | | Load 0x0,0x7
025d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
025e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
025f 0000 | | .XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0271 | q | .CONST 0x0271 ; Address of begin
0261 0288 | | .CONST 0x0288 ; Address of exception handler
0262 0011 | | .CONST 0x0011 ; Number of locals
0263 INIT_0260:
0263 4800 |H | Short_Literal 0x0
0264 02cb | | Declare_Variable Entry
0265 00bf | | Action Accept_Activation
0266 00e1 | | Load_Encached Boolean_Cache
0267 e001 | | Load 0x0,0x1
0268 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0269 1b10 | | Execute Package,Field_Read,Field_Number 0x10
026a 0322 | " | Declare_Variable Record
026b 029f 029b | | Declare_Subprogram INIT_0298,For_Call
026d 480d |H | Short_Literal 0xd
026e 0299 02d3 | | Declare_Subprogram INIT_02d0,For_Accept
0270 00bc | | Action Signal_Activated
0271 BODY_0260:
0271 00cf | | Action Mark_Auxiliary
0272 e002 | | Load 0x0,0x2
0273 01d9 | | Execute Vector,Reverse_Bounds
0274 0263 | c | Execute Discrete,Above_Bound
0275 7003 |p | Jump_Nonzero 0x279
0276 8210 | | Call 0x1,0x10
0277 00c8 | | Action Pop_Auxiliary_Range
0278 3ffd |? | Loop_Increasing 0x276
0279 00ce | | Action Pop_Auxiliary
027a 0092 0317 | | Action Push_String_Extended,0x317 ; "----------------------"
027c e003 | | Load 0x0,0x3
027d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
027e 0092 0318 | | Action Push_String_Extended,0x318 ; "traversal has finished"
0280 e003 | | Load 0x0,0x3
0281 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0282 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0283 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0284 0137 | 7 | Execute Entry,Rendezvous
0285 e004 | | Load 0x0,0x4
0286 0209 | | Execute Task,Abort
0287 00bb | | Action Signal_Completion
0288 TRAP_0260:
0288 0007 | | Action Break_Optional
0289 0092 0319 | | Action Push_String_Extended,0x319 ; "Find_Block.Worker failed with "
028b e005 | | Load 0x0,0x5
028c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
028d 01cc | | Execute Vector,Catenate
028e e003 | | Load 0x0,0x3
028f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0290 00bb | | Action Signal_Completion
0291 0000 0000 | | .BLANK 0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029f | | .CONST 0x029f ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b e214 | | Load 0x1,0x14
029c e002 | | Load 0x0,0x2
029d 01d7 | | Execute Vector,Field_Read
029e 0007 | | Action Break_Optional
029f BODY_0298:
029f e20f | | Load 0x1,0xf
02a0 00e1 | | Load_Encached Boolean_Cache
02a1 e402 | | Load 0x2,0x2
02a2 e001 | | Load 0x0,0x1
02a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a5 c20e | | Store 0x1,0xe
02a6 00d1 | | Pop_Control Pop_Count_1
02a7 e20e | | Load 0x1,0xe
02a8 6820 |h | Jump_Zero 0x2c9
02a9 0092 031a | | Action Push_String_Extended,0x31a ; "Searching volume"
02ab e402 | | Load 0x2,0x2
02ac 00e0 | | Load_Encached Standard_Cache
02ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02ae 01cc | | Execute Vector,Catenate
02af e003 | | Load 0x0,0x3
02b0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02b1 e006 | | Load 0x0,0x6
02b2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02b3 0322 | " | Declare_Variable Record
02b4 4800 |H | Short_Literal 0x0
02b5 e403 | | Load 0x2,0x3
02b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02b7 4802 |H | Short_Literal 0x2
02b8 e403 | | Load 0x2,0x3
02b9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ba 4800 |H | Short_Literal 0x0
02bb e403 | | Load 0x2,0x3
02bc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02bd e007 | | Load 0x0,0x7
02be 017d | } | Execute Record,Structure_Write
02bf e001 | | Load 0x0,0x1
02c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c2 e402 | | Load 0x2,0x2
02c3 a008 | | Store_Unchecked 0x0,0x8
02c4 a009 | | Store_Unchecked 0x0,0x9
02c5 a00a | | Store_Unchecked 0x0,0xa
02c6 e001 | | Load 0x0,0x1
02c7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02c8 180e | | Execute Package,Field_Execute,Field_Number 0xe
02c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ca 0000 0000 | | .BLANK 0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4100 |A | End_Rendezvous 0x0
02d4 0000 0000 | | .BLANK 0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd | | .CONST 0x02dd ; Address of begin
02d9 02fb | | .CONST 0x02fb ; Address of exception handler
02da 000c | | .CONST 0x000c ; Number of locals
02db INIT_02d8:
02db 00bf | | Action Accept_Activation
02dc 00bc | | Action Signal_Activated
02dd BODY_02d8:
02dd 00cf | | Action Mark_Auxiliary
02de 6025 |`% | Indirect_Literal Discrete,0x304,{0x00000000, 0x001e0000}
02df 00ba | | Action Initiate_Delay
02e0 e001 | | Load 0x0,0x1
02e1 00e0 | | Load_Encached Standard_Cache
02e2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02e3 0092 031b | | Action Push_String_Extended,0x31b ; " spaces and"
02e5 01cc | | Execute Vector,Catenate
02e6 e002 | | Load 0x0,0x2
02e7 00e0 | | Load_Encached Standard_Cache
02e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02e9 01cc | | Execute Vector,Catenate
02ea 0092 031c | | Action Push_String_Extended,0x31c ; " blocks so far;"
02ec 01cc | | Execute Vector,Catenate
02ed 0092 031d | | Action Push_String_Extended,0x31d ; " current = "
02ef 01cc | | Execute Vector,Catenate
02f0 e003 | | Load 0x0,0x3
02f1 e004 | | Load 0x0,0x4
02f2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02f3 01cc | | Execute Vector,Catenate
02f4 0092 031e | | Action Push_String_Extended,0x31e ; "."
02f6 01cc | | Execute Vector,Catenate
02f7 e005 | | Load 0x0,0x5
02f8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02f9 00c9 | | Action Pop_Auxiliary_Loop
02fa 7fe3 | | Jump 0x2de
02fb TRAP_02d8:
02fb 0007 | | Action Break_Optional
02fc 0092 031f | | Action Push_String_Extended,0x31f ; "Find_Block.Monitor failed with "
02fe e006 | | Load 0x0,0x6
02ff 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0300 01cc | | Execute Vector,Catenate
0301 e005 | | Load 0x0,0x5
0302 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0303 00bb | | Action Signal_Completion
0304 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
0308 ; --------------------------------------------------------------------------------------
0308 ; STRING TABLE
0308 ; --------------------------------------------------------------------------------------
0308 0032 | 2 | .STRTAB 0x0032->0x0321 ; "Find_Retargeted_Blocks failed with "
0309 0053 | S | .STRTAB 0x0053->0x0332 ; "looking for blocks:"
030a 0064 | d | .STRTAB 0x0064->0x033c ; " "
030b 0067 | g | .STRTAB 0x0067->0x033e ; "raw space information:"
030c 007b | { | .STRTAB 0x007b->0x0349 ; "display space failed with "
030d 0093 | | .STRTAB 0x0093->0x0356 ; "----------------------------------"
030e 00b3 | | .STRTAB 0x00b3->0x0367 ; "found block "
030f 00bd | | .STRTAB 0x00bd->0x036d ; " in space "
0310 00c5 | | .STRTAB 0x00c5->0x0372 ; ":"
0311 00c4 | | .STRTAB 0x00c4->0x0373 ; "continuing to search ..."
0312 00da | | .STRTAB 0x00da->0x037f ; "manager_id ="
0313 00e4 | | .STRTAB 0x00e4->0x0385 ; "; object instance ="
0314 00f5 | | .STRTAB 0x00f5->0x038e ; "directory unique full name:"
0315 010e | | .STRTAB 0x010e->0x039c ; " "
0316 0110 | | .STRTAB 0x0110->0x039e ; "directory ineffable name:"
0317 0127 | ' | .STRTAB 0x0127->0x03aa ; "----------------------"
0318 013b | ; | .STRTAB 0x013b->0x03b5 ; "traversal has finished"
0319 014f | O | .STRTAB 0x014f->0x03c0 ; "Find_Block.Worker failed with "
031a 016b | k | .STRTAB 0x016b->0x03cf ; "Searching volume"
031b 0179 | y | .STRTAB 0x0179->0x03d7 ; " spaces and"
031c 0182 | | .STRTAB 0x0182->0x03dd ; " blocks so far;"
031d 018f | | .STRTAB 0x018f->0x03e4 ; " current = "
031e 0198 | | .STRTAB 0x0198->0x03ea ; "."
031f 0197 | | .STRTAB 0x0197->0x03ea ; "Find_Block.Monitor failed with "
0320 01b4 | | .STREND 0x01b4->0x03fa
0321 4669 6e64 |Find| .STRTAB_STRINGS
03fa 0000 0000 | | .BLANK 0000[0x6]
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug Table
0400 ; --------------------------------------------------------------------------------------
0400 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9765,0x0000,0x0001,0x0000
0406 0000 0000 | | .BLANK 0000[0x1fa]