|
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_5850da
└─⟦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 0160 | ` | .CONST 0x0160 ; 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 0024 | $ | .CONST 0x0024 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 4800 |H | Short_Literal 0x0
000f 0093 0133 | 3| push_full_address INIT_0130
0011 02a0 | | Declare_Subprogram Null_Subprogram
0012 038e | | Declare_Type Package,Defined
0013 0387 | | Declare_Variable Package
0014 e001 | | Load 0x0,0x1
0015 e002 | | Load 0x0,0x2
0016 e003 | | Load 0x0,0x3
0017 4803 |H | Short_Literal 0x3
0018 e20e | | Load 0x1,0xe
0019 020e | | Execute Module,Augment_Imports
001a 00d8 | | Load_Top At_Offset_0
001b 020f | | Execute Module,Activate
001c 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call
001e 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call
0020 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call
0022 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0023 00c7 | | Action Elaborate_Subprogram
0024 BODY_0008:
0024 00bc | | Action Signal_Activated
0025 00bb | | Action Signal_Completion
0026 0000 0000 | | .XXX[0x2]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0035 | 5 | .CONST 0x0035 ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0004 | | .CONST 0x0004 ; Number of locals
002b INIT_0028:
002b 00ec | | Load_Encached Diana_Tree_Cache
002c 02c7 | | Declare_Variable Any
002d 00d8 | | Load_Top At_Offset_0
002e 1c00 | | Execute_Immediate Run_Utility,0x0
002f 00ec | | Load_Encached Diana_Tree_Cache
0030 02c7 | | Declare_Variable Any
0031 00d8 | | Load_Top At_Offset_0
0032 1c00 | | Execute_Immediate Run_Utility,0x0
0033 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0035 BODY_0028:
0035 e5ff | | Load 0x2,-0x1
0036 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0037 00d8 | | Load_Top At_Offset_0
0038 0d61 | a | Execute_Immediate Less,0x61
0039 7040 |p@ | Jump_Nonzero 0x7a
003a 00d8 | | Load_Top At_Offset_0
003b 0c89 | | Execute_Immediate Greater_Equal,-0x77
003c 7035 |p5 | Jump_Nonzero 0x72
003d 0a9f | | Execute_Immediate Plus,-0x61
003e 4627 |F' | Jump_Case 0x28
003f 785d |x] | Jump 0x9d ; case 0x0
0040 7832 |x2 | Jump 0x73 ; case 0x1
0041 7831 |x1 | Jump 0x73 ; case 0x2
0042 785f |x_ | Jump 0xa2 ; case 0x3
0043 785e |x^ | Jump 0xa2 ; case 0x4
0044 783a |x: | Jump 0x7f ; case 0x5
0045 782d |x- | Jump 0x73 ; case 0x6
0046 782c |x, | Jump 0x73 ; case 0x7
0047 782b |x+ | Jump 0x73 ; case 0x8
0048 782a |x* | Jump 0x73 ; case 0x9
0049 7829 |x) | Jump 0x73 ; case 0xa
004a 7828 |x( | Jump 0x73 ; case 0xb
004b 7837 |x7 | Jump 0x83 ; case 0xc
004c 7826 |x& | Jump 0x73 ; case 0xd
004d 7854 |xT | Jump 0xa2 ; case 0xe
004e 7875 |xu | Jump 0xc4 ; case 0xf
004f 7874 |xt | Jump 0xc4 ; case 0x10
0050 7822 |x" | Jump 0x73 ; case 0x11
0051 7821 |x! | Jump 0x73 ; case 0x12
0052 7820 |x | Jump 0x73 ; case 0x13
0053 781f |x | Jump 0x73 ; case 0x14
0054 781e |x | Jump 0x73 ; case 0x15
0055 781d |x | Jump 0x73 ; case 0x16
0056 781c |x | Jump 0x73 ; case 0x17
0057 781b |x | Jump 0x73 ; case 0x18
0058 781a |x | Jump 0x73 ; case 0x19
0059 7819 |x | Jump 0x73 ; case 0x1a
005a 7818 |x | Jump 0x73 ; case 0x1b
005b 7817 |x | Jump 0x73 ; case 0x1c
005c 7816 |x | Jump 0x73 ; case 0x1d
005d 7815 |x | Jump 0x73 ; case 0x1e
005e 7814 |x | Jump 0x73 ; case 0x1f
005f 7813 |x | Jump 0x73 ; case 0x20
0060 7812 |x | Jump 0x73 ; case 0x21
0061 7811 |x | Jump 0x73 ; case 0x22
0062 7810 |x | Jump 0x73 ; case 0x23
0063 780f |x | Jump 0x73 ; case 0x24
0064 780e |x | Jump 0x73 ; case 0x25
0065 780d |x | Jump 0x73 ; case 0x26
0066 7800 |x | Jump 0x67 ; case 0x27
0067 e5ff | | Load 0x2,-0x1
0068 00eb | | Load_Encached Diana_Cache
0069 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
006a 4976 |Iv | Short_Literal 0x176
006b 00eb | | Load_Encached Diana_Cache
006c 0098 | | Execute Package,Field_Read_Dynamic
006d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006e e20e | | Load 0x1,0xe
006f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0070 820d | | Call 0x1,0xd
0071 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0072 00d1 | | Pop_Control Pop_Count_1
0073 e5ff | | Load 0x2,-0x1
0074 00d8 | | Load_Top At_Offset_0
0075 0120 | | Execute Any,Is_Value
0076 7002 |p | Jump_Nonzero 0x79
0077 00d8 | | Load_Top At_Offset_0
0078 011e | | Execute Any,Convert
0079 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007a 480e |H | Short_Literal 0xe
007b 480f |H | Short_Literal 0xf
007c 0262 | b | Execute Discrete,In_Range
007d 701a |p | Jump_Nonzero 0x98
007e 7ff4 | | Jump 0x73
007f e5ff | | Load 0x2,-0x1
0080 8210 | | Call 0x1,0x10
0081 820d | | Call 0x1,0xd
0082 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0083 e5ff | | Load 0x2,-0x1
0084 00eb | | Load_Encached Diana_Cache
0085 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
0086 820d | | Call 0x1,0xd
0087 c402 | | Store 0x2,0x2
0088 00da | | Load_Top At_Offset_2
0089 0145 | E | Execute Heap_Access,Diana_Tree_Kind
008a 0b72 | r | Execute_Immediate Case_Compare,0x72
008b 7004 |p | Jump_Nonzero 0x90
008c 0f6e | n | Execute_Immediate Equal,0x6e
008d 7003 |p | Jump_Nonzero 0x91
008e 00da | | Load_Top At_Offset_2
008f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0090 00d1 | | Pop_Control Pop_Count_1
0091 e5ff | | Load 0x2,-0x1
0092 00eb | | Load_Encached Diana_Cache
0093 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
0094 00eb | | Load_Encached Diana_Cache
0095 18f7 | | Execute Package,Field_Execute,Field_Number 0xf7
0096 820d | | Call 0x1,0xd
0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0098 e5ff | | Load 0x2,-0x1
0099 00eb | | Load_Encached Diana_Cache
009a 18fc | | Execute Package,Field_Execute,Field_Number 0xfc
009b 820d | | Call 0x1,0xd
009c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009d e5ff | | Load 0x2,-0x1
009e 00eb | | Load_Encached Diana_Cache
009f 18f7 | | Execute Package,Field_Execute,Field_Number 0xf7
00a0 820d | | Call 0x1,0xd
00a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a2 e5ff | | Load 0x2,-0x1
00a3 00eb | | Load_Encached Diana_Cache
00a4 18f7 | | Execute Package,Field_Execute,Field_Number 0xf7
00a5 c403 | | Store 0x2,0x3
00a6 e5ff | | Load 0x2,-0x1
00a7 00eb | | Load_Encached Diana_Cache
00a8 18ec | | Execute Package,Field_Execute,Field_Number 0xec
00a9 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00aa 0f66 | f | Execute_Immediate Equal,0x66
00ab 6806 |h | Jump_Zero 0xb2
00ac e5ff | | Load 0x2,-0x1
00ad 00eb | | Load_Encached Diana_Cache
00ae 18ec | | Execute Package,Field_Execute,Field_Number 0xec
00af 8210 | | Call 0x1,0x10
00b0 820d | | Call 0x1,0xd
00b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b2 e5ff | | Load 0x2,-0x1
00b3 00da | | Load_Top At_Offset_2
00b4 012f | / | Execute Any,Equal
00b5 7004 |p | Jump_Nonzero 0xba
00b6 00d9 | | Load_Top At_Offset_1
00b7 e5ff | | Load 0x2,-0x1
00b8 8211 | | Call 0x1,0x11
00b9 6807 |h | Jump_Zero 0xc1
00ba e5ff | | Load 0x2,-0x1
00bb 00d8 | | Load_Top At_Offset_0
00bc 0120 | | Execute Any,Is_Value
00bd 7002 |p | Jump_Nonzero 0xc0
00be 00d8 | | Load_Top At_Offset_0
00bf 011e | | Execute Any,Convert
00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c1 00d9 | | Load_Top At_Offset_1
00c2 820d | | Call 0x1,0xd
00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c4 e5ff | | Load 0x2,-0x1
00c5 820f | | Call 0x1,0xf
00c6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00c7 0f8f | | Execute_Immediate Equal,-0x71
00c8 6807 |h | Jump_Zero 0xd0
00c9 e5ff | | Load 0x2,-0x1
00ca 00d8 | | Load_Top At_Offset_0
00cb 0120 | | Execute Any,Is_Value
00cc 7002 |p | Jump_Nonzero 0xcf
00cd 00d8 | | Load_Top At_Offset_0
00ce 011e | | Execute Any,Convert
00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d0 8404 | | Call 0x2,0x4
00d1 0831 | 1 | Execute_Immediate Raise,0x31
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 00eb | | Load_Encached Diana_Cache
00dd 18ec | | Execute Package,Field_Execute,Field_Number 0xec
00de 00eb | | Load_Encached Diana_Cache
00df 18ec | | Execute Package,Field_Execute,Field_Number 0xec
00e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f1 | | .CONST 0x00f1 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb 00ec | | Load_Encached Diana_Tree_Cache
00ec 02c7 | | Declare_Variable Any
00ed 00db | | Load_Top At_Offset_3
00ee 00eb | | Load_Encached Diana_Cache
00ef 18f7 | | Execute Package,Field_Execute,Field_Number 0xf7
00f0 a402 | | Store_Unchecked 0x2,0x2
00f1 BODY_00e8:
00f1 00d8 | | Load_Top At_Offset_0
00f2 6802 |h | Jump_Zero 0xf5
00f3 00d8 | | Load_Top At_Offset_0
00f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f5 00db | | Load_Top At_Offset_3
00f6 00eb | | Load_Encached Diana_Cache
00f7 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
00f8 4976 |Iv | Short_Literal 0x176
00f9 00eb | | Load_Encached Diana_Cache
00fa 0098 | | Execute Package,Field_Read_Dynamic
00fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fc e20e | | Load 0x1,0xe
00fd 180d | | Execute Package,Field_Execute,Field_Number 0xd
00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00db | | Load_Top At_Offset_3
0104 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0105 0f6d | m | Execute_Immediate Equal,0x6d
0106 6807 |h | Jump_Zero 0x10e
0107 00db | | Load_Top At_Offset_3
0108 00eb | | Load_Encached Diana_Cache
0109 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
010a 8210 | | Call 0x1,0x10
010b 00db | | Load_Top At_Offset_3
010c 012f | / | Execute Any,Equal
010d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
010e 4800 |H | Short_Literal 0x0
010f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011d | | .CONST 0x011d ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 00ec | | Load_Encached Diana_Tree_Cache
0114 02c7 | | Declare_Variable Any
0115 e5ff | | Load 0x2,-0x1
0116 00eb | | Load_Encached Diana_Cache
0117 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0118 00eb | | Load_Encached Diana_Cache
0119 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
011a e20e | | Load 0x1,0xe
011b 180d | | Execute Package,Field_Execute,Field_Number 0xd
011c a602 | | Store_Unchecked 0x3,0x2
011d BODY_0110:
011d e5ff | | Load 0x2,-0x1
011e 00d9 | | Load_Top At_Offset_1
011f 012f | / | Execute Any,Equal
0120 6808 |h | Jump_Zero 0x129
0121 e5ff | | Load 0x2,-0x1
0122 00d8 | | Load_Top At_Offset_0
0123 0120 | | Execute Any,Is_Value
0124 7002 |p | Jump_Nonzero 0x127
0125 00d8 | | Load_Top At_Offset_0
0126 011e | | Execute Any,Convert
0127 00cb | | Action Pop_Block_With_Result
0128 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0129 00d8 | | Load_Top At_Offset_0
012a 820d | | Call 0x1,0xd
012b 00cb | | Action Pop_Block_With_Result
012c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0138 | 8 | .CONST 0x0138 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 000d | | .CONST 0x000d ; Number of locals
0133 INIT_0130:
0133 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0135 00bf | | Action Accept_Activation
0136 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0137 00c7 | | Action Elaborate_Subprogram
0138 BODY_0130:
0138 00bc | | Action Signal_Activated
0139 00bb | | Action Signal_Completion
013a 0000 0000 | | .BLANK 0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0153 | S | .CONST 0x0153 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 e001 | | Load 0x0,0x1
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 02c7 | | Declare_Variable Any
0146 e002 | | Load 0x0,0x2
0147 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0148 e001 | | Load 0x0,0x1
0149 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014a a402 | | Store_Unchecked 0x2,0x2
014b 00ec | | Load_Encached Diana_Tree_Cache
014c 02c7 | | Declare_Variable Any
014d 00d9 | | Load_Top At_Offset_1
014e 600d |` | Indirect_Literal Discrete,0x15c,{0x00007fff, 0xffffffff}
014f e5ff | | Load 0x2,-0x1
0150 e003 | | Load 0x0,0x3
0151 180d | | Execute Package,Field_Execute,Field_Number 0xd
0152 a403 | | Store_Unchecked 0x2,0x3
0153 BODY_0140:
0153 00d9 | | Load_Top At_Offset_1
0154 4801 |H | Short_Literal 0x1
0155 4800 |H | Short_Literal 0x0
0156 e001 | | Load 0x0,0x1
0157 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0158 c402 | | Store 0x2,0x2
0159 00d8 | | Load_Top At_Offset_0
015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015b 0000 | | .XXX[0x1]
015c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0160 ; --------------------------------------------------------------------------------------
0160 ; Debug Table
0160 ; --------------------------------------------------------------------------------------
0160 0004 000d | | .DEBUG4 0x0004,0x000d,0x5087,0x0000,0x0001,0x0000
0166 0000 0000 | | .BLANK 0000[0x2c]
0192 0200 5000 | P | .XXX[0xc]
0194 0000 0000 | |
0196 0004 0000 | |
0198 0022 0000 | " |
019a 0000 1000 | |
019c 0000 a000 | |
019e 0000 0000 | | .BLANK 0000[0x20]
01be 0001 0000 | | .XXX[0x12]
01c0 0040 0000 | @ |
01c2 0220 0000 | |
01c4 0001 0000 | |
01c6 000a 4000 | @ |
01c8 0800 3537 | 57|
01ca 4000 0600 |@ |
01cc 341b 4000 |4 @ |
01ce 0600 3421 | 4!|
01d0 0000 0000 | | .BLANK 0000[0x6]
01d6 4000 0600 |@ | .XXX[0x9]
01d8 3433 4000 |43@ |
01da 0600 3453 | 4S|
01dc 4000 0600 |@ |
01de 3454 |4T |
01df 0000 0000 | | .BLANK 0000[0x6]
01e5 0100 0178 | x| .XXX[0x3]
01e7 8a00 | |
01e8 0000 0000 | | .BLANK 0000[0x18]