|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_57d8a8
└─⟦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 01e0 | | .CONST 0x01e0 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0021 | ! | .CONST 0x0021 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0011 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 4800 |H | Short_Literal 0x0 0015 4805 |H | Short_Literal 0x5 0016 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0018 03fd | | Declare_Type Discrete,Defined 0019 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001a 00c7 | | Action Elaborate_Subprogram 001b 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001c 00c7 | | Action Elaborate_Subprogram 001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001e 00c7 | | Action Elaborate_Subprogram 001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0020 00c7 | | Action Elaborate_Subprogram 0021 BODY_0008: 0021 00bc | | Action Signal_Activated 0022 00bb | | Action Signal_Completion 0023 0000 0000 | | .BLANK 0000[0x5] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0034 | 4 | .CONST 0x0034 ; 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 e003 | | Load 0x0,0x3 0032 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0033 02ff | | Declare_Variable Variant_Record 0034 BODY_0028: 0034 00d8 | | Load_Top At_Offset_0 0035 00da | | Load_Top At_Offset_2 0036 e402 | | Load 0x2,0x2 0037 e5ff | | Load 0x2,-0x1 0038 e004 | | Load 0x0,0x4 0039 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 003a 00d3 | | Pop_Control Pop_Count_3 003b e005 | | Load 0x0,0x5 003c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003d 4802 |H | Short_Literal 0x2 003e e402 | | Load 0x2,0x2 003f e001 | | Load 0x0,0x1 0040 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0041 4801 |H | Short_Literal 0x1 0042 e006 | | Load 0x0,0x6 0043 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0044 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0045 4801 |H | Short_Literal 0x1 0046 00db | | Load_Top At_Offset_3 0047 e002 | | Load 0x0,0x2 0048 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0049 4801 |H | Short_Literal 0x1 004a e007 | | Load 0x0,0x7 004b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 004c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004d 4801 |H | Short_Literal 0x1 004e 00da | | Load_Top At_Offset_2 004f e003 | | Load 0x0,0x3 0050 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0051 0092 014b | K| Action Push_String_Extended,0x14b ; "=>Rule PACK_IT : ball (" 0053 4801 |H | Short_Literal 0x1 0054 e402 | | Load 0x2,0x2 0055 e001 | | Load 0x0,0x1 0056 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0057 e008 | | Load 0x0,0x8 0058 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0059 00d8 | | Load_Top At_Offset_0 005a e211 | | Load 0x1,0x11 005b 0260 | ` | Execute Discrete,In_Type 005c 7001 |p | Jump_Nonzero 0x5e 005d 0801 | | Execute_Immediate Raise,0x1 005e e211 | | Load 0x1,0x11 005f 011c | | Execute Any,Convert_Unchecked 0060 1c01 | | Execute_Immediate Run_Utility,0x1 0061 01cc | | Execute Vector,Catenate 0062 0092 014c | L| Action Push_String_Extended,0x14c ; "/" 0064 01cc | | Execute Vector,Catenate 0065 4800 |H | Short_Literal 0x0 0066 e402 | | Load 0x2,0x2 0067 e001 | | Load 0x0,0x1 0068 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0069 e008 | | Load 0x0,0x8 006a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 006b 01cc | | Execute Vector,Catenate 006c 0092 014d | M| Action Push_String_Extended,0x14d ; ") in box (" 006e 01cc | | Execute Vector,Catenate 006f 4800 |H | Short_Literal 0x0 0070 00db | | Load_Top At_Offset_3 0071 e002 | | Load 0x0,0x2 0072 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0073 e008 | | Load 0x0,0x8 0074 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0075 01cc | | Execute Vector,Catenate 0076 0092 014e | N| Action Push_String_Extended,0x14e ; ") with label: " 0078 01cc | | Execute Vector,Catenate 0079 4800 |H | Short_Literal 0x0 007a 00da | | Load_Top At_Offset_2 007b e003 | | Load 0x0,0x3 007c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 007d e008 | | Load 0x0,0x8 007e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 007f 00d8 | | Load_Top At_Offset_0 0080 e211 | | Load 0x1,0x11 0081 0260 | ` | Execute Discrete,In_Type 0082 7001 |p | Jump_Nonzero 0x84 0083 0801 | | Execute_Immediate Raise,0x1 0084 e211 | | Load 0x1,0x11 0085 011c | | Execute Any,Convert_Unchecked 0086 1c01 | | Execute_Immediate Run_Utility,0x1 0087 01cc | | Execute Vector,Catenate 0088 0092 014f | O| Action Push_String_Extended,0x14f ; "(" 008a 01cc | | Execute Vector,Catenate 008b 4801 |H | Short_Literal 0x1 008c 00da | | Load_Top At_Offset_2 008d e003 | | Load 0x0,0x3 008e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008f e007 | | Load 0x0,0x7 0090 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0091 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0092 01cc | | Execute Vector,Catenate 0093 0092 0150 | P| Action Push_String_Extended,0x150 ; ")" 0095 01cc | | Execute Vector,Catenate 0096 e009 | | Load 0x0,0x9 0097 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0098 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a6 | | .CONST 0x00a6 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e001 | | Load 0x0,0x1 00a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a5 02ff | | Declare_Variable Variant_Record 00a6 BODY_00a0: 00a6 00d8 | | Load_Top At_Offset_0 00a7 e5ff | | Load 0x2,-0x1 00a8 e004 | | Load 0x0,0x4 00a9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00aa 00d1 | | Pop_Control Pop_Count_1 00ab e005 | | Load 0x0,0x5 00ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ad 4802 |H | Short_Literal 0x2 00ae 00da | | Load_Top At_Offset_2 00af e001 | | Load 0x0,0x1 00b0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b1 0092 0151 | Q| Action Push_String_Extended,0x151 ; "=>Rule STICKER_LACK : there are no stickers left with color " 00b3 4801 |H | Short_Literal 0x1 00b4 00da | | Load_Top At_Offset_2 00b5 e001 | | Load 0x0,0x1 00b6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b7 e008 | | Load 0x0,0x8 00b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b9 00d8 | | Load_Top At_Offset_0 00ba e211 | | Load 0x1,0x11 00bb 0260 | ` | Execute Discrete,In_Type 00bc 7001 |p | Jump_Nonzero 0xbe 00bd 0801 | | Execute_Immediate Raise,0x1 00be e211 | | Load 0x1,0x11 00bf 011c | | Execute Any,Convert_Unchecked 00c0 1c01 | | Execute_Immediate Run_Utility,0x1 00c1 01cc | | Execute Vector,Catenate 00c2 e009 | | Load 0x0,0x9 00c3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00ce | | .CONST 0x00ce ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb e001 | | Load 0x0,0x1 00cc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00cd 02ff | | Declare_Variable Variant_Record 00ce BODY_00c8: 00ce 00d8 | | Load_Top At_Offset_0 00cf e5ff | | Load 0x2,-0x1 00d0 e004 | | Load 0x0,0x4 00d1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00d2 00d1 | | Pop_Control Pop_Count_1 00d3 e005 | | Load 0x0,0x5 00d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d5 4802 |H | Short_Literal 0x2 00d6 00da | | Load_Top At_Offset_2 00d7 e001 | | Load 0x0,0x1 00d8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d9 0092 0152 | R| Action Push_String_Extended,0x152 ; "=>Rule BOX_LACK : there are no boxes left with size greater then " 00db 4800 |H | Short_Literal 0x0 00dc 00da | | Load_Top At_Offset_2 00dd e001 | | Load 0x0,0x1 00de 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00df e008 | | Load 0x0,0x8 00e0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00e1 01cc | | Execute Vector,Catenate 00e2 e009 | | Load 0x0,0x9 00e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ee | | .CONST 0x00ee ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb e001 | | Load 0x0,0x1 00ec 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ed 02ff | | Declare_Variable Variant_Record 00ee BODY_00e8: 00ee 00d8 | | Load_Top At_Offset_0 00ef e5ff | | Load 0x2,-0x1 00f0 e004 | | Load 0x0,0x4 00f1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00f2 00d1 | | Pop_Control Pop_Count_1 00f3 e005 | | Load 0x0,0x5 00f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f5 4802 |H | Short_Literal 0x2 00f6 00da | | Load_Top At_Offset_2 00f7 e001 | | Load 0x0,0x1 00f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f9 0092 0153 | S| Action Push_String_Extended,0x153 ; "=>Rule TOO_BIG : the colour " 00fb 4801 |H | Short_Literal 0x1 00fc 00da | | Load_Top At_Offset_2 00fd e001 | | Load 0x0,0x1 00fe 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ff e008 | | Load 0x0,0x8 0100 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0101 00d8 | | Load_Top At_Offset_0 0102 e211 | | Load 0x1,0x11 0103 0260 | ` | Execute Discrete,In_Type 0104 7001 |p | Jump_Nonzero 0x106 0105 0801 | | Execute_Immediate Raise,0x1 0106 e211 | | Load 0x1,0x11 0107 011c | | Execute Any,Convert_Unchecked 0108 1c01 | | Execute_Immediate Run_Utility,0x1 0109 01cc | | Execute Vector,Catenate 010a 0092 0154 | T| Action Push_String_Extended,0x154 ; " ball with size " 010c 01cc | | Execute Vector,Catenate 010d 4800 |H | Short_Literal 0x0 010e 00da | | Load_Top At_Offset_2 010f e001 | | Load 0x0,0x1 0110 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0111 e008 | | Load 0x0,0x8 0112 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0113 01cc | | Execute Vector,Catenate 0114 0092 0155 | U| Action Push_String_Extended,0x155 ; " is too BIG" 0116 01cc | | Execute Vector,Catenate 0117 e009 | | Load 0x0,0x9 0118 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0119 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011a 0000 0000 | | .BLANK 0000[0x6] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 4607 |F | Jump_Case 0x8 0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0125 7806 |x | Jump 0x12c ; case 0x1 0126 7809 |x | Jump 0x130 ; case 0x2 0127 780d |x | Jump 0x135 ; case 0x3 0128 7810 |x | Jump 0x139 ; case 0x4 0129 7811 |x | Jump 0x13b ; case 0x5 012a 7812 |x | Jump 0x13d ; case 0x6 012b 7815 |x | Jump 0x141 ; case 0x7 012c 00da | | Load_Top At_Offset_2 012d 0091 0145 | E| Action Push_String_Extended_Indexed,0x145 ; "BLACK" 012f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0130 00db | | Load_Top At_Offset_3 0131 00db | | Load_Top At_Offset_3 0132 00e0 | | Load_Encached Standard_Cache 0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0135 00da | | Load_Top At_Offset_2 0136 00e0 | | Load_Encached Standard_Cache 0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0138 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0139 00db | | Load_Top At_Offset_3 013a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013b 00db | | Load_Top At_Offset_3 013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013d e211 | | Load 0x1,0x11 013e 00dc | | Load_Top At_Offset_4 013f 0267 | g | Execute Discrete,Predecessor 0140 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0141 e211 | | Load 0x1,0x11 0142 00dc | | Load_Top At_Offset_4 0143 0268 | h | Execute Discrete,Successor 0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0145 ; -------------------------------------------------------------------------------------- 0145 ; STRING TABLE 0145 ; -------------------------------------------------------------------------------------- 0145 0024 | $ | .STRTAB 0x0024->0x0157 ; "BLACK" 0146 0027 | ' | .STRTAB 0x0027->0x0159 ; "RED" 0147 0028 | ( | .STRTAB 0x0028->0x015b ; "GREEN" 0148 002b | + | .STRTAB 0x002b->0x015d ; "BLUE" 0149 002d | - | .STRTAB 0x002d->0x015f ; "WHITE" 014a 0030 | 0 | .STRTAB 0x0030->0x0162 ; "YELLOW" 014b 0034 | 4 | .STRTAB 0x0034->0x0165 ; "=>Rule PACK_IT : ball (" 014c 0049 | I | .STRTAB 0x0049->0x0170 ; "/" 014d 0048 | H | .STRTAB 0x0048->0x0171 ; ") in box (" 014e 0050 | P | .STRTAB 0x0050->0x0176 ; ") with label: " 014f 005d | ] | .STRTAB 0x005d->0x017d ; "(" 0150 005c | \ | .STRTAB 0x005c->0x017e ; ")" 0151 005b | [ | .STRTAB 0x005b->0x017e ; "=>Rule STICKER_LACK : there are no stickers left with color " 0152 0095 | | .STRTAB 0x0095->0x019c ; "=>Rule BOX_LACK : there are no boxes left with size greater then " 0153 00d4 | | .STRTAB 0x00d4->0x01bd ; "=>Rule TOO_BIG : the colour " 0154 00ee | | .STRTAB 0x00ee->0x01cb ; " ball with size " 0155 00fc | | .STRTAB 0x00fc->0x01d3 ; " is too BIG" 0156 0105 | | .STREND 0x0105->0x01d8 0157 424c 4143 |BLAC| .STRTAB_STRINGS 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; Debug Table 01e0 ; -------------------------------------------------------------------------------------- 01e0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdf4f,0x0000,0x0001,0x0007 01e6 000b 0202 | | .DBG4T 0x000b,0x0202,0x8000,0x0000 01ea 0014 0208 | | .DBG4T 0x0014,0x0208,0x8000,0x0000 01ee 002b 020f | + | .DBG4T 0x002b,0x020f,0x0001,0x0000 01f2 00a3 0219 | | .DBG4T 0x00a3,0x0219,0x0001,0x0000 01f6 00cb 021f | | .DBG4T 0x00cb,0x021f,0x0001,0x0000 01fa 00eb 0225 | %| .DBG4T 0x00eb,0x0225,0x0001,0x0000 01fe 0123 0000 | # | .DBG4T 0x0123,0x0000,0x0005,0x0000 0202 ; -------------------------------------------------------------------------------------- 0202 ; Debug chain 0202 ; -------------------------------------------------------------------------------------- 0202 0004 0000 | | .DBGLEN 0x0004,0x0000 0204 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011 0208 ; -------------------------------------------------------------------------------------- 0208 ; Debug chain 0208 ; -------------------------------------------------------------------------------------- 0208 0005 0000 | | .DBGLEN 0x0005,0x0000 020a 0014 0019 | | .DBGLNO 0x0014,0x0019,0x001b,0x001d,0x001f 020f ; -------------------------------------------------------------------------------------- 020f ; Debug chain 020f ; -------------------------------------------------------------------------------------- 020f 0003 0005 | | .DBGLEN 0x0003,0x0005 0211 002b 002e | + .| .DBGLNO 0x002b,0x002e,0x0031,0x0034,0x003b,0x0041,0x0049,0x0051 0219 ; -------------------------------------------------------------------------------------- 0219 ; Debug chain 0219 ; -------------------------------------------------------------------------------------- 0219 0001 0003 | | .DBGLEN 0x0001,0x0003 021b 00a3 00a6 | | .DBGLNO 0x00a3,0x00a6,0x00ab,0x00b1 021f ; -------------------------------------------------------------------------------------- 021f ; Debug chain 021f ; -------------------------------------------------------------------------------------- 021f 0001 0003 | | .DBGLEN 0x0001,0x0003 0221 00cb 00ce | | .DBGLNO 0x00cb,0x00ce,0x00d3,0x00d9 0225 ; -------------------------------------------------------------------------------------- 0225 ; Debug chain 0225 ; -------------------------------------------------------------------------------------- 0225 0001 0003 | | .DBGLEN 0x0001,0x0003 0227 00eb 00ee | | .DBGLNO 0x00eb,0x00ee,0x00f3,0x00f9 022b 0000 0000 | | .BLANK 0000[0x1d5]