|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 02b8 | | .CONST 0x02b8 ; 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 002e | . | .CONST 0x002e ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0007 | | .CONST 0x0007 ; Number of locals 001b INIT_0018: 001b 0092 0200 | | Action Push_String_Extended,0x200 ; "DDB" 001d e002 | | Load 0x0,0x2 001e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 001f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0020 e003 | | Load 0x0,0x3 0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0022 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0023 03f1 | | Declare_Variable Discrete,With_Value 0024 00e1 | | Load_Encached Boolean_Cache 0025 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0026 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 0028 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 002a 029f 009b | | Declare_Subprogram INIT_0098,For_Call 002c 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 002e BODY_0018: 002e e004 | | Load 0x0,0x4 002f 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0030 6802 |h | Jump_Zero 0x33 0031 8407 | | Call 0x2,0x7 0032 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0033 0092 0201 | | Action Push_String_Extended,0x201 ; "Operator Capability is required to use this command." 0035 e005 | | Load 0x0,0x5 0036 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0037 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e403 | | Load 0x2,0x3 003c 700d |p | Jump_Nonzero 0x4a 003d 4801 |H | Short_Literal 0x1 003e e005 | | Load 0x0,0x5 003f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0040 0092 0202 | | Action Push_String_Extended,0x202 ; " Pages Snap Space_Mark Object Name / Space Name" 0042 e005 | | Load 0x0,0x5 0043 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0044 0092 0203 | | Action Push_String_Extended,0x203 ; "------- ---- --------------- ---------------------------------------" 0046 e005 | | Load 0x0,0x5 0047 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0048 4801 |H | Short_Literal 0x1 0049 a403 | | Store_Unchecked 0x2,0x3 004a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004b 0000 0000 | | .BLANK 0000[0x5] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0069 | i | .CONST 0x0069 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0002 | | .CONST 0x0002 ; Number of locals 0053 INIT_0050: 0053 4801 |H | Short_Literal 0x1 0054 e7ff | | Load 0x3,-0x1 0055 00e9 | | Load_Encached String_Cache 0056 035b | [ | Declare_Type Array,Constrained 0057 0337 | 7 | Declare_Variable Array 0058 4801 |H | Short_Literal 0x1 0059 e7ff | | Load 0x3,-0x1 005a 00e9 | | Load_Encached String_Cache 005b 035b | [ | Declare_Type Array,Constrained 005c 0337 | 7 | Declare_Variable Array 005d 00d8 | | Load_Top At_Offset_0 005e 01dc | | Execute Vector,Last 005f 4801 |H | Short_Literal 0x1 0060 0263 | c | Execute Discrete,Above_Bound 0061 7005 |p | Jump_Nonzero 0x67 0062 4820 |H | Short_Literal 0x20 0063 e605 | | Load 0x3,0x5 0064 e603 | | Load 0x3,0x3 0065 01d6 | | Execute Vector,Field_Write 0066 3ffb |? | Loop_Increasing 0x62 0067 e602 | | Load 0x3,0x2 0068 01d4 | | Execute Vector,Structure_Write 0069 BODY_0050: 0069 e7fe | | Load 0x3,-0x2 006a 01db | | Execute Vector,Length 006b e7ff | | Load 0x3,-0x1 006c 027d | } | Execute Discrete,Greater 006d 6813 |h | Jump_Zero 0x81 006e e7fd | | Load 0x3,-0x3 006f 680f |h | Jump_Zero 0x7f 0070 e7fe | | Load 0x3,-0x2 0071 01dd | | Execute Vector,First 0072 e7fe | | Load 0x3,-0x2 0073 01dd | | Execute Vector,First 0074 e7ff | | Load 0x3,-0x1 0075 0273 | s | Execute Discrete,Plus 0076 0aff | | Execute_Immediate Plus,-0x1 0077 00d8 | | Load_Top At_Offset_0 0078 00e2 | | Load_Encached Integer_Cache 0079 0260 | ` | Execute Discrete,In_Type 007a 7001 |p | Jump_Nonzero 0x7c 007b 0801 | | Execute_Immediate Raise,0x1 007c e7fe | | Load 0x3,-0x2 007d 01cf | | Execute Vector,Slice_Read 007e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 007f e7fe | | Load 0x3,-0x2 0080 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0081 4801 |H | Short_Literal 0x1 0082 e7ff | | Load 0x3,-0x1 0083 e7fe | | Load 0x3,-0x2 0084 01db | | Execute Vector,Length 0085 0272 | r | Execute Discrete,Minus 0086 00d8 | | Load_Top At_Offset_0 0087 00e2 | | Load_Encached Integer_Cache 0088 0260 | ` | Execute Discrete,In_Type 0089 7001 |p | Jump_Nonzero 0x8b 008a 0801 | | Execute_Immediate Raise,0x1 008b e602 | | Load 0x3,0x2 008c 01cf | | Execute Vector,Slice_Read 008d e7fe | | Load 0x3,-0x2 008e 01cc | | Execute Vector,Catenate 008f 00e9 | | Load_Encached String_Cache 0090 01c6 | | Execute Vector,Convert_To_Formal 0091 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a0 | | .CONST 0x00a0 ; Address of begin 0099 00c4 | | .CONST 0x00c4 ; Address of exception handler 009a 0004 | | .CONST 0x0004 ; Number of locals 009b INIT_0098: 009b e006 | | Load 0x0,0x6 009c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 009d e006 | | Load 0x0,0x6 009e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 009f 00ec | | Load_Encached Diana_Tree_Cache 00a0 BODY_0098: 00a0 e7ff | | Load 0x3,-0x1 00a1 e003 | | Load 0x0,0x3 00a2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a3 e402 | | Load 0x2,0x2 00a4 027e | ~ | Execute Discrete,Not_Equal 00a5 6804 |h | Jump_Zero 0xaa 00a6 e7ff | | Load 0x3,-0x1 00a7 e007 | | Load 0x0,0x7 00a8 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 00a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00aa e006 | | Load 0x0,0x6 00ab 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00ac e006 | | Load 0x0,0x6 00ad 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00ae e7ff | | Load 0x3,-0x1 00af e003 | | Load 0x0,0x3 00b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b1 c602 | | Store 0x3,0x2 00b2 c603 | | Store 0x3,0x3 00b3 e603 | | Load 0x3,0x3 00b4 e602 | | Load 0x3,0x2 00b5 497d |I} | Short_Literal 0x17d 00b6 00eb | | Load_Encached Diana_Cache 00b7 0096 | | Execute Package,Entry 00b8 a604 | | Store_Unchecked 0x3,0x4 00b9 0092 0204 | | Action Push_String_Extended,0x204 ; "[DDB obj for:" 00bb e604 | | Load 0x3,0x4 00bc e008 | | Load 0x0,0x8 00bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00be 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00bf 01cc | | Execute Vector,Catenate 00c0 0092 0205 | | Action Push_String_Extended,0x205 ; "]" 00c2 01cc | | Execute Vector,Catenate 00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c4 TRAP_0098: 00c4 0007 | | Action Break_Optional 00c5 0092 0206 | | Action Push_String_Extended,0x206 ; "[Name unknown due to: " 00c7 e009 | | Load 0x0,0x9 00c8 180d | | Execute Package,Field_Execute,Field_Number 0xd 00c9 01cc | | Execute Vector,Catenate 00ca 0092 0205 | | Action Push_String_Extended,0x205 ; "]" 00cc 01cc | | Execute Vector,Catenate 00cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ce 0000 0000 | | .XXX[0x2] 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 e006 | | Load 0x0,0x6 00d6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00d7 0260 | ` | Execute Discrete,In_Type 00d8 7001 |p | Jump_Nonzero 0xda 00d9 0801 | | Execute_Immediate Raise,0x1 00da e5fe | | Load 0x2,-0x2 00db 00d8 | | Load_Top At_Offset_0 00dc e00a | | Load 0x0,0xa 00dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00de 0260 | ` | Execute Discrete,In_Type 00df 7001 |p | Jump_Nonzero 0xe1 00e0 0801 | | Execute_Immediate Raise,0x1 00e1 e5fd | | Load 0x2,-0x3 00e2 0007 | | Action Break_Optional 00e3 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 00e5 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 00e7 e00b | | Load 0x0,0xb 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 e00c | | Load 0x0,0xc 00ef e00d | | Load 0x0,0xd 00f0 480a |H | Short_Literal 0xa 00f1 029f 01db | | Declare_Subprogram INIT_01d8,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 e00b | | Load 0x0,0xb 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 e00b | | Load 0x0,0xb 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 e00b | | Load 0x0,0xb 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 6830 |h0 | Jump_Zero 0x13c 010c 0092 0207 | | Action Push_String_Extended,0x207 ; "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 0208 | | Action Push_String_Extended,0x208 ; ": limit =" 0114 01cc | | Execute Vector,Catenate 0115 e60e | | Load 0x3,0xe 0116 e00b | | Load 0x0,0xb 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 0209 | | Action Push_String_Extended,0x209 ; " cache =" 011e 01cc | | Execute Vector,Catenate 011f e60e | | Load 0x3,0xe 0120 e00b | | Load 0x0,0xb 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 020a | | Action Push_String_Extended,0x20a ; " disk =" 0128 01cc | | Execute Vector,Catenate 0129 e60e | | Load 0x3,0xe 012a e00b | | Load 0x0,0xb 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 020b | | Action Push_String_Extended,0x20b ; " modules =" 0132 01cc | | Execute Vector,Catenate 0133 e60e | | Load 0x3,0xe 0134 e00b | | Load 0x0,0xb 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 e005 | | Load 0x0,0x5 013b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 013c 00c8 | | Action Pop_Auxiliary_Range 013d 3fb9 |? | Loop_Increasing 0xf7 013e 00ce | | Action Pop_Auxiliary 013f e602 | | Load 0x3,0x2 0140 7009 |p | Jump_Nonzero 0x14a 0141 00cf | | Action Mark_Auxiliary 0142 4bff |K | Short_Literal 0x3ff 0143 4801 |H | Short_Literal 0x1 0144 0007 | | Action Break_Optional 0145 860b | | Call 0x3,0xb 0146 00c8 | | Action Pop_Auxiliary_Range 0147 3ffd |? | Loop_Increasing 0x145 0148 00ce | | Action Pop_Auxiliary 0149 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014a e602 | | Load 0x3,0x2 014b 0c01 | | Execute_Immediate Greater_Equal,0x1 014c 6817 |h | Jump_Zero 0x164 014d e602 | | Load 0x3,0x2 014e 4bff |K | Short_Literal 0x3ff 014f 027c | | | Execute Discrete,Less 0150 6813 |h | Jump_Zero 0x164 0151 0092 020c | | Action Push_String_Extended,0x20c ; "traversing" 0153 e602 | | Load 0x3,0x2 0154 00e0 | | Load_Encached Standard_Cache 0155 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0156 01cc | | Execute Vector,Catenate 0157 e005 | | Load 0x0,0x5 0158 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0159 e602 | | Load 0x3,0x2 015a 4807 |H | Short_Literal 0x7 015b 4803 |H | Short_Literal 0x3 015c 0099 | | Action Reference_Dynamic 015d 4808 |H | Short_Literal 0x8 015e 4803 |H | Short_Literal 0x3 015f 0099 | | Action Reference_Dynamic 0160 e00b | | Load 0x0,0xb 0161 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0162 180f | | Execute Package,Field_Execute,Field_Number 0xf 0163 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0164 0092 020d | | Action Push_String_Extended,0x20d ; "VP value is illegal" 0166 e005 | | Load 0x0,0x5 0167 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0168 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0182 | | .CONST 0x0182 ; Address of begin 0171 019a | | .CONST 0x019a ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e9fe | | Load 0x4,-0x2 0174 e00e | | Load 0x0,0xe 0175 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0176 00d8 | | Load_Top At_Offset_0 0177 e003 | | Load 0x0,0x3 0178 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0179 1b0e | | Execute Package,Field_Read,Field_Number 0xe 017a 0260 | ` | Execute Discrete,In_Type 017b 7001 |p | Jump_Nonzero 0x17d 017c 0801 | | Execute_Immediate Raise,0x1 017d e003 | | Load 0x0,0x3 017e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 017f 1c08 | | Execute_Immediate Run_Utility,0x8 0180 00d8 | | Load_Top At_Offset_0 0181 1c00 | | Execute_Immediate Run_Utility,0x0 0182 BODY_0170: 0182 00d8 | | Load_Top At_Offset_0 0183 4801 |H | Short_Literal 0x1 0184 e9fe | | Load 0x4,-0x2 0185 e00e | | Load 0x0,0xe 0186 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0187 00d8 | | Load_Top At_Offset_0 0188 e003 | | Load 0x0,0x3 0189 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018a 0260 | ` | Execute Discrete,In_Type 018b 7001 |p | Jump_Nonzero 0x18d 018c 0801 | | Execute_Immediate Raise,0x1 018d e003 | | Load 0x0,0x3 018e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 018f 00d1 | | Pop_Control Pop_Count_1 0190 00d8 | | Load_Top At_Offset_0 0191 8406 | | Call 0x2,0x6 0192 0092 020e | | Action Push_String_Extended,0x20e ; " " 0194 01cc | | Execute Vector,Catenate 0195 e9ff | | Load 0x4,-0x1 0196 e00f | | Load 0x0,0xf 0197 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0198 01cc | | Execute Vector,Catenate 0199 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019a TRAP_0170: 019a 0007 | | Action Break_Optional 019b 0092 020f | | Action Push_String_Extended,0x20f ; " (exc) & & vm.space_address_image(the_space); " 019d e802 | | Load 0x4,0x2 019e e003 | | Load 0x0,0x3 019f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a0 01cc | | Execute Vector,Catenate 01a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a2 0000 0000 | | .BLANK 0000[0x6] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab e9ff | | Load 0x4,-0x1 01ac 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01ad e604 | | Load 0x3,0x4 01ae 027d | } | Execute Discrete,Greater 01af 6824 |h$ | Jump_Zero 0x1d4 01b0 8404 | | Call 0x2,0x4 01b1 4800 |H | Short_Literal 0x0 01b2 e9ff | | Load 0x4,-0x1 01b3 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01b4 00e0 | | Load_Encached Standard_Cache 01b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b6 4807 |H | Short_Literal 0x7 01b7 8405 | | Call 0x2,0x5 01b8 4800 |H | Short_Literal 0x0 01b9 e9ff | | Load 0x4,-0x1 01ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01bb 00e0 | | Load_Encached Standard_Cache 01bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01bd 4805 |H | Short_Literal 0x5 01be 8405 | | Call 0x2,0x5 01bf 01cc | | Execute Vector,Catenate 01c0 4801 |H | Short_Literal 0x1 01c1 e9ff | | Load 0x4,-0x1 01c2 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 01c3 e00b | | Load 0x0,0xb 01c4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01c5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01c6 480f |H | Short_Literal 0xf 01c7 8405 | | Call 0x2,0x5 01c8 01cc | | Execute Vector,Catenate 01c9 0092 020e | | Action Push_String_Extended,0x20e ; " " 01cb 01cc | | Execute Vector,Catenate 01cc e9ff | | Load 0x4,-0x1 01cd 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 01ce e9ff | | Load 0x4,-0x1 01cf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d0 8605 | | Call 0x3,0x5 01d1 01cc | | Execute Vector,Catenate 01d2 e005 | | Load 0x0,0x5 01d3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01de | | .CONST 0x01de ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db 00e1 | | Load_Encached Boolean_Cache 01dc e00a | | Load 0x0,0xa 01dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01de BODY_01d8: 01de e00a | | Load 0x0,0xa 01df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e0 00e1 | | Load_Encached Boolean_Cache 01e1 e60e | | Load 0x3,0xe 01e2 e010 | | Load 0x0,0x10 01e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e5 c802 | | Store 0x4,0x2 01e6 c803 | | Store 0x4,0x3 01e7 e802 | | Load 0x4,0x2 01e8 6816 |h | Jump_Zero 0x1ff 01e9 00d8 | | Load_Top At_Offset_0 01ea e603 | | Load 0x3,0x3 01eb 027f | | Execute Discrete,Equal 01ec 6812 |h | Jump_Zero 0x1ff 01ed 0092 020c | | Action Push_String_Extended,0x20c ; "traversing" 01ef e60e | | Load 0x3,0xe 01f0 00e0 | | Load_Encached Standard_Cache 01f1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f2 01cc | | Execute Vector,Catenate 01f3 e005 | | Load 0x0,0x5 01f4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01f5 e60e | | Load 0x3,0xe 01f6 4807 |H | Short_Literal 0x7 01f7 4803 |H | Short_Literal 0x3 01f8 0099 | | Action Reference_Dynamic 01f9 4808 |H | Short_Literal 0x8 01fa 4803 |H | Short_Literal 0x3 01fb 0099 | | Action Reference_Dynamic 01fc e00b | | Load 0x0,0xb 01fd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01fe 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0200 ; -------------------------------------------------------------------------------------- 0200 ; STRING TABLE 0200 ; -------------------------------------------------------------------------------------- 0200 0022 | " | .STRTAB 0x0022->0x0211 ; "DDB" 0201 0023 | # | .STRTAB 0x0023->0x0212 ; "Operator Capability is required to use this command." 0202 0055 | U | .STRTAB 0x0055->0x022c ; " Pages Snap Space_Mark Object Name / Space Name" 0203 008e | | .STRTAB 0x008e->0x024a ; "------- ---- --------------- ---------------------------------------" 0204 00d0 | | .STRTAB 0x00d0->0x026c ; "[DDB obj for:" 0205 00db | | .STRTAB 0x00db->0x0272 ; "]" 0206 00da | | .STRTAB 0x00da->0x0273 ; "[Name unknown due to: " 0207 00ee | | .STRTAB 0x00ee->0x027e ; "Job" 0208 00ef | | .STRTAB 0x00ef->0x027f ; ": limit =" 0209 00f6 | | .STRTAB 0x00f6->0x0284 ; " cache =" 020a 00fc | | .STRTAB 0x00fc->0x0288 ; " disk =" 020b 0101 | | .STRTAB 0x0101->0x028b ; " modules =" 020c 0109 | | .STRTAB 0x0109->0x0290 ; "traversing" 020d 0111 | | .STRTAB 0x0111->0x0295 ; "VP value is illegal" 020e 0122 | " | .STRTAB 0x0122->0x029f ; " " 020f 0122 | " | .STRTAB 0x0122->0x02a0 ; " (exc) & & vm.space_address_image(the_space); " 0210 014e | N | .STREND 0x014e->0x02b7 0211 4444 424f |DDBO| .STRTAB_STRINGS 02b7 0000 | | .XXX[0x1] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug Table 02b8 ; -------------------------------------------------------------------------------------- 02b8 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd35c,0x0000,0x0001,0x0000 02be 0000 0000 | | .BLANK 0000[0x142]