|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0314bd
└─⟦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 0220 | | .CONST 0x0220 ; 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 001e | | .CONST 0x001e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4833 |H3 | Short_Literal 0x33 000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0012 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0014 00bf | | Action Accept_Activation 0015 4800 |H | Short_Literal 0x0 0016 4822 |H" | Short_Literal 0x22 0017 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0019 03fd | | Declare_Type Discrete,Defined 001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001d 00c7 | | Action Elaborate_Subprogram 001e BODY_0008: 001e 00bc | | Action Signal_Activated 001f 00bb | | Action Signal_Completion 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 4607 |F | Jump_Case 0x8 0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0025 7807 |x | Jump 0x2d ; case 0x1 0026 780a |x | Jump 0x31 ; case 0x2 0027 780e |x | Jump 0x36 ; case 0x3 0028 7811 |x | Jump 0x3a ; case 0x4 0029 7812 |x | Jump 0x3c ; case 0x5 002a 7813 |x | Jump 0x3e ; case 0x6 002b 7816 |x | Jump 0x42 ; case 0x7 002c 4302 |C | .XXX[0x1] 002d 00da | | Load_Top At_Offset_2 002e 0091 008e | | Action Push_String_Extended_Indexed,0x8e ; "T_VRAI" 0030 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0031 00db | | Load_Top At_Offset_3 0032 00db | | Load_Top At_Offset_3 0033 00e0 | | Load_Encached Standard_Cache 0034 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0035 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0036 00da | | Load_Top At_Offset_2 0037 00e0 | | Load_Encached Standard_Cache 0038 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0039 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 003a 00db | | Load_Top At_Offset_3 003b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003c 00db | | Load_Top At_Offset_3 003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003e e20d | | Load 0x1,0xd 003f 00dc | | Load_Top At_Offset_4 0040 0267 | g | Execute Discrete,Predecessor 0041 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0042 e20d | | Load 0x1,0xd 0043 00dc | | Load_Top At_Offset_4 0044 0268 | h | Execute Discrete,Successor 0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004d | M | .CONST 0x004d ; Address of begin 0049 0053 | S | .CONST 0x0053 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b e210 | | Load 0x1,0x10 004c 0007 | | Action Break_Optional 004d BODY_0048: 004d 00db | | Load_Top At_Offset_3 004e e210 | | Load 0x1,0x10 004f 1c02 | | Execute_Immediate Run_Utility,0x2 0050 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0051 4801 |H | Short_Literal 0x1 0052 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0053 TRAP_0048: 0053 010e | | Execute Exception,Is_Constraint_Error 0054 6802 |h | Jump_Zero 0x57 0055 4800 |H | Short_Literal 0x0 0056 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0057 0100 | | Execute Exception,Raise 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c e210 | | Load 0x1,0x10 005d 1c02 | | Execute_Immediate Run_Utility,0x2 005e 00d8 | | Load_Top At_Offset_0 005f e20d | | Load 0x1,0xd 0060 0260 | ` | Execute Discrete,In_Type 0061 7001 |p | Jump_Nonzero 0x63 0062 0801 | | Execute_Immediate Raise,0x1 0063 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4607 |F | Jump_Case 0x8 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7807 |x | Jump 0x75 ; case 0x1 006e 780a |x | Jump 0x79 ; case 0x2 006f 780e |x | Jump 0x7e ; case 0x3 0070 7811 |x | Jump 0x82 ; case 0x4 0071 7812 |x | Jump 0x84 ; case 0x5 0072 7813 |x | Jump 0x86 ; case 0x6 0073 7816 |x | Jump 0x8a ; case 0x7 0074 4302 |C | .XXX[0x1] 0075 00da | | Load_Top At_Offset_2 0076 0091 00c2 | | Action Push_String_Extended_Indexed,0xc2 ; "VRAI" 0078 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0079 00db | | Load_Top At_Offset_3 007a 00db | | Load_Top At_Offset_3 007b 00e0 | | Load_Encached Standard_Cache 007c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e 00da | | Load_Top At_Offset_2 007f 00e0 | | Load_Encached Standard_Cache 0080 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0081 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0082 00db | | Load_Top At_Offset_3 0083 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0084 00db | | Load_Top At_Offset_3 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 e210 | | Load 0x1,0x10 0087 00dc | | Load_Top At_Offset_4 0088 0267 | g | Execute Discrete,Predecessor 0089 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008a e210 | | Load 0x1,0x10 008b 00dc | | Load_Top At_Offset_4 008c 0268 | h | Execute Discrete,Successor 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e ; -------------------------------------------------------------------------------------- 008e ; STRING TABLE 008e ; -------------------------------------------------------------------------------------- 008e 00b0 | | .STRTAB 0x00b0->0x00e6 ; "T_VRAI" 008f 00b4 | | .STRTAB 0x00b4->0x00e9 ; "T_FAUX" 0090 00b8 | | .STRTAB 0x00b8->0x00ec ; "T_PEUT" 0091 00bc | | .STRTAB 0x00bc->0x00ef ; "T_ETRE" 0092 00c0 | | .STRTAB 0x00c0->0x00f2 ; "T_CONSTITUE" 0093 00c9 | | .STRTAB 0x00c9->0x00f7 ; "T_DE" 0094 00cb | | .STRTAB 0x00cb->0x00f9 ; "T_DANS" 0095 00cf | | .STRTAB 0x00cf->0x00fc ; "T_LA" 0096 00d1 | | .STRTAB 0x00d1->0x00fe ; "T_PIECE" 0097 00d6 | | .STRTAB 0x00d6->0x0102 ; "T_OU" 0098 00d8 | | .STRTAB 0x00d8->0x0104 ; "T_ET" 0099 00da | | .STRTAB 0x00da->0x0106 ; "T_NON" 009a 00dd | | .STRTAB 0x00dd->0x0108 ; "T_SI" 009b 00df | | .STRTAB 0x00df->0x010a ; "T_ALORS" 009c 00e4 | | .STRTAB 0x00e4->0x010e ; "T_FIN_SI" 009d 00ea | | .STRTAB 0x00ea->0x0112 ; "T_VAUT" 009e 00ee | | .STRTAB 0x00ee->0x0115 ; "T_DIRE" 009f 00f2 | | .STRTAB 0x00f2->0x0118 ; "T_JEU_TERMINE" 00a0 00fd | | .STRTAB 0x00fd->0x011e ; "T_FIN" 00a1 0100 | | .STRTAB 0x0100->0x0121 ; "T_DIRECTIONS" 00a2 010a | | .STRTAB 0x010a->0x0127 ; "T_PIECES" 00a3 0110 | | .STRTAB 0x0110->0x012b ; "T_OBJETS" 00a4 0116 | | .STRTAB 0x0116->0x012f ; "T_LIENS" 00a5 011b | | .STRTAB 0x011b->0x0132 ; "T_PNJS" 00a6 011f | | .STRTAB 0x011f->0x0135 ; "T_HERO" 00a7 0123 | # | .STRTAB 0x0123->0x0138 ; "T_ACTIONS" 00a8 012a | * | .STRTAB 0x012a->0x013d ; "T_SCENARIO" 00a9 0132 | 2 | .STRTAB 0x0132->0x0142 ; "T_PRESENTATION" 00aa 013e | > | .STRTAB 0x013e->0x0149 ; "T_GENERALES" 00ab 0147 | G | .STRTAB 0x0147->0x014e ; "T_LOCALES" 00ac 014e | N | .STRTAB 0x014e->0x0153 ; "T_PSEUDO_GENERALES" 00ad 015e | ^ | .STRTAB 0x015e->0x015c ; "T_PIECE_COURANTE" 00ae 016c | l | .STRTAB 0x016c->0x0164 ; "T_OBJET" 00af 0171 | q | .STRTAB 0x0171->0x0167 ; "T_PNJ" 00b0 0174 | t | .STRTAB 0x0174->0x016a ; "T_DIRECTION" 00b1 017d | } | .STRTAB 0x017d->0x016f ; "T_EQU" 00b2 0180 | | .STRTAB 0x0180->0x0172 ; "T_ADD" 00b3 0183 | | .STRTAB 0x0183->0x0174 ; "T_SUB" 00b4 0186 | | .STRTAB 0x0186->0x0177 ; "T_MUL" 00b5 0189 | | .STRTAB 0x0189->0x0179 ; "T_DIV" 00b6 018c | | .STRTAB 0x018c->0x017c ; "T_QUOTE" 00b7 0191 | | .STRTAB 0x0191->0x017f ; "T_COMMA" 00b8 0196 | | .STRTAB 0x0196->0x0183 ; "T_OBRACKET" 00b9 019e | | .STRTAB 0x019e->0x0188 ; "T_CBRACKET" 00ba 01a6 | | .STRTAB 0x01a6->0x018d ; "T_COLON" 00bb 01ab | | .STRTAB 0x01ab->0x0190 ; "T_IDENT" 00bc 01b0 | | .STRTAB 0x01b0->0x0194 ; "T_INTEGER" 00bd 01b7 | | .STRTAB 0x01b7->0x0198 ; "T_STRING" 00be 01bd | | .STRTAB 0x01bd->0x019c ; "T_EOF" 00bf 01c0 | | .STRTAB 0x01c0->0x019f ; "T_UNK" 00c0 01c3 | | .STRTAB 0x01c3->0x01a1 ; "T_END" 00c1 01c6 | | .STRTAB 0x01c6->0x01a4 ; "T_VERBE" 00c2 01cb | | .STRTAB 0x01cb->0x01a7 ; "VRAI" 00c3 01cd | | .STRTAB 0x01cd->0x01a9 ; "FAUX" 00c4 01cf | | .STRTAB 0x01cf->0x01ab ; "PEUT" 00c5 01d1 | | .STRTAB 0x01d1->0x01ad ; "ETRE" 00c6 01d3 | | .STRTAB 0x01d3->0x01af ; "CONSTITUE" 00c7 01da | | .STRTAB 0x01da->0x01b4 ; "DE" 00c8 01da | | .STRTAB 0x01da->0x01b5 ; "DANS" 00c9 01dc | | .STRTAB 0x01dc->0x01b7 ; "LA" 00ca 01dc | | .STRTAB 0x01dc->0x01b8 ; "PIECE" 00cb 01df | | .STRTAB 0x01df->0x01ba ; "OU" 00cc 01df | | .STRTAB 0x01df->0x01bb ; "ET" 00cd 01df | | .STRTAB 0x01df->0x01bc ; "NON" 00ce 01e0 | | .STRTAB 0x01e0->0x01be ; "SI" 00cf 01e0 | | .STRTAB 0x01e0->0x01bf ; "ALORS" 00d0 01e3 | | .STRTAB 0x01e3->0x01c1 ; "FIN_SI" 00d1 01e7 | | .STRTAB 0x01e7->0x01c4 ; "VAUT" 00d2 01e9 | | .STRTAB 0x01e9->0x01c6 ; "DIRE" 00d3 01eb | | .STRTAB 0x01eb->0x01c8 ; "JEU_TERMINE" 00d4 01f4 | | .STRTAB 0x01f4->0x01ce ; "FIN" 00d5 01f5 | | .STRTAB 0x01f5->0x01cf ; "DIRECTIONS" 00d6 01fd | | .STRTAB 0x01fd->0x01d4 ; "PIECES" 00d7 0201 | | .STRTAB 0x0201->0x01d7 ; "OBJETS" 00d8 0205 | | .STRTAB 0x0205->0x01da ; "LIENS" 00d9 0208 | | .STRTAB 0x0208->0x01dd ; "PNJS" 00da 020a | | .STRTAB 0x020a->0x01df ; "HERO" 00db 020c | | .STRTAB 0x020c->0x01e1 ; "ACTIONS" 00dc 0211 | | .STRTAB 0x0211->0x01e4 ; "SCENARIO" 00dd 0217 | | .STRTAB 0x0217->0x01e8 ; "CLAUSES_PRESENTATION" 00de 0229 | ) | .STRTAB 0x0229->0x01f2 ; "CLAUSES_GENERALES" 00df 0238 | 8 | .STRTAB 0x0238->0x01fb ; "CLAUSES_LOCALES" 00e0 0245 | E | .STRTAB 0x0245->0x0202 ; "CLAUSES_PSEUDO_GENERALES" 00e1 025b | [ | .STRTAB 0x025b->0x020e ; "PIECE_COURANTE" 00e2 0267 | g | .STRTAB 0x0267->0x0215 ; "OBJET" 00e3 026a | j | .STRTAB 0x026a->0x0218 ; "PNJ" 00e4 026b | k | .STRTAB 0x026b->0x0219 ; "DIRECTION" 00e5 0272 | r | .STREND 0x0272->0x021e 00e6 545f 5652 |T_VR| .STRTAB_STRINGS 021e 0000 0000 | | .XXX[0x2] 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdec7,0x0000,0x0001,0x0006 0226 000b 023e | >| .DBG4T 0x000b,0x023e,0x8000,0x0000 022a 0015 0243 | C| .DBG4T 0x0015,0x0243,0x8000,0x0000 022e 0023 0000 | # | .DBG4T 0x0023,0x0000,0x0005,0x0000 0232 004b 0248 | K H| .DBG4T 0x004b,0x0248,0x0002,0x0000 0236 005b 024e | [ N| .DBG4T 0x005b,0x024e,0x0002,0x0000 023a 006b 0000 | k | .DBG4T 0x006b,0x0000,0x0005,0x0000 023e ; -------------------------------------------------------------------------------------- 023e ; Debug chain 023e ; -------------------------------------------------------------------------------------- 023e 0003 0000 | | .DBGLEN 0x0003,0x0000 0240 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012 0243 ; -------------------------------------------------------------------------------------- 0243 ; Debug chain 0243 ; -------------------------------------------------------------------------------------- 0243 0003 0000 | | .DBGLEN 0x0003,0x0000 0245 0015 001a | | .DBGLNO 0x0015,0x001a,0x001c 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug chain 0248 ; -------------------------------------------------------------------------------------- 0248 0001 0003 | | .DBGLEN 0x0001,0x0003 024a 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x0051,0x0055 024e ; -------------------------------------------------------------------------------------- 024e ; Debug chain 024e ; -------------------------------------------------------------------------------------- 024e 0000 0001 | | .DBGLEN 0x0000,0x0001 0250 005b | [ | .DBGLNO 0x005b 0251 0000 0000 | | .BLANK 0000[0x1af]