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

⟦e7192b3bf⟧

    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 0208       |    |		.CONST	0x0208								; 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 0029       | )  |		.CONST	0x0029								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0013       |    |		.CONST	0x0013								; Number of locals
000b			INIT_0008:
000b e002       |    |		Load	0x0,0x2
000c 00e3       |    |		Load_Encached	Natural_Cache
000d 02a0       |    |		Declare_Subprogram	Null_Subprogram
000e 4802       |H   |		Short_Literal	0x2
000f 032e       | .  |		Declare_Type	Record,Defined,Visible
0010 4801       |H   |		Short_Literal	0x1
0011 4804       |H   |		Short_Literal	0x4
0012 00da       |    |		Load_Top	At_Offset_2
0013 02a0       |    |		Declare_Subprogram	Null_Subprogram
0014 4801       |H   |		Short_Literal	0x1
0015 035e       | ^  |		Declare_Type	Array,Defined,Visible
0016 00d8       |    |		Load_Top	At_Offset_0
0017 0336       | 6  |		Declare_Variable	Array,Visible
0018 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated
001a 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
001c 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
001e 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0020 00bf       |    |		Action	Accept_Activation
0021 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0022 00c7       |    |		Action	Elaborate_Subprogram
0023 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0024 00c7       |    |		Action	Elaborate_Subprogram
0025 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0026 00c7       |    |		Action	Elaborate_Subprogram
0027 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0028 00c7       |    |		Action	Elaborate_Subprogram
0029			BODY_0008:
0029 00bc       |    |		Action	Signal_Activated
002a 00bb       |    |		Action	Signal_Completion
002b 0000 0000  |    |		.BLANK	0000[0x5]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033       | 3  |		.CONST	0x0033								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0001       |    |		.CONST	0x0001								; Number of locals
0033			BODY_0030:
0033			INIT_0030:
0033 00cf       |    |		Action	Mark_Auxiliary
0034 00db       |    |		Load_Top	At_Offset_3
0035 01d9       |    |		Execute	Vector,Reverse_Bounds
0036 0263       | c  |		Execute	Discrete,Above_Bound
0037 700f       |p   |		Jump_Nonzero	0x47
0038 e5fe       |    |		Load	0x2,-0x2
0039 00d9       |    |		Load_Top	At_Offset_1
003a e5ff       |    |		Load	0x2,-0x1
003b 01d7       |    |		Execute	Vector,Field_Read
003c 8003       |    |		Call	0x0,0x3
003d 6807       |h   |		Jump_Zero	0x45
003e 00d8       |    |		Load_Top	At_Offset_0
003f 00d8       |    |		Load_Top	At_Offset_0
0040 00e3       |    |		Load_Encached	Natural_Cache
0041 0260       | `  |		Execute	Discrete,In_Type
0042 7001       |p   |		Jump_Nonzero	0x44
0043 0801       |    |		Execute_Immediate	Raise,0x1
0044 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0045 00c8       |    |		Action	Pop_Auxiliary_Range
0046 3ff1       |?   |		Loop_Increasing	0x38
0047 00ce       |    |		Action	Pop_Auxiliary
0048 4800       |H   |		Short_Literal	0x0
0049 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
004a 0000 0000  |    |		.BLANK	0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0055       | U  |		.CONST	0x0055								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0002       |    |		.CONST	0x0002								; Number of locals
0053			INIT_0050:
0053 00e3       |    |		Load_Encached	Natural_Cache
0054 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0055			BODY_0050:
0055 4800       |H   |		Short_Literal	0x0
0056 a5f9       |    |		Store_Unchecked	0x2,-0x7
0057 e5fc       |    |		Load	0x2,-0x4
0058 e5ff       |    |		Load	0x2,-0x1
0059 8210       |    |		Call	0x1,0x10
005a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
005b 00d8       |    |		Load_Top	At_Offset_0
005c 680b       |h   |		Jump_Zero	0x68
005d 4833       |H3  |		Short_Literal	0x33
005e e5fb       |    |		Load	0x2,-0x5
005f e5fa       |    |		Load	0x2,-0x6
0060 01d5       |    |		Execute	Vector,Field_Reference
0061 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0062 00d8       |    |		Load_Top	At_Offset_0
0063 e5fb       |    |		Load	0x2,-0x5
0064 e5fa       |    |		Load	0x2,-0x6
0065 01d5       |    |		Execute	Vector,Field_Reference
0066 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0067 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0068 e5fc       |    |		Load	0x2,-0x4
0069 e5fe       |    |		Load	0x2,-0x2
006a 8210       |    |		Call	0x1,0x10
006b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
006c 00d8       |    |		Load_Top	At_Offset_0
006d 680b       |h   |		Jump_Zero	0x79
006e 4820       |H   |		Short_Literal	0x20
006f e5fb       |    |		Load	0x2,-0x5
0070 e5fa       |    |		Load	0x2,-0x6
0071 01d5       |    |		Execute	Vector,Field_Reference
0072 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0073 00d8       |    |		Load_Top	At_Offset_0
0074 e5fb       |    |		Load	0x2,-0x5
0075 e5fa       |    |		Load	0x2,-0x6
0076 01d5       |    |		Execute	Vector,Field_Reference
0077 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0078 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0079 e5fc       |    |		Load	0x2,-0x4
007a e5fd       |    |		Load	0x2,-0x3
007b 8210       |    |		Call	0x1,0x10
007c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
007d 00d8       |    |		Load_Top	At_Offset_0
007e 680b       |h   |		Jump_Zero	0x8a
007f 4822       |H"  |		Short_Literal	0x22
0080 e5fb       |    |		Load	0x2,-0x5
0081 e5fa       |    |		Load	0x2,-0x6
0082 01d5       |    |		Execute	Vector,Field_Reference
0083 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0084 00d8       |    |		Load_Top	At_Offset_0
0085 e5fb       |    |		Load	0x2,-0x5
0086 e5fa       |    |		Load	0x2,-0x6
0087 01d5       |    |		Execute	Vector,Field_Reference
0088 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0089 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
008a 4831       |H1  |		Short_Literal	0x31
008b e5fb       |    |		Load	0x2,-0x5
008c e5fa       |    |		Load	0x2,-0x6
008d 01d5       |    |		Execute	Vector,Field_Reference
008e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
008f 4801       |H   |		Short_Literal	0x1
0090 a5f9       |    |		Store_Unchecked	0x2,-0x7
0091 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0092 0000 0000  |    |		.BLANK	0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009d       |    |		.CONST	0x009d								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0002       |    |		.CONST	0x0002								; Number of locals
009b			INIT_0098:
009b 00e3       |    |		Load_Encached	Natural_Cache
009c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
009d			BODY_0098:
009d 4800       |H   |		Short_Literal	0x0
009e a5fe       |    |		Store_Unchecked	0x2,-0x2
009f 00d8       |    |		Load_Top	At_Offset_0
00a0 e5ff       |    |		Load	0x2,-0x1
00a1 01d5       |    |		Execute	Vector,Field_Reference
00a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00a3 e002       |    |		Load	0x0,0x2
00a4 011c       |    |		Execute	Any,Convert_Unchecked
00a5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00a6 0092 01a0  |    |		Action	Push_String_Extended,0x1a0					; "T_VERBE"
00a8 01df       |    |		Execute	Vector,Equal
00a9 6865       |he  |		Jump_Zero	0x10f
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab 0a01       |    |		Execute_Immediate	Plus,0x1
00ac 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae e5ff       |    |		Load	0x2,-0x1
00af 01d5       |    |		Execute	Vector,Field_Reference
00b0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00b1 e002       |    |		Load	0x0,0x2
00b2 011c       |    |		Execute	Any,Convert_Unchecked
00b3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00b4 0092 01a1  |    |		Action	Push_String_Extended,0x1a1					; "T_OBJET"
00b6 01df       |    |		Execute	Vector,Equal
00b7 682d       |h-  |		Jump_Zero	0xe5
00b8 00d8       |    |		Load_Top	At_Offset_0
00b9 0a01       |    |		Execute_Immediate	Plus,0x1
00ba 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00bb 00d8       |    |		Load_Top	At_Offset_0
00bc e5ff       |    |		Load	0x2,-0x1
00bd 01d5       |    |		Execute	Vector,Field_Reference
00be 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00bf e002       |    |		Load	0x0,0x2
00c0 011c       |    |		Execute	Any,Convert_Unchecked
00c1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00c2 0092 01a1  |    |		Action	Push_String_Extended,0x1a1					; "T_OBJET"
00c4 01df       |    |		Execute	Vector,Equal
00c5 6811       |h   |		Jump_Zero	0xd7
00c6 00d8       |    |		Load_Top	At_Offset_0
00c7 0a01       |    |		Execute_Immediate	Plus,0x1
00c8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca e5ff       |    |		Load	0x2,-0x1
00cb 01d5       |    |		Execute	Vector,Field_Reference
00cc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00cd e002       |    |		Load	0x0,0x2
00ce 011c       |    |		Execute	Any,Convert_Unchecked
00cf 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00d0 0092 01a2  |    |		Action	Push_String_Extended,0x1a2					; "T_END"
00d2 01de       |    |		Execute	Vector,Not_Equal
00d3 6802       |h   |		Jump_Zero	0xd6
00d4 4801       |H   |		Short_Literal	0x1
00d5 a5fe       |    |		Store_Unchecked	0x2,-0x2
00d6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d7 00d8       |    |		Load_Top	At_Offset_0
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 01d5       |    |		Execute	Vector,Field_Reference
00da 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00db e002       |    |		Load	0x0,0x2
00dc 011c       |    |		Execute	Any,Convert_Unchecked
00dd 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00de 0092 01a2  |    |		Action	Push_String_Extended,0x1a2					; "T_END"
00e0 01de       |    |		Execute	Vector,Not_Equal
00e1 6802       |h   |		Jump_Zero	0xe4
00e2 4801       |H   |		Short_Literal	0x1
00e3 a5fe       |    |		Store_Unchecked	0x2,-0x2
00e4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e5 00d8       |    |		Load_Top	At_Offset_0
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 01d5       |    |		Execute	Vector,Field_Reference
00e8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e9 e002       |    |		Load	0x0,0x2
00ea 011c       |    |		Execute	Any,Convert_Unchecked
00eb 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00ec 0092 01a3  |    |		Action	Push_String_Extended,0x1a3					; "T_DIRECTION"
00ee 01df       |    |		Execute	Vector,Equal
00ef 6811       |h   |		Jump_Zero	0x101
00f0 00d8       |    |		Load_Top	At_Offset_0
00f1 0a01       |    |		Execute_Immediate	Plus,0x1
00f2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 e5ff       |    |		Load	0x2,-0x1
00f5 01d5       |    |		Execute	Vector,Field_Reference
00f6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f7 e002       |    |		Load	0x0,0x2
00f8 011c       |    |		Execute	Any,Convert_Unchecked
00f9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00fa 0092 01a2  |    |		Action	Push_String_Extended,0x1a2					; "T_END"
00fc 01de       |    |		Execute	Vector,Not_Equal
00fd 6802       |h   |		Jump_Zero	0x100
00fe 4801       |H   |		Short_Literal	0x1
00ff a5fe       |    |		Store_Unchecked	0x2,-0x2
0100 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0101 00d8       |    |		Load_Top	At_Offset_0
0102 e5ff       |    |		Load	0x2,-0x1
0103 01d5       |    |		Execute	Vector,Field_Reference
0104 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0105 e002       |    |		Load	0x0,0x2
0106 011c       |    |		Execute	Any,Convert_Unchecked
0107 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0108 0092 01a2  |    |		Action	Push_String_Extended,0x1a2					; "T_END"
010a 01de       |    |		Execute	Vector,Not_Equal
010b 6802       |h   |		Jump_Zero	0x10e
010c 4801       |H   |		Short_Literal	0x1
010d a5fe       |    |		Store_Unchecked	0x2,-0x2
010e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010f 4801       |H   |		Short_Literal	0x1
0110 a5fe       |    |		Store_Unchecked	0x2,-0x2
0111 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0112 0000 0000  |    |		.BLANK	0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012a       | *  |		.CONST	0x012a								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0009       |    |		.CONST	0x0009								; Number of locals
011b			INIT_0118:
011b 4801       |H   |		Short_Literal	0x1
011c 4850       |HP  |		Short_Literal	0x50
011d 00e9       |    |		Load_Encached	String_Cache
011e 035b       | [  |		Declare_Type	Array,Constrained
011f 0337       | 7  |		Declare_Variable	Array
0120 e004       |    |		Load	0x0,0x4
0121 02ff       |    |		Declare_Variable	Variant_Record
0122 00d8       |    |		Load_Top	At_Offset_0
0123 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0124 00e3       |    |		Load_Encached	Natural_Cache
0125 00e3       |    |		Load_Encached	Natural_Cache
0126 03e9       |    |		Declare_Variable	Discrete,Duplicate
0127 03e9       |    |		Declare_Variable	Discrete,Duplicate
0128 00e1       |    |		Load_Encached	Boolean_Cache
0129 03e9       |    |		Declare_Variable	Discrete,Duplicate
012a			BODY_0118:
012a 4801       |H   |		Short_Literal	0x1
012b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
012c 00cf       |    |		Action	Mark_Auxiliary
012d 786f       |xo  |		Jump	0x19d
012e 4800       |H   |		Short_Literal	0x0
012f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0130 4801       |H   |		Short_Literal	0x1
0131 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0132 4801       |H   |		Short_Literal	0x1
0133 a406       |    |		Store_Unchecked	0x2,0x6
0134 0092 01a4  |    |		Action	Push_String_Extended,0x1a4					; "> "
0136 e005       |    |		Load	0x0,0x5
0137 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0138 00e3       |    |		Load_Encached	Natural_Cache
0139 e402       |    |		Load	0x2,0x2
013a e005       |    |		Load	0x0,0x5
013b 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
013c 00d1       |    |		Pop_Control	Pop_Count_1
013d c405       |    |		Store	0x2,0x5
013e 4801       |H   |		Short_Literal	0x1
013f a404       |    |		Store_Unchecked	0x2,0x4
0140 00cf       |    |		Action	Mark_Auxiliary
0141 783c       |x<  |		Jump	0x17e
0142 e404       |    |		Load	0x2,0x4
0143 0c05       |    |		Execute_Immediate	Greater_Equal,0x5
0144 6803       |h   |		Jump_Zero	0x148
0145 4800       |H   |		Short_Literal	0x0
0146 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0147 7835       |x5  |		Jump	0x17d
0148 e403       |    |		Load	0x2,0x3
0149 e406       |    |		Load	0x2,0x6
014a e405       |    |		Load	0x2,0x5
014b e402       |    |		Load	0x2,0x2
014c 8006       |    |		Call	0x0,0x6
014d c406       |    |		Store	0x2,0x6
014e 00d1       |    |		Pop_Control	Pop_Count_1
014f e403       |    |		Load	0x2,0x3
0150 8007       |    |		Call	0x0,0x7
0151 0092 01a5  |    |		Action	Push_String_Extended,0x1a5					; "Lex Error"
0153 01df       |    |		Execute	Vector,Equal
0154 6809       |h   |		Jump_Zero	0x15e
0155 4801       |H   |		Short_Literal	0x1
0156 a408       |    |		Store_Unchecked	0x2,0x8
0157 4800       |H   |		Short_Literal	0x0
0158 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0159 0092 01a6  |    |		Action	Push_String_Extended,0x1a6					; "Je ne comprends pas ! Erreur d'orthographe."
015b e005       |    |		Load	0x0,0x5
015c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
015d 781f       |x   |		Jump	0x17d
015e e403       |    |		Load	0x2,0x3
015f 8008       |    |		Call	0x0,0x8
0160 7016       |p   |		Jump_Nonzero	0x177
0161 00db       |    |		Load_Top	At_Offset_3
0162 e5fc       |    |		Load	0x2,-0x4
0163 e404       |    |		Load	0x2,0x4
0164 e403       |    |		Load	0x2,0x3
0165 e5fd       |    |		Load	0x2,-0x3
0166 e5fe       |    |		Load	0x2,-0x2
0167 e5ff       |    |		Load	0x2,-0x1
0168 8211       |    |		Call	0x1,0x11
0169 00d1       |    |		Pop_Control	Pop_Count_1
016a c408       |    |		Store	0x2,0x8
016b 00db       |    |		Load_Top	At_Offset_3
016c 6807       |h   |		Jump_Zero	0x174
016d 4800       |H   |		Short_Literal	0x0
016e 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
016f 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; "Desole, je ne comprends pas ! Mot(s) inconnu(s)."
0171 e005       |    |		Load	0x0,0x5
0172 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0173 7803       |x   |		Jump	0x177
0174 e404       |    |		Load	0x2,0x4
0175 0a01       |    |		Execute_Immediate	Plus,0x1
0176 c404       |    |		Store	0x2,0x4
0177 e406       |    |		Load	0x2,0x6
0178 e405       |    |		Load	0x2,0x5
0179 027b       | {  |		Execute	Discrete,Greater_Equal
017a 6802       |h   |		Jump_Zero	0x17d
017b 4800       |H   |		Short_Literal	0x0
017c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
017d 00c9       |    |		Action	Pop_Auxiliary_Loop
017e 00da       |    |		Load_Top	At_Offset_2
017f 77c2       |w   |		Jump_Nonzero	0x142
0180 00ce       |    |		Action	Pop_Auxiliary
0181 e404       |    |		Load	0x2,0x4
0182 0c05       |    |		Execute_Immediate	Greater_Equal,0x5
0183 6807       |h   |		Jump_Zero	0x18b
0184 4801       |H   |		Short_Literal	0x1
0185 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0186 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; "Desole, je ne comprends pas ! Phrase incorrecte."
0188 e005       |    |		Load	0x0,0x5
0189 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
018a 7805       |x   |		Jump	0x190
018b 4832       |H2  |		Short_Literal	0x32
018c e404       |    |		Load	0x2,0x4
018d e5fc       |    |		Load	0x2,-0x4
018e 01d5       |    |		Execute	Vector,Field_Reference
018f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0190 00da       |    |		Load_Top	At_Offset_2
0191 700a       |p   |		Jump_Nonzero	0x19c
0192 00da       |    |		Load_Top	At_Offset_2
0193 e5fc       |    |		Load	0x2,-0x4
0194 8212       |    |		Call	0x1,0x12
0195 005b       | [  |		Store_Top	Discrete,At_Offset_3
0196 00da       |    |		Load_Top	At_Offset_2
0197 6804       |h   |		Jump_Zero	0x19c
0198 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; "Desole, je ne comprends pas ! Phrase incorrecte."
019a e005       |    |		Load	0x0,0x5
019b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
019c 00c9       |    |		Action	Pop_Auxiliary_Loop
019d 00da       |    |		Load_Top	At_Offset_2
019e 778f       |w   |		Jump_Nonzero	0x12e
019f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01a0 ; --------------------------------------------------------------------------------------
01a0 ; STRING TABLE
01a0 ; --------------------------------------------------------------------------------------
01a0 0014       |    |		.STRTAB	0x0014->0x01aa							; "T_VERBE"
01a1 0019       |    |		.STRTAB	0x0019->0x01ad							; "T_OBJET"
01a2 001e       |    |		.STRTAB	0x001e->0x01b1							; "T_END"
01a3 0021       | !  |		.STRTAB	0x0021->0x01b3							; "T_DIRECTION"
01a4 002a       | *  |		.STRTAB	0x002a->0x01b9							; "> "
01a5 002a       | *  |		.STRTAB	0x002a->0x01ba							; "Lex Error"
01a6 0031       | 1  |		.STRTAB	0x0031->0x01be							; "Je ne comprends pas ! Erreur d'orthographe."
01a7 005a       | Z  |		.STRTAB	0x005a->0x01d4							; "Desole, je ne comprends pas ! Mot(s) inconnu(s)."
01a8 0088       |    |		.STRTAB	0x0088->0x01ec							; "Desole, je ne comprends pas ! Phrase incorrecte."
01a9 00b6       |    |		.STREND 0x00b6->0x0204
01aa 545f 5645  |T_VE|		.STRTAB_STRINGS
0204 0000 0000  |    |		.BLANK	0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug Table
0208 ; --------------------------------------------------------------------------------------
0208 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xdf3a,0x0000,0x0001,0x0006
020e 000b 0226  |   &|		.DBG4T	0x000b,0x0226,0x8000,0x8000
0212 0021 0236  | ! 6|		.DBG4T	0x0021,0x0236,0x8000,0x0000
0216 0033 023c  | 3 <|		.DBG4T	0x0033,0x023c,0x0002,0x0000
021a 0053 0242  | S B|		.DBG4T	0x0053,0x0242,0x0001,0x0000
021e 009b 0254  |   T|		.DBG4T	0x009b,0x0254,0x0001,0x0000
0222 011b 0269  |   i|		.DBG4T	0x011b,0x0269,0x0001,0x4000
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug chain
0226 ; --------------------------------------------------------------------------------------
0226 0007 0000  |    |		.DBGLEN	0x0007,0x0000
0228 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0016,0x0018,0x001a,0x001c,0x001e
022f 0003 0004  |    |		.XXX[0x7]
0231 0005 0007  |    |
0233 0008 0009  |    |
0235 000a       |    |
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug chain
0236 ; --------------------------------------------------------------------------------------
0236 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0238 0021 0023  | ! #|		.DBGLNO	0x0021,0x0023,0x0025,0x0027
023c ; --------------------------------------------------------------------------------------
023c ; Debug chain
023c ; --------------------------------------------------------------------------------------
023c 0000 0004  |    |		.DBGLEN	0x0000,0x0004
023e 0034 0038  | 4 8|		.DBGLNO	0x0034,0x0038,0x003e,0x0048
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug chain
0242 ; --------------------------------------------------------------------------------------
0242 0001 000f  |    |		.DBGLEN	0x0001,0x000f
0244 0053 0055  | S U|		.DBGLNO	0x0053,0x0055,0x0057,0x005b,0x005d,0x0062,0x0068,0x006c,0x006e,0x0073,0x0079,0x007d,0x007f,0x0084,0x008a,0x008f
0254 ; --------------------------------------------------------------------------------------
0254 ; Debug chain
0254 ; --------------------------------------------------------------------------------------
0254 0001 0012  |    |		.DBGLEN	0x0001,0x0012
0256 009b 009d  |    |		.DBGLNO	0x009b,0x009d,0x009f,0x00aa,0x00ad,0x00b8,0x00bb,0x00c6,0x00c9,0x00d4,0x00d7,0x00e2,0x00e5,0x00f0,0x00f3,0x00fe,0x0101,0x010c,0x010f
0269 ; --------------------------------------------------------------------------------------
0269 ; Debug chain
0269 ; --------------------------------------------------------------------------------------
0269 0005 0020  |    |		.DBGLEN	0x0005,0x0020
026b 011b 0120  |    |		.DBGLNO	0x011b,0x0120,0x0124,0x0125,0x0128,0x012a,0x012e,0x0130,0x0132,0x0134,0x0138,0x013e,0x0142,0x0145,0x0148,0x014f,0x0155,0x0157,0x0159,0x015e,0x0161,0x016b,0x016d,0x016f,0x0174,0x0177,0x017b,0x017e,0x0181,0x0184,0x0186,0x018b,0x0190,0x0192,0x0196,0x0198,0x019d
0290 0001 0003  |    |		.XXX[0x20]
0292 0004 0005  |    |
0294 0006 0007  |    |
0296 0008 000a  |    |
0298 000b 000c  |    |
029a 000d 000e  |    |
029c 000f 0010  |    |
029e 0011 0012  |    |
02a0 0013 0014  |    |
02a2 0015 0016  |    |
02a4 0017 0018  |    |
02a6 0009 0019  |    |
02a8 001a 001b  |    |
02aa 001c 001d  |    |
02ac 001e 001f  |    |
02ae 0020 0002  |    |
02b0 0000 0000  |    |		.BLANK	0000[0x150]