|
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_5e40f2
└─⟦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 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 000d | | .DEBUG4 0x0004,0x000d,0x96ca,0x0000,0x0001,0x0000
015e 8080 8080 | | .BLANK 8080[0xf]
016d 80b4 b480 | | .XXX[0x14]
016f 8081 c185 | |
0171 c9d1 a58d | |
0173 d5b1 85c8 | |
0175 818d b185 | |
0177 cdcc b081 | |
0179 bdc8 8189 | |
017b 958d 85d5 | |
017d cd94 81d1 | |
017f a194 2880 | ( |
0181 8080 8080 | | .BLANK 8080[0xf]
0190 80b4 b480 | | .XXX[0x14]
0192 8081 bdc0 | |
0194 81a5 cc81 | |
0196 8481 d1e5 | |
0198 c194 81a5 | |
019a b991 95c1 | |
019c 95b9 9195 | |
019e b9d0 81bd | |
01a0 c081 dda1 | |
01a2 a58d a028 | (|
01a4 8080 8080 | | .BLANK 8080[0x10]
01b4 b4b4 8080 | | .XXX[0x1f]
01b6 81a5 cc81 | |
01b8 b9bd d081 | |
01ba cdd5 c1c1 | |
01bc bdc9 d195 | |
01be 9081 99bd | |
01c0 c881 d1a1 | |
01c2 9481 9da5 | |
01c4 d995 b881 | |
01c6 8db1 85cd | |
01c8 ccb8 2880 | ( |
01ca 8080 8080 | |
01cc 8080 813d | =|
01ce d1a1 95c9 | |
01d0 7d15 c9c9 |} |
01d2 bdc8 | |
01d3 8080 8080 | | .BLANK 8080[0x6]
01d9 80b4 b481 | | .XXX[0xe]
01db 5da1 95b8 |] |
01dd 8185 b1b0 | |
01df 8195 b1cd | |
01e1 9481 9985 | |
01e3 a5b1 cc80 | |
01e5 b8b8 b828 | (|
01e7 8080 8080 | | .BLANK 8080[0x4]
01eb a4ec 2828 | ((| .XXX[0x15]
01ed 2828 2880 |((( |
01ef 8080 81cd | |
01f1 d589 d1e5 | |
01f3 c194 8111 | |
01f5 958d b185 | |
01f7 c985 d1a5 | |
01f9 bdb8 81a5 | |
01fb cc81 11a5 | |
01fd 85b9 84b9 | |
01ff 51c9 |Q |