|
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_ccb0b3
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00c3 | | .CONST 0x00c3 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000a | | .CONST 0x000a ; Number of locals 000b INIT_0008: 000b e010 | | Load 0x0,0x10 000c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 000d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 000e 02c7 | | Declare_Variable Any 000f e210 | | Load 0x1,0x10 0010 e010 | | Load 0x0,0x10 0011 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0012 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0013 e010 | | Load 0x0,0x10 0014 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0015 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0016 e010 | | Load 0x0,0x10 0017 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0018 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0019 e010 | | Load 0x0,0x10 001a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001c 0337 | 7 | Declare_Variable Array 001d 4801 |H | Short_Literal 0x1 001e 4802 |H | Short_Literal 0x2 001f 00da | | Load_Top At_Offset_2 0020 01d6 | | Execute Vector,Field_Write 0021 4800 |H | Short_Literal 0x0 0022 4800 |H | Short_Literal 0x0 0023 00da | | Load_Top At_Offset_2 0024 01d6 | | Execute Vector,Field_Write 0025 4800 |H | Short_Literal 0x0 0026 4801 |H | Short_Literal 0x1 0027 00da | | Load_Top At_Offset_2 0028 01d6 | | Execute Vector,Field_Write 0029 480e |H | Short_Literal 0xe 002a 4803 |H | Short_Literal 0x3 002b 4800 |H | Short_Literal 0x0 002c 00d9 | | Load_Top At_Offset_1 002d e407 | | Load 0x2,0x7 002e 01d6 | | Execute Vector,Field_Write 002f 3ffb |? | Loop_Increasing 0x2b 0030 e010 | | Load 0x0,0x10 0031 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0032 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0033 01c3 | | Execute Vector,Check_In_Type 0034 e010 | | Load 0x0,0x10 0035 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0036 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0037 0337 | 7 | Declare_Variable Array 0038 4801 |H | Short_Literal 0x1 0039 4801 |H | Short_Literal 0x1 003a 00da | | Load_Top At_Offset_2 003b 01d6 | | Execute Vector,Field_Write 003c 4800 |H | Short_Literal 0x0 003d 4800 |H | Short_Literal 0x0 003e 00da | | Load_Top At_Offset_2 003f 01d6 | | Execute Vector,Field_Write 0040 4800 |H | Short_Literal 0x0 0041 4802 |H | Short_Literal 0x2 0042 00da | | Load_Top At_Offset_2 0043 01d6 | | Execute Vector,Field_Write 0044 4800 |H | Short_Literal 0x0 0045 4803 |H | Short_Literal 0x3 0046 00da | | Load_Top At_Offset_2 0047 01d6 | | Execute Vector,Field_Write 0048 e010 | | Load 0x0,0x10 0049 1b12 | | Execute Package,Field_Read,Field_Number 0x12 004a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 004b 01c3 | | Execute Vector,Check_In_Type 004c e010 | | Load 0x0,0x10 004d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 004e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 004f a402 | | Store_Unchecked 0x2,0x2 0050 e010 | | Load 0x0,0x10 0051 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0052 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0053 02c7 | | Declare_Variable Any 0054 e210 | | Load 0x1,0x10 0055 00da | | Load_Top At_Offset_2 0056 e010 | | Load 0x0,0x10 0057 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0058 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0059 e010 | | Load 0x0,0x10 005a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 005b 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 005c e010 | | Load 0x0,0x10 005d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 005e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005f a403 | | Store_Unchecked 0x2,0x3 0060 e010 | | Load 0x0,0x10 0061 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0062 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0063 02c7 | | Declare_Variable Any 0064 e210 | | Load 0x1,0x10 0065 e010 | | Load 0x0,0x10 0066 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0067 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0068 a404 | | Store_Unchecked 0x2,0x4 0069 e010 | | Load 0x0,0x10 006a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 006b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 006c 02c7 | | Declare_Variable Any 006d e210 | | Load 0x1,0x10 006e 0092 00cd | | Action Push_String_Extended,0xcd ; "integer" 0070 e010 | | Load 0x0,0x10 0071 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0072 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0073 a405 | | Store_Unchecked 0x2,0x5 0074 e010 | | Load 0x0,0x10 0075 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0076 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0077 02c7 | | Declare_Variable Any 0078 e210 | | Load 0x1,0x10 0079 e010 | | Load 0x0,0x10 007a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 007b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 007c a406 | | Store_Unchecked 0x2,0x6 007d e010 | | Load 0x0,0x10 007e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 007f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0080 02c7 | | Declare_Variable Any 0081 e210 | | Load 0x1,0x10 0082 00d8 | | Load_Top At_Offset_0 0083 e210 | | Load 0x1,0x10 0084 e010 | | Load 0x0,0x10 0085 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0086 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0087 0092 00ce | | Action Push_String_Extended,0xce ; "Character" 0089 e010 | | Load 0x0,0x10 008a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 008c e010 | | Load 0x0,0x10 008d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 008e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 008f a407 | | Store_Unchecked 0x2,0x7 0090 e210 | | Load 0x1,0x10 0091 e010 | | Load 0x0,0x10 0092 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0093 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0094 e404 | | Load 0x2,0x4 0095 e403 | | Load 0x2,0x3 0096 0092 00cf | | Action Push_String_Extended,0xcf ; "attr1" 0098 e010 | | Load 0x0,0x10 0099 1b15 | | Execute Package,Field_Read,Field_Number 0x15 009a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 009b e010 | | Load 0x0,0x10 009c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 009d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 009e 011e | | Execute Any,Convert 009f e210 | | Load 0x1,0x10 00a0 00da | | Load_Top At_Offset_2 00a1 e405 | | Load 0x2,0x5 00a2 e403 | | Load 0x2,0x3 00a3 0092 00d0 | | Action Push_String_Extended,0xd0 ; "attr2" 00a5 e010 | | Load 0x0,0x10 00a6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00a8 e010 | | Load 0x0,0x10 00a9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00aa 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00ab 011e | | Execute Any,Convert 00ac 4801 |H | Short_Literal 0x1 00ad 4802 |H | Short_Literal 0x2 00ae e010 | | Load 0x0,0x10 00af 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00b0 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 00b1 035b | [ | Declare_Type Array,Constrained 00b2 0337 | 7 | Declare_Variable Array 00b3 00da | | Load_Top At_Offset_2 00b4 e010 | | Load 0x0,0x10 00b5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00b6 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00b7 0119 | | Execute Any,Check_In_Formal_Type 00b8 4801 |H | Short_Literal 0x1 00b9 00da | | Load_Top At_Offset_2 00ba 01d6 | | Execute Vector,Field_Write 00bb 00d9 | | Load_Top At_Offset_1 00bc e010 | | Load 0x0,0x10 00bd 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00be 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00bf 0119 | | Execute Any,Check_In_Formal_Type 00c0 4802 |H | Short_Literal 0x2 00c1 00da | | Load_Top At_Offset_2 00c2 01d6 | | Execute Vector,Field_Write 00c3 BODY_0008: 00c3 e210 | | Load 0x1,0x10 00c4 00d9 | | Load_Top At_Offset_1 00c5 e010 | | Load 0x0,0x10 00c6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00c7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00c8 e010 | | Load 0x0,0x10 00c9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00ca 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 00cb 011d | | Execute Any,Convert_To_Formal 00cc 00ca | | Action Exit_Nullary_Function 00cd ; -------------------------------------------------------------------------------------- 00cd ; STRING TABLE 00cd ; -------------------------------------------------------------------------------------- 00cd 000a | | .STRTAB 0x000a->0x00d2 ; "integer" 00ce 000f | | .STRTAB 0x000f->0x00d5 ; "Character" 00cf 0016 | | .STRTAB 0x0016->0x00da ; "attr1" 00d0 0019 | | .STRTAB 0x0019->0x00dc ; "attr2" 00d1 001c | | .STREND 0x001c->0x00df 00d2 696e 7465 |inte| .STRTAB_STRINGS 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 0003 | | .DEBUG4 0x0004,0x0003,0x2f93,0x0000,0x0001,0x0001 00e6 000b 00ea | | .DBG4T 0x000b,0x00ea,0x0002,0x0000 00ea ; -------------------------------------------------------------------------------------- 00ea ; Debug chain 00ea ; -------------------------------------------------------------------------------------- 00ea 0009 0001 | | .DBGLEN 0x0009,0x0001 00ec 000b 0050 | P| .DBGLNO 0x000b,0x0050,0x0060,0x0069,0x0074,0x007d,0x0090,0x009f,0x00ac,0x00c3 00f6 0000 0000 | | .BLANK 0000[0x10a]