|
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: 1024 (0x400)
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 0188 | | .CONST 0x0188 ; 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 8000 | | .CONST 0x8000 ; 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 0068 | h | .CONST 0x0068 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000d | | .CONST 0x000d ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c e002 | | Load 0x0,0x2
001d 4804 |H | Short_Literal 0x4
001e 0092 0161 | a| Action Push_String_Extended,0x161 ; " "
0020 e003 | | Load 0x0,0x3
0021 0387 | | Declare_Variable Package
0022 00d8 | | Load_Top At_Offset_0
0023 020f | | Execute Module,Activate
0024 e004 | | Load 0x0,0x4
0025 e005 | | Load 0x0,0x5
0026 4802 |H | Short_Literal 0x2
0027 0092 0161 | a| Action Push_String_Extended,0x161 ; " "
0029 e003 | | Load 0x0,0x3
002a 0387 | | Declare_Variable Package
002b 00d8 | | Load_Top At_Offset_0
002c 020f | | Execute Module,Activate
002d e006 | | Load 0x0,0x6
002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002f 4800 |H | Short_Literal 0x0
0030 481f |H | Short_Literal 0x1f
0031 00e5 | | Load_Encached Long_Integer_Cache
0032 02a0 | | Declare_Subprogram Null_Subprogram
0033 4801 |H | Short_Literal 0x1
0034 035d | ] | Declare_Type Array,Defined
0035 00d8 | | Load_Top At_Offset_0
0036 0337 | 7 | Declare_Variable Array
0037 00d8 | | Load_Top At_Offset_0
0038 0335 | 5 | Declare_Variable Array,Duplicate
0039 00cd | | Action Spare6_Action
003a 481f |H | Short_Literal 0x1f
003b 4800 |H | Short_Literal 0x0
003c 4800 |H | Short_Literal 0x0
003d e409 | | Load 0x2,0x9
003e e407 | | Load 0x2,0x7
003f 01d6 | | Execute Vector,Field_Write
0040 3ffb |? | Loop_Increasing 0x3c
0041 e406 | | Load 0x2,0x6
0042 01d4 | | Execute Vector,Structure_Write
0043 00e5 | | Load_Encached Long_Integer_Cache
0044 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0045 4801 |H | Short_Literal 0x1
0046 4802 |H | Short_Literal 0x2
0047 e402 | | Load 0x2,0x2
0048 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0049 035b | [ | Declare_Type Array,Constrained
004a 0337 | 7 | Declare_Variable Array
004b 00d8 | | Load_Top At_Offset_0
004c 0335 | 5 | Declare_Variable Array,Duplicate
004d 00cd | | Action Spare6_Action
004e e5ff | | Load 0x2,-0x1
004f 4801 |H | Short_Literal 0x1
0050 e409 | | Load 0x2,0x9
0051 01d6 | | Execute Vector,Field_Write
0052 4801 |H | Short_Literal 0x1
0053 4802 |H | Short_Literal 0x2
0054 e409 | | Load 0x2,0x9
0055 01d6 | | Execute Vector,Field_Write
0056 e408 | | Load 0x2,0x8
0057 01d4 | | Execute Vector,Structure_Write
0058 0092 0162 | b| Action Push_String_Extended,0x162 ; ".state"
005a e007 | | Load 0x0,0x7
005b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005c 02c7 | | Declare_Variable Any
005d 00d8 | | Load_Top At_Offset_0
005e 1c00 | | Execute_Immediate Run_Utility,0x0
005f e007 | | Load 0x0,0x7
0060 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0061 02c7 | | Declare_Variable Any
0062 00d8 | | Load_Top At_Offset_0
0063 1c00 | | Execute_Immediate Run_Utility,0x0
0064 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0066 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0068 BODY_0018:
0068 00be | | Action Activate_Tasks
0069 4800 |H | Short_Literal 0x0
006a 0092 0163 | c| Action Push_String_Extended,0x163 ; "Manager"
006c e402 | | Load 0x2,0x2
006d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
006e 4801 |H | Short_Literal 0x1
006f 0092 0164 | d| Action Push_String_Extended,0x164 ; "Size"
0071 e402 | | Load 0x2,0x2
0072 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0073 4801 |H | Short_Literal 0x1
0074 0092 0165 | e| Action Push_String_Extended,0x165 ; "VP"
0076 e402 | | Load 0x2,0x2
0077 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0078 4801 |H | Short_Literal 0x1
0079 0092 0166 | f| Action Push_String_Extended,0x166 ; "Volume"
007b e402 | | Load 0x2,0x2
007c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
007d e40b | | Load 0x2,0xb
007e e007 | | Load 0x0,0x7
007f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0080 c40b | | Store 0x2,0xb
0081 00cf | | Action Mark_Auxiliary
0082 7806 |x | Jump 0x89
0083 840d | | Call 0x2,0xd
0084 e40b | | Load 0x2,0xb
0085 e007 | | Load 0x0,0x7
0086 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0087 c40b | | Store 0x2,0xb
0088 00c9 | | Action Pop_Auxiliary_Loop
0089 e40b | | Load 0x2,0xb
008a e007 | | Load 0x0,0x7
008b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
008c 6ff6 |o | Jump_Zero 0x83
008d 00ce | | Action Pop_Auxiliary
008e e5ff | | Load 0x2,-0x1
008f 0274 | t | Execute Discrete,Absolute_Value
0090 0b01 | | Execute_Immediate Case_Compare,0x1
0091 700b |p | Jump_Nonzero 0x9d
0092 0b03 | | Execute_Immediate Case_Compare,0x3
0093 7009 |p | Jump_Nonzero 0x9d
0094 0b02 | | Execute_Immediate Case_Compare,0x2
0095 7009 |p | Jump_Nonzero 0x9f
0096 0f04 | | Execute_Immediate Equal,0x4
0097 700e |p | Jump_Nonzero 0xa6
0098 4801 |H | Short_Literal 0x1
0099 4801 |H | Short_Literal 0x1
009a e408 | | Load 0x2,0x8
009b 01d6 | | Execute Vector,Field_Write
009c 780d |x | Jump 0xaa
009d 00d1 | | Pop_Control Pop_Count_1
009e 780b |x | Jump 0xaa
009f 00d1 | | Pop_Control Pop_Count_1
00a0 e5ff | | Load 0x2,-0x1
00a1 0275 | u | Execute Discrete,Unary_Minus
00a2 4801 |H | Short_Literal 0x1
00a3 e408 | | Load 0x2,0x8
00a4 01d6 | | Execute Vector,Field_Write
00a5 7804 |x | Jump 0xaa
00a6 4ffe |O | Short_Literal -0x2
00a7 4802 |H | Short_Literal 0x2
00a8 e408 | | Load 0x2,0x8
00a9 01d6 | | Execute Vector,Field_Write
00aa e408 | | Load 0x2,0x8
00ab e402 | | Load 0x2,0x2
00ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00ad e008 | | Load 0x0,0x8
00ae 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00af e402 | | Load 0x2,0x2
00b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b1 4802 |H | Short_Literal 0x2
00b2 e008 | | Load 0x0,0x8
00b3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00b4 4800 |H | Short_Literal 0x0
00b5 0092 0167 | g| Action Push_String_Extended,0x167 ; "Volume "
00b7 e403 | | Load 0x2,0x3
00b8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b9 4801 |H | Short_Literal 0x1
00ba 0092 0168 | h| Action Push_String_Extended,0x168 ; "Used"
00bc e403 | | Load 0x2,0x3
00bd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00be 00cf | | Action Mark_Auxiliary
00bf 481f |H | Short_Literal 0x1f
00c0 4800 |H | Short_Literal 0x0
00c1 0007 | | Action Break_Optional
00c2 00d8 | | Load_Top At_Offset_0
00c3 e406 | | Load 0x2,0x6
00c4 01d7 | | Execute Vector,Field_Read
00c5 0c01 | | Execute_Immediate Greater_Equal,0x1
00c6 6812 |h | Jump_Zero 0xd9
00c7 e407 | | Load 0x2,0x7
00c8 e410 | | Load 0x2,0x10
00c9 e406 | | Load 0x2,0x6
00ca 01d7 | | Execute Vector,Field_Read
00cb 0273 | s | Execute Discrete,Plus
00cc a407 | | Store_Unchecked 0x2,0x7
00cd 00d8 | | Load_Top At_Offset_0
00ce 00e0 | | Load_Encached Standard_Cache
00cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d0 e403 | | Load 0x2,0x3
00d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d2 00d8 | | Load_Top At_Offset_0
00d3 e406 | | Load 0x2,0x6
00d4 01d7 | | Execute Vector,Field_Read
00d5 00e0 | | Load_Encached Standard_Cache
00d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d7 e403 | | Load 0x2,0x3
00d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d9 00c8 | | Action Pop_Auxiliary_Range
00da 3fe7 |? | Loop_Increasing 0xc2
00db 00ce | | Action Pop_Auxiliary
00dc 00ea | | Load_Encached Null_String_Cache
00dd e403 | | Load 0x2,0x3
00de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00df 00ea | | Load_Encached Null_String_Cache
00e0 e403 | | Load 0x2,0x3
00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e2 0092 0169 | i| Action Push_String_Extended,0x169 ; "Total"
00e4 e403 | | Load 0x2,0x3
00e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e6 e407 | | Load 0x2,0x7
00e7 00e0 | | Load_Encached Standard_Cache
00e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e9 e403 | | Load 0x2,0x3
00ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00eb e008 | | Load 0x0,0x8
00ec 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00ed e403 | | Load 0x2,0x3
00ee 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f8 | | .CONST 0x00f8 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0004 | | .CONST 0x0004 ; Number of locals
00f3 INIT_00f0:
00f3 e009 | | Load 0x0,0x9
00f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00f5 e404 | | Load 0x2,0x4
00f6 0007 | | Action Break_Optional
00f7 00e5 | | Load_Encached Long_Integer_Cache
00f8 BODY_00f0:
00f8 e40a | | Load 0x2,0xa
00f9 4865 |He | Short_Literal 0x65
00fa e7ff | | Load 0x3,-0x1
00fb e409 | | Load 0x2,0x9
00fc 01cc | | Execute Vector,Catenate
00fd 4800 |H | Short_Literal 0x0
00fe e007 | | Load 0x0,0x7
00ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0100 c40a | | Store 0x2,0xa
0101 e7ff | | Load 0x3,-0x1
0102 e00a | | Load 0x0,0xa
0103 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0104 e402 | | Load 0x2,0x2
0105 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0106 4800 |H | Short_Literal 0x0
0107 e40a | | Load 0x2,0xa
0108 e007 | | Load 0x0,0x7
0109 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010a 09f3 | | Execute_Immediate Binary_Scale,-0xd
010b a604 | | Store_Unchecked 0x3,0x4
010c 4820 |H | Short_Literal 0x20
010d 4806 |H | Short_Literal 0x6
010e 480a |H | Short_Literal 0xa
010f e604 | | Load 0x3,0x4
0110 e00a | | Load 0x0,0xa
0111 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0112 e402 | | Load 0x2,0x2
0113 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0114 4800 |H | Short_Literal 0x0
0115 e40a | | Load 0x2,0xa
0116 e007 | | Load 0x0,0x7
0117 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0118 e00b | | Load 0x0,0xb
0119 180f | | Execute Package,Field_Execute,Field_Number 0xf
011a a602 | | Store_Unchecked 0x3,0x2
011b e602 | | Load 0x3,0x2
011c 00e0 | | Load_Encached Standard_Cache
011d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
011e e402 | | Load 0x2,0x2
011f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0120 e602 | | Load 0x3,0x2
0121 e00c | | Load 0x0,0xc
0122 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0123 a603 | | Store_Unchecked 0x3,0x3
0124 e603 | | Load 0x3,0x3
0125 e406 | | Load 0x2,0x6
0126 01d7 | | Execute Vector,Field_Read
0127 e604 | | Load 0x3,0x4
0128 0273 | s | Execute Discrete,Plus
0129 e603 | | Load 0x3,0x3
012a e406 | | Load 0x2,0x6
012b 01d6 | | Execute Vector,Field_Write
012c e603 | | Load 0x3,0x3
012d 00e0 | | Load_Encached Standard_Cache
012e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
012f e402 | | Load 0x2,0x2
0130 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0131 e40a | | Load 0x2,0xa
0132 4800 |H | Short_Literal 0x0
0133 e007 | | Load 0x0,0x7
0134 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0135 c40a | | Store 0x2,0xa
0136 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013e | > | .CONST 0x013e ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b e40b | | Load 0x2,0xb
013c e007 | | Load 0x0,0x7
013d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
013e BODY_0138:
013e 00d8 | | Load_Top At_Offset_0
013f 01db | | Execute Vector,Length
0140 0c07 | | Execute_Immediate Greater_Equal,0x7
0141 681e |h | Jump_Zero 0x160
0142 4801 |H | Short_Literal 0x1
0143 e409 | | Load 0x2,0x9
0144 e602 | | Load 0x3,0x2
0145 01dc | | Execute Vector,Last
0146 0afb | | Execute_Immediate Plus,-0x5
0147 00d8 | | Load_Top At_Offset_0
0148 00e2 | | Load_Encached Integer_Cache
0149 0260 | ` | Execute Discrete,In_Type
014a 7001 |p | Jump_Nonzero 0x14c
014b 0801 | | Execute_Immediate Raise,0x1
014c e602 | | Load 0x3,0x2
014d 01dc | | Execute Vector,Last
014e e602 | | Load 0x3,0x2
014f 01cf | | Execute Vector,Slice_Read
0150 e00a | | Load 0x0,0xa
0151 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0152 680d |h | Jump_Zero 0x160
0153 00d8 | | Load_Top At_Offset_0
0154 01dd | | Execute Vector,First
0155 e602 | | Load 0x3,0x2
0156 01dc | | Execute Vector,Last
0157 0afa | | Execute_Immediate Plus,-0x6
0158 00d8 | | Load_Top At_Offset_0
0159 00e2 | | Load_Encached Integer_Cache
015a 0260 | ` | Execute Discrete,In_Type
015b 7001 |p | Jump_Nonzero 0x15d
015c 0801 | | Execute_Immediate Raise,0x1
015d e602 | | Load 0x3,0x2
015e 01cf | | Execute Vector,Slice_Read
015f 840c | | Call 0x2,0xc
0160 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0161 ; --------------------------------------------------------------------------------------
0161 ; STRING TABLE
0161 ; --------------------------------------------------------------------------------------
0161 0014 | | .STRTAB 0x0014->0x016b ; " "
0162 0013 | | .STRTAB 0x0013->0x016b ; ".state"
0163 0017 | | .STRTAB 0x0017->0x016e ; "Manager"
0164 001c | | .STRTAB 0x001c->0x0172 ; "Size"
0165 001e | | .STRTAB 0x001e->0x0174 ; "VP"
0166 001e | | .STRTAB 0x001e->0x0175 ; "Volume"
0167 0022 | " | .STRTAB 0x0022->0x0178 ; "Volume "
0168 002f | / | .STRTAB 0x002f->0x017f ; "Used"
0169 0031 | 1 | .STRTAB 0x0031->0x0181 ; "Total"
016a 0034 | 4 | .STREND 0x0034->0x0184
016b 202e 7374 | .st| .STRTAB_STRINGS
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0004 000d | | .DEBUG4 0x0004,0x000d,0x2332,0x0000,0x0001,0x0000
018e 8098 0e2e | .| .XXX[0x66]
0190 2098 10d4 | |
0192 e000 0005 | |
0194 4000 0000 |@ |
0196 5736 5747 |W6WG|
0198 5700 0000 |W |
019a 0090 0000 | |
019c 0582 1546 | F|
019e f6f6 c732 | 2|
01a0 e546 1726 | F &|
01a2 7657 45f4 |vWE |
01a4 2756 96c6 |'V |
01a6 45f5 5746 |E WF|
01a8 96c6 9747 | G|
01aa 92e5 2657 | &W|
01ac 66e2 e556 |f V|
01ae e697 4732 | G2|
01b0 e546 1726 | F &|
01b2 7657 45f4 |vWE |
01b4 2756 96c6 |'V |
01b6 4657 22e5 |FW" |
01b8 4726 16e7 |G& |
01ba 3666 5722 |6fW"|
01bc e507 5745 | WE|
01be f436 f6e7 | 6 |
01c0 4657 8745 |FW E|
01c2 f536 5747 | 6WG|
01c4 5705 f436 |W 6|
01c6 f6d6 d616 | |
01c8 e640 0000 | @ |
01ca 0000 4c07 | L |
01cc 9240 aec5 | @ |
01ce 3000 0000 |0 |
01d0 004c 07ee | L |
01d2 5800 0002 |X |
01d4 0800 0000 | |
01d6 4b9b 437b |K C{|
01d8 bafb 634b | cK|
01da 9ba0 0000 | |
01dc 0158 0000 | X |
01de 00f9 0a1b | |
01e0 7b6b 6b0b |{kk |
01e2 7323 9972 |s# r|
01e4 9b2b 0b93 | + |
01e6 1b42 fa63 | B c|
01e8 4b9b a172 |K r|
01ea 9b43 7bba | C{ |
01ec fa63 4b9b | cK |
01ee a000 0000 | |
01f0 0026 03e9 | & |
01f2 2857 6710 |(Wg |
01f4 0000 0000 | | .BLANK 0000[0x5]
01f9 013c 0000 | < | .XXX[0x7]
01fb 0051 cda1 | Q |
01fd bddd 7dc1 | } |
01ff 85cd | |