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