|
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]