|
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_17ace2
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 00d2 | | .CONST 0x00d2 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 482d |H- | Short_Literal 0x2d 000d 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0012 00bf | | Action Accept_Activation 0013 00e9 | | Load_Encached String_Cache 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 4818 |H | Short_Literal 0x18 0016 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0017 4800 |H | Short_Literal 0x0 0018 4817 |H | Short_Literal 0x17 0019 e20d | | Load 0x1,0xd 001a 03f8 | | Declare_Type Discrete,Constrained 001b 4800 |H | Short_Literal 0x0 001c 4817 |H | Short_Literal 0x17 001d 00db | | Load_Top At_Offset_3 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 4801 |H | Short_Literal 0x1 0020 035d | ] | Declare_Type Array,Defined 0021 00d8 | | Load_Top At_Offset_0 0022 0337 | 7 | Declare_Variable Array 0023 00d8 | | Load_Top At_Offset_0 0024 0335 | 5 | Declare_Variable Array,Duplicate 0025 00cd | | Action Spare6_Action 0026 0092 0145 | E| Action Push_String_Extended,0x145 ; "au" 0028 e20f | | Load 0x1,0xf 0029 03b6 | | Declare_Variable Access,By_Allocation,With_Value 002a 4800 |H | Short_Literal 0x0 002b 00da | | Load_Top At_Offset_2 002c 01d6 | | Execute Vector,Field_Write 002d 0092 0146 | F| Action Push_String_Extended,0x146 ; "activer" 002f e20f | | Load 0x1,0xf 0030 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0031 4801 |H | Short_Literal 0x1 0032 00da | | Load_Top At_Offset_2 0033 01d6 | | Execute Vector,Field_Write 0034 0092 0147 | G| Action Push_String_Extended,0x147 ; "alors" 0036 e20f | | Load 0x1,0xf 0037 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0038 4802 |H | Short_Literal 0x2 0039 00da | | Load_Top At_Offset_2 003a 01d6 | | Execute Vector,Field_Write 003b 0092 0148 | H| Action Push_String_Extended,0x148 ; "attendre" 003d e20f | | Load 0x1,0xf 003e 03b6 | | Declare_Variable Access,By_Allocation,With_Value 003f 4803 |H | Short_Literal 0x3 0040 00da | | Load_Top At_Offset_2 0041 01d6 | | Execute Vector,Field_Write 0042 0092 0149 | I| Action Push_String_Extended,0x149 ; "avec" 0044 e20f | | Load 0x1,0xf 0045 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0046 4804 |H | Short_Literal 0x4 0047 00da | | Load_Top At_Offset_2 0048 01d6 | | Execute Vector,Field_Write 0049 0092 014a | J| Action Push_String_Extended,0x14a ; "binaire" 004b e20f | | Load 0x1,0xf 004c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 004d 4805 |H | Short_Literal 0x5 004e 00da | | Load_Top At_Offset_2 004f 01d6 | | Execute Vector,Field_Write 0050 0092 014b | K| Action Push_String_Extended,0x14b ; "desactiver" 0052 e20f | | Load 0x1,0xf 0053 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0054 4806 |H | Short_Literal 0x6 0055 00da | | Load_Top At_Offset_2 0056 01d6 | | Execute Vector,Field_Write 0057 0092 014c | L| Action Push_String_Extended,0x14c ; "discret" 0059 e20f | | Load 0x1,0xf 005a 03b6 | | Declare_Variable Access,By_Allocation,With_Value 005b 4807 |H | Short_Literal 0x7 005c 00da | | Load_Top At_Offset_2 005d 01d6 | | Execute Vector,Field_Write 005e 0092 014d | M| Action Push_String_Extended,0x14d ; "en" 0060 e20f | | Load 0x1,0xf 0061 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0062 4808 |H | Short_Literal 0x8 0063 00da | | Load_Top At_Offset_2 0064 01d6 | | Execute Vector,Field_Write 0065 0092 014e | N| Action Push_String_Extended,0x14e ; "est" 0067 e20f | | Load 0x1,0xf 0068 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0069 4809 |H | Short_Literal 0x9 006a 00da | | Load_Top At_Offset_2 006b 01d6 | | Execute Vector,Field_Write 006c 0092 014f | O| Action Push_String_Extended,0x14f ; "experience" 006e e20f | | Load 0x1,0xf 006f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0070 480a |H | Short_Literal 0xa 0071 00da | | Load_Top At_Offset_2 0072 01d6 | | Execute Vector,Field_Write 0073 0092 0150 | P| Action Push_String_Extended,0x150 ; "faire" 0075 e20f | | Load 0x1,0xf 0076 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0077 480b |H | Short_Literal 0xb 0078 00da | | Load_Top At_Offset_2 0079 01d6 | | Execute Vector,Field_Write 007a 0092 0151 | Q| Action Push_String_Extended,0x151 ; "fin" 007c e20f | | Load 0x1,0xf 007d 03b6 | | Declare_Variable Access,By_Allocation,With_Value 007e 480c |H | Short_Literal 0xc 007f 00da | | Load_Top At_Offset_2 0080 01d6 | | Execute Vector,Field_Write 0081 0092 0152 | R| Action Push_String_Extended,0x152 ; "fois" 0083 e20f | | Load 0x1,0xf 0084 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0085 480d |H | Short_Literal 0xd 0086 00da | | Load_Top At_Offset_2 0087 01d6 | | Execute Vector,Field_Write 0088 0092 0153 | S| Action Push_String_Extended,0x153 ; "fugitif" 008a e20f | | Load 0x1,0xf 008b 03b6 | | Declare_Variable Access,By_Allocation,With_Value 008c 480e |H | Short_Literal 0xe 008d 00da | | Load_Top At_Offset_2 008e 01d6 | | Execute Vector,Field_Write 008f 0092 0154 | T| Action Push_String_Extended,0x154 ; "materiel" 0091 e20f | | Load 0x1,0xf 0092 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0093 480f |H | Short_Literal 0xf 0094 00da | | Load_Top At_Offset_2 0095 01d6 | | Execute Vector,Field_Write 0096 0092 0155 | U| Action Push_String_Extended,0x155 ; "puis" 0098 e20f | | Load 0x1,0xf 0099 03b6 | | Declare_Variable Access,By_Allocation,With_Value 009a 4810 |H | Short_Literal 0x10 009b 00da | | Load_Top At_Offset_2 009c 01d6 | | Execute Vector,Field_Write 009d 0092 0156 | V| Action Push_String_Extended,0x156 ; "repeter" 009f e20f | | Load 0x1,0xf 00a0 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00a1 4811 |H | Short_Literal 0x11 00a2 00da | | Load_Top At_Offset_2 00a3 01d6 | | Execute Vector,Field_Write 00a4 0092 0157 | W| Action Push_String_Extended,0x157 ; "scene" 00a6 e20f | | Load 0x1,0xf 00a7 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00a8 4812 |H | Short_Literal 0x12 00a9 00da | | Load_Top At_Offset_2 00aa 01d6 | | Execute Vector,Field_Write 00ab 0092 0158 | X| Action Push_String_Extended,0x158 ; "si" 00ad e20f | | Load 0x1,0xf 00ae 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00af 4813 |H | Short_Literal 0x13 00b0 00da | | Load_Top At_Offset_2 00b1 01d6 | | Execute Vector,Field_Write 00b2 0092 0159 | Y| Action Push_String_Extended,0x159 ; "spectacle" 00b4 e20f | | Load 0x1,0xf 00b5 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00b6 4814 |H | Short_Literal 0x14 00b7 00da | | Load_Top At_Offset_2 00b8 01d6 | | Execute Vector,Field_Write 00b9 0092 015a | Z| Action Push_String_Extended,0x15a ; "station" 00bb e20f | | Load 0x1,0xf 00bc 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00bd 4815 |H | Short_Literal 0x15 00be 00da | | Load_Top At_Offset_2 00bf 01d6 | | Execute Vector,Field_Write 00c0 0092 015b | [| Action Push_String_Extended,0x15b ; "temps" 00c2 e20f | | Load 0x1,0xf 00c3 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00c4 4817 |H | Short_Literal 0x17 00c5 00da | | Load_Top At_Offset_2 00c6 01d6 | | Execute Vector,Field_Write 00c7 0092 015c | \| Action Push_String_Extended,0x15c ; "temporel" 00c9 e20f | | Load 0x1,0xf 00ca 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00cb 4816 |H | Short_Literal 0x16 00cc 00da | | Load_Top At_Offset_2 00cd 01d6 | | Execute Vector,Field_Write 00ce 00d9 | | Load_Top At_Offset_1 00cf 01d4 | | Execute Vector,Structure_Write 00d0 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00d1 00c7 | | Action Elaborate_Subprogram 00d2 BODY_0008: 00d2 00bc | | Action Signal_Activated 00d3 00bb | | Action Signal_Completion 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4607 |F | Jump_Case 0x8 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00dd 7807 |x | Jump 0xe5 ; case 0x1 00de 780a |x | Jump 0xe9 ; case 0x2 00df 780e |x | Jump 0xee ; case 0x3 00e0 7811 |x | Jump 0xf2 ; case 0x4 00e1 7812 |x | Jump 0xf4 ; case 0x5 00e2 7813 |x | Jump 0xf6 ; case 0x6 00e3 7816 |x | Jump 0xfa ; case 0x7 00e4 4302 |C | .XXX[0x1] 00e5 00da | | Load_Top At_Offset_2 00e6 0091 0117 | | Action Push_String_Extended_Indexed,0x117 ; "L_AU" 00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e9 00db | | Load_Top At_Offset_3 00ea 00db | | Load_Top At_Offset_3 00eb 00e0 | | Load_Encached Standard_Cache 00ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ee 00da | | Load_Top At_Offset_2 00ef 00e0 | | Load_Encached Standard_Cache 00f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f2 00db | | Load_Top At_Offset_3 00f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f4 00db | | Load_Top At_Offset_3 00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f6 e20d | | Load 0x1,0xd 00f7 00dc | | Load_Top At_Offset_4 00f8 0267 | g | Execute Discrete,Predecessor 00f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fa e20d | | Load 0x1,0xd 00fb 00dc | | Load_Top At_Offset_4 00fc 0268 | h | Execute Discrete,Successor 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00cf | | Action Mark_Auxiliary 0104 4817 |H | Short_Literal 0x17 0105 4800 |H | Short_Literal 0x0 0106 0007 | | Action Break_Optional 0107 4801 |H | Short_Literal 0x1 0108 00d9 | | Load_Top At_Offset_1 0109 e212 | | Load 0x1,0x12 010a 01d7 | | Execute Vector,Field_Read 010b 0227 | ' | Execute Access,All_Reference 010c e5ff | | Load 0x2,-0x1 010d e002 | | Load 0x0,0x2 010e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 010f 6802 |h | Jump_Zero 0x112 0110 00d8 | | Load_Top At_Offset_0 0111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0112 00c8 | | Action Pop_Auxiliary_Range 0113 3ff3 |? | Loop_Increasing 0x107 0114 00ce | | Action Pop_Auxiliary 0115 481d |H | Short_Literal 0x1d 0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0117 ; -------------------------------------------------------------------------------------- 0117 ; STRING TABLE 0117 ; -------------------------------------------------------------------------------------- 0117 008e | | .STRTAB 0x008e->0x015e ; "L_AU" 0118 0090 | | .STRTAB 0x0090->0x0160 ; "L_ACTIVER" 0119 0097 | | .STRTAB 0x0097->0x0164 ; "L_ALORS" 011a 009c | | .STRTAB 0x009c->0x0168 ; "L_ATTENDRE" 011b 00a4 | | .STRTAB 0x00a4->0x016d ; "L_AVEC" 011c 00a8 | | .STRTAB 0x00a8->0x0170 ; "L_BINAIRE" 011d 00af | | .STRTAB 0x00af->0x0174 ; "L_DESACTIVER" 011e 00b9 | | .STRTAB 0x00b9->0x017a ; "L_DISCRET" 011f 00c0 | | .STRTAB 0x00c0->0x017f ; "L_EN" 0120 00c2 | | .STRTAB 0x00c2->0x0181 ; "L_EST" 0121 00c5 | | .STRTAB 0x00c5->0x0183 ; "L_EXPERIENCE" 0122 00cf | | .STRTAB 0x00cf->0x0189 ; "L_FAIRE" 0123 00d4 | | .STRTAB 0x00d4->0x018d ; "L_FIN" 0124 00d7 | | .STRTAB 0x00d7->0x018f ; "L_FOIS" 0125 00db | | .STRTAB 0x00db->0x0192 ; "L_FUGITIF" 0126 00e2 | | .STRTAB 0x00e2->0x0197 ; "L_MATERIEL" 0127 00ea | | .STRTAB 0x00ea->0x019c ; "L_PUIS" 0128 00ee | | .STRTAB 0x00ee->0x019f ; "L_REPETER" 0129 00f5 | | .STRTAB 0x00f5->0x01a3 ; "L_SCENE" 012a 00fa | | .STRTAB 0x00fa->0x01a7 ; "L_SI" 012b 00fc | | .STRTAB 0x00fc->0x01a9 ; "L_SPECTACLE" 012c 0105 | | .STRTAB 0x0105->0x01ae ; "L_STATION" 012d 010c | | .STRTAB 0x010c->0x01b3 ; "L_TEMPOREL" 012e 0114 | | .STRTAB 0x0114->0x01b8 ; "L_TEMPS" 012f 0119 | | .STRTAB 0x0119->0x01bb ; "L_CROCHETD" 0130 0121 | ! | .STRTAB 0x0121->0x01c0 ; "L_CROCHETG" 0131 0129 | ) | .STRTAB 0x0129->0x01c5 ; "L_DEUXPOINTS" 0132 0133 | 3 | .STRTAB 0x0133->0x01cb ; "L_DIFFERENT" 0133 013c | < | .STRTAB 0x013c->0x01d1 ; "L_EGAL" 0134 0140 | @ | .STRTAB 0x0140->0x01d4 ; "L_ID" 0135 0142 | B | .STRTAB 0x0142->0x01d6 ; "L_INF" 0136 0145 | E | .STRTAB 0x0145->0x01d8 ; "L_INF_OU_EGAL" 0137 0150 | P | .STRTAB 0x0150->0x01df ; "L_INT" 0138 0153 | S | .STRTAB 0x0153->0x01e1 ; "L_MOINS" 0139 0158 | X | .STRTAB 0x0158->0x01e5 ; "L_PARENTHESED" 013a 0163 | c | .STRTAB 0x0163->0x01eb ; "L_PARENTHESEG" 013b 016e | n | .STRTAB 0x016e->0x01f2 ; "L_PLUS" 013c 0172 | r | .STRTAB 0x0172->0x01f5 ; "L_POINT" 013d 0177 | w | .STRTAB 0x0177->0x01f8 ; "L_VIRGULE" 013e 017e | ~ | .STRTAB 0x017e->0x01fd ; "L_SLASH" 013f 0183 | | .STRTAB 0x0183->0x0200 ; "L_SUP" 0140 0186 | | .STRTAB 0x0186->0x0203 ; "L_SUP_OU_EGAL" 0141 0191 | | .STRTAB 0x0191->0x0209 ; "L_STAR" 0142 0195 | | .STRTAB 0x0195->0x020c ; "L_TIME" 0143 0199 | | .STRTAB 0x0199->0x020f ; "L_UNK" 0144 019c | | .STRTAB 0x019c->0x0212 ; "L_EOF" 0145 019f | | .STRTAB 0x019f->0x0214 ; "au" 0146 019f | | .STRTAB 0x019f->0x0215 ; "activer" 0147 01a4 | | .STRTAB 0x01a4->0x0219 ; "alors" 0148 01a7 | | .STRTAB 0x01a7->0x021b ; "attendre" 0149 01ad | | .STRTAB 0x01ad->0x021f ; "avec" 014a 01af | | .STRTAB 0x01af->0x0221 ; "binaire" 014b 01b4 | | .STRTAB 0x01b4->0x0225 ; "desactiver" 014c 01bc | | .STRTAB 0x01bc->0x022a ; "discret" 014d 01c1 | | .STRTAB 0x01c1->0x022d ; "en" 014e 01c1 | | .STRTAB 0x01c1->0x022e ; "est" 014f 01c2 | | .STRTAB 0x01c2->0x0230 ; "experience" 0150 01ca | | .STRTAB 0x01ca->0x0235 ; "faire" 0151 01cd | | .STRTAB 0x01cd->0x0237 ; "fin" 0152 01ce | | .STRTAB 0x01ce->0x0239 ; "fois" 0153 01d0 | | .STRTAB 0x01d0->0x023b ; "fugitif" 0154 01d5 | | .STRTAB 0x01d5->0x023e ; "materiel" 0155 01db | | .STRTAB 0x01db->0x0242 ; "puis" 0156 01dd | | .STRTAB 0x01dd->0x0244 ; "repeter" 0157 01e2 | | .STRTAB 0x01e2->0x0248 ; "scene" 0158 01e5 | | .STRTAB 0x01e5->0x024a ; "si" 0159 01e5 | | .STRTAB 0x01e5->0x024b ; "spectacle" 015a 01ec | | .STRTAB 0x01ec->0x0250 ; "station" 015b 01f1 | | .STRTAB 0x01f1->0x0253 ; "temps" 015c 01f4 | | .STRTAB 0x01f4->0x0256 ; "temporel" 015d 01fa | | .STREND 0x01fa->0x025a 015e 4c5f 4155 |L_AU| .STRTAB_STRINGS 025a 0000 0000 | | .BLANK 0000[0x6] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0005 | | .DEBUG4 0x0004,0x0005,0x2f4e,0x0000,0x0001,0x0004 0266 000b 0276 | v| .DBG4T 0x000b,0x0276,0x8000,0x0000 026a 0013 027a | z| .DBG4T 0x0013,0x027a,0x8000,0x0000 026e 00db 0000 | | .DBG4T 0x00db,0x0000,0x0005,0x0000 0272 0103 0281 | | .DBG4T 0x0103,0x0281,0x0002,0x0000 0276 ; -------------------------------------------------------------------------------------- 0276 ; Debug chain 0276 ; -------------------------------------------------------------------------------------- 0276 0002 0000 | | .DBGLEN 0x0002,0x0000 0278 000b 0010 | | .DBGLNO 0x000b,0x0010 027a ; -------------------------------------------------------------------------------------- 027a ; Debug chain 027a ; -------------------------------------------------------------------------------------- 027a 0005 0000 | | .DBGLEN 0x0005,0x0000 027c 0013 0017 | | .DBGLNO 0x0013,0x0017,0x001b,0x0021,0x00d0 0281 ; -------------------------------------------------------------------------------------- 0281 ; Debug chain 0281 ; -------------------------------------------------------------------------------------- 0281 0000 0004 | | .DBGLEN 0x0000,0x0004 0283 0104 0107 | | .DBGLNO 0x0104,0x0107,0x0110,0x0115 0287 0000 0000 | | .BLANK 0000[0x179]