|
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: 2048 (0x800) 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 0348 | H | .CONST 0x0348 ; 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 8001 | | .CONST 0x8001 ; 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 0091 | | .CONST 0x0091 ; Address of begin 0019 00c0 | | .CONST 0x00c0 ; Address of exception handler 001a 0013 | | .CONST 0x0013 ; Number of locals 001b INIT_0018: 001b e5ff | | Load 0x2,-0x1 001c 00d8 | | Load_Top At_Offset_0 001d e002 | | Load 0x0,0x2 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 0260 | ` | Execute Discrete,In_Type 0020 7001 |p | Jump_Nonzero 0x22 0021 0801 | | Execute_Immediate Raise,0x1 0022 e5fe | | Load 0x2,-0x2 0023 00d8 | | Load_Top At_Offset_0 0024 e002 | | Load 0x0,0x2 0025 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0026 0260 | ` | Execute Discrete,In_Type 0027 7001 |p | Jump_Nonzero 0x29 0028 0801 | | Execute_Immediate Raise,0x1 0029 e002 | | Load 0x0,0x2 002a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002b 0322 | " | Declare_Variable Record 002c e402 | | Load 0x2,0x2 002d e404 | | Load 0x2,0x4 002e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 002f e403 | | Load 0x2,0x3 0030 e404 | | Load 0x2,0x4 0031 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0032 00e1 | | Load_Encached Boolean_Cache 0033 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0034 e003 | | Load 0x0,0x3 0035 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0036 0322 | " | Declare_Variable Record 0037 4800 |H | Short_Literal 0x0 0038 e406 | | Load 0x2,0x6 0039 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003a 4802 |H | Short_Literal 0x2 003b e406 | | Load 0x2,0x6 003c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 003d 4800 |H | Short_Literal 0x0 003e e406 | | Load 0x2,0x6 003f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0040 e003 | | Load 0x0,0x3 0041 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0042 0322 | " | Declare_Variable Record 0043 4800 |H | Short_Literal 0x0 0044 e407 | | Load 0x2,0x7 0045 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0046 4802 |H | Short_Literal 0x2 0047 e407 | | Load 0x2,0x7 0048 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0049 4800 |H | Short_Literal 0x0 004a e407 | | Load 0x2,0x7 004b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 004c 00e2 | | Load_Encached Integer_Cache 004d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 004e 00e2 | | Load_Encached Integer_Cache 004f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0050 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0052 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0054 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0056 e004 | | Load 0x0,0x4 0057 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0058 190e | | Execute Package,Field_Reference,Field_Number 0xe 0059 00c6 | | Action Check_Subprogram_Elaborated 005a 480c |H | Short_Literal 0xc 005b 4802 |H | Short_Literal 0x2 005c 0099 | | Action Reference_Dynamic 005d 480a |H | Short_Literal 0xa 005e 4802 |H | Short_Literal 0x2 005f 0099 | | Action Reference_Dynamic 0060 e005 | | Load 0x0,0x5 0061 e006 | | Load 0x0,0x6 0062 4811 |H | Short_Literal 0x11 0063 0007 | | Action Break_Optional 0064 4800 |H | Short_Literal 0x0 0065 0093 021b | | push_full_address INIT_0218 0067 00f5 | | Load_Encached Unused21 0068 037d | } | Declare_Type Task,Defined 0069 036f | o | Declare_Variable Task 006a 4808 |H | Short_Literal 0x8 006b 4802 |H | Short_Literal 0x2 006c 0099 | | Action Reference_Dynamic 006d 4809 |H | Short_Literal 0x9 006e 4802 |H | Short_Literal 0x2 006f 0099 | | Action Reference_Dynamic 0070 e407 | | Load 0x2,0x7 0071 e003 | | Load 0x0,0x3 0072 e007 | | Load 0x0,0x7 0073 e008 | | Load 0x0,0x8 0074 4806 |H | Short_Literal 0x6 0075 e412 | | Load 0x2,0x12 0076 020e | | Execute Module,Augment_Imports 0077 0007 | | Action Break_Optional 0078 4800 |H | Short_Literal 0x0 0079 0093 01bb | | push_full_address INIT_01b8 007b 00f5 | | Load_Encached Unused21 007c 037d | } | Declare_Type Task,Defined 007d 036f | o | Declare_Variable Task 007e e004 | | Load 0x0,0x4 007f e402 | | Load 0x2,0x2 0080 e403 | | Load 0x2,0x3 0081 e007 | | Load 0x0,0x7 0082 e404 | | Load 0x2,0x4 0083 480d |H | Short_Literal 0xd 0084 4802 |H | Short_Literal 0x2 0085 0099 | | Action Reference_Dynamic 0086 480e |H | Short_Literal 0xe 0087 4802 |H | Short_Literal 0x2 0088 0099 | | Action Reference_Dynamic 0089 480f |H | Short_Literal 0xf 008a 4802 |H | Short_Literal 0x2 008b 0099 | | Action Reference_Dynamic 008c e412 | | Load 0x2,0x12 008d e008 | | Load 0x0,0x8 008e 480a |H | Short_Literal 0xa 008f e413 | | Load 0x2,0x13 0090 020e | | Execute Module,Augment_Imports 0091 BODY_0018: 0091 00be | | Action Activate_Tasks 0092 4800 |H | Short_Literal 0x0 0093 e413 | | Load 0x2,0x13 0094 170d | | Execute Task,Entry_Call,Field_Number 0xd 0095 e405 | | Load 0x2,0x5 0096 6828 |h( | Jump_Zero 0xbf 0097 4801 |H | Short_Literal 0x1 0098 e009 | | Load 0x0,0x9 0099 1b10 | | Execute Package,Field_Read,Field_Number 0x10 009a 0092 0248 | H| Action Push_String_Extended,0x248 ; "!" 009c e404 | | Load 0x2,0x4 009d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009e 00d8 | | Load_Top At_Offset_0 009f 00e3 | | Load_Encached Natural_Cache 00a0 0260 | ` | Execute Discrete,In_Type 00a1 7001 |p | Jump_Nonzero 0xa3 00a2 0801 | | Execute_Immediate Raise,0x1 00a3 e406 | | Load 0x2,0x6 00a4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a5 00d8 | | Load_Top At_Offset_0 00a6 00e3 | | Load_Encached Natural_Cache 00a7 0260 | ` | Execute Discrete,In_Type 00a8 7001 |p | Jump_Nonzero 0xaa 00a9 0801 | | Execute_Immediate Raise,0x1 00aa e406 | | Load 0x2,0x6 00ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ac 00d8 | | Load_Top At_Offset_0 00ad e009 | | Load 0x0,0x9 00ae 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00af 0260 | ` | Execute Discrete,In_Type 00b0 7001 |p | Jump_Nonzero 0xb2 00b1 0801 | | Execute_Immediate Raise,0x1 00b2 e406 | | Load 0x2,0x6 00b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b4 00d8 | | Load_Top At_Offset_0 00b5 00e3 | | Load_Encached Natural_Cache 00b6 0260 | ` | Execute Discrete,In_Type 00b7 7001 |p | Jump_Nonzero 0xb9 00b8 0801 | | Execute_Immediate Raise,0x1 00b9 e009 | | Load 0x0,0x9 00ba 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00bb 0092 0249 | I| Action Push_String_Extended,0x249 ; "if we found it, you should destroy the object." 00bd e007 | | Load 0x0,0x7 00be 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c0 TRAP_0018: 00c0 0007 | | Action Break_Optional 00c1 0092 024a | J| Action Push_String_Extended,0x24a ; "Find_Block failed with " 00c3 e008 | | Load 0x0,0x8 00c4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00c5 01cc | | Execute Vector,Catenate 00c6 e007 | | Load 0x0,0x7 00c7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00c8 e413 | | Load 0x2,0x13 00c9 0209 | | Execute Task,Abort 00ca 0007 | | Action Break_Optional 00cb e412 | | Load 0x2,0x12 00cc 0209 | | Execute Task,Abort 00cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e7ff | | Load 0x3,-0x1 00d4 e407 | | Load 0x2,0x7 00d5 017d | } | Execute Record,Structure_Write 00d6 e408 | | Load 0x2,0x8 00d7 0a01 | | Execute_Immediate Plus,0x1 00d8 c408 | | Store 0x2,0x8 00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00fb | | .CONST 0x00fb ; Address of begin 00e1 012a | * | .CONST 0x012a ; Address of exception handler 00e2 000a | | .CONST 0x000a ; Number of locals 00e3 INIT_00e0: 00e3 e406 | | Load 0x2,0x6 00e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e5 0007 | | Action Break_Optional 00e6 e00a | | Load 0x0,0xa 00e7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00e8 1912 | | Execute Package,Field_Reference,Field_Number 0x12 00e9 00c6 | | Action Check_Subprogram_Elaborated 00ea e007 | | Load 0x0,0x7 00eb 194f | O | Execute Package,Field_Reference,Field_Number 0x4f 00ec e00b | | Load 0x0,0xb 00ed e00c | | Load 0x0,0xc 00ee 4806 |H | Short_Literal 0x6 00ef 0007 | | Action Break_Optional 00f0 00e1 | | Load_Encached Boolean_Cache 00f1 e002 | | Load 0x0,0x2 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 e00a | | Load 0x0,0xa 00f4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f6 0322 | " | Declare_Variable Record 00f7 00d8 | | Load_Top At_Offset_0 00f8 1c00 | | Execute_Immediate Run_Utility,0x0 00f9 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 00fb BODY_00e0: 00fb e602 | | Load 0x3,0x2 00fc 4804 |H | Short_Literal 0x4 00fd 4bfe |K | Short_Literal 0x3fe 00fe 0261 | a | Execute Discrete,Not_In_Range 00ff 6801 |h | Jump_Zero 0x101 0100 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0101 e002 | | Load 0x0,0x2 0102 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0103 00e1 | | Load_Encached Boolean_Cache 0104 e602 | | Load 0x3,0x2 0105 e004 | | Load 0x0,0x4 0106 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0107 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0108 c607 | | Store 0x3,0x7 0109 c608 | | Store 0x3,0x8 010a e607 | | Load 0x3,0x7 010b 7001 |p | Jump_Nonzero 0x10d 010c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 010d e609 | | Load 0x3,0x9 010e 00e1 | | Load_Encached Boolean_Cache 010f e406 | | Load 0x2,0x6 0110 e00a | | Load 0x0,0xa 0111 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0112 180e | | Execute Package,Field_Execute,Field_Number 0xe 0113 c607 | | Store 0x3,0x7 0114 00d1 | | Pop_Control Pop_Count_1 0115 e607 | | Load 0x3,0x7 0116 7001 |p | Jump_Nonzero 0x118 0117 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0118 0092 024b | K| Action Push_String_Extended,0x24b ; "raw space information:" 011a e007 | | Load 0x0,0x7 011b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 011c e609 | | Load 0x3,0x9 011d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 011e e406 | | Load 0x2,0x6 011f 4803 |H | Short_Literal 0x3 0120 4803 |H | Short_Literal 0x3 0121 0099 | | Action Reference_Dynamic 0122 4804 |H | Short_Literal 0x4 0123 4803 |H | Short_Literal 0x3 0124 0099 | | Action Reference_Dynamic 0125 e00a | | Load 0x0,0xa 0126 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0127 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0128 860a | | Call 0x3,0xa 0129 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012a TRAP_00e0: 012a 0007 | | Action Break_Optional 012b 0092 024c | L| Action Push_String_Extended,0x24c ; "display space failed with " 012d e008 | | Load 0x0,0x8 012e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 012f 01cc | | Execute Vector,Catenate 0130 e007 | | Load 0x0,0x7 0131 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0132 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0133 0000 0000 | | .BLANK 0000[0x5] 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 e409 | | Load 0x2,0x9 013c 0a01 | | Execute_Immediate Plus,0x1 013d c409 | | Store 0x2,0x9 013e e7ff | | Load 0x3,-0x1 013f e404 | | Load 0x2,0x4 0140 017f | | Execute Record,Equal 0141 6812 |h | Jump_Zero 0x154 0142 4801 |H | Short_Literal 0x1 0143 a405 | | Store_Unchecked 0x2,0x5 0144 e407 | | Load 0x2,0x7 0145 e406 | | Load 0x2,0x6 0146 017d | } | Execute Record,Structure_Write 0147 0092 024d | M| Action Push_String_Extended,0x24d ; "found in " 0149 e407 | | Load 0x2,0x7 014a e003 | | Load 0x0,0x3 014b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 014c 01cc | | Execute Vector,Catenate 014d e007 | | Load 0x0,0x7 014e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 014f 840b | | Call 0x2,0xb 0150 0092 024e | N| Action Push_String_Extended,0x24e ; "continuing search because the block may appear in more than one space." 0152 e007 | | Load 0x0,0x7 0153 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0154 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0155 0000 0000 | | .XXX[0x3] 0157 0000 | | 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0165 | e | .CONST 0x0165 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0004 | | .CONST 0x0004 ; Number of locals 015b INIT_0158: 015b e609 | | Load 0x3,0x9 015c 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 015d e00d | | Load 0x0,0xd 015e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 015f e609 | | Load 0x3,0x9 0160 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0161 e00d | | Load 0x0,0xd 0162 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0163 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 0165 BODY_0158: 0165 0092 024f | O| Action Push_String_Extended,0x24f ; "manager_id =" 0167 e802 | | Load 0x4,0x2 0168 00e0 | | Load_Encached Standard_Cache 0169 1818 | | Execute Package,Field_Execute,Field_Number 0x18 016a 01cc | | Execute Vector,Catenate 016b 0092 0250 | P| Action Push_String_Extended,0x250 ; "; object instance =" 016d 01cc | | Execute Vector,Catenate 016e e803 | | Load 0x4,0x3 016f 00e0 | | Load_Encached Standard_Cache 0170 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0171 01cc | | Execute Vector,Catenate 0172 e007 | | Load 0x0,0x7 0173 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0174 e609 | | Load 0x3,0x9 0175 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0176 4896 |H | Short_Literal 0x96 0177 48b3 |H | Short_Literal 0xb3 0178 0262 | b | Execute Discrete,In_Range 0179 6801 |h | Jump_Zero 0x17b 017a 8804 | | Call 0x4,0x4 017b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017c 0000 0000 | | .BLANK 0000[0x4] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0190 | | .CONST 0x0190 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 e802 | | Load 0x4,0x2 0184 00d8 | | Load_Top At_Offset_0 0185 e00e | | Load 0x0,0xe 0186 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0188 0260 | ` | Execute Discrete,In_Type 0189 7001 |p | Jump_Nonzero 0x18b 018a 0801 | | Execute_Immediate Raise,0x1 018b e00f | | Load 0x0,0xf 018c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 018d 1c08 | | Execute_Immediate Run_Utility,0x8 018e 00d8 | | Load_Top At_Offset_0 018f 1c00 | | Execute_Immediate Run_Utility,0x0 0190 BODY_0180: 0190 00d8 | | Load_Top At_Offset_0 0191 4800 |H | Short_Literal 0x0 0192 e803 | | Load 0x4,0x3 0193 00d8 | | Load_Top At_Offset_0 0194 e00e | | Load 0x0,0xe 0195 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0196 0260 | ` | Execute Discrete,In_Type 0197 7001 |p | Jump_Nonzero 0x199 0198 0801 | | Execute_Immediate Raise,0x1 0199 e00e | | Load 0x0,0xe 019a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019b 00d1 | | Pop_Control Pop_Count_1 019c 0092 0251 | Q| Action Push_String_Extended,0x251 ; "directory unique full name:" 019e e007 | | Load 0x0,0x7 019f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01a0 0092 0252 | R| Action Push_String_Extended,0x252 ; " " 01a2 ea02 | | Load 0x5,0x2 01a3 e00f | | Load 0x0,0xf 01a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a5 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01a6 01cc | | Execute Vector,Catenate 01a7 e007 | | Load 0x0,0x7 01a8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01a9 0092 0253 | S| Action Push_String_Extended,0x253 ; "directory ineffable name:" 01ab e007 | | Load 0x0,0x7 01ac 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01ad 0092 0252 | R| Action Push_String_Extended,0x252 ; " " 01af ea02 | | Load 0x5,0x2 01b0 e00f | | Load 0x0,0xf 01b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b2 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 01b3 01cc | | Execute Vector,Catenate 01b4 e007 | | Load 0x0,0x7 01b5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c7 | | .CONST 0x01c7 ; Address of begin 01b9 0200 | | .CONST 0x0200 ; Address of exception handler 01ba 0010 | | .CONST 0x0010 ; Number of locals 01bb INIT_01b8: 01bb 4800 |H | Short_Literal 0x0 01bc 02cb | | Declare_Variable Entry 01bd 00bf | | Action Accept_Activation 01be 00e1 | | Load_Encached Boolean_Cache 01bf e001 | | Load 0x0,0x1 01c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01c2 0322 | " | Declare_Variable Record 01c3 480d |H | Short_Literal 0xd 01c4 0299 0213 | | Declare_Subprogram INIT_0210,For_Accept 01c6 00bc | | Action Signal_Activated 01c7 BODY_01b8: 01c7 e20f | | Load 0x1,0xf 01c8 00e1 | | Load_Encached Boolean_Cache 01c9 e002 | | Load 0x0,0x2 01ca e001 | | Load 0x0,0x1 01cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01cd c20e | | Store 0x1,0xe 01ce 00d1 | | Pop_Control Pop_Count_1 01cf e20e | | Load 0x1,0xe 01d0 6806 |h | Jump_Zero 0x1d7 01d1 e003 | | Load 0x0,0x3 01d2 4801 |H | Short_Literal 0x1 01d3 e20f | | Load 0x1,0xf 01d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d5 0262 | b | Execute Discrete,In_Range 01d6 7005 |p | Jump_Nonzero 0x1dc 01d7 0092 0254 | T| Action Push_String_Extended,0x254 ; "input parameters are not valid" 01d9 e004 | | Load 0x0,0x4 01da 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01db 781e |x | Jump 0x1fa 01dc 0092 0255 | U| Action Push_String_Extended,0x255 ; "Searching volume" 01de e002 | | Load 0x0,0x2 01df 00e0 | | Load_Encached Standard_Cache 01e0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e1 01cc | | Execute Vector,Catenate 01e2 0092 0256 | V| Action Push_String_Extended,0x256 ; " for block" 01e4 01cc | | Execute Vector,Catenate 01e5 e003 | | Load 0x0,0x3 01e6 00e0 | | Load_Encached Standard_Cache 01e7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e8 01cc | | Execute Vector,Catenate 01e9 e004 | | Load 0x0,0x4 01ea 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01eb e001 | | Load 0x0,0x1 01ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ed 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ee e005 | | Load 0x0,0x5 01ef 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f0 a006 | | Store_Unchecked 0x0,0x6 01f1 a007 | | Store_Unchecked 0x0,0x7 01f2 a008 | | Store_Unchecked 0x0,0x8 01f3 e001 | | Load 0x0,0x1 01f4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01f5 180e | | Execute Package,Field_Execute,Field_Number 0xe 01f6 0092 0257 | W| Action Push_String_Extended,0x257 ; "traversal has finished" 01f8 e004 | | Load 0x0,0x4 01f9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01fa 1d10 | | Execute_Immediate Reference_Lex_1,0x10 01fb 1d0d | | Execute_Immediate Reference_Lex_1,0xd 01fc 0137 | 7 | Execute Entry,Rendezvous 01fd e009 | | Load 0x0,0x9 01fe 0209 | | Execute Task,Abort 01ff 00bb | | Action Signal_Completion 0200 TRAP_01b8: 0200 0007 | | Action Break_Optional 0201 0092 0258 | X| Action Push_String_Extended,0x258 ; "Find_Block.Worker failed with " 0203 e00a | | Load 0x0,0xa 0204 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0205 01cc | | Execute Vector,Catenate 0206 e004 | | Load 0x0,0x4 0207 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0208 00bb | | Action Signal_Completion 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4100 |A | End_Rendezvous 0x0 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021d | | .CONST 0x021d ; Address of begin 0219 023b | ; | .CONST 0x023b ; Address of exception handler 021a 000c | | .CONST 0x000c ; Number of locals 021b INIT_0218: 021b 00bf | | Action Accept_Activation 021c 00bc | | Action Signal_Activated 021d BODY_0218: 021d 00cf | | Action Mark_Auxiliary 021e 6025 |`% | Indirect_Literal Discrete,0x244,{0x00000000, 0x001e0000} 021f 00ba | | Action Initiate_Delay 0220 e001 | | Load 0x0,0x1 0221 00e0 | | Load_Encached Standard_Cache 0222 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0223 0092 0259 | Y| Action Push_String_Extended,0x259 ; " spaces and" 0225 01cc | | Execute Vector,Catenate 0226 e002 | | Load 0x0,0x2 0227 00e0 | | Load_Encached Standard_Cache 0228 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0229 01cc | | Execute Vector,Catenate 022a 0092 025a | Z| Action Push_String_Extended,0x25a ; " blocks so far;" 022c 01cc | | Execute Vector,Catenate 022d 0092 025b | [| Action Push_String_Extended,0x25b ; " current = " 022f 01cc | | Execute Vector,Catenate 0230 e003 | | Load 0x0,0x3 0231 e004 | | Load 0x0,0x4 0232 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0233 01cc | | Execute Vector,Catenate 0234 0092 025c | \| Action Push_String_Extended,0x25c ; "." 0236 01cc | | Execute Vector,Catenate 0237 e005 | | Load 0x0,0x5 0238 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0239 00c9 | | Action Pop_Auxiliary_Loop 023a 7fe3 | | Jump 0x21e 023b TRAP_0218: 023b 0007 | | Action Break_Optional 023c 0092 025d | ]| Action Push_String_Extended,0x25d ; "Find_Block.Monitor failed with " 023e e006 | | Load 0x0,0x6 023f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0240 01cc | | Execute Vector,Catenate 0241 e005 | | Load 0x0,0x5 0242 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0243 00bb | | Action Signal_Completion 0244 0000 0000 | | .LITERAL {0x00000000, 0x001e0000} 0248 ; -------------------------------------------------------------------------------------- 0248 ; STRING TABLE 0248 ; -------------------------------------------------------------------------------------- 0248 002e | . | .STRTAB 0x002e->0x025f ; "!" 0249 002d | - | .STRTAB 0x002d->0x025f ; "if we found it, you should destroy the object." 024a 0059 | Y | .STRTAB 0x0059->0x0276 ; "Find_Block failed with " 024b 006e | n | .STRTAB 0x006e->0x0282 ; "raw space information:" 024c 0082 | | .STRTAB 0x0082->0x028d ; "display space failed with " 024d 009a | | .STRTAB 0x009a->0x029a ; "found in " 024e 00a1 | | .STRTAB 0x00a1->0x029e ; "continuing search because the block may appear in more than one space." 024f 00e5 | | .STRTAB 0x00e5->0x02c1 ; "manager_id =" 0250 00ef | | .STRTAB 0x00ef->0x02c7 ; "; object instance =" 0251 0100 | | .STRTAB 0x0100->0x02d1 ; "directory unique full name:" 0252 0119 | | .STRTAB 0x0119->0x02de ; " " 0253 011b | | .STRTAB 0x011b->0x02e0 ; "directory ineffable name:" 0254 0132 | 2 | .STRTAB 0x0132->0x02ed ; "input parameters are not valid" 0255 014e | N | .STRTAB 0x014e->0x02fc ; "Searching volume" 0256 015c | \ | .STRTAB 0x015c->0x0304 ; " for block" 0257 0164 | d | .STRTAB 0x0164->0x0309 ; "traversal has finished" 0258 0178 | x | .STRTAB 0x0178->0x0314 ; "Find_Block.Worker failed with " 0259 0194 | | .STRTAB 0x0194->0x0323 ; " spaces and" 025a 019d | | .STRTAB 0x019d->0x0328 ; " blocks so far;" 025b 01aa | | .STRTAB 0x01aa->0x0330 ; " current = " 025c 01b3 | | .STRTAB 0x01b3->0x0335 ; "." 025d 01b2 | | .STRTAB 0x01b2->0x0336 ; "Find_Block.Monitor failed with " 025e 01cf | | .STREND 0x01cf->0x0345 025f 2169 6620 |!if | .STRTAB_STRINGS 0346 0000 0000 | | .XXX[0x2] 0348 ; -------------------------------------------------------------------------------------- 0348 ; Debug Table 0348 ; -------------------------------------------------------------------------------------- 0348 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9762,0x0000,0x0001,0x0000 034e 0000 0000 | | .BLANK 0000[0xb2]