|
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]