DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦89cc0a193⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0314bd

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 0240       | @  |		.CONST	0x0240								; 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 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 0060       | `  |		.CONST	0x0060								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0008       |    |		.CONST	0x0008								; 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 00e3       |    |		Load_Encached	Natural_Cache
0057 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0058 e005       |    |		Load	0x0,0x5
0059 02ff       |    |		Declare_Variable	Variant_Record
005a 00d8       |    |		Load_Top	At_Offset_0
005b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005c e006       |    |		Load	0x0,0x6
005d 03bd       |    |		Declare_Variable	Access,Duplicate
005e e007       |    |		Load	0x0,0x7
005f 0007       |    |		Action	Break_Optional
0060			BODY_0050:
0060 8008       |    |		Call	0x0,0x8
0061 00d8       |    |		Load_Top	At_Offset_0
0062 0d1f       |    |		Execute_Immediate	Less,0x1f
0063 701d       |p   |		Jump_Nonzero	0x81
0064 0ae1       |    |		Execute_Immediate	Plus,-0x1f
0065 4614       |F   |		Jump_Case	0x15
0066 781c       |x   |		Jump	0x83								; case 0x0
0067 7813       |x   |		Jump	0x7b								; case 0x1
0068 7812       |x   |		Jump	0x7b								; case 0x2
0069 7811       |x   |		Jump	0x7b								; case 0x3
006a 7810       |x   |		Jump	0x7b								; case 0x4
006b 780f       |x   |		Jump	0x7b								; case 0x5
006c 780e       |x   |		Jump	0x7b								; case 0x6
006d 780d       |x   |		Jump	0x7b								; case 0x7
006e 780c       |x   |		Jump	0x7b								; case 0x8
006f 780b       |x   |		Jump	0x7b								; case 0x9
0070 780a       |x   |		Jump	0x7b								; case 0xa
0071 788b       |x   |		Jump	0xfd								; case 0xb
0072 7808       |x   |		Jump	0x7b								; case 0xc
0073 7807       |x   |		Jump	0x7b								; case 0xd
0074 784a       |xJ  |		Jump	0xbf								; case 0xe
0075 7805       |x   |		Jump	0x7b								; case 0xf
0076 7804       |x   |		Jump	0x7b								; case 0x10
0077 7803       |x   |		Jump	0x7b								; case 0x11
0078 7802       |x   |		Jump	0x7b								; case 0x12
0079 7801       |x   |		Jump	0x7b								; case 0x13
007a 7800       |x   |		Jump	0x7b								; case 0x14
007b 4800       |H   |		Short_Literal	0x0
007c a5fe       |    |		Store_Unchecked	0x2,-0x2
007d 0092 01a5  |    |		Action	Push_String_Extended,0x1a5					; " : ident ou ( attendu !"
007f 8009       |    |		Call	0x0,0x9
0080 7905       |y   |		Jump	0x186
0081 00d1       |    |		Pop_Control	Pop_Count_1
0082 7ff8       |    |		Jump	0x7b
0083 4801       |H   |		Short_Literal	0x1
0084 800a       |    |		Call	0x0,0xa
0085 003b       | ;  |		Store_Top	Access,At_Offset_3
0086 800b       |    |		Call	0x0,0xb
0087 4823       |H#  |		Short_Literal	0x23
0088 800c       |    |		Call	0x0,0xc
0089 682f       |h/  |		Jump_Zero	0xb9
008a 800b       |    |		Call	0x0,0xb
008b 480a       |H   |		Short_Literal	0xa
008c 800a       |    |		Call	0x0,0xa
008d a5ff       |    |		Store_Unchecked	0x2,-0x1
008e 00da       |    |		Load_Top	At_Offset_2
008f e5ff       |    |		Load	0x2,-0x1
0090 0227       | '  |		Execute	Access,All_Reference
0091 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0092 482d       |H-  |		Short_Literal	0x2d
0093 800c       |    |		Call	0x0,0xc
0094 681e       |h   |		Jump_Zero	0xb3
0095 00db       |    |		Load_Top	At_Offset_3
0096 800d       |    |		Call	0x0,0xd
0097 800e       |    |		Call	0x0,0xe
0098 800f       |    |		Call	0x0,0xf
0099 00d1       |    |		Pop_Control	Pop_Count_1
009a e403       |    |		Load	0x2,0x3
009b 00d9       |    |		Load_Top	At_Offset_1
009c e010       |    |		Load	0x0,0x10
009d 800d       |    |		Call	0x0,0xd
009e 8011       |    |		Call	0x0,0x11
009f 003a       | :  |		Store_Top	Access,At_Offset_2
00a0 c403       |    |		Store	0x2,0x3
00a1 e403       |    |		Load	0x2,0x3
00a2 7006       |p   |		Jump_Nonzero	0xa9
00a3 0092 01a6  |    |		Action	Push_String_Extended,0x1a6					; " : nom de piece inconnu !"
00a5 8009       |    |		Call	0x0,0x9
00a6 4800       |H   |		Short_Literal	0x0
00a7 a5fe       |    |		Store_Unchecked	0x2,-0x2
00a8 78dd       |x   |		Jump	0x186
00a9 00d8       |    |		Load_Top	At_Offset_0
00aa 4808       |H   |		Short_Literal	0x8
00ab 8012       |    |		Call	0x0,0x12
00ac 003a       | :  |		Store_Top	Access,At_Offset_2
00ad 00d9       |    |		Load_Top	At_Offset_1
00ae e5ff       |    |		Load	0x2,-0x1
00af 0227       | '  |		Execute	Access,All_Reference
00b0 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00b1 800b       |    |		Call	0x0,0xb
00b2 78d3       |x   |		Jump	0x186
00b3 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; " : un ident attendu !"
00b5 8009       |    |		Call	0x0,0x9
00b6 4800       |H   |		Short_Literal	0x0
00b7 a5fe       |    |		Store_Unchecked	0x2,-0x2
00b8 78cd       |x   |		Jump	0x186
00b9 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; " : '=' attendu !"
00bb 8009       |    |		Call	0x0,0x9
00bc 4800       |H   |		Short_Literal	0x0
00bd a5fe       |    |		Store_Unchecked	0x2,-0x2
00be 78c7       |x   |		Jump	0x186
00bf e402       |    |		Load	0x2,0x2
00c0 8013       |    |		Call	0x0,0x13
00c1 c402       |    |		Store	0x2,0x2
00c2 e5fe       |    |		Load	0x2,-0x2
00c3 e402       |    |		Load	0x2,0x2
00c4 0279       | y  |		Execute	Discrete,And
00c5 a5fe       |    |		Store_Unchecked	0x2,-0x2
00c6 4823       |H#  |		Short_Literal	0x23
00c7 800c       |    |		Call	0x0,0xc
00c8 682e       |h.  |		Jump_Zero	0xf7
00c9 480a       |H   |		Short_Literal	0xa
00ca 800a       |    |		Call	0x0,0xa
00cb 003a       | :  |		Store_Top	Access,At_Offset_2
00cc e014       |    |		Load	0x0,0x14
00cd 00da       |    |		Load_Top	At_Offset_2
00ce 0227       | '  |		Execute	Access,All_Reference
00cf 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00d0 800b       |    |		Call	0x0,0xb
00d1 e20f       |    |		Load	0x1,0xf
00d2 8008       |    |		Call	0x0,0x8
00d3 8015       |    |		Call	0x0,0x15
00d4 680c       |h   |		Jump_Zero	0xe1
00d5 e402       |    |		Load	0x2,0x2
00d6 8016       |    |		Call	0x0,0x16
00d7 c402       |    |		Store	0x2,0x2
00d8 e5fe       |    |		Load	0x2,-0x2
00d9 e402       |    |		Load	0x2,0x2
00da 0279       | y  |		Execute	Discrete,And
00db a5fe       |    |		Store_Unchecked	0x2,-0x2
00dc e017       |    |		Load	0x0,0x17
00dd 00da       |    |		Load_Top	At_Offset_2
00de 0227       | '  |		Execute	Access,All_Reference
00df 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00e0 78a5       |x   |		Jump	0x186
00e1 e20e       |    |		Load	0x1,0xe
00e2 8008       |    |		Call	0x0,0x8
00e3 8015       |    |		Call	0x0,0x15
00e4 680c       |h   |		Jump_Zero	0xf1
00e5 e402       |    |		Load	0x2,0x2
00e6 8018       |    |		Call	0x0,0x18
00e7 c402       |    |		Store	0x2,0x2
00e8 e5fe       |    |		Load	0x2,-0x2
00e9 e402       |    |		Load	0x2,0x2
00ea 0279       | y  |		Execute	Discrete,And
00eb a5fe       |    |		Store_Unchecked	0x2,-0x2
00ec e019       |    |		Load	0x0,0x19
00ed 00da       |    |		Load_Top	At_Offset_2
00ee 0227       | '  |		Execute	Access,All_Reference
00ef 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00f0 7895       |x   |		Jump	0x186
00f1 4800       |H   |		Short_Literal	0x0
00f2 a5fe       |    |		Store_Unchecked	0x2,-0x2
00f3 0092 01a9  |    |		Action	Push_String_Extended,0x1a9					; " : vrai ou faux ou ident ou entier ou objet ou direction ou hero ou piece_courante attendu !"
00f5 8009       |    |		Call	0x0,0x9
00f6 788f       |x   |		Jump	0x186
00f7 4800       |H   |		Short_Literal	0x0
00f8 a5fe       |    |		Store_Unchecked	0x2,-0x2
00f9 0092 01aa  |    |		Action	Push_String_Extended,0x1aa					; " : = attendu !"
00fb 8009       |    |		Call	0x0,0x9
00fc 7889       |x   |		Jump	0x186
00fd 800b       |    |		Call	0x0,0xb
00fe 482d       |H-  |		Short_Literal	0x2d
00ff 800c       |    |		Call	0x0,0xc
0100 6876       |hv  |		Jump_Zero	0x177
0101 00db       |    |		Load_Top	At_Offset_3
0102 800d       |    |		Call	0x0,0xd
0103 800e       |    |		Call	0x0,0xe
0104 800f       |    |		Call	0x0,0xf
0105 00d1       |    |		Pop_Control	Pop_Count_1
0106 00db       |    |		Load_Top	At_Offset_3
0107 e01a       |    |		Load	0x0,0x1a
0108 801b       |    |		Call	0x0,0x1b
0109 a404       |    |		Store_Unchecked	0x2,0x4
010a e404       |    |		Load	0x2,0x4
010b 6865       |he  |		Jump_Zero	0x171
010c 00db       |    |		Load_Top	At_Offset_3
010d 4805       |H   |		Short_Literal	0x5
010e 801c       |    |		Call	0x0,0x1c
010f 003a       | :  |		Store_Top	Access,At_Offset_2
0110 800b       |    |		Call	0x0,0xb
0111 e20f       |    |		Load	0x1,0xf
0112 8008       |    |		Call	0x0,0x8
0113 8015       |    |		Call	0x0,0x15
0114 680c       |h   |		Jump_Zero	0x121
0115 e402       |    |		Load	0x2,0x2
0116 8016       |    |		Call	0x0,0x16
0117 c402       |    |		Store	0x2,0x2
0118 e5fe       |    |		Load	0x2,-0x2
0119 e402       |    |		Load	0x2,0x2
011a 0279       | y  |		Execute	Discrete,And
011b a5fe       |    |		Store_Unchecked	0x2,-0x2
011c e017       |    |		Load	0x0,0x17
011d 00da       |    |		Load_Top	At_Offset_2
011e 0227       | '  |		Execute	Access,All_Reference
011f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0120 785b       |x[  |		Jump	0x17c
0121 482d       |H-  |		Short_Literal	0x2d
0122 800c       |    |		Call	0x0,0xc
0123 6858       |hX  |		Jump_Zero	0x17c
0124 00db       |    |		Load_Top	At_Offset_3
0125 800d       |    |		Call	0x0,0xd
0126 800e       |    |		Call	0x0,0xe
0127 800f       |    |		Call	0x0,0xf
0128 00d1       |    |		Pop_Control	Pop_Count_1
0129 e403       |    |		Load	0x2,0x3
012a 00d9       |    |		Load_Top	At_Offset_1
012b e01d       |    |		Load	0x0,0x1d
012c e405       |    |		Load	0x2,0x5
012d 801e       |    |		Call	0x0,0x1e
012e 8011       |    |		Call	0x0,0x11
012f 003a       | :  |		Store_Top	Access,At_Offset_2
0130 c403       |    |		Store	0x2,0x3
0131 e403       |    |		Load	0x2,0x3
0132 7027       |p'  |		Jump_Nonzero	0x15a
0133 e403       |    |		Load	0x2,0x3
0134 00d9       |    |		Load_Top	At_Offset_1
0135 e01f       |    |		Load	0x0,0x1f
0136 e405       |    |		Load	0x2,0x5
0137 801e       |    |		Call	0x0,0x1e
0138 8011       |    |		Call	0x0,0x11
0139 003a       | :  |		Store_Top	Access,At_Offset_2
013a c403       |    |		Store	0x2,0x3
013b e403       |    |		Load	0x2,0x3
013c 7006       |p   |		Jump_Nonzero	0x143
013d 0092 01ab  |    |		Action	Push_String_Extended,0x1ab					; " : ident inconnu !"
013f 8009       |    |		Call	0x0,0x9
0140 4800       |H   |		Short_Literal	0x0
0141 a5fe       |    |		Store_Unchecked	0x2,-0x2
0142 7839       |x9  |		Jump	0x17c
0143 00db       |    |		Load_Top	At_Offset_3
0144 4806       |H   |		Short_Literal	0x6
0145 801c       |    |		Call	0x0,0x1c
0146 00da       |    |		Load_Top	At_Offset_2
0147 0227       | '  |		Execute	Access,All_Reference
0148 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0149 800b       |    |		Call	0x0,0xb
014a 482d       |H-  |		Short_Literal	0x2d
014b 800c       |    |		Call	0x0,0xc
014c 682f       |h/  |		Jump_Zero	0x17c
014d 00db       |    |		Load_Top	At_Offset_3
014e 800d       |    |		Call	0x0,0xd
014f 800e       |    |		Call	0x0,0xe
0150 800f       |    |		Call	0x0,0xf
0151 00d1       |    |		Pop_Control	Pop_Count_1
0152 00db       |    |		Load_Top	At_Offset_3
0153 4806       |H   |		Short_Literal	0x6
0154 801c       |    |		Call	0x0,0x1c
0155 00da       |    |		Load_Top	At_Offset_2
0156 0227       | '  |		Execute	Access,All_Reference
0157 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0158 800b       |    |		Call	0x0,0xb
0159 7822       |x"  |		Jump	0x17c
015a 00db       |    |		Load_Top	At_Offset_3
015b 4806       |H   |		Short_Literal	0x6
015c 801c       |    |		Call	0x0,0x1c
015d 00da       |    |		Load_Top	At_Offset_2
015e 0227       | '  |		Execute	Access,All_Reference
015f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0160 800b       |    |		Call	0x0,0xb
0161 482d       |H-  |		Short_Literal	0x2d
0162 800c       |    |		Call	0x0,0xc
0163 6818       |h   |		Jump_Zero	0x17c
0164 00db       |    |		Load_Top	At_Offset_3
0165 800d       |    |		Call	0x0,0xd
0166 800e       |    |		Call	0x0,0xe
0167 800f       |    |		Call	0x0,0xf
0168 00d1       |    |		Pop_Control	Pop_Count_1
0169 00db       |    |		Load_Top	At_Offset_3
016a 4806       |H   |		Short_Literal	0x6
016b 801c       |    |		Call	0x0,0x1c
016c 00da       |    |		Load_Top	At_Offset_2
016d 0227       | '  |		Execute	Access,All_Reference
016e 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
016f 800b       |    |		Call	0x0,0xb
0170 780b       |x   |		Jump	0x17c
0171 0092 01ac  |    |		Action	Push_String_Extended,0x1ac					; " : le verbe utilise n`a pas ete declare !"
0173 8009       |    |		Call	0x0,0x9
0174 4800       |H   |		Short_Literal	0x0
0175 a5fe       |    |		Store_Unchecked	0x2,-0x2
0176 7805       |x   |		Jump	0x17c
0177 4800       |H   |		Short_Literal	0x0
0178 a5fe       |    |		Store_Unchecked	0x2,-0x2
0179 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; " : ident attendu !"
017b 8009       |    |		Call	0x0,0x9
017c 482b       |H+  |		Short_Literal	0x2b
017d 800c       |    |		Call	0x0,0xc
017e 6802       |h   |		Jump_Zero	0x181
017f 800b       |    |		Call	0x0,0xb
0180 7805       |x   |		Jump	0x186
0181 4800       |H   |		Short_Literal	0x0
0182 a5fe       |    |		Store_Unchecked	0x2,-0x2
0183 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; " : ) attendu !"
0185 8009       |    |		Call	0x0,0x9
0186 480a       |H   |		Short_Literal	0xa
0187 800c       |    |		Call	0x0,0xc
0188 6819       |h   |		Jump_Zero	0x1a2
0189 800b       |    |		Call	0x0,0xb
018a 480c       |H   |		Short_Literal	0xc
018b 800a       |    |		Call	0x0,0xa
018c a5ff       |    |		Store_Unchecked	0x2,-0x1
018d 00d9       |    |		Load_Top	At_Offset_1
018e e5ff       |    |		Load	0x2,-0x1
018f 0227       | '  |		Execute	Access,All_Reference
0190 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0191 4818       |H   |		Short_Literal	0x18
0192 800a       |    |		Call	0x0,0xa
0193 003b       | ;  |		Store_Top	Access,At_Offset_3
0194 e402       |    |		Load	0x2,0x2
0195 00db       |    |		Load_Top	At_Offset_3
0196 820d       |    |		Call	0x1,0xd
0197 c406       |    |		Store	0x2,0x6
0198 c402       |    |		Store	0x2,0x2
0199 e5fe       |    |		Load	0x2,-0x2
019a e402       |    |		Load	0x2,0x2
019b 0279       | y  |		Execute	Discrete,And
019c a5fe       |    |		Store_Unchecked	0x2,-0x2
019d 00da       |    |		Load_Top	At_Offset_2
019e e5ff       |    |		Load	0x2,-0x1
019f 0227       | '  |		Execute	Access,All_Reference
01a0 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01a1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a2 00d9       |    |		Load_Top	At_Offset_1
01a3 a5ff       |    |		Store_Unchecked	0x2,-0x1
01a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a5 ; --------------------------------------------------------------------------------------
01a5 ; STRING TABLE
01a5 ; --------------------------------------------------------------------------------------
01a5 0016       |    |		.STRTAB	0x0016->0x01b0							; " : ident ou ( attendu !"
01a6 002b       | +  |		.STRTAB	0x002b->0x01bb							; " : nom de piece inconnu !"
01a7 0042       | B  |		.STRTAB	0x0042->0x01c8							; " : un ident attendu !"
01a8 0055       | U  |		.STRTAB	0x0055->0x01d2							; " : '=' attendu !"
01a9 0063       | c  |		.STRTAB	0x0063->0x01da							; " : vrai ou faux ou ident ou entier ou objet ou direction ou hero ou piece_courante attendu !"
01aa 00bd       |    |		.STRTAB	0x00bd->0x0208							; " : = attendu !"
01ab 00c9       |    |		.STRTAB	0x00c9->0x020f							; " : ident inconnu !"
01ac 00d9       |    |		.STRTAB	0x00d9->0x0218							; " : le verbe utilise n`a pas ete declare !"
01ad 0100       |    |		.STRTAB	0x0100->0x022d							; " : ident attendu !"
01ae 0110       |    |		.STRTAB	0x0110->0x0236							; " : ) attendu !"
01af 011c       |    |		.STREND 0x011c->0x023d
01b0 203a 2069  | : i|		.STRTAB_STRINGS
023d 0000 0000  |    |		.XXX[0x3]
023f 0000       |    |
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug Table
0240 ; --------------------------------------------------------------------------------------
0240 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xdfc6,0x0000,0x0001,0x0003
0246 000b 0252  |   R|		.DBG4T	0x000b,0x0252,0x8000,0x0000
024a 000e 0255  |   U|		.DBG4T	0x000e,0x0255,0x8000,0x0000
024e 0053 025a  | S Z|		.DBG4T	0x0053,0x025a,0x0001,0x4000
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug chain
0252 ; --------------------------------------------------------------------------------------
0252 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0254 000b       |    |		.DBGLNO	0x000b
0255 ; --------------------------------------------------------------------------------------
0255 ; Debug chain
0255 ; --------------------------------------------------------------------------------------
0255 0003 0000  |    |		.DBGLEN	0x0003,0x0000
0257 000e 002c  |   ,|		.DBGLNO	0x000e,0x002c,0x0046
025a ; --------------------------------------------------------------------------------------
025a ; Debug chain
025a ; --------------------------------------------------------------------------------------
025a 0006 0058  |   X|		.DBGLEN	0x0006,0x0058
025c 0053 0055  | S U|		.DBGLNO	0x0053,0x0055,0x0056,0x0058,0x005c,0x005e,0x0060,0x007b,0x007d,0x0083,0x0086,0x0087,0x008a,0x008b,0x008e,0x0092,0x0095,0x009a,0x00a1,0x00a3,0x00a6,0x00a9,0x00ad,0x00b1,0x00b3,0x00b6,0x00b9,0x00bc,0x00bf,0x00c2,0x00c6,0x00c9,0x00cc,0x00d0,0x00d1,0x00d5,0x00d8,0x00dc,0x00e1,0x00e5,0x00e8,0x00ec,0x00f1,0x00f3,0x00f7,0x00f9,0x00fd,0x00fe,0x0101,0x0106,0x010a,0x010c,0x0110,0x0111,0x0115,0x0118,0x011c,0x0121,0x0124,0x0129,0x0131,0x0133,0x013b,0x013d,0x0140,0x0143,0x0149,0x014a,0x014d,0x0152,0x0158,0x015a,0x0160,0x0161,0x0164,0x0169,0x016f,0x0171,0x0174,0x0177,0x0179,0x017c,0x017f,0x0181,0x0183,0x0186,0x0189,0x018a,0x018d,0x0191,0x0194,0x0199,0x019d,0x01a2
02ba 0001 004e  |   N|		.XXX[0x58]
02bc 004f 0002  | O  |
02be 0003 0004  |    |
02c0 0005 0006  |    |
02c2 0007 0008  |    |
02c4 0009 000a  |    |
02c6 000b 000c  |    |
02c8 000d 000e  |    |
02ca 000f 0010  |    |
02cc 0011 0012  |    |
02ce 0013 0014  |    |
02d0 0015 0016  |    |
02d2 0017 0018  |    |
02d4 0019 001a  |    |
02d6 001b 001c  |    |
02d8 001d 001e  |    |
02da 001f 0020  |    |
02dc 0021 0022  | ! "|
02de 0023 0024  | # $|
02e0 0025 0026  | % &|
02e2 0027 0028  | ' (|
02e4 0029 002a  | ) *|
02e6 002b 002c  | + ,|
02e8 002d 002e  | - .|
02ea 002f 0030  | / 0|
02ec 0031 0032  | 1 2|
02ee 0033 0034  | 3 4|
02f0 0035 0036  | 5 6|
02f2 0037 0038  | 7 8|
02f4 0039 003a  | 9 :|
02f6 003b 003c  | ; <|
02f8 003d 003e  | = >|
02fa 003f 0040  | ? @|
02fc 0041 0042  | A B|
02fe 0043 0044  | C D|
0300 0045 0046  | E F|
0302 0047 0048  | G H|
0304 0049 004a  | I J|
0306 004b 004c  | K L|
0308 004d 0050  | M P|
030a 0051 0052  | Q R|
030c 0053 0054  | S T|
030e 0055 0056  | U V|
0310 0057 0058  | W X|
0312 0000 0000  |    |		.BLANK	0000[0xee]