|
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_0d2ce3
└─⟦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 e013 | | Load 0x0,0x13
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 e013 | | Load 0x0,0x13
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 e014 | | Load 0x0,0x14
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 0000 | | .DEBUG4 0x0004,0x0000,0x78c2,0x0000,0x0001,0x0000
015e b9bc 81dd | | .XXX[0x30]
0160 bdc9 b191 | |
0162 cc81 85c9 | |
0164 9481 c995 | |
0166 9995 c995 | |
0168 b98d 9590 | |
016a b828 2880 | (( |
016c 8080 81c1 | |
016e c9bd 8d95 | |
0170 91d5 c994 | |
0172 814d 95d1 | M |
0174 7d11 9599 |} |
0176 85d5 b1d0 | |
0178 80a1 51bd | Q |
017a 7d31 a5cd |}1 |
017c d080 e881 | |
017e 058d b080 | |
0180 e8f4 8089 | |
0182 3995 d1dd |9 |
0184 bdc9 ad7d | }|
0186 41d5 89b1 |A |
0188 a58c 80f4 | |
018a f881 495c | I\|
018c 88ec 2880 | ( |
018e 8080 8080 | | .BLANK 8080[0xc]
019a 8081 19bd | | .XXX[0x13]
019c c97d 5dbd | }] |
019e c9b1 9080 | |
01a0 e881 3985 | 9 |
01a2 b594 80e8 | |
01a4 f480 88f1 | |
01a6 4d15 3115 |M 1 |
01a8 0d51 253d | Q%=|
01aa 38f8 88ec |8 |
01ac 2880 |( |
01ad 8080 8080 | | .BLANK 8080[0xc]
01b9 8081 4995 | I | .XXX[0x47]
01bb cdc1 bdb9 | |
01bd cd94 80e8 | |
01bf 814d d1c9 | M |
01c1 a5b9 9c80 | |
01c3 e8f4 8088 | |
01c5 f141 493d | AI=|
01c7 1925 3114 | %1 |
01c9 f888 a4ec | |
01cb 2828 8080 |(( |
01cd 8080 b4b4 | |
01cf 814d 95d0 | M |
01d1 81d1 a194 | |
01d3 8191 9599 | |
01d5 85d5 b1d0 | |
01d7 8105 0d30 | 0|
01d9 8199 bdc8 | |
01db 81d1 a194 | |
01dd 81cd c195 | |
01df 8da5 99a5 | |
01e1 9590 81dd | |
01e3 bdc9 b190 | |
01e5 a1cc a4b8 | |
01e7 2880 8080 |( |
01e9 80b4 b481 | |
01eb 3ddd b995 |= |
01ed c881 858d | |
01ef 8d95 cdcc | |
01f1 81d1 bc81 | |
01f3 9585 8da0 | |
01f5 81dd bdc9 | |
01f7 b190 81a5 | |
01f9 cc81 c995 | |
01fb c5d5 a5c9 | |
01fd 9590 b828 | (|
01ff 8080 | |