|
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 - metrics - 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 01d0 | | .CONST 0x01d0 ; 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 002c | , | .CONST 0x002c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0030
000d 029a 004b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0048
000f 029a 006b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0068
0011 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
0013 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
0015 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0017 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0019 00bf | | Action Accept_Activation
001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
001b 00c7 | | Action Elaborate_Subprogram
001c 029d 012b | +| Declare_Subprogram For_Outer_Call,INIT_0128
001e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001f 00c7 | | Action Elaborate_Subprogram
0020 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0021 00c7 | | Action Elaborate_Subprogram
0022 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0023 00c7 | | Action Elaborate_Subprogram
0024 029d 0153 | S| Declare_Subprogram For_Outer_Call,INIT_0150
0026 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0027 00c7 | | Action Elaborate_Subprogram
0028 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0029 00c7 | | Action Elaborate_Subprogram
002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002b 00c7 | | Action Elaborate_Subprogram
002c BODY_0008:
002c 00bc | | Action Signal_Activated
002d 00bb | | Action Signal_Completion
002e 0000 0000 | | .XXX[0x2]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0034 | 4 | .CONST 0x0034 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0002 | | .CONST 0x0002 ; Number of locals
0033 INIT_0030:
0033 00e3 | | Load_Encached Natural_Cache
0034 BODY_0030:
0034 e5fd | | Load 0x2,-0x3
0035 e5fe | | Load 0x2,-0x2
0036 00e3 | | Load_Encached Natural_Cache
0037 00eb | | Load_Encached Diana_Cache
0038 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0039 4800 |H | Short_Literal 0x0
003a 4801 |H | Short_Literal 0x1
003b 8002 | | Call 0x0,0x2
003c e5ff | | Load 0x2,-0x1
003d 8003 | | Call 0x0,0x3
003e 005b | [ | Store_Top Discrete,At_Offset_3
003f 00d1 | | Pop_Control Pop_Count_1
0040 c5fd | | Store 0x2,-0x3
0041 4502 |E | Exit_Subprogram 0x2
0042 0000 0000 | | .BLANK 0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0053 | S | .CONST 0x0053 ; Address of begin
0049 005e | ^ | .CONST 0x005e ; Address of exception handler
004a 0003 | | .CONST 0x0003 ; Number of locals
004b INIT_0048:
004b e004 | | Load 0x0,0x4
004c 02c7 | | Declare_Variable Any
004d 00d8 | | Load_Top At_Offset_0
004e 1c00 | | Execute_Immediate Run_Utility,0x0
004f e005 | | Load 0x0,0x5
0050 02c7 | | Declare_Variable Any
0051 00d8 | | Load_Top At_Offset_0
0052 1c00 | | Execute_Immediate Run_Utility,0x0
0053 BODY_0048:
0053 e5ff | | Load 0x2,-0x1
0054 8006 | | Call 0x0,0x6
0055 c402 | | Store 0x2,0x2
0056 e5ff | | Load 0x2,-0x1
0057 8007 | | Call 0x0,0x7
0058 c403 | | Store 0x2,0x3
0059 00d8 | | Load_Top At_Offset_0
005a 00da | | Load_Top At_Offset_2
005b 8008 | | Call 0x0,0x8
005c 8214 | | Call 0x1,0x14
005d 4401 |D | Exit_Subprogram With_Result,0x1
005e TRAP_0048:
005e 0007 | | Action Break_Optional
005f 4800 |H | Short_Literal 0x0
0060 4401 |D | Exit_Subprogram With_Result,0x1
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0070 | p | .CONST 0x0070 ; Address of begin
0069 008a | | .CONST 0x008a ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b 00ec | | Load_Encached Diana_Tree_Cache
006c e004 | | Load 0x0,0x4
006d 02c7 | | Declare_Variable Any
006e 00d8 | | Load_Top At_Offset_0
006f 1c00 | | Execute_Immediate Run_Utility,0x0
0070 BODY_0068:
0070 00cf | | Action Mark_Auxiliary
0071 e5ff | | Load 0x2,-0x1
0072 8009 | | Call 0x0,0x9
0073 4801 |H | Short_Literal 0x1
0074 0263 | c | Execute Discrete,Above_Bound
0075 7011 |p | Jump_Nonzero 0x87
0076 00d8 | | Load_Top At_Offset_0
0077 e5ff | | Load 0x2,-0x1
0078 800a | | Call 0x0,0xa
0079 a402 | | Store_Unchecked 0x2,0x2
007a 00d8 | | Load_Top At_Offset_0
007b e5ff | | Load 0x2,-0x1
007c 800b | | Call 0x0,0xb
007d c403 | | Store 0x2,0x3
007e 00db | | Load_Top At_Offset_3
007f 800c | | Call 0x0,0xc
0080 e402 | | Load 0x2,0x2
0081 8214 | | Call 0x1,0x14
0082 7002 |p | Jump_Nonzero 0x85
0083 4800 |H | Short_Literal 0x0
0084 4401 |D | Exit_Subprogram With_Result,0x1
0085 00c8 | | Action Pop_Auxiliary_Range
0086 3fef |? | Loop_Increasing 0x76
0087 00ce | | Action Pop_Auxiliary
0088 4801 |H | Short_Literal 0x1
0089 4401 |D | Exit_Subprogram With_Result,0x1
008a TRAP_0068:
008a 0007 | | Action Break_Optional
008b 4800 |H | Short_Literal 0x0
008c 4401 |D | Exit_Subprogram With_Result,0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009e | | .CONST 0x009e ; Address of begin
0091 00ad | | .CONST 0x00ad ; Address of exception handler
0092 0004 | | .CONST 0x0004 ; Number of locals
0093 INIT_0090:
0093 00ec | | Load_Encached Diana_Tree_Cache
0094 e004 | | Load 0x0,0x4
0095 02c7 | | Declare_Variable Any
0096 e5ff | | Load 0x2,-0x1
0097 8006 | | Call 0x0,0x6
0098 a403 | | Store_Unchecked 0x2,0x3
0099 e00d | | Load 0x0,0xd
009a 02c7 | | Declare_Variable Any
009b e5ff | | Load 0x2,-0x1
009c 800e | | Call 0x0,0xe
009d a404 | | Store_Unchecked 0x2,0x4
009e BODY_0090:
009e e00f | | Load 0x0,0xf
009f 00da | | Load_Top At_Offset_2
00a0 8010 | | Call 0x0,0x10
00a1 6803 |h | Jump_Zero 0xa5
00a2 00d8 | | Load_Top At_Offset_0
00a3 8011 | | Call 0x0,0x11
00a4 4401 |D | Exit_Subprogram With_Result,0x1
00a5 00d9 | | Load_Top At_Offset_1
00a6 8008 | | Call 0x0,0x8
00a7 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00a8 00da | | Load_Top At_Offset_2
00a9 8012 | | Call 0x0,0x12
00aa 00d9 | | Load_Top At_Offset_1
00ab 012f | / | Execute Any,Equal
00ac 4401 |D | Exit_Subprogram With_Result,0x1
00ad TRAP_0090:
00ad 0007 | | Action Break_Optional
00ae 4800 |H | Short_Literal 0x0
00af 4401 |D | Exit_Subprogram With_Result,0x1
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b9 | | .CONST 0x00b9 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0005 | | .CONST 0x0005 ; Number of locals
00b3 INIT_00b0:
00b3 00ec | | Load_Encached Diana_Tree_Cache
00b4 00ec | | Load_Encached Diana_Tree_Cache
00b5 0092 0179 | y| Action Push_String_Extended,0x179 ; "Program flow cannot be controlled inside a package which has no code"
00b7 029f 0173 | s| Declare_Subprogram For_Call,INIT_0170
00b9 BODY_00b0:
00b9 e013 | | Load 0x0,0x13
00ba 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00bb c5fe | | Store 0x2,-0x2
00bc e5ff | | Load 0x2,-0x1
00bd e014 | | Load 0x0,0x14
00be 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00bf 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00c0 6809 |h | Jump_Zero 0xca
00c1 e5fe | | Load 0x2,-0x2
00c2 00ea | | Load_Encached Null_String_Cache
00c3 8405 | | Call 0x2,0x5
00c4 0092 017a | z| Action Push_String_Extended,0x17a ; "Program flow cannot be controlled inside a dynamic coupler"
00c6 e013 | | Load 0x0,0x13
00c7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c8 c5fe | | Store 0x2,-0x2
00c9 4502 |E | Exit_Subprogram 0x2
00ca e5ff | | Load 0x2,-0x1
00cb 00eb | | Load_Encached Diana_Cache
00cc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00cd 0f29 | ) | Execute_Immediate Equal,0x29
00ce 6830 |h0 | Jump_Zero 0xff
00cf e5ff | | Load 0x2,-0x1
00d0 8215 | | Call 0x1,0x15
00d1 6801 |h | Jump_Zero 0xd3
00d2 4502 |E | Exit_Subprogram 0x2
00d3 e5ff | | Load 0x2,-0x1
00d4 e015 | | Load 0x0,0x15
00d5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00d6 6821 |h! | Jump_Zero 0xf8
00d7 e5ff | | Load 0x2,-0x1
00d8 e016 | | Load 0x0,0x16
00d9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
00da 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00db 00da | | Load_Top At_Offset_2
00dc 00eb | | Load_Encached Diana_Cache
00dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00de 6808 |h | Jump_Zero 0xe7
00df e5fe | | Load 0x2,-0x2
00e0 00ea | | Load_Encached Null_String_Cache
00e1 8405 | | Call 0x2,0x5
00e2 e404 | | Load 0x2,0x4
00e3 e013 | | Load 0x0,0x13
00e4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e5 c5fe | | Store 0x2,-0x2
00e6 4502 |E | Exit_Subprogram 0x2
00e7 00da | | Load_Top At_Offset_2
00e8 00eb | | Load_Encached Diana_Cache
00e9 18ec | | Execute Package,Field_Execute,Field_Number 0xec
00ea e015 | | Load 0x0,0x15
00eb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00ec a402 | | Store_Unchecked 0x2,0x2
00ed 00db | | Load_Top At_Offset_3
00ee 8215 | | Call 0x1,0x15
00ef 7007 |p | Jump_Nonzero 0xf7
00f0 e5fe | | Load 0x2,-0x2
00f1 00ea | | Load_Encached Null_String_Cache
00f2 8405 | | Call 0x2,0x5
00f3 e404 | | Load 0x2,0x4
00f4 e013 | | Load 0x0,0x13
00f5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f6 c5fe | | Store 0x2,-0x2
00f7 4502 |E | Exit_Subprogram 0x2
00f8 e5fe | | Load 0x2,-0x2
00f9 00ea | | Load_Encached Null_String_Cache
00fa 8405 | | Call 0x2,0x5
00fb e404 | | Load 0x2,0x4
00fc e013 | | Load 0x0,0x13
00fd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00fe c5fe | | Store 0x2,-0x2
00ff 4502 |E | Exit_Subprogram 0x2
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 4800 |H | Short_Literal 0x0
0104 00ca | | Action Exit_Nullary_Function
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0112 | | .CONST 0x0112 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 8017 | | Call 0x0,0x17
010d c5fe | | Store 0x2,-0x2
010e e013 | | Load 0x0,0x13
010f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0110 c5fd | | Store 0x2,-0x3
0111 4502 |E | Exit_Subprogram 0x2
0112 TRAP_0108:
0112 e018 | | Load 0x0,0x18
0113 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0114 010f | | Execute Exception,Equal
0115 680d |h | Jump_Zero 0x123
0116 8019 | | Call 0x0,0x19
0117 c5fe | | Store 0x2,-0x2
0118 0092 017b | {| Action Push_String_Extended,0x17b ; "Invalid syntax for machine address: "
011a e5ff | | Load 0x2,-0x1
011b 01cc | | Execute Vector,Catenate
011c 0092 017c | || Action Push_String_Extended,0x17c ; "."
011e 01cc | | Execute Vector,Catenate
011f e013 | | Load 0x0,0x13
0120 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0121 c5fd | | Store 0x2,-0x3
0122 4502 |E | Exit_Subprogram 0x2
0123 0100 | | Execute Exception,Raise
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0130 | 0 | .CONST 0x0130 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0003 | | .CONST 0x0003 ; Number of locals
012b INIT_0128:
012b e01a | | Load 0x0,0x1a
012c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
012d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012e e01a | | Load 0x0,0x1a
012f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0130 BODY_0128:
0130 e01a | | Load 0x0,0x1a
0131 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0132 e01a | | Load 0x0,0x1a
0133 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0135 6016 |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00004000}
0136 e01b | | Load 0x0,0x1b
0137 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0138 e5ff | | Load 0x2,-0x1
0139 e01a | | Load 0x0,0x1a
013a 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
013b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
013c 005b | [ | Store_Top Discrete,At_Offset_3
013d 0059 | Y | Store_Top Discrete,At_Offset_1
013e 00d8 | | Load_Top At_Offset_0
013f 6802 |h | Jump_Zero 0x142
0140 4800 |H | Short_Literal 0x0
0141 4402 |D | Exit_Subprogram With_Result,0x2
0142 00d9 | | Load_Top At_Offset_1
0143 0f04 | | Execute_Immediate Equal,0x4
0144 7002 |p | Jump_Nonzero 0x147
0145 4800 |H | Short_Literal 0x0
0146 4402 |D | Exit_Subprogram With_Result,0x2
0147 e5fe | | Load 0x2,-0x2
0148 801c | | Call 0x0,0x1c
0149 0f00 | | Execute_Immediate Equal,0x0
014a 4402 |D | Exit_Subprogram With_Result,0x2
014b 0000 | | .XXX[0x1]
014c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155 | U | .CONST 0x0155 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0003 | | .CONST 0x0003 ; Number of locals
0153 INIT_0150:
0153 00ec | | Load_Encached Diana_Tree_Cache
0154 039d | | Declare_Variable Heap_Access,Duplicate
0155 BODY_0150:
0155 e5ff | | Load 0x2,-0x1
0156 e015 | | Load 0x0,0x15
0157 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0158 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0159 00d9 | | Load_Top At_Offset_1
015a 4976 |Iv | Short_Literal 0x176
015b 00eb | | Load_Encached Diana_Cache
015c 0098 | | Execute Package,Field_Read_Dynamic
015d 180f | | Execute Package,Field_Execute,Field_Number 0xf
015e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
015f 00d8 | | Load_Top At_Offset_0
0160 e014 | | Load 0x0,0x14
0161 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0162 180d | | Execute Package,Field_Execute,Field_Number 0xd
0163 7004 |p | Jump_Nonzero 0x168
0164 00d8 | | Load_Top At_Offset_0
0165 e01d | | Load 0x0,0x1d
0166 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0167 4401 |D | Exit_Subprogram With_Result,0x1
0168 4801 |H | Short_Literal 0x1
0169 4401 |D | Exit_Subprogram With_Result,0x1
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e5ff | | Load 0x2,-0x1
0174 00eb | | Load_Encached Diana_Cache
0175 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0176 00eb | | Load_Encached Diana_Cache
0177 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0178 00ca | | Action Exit_Nullary_Function
0179 ; --------------------------------------------------------------------------------------
0179 ; STRING TABLE
0179 ; --------------------------------------------------------------------------------------
0179 000a | | .STRTAB 0x000a->0x017e ; "Program flow cannot be controlled inside a package which has no code"
017a 004c | L | .STRTAB 0x004c->0x01a0 ; "Program flow cannot be controlled inside a dynamic coupler"
017b 0084 | | .STRTAB 0x0084->0x01bd ; "Invalid syntax for machine address: "
017c 00a6 | | .STRTAB 0x00a6->0x01cf ; "."
017d 00a5 | | .STREND 0x00a5->0x01cf
017e 5072 6f67 |Prog| .STRTAB_STRINGS
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x163b,0x0000,0x0001,0x0000
01d6 9446 d508 | F | .XXX[0x6]
01d8 5411 2b3c |T +<|
01da 201a d5fa | |
01dc 0000 0000 | | .BLANK 0000[0xa]
01e6 0032 0689 | 2 | .XXX[0x3]
01e8 f600 | |
01e9 0000 0000 | | .BLANK 0000[0xb]
01f4 0001 644f | dO| .XXX[0xc]
01f6 2d30 0245 |-0 E|
01f8 4e26 cc89 |N& |
01fa 4322 4ed1 |C"N |
01fc 2372 19c4 |#r |
01fe 98d2 8d81 | |