|
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_779ce4
└─⟦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 0138 | 8 | .CONST 0x0138 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0006 | | .CONST 0x0006 ; Number of locals 000b INIT_0008: 000b e029 | ) | Load 0x0,0x29 000c 02c7 | | Declare_Variable Any 000d 00d8 | | Load_Top At_Offset_0 000e 1c00 | | Execute_Immediate Run_Utility,0x0 000f e010 | | Load 0x0,0x10 0010 02c7 | | Declare_Variable Any 0011 00d8 | | Load_Top At_Offset_0 0012 1c00 | | Execute_Immediate Run_Utility,0x0 0013 00e3 | | Load_Encached Natural_Cache 0014 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0015 e00e | | Load 0x0,0xe 0016 029f 002b | +| Declare_Subprogram INIT_0028,For_Call 0018 BODY_0008: 0018 00cf | | Action Mark_Auxiliary 0019 7802 |x | Jump 0x1c 001a 8606 | | Call 0x3,0x6 001b 00c9 | | Action Pop_Auxiliary_Loop 001c e7f9 | | Load 0x3,-0x7 001d e002 | | Load 0x0,0x2 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0020 6ff9 |o | Jump_Zero 0x1a 0021 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0051 | Q | .CONST 0x0051 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0006 | | .CONST 0x0006 ; Number of locals 002b INIT_0028: 002b e7f9 | | Load 0x3,-0x7 002c e002 | | Load 0x0,0x2 002d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 002f e002 | | Load 0x0,0x2 0030 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0031 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0032 e7f9 | | Load 0x3,-0x7 0033 e002 | | Load 0x0,0x2 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0036 e002 | | Load 0x0,0x2 0037 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0038 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0039 e7f9 | | Load 0x3,-0x7 003a e002 | | Load 0x0,0x2 003b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 003d e002 | | Load 0x0,0x2 003e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0040 e010 | | Load 0x0,0x10 0041 02c7 | | Declare_Variable Any 0042 00d8 | | Load_Top At_Offset_0 0043 1c00 | | Execute_Immediate Run_Utility,0x0 0044 e7fc | | Load 0x3,-0x4 0045 4802 |H | Short_Literal 0x2 0046 e604 | | Load 0x3,0x4 0047 0a01 | | Execute_Immediate Plus,0x1 0048 00d8 | | Load_Top At_Offset_0 0049 00e3 | | Load_Encached Natural_Cache 004a 0260 | ` | Execute Discrete,In_Type 004b 7001 |p | Jump_Nonzero 0x4d 004c 0801 | | Execute_Immediate Raise,0x1 004d e7ff | | Load 0x3,-0x1 004e e804 | | Load 0x4,0x4 004f 8217 | | Call 0x1,0x17 0050 8017 | | Call 0x0,0x17 0051 BODY_0028: 0051 e004 | | Load 0x0,0x4 0052 180e | | Execute Package,Field_Execute,Field_Number 0xe 0053 4800 |H | Short_Literal 0x0 0054 0092 00d7 | | Action Push_String_Extended,0xd7 ; "Processing " 0056 e803 | | Load 0x4,0x3 0057 e005 | | Load 0x0,0x5 0058 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0059 01cc | | Execute Vector,Catenate 005a e006 | | Load 0x0,0x6 005b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005c e7f9 | | Load 0x3,-0x7 005d e002 | | Load 0x0,0x2 005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0060 8218 | | Call 0x1,0x18 0061 6861 |ha | Jump_Zero 0xc3 0062 e604 | | Load 0x3,0x4 0063 0a01 | | Execute_Immediate Plus,0x1 0064 c604 | | Store 0x3,0x4 0065 00d8 | | Load_Top At_Offset_0 0066 8007 | | Call 0x0,0x7 0067 e5fc | | Load 0x2,-0x4 0068 0f00 | | Execute_Immediate Equal,0x0 0069 0279 | y | Execute Discrete,And 006a 680a |h | Jump_Zero 0x75 006b e004 | | Load 0x0,0x4 006c 180e | | Execute Package,Field_Execute,Field_Number 0xe 006d 4806 |H | Short_Literal 0x6 006e 00da | | Load_Top At_Offset_2 006f 0092 00d8 | | Action Push_String_Extended,0xd8 ; " already exists and was not replaced" 0071 01cc | | Execute Vector,Catenate 0072 e006 | | Load 0x0,0x6 0073 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0074 785c |x\ | Jump 0xd1 0075 e603 | | Load 0x3,0x3 0076 e602 | | Load 0x3,0x2 0077 e7f8 | | Load 0x3,-0x8 0078 e018 | | Load 0x0,0x18 0079 e806 | | Load 0x4,0x6 007a 802f | / | Call 0x0,0x2f 007b c7f8 | | Store 0x3,-0x8 007c c602 | | Store 0x3,0x2 007d c603 | | Store 0x3,0x3 007e e00e | | Load 0x0,0xe 007f e603 | | Load 0x3,0x3 0080 e602 | | Load 0x3,0x2 0081 4801 |H | Short_Literal 0x1 0082 802b | + | Call 0x0,0x2b 0083 c602 | | Store 0x3,0x2 0084 c603 | | Store 0x3,0x3 0085 c605 | | Store 0x3,0x5 0086 e605 | | Load 0x3,0x5 0087 7023 |p# | Jump_Nonzero 0xab 0088 00d9 | | Load_Top At_Offset_1 0089 e018 | | Load 0x0,0x18 008a e802 | | Load 0x4,0x2 008b 8030 | 0 | Call 0x0,0x30 008c c805 | | Store 0x4,0x5 008d e602 | | Load 0x3,0x2 008e 00da | | Load_Top At_Offset_2 008f 4802 |H | Short_Literal 0x2 0090 8031 | 1 | Call 0x0,0x31 0091 c602 | | Store 0x3,0x2 0092 e602 | | Load 0x3,0x2 0093 8032 | 2 | Call 0x0,0x32 0094 c602 | | Store 0x3,0x2 0095 e602 | | Load 0x3,0x2 0096 4800 |H | Short_Literal 0x0 0097 8033 | 3 | Call 0x0,0x33 0098 c602 | | Store 0x3,0x2 0099 e004 | | Load 0x0,0x4 009a 180e | | Execute Package,Field_Execute,Field_Number 0xe 009b 4803 |H | Short_Literal 0x3 009c 0092 00d9 | | Action Push_String_Extended,0xd9 ; "Test Case " 009e 00db | | Load_Top At_Offset_3 009f 01cc | | Execute Vector,Catenate 00a0 0092 00da | | Action Push_String_Extended,0xda ; " CREATED" 00a2 01cc | | Execute Vector,Catenate 00a3 e006 | | Load 0x0,0x6 00a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a5 e603 | | Load 0x3,0x3 00a6 e602 | | Load 0x3,0x2 00a7 802e | . | Call 0x0,0x2e 00a8 c602 | | Store 0x3,0x2 00a9 c603 | | Store 0x3,0x3 00aa 780c |x | Jump 0xb7 00ab e004 | | Load 0x0,0x4 00ac 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ad 4807 |H | Short_Literal 0x7 00ae 0092 00d9 | | Action Push_String_Extended,0xd9 ; "Test Case " 00b0 00db | | Load_Top At_Offset_3 00b1 01cc | | Execute Vector,Catenate 00b2 0092 00db | | Action Push_String_Extended,0xdb ; " could NOT be created" 00b4 01cc | | Execute Vector,Catenate 00b5 e006 | | Load 0x0,0x6 00b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b7 e004 | | Load 0x0,0x4 00b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b9 4800 |H | Short_Literal 0x0 00ba 0092 00dc | | Action Push_String_Extended,0xdc ; "Finished processing " 00bc e803 | | Load 0x4,0x3 00bd e005 | | Load 0x0,0x5 00be 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00bf 01cc | | Execute Vector,Catenate 00c0 e006 | | Load 0x0,0x6 00c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c2 780e |x | Jump 0xd1 00c3 e004 | | Load 0x0,0x4 00c4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c5 4806 |H | Short_Literal 0x6 00c6 e803 | | Load 0x4,0x3 00c7 e005 | | Load 0x0,0x5 00c8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c9 0092 00dd | | Action Push_String_Extended,0xdd ; " is not an Ada procedure spec." 00cb 01cc | | Execute Vector,Catenate 00cc 0092 00de | | Action Push_String_Extended,0xde ; " No test case was created." 00ce 01cc | | Execute Vector,Catenate 00cf e006 | | Load 0x0,0x6 00d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d1 e7f9 | | Load 0x3,-0x7 00d2 e002 | | Load 0x0,0x2 00d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00d5 c7f9 | | Store 0x3,-0x7 00d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d7 ; -------------------------------------------------------------------------------------- 00d7 ; STRING TABLE 00d7 ; -------------------------------------------------------------------------------------- 00d7 0012 | | .STRTAB 0x0012->0x00e0 ; "Processing " 00d8 001b | | .STRTAB 0x001b->0x00e5 ; " already exists and was not replaced" 00d9 003d | = | .STRTAB 0x003d->0x00f7 ; "Test Case " 00da 0045 | E | .STRTAB 0x0045->0x00fc ; " CREATED" 00db 004b | K | .STRTAB 0x004b->0x0100 ; " could NOT be created" 00dc 005e | ^ | .STRTAB 0x005e->0x010b ; "Finished processing " 00dd 0070 | p | .STRTAB 0x0070->0x0115 ; " is not an Ada procedure spec." 00de 008c | | .STRTAB 0x008c->0x0124 ; " No test case was created." 00df 00a5 | | .STREND 0x00a5->0x0131 00e0 5072 6f63 |Proc| .STRTAB_STRINGS 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; Debug Table 0138 ; -------------------------------------------------------------------------------------- 0138 0004 000a | | .DEBUG4 0x0004,0x000a,0x8ba8,0x0000,0x0001,0x0000 013e 0000 0000 | | .BLANK 0000[0xc2]