|
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_ccb0b3
└─⟦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 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,0xd561,0x0000,0x0001,0x0000
0166 0000 0000 | | .BLANK 0000[0x5]
016b 123c 0000 | < | .XXX[0x4]
016d 004e 9000 | N |
016f 0000 0000 | | .BLANK 0000[0x5]
0174 000f 1602 | | .XXX[0x3f]
0176 0400 3cd8 | < |
0178 08c0 00ff | |
017a a000 0004 | |
017c 6b80 8700 |k |
017e 11e2 0000 | |
0180 0047 e000 | G |
0182 0001 3640 | 6@|
0184 0000 04ef | |
0186 8000 0013 | |
0188 ea00 0000 | |
018a 5008 0000 |P |
018c 0140 e000 | @ |
018e 0005 0d00 | |
0190 0000 145c | \|
0192 023c 0052 | < R|
0194 8000 0001 | |
0196 4fe0 0000 |O |
0198 0547 0000 | G |
019a 0016 0e00 | |
019c 0000 5880 | X |
019e 0000 0166 | f|
01a0 4000 1b10 |@ |
01a2 010f 6802 | h |
01a4 e213 0257 | W|
01a6 0100 0000 | |
01a8 03ad 0004 | |
01aa 0002 e402 | |
01ac 821c e402 | |
01ae 8219 00d1 | |
01b0 00d8 00cb | |
01b2 4401 |D |
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 03bd 0004 | | .XXX[0xb]
01ba 0002 e402 | |
01bc 821b e402 | |
01be 8219 00d1 | |
01c0 00d8 00cb | |
01c2 4401 |D |
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 03cb 0004 | | .XXX[0x1c]
01ca 0001 00da | |
01cc e404 0a01 | |
01ce 00d8 00e2 | |
01d0 0260 7001 | `p |
01d2 0801 e404 | |
01d4 e7ff 01db | |
01d6 0273 00d8 | s |
01d8 00e2 0260 | `|
01da 7001 0801 |p |
01dc e403 01ce | |
01de e404 00db | |
01e0 01db 0273 | s|
01e2 c404 4502 | E |
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 03eb 0004 | | .XXX[0x18]
01ea 0001 4608 | F |
01ec 7808 4302 |x C |
01ee 780d 780c |x x |
01f0 780b 780a |x x |
01f2 7809 7808 |x x |
01f4 7807 00da |x |
01f6 3400 0125 |4 %|
01f8 00da 3400 | 4 |
01fa 1c00 4302 | C |
01fc 0869 0006 | i |
01fe 001f 001f | |