|
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_03b8fe
└─⟦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 0340 | @ | .CONST 0x0340 ; 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 00b7 | | .CONST 0x00b7 ; 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 e001 | | Load 0x0,0x1 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 0260 | ` | Execute Discrete,In_Type 0020 7001 |p | Jump_Nonzero 0x22 0021 08e0 | | Execute_Immediate Raise,0xe0 0022 e5fe | | Load 0x2,-0x2 0023 00d8 | | Load_Top At_Offset_0 0024 e001 | | Load 0x0,0x1 0025 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0026 0260 | ` | Execute Discrete,In_Type 0027 7001 |p | Jump_Nonzero 0x29 0028 08e0 | | Execute_Immediate Raise,0xe0 0029 e001 | | Load 0x0,0x1 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 e002 | | Load 0x0,0x2 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 e002 | | Load 0x0,0x2 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 00cb | | Declare_Subprogram INIT_00c8,For_Call 0052 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0054 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0056 e003 | | Load 0x0,0x3 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 e004 | | Load 0x0,0x4 0061 e005 | | Load 0x0,0x5 0062 4811 |H | Short_Literal 0x11 0063 0007 | | Action Break_Optional 0064 4800 |H | Short_Literal 0x0 0065 0093 0213 | | push_full_address INIT_0210 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 e002 | | Load 0x0,0x2 0072 e006 | | Load 0x0,0x6 0073 e007 | | Load 0x0,0x7 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 01b3 | | push_full_address INIT_01b0 007b 00f5 | | Load_Encached Unused21 007c 037d | } | Declare_Type Task,Defined 007d 036f | o | Declare_Variable Task 007e e003 | | Load 0x0,0x3 007f e402 | | Load 0x2,0x2 0080 e403 | | Load 0x2,0x3 0081 e006 | | Load 0x0,0x6 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 e007 | | Load 0x0,0x7 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 681f |h | Jump_Zero 0xb6 0097 4801 |H | Short_Literal 0x1 0098 e008 | | Load 0x0,0x8 0099 1b10 | | Execute Package,Field_Read,Field_Number 0x10 009a 0092 0240 | @| Action Push_String_Extended,0x240 ; "!" 009c e404 | | Load 0x2,0x4 009d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009e 00e3 | | Load_Encached Natural_Cache 009f 025b | [ | Execute Discrete,Check_In_Type 00a0 e406 | | Load 0x2,0x6 00a1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a2 00e3 | | Load_Encached Natural_Cache 00a3 025b | [ | Execute Discrete,Check_In_Type 00a4 e406 | | Load 0x2,0x6 00a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00a6 00d8 | | Load_Top At_Offset_0 00a7 e008 | | Load 0x0,0x8 00a8 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00a9 0260 | ` | Execute Discrete,In_Type 00aa 7001 |p | Jump_Nonzero 0xac 00ab 08e0 | | Execute_Immediate Raise,0xe0 00ac e406 | | Load 0x2,0x6 00ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ae 00e3 | | Load_Encached Natural_Cache 00af 025b | [ | Execute Discrete,Check_In_Type 00b0 e008 | | Load 0x0,0x8 00b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b2 0092 0241 | A| Action Push_String_Extended,0x241 ; "if we found it, you should destroy the object." 00b4 e006 | | Load 0x0,0x6 00b5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b7 TRAP_0018: 00b7 0007 | | Action Break_Optional 00b8 0092 0242 | B| Action Push_String_Extended,0x242 ; "Find_Block failed with " 00ba e007 | | Load 0x0,0x7 00bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00bc 01cc | | Execute Vector,Catenate 00bd e006 | | Load 0x0,0x6 00be 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00bf e413 | | Load 0x2,0x13 00c0 0209 | | Execute Task,Abort 00c1 0007 | | Action Break_Optional 00c2 e412 | | Load 0x2,0x12 00c3 0209 | | Execute Task,Abort 00c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e7ff | | Load 0x3,-0x1 00cc e407 | | Load 0x2,0x7 00cd 017d | } | Execute Record,Structure_Write 00ce e408 | | Load 0x2,0x8 00cf 0a01 | | Execute_Immediate Plus,0x1 00d0 c408 | | Store 0x2,0x8 00d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d2 0000 0000 | | .BLANK 0000[0x6] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00f3 | | .CONST 0x00f3 ; Address of begin 00d9 0122 | " | .CONST 0x0122 ; Address of exception handler 00da 000a | | .CONST 0x000a ; Number of locals 00db INIT_00d8: 00db e406 | | Load 0x2,0x6 00dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00dd 0007 | | Action Break_Optional 00de e009 | | Load 0x0,0x9 00df 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00e0 1912 | | Execute Package,Field_Reference,Field_Number 0x12 00e1 00c6 | | Action Check_Subprogram_Elaborated 00e2 e006 | | Load 0x0,0x6 00e3 194f | O | Execute Package,Field_Reference,Field_Number 0x4f 00e4 e00a | | Load 0x0,0xa 00e5 e00b | | Load 0x0,0xb 00e6 4806 |H | Short_Literal 0x6 00e7 0007 | | Action Break_Optional 00e8 00e1 | | Load_Encached Boolean_Cache 00e9 e001 | | Load 0x0,0x1 00ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00eb e009 | | Load 0x0,0x9 00ec 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ee 0322 | " | Declare_Variable Record 00ef 00d8 | | Load_Top At_Offset_0 00f0 1c00 | | Execute_Immediate Run_Utility,0x0 00f1 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 00f3 BODY_00d8: 00f3 e602 | | Load 0x3,0x2 00f4 4804 |H | Short_Literal 0x4 00f5 4bfe |K | Short_Literal 0x3fe 00f6 0261 | a | Execute Discrete,Not_In_Range 00f7 6801 |h | Jump_Zero 0xf9 00f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f9 e001 | | Load 0x0,0x1 00fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fb 00e1 | | Load_Encached Boolean_Cache 00fc e602 | | Load 0x3,0x2 00fd e003 | | Load 0x0,0x3 00fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0100 c607 | | Store 0x3,0x7 0101 c608 | | Store 0x3,0x8 0102 e607 | | Load 0x3,0x7 0103 7001 |p | Jump_Nonzero 0x105 0104 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0105 e609 | | Load 0x3,0x9 0106 00e1 | | Load_Encached Boolean_Cache 0107 e406 | | Load 0x2,0x6 0108 e009 | | Load 0x0,0x9 0109 1b16 | | Execute Package,Field_Read,Field_Number 0x16 010a 180e | | Execute Package,Field_Execute,Field_Number 0xe 010b c607 | | Store 0x3,0x7 010c 00d1 | | Pop_Control Pop_Count_1 010d e607 | | Load 0x3,0x7 010e 7001 |p | Jump_Nonzero 0x110 010f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0110 0092 0243 | C| Action Push_String_Extended,0x243 ; "raw space information:" 0112 e006 | | Load 0x0,0x6 0113 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0114 e609 | | Load 0x3,0x9 0115 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0116 e406 | | Load 0x2,0x6 0117 4803 |H | Short_Literal 0x3 0118 4803 |H | Short_Literal 0x3 0119 0099 | | Action Reference_Dynamic 011a 4804 |H | Short_Literal 0x4 011b 4803 |H | Short_Literal 0x3 011c 0099 | | Action Reference_Dynamic 011d e009 | | Load 0x0,0x9 011e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 011f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0120 860a | | Call 0x3,0xa 0121 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0122 TRAP_00d8: 0122 0007 | | Action Break_Optional 0123 0092 0244 | D| Action Push_String_Extended,0x244 ; "display space failed with " 0125 e007 | | Load 0x0,0x7 0126 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0127 01cc | | Execute Vector,Catenate 0128 e006 | | Load 0x0,0x6 0129 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 012a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012b 0000 0000 | | .BLANK 0000[0x5] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e409 | | Load 0x2,0x9 0134 0a01 | | Execute_Immediate Plus,0x1 0135 c409 | | Store 0x2,0x9 0136 e7ff | | Load 0x3,-0x1 0137 e404 | | Load 0x2,0x4 0138 017f | | Execute Record,Equal 0139 6812 |h | Jump_Zero 0x14c 013a 4801 |H | Short_Literal 0x1 013b a405 | | Store_Unchecked 0x2,0x5 013c e407 | | Load 0x2,0x7 013d e406 | | Load 0x2,0x6 013e 017d | } | Execute Record,Structure_Write 013f 0092 0245 | E| Action Push_String_Extended,0x245 ; "found in " 0141 e407 | | Load 0x2,0x7 0142 e002 | | Load 0x0,0x2 0143 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0144 01cc | | Execute Vector,Catenate 0145 e006 | | Load 0x0,0x6 0146 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0147 840b | | Call 0x2,0xb 0148 0092 0246 | F| Action Push_String_Extended,0x246 ; "continuing search because the block may appear in more than one space." 014a e006 | | Load 0x0,0x6 014b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 014c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015d | ] | .CONST 0x015d ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0004 | | .CONST 0x0004 ; Number of locals 0153 INIT_0150: 0153 e609 | | Load 0x3,0x9 0154 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0155 e00c | | Load 0x0,0xc 0156 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0157 e609 | | Load 0x3,0x9 0158 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0159 e00c | | Load 0x0,0xc 015a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 015b 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 015d BODY_0150: 015d 0092 0247 | G| Action Push_String_Extended,0x247 ; "manager_id =" 015f e802 | | Load 0x4,0x2 0160 00e0 | | Load_Encached Standard_Cache 0161 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0162 01cc | | Execute Vector,Catenate 0163 0092 0248 | H| Action Push_String_Extended,0x248 ; "; object instance =" 0165 01cc | | Execute Vector,Catenate 0166 e803 | | Load 0x4,0x3 0167 00e0 | | Load_Encached Standard_Cache 0168 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0169 01cc | | Execute Vector,Catenate 016a e006 | | Load 0x0,0x6 016b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 016c e609 | | Load 0x3,0x9 016d 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 016e 4896 |H | Short_Literal 0x96 016f 48b3 |H | Short_Literal 0xb3 0170 0262 | b | Execute Discrete,In_Range 0171 6801 |h | Jump_Zero 0x173 0172 8804 | | Call 0x4,0x4 0173 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0174 0000 0000 | | .BLANK 0000[0x4] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0188 | | .CONST 0x0188 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b e802 | | Load 0x4,0x2 017c 00d8 | | Load_Top At_Offset_0 017d e00d | | Load 0x0,0xd 017e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0180 0260 | ` | Execute Discrete,In_Type 0181 7001 |p | Jump_Nonzero 0x183 0182 08e0 | | Execute_Immediate Raise,0xe0 0183 e00e | | Load 0x0,0xe 0184 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0185 1c08 | | Execute_Immediate Run_Utility,0x8 0186 00d8 | | Load_Top At_Offset_0 0187 1c00 | | Execute_Immediate Run_Utility,0x0 0188 BODY_0178: 0188 00d8 | | Load_Top At_Offset_0 0189 4800 |H | Short_Literal 0x0 018a e803 | | Load 0x4,0x3 018b 00d8 | | Load_Top At_Offset_0 018c e00d | | Load 0x0,0xd 018d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018e 0260 | ` | Execute Discrete,In_Type 018f 7001 |p | Jump_Nonzero 0x191 0190 08e0 | | Execute_Immediate Raise,0xe0 0191 e00d | | Load 0x0,0xd 0192 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0193 00d1 | | Pop_Control Pop_Count_1 0194 0092 0249 | I| Action Push_String_Extended,0x249 ; "directory unique full name:" 0196 e006 | | Load 0x0,0x6 0197 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0198 0092 024a | J| Action Push_String_Extended,0x24a ; " " 019a ea02 | | Load 0x5,0x2 019b e00e | | Load 0x0,0xe 019c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 019d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 019e 01cc | | Execute Vector,Catenate 019f e006 | | Load 0x0,0x6 01a0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01a1 0092 024b | K| Action Push_String_Extended,0x24b ; "directory ineffable name:" 01a3 e006 | | Load 0x0,0x6 01a4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01a5 0092 024a | J| Action Push_String_Extended,0x24a ; " " 01a7 ea02 | | Load 0x5,0x2 01a8 e00e | | Load 0x0,0xe 01a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01aa 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 01ab 01cc | | Execute Vector,Catenate 01ac e006 | | Load 0x0,0x6 01ad 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01af 0000 | | .XXX[0x1] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bf | | .CONST 0x01bf ; Address of begin 01b1 01f8 | | .CONST 0x01f8 ; Address of exception handler 01b2 0010 | | .CONST 0x0010 ; Number of locals 01b3 INIT_01b0: 01b3 4800 |H | Short_Literal 0x0 01b4 02cb | | Declare_Variable Entry 01b5 00bf | | Action Accept_Activation 01b6 00e1 | | Load_Encached Boolean_Cache 01b7 e001 | | Load 0x0,0x1 01b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01b9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01ba 0322 | " | Declare_Variable Record 01bb 480d |H | Short_Literal 0xd 01bc 0299 020b | | Declare_Subprogram INIT_0208,For_Accept 01be 00bc | | Action Signal_Activated 01bf BODY_01b0: 01bf e20f | | Load 0x1,0xf 01c0 00e1 | | Load_Encached Boolean_Cache 01c1 e002 | | Load 0x0,0x2 01c2 e001 | | Load 0x0,0x1 01c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c5 c20e | | Store 0x1,0xe 01c6 00d1 | | Pop_Control Pop_Count_1 01c7 e20e | | Load 0x1,0xe 01c8 6806 |h | Jump_Zero 0x1cf 01c9 e003 | | Load 0x0,0x3 01ca 4801 |H | Short_Literal 0x1 01cb e20f | | Load 0x1,0xf 01cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01cd 0262 | b | Execute Discrete,In_Range 01ce 7005 |p | Jump_Nonzero 0x1d4 01cf 0092 024c | L| Action Push_String_Extended,0x24c ; "input parameters are not valid" 01d1 e004 | | Load 0x0,0x4 01d2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01d3 781e |x | Jump 0x1f2 01d4 0092 024d | M| Action Push_String_Extended,0x24d ; "Searching volume" 01d6 e002 | | Load 0x0,0x2 01d7 00e0 | | Load_Encached Standard_Cache 01d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01d9 01cc | | Execute Vector,Catenate 01da 0092 024e | N| Action Push_String_Extended,0x24e ; " for block" 01dc 01cc | | Execute Vector,Catenate 01dd e003 | | Load 0x0,0x3 01de 00e0 | | Load_Encached Standard_Cache 01df 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e0 01cc | | Execute Vector,Catenate 01e1 e004 | | Load 0x0,0x4 01e2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01e3 e001 | | Load 0x0,0x1 01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01e6 e005 | | Load 0x0,0x5 01e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e8 a006 | | Store_Unchecked 0x0,0x6 01e9 a007 | | Store_Unchecked 0x0,0x7 01ea a008 | | Store_Unchecked 0x0,0x8 01eb e001 | | Load 0x0,0x1 01ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01ed 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ee 0092 024f | O| Action Push_String_Extended,0x24f ; "traversal has finished" 01f0 e004 | | Load 0x0,0x4 01f1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01f2 1d10 | | Execute_Immediate Reference_Lex_1,0x10 01f3 1d0d | | Execute_Immediate Reference_Lex_1,0xd 01f4 0137 | 7 | Execute Entry,Rendezvous 01f5 e009 | | Load 0x0,0x9 01f6 0209 | | Execute Task,Abort 01f7 00bb | | Action Signal_Completion 01f8 TRAP_01b0: 01f8 0007 | | Action Break_Optional 01f9 0092 0250 | P| Action Push_String_Extended,0x250 ; "Find_Block.Worker failed with " 01fb e00a | | Load 0x0,0xa 01fc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01fd 01cc | | Execute Vector,Catenate 01fe e004 | | Load 0x0,0x4 01ff 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0200 00bb | | Action Signal_Completion 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 4100 |A | End_Rendezvous 0x0 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0215 | | .CONST 0x0215 ; Address of begin 0211 0233 | 3 | .CONST 0x0233 ; Address of exception handler 0212 000c | | .CONST 0x000c ; Number of locals 0213 INIT_0210: 0213 00bf | | Action Accept_Activation 0214 00bc | | Action Signal_Activated 0215 BODY_0210: 0215 00cf | | Action Mark_Auxiliary 0216 6025 |`% | Indirect_Literal Discrete,0x23c,{0x00000000, 0x001e0000} 0217 00ba | | Action Initiate_Delay 0218 e001 | | Load 0x0,0x1 0219 00e0 | | Load_Encached Standard_Cache 021a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 021b 0092 0251 | Q| Action Push_String_Extended,0x251 ; " spaces and" 021d 01cc | | Execute Vector,Catenate 021e e002 | | Load 0x0,0x2 021f 00e0 | | Load_Encached Standard_Cache 0220 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0221 01cc | | Execute Vector,Catenate 0222 0092 0252 | R| Action Push_String_Extended,0x252 ; " blocks so far;" 0224 01cc | | Execute Vector,Catenate 0225 0092 0253 | S| Action Push_String_Extended,0x253 ; " current = " 0227 01cc | | Execute Vector,Catenate 0228 e003 | | Load 0x0,0x3 0229 e004 | | Load 0x0,0x4 022a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 022b 01cc | | Execute Vector,Catenate 022c 0092 0254 | T| Action Push_String_Extended,0x254 ; "." 022e 01cc | | Execute Vector,Catenate 022f e005 | | Load 0x0,0x5 0230 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0231 00c9 | | Action Pop_Auxiliary_Loop 0232 7fe3 | | Jump 0x216 0233 TRAP_0210: 0233 0007 | | Action Break_Optional 0234 0092 0255 | U| Action Push_String_Extended,0x255 ; "Find_Block.Monitor failed with " 0236 e006 | | Load 0x0,0x6 0237 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0238 01cc | | Execute Vector,Catenate 0239 e005 | | Load 0x0,0x5 023a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 023b 00bb | | Action Signal_Completion 023c 0000 0000 | | .LITERAL {0x00000000, 0x001e0000} 0240 ; -------------------------------------------------------------------------------------- 0240 ; STRING TABLE 0240 ; -------------------------------------------------------------------------------------- 0240 002e | . | .STRTAB 0x002e->0x0257 ; "!" 0241 002d | - | .STRTAB 0x002d->0x0257 ; "if we found it, you should destroy the object." 0242 0059 | Y | .STRTAB 0x0059->0x026e ; "Find_Block failed with " 0243 006e | n | .STRTAB 0x006e->0x027a ; "raw space information:" 0244 0082 | | .STRTAB 0x0082->0x0285 ; "display space failed with " 0245 009a | | .STRTAB 0x009a->0x0292 ; "found in " 0246 00a1 | | .STRTAB 0x00a1->0x0296 ; "continuing search because the block may appear in more than one space." 0247 00e5 | | .STRTAB 0x00e5->0x02b9 ; "manager_id =" 0248 00ef | | .STRTAB 0x00ef->0x02bf ; "; object instance =" 0249 0100 | | .STRTAB 0x0100->0x02c9 ; "directory unique full name:" 024a 0119 | | .STRTAB 0x0119->0x02d6 ; " " 024b 011b | | .STRTAB 0x011b->0x02d8 ; "directory ineffable name:" 024c 0132 | 2 | .STRTAB 0x0132->0x02e5 ; "input parameters are not valid" 024d 014e | N | .STRTAB 0x014e->0x02f4 ; "Searching volume" 024e 015c | \ | .STRTAB 0x015c->0x02fc ; " for block" 024f 0164 | d | .STRTAB 0x0164->0x0301 ; "traversal has finished" 0250 0178 | x | .STRTAB 0x0178->0x030c ; "Find_Block.Worker failed with " 0251 0194 | | .STRTAB 0x0194->0x031b ; " spaces and" 0252 019d | | .STRTAB 0x019d->0x0320 ; " blocks so far;" 0253 01aa | | .STRTAB 0x01aa->0x0328 ; " current = " 0254 01b3 | | .STRTAB 0x01b3->0x032d ; "." 0255 01b2 | | .STRTAB 0x01b2->0x032e ; "Find_Block.Monitor failed with " 0256 01cf | | .STREND 0x01cf->0x033d 0257 2169 6620 |!if | .STRTAB_STRINGS 033e 0000 0000 | | .XXX[0x2] 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug Table 0340 ; -------------------------------------------------------------------------------------- 0340 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb44,0x0000,0x0001,0x0000 0346 0000 4080 | @ | .XXX[0x3] 0348 21e0 |! | 0349 0000 0000 | | .BLANK 0000[0x1b] 0364 2000 0d6f | o| .XXX[0x24] 0366 0854 0581 | T | 0368 0000 00ed | | 036a db64 b808 | d | 036c 0040 004d | @ M| 036e 0000 0003 | | 0370 b6a0 0002 | | 0372 0000 0003 | | 0374 8014 0000 | | 0376 0004 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0029 0000 | ) | 0380 1010 0445 | E| 0382 0000 1010 | | 0384 0449 0000 | I | 0386 1010 044c | L| 0388 0000 0000 | | .BLANK 0000[0x15] 039d 0400 01ad | | .XXX[0x2d] 039f e10a 80b0 | | 03a1 2100 001d |! | 03a3 bb6c 9701 | l | 03a5 0008 0009 | | 03a7 a000 0000 | | 03a9 76d4 0000 |v | 03ab 6000 0000 |` | 03ad b002 8000 | | 03af 0000 8000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 2000 | | 03b9 0302 008b | | 03bb 2000 0302 | | 03bd 008b a000 | | 03bf 0302 008c | | 03c1 2000 0302 | | 03c3 008c 8000 | | 03c5 0000 0000 | | 03c7 2000 0302 | | 03c9 008d | | 03ca 0000 0000 | | .BLANK 0000[0xc] 03d6 0080 0035 | 5| .XXX[0x3] 03d8 bc00 | | 03d9 0000 0000 | | .BLANK 0000[0x13] 03ec 0017 acfe | | .XXX[0x14] 03ee 0000 0000 | | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 0000 0000 | | 03f6 0000 0024 | $| 03f8 ff74 003e | t >| 03fa 0800 0001 | | 03fc 0000 0000 | | 03fe 0000 000e | |