|
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_0220f2
└─⟦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 e008 | | Load 0x0,0x8
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 e008 | | Load 0x0,0x8
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 e008 | | Load 0x0,0x8
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 e008 | | Load 0x0,0x8
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e008 | | Load 0x0,0x8
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b e008 | | Load 0x0,0x8
002c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002e e012 | | Load 0x0,0x12
002f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0030 0124 | $ | Execute Any,Is_Constrained
0031 700b |p | Jump_Nonzero 0x3d
0032 e012 | | Load 0x0,0x12
0033 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0034 1c09 | | Execute_Immediate Run_Utility,0x9
0035 e012 | | Load 0x0,0x12
0036 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0037 e011 | | Load 0x0,0x11
0038 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0039 e018 | | Load 0x0,0x18
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 e012 | | Load 0x0,0x12
003e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
003f e011 | | Load 0x0,0x11
0040 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0041 e018 | | Load 0x0,0x18
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 e008 | | Load 0x0,0x8
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 e008 | | Load 0x0,0x8
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 e010 | | Load 0x0,0x10
0051 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0052 e011 | | Load 0x0,0x11
0053 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0054 e008 | | Load 0x0,0x8
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 e008 | | Load 0x0,0x8
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 e008 | | Load 0x0,0x8
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 e008 | | Load 0x0,0x8
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 e010 | | Load 0x0,0x10
007b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007c e402 | | Load 0x2,0x2
007d e012 | | Load 0x0,0x12
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 e008 | | Load 0x0,0x8
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
00b3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00b4 c404 | | Store 0x2,0x4
00b5 e010 | | Load 0x0,0x10
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e008 | | Load 0x0,0x8
00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c8 00d9 | | Load_Top At_Offset_1
00c9 0219 | | Execute Heap_Access,All_Read
00ca e012 | | Load 0x0,0x12
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 e00e | | Load 0x0,0xe
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 e008 | | Load 0x0,0x8
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 e00f | | Load 0x0,0xf
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 e02a | * | Load 0x0,0x2a
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 e008 | | Load 0x0,0x8
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 00d9 | | Load_Top At_Offset_1
00f5 0219 | | Execute Heap_Access,All_Read
00f6 e012 | | Load 0x0,0x12
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 000d | | .DEBUG4 0x0004,0x000d,0x791b,0x0000,0x0001,0x0000
015e 0020 000e | | .XXX[0x53]
0160 ad80 0000 | |
0162 0160 0005 | ` |
0164 3340 0000 |3@ |
0166 0040 001d | @ |
0168 7ac0 0000 |z |
016a 02c0 000a | |
016c 6700 0000 |g |
016e 0080 003b | ;|
0170 3500 0000 |5 |
0172 0580 0014 | |
0174 d500 0000 | |
0176 0100 0076 | v|
0178 e900 0000 | |
017a 0b00 0029 | )|
017c a800 0000 | |
017e 0200 00ee | |
0180 d000 0000 | |
0182 1600 0053 | S|
0184 4c00 0000 |L |
0186 0400 01df | |
0188 9c00 0000 | |
018a 2c00 00a6 |, |
018c 7800 0000 |x |
018e 0800 03c3 | |
0190 3000 0000 |0 |
0192 5800 014d |X M|
0194 2000 0000 | |
0196 1000 078e | |
0198 5000 0000 |P |
019a b000 029a | |
019c 2000 0000 | |
019e 2000 0f2c | ,|
01a0 8000 0001 | |
01a2 6000 0534 |` 4|
01a4 0000 0000 | |
01a6 4000 1e78 |@ x|
01a8 c000 0002 | |
01aa c000 0a66 | f|
01ac 0000 0000 | |
01ae 8000 3d70 | =p|
01b0 8000 | |
01b1 0000 0000 | | .BLANK 0000[0x10]
01c1 0778 0000 | x | .XXX[0x3]
01c3 fe4e | N |
01c4 0000 0000 | | .BLANK 0000[0x5]
01c9 0004 0000 | | .XXX[0x13]
01cb 0048 0000 | H |
01cd 0000 0000 | |
01cf 0010 0000 | |
01d1 0120 0008 | |
01d3 ce80 0000 | |
01d5 0040 2f65 | @/e|
01d7 41c0 0033 |A 3|
01d9 da80 0001 | |
01db 0cef | |
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 0600 | | .XXX[0x1]
01e1 0000 0000 | | .BLANK 0000[0xc]
01ed 0101 5000 | P | .XXX[0x2]
01ef 0000 0000 | | .BLANK 0000[0x4]
01f3 000f d200 | | .XXX[0xd]
01f5 0000 3098 | 0 |
01f7 9e82 88be | |
01f9 a0a4 9e86 | |
01fb a65c 8e8a | \ |
01fd a8be b08c | |
01ff 8aa4 | |