|
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_f4d031
└─⟦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 0178 | x | .CONST 0x0178 ; 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 0026 | & | .CONST 0x0026 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0013 c211 | | Store 0x1,0x11 0014 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0016 c20f | | Store 0x1,0xf 0017 00bf | | Action Accept_Activation 0018 00e2 | | Load_Encached Integer_Cache 0019 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 001a 00e2 | | Load_Encached Integer_Cache 001b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 001c 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call 001e 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call 0020 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0021 00c7 | | Action Elaborate_Subprogram 0022 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0025 00c7 | | Action Elaborate_Subprogram 0026 BODY_0008: 0026 00bc | | Action Signal_Activated 0027 00bb | | Action Signal_Completion 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0036 | 6 | .CONST 0x0036 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0004 | | .CONST 0x0004 ; Number of locals 002b INIT_0028: 002b e001 | | Load 0x0,0x1 002c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 002d 02ff | | Declare_Variable Variant_Record 002e e002 | | Load 0x0,0x2 002f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0030 02ff | | Declare_Variable Variant_Record 0031 4801 |H | Short_Literal 0x1 0032 480f |H | Short_Literal 0xf 0033 00e9 | | Load_Encached String_Cache 0034 035b | [ | Declare_Type Array,Constrained 0035 0337 | 7 | Declare_Variable Array 0036 BODY_0028: 0036 00d9 | | Load_Top At_Offset_1 0037 00db | | Load_Top At_Offset_3 0038 e5ff | | Load 0x2,-0x1 0039 e003 | | Load 0x0,0x3 003a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 003b 00d2 | | Pop_Control Pop_Count_2 003c e004 | | Load 0x0,0x4 003d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003e 4802 |H | Short_Literal 0x2 003f e402 | | Load 0x2,0x2 0040 e001 | | Load 0x0,0x1 0041 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0042 4801 |H | Short_Literal 0x1 0043 e005 | | Load 0x0,0x5 0044 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0045 4803 |H | Short_Literal 0x3 0046 00db | | Load_Top At_Offset_3 0047 e002 | | Load 0x0,0x2 0048 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0049 0092 0100 | | Action Push_String_Extended,0x100 ; "=>Rule PACK_IT :" 004b e006 | | Load 0x0,0x6 004c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 004d 0092 0101 | | Action Push_String_Extended,0x101 ; " the robot (" 004f 4800 |H | Short_Literal 0x0 0050 00db | | Load_Top At_Offset_3 0051 e002 | | Load 0x0,0x2 0052 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0053 e005 | | Load 0x0,0x5 0054 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0055 01cc | | Execute Vector,Catenate 0056 0092 0102 | | Action Push_String_Extended,0x102 ; ")takes the greater Brick (size= " 0058 01cc | | Execute Vector,Catenate 0059 4800 |H | Short_Literal 0x0 005a e402 | | Load 0x2,0x2 005b e001 | | Load 0x0,0x1 005c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 005d e005 | | Load 0x0,0x5 005e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 005f 01cc | | Execute Vector,Catenate 0060 0092 0103 | | Action Push_String_Extended,0x103 ; ") in his nippers" 0062 01cc | | Execute Vector,Catenate 0063 e006 | | Load 0x0,0x6 0064 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0065 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0071 | q | .CONST 0x0071 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b e002 | | Load 0x0,0x2 006c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 006d 02ff | | Declare_Variable Variant_Record 006e e001 | | Load 0x0,0x1 006f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0070 02ff | | Declare_Variable Variant_Record 0071 BODY_0068: 0071 00d9 | | Load_Top At_Offset_1 0072 00d9 | | Load_Top At_Offset_1 0073 e5ff | | Load 0x2,-0x1 0074 e003 | | Load 0x0,0x3 0075 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0076 00d2 | | Pop_Control Pop_Count_2 0077 4801 |H | Short_Literal 0x1 0078 e007 | | Load 0x0,0x7 0079 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007b 4802 |H | Short_Literal 0x2 007c 00db | | Load_Top At_Offset_3 007d e002 | | Load 0x0,0x2 007e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 007f 8215 | | Call 0x1,0x15 0080 e005 | | Load 0x0,0x5 0081 180f | | Execute Package,Field_Execute,Field_Number 0xf 0082 4804 |H | Short_Literal 0x4 0083 00db | | Load_Top At_Offset_3 0084 e002 | | Load 0x0,0x2 0085 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0086 0092 0104 | | Action Push_String_Extended,0x104 ; "=>Rule get_test_action : the robot (" 0088 4800 |H | Short_Literal 0x0 0089 00db | | Load_Top At_Offset_3 008a e002 | | Load 0x0,0x2 008b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008c e005 | | Load 0x0,0x5 008d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 008e 01cc | | Execute Vector,Catenate 008f 0092 0105 | | Action Push_String_Extended,0x105 ; ")is going to put the Brick " 0091 01cc | | Execute Vector,Catenate 0092 e006 | | Load 0x0,0x6 0093 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0094 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a1 | | .CONST 0x00a1 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0003 | | .CONST 0x0003 ; Number of locals 009b INIT_0098: 009b e002 | | Load 0x0,0x2 009c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009d 02ff | | Declare_Variable Variant_Record 009e e001 | | Load 0x0,0x1 009f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a0 02ff | | Declare_Variable Variant_Record 00a1 BODY_0098: 00a1 00d9 | | Load_Top At_Offset_1 00a2 00d9 | | Load_Top At_Offset_1 00a3 e5ff | | Load 0x2,-0x1 00a4 e003 | | Load 0x0,0x3 00a5 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 00a6 00d2 | | Pop_Control Pop_Count_2 00a7 e004 | | Load 0x0,0x4 00a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a9 4802 |H | Short_Literal 0x2 00aa 00da | | Load_Top At_Offset_2 00ab e001 | | Load 0x0,0x1 00ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00ad 4800 |H | Short_Literal 0x0 00ae e007 | | Load 0x0,0x7 00af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b1 4802 |H | Short_Literal 0x2 00b2 00db | | Load_Top At_Offset_3 00b3 e002 | | Load 0x0,0x2 00b4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b5 8214 | | Call 0x1,0x14 00b6 e005 | | Load 0x0,0x5 00b7 180f | | Execute Package,Field_Execute,Field_Number 0xf 00b8 4801 |H | Short_Literal 0x1 00b9 00db | | Load_Top At_Offset_3 00ba e002 | | Load 0x0,0x2 00bb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00bc 4801 |H | Short_Literal 0x1 00bd 00da | | Load_Top At_Offset_2 00be e002 | | Load 0x0,0x2 00bf 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c0 4803 |H | Short_Literal 0x3 00c1 00da | | Load_Top At_Offset_2 00c2 e001 | | Load 0x0,0x1 00c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c4 0092 0106 | | Action Push_String_Extended,0x106 ; "=>Rule to_case_teste__action :" 00c6 e006 | | Load 0x0,0x6 00c7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00c8 0092 0107 | | Action Push_String_Extended,0x107 ; "the robot (" 00ca 4800 |H | Short_Literal 0x0 00cb 00db | | Load_Top At_Offset_3 00cc e002 | | Load 0x0,0x2 00cd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ce e005 | | Load 0x0,0x5 00cf 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00d0 01cc | | Execute Vector,Catenate 00d1 0092 0108 | | Action Push_String_Extended,0x108 ; ")puts the Brick in case " 00d3 01cc | | Execute Vector,Catenate 00d4 4801 |H | Short_Literal 0x1 00d5 00db | | Load_Top At_Offset_3 00d6 e002 | | Load 0x0,0x2 00d7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d8 e005 | | Load 0x0,0x5 00d9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00da 01cc | | Execute Vector,Catenate 00db e006 | | Load 0x0,0x6 00dc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00dd 4800 |H | Short_Literal 0x0 00de e005 | | Load 0x0,0x5 00df 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e0 4803 |H | Short_Literal 0x3 00e1 00db | | Load_Top At_Offset_3 00e2 e002 | | Load 0x0,0x2 00e3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e212 | | Load 0x1,0x12 00ec 0a01 | | Execute_Immediate Plus,0x1 00ed c212 | | Store 0x1,0x12 00ee e212 | | Load 0x1,0x12 00ef 0aff | | Execute_Immediate Plus,-0x1 00f0 00d8 | | Load_Top At_Offset_0 00f1 00e2 | | Load_Encached Integer_Cache 00f2 0260 | ` | Execute Discrete,In_Type 00f3 7001 |p | Jump_Nonzero 0xf5 00f4 0801 | | Execute_Immediate Raise,0x1 00f5 00ca | | Action Exit_Nullary_Function 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e213 | | Load 0x1,0x13 00fc 0a01 | | Execute_Immediate Plus,0x1 00fd c213 | | Store 0x1,0x13 00fe e213 | | Load 0x1,0x13 00ff 00ca | | Action Exit_Nullary_Function 0100 ; -------------------------------------------------------------------------------------- 0100 ; STRING TABLE 0100 ; -------------------------------------------------------------------------------------- 0100 0014 | | .STRTAB 0x0014->0x010a ; "=>Rule PACK_IT :" 0101 0022 | " | .STRTAB 0x0022->0x0112 ; " the robot (" 0102 0032 | 2 | .STRTAB 0x0032->0x011b ; ")takes the greater Brick (size= " 0103 0050 | P | .STRTAB 0x0050->0x012b ; ") in his nippers" 0104 005e | ^ | .STRTAB 0x005e->0x0133 ; "=>Rule get_test_action : the robot (" 0105 0080 | | .STRTAB 0x0080->0x0145 ; ")is going to put the Brick " 0106 009a | | .STRTAB 0x009a->0x0153 ; "=>Rule to_case_teste__action :" 0107 00b6 | | .STRTAB 0x00b6->0x0162 ; "the robot (" 0108 00bf | | .STRTAB 0x00bf->0x0167 ; ")puts the Brick in case " 0109 00d6 | | .STREND 0x00d6->0x0174 010a 3d3e 5275 |=>Ru| .STRTAB_STRINGS 0174 0000 0000 | | .BLANK 0000[0x4] 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug Table 0178 ; -------------------------------------------------------------------------------------- 0178 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdf26,0x0000,0x0001,0x0007 017e 000b 019a | | .DBG4T 0x000b,0x019a,0x8000,0x0000 0182 0018 019f | | .DBG4T 0x0018,0x019f,0x8000,0x0000 0186 002b 01a8 | + | .DBG4T 0x002b,0x01a8,0x0001,0x0000 018a 006b 01b2 | k | .DBG4T 0x006b,0x01b2,0x0001,0x0000 018e 009b 01ba | | .DBG4T 0x009b,0x01ba,0x0001,0x0000 0192 00eb 01c6 | | .DBG4T 0x00eb,0x01c6,0x0002,0x0000 0196 00fb 01ca | | .DBG4T 0x00fb,0x01ca,0x0002,0x0000 019a ; -------------------------------------------------------------------------------------- 019a ; Debug chain 019a ; -------------------------------------------------------------------------------------- 019a 0003 0000 | | .DBGLEN 0x0003,0x0000 019c 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0014 019f ; -------------------------------------------------------------------------------------- 019f ; Debug chain 019f ; -------------------------------------------------------------------------------------- 019f 0007 0000 | | .DBGLEN 0x0007,0x0000 01a1 0018 001a | | .DBGLNO 0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; Debug chain 01a8 ; -------------------------------------------------------------------------------------- 01a8 0003 0005 | | .DBGLEN 0x0003,0x0005 01aa 002b 002e | + .| .DBGLNO 0x002b,0x002e,0x0031,0x0036,0x003c,0x0042,0x0049,0x004d 01b2 ; -------------------------------------------------------------------------------------- 01b2 ; Debug chain 01b2 ; -------------------------------------------------------------------------------------- 01b2 0002 0004 | | .DBGLEN 0x0002,0x0004 01b4 006b 006e | k n| .DBGLNO 0x006b,0x006e,0x0071,0x0077,0x007f,0x0086 01ba ; -------------------------------------------------------------------------------------- 01ba ; Debug chain 01ba ; -------------------------------------------------------------------------------------- 01ba 0002 0008 | | .DBGLEN 0x0002,0x0008 01bc 009b 009e | | .DBGLNO 0x009b,0x009e,0x00a1,0x00a7,0x00ad,0x00b5,0x00bc,0x00c4,0x00c8,0x00dd 01c6 ; -------------------------------------------------------------------------------------- 01c6 ; Debug chain 01c6 ; -------------------------------------------------------------------------------------- 01c6 0000 0002 | | .DBGLEN 0x0000,0x0002 01c8 00eb 00ee | | .DBGLNO 0x00eb,0x00ee 01ca ; -------------------------------------------------------------------------------------- 01ca ; Debug chain 01ca ; -------------------------------------------------------------------------------------- 01ca 0000 0002 | | .DBGLEN 0x0000,0x0002 01cc 00fb 00fe | | .DBGLNO 0x00fb,0x00fe 01ce 0000 0000 | | .BLANK 0000[0x32]