|
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 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 01a0 | | .XXX[0x4b]
02b8 0000 0107 | |
02ba 2656 7696 |&Vv |
02bc f6e2 e756 | V|
02be e636 f6d6 | 6 |
02c0 d656 e740 | V @|
02c2 0000 0090 | |
02c4 0000 0212 | |
02c6 1436 f6d6 | 6 |
02c8 d616 e647 | G|
02ca 32e4 5646 |2 VF|
02cc 9746 f722 | F "|
02ce e526 5676 | &Vv|
02d0 96f6 e2e5 | |
02d2 56e6 36f6 |V 6 |
02d4 d6d6 56e7 | V |
02d6 4000 0000 |@ |
02d8 005a 90b5 | Z |
02da c016 3450 | 4P|
02dc 5a90 fb50 |Z P|
02de 5a91 25e0 |Z % |
02e0 0000 00d0 | |
02e2 0000 005b | [|
02e4 932b 3b4b | +;K|
02e6 7b71 736b |{qsk|
02e8 7bb3 2800 |{ ( |
02ea 0000 4800 | H |
02ec 0000 e10a | |
02ee 1b7b 6b6b | {kk|
02f0 0b73 2399 | s# |
02f2 722b 234b |r+#K|
02f4 a37b 9172 | { r|
02f6 932b 3b4b | +;K|
02f8 7b71 726b |{qrk|
02fa 7bb3 2800 |{ ( |
02fc 0000 002d | -|
02fe 486f e80b |Ho |
0300 1ea0 | |
0301 0000 0000 | | .BLANK 0000[0x5]
0306 007c 0000 | | | .XXX[0x7d]
0308 0039 c995 | 9 |
030a a995 8dd1 | |
030c 7d91 95d1 |} |
030e 85a5 b1cc | |
0310 0000 0024 | $|
0312 0000 0090 | |
0314 8551 bdbd | Q |
0316 b1cc b939 | 9|
0318 95d1 ddbd | |
031a c9ad a5b9 | |
031c 9cb9 49c1 | I |
031e 8cb9 4995 | I |
0320 a995 8dd1 | |
0322 7d11 95d1 |} |
0324 85a5 b1cc | |
0326 0000 0000 | |
0328 16a4 4138 | A8|
032a 0591 8c00 | |
032c 0000 0016 | |
032e a45f 5e00 | _^ |
0330 0000 d000 | |
0332 0000 7ee4 | ~ |
0334 cad8 cac2 | |
0336 e6ca 5ce4 | \ |
0338 c2e8 d2de | |
033a dcc2 d8be | |
033c 6462 6c6e |dbln|
033e 5ce0 c8d8 |\ |
0340 bec6 deda | |
0342 dac2 dcc8 | |
0344 e65c e4ca | \ |
0346 ecdc 5cea | \ |
0348 dcd2 e8e6 | |
034a 5cc8 cae6 |\ |
034c d2ce dc5c | \|
034e c8ca ccd2 | |
0350 dcd2 e8d2 | |
0352 dedc 0000 | |
0354 00b4 0000 | |
0356 009a 42a8 | B |
0358 dede d8e6 | |
035a 5c88 cae6 |\ |
035c d2ce dc5c | \|
035e a4ca d8ca | |
0360 c2e6 ca5c | \|
0362 a4c2 e8d2 | |
0364 dedc c2d8 | |
0366 be64 626c | dbl|
0368 6e5c a0c8 |n\ |
036a d8be 86de | |
036c dada c2dc | |
036e c8e6 5ca4 | \ |
0370 caec dc5c | \|
0372 aadc d2e8 | |
0374 e65c 88ca | \ |
0376 e6d2 cedc | |
0378 5c88 cacc |\ |
037a d2dc d2e8 | |
037c d2de dc00 | |
037e 0000 000b | |
0380 5225 ee02 |R% |
0382 c9e4 | |
0383 0000 0000 | | .BLANK 0000[0x5]
0388 004e 0000 | N | .XXX[0x78]
038a 0003 7275 | ru|
038c 6e00 0000 |n |
038e 1800 0000 | |
0390 2621 436f |&!Co|
0392 6d6d 616e |mman|
0394 6473 2e53 |ds.S|
0396 6368 6564 |ched|
0398 756c 6572 |uler|
039a 2e47 6574 |.Get|
039c 5f52 756e |_Run|
039e 5f51 7565 |_Que|
03a0 7565 5f4c |ue_L|
03a2 6f61 6400 |oad |
03a4 0000 1500 | |
03a6 0000 1421 | !|
03a8 436f 6d6d |Comm|
03aa 616e 6473 |ands|
03ac 2e52 656d |.Rem|
03ae 6f74 652e |ote.|
03b0 5275 6e00 |Run |
03b2 0000 6100 | a |
03b4 0000 1921 | !|
03b6 436f 6d6d |Comm|
03b8 616e 6473 |ands|
03ba 2e50 726f |.Pro|
03bc 6772 616d |gram|
03be 2e52 756e |.Run|
03c0 5f4a 6f62 |_Job|
03c2 0000 0025 | %|
03c4 0000 0015 | |
03c6 2143 6f6d |!Com|
03c8 6d61 6e64 |mand|
03ca 732e 5072 |s.Pr|
03cc 6f67 7261 |ogra|
03ce 6d2e 5275 |m.Ru|
03d0 6e00 0000 |n |
03d2 6200 0000 |b |
03d4 1321 436f | !Co|
03d6 6d6d 616e |mman|
03d8 6473 2e44 |ds.D|
03da 6562 7567 |ebug|
03dc 2e52 756e |.Run|
03de 0000 0086 | |
03e0 0000 0014 | |
03e2 2143 6f6d |!Com|
03e4 6d61 6e64 |mand|
03e6 732e 4461 |s.Da|
03e8 656d 6f6e |emon|
03ea 2e52 756e |.Run|
03ec 0000 0045 | E|
03ee 0000 0019 | |
03f0 2143 6f6d |!Com|
03f2 6d61 6e64 |mand|
03f4 732e 4461 |s.Da|
03f6 656d 6f6e |emon|
03f8 2e4c 6173 |.Las|
03fa 745f 5275 |t_Ru|
03fc 6e00 0000 |n |
03fe 3600 0000 |6 |