|
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_0bf8df
└─⟦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 0158 | X | .CONST 0x0158 ; 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 0044 | D | .CONST 0x0044 ; Address of begin
0009 00e5 | | .CONST 0x00e5 ; Address of exception handler
000a 000a | | .CONST 0x000a ; Number of locals
000b INIT_0008:
000b e004 | | Load 0x0,0x4
000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000d 02c7 | | Declare_Variable Any
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 e004 | | Load 0x0,0x4
0011 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0012 02c7 | | Declare_Variable Any
0013 00d8 | | Load_Top At_Offset_0
0014 1c00 | | Execute_Immediate Run_Utility,0x0
0015 e004 | | Load 0x0,0x4
0016 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0017 02c7 | | Declare_Variable Any
0018 00d8 | | Load_Top At_Offset_0
0019 1c00 | | Execute_Immediate Run_Utility,0x0
001a e004 | | Load 0x0,0x4
001b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001c 02c7 | | Declare_Variable Any
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f e00d | | Load 0x0,0xd
0020 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0021 02c7 | | Declare_Variable Any
0022 00d8 | | Load_Top At_Offset_0
0023 1c00 | | Execute_Immediate Run_Utility,0x0
0024 e00d | | Load 0x0,0xd
0025 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0026 02c7 | | Declare_Variable Any
0027 00d8 | | Load_Top At_Offset_0
0028 1c00 | | Execute_Immediate Run_Utility,0x0
0029 e004 | | Load 0x0,0x4
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b e004 | | Load 0x0,0x4
002c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002e e00d | | Load 0x0,0xd
002f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0030 0124 | $ | Execute Any,Is_Constrained
0031 700b |p | Jump_Nonzero 0x3d
0032 e00d | | Load 0x0,0xd
0033 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0034 1c09 | | Execute_Immediate Run_Utility,0x9
0035 e00d | | Load 0x0,0xd
0036 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0037 e00c | | Load 0x0,0xc
0038 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0039 e00e | | Load 0x0,0xe
003a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003b 0398 | | Declare_Variable Heap_Access,By_Allocation,With_Subtype
003c 7807 |x | Jump BODY_0008
003d e00d | | Load 0x0,0xd
003e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
003f e00c | | Load 0x0,0xc
0040 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0041 e00e | | Load 0x0,0xe
0042 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0043 039c | | Declare_Variable Heap_Access,By_Allocation
0044 BODY_0008:
0044 00be | | Action Activate_Tasks
0045 e004 | | Load 0x0,0x4
0046 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0047 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0048 e402 | | Load 0x2,0x2
0049 0120 | | Execute Any,Is_Value
004a 6803 |h | Jump_Zero 0x4e
004b e004 | | Load 0x0,0x4
004c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004d 7801 |x | Jump 0x4f
004e e402 | | Load 0x2,0x2
004f 60ac |` | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00004000}
0050 e00b | | Load 0x0,0xb
0051 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0052 e00c | | Load 0x0,0xc
0053 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0054 e004 | | Load 0x0,0x4
0055 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0056 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0057 e5fd | | Load 0x2,-0x3
0058 e004 | | Load 0x0,0x4
0059 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
005b c402 | | Store 0x2,0x2
005c 005a | Z | Store_Top Discrete,At_Offset_2
005d 00d9 | | Load_Top At_Offset_1
005e 6814 |h | Jump_Zero 0x73
005f 4807 |H | Short_Literal 0x7
0060 0092 0100 | | Action Push_String_Extended,0x100 ; "Couldn't resolve "
0062 e5fd | | Load 0x2,-0x3
0063 01cc | | Execute Vector,Catenate
0064 0092 0101 | | Action Push_String_Extended,0x101 ; ", status = "
0066 01cc | | Execute Vector,Catenate
0067 00db | | Load_Top At_Offset_3
0068 e004 | | Load 0x0,0x4
0069 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
006a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006b 011c | | Execute Any,Convert_Unchecked
006c 1c01 | | Execute_Immediate Run_Utility,0x1
006d 01cc | | Execute Vector,Catenate
006e 0092 0102 | | Action Push_String_Extended,0x102 ; ". command links not updated."
0070 01cc | | Execute Vector,Catenate
0071 8211 | | Call 0x1,0x11
0072 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0073 00d8 | | Load_Top At_Offset_0
0074 e004 | | Load 0x0,0x4
0075 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0076 00d9 | | Load_Top At_Offset_1
0077 0219 | | Execute Heap_Access,All_Read
0078 4800 |H | Short_Literal 0x0
0079 4800 |H | Short_Literal 0x0
007a e00b | | Load 0x0,0xb
007b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007c e402 | | Load 0x2,0x2
007d e00d | | Load 0x0,0xd
007e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
007f 00da | | Load_Top At_Offset_2
0080 0218 | | Execute Heap_Access,All_Write
0081 c408 | | Store 0x2,0x8
0082 00d1 | | Pop_Control Pop_Count_1
0083 00da | | Load_Top At_Offset_2
0084 6813 |h | Jump_Zero 0x98
0085 4807 |H | Short_Literal 0x7
0086 0092 0103 | | Action Push_String_Extended,0x103 ; "Couldn't open "
0088 e5fd | | Load 0x2,-0x3
0089 01cc | | Execute Vector,Catenate
008a 0092 0101 | | Action Push_String_Extended,0x101 ; ", status = "
008c 01cc | | Execute Vector,Catenate
008d e408 | | Load 0x2,0x8
008e e004 | | Load 0x0,0x4
008f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0090 011c | | Execute Any,Convert_Unchecked
0091 1c01 | | Execute_Immediate Run_Utility,0x1
0092 01cc | | Execute Vector,Catenate
0093 0092 0104 | | Action Push_String_Extended,0x104 ; ". Command links not updated."
0095 01cc | | Execute Vector,Catenate
0096 8211 | | Call 0x1,0x11
0097 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0098 00db | | Load_Top At_Offset_3
0099 0120 | | Execute Any,Is_Value
009a 6803 |h | Jump_Zero 0x9e
009b e00d | | Load 0x0,0xd
009c 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
009d 7801 |x | Jump 0x9f
009e 00db | | Load_Top At_Offset_3
009f 00d9 | | Load_Top At_Offset_1
00a0 e00d | | Load 0x0,0xd
00a1 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
00a2 c407 | | Store 0x2,0x7
00a3 00cf | | Action Mark_Auxiliary
00a4 781b |x | Jump 0xc0
00a5 e407 | | Load 0x2,0x7
00a6 e00d | | Load 0x0,0xd
00a7 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00a8 c405 | | Store 0x2,0x5
00a9 00d9 | | Load_Top At_Offset_1
00aa 0219 | | Execute Heap_Access,All_Read
00ab e405 | | Load 0x2,0x5
00ac e00d | | Load 0x0,0xd
00ad 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00ae c403 | | Store 0x2,0x3
00af 00d9 | | Load_Top At_Offset_1
00b0 0219 | | Execute Heap_Access,All_Read
00b1 e405 | | Load 0x2,0x5
00b2 e00d | | Load 0x0,0xd
00b3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00b4 c404 | | Store 0x2,0x4
00b5 e00b | | Load 0x0,0xb
00b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b7 e404 | | Load 0x2,0x4
00b8 e403 | | Load 0x2,0x3
00b9 e405 | | Load 0x2,0x5
00ba 85fe | | Call 0x2,-0x2
00bb e407 | | Load 0x2,0x7
00bc e00d | | Load 0x0,0xd
00bd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00be c407 | | Store 0x2,0x7
00bf 00c9 | | Action Pop_Auxiliary_Loop
00c0 e407 | | Load 0x2,0x7
00c1 e00d | | Load 0x0,0xd
00c2 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00c3 6fe1 |o | Jump_Zero 0xa5
00c4 00ce | | Action Pop_Auxiliary
00c5 00d8 | | Load_Top At_Offset_0
00c6 e004 | | Load 0x0,0x4
00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c8 00d9 | | Load_Top At_Offset_1
00c9 0219 | | Execute Heap_Access,All_Read
00ca e00d | | Load 0x0,0xd
00cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00cc 00da | | Load_Top At_Offset_2
00cd 0218 | | Execute Heap_Access,All_Write
00ce c408 | | Store 0x2,0x8
00cf 00d1 | | Pop_Control Pop_Count_1
00d0 00da | | Load_Top At_Offset_2
00d1 6812 |h | Jump_Zero 0xe4
00d2 e009 | | Load 0x0,0x9
00d3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d4 4807 |H | Short_Literal 0x7
00d5 0092 0105 | | Action Push_String_Extended,0x105 ; "Couldn't close "
00d7 e5fd | | Load 0x2,-0x3
00d8 01cc | | Execute Vector,Catenate
00d9 0092 0101 | | Action Push_String_Extended,0x101 ; ", status = "
00db 01cc | | Execute Vector,Catenate
00dc e408 | | Load 0x2,0x8
00dd e004 | | Load 0x0,0x4
00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00df 011c | | Execute Any,Convert_Unchecked
00e0 1c01 | | Execute_Immediate Run_Utility,0x1
00e1 01cc | | Execute Vector,Catenate
00e2 e00a | | Load 0x0,0xa
00e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00e5 TRAP_0008:
00e5 0007 | | Action Break_Optional
00e6 4808 |H | Short_Literal 0x8
00e7 4801 |H | Short_Literal 0x1
00e8 4801 |H | Short_Literal 0x1
00e9 e00f | | Load 0x0,0xf
00ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00eb 0092 0106 | | Action Push_String_Extended,0x106 ; " raised while traversing activity file "
00ed 01cc | | Execute Vector,Catenate
00ee e5fd | | Load 0x2,-0x3
00ef 01cc | | Execute Vector,Catenate
00f0 8211 | | Call 0x1,0x11
00f1 00d9 | | Load_Top At_Offset_1
00f2 e004 | | Load 0x0,0x4
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 00d9 | | Load_Top At_Offset_1
00f5 0219 | | Execute Heap_Access,All_Read
00f6 e00d | | Load 0x0,0xd
00f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f8 00da | | Load_Top At_Offset_2
00f9 0218 | | Execute Heap_Access,All_Write
00fa c408 | | Store 0x2,0x8
00fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00fc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0100 ; --------------------------------------------------------------------------------------
0100 ; STRING TABLE
0100 ; --------------------------------------------------------------------------------------
0100 0010 | | .STRTAB 0x0010->0x0108 ; "Couldn't resolve "
0101 001f | | .STRTAB 0x001f->0x0110 ; ", status = "
0102 0028 | ( | .STRTAB 0x0028->0x0116 ; ". command links not updated."
0103 0043 | C | .STRTAB 0x0043->0x0124 ; "Couldn't open "
0104 004f | O | .STRTAB 0x004f->0x012b ; ". Command links not updated."
0105 0069 | i | .STRTAB 0x0069->0x0139 ; "Couldn't close "
0106 0076 | v | .STRTAB 0x0076->0x0141 ; " raised while traversing activity file "
0107 009b | | .STREND 0x009b->0x0154
0108 436f 756c |Coul| .STRTAB_STRINGS
0155 0000 0000 | | .XXX[0x3]
0157 0000 | |
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug Table
0158 ; --------------------------------------------------------------------------------------
0158 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0ba5,0x0000,0x0001,0x0000
015e cce0 80c8 | | .XXX[0xa2]
0160 d974 8141 | t A|
0162 6131 3918 |a19 |
0164 8149 4029 | I@)|
0166 6140 80bd |a@ |
0168 18d4 d880 | |
016a c080 c8dc | |
016c 80cc 80dc | |
016e 80c8 cc80 | |
0170 e480 c880 | |
0172 c8d0 80c0 | |
0174 28f1 1919 |( |
0176 1919 18c0 | |
0178 8119 1919 | |
017a 1918 c0f8 | |
017c 2941 6131 |)Aa1|
017e 0c81 4940 | I@|
0180 28c4 dccc |( |
0182 cc80 c8e4 | |
0184 c8d4 8161 | a|
0186 6481 18d4 |d |
0188 d8a1 70c0 | p |
018a c0c0 a54c | L|
018c 2961 4080 |)a@ |
018e bd18 e0dc | |
0190 80c8 d480 | |
0192 c8c0 80c4 | |
0194 80c0 80c4 | |
0196 e480 c4d0 | |
0198 80c4 d080 | |
019a c8d0 80c0 | |
019c 28f0 c119 |( |
019e 1919 0cc0 | |
01a0 80c5 1919 | |
01a2 190c c080 | |
01a4 c8c4 c0e0 | |
01a6 c0c0 80d0 | |
01a8 c4c4 c0c0 | |
01aa c080 e0c4 | |
01ac c4c0 c0c0 | |
01ae 80c0 c8c4 | |
01b0 c0c0 c080 | |
01b2 c0c8 c4c0 | |
01b4 c0c0 80c0 | |
01b6 c8c4 c0c0 | |
01b8 c080 c0d8 | |
01ba c4c0 c0c0 | |
01bc 2880 c0d0 |( |
01be c4c0 c0c0 | |
01c0 80c1 0cc4 | |
01c2 c0c0 c080 | |
01c4 c000 01a0 | |
01c6 4015 8000 |@ |
01c8 003d 9800 | = |
01ca 0002 710a | q |
01cc 6a0a 1a42 |j B|
01ce 4a72 2972 |Jr)r|
01d0 922a 622a | *b*|
01d2 0a9a 2972 | )r|
01d4 2a72 b24a |*r J|
01d6 927a 726a | zrj|
01d8 2a72 a172 |*r r|
01da 22f9 8992 |" |
01dc f9ba f999 | |
01de 7262 7a0a |rbz |
01e0 22fa 8292 |" |
01e2 7a1a 9972 |z r|
01e4 8292 2a9a | * |
01e6 2a92 b22a |* *|
01e8 fa22 2a62 | "*b|
01ea a209 8afa | |
01ec 9aba 4aa2 | J |
01ee 1a42 2a99 | B* |
01f0 3a9a 822a |: *|
01f2 1c00 001a | |
01f4 0400 8000 | |
01f6 0000 0080 | |
01f8 0000 0c28 | (|
01fa 2922 a9a2 |)" |
01fc a92b 22af | +" |
01fe a222 a62a | " *|