|
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_0a70f4
└─⟦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 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 e01f | | Load 0x0,0x1f
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 0004 | | .DEBUG4 0x0004,0x0004,0x706d,0x0000,0x0001,0x0000
015e b99c 81bd | | .XXX[0x70]
0160 9881 d1a1 | |
0162 9481 95e1 | |
0164 a5cd d1a5 | |
0166 b99c 81cd | |
0168 d1c9 a5b9 | |
016a 9cb8 8028 | (|
016c 2915 858d |) |
016e a081 99bd | |
0170 c9b4 81d5 | |
0172 cd95 cc81 | |
0174 d1a1 9481 | |
0176 cdbd d5c9 | |
0178 8d94 8185 | |
017a b990 8191 | |
017c 95cd d1a5 | |
017e b985 d1a5 | |
0180 bdb8 818d | |
0182 bdb9 d195 | |
0184 b9d1 cc81 | |
0186 d1bc 8199 | |
0188 bdc9 b481 | |
018a 8481 b995 | |
018c dc81 d985 | |
018e b1d5 9481 | |
0190 dda1 a58d | |
0192 a029 a5cc | ) |
0194 8185 cdcd | |
0196 a59d b995 | |
0198 9081 d1bc | |
019a 81d1 a194 | |
019c 8191 95cd | |
019e d1a5 b985 | |
01a0 d1a5 bdb8 | |
01a2 ec81 d1a1 | |
01a4 9481 b995 | |
01a6 dc81 d985 | |
01a8 b1d5 9481 | |
01aa a5cc 81d1 | |
01ac c9d5 b98d | |
01ae 85d1 9590 | |
01b0 8185 cc81 | |
01b2 b995 8d95 | |
01b4 cdcd 85c9 | |
01b6 e481 d1bc | |
01b8 29b5 85ad |) |
01ba 9481 a5d0 | |
01bc 8199 a5d0 | |
01be b880 2828 | ((|
01c0 8080 8081 | |
01c2 05cd cda5 | |
01c4 9db8 a081 | |
01c6 59cd d1c8 |Y |
01c8 c4b0 8159 | Y|
01ca cdd1 c8c8 | |
01cc 80a4 ec80 | |
01ce 8080 8080 | | .BLANK 8080[0x4]
01d2 b4b4 8159 | Y| .XXX[0x16]
01d4 cdd1 c8c4 | |
01d6 80e8 f481 | |
01d8 59cd d1c8 |Y |
01da c828 8080 | ( |
01dc 8081 05cd | |
01de cda5 9db8 | |
01e0 a081 59cd | Y |
01e2 d1c8 c4b0 | |
01e4 814d d1c8 | M |
01e6 80a4 ec80 | |
01e8 8080 8080 | | .BLANK 8080[0x5]
01ed b4b4 8159 | Y| .XXX[0x13]
01ef cdd1 c8c4 | |
01f1 80e8 f481 | |
01f3 0591 8481 | |
01f5 cdd1 c9a5 | |
01f7 b99c 81b1 | |
01f9 a5d1 95c9 | |
01fb 85b0 2880 | ( |
01fd 8080 8105 | |
01ff cdcd | |