|
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_06e8fd
└─⟦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 02b0 | | .CONST 0x02b0 ; 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 0031 | 1 | .CONST 0x0031 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 001d 0007 | | Action Break_Optional 001e 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "DDB" 0020 e002 | | Load 0x0,0x2 0021 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0022 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0023 e003 | | Load 0x0,0x3 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0026 03f1 | | Declare_Variable Discrete,With_Value 0027 00e1 | | Load_Encached Boolean_Cache 0028 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0029 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 002b 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 002d 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 002f 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0031 BODY_0018: 0031 e004 | | Load 0x0,0x4 0032 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0033 6802 |h | Jump_Zero 0x36 0034 8408 | | Call 0x2,0x8 0035 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0036 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "Operator Capability is required to use this command." 0038 e001 | | Load 0x0,0x1 0039 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 003a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 003b 0000 0000 | | .BLANK 0000[0x5] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 e404 | | Load 0x2,0x4 0044 700d |p | Jump_Nonzero 0x52 0045 4801 |H | Short_Literal 0x1 0046 e001 | | Load 0x0,0x1 0047 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0048 0092 01f9 | | Action Push_String_Extended,0x1f9 ; " Pages Snap Space_Mark Object Name / Space Name" 004a e001 | | Load 0x0,0x1 004b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 004c 0092 01fa | | Action Push_String_Extended,0x1fa ; "------- ---- --------------- ---------------------------------------" 004e e001 | | Load 0x0,0x1 004f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0050 4801 |H | Short_Literal 0x1 0051 a404 | | Store_Unchecked 0x2,0x4 0052 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0053 0000 0000 | | .BLANK 0000[0x5] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 006f | o | .CONST 0x006f ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b 4801 |H | Short_Literal 0x1 005c e7ff | | Load 0x3,-0x1 005d 00e9 | | Load_Encached String_Cache 005e 0334 | 4 | Declare_Variable Array,With_Constraint 005f 4801 |H | Short_Literal 0x1 0060 e7ff | | Load 0x3,-0x1 0061 00e9 | | Load_Encached String_Cache 0062 0334 | 4 | Declare_Variable Array,With_Constraint 0063 00d8 | | Load_Top At_Offset_0 0064 01dc | | Execute Vector,Last 0065 4801 |H | Short_Literal 0x1 0066 0263 | c | Execute Discrete,Above_Bound 0067 7005 |p | Jump_Nonzero 0x6d 0068 4820 |H | Short_Literal 0x20 0069 e605 | | Load 0x3,0x5 006a e603 | | Load 0x3,0x3 006b 01d6 | | Execute Vector,Field_Write 006c 3ffb |? | Loop_Increasing 0x68 006d e602 | | Load 0x3,0x2 006e 01d4 | | Execute Vector,Structure_Write 006f BODY_0058: 006f e7fe | | Load 0x3,-0x2 0070 01db | | Execute Vector,Length 0071 e7ff | | Load 0x3,-0x1 0072 027d | } | Execute Discrete,Greater 0073 680f |h | Jump_Zero 0x83 0074 e7fd | | Load 0x3,-0x3 0075 680b |h | Jump_Zero 0x81 0076 e7fe | | Load 0x3,-0x2 0077 01dd | | Execute Vector,First 0078 e7fe | | Load 0x3,-0x2 0079 01dd | | Execute Vector,First 007a e7ff | | Load 0x3,-0x1 007b 0273 | s | Execute Discrete,Plus 007c 0aff | | Execute_Immediate Plus,-0x1 007d 0248 | H | Execute Discrete,Check_In_Integer 007e e7fe | | Load 0x3,-0x2 007f 01cf | | Execute Vector,Slice_Read 0080 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0081 e7fe | | Load 0x3,-0x2 0082 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0083 4801 |H | Short_Literal 0x1 0084 e7ff | | Load 0x3,-0x1 0085 e7fe | | Load 0x3,-0x2 0086 01db | | Execute Vector,Length 0087 0272 | r | Execute Discrete,Minus 0088 0248 | H | Execute Discrete,Check_In_Integer 0089 e602 | | Load 0x3,0x2 008a 01cf | | Execute Vector,Slice_Read 008b e7fe | | Load 0x3,-0x2 008c 01cc | | Execute Vector,Catenate 008d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009b | | .CONST 0x009b ; Address of begin 0091 00bf | | .CONST 0x00bf ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e005 | | Load 0x0,0x5 0094 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0095 e005 | | Load 0x0,0x5 0096 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0097 00ec | | Load_Encached Diana_Tree_Cache 0098 02c7 | | Declare_Variable Any 0099 00d8 | | Load_Top At_Offset_0 009a 1c00 | | Execute_Immediate Run_Utility,0x0 009b BODY_0090: 009b e7ff | | Load 0x3,-0x1 009c e003 | | Load 0x0,0x3 009d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 009e e403 | | Load 0x2,0x3 009f 027e | ~ | Execute Discrete,Not_Equal 00a0 6804 |h | Jump_Zero 0xa5 00a1 e7ff | | Load 0x3,-0x1 00a2 e006 | | Load 0x0,0x6 00a3 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a5 e005 | | Load 0x0,0x5 00a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00a7 e005 | | Load 0x0,0x5 00a8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00a9 e7ff | | Load 0x3,-0x1 00aa e003 | | Load 0x0,0x3 00ab 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ac c602 | | Store 0x3,0x2 00ad c603 | | Store 0x3,0x3 00ae e603 | | Load 0x3,0x3 00af e602 | | Load 0x3,0x2 00b0 497d |I} | Short_Literal 0x17d 00b1 00eb | | Load_Encached Diana_Cache 00b2 0096 | | Execute Package,Entry 00b3 c604 | | Store 0x3,0x4 00b4 0092 01fb | | Action Push_String_Extended,0x1fb ; "[DDB obj for:" 00b6 e604 | | Load 0x3,0x4 00b7 e007 | | Load 0x0,0x7 00b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00b9 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00ba 01cc | | Execute Vector,Catenate 00bb 0092 01fc | | Action Push_String_Extended,0x1fc ; "]" 00bd 01cc | | Execute Vector,Catenate 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf TRAP_0090: 00bf 0007 | | Action Break_Optional 00c0 0092 01fd | | Action Push_String_Extended,0x1fd ; "[Name unknown due to: " 00c2 e008 | | Load 0x0,0x8 00c3 180d | | Execute Package,Field_Execute,Field_Number 0xd 00c4 01cc | | Execute Vector,Catenate 00c5 0092 01fc | | Action Push_String_Extended,0x1fc ; "]" 00c7 01cc | | Execute Vector,Catenate 00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00f3 | | .CONST 0x00f3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 000b | | .CONST 0x000b ; Number of locals 00d3 INIT_00d0: 00d3 e5ff | | Load 0x2,-0x1 00d4 00d8 | | Load_Top At_Offset_0 00d5 e005 | | Load 0x0,0x5 00d6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00d7 0260 | ` | Execute Discrete,In_Type 00d8 7001 |p | Jump_Nonzero 0xda 00d9 08e0 | | Execute_Immediate Raise,0xe0 00da e5fe | | Load 0x2,-0x2 00db 00d8 | | Load_Top At_Offset_0 00dc e009 | | Load 0x0,0x9 00dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00de 0260 | ` | Execute Discrete,In_Type 00df 7001 |p | Jump_Nonzero 0xe1 00e0 08e0 | | Execute_Immediate Raise,0xe0 00e1 e5fd | | Load 0x2,-0x3 00e2 0007 | | Action Break_Optional 00e3 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 00e5 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 00e7 e00a | | Load 0x0,0xa 00e8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00e9 190f | | Execute Package,Field_Reference,Field_Number 0xf 00ea 00c6 | | Action Check_Subprogram_Elaborated 00eb 4806 |H | Short_Literal 0x6 00ec 4803 |H | Short_Literal 0x3 00ed 0099 | | Action Reference_Dynamic 00ee e00b | | Load 0x0,0xb 00ef e00c | | Load 0x0,0xc 00f0 480a |H | Short_Literal 0xa 00f1 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 00f3 BODY_00d0: 00f3 00cf | | Action Mark_Auxiliary 00f4 48ff |H | Short_Literal 0xff 00f5 4801 |H | Short_Literal 0x1 00f6 0007 | | Action Break_Optional 00f7 00d8 | | Load_Top At_Offset_0 00f8 e00a | | Load 0x0,0xa 00f9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00fa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00fb e604 | | Load 0x3,0x4 00fc 027d | } | Execute Discrete,Greater 00fd 700e |p | Jump_Nonzero 0x10c 00fe 00d8 | | Load_Top At_Offset_0 00ff e00a | | Load 0x0,0xa 0100 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0101 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0102 e604 | | Load 0x3,0x4 0103 027d | } | Execute Discrete,Greater 0104 7007 |p | Jump_Nonzero 0x10c 0105 00d8 | | Load_Top At_Offset_0 0106 e00a | | Load 0x0,0xa 0107 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0108 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0109 e604 | | Load 0x3,0x4 010a 027d | } | Execute Discrete,Greater 010b 682f |h/ | Jump_Zero 0x13b 010c 0092 01fe | | Action Push_String_Extended,0x1fe ; "Job" 010e e60e | | Load 0x3,0xe 010f 00e0 | | Load_Encached Standard_Cache 0110 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0111 01cc | | Execute Vector,Catenate 0112 0092 01ff | | Action Push_String_Extended,0x1ff ; ": limit =" 0114 01cc | | Execute Vector,Catenate 0115 e60e | | Load 0x3,0xe 0116 e00a | | Load 0x0,0xa 0117 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0118 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0119 00e0 | | Load_Encached Standard_Cache 011a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 011b 01cc | | Execute Vector,Catenate 011c 0092 0200 | | Action Push_String_Extended,0x200 ; " cache =" 011e 01cc | | Execute Vector,Catenate 011f e60e | | Load 0x3,0xe 0120 e00a | | Load 0x0,0xa 0121 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0122 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0123 00e0 | | Load_Encached Standard_Cache 0124 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0125 01cc | | Execute Vector,Catenate 0126 0092 0201 | | Action Push_String_Extended,0x201 ; " disk =" 0128 01cc | | Execute Vector,Catenate 0129 e60e | | Load 0x3,0xe 012a e00a | | Load 0x0,0xa 012b 1b15 | | Execute Package,Field_Read,Field_Number 0x15 012c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012d 00e0 | | Load_Encached Standard_Cache 012e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 012f 01cc | | Execute Vector,Catenate 0130 0092 0202 | | Action Push_String_Extended,0x202 ; " modules =" 0132 01cc | | Execute Vector,Catenate 0133 e60e | | Load 0x3,0xe 0134 e00a | | Load 0x0,0xa 0135 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0136 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0137 00e0 | | Load_Encached Standard_Cache 0138 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0139 01cc | | Execute Vector,Catenate 013a 8402 | | Call 0x2,0x2 013b 00c8 | | Action Pop_Auxiliary_Range 013c 3fba |? | Loop_Increasing 0xf7 013d 00ce | | Action Pop_Auxiliary 013e e602 | | Load 0x3,0x2 013f 7009 |p | Jump_Nonzero 0x149 0140 00cf | | Action Mark_Auxiliary 0141 4bff |K | Short_Literal 0x3ff 0142 4801 |H | Short_Literal 0x1 0143 0007 | | Action Break_Optional 0144 860b | | Call 0x3,0xb 0145 00c8 | | Action Pop_Auxiliary_Range 0146 3ffd |? | Loop_Increasing 0x144 0147 00ce | | Action Pop_Auxiliary 0148 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0149 e602 | | Load 0x3,0x2 014a 0c01 | | Execute_Immediate Greater_Equal,0x1 014b 6816 |h | Jump_Zero 0x162 014c e602 | | Load 0x3,0x2 014d 4bff |K | Short_Literal 0x3ff 014e 027c | | | Execute Discrete,Less 014f 6812 |h | Jump_Zero 0x162 0150 0092 0203 | | Action Push_String_Extended,0x203 ; "traversing" 0152 e602 | | Load 0x3,0x2 0153 00e0 | | Load_Encached Standard_Cache 0154 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0155 01cc | | Execute Vector,Catenate 0156 8402 | | Call 0x2,0x2 0157 e602 | | Load 0x3,0x2 0158 4807 |H | Short_Literal 0x7 0159 4803 |H | Short_Literal 0x3 015a 0099 | | Action Reference_Dynamic 015b 4808 |H | Short_Literal 0x8 015c 4803 |H | Short_Literal 0x3 015d 0099 | | Action Reference_Dynamic 015e e00a | | Load 0x0,0xa 015f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0160 180f | | Execute Package,Field_Execute,Field_Number 0xf 0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0162 0092 0204 | | Action Push_String_Extended,0x204 ; "VP value is illegal" 0164 8402 | | Call 0x2,0x2 0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 017a | z | .CONST 0x017a ; Address of begin 0169 0192 | | .CONST 0x0192 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b e9fe | | Load 0x4,-0x2 016c e00d | | Load 0x0,0xd 016d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 016e 00d8 | | Load_Top At_Offset_0 016f e003 | | Load 0x0,0x3 0170 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0171 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0172 0260 | ` | Execute Discrete,In_Type 0173 7001 |p | Jump_Nonzero 0x175 0174 08e0 | | Execute_Immediate Raise,0xe0 0175 e003 | | Load 0x0,0x3 0176 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0177 1c08 | | Execute_Immediate Run_Utility,0x8 0178 00d8 | | Load_Top At_Offset_0 0179 1c00 | | Execute_Immediate Run_Utility,0x0 017a BODY_0168: 017a 00d8 | | Load_Top At_Offset_0 017b 4801 |H | Short_Literal 0x1 017c e9fe | | Load 0x4,-0x2 017d e00d | | Load 0x0,0xd 017e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 017f 00d8 | | Load_Top At_Offset_0 0180 e003 | | Load 0x0,0x3 0181 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0182 0260 | ` | Execute Discrete,In_Type 0183 7001 |p | Jump_Nonzero 0x185 0184 08e0 | | Execute_Immediate Raise,0xe0 0185 e003 | | Load 0x0,0x3 0186 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0187 00d1 | | Pop_Control Pop_Count_1 0188 00d8 | | Load_Top At_Offset_0 0189 8407 | | Call 0x2,0x7 018a 0092 0205 | | Action Push_String_Extended,0x205 ; " " 018c 01cc | | Execute Vector,Catenate 018d e9ff | | Load 0x4,-0x1 018e e00e | | Load 0x0,0xe 018f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0190 01cc | | Execute Vector,Catenate 0191 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0192 TRAP_0168: 0192 0007 | | Action Break_Optional 0193 0092 0206 | | Action Push_String_Extended,0x206 ; " (exc) & & vm.space_address_image(the_space); " 0195 e802 | | Load 0x4,0x2 0196 e003 | | Load 0x0,0x3 0197 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0198 01cc | | Execute Vector,Catenate 0199 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019a 0000 0000 | | .BLANK 0000[0x6] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 e9ff | | Load 0x4,-0x1 01a4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01a5 e604 | | Load 0x3,0x4 01a6 027d | } | Execute Discrete,Greater 01a7 6823 |h# | Jump_Zero 0x1cb 01a8 8405 | | Call 0x2,0x5 01a9 4800 |H | Short_Literal 0x0 01aa e9ff | | Load 0x4,-0x1 01ab 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01ac 00e0 | | Load_Encached Standard_Cache 01ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ae 4807 |H | Short_Literal 0x7 01af 8406 | | Call 0x2,0x6 01b0 4800 |H | Short_Literal 0x0 01b1 e9ff | | Load 0x4,-0x1 01b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b3 00e0 | | Load_Encached Standard_Cache 01b4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b5 4805 |H | Short_Literal 0x5 01b6 8406 | | Call 0x2,0x6 01b7 01cc | | Execute Vector,Catenate 01b8 4801 |H | Short_Literal 0x1 01b9 e9ff | | Load 0x4,-0x1 01ba 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 01bb e00a | | Load 0x0,0xa 01bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01bd 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01be 480f |H | Short_Literal 0xf 01bf 8406 | | Call 0x2,0x6 01c0 01cc | | Execute Vector,Catenate 01c1 0092 0205 | | Action Push_String_Extended,0x205 ; " " 01c3 01cc | | Execute Vector,Catenate 01c4 e9ff | | Load 0x4,-0x1 01c5 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 01c6 e9ff | | Load 0x4,-0x1 01c7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01c8 8605 | | Call 0x3,0x5 01c9 01cc | | Execute Vector,Catenate 01ca 8402 | | Call 0x2,0x2 01cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cc 0000 0000 | | .BLANK 0000[0x4] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d6 | | .CONST 0x01d6 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0003 | | .CONST 0x0003 ; Number of locals 01d3 INIT_01d0: 01d3 00e1 | | Load_Encached Boolean_Cache 01d4 e009 | | Load 0x0,0x9 01d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d6 BODY_01d0: 01d6 e009 | | Load 0x0,0x9 01d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d8 00e1 | | Load_Encached Boolean_Cache 01d9 e60e | | Load 0x3,0xe 01da e00f | | Load 0x0,0xf 01db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01dd c802 | | Store 0x4,0x2 01de c803 | | Store 0x4,0x3 01df e802 | | Load 0x4,0x2 01e0 6815 |h | Jump_Zero 0x1f6 01e1 00d8 | | Load_Top At_Offset_0 01e2 e603 | | Load 0x3,0x3 01e3 027f | | Execute Discrete,Equal 01e4 6811 |h | Jump_Zero 0x1f6 01e5 0092 0203 | | Action Push_String_Extended,0x203 ; "traversing" 01e7 e60e | | Load 0x3,0xe 01e8 00e0 | | Load_Encached Standard_Cache 01e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ea 01cc | | Execute Vector,Catenate 01eb 8402 | | Call 0x2,0x2 01ec e60e | | Load 0x3,0xe 01ed 4807 |H | Short_Literal 0x7 01ee 4803 |H | Short_Literal 0x3 01ef 0099 | | Action Reference_Dynamic 01f0 4808 |H | Short_Literal 0x8 01f1 4803 |H | Short_Literal 0x3 01f2 0099 | | Action Reference_Dynamic 01f3 e00a | | Load 0x0,0xa 01f4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01f5 180f | | Execute Package,Field_Execute,Field_Number 0xf 01f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f7 ; -------------------------------------------------------------------------------------- 01f7 ; STRING TABLE 01f7 ; -------------------------------------------------------------------------------------- 01f7 0022 | " | .STRTAB 0x0022->0x0208 ; "DDB" 01f8 0023 | # | .STRTAB 0x0023->0x0209 ; "Operator Capability is required to use this command." 01f9 0055 | U | .STRTAB 0x0055->0x0223 ; " Pages Snap Space_Mark Object Name / Space Name" 01fa 008e | | .STRTAB 0x008e->0x0241 ; "------- ---- --------------- ---------------------------------------" 01fb 00d0 | | .STRTAB 0x00d0->0x0263 ; "[DDB obj for:" 01fc 00db | | .STRTAB 0x00db->0x0269 ; "]" 01fd 00da | | .STRTAB 0x00da->0x026a ; "[Name unknown due to: " 01fe 00ee | | .STRTAB 0x00ee->0x0275 ; "Job" 01ff 00ef | | .STRTAB 0x00ef->0x0276 ; ": limit =" 0200 00f6 | | .STRTAB 0x00f6->0x027b ; " cache =" 0201 00fc | | .STRTAB 0x00fc->0x027f ; " disk =" 0202 0101 | | .STRTAB 0x0101->0x0282 ; " modules =" 0203 0109 | | .STRTAB 0x0109->0x0287 ; "traversing" 0204 0111 | | .STRTAB 0x0111->0x028c ; "VP value is illegal" 0205 0122 | " | .STRTAB 0x0122->0x0296 ; " " 0206 0122 | " | .STRTAB 0x0122->0x0297 ; " (exc) & & vm.space_address_image(the_space); " 0207 014e | N | .STREND 0x014e->0x02ae 0208 4444 424f |DDBO| .STRTAB_STRINGS 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug Table 02b0 ; -------------------------------------------------------------------------------------- 02b0 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb68,0x0000,0x0001,0x0000 02b6 0000 0000 | | .BLANK 0000[0x4a] 0300 075b 2404 | [$ | .XXX[0x4] 0302 0000 23d8 | # | 0304 0000 0000 | | .BLANK 0000[0x4] 0308 0001 0404 | | .XXX[0x5] 030a 0800 0400 | | 030c 8000 | | 030d 0000 0000 | | .BLANK 0000[0x1a] 0327 0001 | | .XXX[0x1] 0328 0000 0000 | | .BLANK 0000[0x7] 032f 0004 | | .XXX[0x1] 0330 0000 0000 | | .BLANK 0000[0xbc] 03ec 00d6 c907 | | .XXX[0x14] 03ee 035f 2004 | _ | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 00d6 c907 | | 03f6 035f 3260 | _2`| 03f8 fffe 000e | | 03fa 0000 0001 | | 03fc 0000 0000 | | 03fe 0000 000e | |