|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0ba8fc
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001d | | .CONST 0x001d ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 00e1 | | Load_Encached Boolean_Cache 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d BODY_0018: 001d 0092 00da | | Action Push_String_Extended,0xda ; "cap : " 001f e5fe | | Load 0x2,-0x2 0020 e002 | | Load 0x0,0x2 0021 011c | | Execute Any,Convert_Unchecked 0022 1c01 | | Execute_Immediate Run_Utility,0x1 0023 01cc | | Execute Vector,Catenate 0024 0092 00db | | Action Push_String_Extended,0xdb ; " coord " 0026 01cc | | Execute Vector,Catenate 0027 e5ff | | Load 0x2,-0x1 0028 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0029 00e0 | | Load_Encached Standard_Cache 002a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 002b 01cc | | Execute Vector,Catenate 002c 0092 00dc | | Action Push_String_Extended,0xdc ; " " 002e 01cc | | Execute Vector,Catenate 002f e5ff | | Load 0x2,-0x1 0030 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0031 00e0 | | Load_Encached Standard_Cache 0032 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0033 01cc | | Execute Vector,Catenate 0034 e003 | | Load 0x0,0x3 0035 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0036 e5fe | | Load 0x2,-0x2 0037 4607 |F | Jump_Case 0x8 0038 781d |x | Jump 0x56 ; case 0x0 0039 7829 |x) | Jump 0x63 ; case 0x1 003a 7835 |x5 | Jump 0x70 ; case 0x2 003b 7841 |xA | Jump 0x7d ; case 0x3 003c 784d |xM | Jump 0x8a ; case 0x4 003d 7862 |xb | Jump 0xa0 ; case 0x5 003e 7877 |xw | Jump 0xb6 ; case 0x6 003f 7800 |x | Jump 0x40 ; case 0x7 0040 00db | | Load_Top At_Offset_3 0041 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0042 0c02 | | Execute_Immediate Greater_Equal,0x2 0043 e5ff | | Load 0x2,-0x1 0044 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0045 0d09 | | Execute_Immediate Less,0x9 0046 0279 | y | Execute Discrete,And 0047 680b |h | Jump_Zero 0x53 0048 00db | | Load_Top At_Offset_3 0049 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 004a 0a01 | | Execute_Immediate Plus,0x1 004b e5ff | | Load 0x2,-0x1 004c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 004d 00db | | Load_Top At_Offset_3 004e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 004f 0aff | | Execute_Immediate Plus,-0x1 0050 e5ff | | Load 0x2,-0x1 0051 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0052 7873 |xs | Jump 0xc6 0053 4801 |H | Short_Literal 0x1 0054 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0055 7870 |xp | Jump 0xc6 0056 00db | | Load_Top At_Offset_3 0057 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0058 0c02 | | Execute_Immediate Greater_Equal,0x2 0059 6806 |h | Jump_Zero 0x60 005a 00db | | Load_Top At_Offset_3 005b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 005c 0aff | | Execute_Immediate Plus,-0x1 005d e5ff | | Load 0x2,-0x1 005e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 005f 7866 |xf | Jump 0xc6 0060 4801 |H | Short_Literal 0x1 0061 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0062 7863 |xc | Jump 0xc6 0063 00db | | Load_Top At_Offset_3 0064 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0065 0d09 | | Execute_Immediate Less,0x9 0066 6806 |h | Jump_Zero 0x6d 0067 00db | | Load_Top At_Offset_3 0068 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0069 0a01 | | Execute_Immediate Plus,0x1 006a e5ff | | Load 0x2,-0x1 006b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 006c 7859 |xY | Jump 0xc6 006d 4801 |H | Short_Literal 0x1 006e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 006f 7856 |xV | Jump 0xc6 0070 00db | | Load_Top At_Offset_3 0071 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0072 0d0a | | Execute_Immediate Less,0xa 0073 6806 |h | Jump_Zero 0x7a 0074 00db | | Load_Top At_Offset_3 0075 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0076 0a01 | | Execute_Immediate Plus,0x1 0077 e5ff | | Load 0x2,-0x1 0078 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0079 784c |xL | Jump 0xc6 007a 4801 |H | Short_Literal 0x1 007b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 007c 7849 |xI | Jump 0xc6 007d 00db | | Load_Top At_Offset_3 007e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 007f 0c02 | | Execute_Immediate Greater_Equal,0x2 0080 6806 |h | Jump_Zero 0x87 0081 00db | | Load_Top At_Offset_3 0082 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0083 0aff | | Execute_Immediate Plus,-0x1 0084 e5ff | | Load 0x2,-0x1 0085 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0086 783f |x? | Jump 0xc6 0087 4801 |H | Short_Literal 0x1 0088 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0089 783c |x< | Jump 0xc6 008a 00db | | Load_Top At_Offset_3 008b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 008c 0c02 | | Execute_Immediate Greater_Equal,0x2 008d e5ff | | Load 0x2,-0x1 008e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 008f 0d0a | | Execute_Immediate Less,0xa 0090 0279 | y | Execute Discrete,And 0091 680b |h | Jump_Zero 0x9d 0092 00db | | Load_Top At_Offset_3 0093 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0094 0a01 | | Execute_Immediate Plus,0x1 0095 e5ff | | Load 0x2,-0x1 0096 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0097 00db | | Load_Top At_Offset_3 0098 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0099 0aff | | Execute_Immediate Plus,-0x1 009a e5ff | | Load 0x2,-0x1 009b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 009c 7829 |x) | Jump 0xc6 009d 4801 |H | Short_Literal 0x1 009e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 009f 7826 |x& | Jump 0xc6 00a0 00db | | Load_Top At_Offset_3 00a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00a2 0c02 | | Execute_Immediate Greater_Equal,0x2 00a3 e5ff | | Load 0x2,-0x1 00a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a5 0c02 | | Execute_Immediate Greater_Equal,0x2 00a6 0279 | y | Execute Discrete,And 00a7 680b |h | Jump_Zero 0xb3 00a8 00db | | Load_Top At_Offset_3 00a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00aa 0aff | | Execute_Immediate Plus,-0x1 00ab e5ff | | Load 0x2,-0x1 00ac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ad 00db | | Load_Top At_Offset_3 00ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00af 0aff | | Execute_Immediate Plus,-0x1 00b0 e5ff | | Load 0x2,-0x1 00b1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00b2 7813 |x | Jump 0xc6 00b3 4801 |H | Short_Literal 0x1 00b4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00b5 7810 |x | Jump 0xc6 00b6 00db | | Load_Top At_Offset_3 00b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b8 0d0a | | Execute_Immediate Less,0xa 00b9 e5ff | | Load 0x2,-0x1 00ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00bb 0d09 | | Execute_Immediate Less,0x9 00bc 0279 | y | Execute Discrete,And 00bd 6806 |h | Jump_Zero 0xc4 00be 00db | | Load_Top At_Offset_3 00bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c0 0a01 | | Execute_Immediate Plus,0x1 00c1 e5ff | | Load 0x2,-0x1 00c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c3 7802 |x | Jump 0xc6 00c4 4801 |H | Short_Literal 0x1 00c5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00c6 00d8 | | Load_Top At_Offset_0 00c7 0f01 | | Execute_Immediate Equal,0x1 00c8 6810 |h | Jump_Zero 0xd9 00c9 0092 00dd | | Action Push_String_Extended,0xdd ; "pb " 00cb e003 | | Load 0x0,0x3 00cc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00cd 00db | | Load_Top At_Offset_3 00ce 4801 |H | Short_Literal 0x1 00cf e004 | | Load 0x0,0x4 00d0 e005 | | Load 0x0,0x5 00d1 00ad | | QQ_Action Package,Field_Execute_Dynamic 00d2 e002 | | Load 0x0,0x2 00d3 e5ff | | Load 0x2,-0x1 00d4 8006 | | Call 0x0,0x6 00d5 00d1 | | Pop_Control Pop_Count_1 00d6 c5fe | | Store 0x2,-0x2 00d7 4800 |H | Short_Literal 0x0 00d8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00da ; -------------------------------------------------------------------------------------- 00da ; STRING TABLE 00da ; -------------------------------------------------------------------------------------- 00da 000a | | .STRTAB 0x000a->0x00df ; "cap : " 00db 000e | | .STRTAB 0x000e->0x00e2 ; " coord " 00dc 0013 | | .STRTAB 0x0013->0x00e5 ; " " 00dd 0012 | | .STRTAB 0x0012->0x00e6 ; "pb " 00de 0013 | | .STREND 0x0013->0x00e7 00df 6361 7020 |cap | .STRTAB_STRINGS 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0004 000a | | .DEBUG4 0x0004,0x000a,0xbbf3,0x0000,0x0001,0x0003 00ee 000b 00fa | | .DBG4T 0x000b,0x00fa,0x8000,0x0000 00f2 000e 00fd | | .DBG4T 0x000e,0x00fd,0x8000,0x0000 00f6 001b 0100 | | .DBG4T 0x001b,0x0100,0x0001,0x4000 00fa ; -------------------------------------------------------------------------------------- 00fa ; Debug chain 00fa ; -------------------------------------------------------------------------------------- 00fa 0001 0000 | | .DBGLEN 0x0001,0x0000 00fc 000b | | .DBGLNO 0x000b 00fd ; -------------------------------------------------------------------------------------- 00fd ; Debug chain 00fd ; -------------------------------------------------------------------------------------- 00fd 0001 0000 | | .DBGLEN 0x0001,0x0000 00ff 000e | | .DBGLNO 0x000e 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug chain 0100 ; -------------------------------------------------------------------------------------- 0100 0001 0022 | "| .DBGLEN 0x0001,0x0022 0102 001b 001d | | .DBGLNO 0x001b,0x001d,0x0036,0x0040,0x0048,0x004d,0x0053,0x0056,0x005a,0x0060,0x0063,0x0067,0x006d,0x0070,0x0074,0x007a,0x007d,0x0081,0x0087,0x008a,0x0092,0x0097,0x009d,0x00a0,0x00a8,0x00ad,0x00b3,0x00b6,0x00be,0x00c4,0x00c6,0x00c9,0x00cd,0x00d2,0x00d7 0125 0001 0002 | | .XXX[0x22] 0127 001a 001b | | 0129 001c 001d | | 012b 0003 0004 | | 012d 0005 0006 | | 012f 0007 0008 | | 0131 0009 000a | | 0133 000b 000c | | 0135 000d 000e | | 0137 000f 0010 | | 0139 0011 0012 | | 013b 0013 0014 | | 013d 0015 0016 | | 013f 0017 0018 | | 0141 0019 001e | | 0143 001f 0020 | | 0145 0021 0022 | ! "| 0147 0000 0000 | | .BLANK 0000[0xb9]