|
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_03b8fe
└─⟦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 00e8 | | .CONST 0x00e8 ; 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 0016 | | .CONST 0x0016 ; Address of begin 0009 00c0 | | .CONST 0x00c0 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 000d e21c | | Load 0x1,0x1c 000e 0337 | 7 | Declare_Variable Array 000f e008 | | Load 0x0,0x8 0010 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 00e3 | | Load_Encached Natural_Cache 0013 00e3 | | Load_Encached Natural_Cache 0014 00e3 | | Load_Encached Natural_Cache 0015 00e2 | | Load_Encached Integer_Cache 0016 BODY_0008: 0016 4801 |H | Short_Literal 0x1 0017 e5ff | | Load 0x2,-0x1 0018 0092 00d2 | | Action Push_String_Extended,0xd2 ; "." 001a e015 | | Load 0x0,0x15 001b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 001c a405 | | Store_Unchecked 0x2,0x5 001d 00db | | Load_Top At_Offset_3 001e 686c |hl | Jump_Zero 0x8b 001f 00db | | Load_Top At_Offset_3 0020 e5ff | | Load 0x2,-0x1 0021 01dd | | Execute Vector,First 0022 0272 | r | Execute Discrete,Minus 0023 005b | [ | Store_Top Discrete,At_Offset_3 0024 e5ff | | Load 0x2,-0x1 0025 01dc | | Execute Vector,Last 0026 e405 | | Load 0x2,0x5 0027 0272 | r | Execute Discrete,Minus 0028 005a | Z | Store_Top Discrete,At_Offset_2 0029 e226 | & | Load 0x1,0x26 002a e009 | | Load 0x0,0x9 002b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 002c c226 | & | Store 0x1,0x26 002d 00cf | | Action Mark_Auxiliary 002e e21d | | Load 0x1,0x1d 002f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0030 e226 | & | Load 0x1,0x26 0031 e21d | | Load 0x1,0x1d 0032 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0033 c404 | | Store 0x2,0x4 0034 e21d | | Load 0x1,0x1d 0035 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0036 e226 | & | Load 0x1,0x26 0037 e21d | | Load 0x1,0x1d 0038 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0039 c404 | | Store 0x2,0x4 003a e403 | | Load 0x2,0x3 003b e226 | & | Load 0x1,0x26 003c e21e | | Load 0x1,0x1e 003d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 003e 00d1 | | Pop_Control Pop_Count_1 003f e21f | | Load 0x1,0x1f 0040 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0041 e226 | & | Load 0x1,0x26 0042 e21f | | Load 0x1,0x1f 0043 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0044 c402 | | Store 0x2,0x2 0045 4801 |H | Short_Literal 0x1 0046 e5ff | | Load 0x2,-0x1 0047 01dd | | Execute Vector,First 0048 e405 | | Load 0x2,0x5 0049 0aff | | Execute_Immediate Plus,-0x1 004a e5ff | | Load 0x2,-0x1 004b 01cf | | Execute Vector,Slice_Read 004c 4801 |H | Short_Literal 0x1 004d e406 | | Load 0x2,0x6 004e e403 | | Load 0x2,0x3 004f 01cf | | Execute Vector,Slice_Read 0050 e015 | | Load 0x0,0x15 0051 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0052 6805 |h | Jump_Zero 0x58 0053 00db | | Load_Top At_Offset_3 0054 0a01 | | Execute_Immediate Plus,0x1 0055 e403 | | Load 0x2,0x3 0056 01d7 | | Execute Vector,Field_Read 0057 6802 |h | Jump_Zero 0x5a 0058 00c9 | | Action Pop_Auxiliary_Loop 0059 7fd4 | | Jump 0x2e 005a 00ce | | Action Pop_Auxiliary 005b e402 | | Load 0x2,0x2 005c 00d8 | | Load_Top At_Offset_0 005d e221 | ! | Load 0x1,0x21 005e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005f 0260 | ` | Execute Discrete,In_Type 0060 7001 |p | Jump_Nonzero 0x62 0061 0801 | | Execute_Immediate Raise,0x1 0062 e227 | ' | Load 0x1,0x27 0063 e221 | ! | Load 0x1,0x21 0064 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0065 00cf | | Action Mark_Auxiliary 0066 e403 | | Load 0x2,0x3 0067 e227 | ' | Load 0x1,0x27 0068 e221 | ! | Load 0x1,0x21 0069 181f | | Execute Package,Field_Execute,Field_Number 0x1f 006a 00d1 | | Pop_Control Pop_Count_1 006b 4801 |H | Short_Literal 0x1 006c e405 | | Load 0x2,0x5 006d 0a01 | | Execute_Immediate Plus,0x1 006e 00d8 | | Load_Top At_Offset_0 006f 00e2 | | Load_Encached Integer_Cache 0070 0260 | ` | Execute Discrete,In_Type 0071 7001 |p | Jump_Nonzero 0x73 0072 0801 | | Execute_Immediate Raise,0x1 0073 e5ff | | Load 0x2,-0x1 0074 01dc | | Execute Vector,Last 0075 e5ff | | Load 0x2,-0x1 0076 01cf | | Execute Vector,Slice_Read 0077 4801 |H | Short_Literal 0x1 0078 e407 | | Load 0x2,0x7 0079 e403 | | Load 0x2,0x3 007a 01cf | | Execute Vector,Slice_Read 007b e015 | | Load 0x0,0x15 007c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 007d 6806 |h | Jump_Zero 0x84 007e 00da | | Load_Top At_Offset_2 007f 0a01 | | Execute_Immediate Plus,0x1 0080 e403 | | Load 0x2,0x3 0081 01d7 | | Execute Vector,Field_Read 0082 7001 |p | Jump_Nonzero 0x84 0083 7805 |x | Jump 0x89 0084 e402 | | Load 0x2,0x2 0085 0a01 | | Execute_Immediate Plus,0x1 0086 c402 | | Store 0x2,0x2 0087 00c9 | | Action Pop_Auxiliary_Loop 0088 7fdd | | Jump 0x66 0089 00ce | | Action Pop_Auxiliary 008a 7826 |x& | Jump 0xb1 008b e5ff | | Load 0x2,-0x1 008c 01dc | | Execute Vector,Last 008d e5ff | | Load 0x2,-0x1 008e 01dd | | Execute Vector,First 008f 0272 | r | Execute Discrete,Minus 0090 0a01 | | Execute_Immediate Plus,0x1 0091 005a | Z | Store_Top Discrete,At_Offset_2 0092 e227 | ' | Load 0x1,0x27 0093 e221 | ! | Load 0x1,0x21 0094 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0095 c227 | ' | Store 0x1,0x27 0096 00cf | | Action Mark_Auxiliary 0097 e403 | | Load 0x2,0x3 0098 e227 | ' | Load 0x1,0x27 0099 e221 | ! | Load 0x1,0x21 009a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 009b 00d1 | | Pop_Control Pop_Count_1 009c 4801 |H | Short_Literal 0x1 009d e5ff | | Load 0x2,-0x1 009e 4801 |H | Short_Literal 0x1 009f e407 | | Load 0x2,0x7 00a0 e403 | | Load 0x2,0x3 00a1 01cf | | Execute Vector,Slice_Read 00a2 e015 | | Load 0x0,0x15 00a3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00a4 6806 |h | Jump_Zero 0xab 00a5 00da | | Load_Top At_Offset_2 00a6 0a01 | | Execute_Immediate Plus,0x1 00a7 e403 | | Load 0x2,0x3 00a8 01d7 | | Execute Vector,Field_Read 00a9 7001 |p | Jump_Nonzero 0xab 00aa 7805 |x | Jump 0xb0 00ab e402 | | Load 0x2,0x2 00ac 0a01 | | Execute_Immediate Plus,0x1 00ad c402 | | Store 0x2,0x2 00ae 00c9 | | Action Pop_Auxiliary_Loop 00af 7fe7 | | Jump 0x97 00b0 00ce | | Action Pop_Auxiliary 00b1 e220 | | Load 0x1,0x20 00b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b3 e402 | | Load 0x2,0x2 00b4 00d8 | | Load_Top At_Offset_0 00b5 e220 | | Load 0x1,0x20 00b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b7 0260 | ` | Execute Discrete,In_Type 00b8 7001 |p | Jump_Nonzero 0xba 00b9 0801 | | Execute_Immediate Raise,0x1 00ba e228 | ( | Load 0x1,0x28 00bb e220 | | Load 0x1,0x20 00bc 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00bd c404 | | Store 0x2,0x4 00be e404 | | Load 0x2,0x4 00bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c0 TRAP_0008: 00c0 00d8 | | Load_Top At_Offset_0 00c1 0107 | | Execute Exception,Get_Name 00c2 4950 |IP | Short_Literal 0x150 00c3 495f |I_ | Short_Literal 0x15f 00c4 0262 | b | Execute Discrete,In_Range 00c5 680b |h | Jump_Zero 0xd1 00c6 0092 00d3 | | Action Push_String_Extended,0xd3 ; "Label " 00c8 e5ff | | Load 0x2,-0x1 00c9 01cc | | Execute Vector,Catenate 00ca 0092 00d4 | | Action Push_String_Extended,0xd4 ; " not found " 00cc 01cc | | Execute Vector,Catenate 00cd e016 | | Load 0x0,0x16 00ce 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00cf 4800 |H | Short_Literal 0x0 00d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d1 0100 | | Execute Exception,Raise 00d2 ; -------------------------------------------------------------------------------------- 00d2 ; STRING TABLE 00d2 ; -------------------------------------------------------------------------------------- 00d2 0008 | | .STRTAB 0x0008->0x00d6 ; "." 00d3 0007 | | .STRTAB 0x0007->0x00d6 ; "Label " 00d4 000b | | .STRTAB 0x000b->0x00d9 ; " not found " 00d5 001b | | .STREND 0x001b->0x00e2 00d6 2e4c 6162 |.Lab| .STRTAB_STRINGS 00e3 0000 0000 | | .BLANK 0000[0x5] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0004 000e | | .DEBUG4 0x0004,0x000e,0x1e7f,0x0000,0x0001,0x0000 00ee 0000 0000 | | .BLANK 0000[0x13] 0101 0020 0500 | | .XXX[0xc] 0103 0000 0000 | | 0105 0000 4000 | @ | 0107 0002 2000 | | 0109 0000 0100 | | 010b 0000 0a00 | | 010d 0000 0000 | | .BLANK 0000[0x2d] 013a 0004 00a0 | | .XXX[0xc] 013c 0000 0000 | | 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0140 | @| 0146 0000 0000 | | .BLANK 0000[0x2e] 0174 8014 0000 | | .XXX[0xb] 0176 0000 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0028 | ( | 017f 0000 0000 | | .BLANK 0000[0x2e] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]