|
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: 3072 (0xc00) 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 0338 | 8 | .CONST 0x0338 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0048 | H | .CONST 0x0048 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e e002 | | Load 0x0,0x2 000f 0337 | 7 | Declare_Variable Array 0010 4801 |H | Short_Literal 0x1 0011 4805 |H | Short_Literal 0x5 0012 e003 | | Load 0x0,0x3 0013 035b | [ | Declare_Type Array,Constrained 0014 0337 | 7 | Declare_Variable Array 0015 4800 |H | Short_Literal 0x0 0016 4801 |H | Short_Literal 0x1 0017 00da | | Load_Top At_Offset_2 0018 01d6 | | Execute Vector,Field_Write 0019 4801 |H | Short_Literal 0x1 001a 4802 |H | Short_Literal 0x2 001b 00da | | Load_Top At_Offset_2 001c 01d6 | | Execute Vector,Field_Write 001d 482d |H- | Short_Literal 0x2d 001e 4803 |H | Short_Literal 0x3 001f 00da | | Load_Top At_Offset_2 0020 01d6 | | Execute Vector,Field_Write 0021 482f |H/ | Short_Literal 0x2f 0022 4804 |H | Short_Literal 0x4 0023 00da | | Load_Top At_Offset_2 0024 01d6 | | Execute Vector,Field_Write 0025 482e |H. | Short_Literal 0x2e 0026 4805 |H | Short_Literal 0x5 0027 00da | | Load_Top At_Offset_2 0028 01d6 | | Execute Vector,Field_Write 0029 8004 | | Call 0x0,0x4 002a 00d9 | | Load_Top At_Offset_1 002b 01d4 | | Execute Vector,Structure_Write 002c e002 | | Load 0x0,0x2 002d 0337 | 7 | Declare_Variable Array 002e 4801 |H | Short_Literal 0x1 002f 4804 |H | Short_Literal 0x4 0030 e003 | | Load 0x0,0x3 0031 035b | [ | Declare_Type Array,Constrained 0032 0337 | 7 | Declare_Variable Array 0033 4820 |H | Short_Literal 0x20 0034 4801 |H | Short_Literal 0x1 0035 00da | | Load_Top At_Offset_2 0036 01d6 | | Execute Vector,Field_Write 0037 4821 |H! | Short_Literal 0x21 0038 4802 |H | Short_Literal 0x2 0039 00da | | Load_Top At_Offset_2 003a 01d6 | | Execute Vector,Field_Write 003b 4818 |H | Short_Literal 0x18 003c 4803 |H | Short_Literal 0x3 003d 00da | | Load_Top At_Offset_2 003e 01d6 | | Execute Vector,Field_Write 003f 481f |H | Short_Literal 0x1f 0040 4804 |H | Short_Literal 0x4 0041 00da | | Load_Top At_Offset_2 0042 01d6 | | Execute Vector,Field_Write 0043 8004 | | Call 0x0,0x4 0044 00d9 | | Load_Top At_Offset_1 0045 01d4 | | Execute Vector,Structure_Write 0046 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0047 00c7 | | Action Elaborate_Subprogram 0048 BODY_0008: 0048 00bc | | Action Signal_Activated 0049 00bb | | Action Signal_Completion 004a 0000 0000 | | .BLANK 0000[0x6] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0064 | d | .CONST 0x0064 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0009 | | .CONST 0x0009 ; Number of locals 0053 INIT_0050: 0053 00e1 | | Load_Encached Boolean_Cache 0054 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0055 00e1 | | Load_Encached Boolean_Cache 0056 e005 | | Load 0x0,0x5 0057 02ff | | Declare_Variable Variant_Record 0058 00d8 | | Load_Top At_Offset_0 0059 1c00 | | Execute_Immediate Run_Utility,0x0 005a e005 | | Load 0x0,0x5 005b 02ff | | Declare_Variable Variant_Record 005c 00d8 | | Load_Top At_Offset_0 005d 1c00 | | Execute_Immediate Run_Utility,0x0 005e e006 | | Load 0x0,0x6 005f 03bd | | Declare_Variable Access,Duplicate 0060 e007 | | Load 0x0,0x7 0061 0007 | | Action Break_Optional 0062 e008 | | Load 0x0,0x8 0063 0007 | | Action Break_Optional 0064 BODY_0050: 0064 8009 | | Call 0x0,0x9 0065 00d8 | | Load_Top At_Offset_0 0066 0d0c | | Execute_Immediate Less,0xc 0067 7030 |p0 | Jump_Nonzero 0x98 0068 0af4 | | Execute_Immediate Plus,-0xc 0069 4627 |F' | Jump_Case 0x28 006a 782f |x/ | Jump 0x9a ; case 0x0 006b 7826 |x& | Jump 0x92 ; case 0x1 006c 7825 |x% | Jump 0x92 ; case 0x2 006d 7824 |x$ | Jump 0x92 ; case 0x3 006e 786d |xm | Jump 0xdc ; case 0x4 006f 7867 |xg | Jump 0xd7 ; case 0x5 0070 7821 |x! | Jump 0x92 ; case 0x6 0071 7820 |x | Jump 0x92 ; case 0x7 0072 781f |x | Jump 0x92 ; case 0x8 0073 781e |x | Jump 0x92 ; case 0x9 0074 781d |x | Jump 0x92 ; case 0xa 0075 781c |x | Jump 0x92 ; case 0xb 0076 781b |x | Jump 0x92 ; case 0xc 0077 781a |x | Jump 0x92 ; case 0xd 0078 7819 |x | Jump 0x92 ; case 0xe 0079 7818 |x | Jump 0x92 ; case 0xf 007a 7817 |x | Jump 0x92 ; case 0x10 007b 7816 |x | Jump 0x92 ; case 0x11 007c 7815 |x | Jump 0x92 ; case 0x12 007d 788b |x | Jump 0x109 ; case 0x13 007e 7813 |x | Jump 0x92 ; case 0x14 007f 7812 |x | Jump 0x92 ; case 0x15 0080 7811 |x | Jump 0x92 ; case 0x16 0081 7810 |x | Jump 0x92 ; case 0x17 0082 780f |x | Jump 0x92 ; case 0x18 0083 780e |x | Jump 0x92 ; case 0x19 0084 780d |x | Jump 0x92 ; case 0x1a 0085 780c |x | Jump 0x92 ; case 0x1b 0086 780b |x | Jump 0x92 ; case 0x1c 0087 780a |x | Jump 0x92 ; case 0x1d 0088 7809 |x | Jump 0x92 ; case 0x1e 0089 7808 |x | Jump 0x92 ; case 0x1f 008a 7807 |x | Jump 0x92 ; case 0x20 008b 78ba |x | Jump 0x146 ; case 0x21 008c 7805 |x | Jump 0x92 ; case 0x22 008d 7804 |x | Jump 0x92 ; case 0x23 008e 7803 |x | Jump 0x92 ; case 0x24 008f 7802 |x | Jump 0x92 ; case 0x25 0090 7801 |x | Jump 0x92 ; case 0x26 0091 7800 |x | Jump 0x92 ; case 0x27 0092 4800 |H | Short_Literal 0x0 0093 a5fe | | Store_Unchecked 0x2,-0x2 0094 0092 025b | [| Action Push_String_Extended,0x25b ; " : un ident ou 'le' ou 'piece_courante' ou 'si' ou 'dire' ou 'jeu_termine' attendu !" 0096 800a | | Call 0x0,0xa 0097 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0098 00d1 | | Pop_Control Pop_Count_1 0099 7ff8 | | Jump 0x92 009a 800b | | Call 0x0,0xb 009b 4818 |H | Short_Literal 0x18 009c 800c | | Call 0x0,0xc 009d a406 | | Store_Unchecked 0x2,0x6 009e e402 | | Load 0x2,0x2 009f e406 | | Load 0x2,0x6 00a0 800d | | Call 0x0,0xd 00a1 c406 | | Store 0x2,0x6 00a2 c402 | | Store 0x2,0x2 00a3 e5fe | | Load 0x2,-0x2 00a4 e402 | | Load 0x2,0x2 00a5 0279 | y | Execute Discrete,And 00a6 a5fe | | Store_Unchecked 0x2,-0x2 00a7 480d |H | Short_Literal 0xd 00a8 800e | | Call 0x0,0xe 00a9 6827 |h' | Jump_Zero 0xd1 00aa 4811 |H | Short_Literal 0x11 00ab 800c | | Call 0x0,0xc 00ac a5ff | | Store_Unchecked 0x2,-0x1 00ad 00db | | Load_Top At_Offset_3 00ae e5ff | | Load 0x2,-0x1 00af 0227 | ' | Execute Access,All_Reference 00b0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00b1 4818 |H | Short_Literal 0x18 00b2 800c | | Call 0x0,0xc 00b3 003b | ; | Store_Top Access,At_Offset_3 00b4 800b | | Call 0x0,0xb 00b5 e402 | | Load 0x2,0x2 00b6 00d9 | | Load_Top At_Offset_1 00b7 800f | | Call 0x0,0xf 00b8 003a | : | Store_Top Access,At_Offset_2 00b9 c402 | | Store 0x2,0x2 00ba e5fe | | Load 0x2,-0x2 00bb e402 | | Load 0x2,0x2 00bc 0279 | y | Execute Discrete,And 00bd a5fe | | Store_Unchecked 0x2,-0x2 00be 00d8 | | Load_Top At_Offset_0 00bf 480b |H | Short_Literal 0xb 00c0 8010 | | Call 0x0,0x10 00c1 003b | ; | Store_Top Access,At_Offset_3 00c2 00da | | Load_Top At_Offset_2 00c3 e5ff | | Load 0x2,-0x1 00c4 0227 | ' | Execute Access,All_Reference 00c5 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00c6 480e |H | Short_Literal 0xe 00c7 800e | | Call 0x0,0xe 00c8 6802 |h | Jump_Zero 0xcb 00c9 800b | | Call 0x0,0xb 00ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00cb 4800 |H | Short_Literal 0x0 00cc a5fe | | Store_Unchecked 0x2,-0x2 00cd 0092 025c | \| Action Push_String_Extended,0x25c ; " : 'fin_si' attendu !" 00cf 800a | | Call 0x0,0xa 00d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d1 4800 |H | Short_Literal 0x0 00d2 a5fe | | Store_Unchecked 0x2,-0x2 00d3 0092 025d | ]| Action Push_String_Extended,0x25d ; " : 'alors' attendu !" 00d5 800a | | Call 0x0,0xa 00d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d7 480e |H | Short_Literal 0xe 00d8 800c | | Call 0x0,0xc 00d9 a5ff | | Store_Unchecked 0x2,-0x1 00da 800b | | Call 0x0,0xb 00db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00dc 480d |H | Short_Literal 0xd 00dd 800c | | Call 0x0,0xc 00de a5ff | | Store_Unchecked 0x2,-0x1 00df 800b | | Call 0x0,0xb 00e0 8009 | | Call 0x0,0x9 00e1 0b2f | / | Execute_Immediate Case_Compare,0x2f 00e2 7008 |p | Jump_Nonzero 0xeb 00e3 0f2d | - | Execute_Immediate Equal,0x2d 00e4 7013 |p | Jump_Nonzero 0xf8 00e5 4800 |H | Short_Literal 0x0 00e6 a5fe | | Store_Unchecked 0x2,-0x2 00e7 0092 025e | ^| Action Push_String_Extended,0x25e ; " : une string ou un ident attendu !" 00e9 800a | | Call 0x0,0xa 00ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00eb 00d1 | | Pop_Control Pop_Count_1 00ec e404 | | Load 0x2,0x4 00ed 8011 | | Call 0x0,0x11 00ee 8012 | | Call 0x0,0x12 00ef 00d1 | | Pop_Control Pop_Count_1 00f0 e404 | | Load 0x2,0x4 00f1 4813 |H | Short_Literal 0x13 00f2 8013 | | Call 0x0,0x13 00f3 e5ff | | Load 0x2,-0x1 00f4 0227 | ' | Execute Access,All_Reference 00f5 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00f6 800b | | Call 0x0,0xb 00f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f8 e405 | | Load 0x2,0x5 00f9 8011 | | Call 0x0,0x11 00fa 8014 | | Call 0x0,0x14 00fb 8012 | | Call 0x0,0x12 00fc 00d1 | | Pop_Control Pop_Count_1 00fd e402 | | Load 0x2,0x2 00fe 8015 | | Call 0x0,0x15 00ff c402 | | Store 0x2,0x2 0100 e5fe | | Load 0x2,-0x2 0101 e402 | | Load 0x2,0x2 0102 0279 | y | Execute Discrete,And 0103 a5fe | | Store_Unchecked 0x2,-0x2 0104 e016 | | Load 0x0,0x16 0105 e5ff | | Load 0x2,-0x1 0106 0227 | ' | Execute Access,All_Reference 0107 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0108 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0109 4801 |H | Short_Literal 0x1 010a 800c | | Call 0x0,0xc 010b a406 | | Store_Unchecked 0x2,0x6 010c 800b | | Call 0x0,0xb 010d 480f |H | Short_Literal 0xf 010e 800e | | Call 0x0,0xe 010f 6830 |h0 | Jump_Zero 0x140 0110 4809 |H | Short_Literal 0x9 0111 800c | | Call 0x0,0xc 0112 a5ff | | Store_Unchecked 0x2,-0x1 0113 00db | | Load_Top At_Offset_3 0114 e5ff | | Load 0x2,-0x1 0115 0227 | ' | Execute Access,All_Reference 0116 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0117 800b | | Call 0x0,0xb 0118 482d |H- | Short_Literal 0x2d 0119 800e | | Call 0x0,0xe 011a 681f |h | Jump_Zero 0x13a 011b e404 | | Load 0x2,0x4 011c 8011 | | Call 0x0,0x11 011d 8014 | | Call 0x0,0x14 011e 8012 | | Call 0x0,0x12 011f 00d1 | | Pop_Control Pop_Count_1 0120 e403 | | Load 0x2,0x3 0121 00da | | Load_Top At_Offset_2 0122 e017 | | Load 0x0,0x17 0123 8011 | | Call 0x0,0x11 0124 8014 | | Call 0x0,0x14 0125 8018 | | Call 0x0,0x18 0126 003b | ; | Store_Top Access,At_Offset_3 0127 c403 | | Store 0x2,0x3 0128 e403 | | Load 0x2,0x3 0129 7006 |p | Jump_Nonzero 0x130 012a 0092 025f | _| Action Push_String_Extended,0x25f ; " : nom de piece inconnu !" 012c 800a | | Call 0x0,0xa 012d 4800 |H | Short_Literal 0x0 012e a5fe | | Store_Unchecked 0x2,-0x2 012f 7808 |x | Jump 0x138 0130 00d9 | | Load_Top At_Offset_1 0131 4808 |H | Short_Literal 0x8 0132 8019 | | Call 0x0,0x19 0133 003b | ; | Store_Top Access,At_Offset_3 0134 00da | | Load_Top At_Offset_2 0135 e5ff | | Load 0x2,-0x1 0136 0227 | ' | Execute Access,All_Reference 0137 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0138 800b | | Call 0x0,0xb 0139 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013a 4800 |H | Short_Literal 0x0 013b a5fe | | Store_Unchecked 0x2,-0x2 013c 0092 0260 | `| Action Push_String_Extended,0x260 ; " : un ident attendu !" 013e 800a | | Call 0x0,0xa 013f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0140 4800 |H | Short_Literal 0x0 0141 a5fe | | Store_Unchecked 0x2,-0x2 0142 0092 0261 | a| Action Push_String_Extended,0x261 ; " : 'vaut' attendu" 0144 800a | | Call 0x0,0xa 0145 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0146 e402 | | Load 0x2,0x2 0147 8015 | | Call 0x0,0x15 0148 c402 | | Store 0x2,0x2 0149 e5fe | | Load 0x2,-0x2 014a e402 | | Load 0x2,0x2 014b 0279 | y | Execute Discrete,And 014c a5fe | | Store_Unchecked 0x2,-0x2 014d 8009 | | Call 0x0,0x9 014e 00d8 | | Load_Top At_Offset_0 014f 480f |H | Short_Literal 0xf 0150 4827 |H' | Short_Literal 0x27 0151 0262 | b | Execute Discrete,In_Range 0152 6901 |i | Jump_Zero 0x254 0153 0af1 | | Execute_Immediate Plus,-0xf 0154 4618 |F | Jump_Case 0x19 0155 7846 |xF | Jump 0x19c ; case 0x0 0156 78fe |x | Jump 0x255 ; case 0x1 0157 78fd |x | Jump 0x255 ; case 0x2 0158 78fc |x | Jump 0x255 ; case 0x3 0159 78fb |x | Jump 0x255 ; case 0x4 015a 78fa |x | Jump 0x255 ; case 0x5 015b 78f9 |x | Jump 0x255 ; case 0x6 015c 78f8 |x | Jump 0x255 ; case 0x7 015d 78f7 |x | Jump 0x255 ; case 0x8 015e 78f6 |x | Jump 0x255 ; case 0x9 015f 78f5 |x | Jump 0x255 ; case 0xa 0160 78f4 |x | Jump 0x255 ; case 0xb 0161 78f3 |x | Jump 0x255 ; case 0xc 0162 78f2 |x | Jump 0x255 ; case 0xd 0163 78f1 |x | Jump 0x255 ; case 0xe 0164 78f0 |x | Jump 0x255 ; case 0xf 0165 78ef |x | Jump 0x255 ; case 0x10 0166 78ee |x | Jump 0x255 ; case 0x11 0167 78ed |x | Jump 0x255 ; case 0x12 0168 78ec |x | Jump 0x255 ; case 0x13 0169 78eb |x | Jump 0x255 ; case 0x14 016a 785f |x_ | Jump 0x1ca ; case 0x15 016b 788c |x | Jump 0x1f8 ; case 0x16 016c 78b9 |x | Jump 0x226 ; case 0x17 016d 7800 |x | Jump 0x16e ; case 0x18 016e 4809 |H | Short_Literal 0x9 016f 800c | | Call 0x0,0xc 0170 a5ff | | Store_Unchecked 0x2,-0x1 0171 e016 | | Load 0x0,0x16 0172 e5ff | | Load 0x2,-0x1 0173 0227 | ' | Execute Access,All_Reference 0174 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0175 800b | | Call 0x0,0xb 0176 482e |H. | Short_Literal 0x2e 0177 800e | | Call 0x0,0xe 0178 681d |h | Jump_Zero 0x196 0179 4817 |H | Short_Literal 0x17 017a 800c | | Call 0x0,0xc 017b a406 | | Store_Unchecked 0x2,0x6 017c e016 | | Load 0x0,0x16 017d e406 | | Load 0x2,0x6 017e 0227 | ' | Execute Access,All_Reference 017f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0180 8011 | | Call 0x0,0x11 0181 00e2 | | Load_Encached Integer_Cache 0182 00e0 | | Load_Encached Standard_Cache 0183 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0184 00d8 | | Load_Top At_Offset_0 0185 00e3 | | Load_Encached Natural_Cache 0186 0260 | ` | Execute Discrete,In_Type 0187 7001 |p | Jump_Nonzero 0x189 0188 0801 | | Execute_Immediate Raise,0x1 0189 4812 |H | Short_Literal 0x12 018a 801a | | Call 0x0,0x1a 018b 003b | ; | Store_Top Access,At_Offset_3 018c 00da | | Load_Top At_Offset_2 018d e406 | | Load 0x2,0x6 018e 0227 | ' | Execute Access,All_Reference 018f 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0190 00db | | Load_Top At_Offset_3 0191 e5ff | | Load 0x2,-0x1 0192 0227 | ' | Execute Access,All_Reference 0193 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0194 800b | | Call 0x0,0xb 0195 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0196 4800 |H | Short_Literal 0x0 0197 a5fe | | Store_Unchecked 0x2,-0x2 0198 0092 0262 | b| Action Push_String_Extended,0x262 ; " : un entier attendu !" 019a 800a | | Call 0x0,0xa 019b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019c 4809 |H | Short_Literal 0x9 019d 800c | | Call 0x0,0xc 019e a5ff | | Store_Unchecked 0x2,-0x1 019f e016 | | Load 0x0,0x16 01a0 e5ff | | Load 0x2,-0x1 01a1 0227 | ' | Execute Access,All_Reference 01a2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01a3 800b | | Call 0x0,0xb 01a4 e20f | | Load 0x1,0xf 01a5 8009 | | Call 0x0,0x9 01a6 801b | | Call 0x0,0x1b 01a7 680c |h | Jump_Zero 0x1b4 01a8 e402 | | Load 0x2,0x2 01a9 801c | | Call 0x0,0x1c 01aa c402 | | Store 0x2,0x2 01ab e5fe | | Load 0x2,-0x2 01ac e402 | | Load 0x2,0x2 01ad 0279 | y | Execute Discrete,And 01ae a5fe | | Store_Unchecked 0x2,-0x2 01af e01d | | Load 0x0,0x1d 01b0 e5ff | | Load 0x2,-0x1 01b1 0227 | ' | Execute Access,All_Reference 01b2 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b4 e20e | | Load 0x1,0xe 01b5 8009 | | Call 0x0,0x9 01b6 801b | | Call 0x0,0x1b 01b7 680c |h | Jump_Zero 0x1c4 01b8 e402 | | Load 0x2,0x2 01b9 801e | | Call 0x0,0x1e 01ba c402 | | Store 0x2,0x2 01bb e5fe | | Load 0x2,-0x2 01bc e402 | | Load 0x2,0x2 01bd 0279 | y | Execute Discrete,And 01be a5fe | | Store_Unchecked 0x2,-0x2 01bf e01f | | Load 0x0,0x1f 01c0 e5ff | | Load 0x2,-0x1 01c1 0227 | ' | Execute Access,All_Reference 01c2 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c4 4800 |H | Short_Literal 0x0 01c5 a5fe | | Store_Unchecked 0x2,-0x2 01c6 0092 0263 | c| Action Push_String_Extended,0x263 ; " : 'vrai' ou 'faux' ou un ident ou un entier ou une chaine ou 'objet' ou 'hero' ou 'piece_courante' ou 'direction' attendu !" 01c8 800a | | Call 0x0,0xa 01c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ca 4809 |H | Short_Literal 0x9 01cb 800c | | Call 0x0,0xc 01cc a5ff | | Store_Unchecked 0x2,-0x1 01cd e016 | | Load 0x0,0x16 01ce e5ff | | Load 0x2,-0x1 01cf 0227 | ' | Execute Access,All_Reference 01d0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01d1 800b | | Call 0x0,0xb 01d2 482e |H. | Short_Literal 0x2e 01d3 800e | | Call 0x0,0xe 01d4 681d |h | Jump_Zero 0x1f2 01d5 4814 |H | Short_Literal 0x14 01d6 800c | | Call 0x0,0xc 01d7 a406 | | Store_Unchecked 0x2,0x6 01d8 e016 | | Load 0x0,0x16 01d9 e406 | | Load 0x2,0x6 01da 0227 | ' | Execute Access,All_Reference 01db 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01dc 8011 | | Call 0x0,0x11 01dd 00e2 | | Load_Encached Integer_Cache 01de 00e0 | | Load_Encached Standard_Cache 01df 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01e0 00d8 | | Load_Top At_Offset_0 01e1 00e3 | | Load_Encached Natural_Cache 01e2 0260 | ` | Execute Discrete,In_Type 01e3 7001 |p | Jump_Nonzero 0x1e5 01e4 0801 | | Execute_Immediate Raise,0x1 01e5 4812 |H | Short_Literal 0x12 01e6 801a | | Call 0x0,0x1a 01e7 003b | ; | Store_Top Access,At_Offset_3 01e8 00da | | Load_Top At_Offset_2 01e9 e406 | | Load 0x2,0x6 01ea 0227 | ' | Execute Access,All_Reference 01eb 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01ec 00db | | Load_Top At_Offset_3 01ed e5ff | | Load 0x2,-0x1 01ee 0227 | ' | Execute Access,All_Reference 01ef 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01f0 800b | | Call 0x0,0xb 01f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f2 4800 |H | Short_Literal 0x0 01f3 a5fe | | Store_Unchecked 0x2,-0x2 01f4 0092 0262 | b| Action Push_String_Extended,0x262 ; " : un entier attendu !" 01f6 800a | | Call 0x0,0xa 01f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f8 4809 |H | Short_Literal 0x9 01f9 800c | | Call 0x0,0xc 01fa a5ff | | Store_Unchecked 0x2,-0x1 01fb e016 | | Load 0x0,0x16 01fc e5ff | | Load 0x2,-0x1 01fd 0227 | ' | Execute Access,All_Reference 01fe 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01ff 800b | | Call 0x0,0xb 0200 482e |H. | Short_Literal 0x2e 0201 800e | | Call 0x0,0xe 0202 681d |h | Jump_Zero 0x220 0203 4815 |H | Short_Literal 0x15 0204 800c | | Call 0x0,0xc 0205 a406 | | Store_Unchecked 0x2,0x6 0206 e016 | | Load 0x0,0x16 0207 e406 | | Load 0x2,0x6 0208 0227 | ' | Execute Access,All_Reference 0209 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 020a 8011 | | Call 0x0,0x11 020b 00e2 | | Load_Encached Integer_Cache 020c 00e0 | | Load_Encached Standard_Cache 020d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 020e 00d8 | | Load_Top At_Offset_0 020f 00e3 | | Load_Encached Natural_Cache 0210 0260 | ` | Execute Discrete,In_Type 0211 7001 |p | Jump_Nonzero 0x213 0212 0801 | | Execute_Immediate Raise,0x1 0213 4812 |H | Short_Literal 0x12 0214 801a | | Call 0x0,0x1a 0215 003b | ; | Store_Top Access,At_Offset_3 0216 00da | | Load_Top At_Offset_2 0217 e406 | | Load 0x2,0x6 0218 0227 | ' | Execute Access,All_Reference 0219 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 021a 00db | | Load_Top At_Offset_3 021b e5ff | | Load 0x2,-0x1 021c 0227 | ' | Execute Access,All_Reference 021d 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 021e 800b | | Call 0x0,0xb 021f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0220 4800 |H | Short_Literal 0x0 0221 a5fe | | Store_Unchecked 0x2,-0x2 0222 0092 0262 | b| Action Push_String_Extended,0x262 ; " : un entier attendu !" 0224 800a | | Call 0x0,0xa 0225 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0226 4809 |H | Short_Literal 0x9 0227 800c | | Call 0x0,0xc 0228 a5ff | | Store_Unchecked 0x2,-0x1 0229 e016 | | Load 0x0,0x16 022a e5ff | | Load 0x2,-0x1 022b 0227 | ' | Execute Access,All_Reference 022c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 022d 800b | | Call 0x0,0xb 022e 482e |H. | Short_Literal 0x2e 022f 800e | | Call 0x0,0xe 0230 681d |h | Jump_Zero 0x24e 0231 4816 |H | Short_Literal 0x16 0232 800c | | Call 0x0,0xc 0233 a406 | | Store_Unchecked 0x2,0x6 0234 e016 | | Load 0x0,0x16 0235 e406 | | Load 0x2,0x6 0236 0227 | ' | Execute Access,All_Reference 0237 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0238 8011 | | Call 0x0,0x11 0239 00e2 | | Load_Encached Integer_Cache 023a 00e0 | | Load_Encached Standard_Cache 023b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 023c 00d8 | | Load_Top At_Offset_0 023d 00e3 | | Load_Encached Natural_Cache 023e 0260 | ` | Execute Discrete,In_Type 023f 7001 |p | Jump_Nonzero 0x241 0240 0801 | | Execute_Immediate Raise,0x1 0241 4812 |H | Short_Literal 0x12 0242 801a | | Call 0x0,0x1a 0243 003b | ; | Store_Top Access,At_Offset_3 0244 00da | | Load_Top At_Offset_2 0245 e406 | | Load 0x2,0x6 0246 0227 | ' | Execute Access,All_Reference 0247 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0248 00db | | Load_Top At_Offset_3 0249 e5ff | | Load 0x2,-0x1 024a 0227 | ' | Execute Access,All_Reference 024b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 024c 800b | | Call 0x0,0xb 024d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024e 4800 |H | Short_Literal 0x0 024f a5fe | | Store_Unchecked 0x2,-0x2 0250 0092 0262 | b| Action Push_String_Extended,0x262 ; " : un entier attendu !" 0252 800a | | Call 0x0,0xa 0253 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0254 00d1 | | Pop_Control Pop_Count_1 0255 4800 |H | Short_Literal 0x0 0256 a5fe | | Store_Unchecked 0x2,-0x2 0257 0092 0264 | d| Action Push_String_Extended,0x264 ; " : '+' ou '-' ou '*' ou '/' ou 'vaut' attendu !" 0259 800a | | Call 0x0,0xa 025a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025b ; -------------------------------------------------------------------------------------- 025b ; STRING TABLE 025b ; -------------------------------------------------------------------------------------- 025b 0016 | | .STRTAB 0x0016->0x0266 ; " : un ident ou 'le' ou 'piece_courante' ou 'si' ou 'dire' ou 'jeu_termine' attendu !" 025c 0068 | h | .STRTAB 0x0068->0x0290 ; " : 'fin_si' attendu !" 025d 007b | { | .STRTAB 0x007b->0x029a ; " : 'alors' attendu !" 025e 008d | | .STRTAB 0x008d->0x02a4 ; " : une string ou un ident attendu !" 025f 00ae | | .STRTAB 0x00ae->0x02b6 ; " : nom de piece inconnu !" 0260 00c5 | | .STRTAB 0x00c5->0x02c2 ; " : un ident attendu !" 0261 00d8 | | .STRTAB 0x00d8->0x02cd ; " : 'vaut' attendu" 0262 00e7 | | .STRTAB 0x00e7->0x02d5 ; " : un entier attendu !" 0263 00fb | | .STRTAB 0x00fb->0x02e0 ; " : 'vrai' ou 'faux' ou un ident ou un entier ou une chaine ou 'objet' ou 'hero' ou 'piece_courante' ou 'direction' attendu !" 0264 0175 | u | .STRTAB 0x0175->0x031e ; " : '+' ou '-' ou '*' ou '/' ou 'vaut' attendu !" 0265 01a2 | | .STREND 0x01a2->0x0336 0266 203a 2075 | : u| .STRTAB_STRINGS 0336 0000 0000 | | .XXX[0x2] 0338 ; -------------------------------------------------------------------------------------- 0338 ; Debug Table 0338 ; -------------------------------------------------------------------------------------- 0338 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdfb5,0x0000,0x0001,0x0003 033e 000b 034a | J| .DBG4T 0x000b,0x034a,0x8000,0x0000 0342 000e 034d | M| .DBG4T 0x000e,0x034d,0x8000,0x0000 0346 0053 0352 | S R| .DBG4T 0x0053,0x0352,0x0001,0x4000 034a ; -------------------------------------------------------------------------------------- 034a ; Debug chain 034a ; -------------------------------------------------------------------------------------- 034a 0001 0000 | | .DBGLEN 0x0001,0x0000 034c 000b | | .DBGLNO 0x000b 034d ; -------------------------------------------------------------------------------------- 034d ; Debug chain 034d ; -------------------------------------------------------------------------------------- 034d 0003 0000 | | .DBGLEN 0x0003,0x0000 034f 000e 002c | ,| .DBGLNO 0x000e,0x002c,0x0046 0352 ; -------------------------------------------------------------------------------------- 0352 ; Debug chain 0352 ; -------------------------------------------------------------------------------------- 0352 0007 0079 | y| .DBGLEN 0x0007,0x0079 0354 0053 0055 | S U| .DBGLNO 0x0053,0x0055,0x0056,0x005a,0x005e,0x0060,0x0062,0x0064,0x0092,0x0094,0x009a,0x009b,0x009e,0x00a3,0x00a7,0x00aa,0x00ad,0x00b1,0x00b4,0x00b5,0x00ba,0x00be,0x00c2,0x00c6,0x00c9,0x00cb,0x00cd,0x00d1,0x00d3,0x00d7,0x00da,0x00dc,0x00df,0x00e0,0x00e5,0x00e7,0x00ec,0x00f0,0x00f6,0x00f8,0x00fd,0x0100,0x0104,0x0109,0x010c,0x010d,0x0110,0x0113,0x0117,0x0118,0x011b,0x0120,0x0128,0x012a,0x012d,0x0130,0x0134,0x0138,0x013a,0x013c,0x0140,0x0142,0x0146,0x0149,0x014d,0x016e,0x0171,0x0175,0x0176,0x0179,0x017c,0x0180,0x018c,0x0190,0x0194,0x0196,0x0198,0x019c,0x019f,0x01a3,0x01a4,0x01a8,0x01ab,0x01af,0x01b4,0x01b8,0x01bb,0x01bf,0x01c4,0x01c6,0x01ca,0x01cd,0x01d1,0x01d2,0x01d5,0x01d8,0x01dc,0x01e8,0x01ec,0x01f0,0x01f2,0x01f4,0x01f8,0x01fb,0x01ff,0x0200,0x0203,0x0206,0x020a,0x0216,0x021a,0x021e,0x0220,0x0222,0x0226,0x0229,0x022d,0x022e,0x0231,0x0234,0x0238,0x0244,0x0248,0x024c,0x024e,0x0250,0x0255,0x0257 03d4 0001 0078 | x| .XXX[0x79] 03d6 0079 0002 | y | 03d8 0003 0004 | | 03da 0005 0006 | | 03dc 0007 0008 | | 03de 0009 000a | | 03e0 000b 000c | | 03e2 000d 000e | | 03e4 000f 0010 | | 03e6 0011 0012 | | 03e8 0013 0014 | | 03ea 0015 0016 | | 03ec 0017 0018 | | 03ee 0019 0021 | !| 03f0 0022 001a | " | 03f2 001b 001c | | 03f4 001d 001e | | 03f6 001f 0020 | | 03f8 0023 0024 | # $| 03fa 0025 0026 | % &| 03fc 0027 0028 | ' (| 03fe 0029 002a | ) *| 0400 002b 002c | + ,| 0402 002d 002e | - .| 0404 002f 0030 | / 0| 0406 0031 0032 | 1 2| 0408 0033 0034 | 3 4| 040a 0035 0036 | 5 6| 040c 0037 0038 | 7 8| 040e 006a 006b | j k| 0410 006c 006d | l m| 0412 006e 006f | n o| 0414 0070 0071 | p q| 0416 0072 0073 | r s| 0418 0074 0075 | t u| 041a 0039 003a | 9 :| 041c 003b 003c | ; <| 041e 003d 003e | = >| 0420 003f 0040 | ? @| 0422 0041 0042 | A B| 0424 0043 0044 | C D| 0426 0045 0046 | E F| 0428 0047 0048 | G H| 042a 0049 004a | I J| 042c 004b 004c | K L| 042e 004d 004e | M N| 0430 004f 0050 | O P| 0432 0051 0052 | Q R| 0434 0053 0054 | S T| 0436 0055 0056 | U V| 0438 0057 0058 | W X| 043a 0059 005a | Y Z| 043c 005b 005c | [ \| 043e 005d 005e | ] ^| 0440 005f 0060 | _ `| 0442 0061 0062 | a b| 0444 0063 0064 | c d| 0446 0065 0066 | e f| 0448 0067 0068 | g h| 044a 0069 0076 | i v| 044c 0077 | w | 044d 0000 0000 | | .BLANK 0000[0x1b3]