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

⟦33b2107de⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06cc83

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 0408       |    |		.CONST	0x0408								; 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 0028       | (  |		.CONST	0x0028								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated
000d 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0013 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0015 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0017 00bf       |    |		Action	Accept_Activation
0018 00e2       |    |		Load_Encached	Integer_Cache
0019 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
001a 029d 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call
001c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
001d 00c7       |    |		Action	Elaborate_Subprogram
001e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
001f 00c7       |    |		Action	Elaborate_Subprogram
0020 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0027 00c7       |    |		Action	Elaborate_Subprogram
0028			BODY_0008:
0028 00bc       |    |		Action	Signal_Activated
0029 00bb       |    |		Action	Signal_Completion
002a 0000 0000  |    |		.BLANK	0000[0x6]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0035       | 5  |		.CONST	0x0035								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0002       |    |		.CONST	0x0002								; Number of locals
0033			INIT_0030:
0033 00e1       |    |		Load_Encached	Boolean_Cache
0034 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0035			BODY_0030:
0035 00cf       |    |		Action	Mark_Auxiliary
0036 7810       |x   |		Jump	0x47
0037 8002       |    |		Call	0x0,0x2
0038 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0039 00d9       |    |		Load_Top	At_Offset_1
003a 7004       |p   |		Jump_Nonzero	0x3f
003b 8003       |    |		Call	0x0,0x3
003c e004       |    |		Load	0x0,0x4
003d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
003e 7807       |x   |		Jump	0x46
003f 8005       |    |		Call	0x0,0x5
0040 6801       |h   |		Jump_Zero	0x42
0041 780b       |x   |		Jump	0x4d
0042 e5fe       |    |		Load	0x2,-0x2
0043 e5ff       |    |		Load	0x2,-0x1
0044 8214       |    |		Call	0x1,0x14
0045 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0046 00c9       |    |		Action	Pop_Auxiliary_Loop
0047 00d9       |    |		Load_Top	At_Offset_1
0048 0f00       |    |		Execute_Immediate	Equal,0x0
0049 820e       |    |		Call	0x1,0xe
004a 0f00       |    |		Execute_Immediate	Equal,0x0
004b 0278       | x  |		Execute	Discrete,Or
004c 77ea       |w   |		Jump_Nonzero	0x37
004d 00ce       |    |		Action	Pop_Auxiliary
004e 8006       |    |		Call	0x0,0x6
004f 7003       |p   |		Jump_Nonzero	0x53
0050 e213       |    |		Load	0x1,0x13
0051 0a01       |    |		Execute_Immediate	Plus,0x1
0052 c213       |    |		Store	0x1,0x13
0053 8006       |    |		Call	0x0,0x6
0054 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0055 0000 0000  |    |		.XXX[0x3]
0057 0000       |    |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005d       | ]  |		.CONST	0x005d								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0002       |    |		.CONST	0x0002								; Number of locals
005b			INIT_0058:
005b 00e3       |    |		Load_Encached	Natural_Cache
005c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005d			BODY_0058:
005d 8007       |    |		Call	0x0,0x7
005e 00cf       |    |		Action	Mark_Auxiliary
005f 7805       |x   |		Jump	0x65
0060 00d9       |    |		Load_Top	At_Offset_1
0061 0a01       |    |		Execute_Immediate	Plus,0x1
0062 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0063 8008       |    |		Call	0x0,0x8
0064 00c9       |    |		Action	Pop_Auxiliary_Loop
0065 8009       |    |		Call	0x0,0x9
0066 6ff9       |o   |		Jump_Zero	0x60
0067 00ce       |    |		Action	Pop_Auxiliary
0068 00d8       |    |		Load_Top	At_Offset_0
0069 00ca       |    |		Action	Exit_Nullary_Function
006a 0000 0000  |    |		.BLANK	0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 8007       |    |		Call	0x0,0x7
0074 8009       |    |		Call	0x0,0x9
0075 7034       |p4  |		Jump_Nonzero	0xaa
0076 00da       |    |		Load_Top	At_Offset_2
0077 0092 017c  |   ||		Action	Push_String_Extended,0x17c					; "COMP"
0079 01df       |    |		Execute	Vector,Equal
007a 6808       |h   |		Jump_Zero	0x83
007b e5fc       |    |		Load	0x2,-0x4
007c 800a       |    |		Call	0x0,0xa
007d 800b       |    |		Call	0x0,0xb
007e 7002       |p   |		Jump_Nonzero	0x81
007f 4800       |H   |		Short_Literal	0x0
0080 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0081 8008       |    |		Call	0x0,0x8
0082 7805       |x   |		Jump	0x88
0083 800a       |    |		Call	0x0,0xa
0084 00db       |    |		Load_Top	At_Offset_3
0085 01df       |    |		Execute	Vector,Equal
0086 6801       |h   |		Jump_Zero	0x88
0087 8008       |    |		Call	0x0,0x8
0088 8009       |    |		Call	0x0,0x9
0089 701e       |p   |		Jump_Nonzero	0xa8
008a 00db       |    |		Load_Top	At_Offset_3
008b 0092 017c  |   ||		Action	Push_String_Extended,0x17c					; "COMP"
008d 01df       |    |		Execute	Vector,Equal
008e 6808       |h   |		Jump_Zero	0x97
008f e5fc       |    |		Load	0x2,-0x4
0090 800a       |    |		Call	0x0,0xa
0091 800b       |    |		Call	0x0,0xb
0092 7002       |p   |		Jump_Nonzero	0x95
0093 4800       |H   |		Short_Literal	0x0
0094 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0095 8008       |    |		Call	0x0,0x8
0096 7805       |x   |		Jump	0x9c
0097 800a       |    |		Call	0x0,0xa
0098 e5fe       |    |		Load	0x2,-0x2
0099 01df       |    |		Execute	Vector,Equal
009a 6801       |h   |		Jump_Zero	0x9c
009b 8008       |    |		Call	0x0,0x8
009c 8009       |    |		Call	0x0,0x9
009d 7008       |p   |		Jump_Nonzero	0xa6
009e 800a       |    |		Call	0x0,0xa
009f e5fd       |    |		Load	0x2,-0x3
00a0 01df       |    |		Execute	Vector,Equal
00a1 6802       |h   |		Jump_Zero	0xa4
00a2 4801       |H   |		Short_Literal	0x1
00a3 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
00a4 4800       |H   |		Short_Literal	0x0
00a5 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
00a6 4801       |H   |		Short_Literal	0x1
00a7 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
00a8 4801       |H   |		Short_Literal	0x1
00a9 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
00aa 4800       |H   |		Short_Literal	0x0
00ab 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
00ac 0000 0000  |    |		.BLANK	0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 8007       |    |		Call	0x0,0x7
00b4 00cf       |    |		Action	Mark_Auxiliary
00b5 7808       |x   |		Jump	0xbe
00b6 00db       |    |		Load_Top	At_Offset_3
00b7 800a       |    |		Call	0x0,0xa
00b8 800b       |    |		Call	0x0,0xb
00b9 6802       |h   |		Jump_Zero	0xbc
00ba 800a       |    |		Call	0x0,0xa
00bb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bc 8008       |    |		Call	0x0,0x8
00bd 00c9       |    |		Action	Pop_Auxiliary_Loop
00be 8009       |    |		Call	0x0,0x9
00bf 6ff6       |o   |		Jump_Zero	0xb6
00c0 00ce       |    |		Action	Pop_Auxiliary
00c1 00ea       |    |		Load_Encached	Null_String_Cache
00c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c3 0000 0000  |    |		.BLANK	0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e213       |    |		Load	0x1,0x13
00cc 00ca       |    |		Action	Exit_Nullary_Function
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 0092 017d  |   }|		Action	Push_String_Extended,0x17d					; "<<<<<<<<<<<   BIENVENUE DANS NOTRE MONDE  >>>>>>>>>>>>>>>>>"
00d5 e004       |    |		Load	0x0,0x4
00d6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00d7 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; "<<                                                       >>"
00d9 e004       |    |		Load	0x0,0x4
00da 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00db 0092 017f  |    |		Action	Push_String_Extended,0x17f					; "<<            - Clade - Ehrhard - Kocher -               >>"
00dd e004       |    |		Load	0x0,0x4
00de 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00df 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; "<<                                                       >>"
00e1 e004       |    |		Load	0x0,0x4
00e2 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00e3 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; "<<                                                       >>"
00e5 e004       |    |		Load	0x0,0x4
00e6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00e7 0092 0180  |    |		Action	Push_String_Extended,0x180					; "<<        a) JEU                                         >>"
00e9 e004       |    |		Load	0x0,0x4
00ea 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00eb 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; "<<                                                       >>"
00ed e004       |    |		Load	0x0,0x4
00ee 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00ef 0092 0181  |    |		Action	Push_String_Extended,0x181					; "<<  Pour jouer  TAPEZ VOS COMMANDES                      >>"
00f1 e004       |    |		Load	0x0,0x4
00f2 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00f3 0092 0182  |    |		Action	Push_String_Extended,0x182					; "<<  Quitter avant la fin           TAPEZ   :fin          >>"
00f5 e004       |    |		Load	0x0,0x4
00f6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00f7 0092 0183  |    |		Action	Push_String_Extended,0x183					; "<<  Pour l'aide                    TAPEZ   :aide         >>"
00f9 e004       |    |		Load	0x0,0x4
00fa 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00fb 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; "<<                                                       >>"
00fd e004       |    |		Load	0x0,0x4
00fe 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00ff 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; "<<                                                       >>"
0101 e004       |    |		Load	0x0,0x4
0102 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0103 0092 0184  |    |		Action	Push_String_Extended,0x184					; "<<        b) MISE AU POINT DU JEU                        >>"
0105 e004       |    |		Load	0x0,0x4
0106 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0107 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; "<<                                                       >>"
0109 e004       |    |		Load	0x0,0x4
010a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
010b 0092 0185  |    |		Action	Push_String_Extended,0x185					; "<<  Afficher les types de donnees   TAPEZ  :modele       >>"
010d e004       |    |		Load	0x0,0x4
010e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
010f 0092 0186  |    |		Action	Push_String_Extended,0x186					; "<<  Afficher les variables          TAPEZ  :symbole      >>"
0111 e004       |    |		Load	0x0,0x4
0112 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0113 0092 0187  |    |		Action	Push_String_Extended,0x187					; "<<  Afficher les actions            TAPEZ  :verbe        >>"
0115 e004       |    |		Load	0x0,0x4
0116 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0117 0092 0188  |    |		Action	Push_String_Extended,0x188					; "<<  Afficher les complements        TAPEZ  :complement   >>"
0119 e004       |    |		Load	0x0,0x4
011a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
011b 0092 0189  |    |		Action	Push_String_Extended,0x189					; "<<  Afficher les connections        TAPEZ  :connexion    >>"
011d e004       |    |		Load	0x0,0x4
011e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
011f 0092 018a  |    |		Action	Push_String_Extended,0x18a					; "<<  Afficher les liens              TAPEZ  :lien         >>"
0121 e004       |    |		Load	0x0,0x4
0122 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0123 0092 018b  |    |		Action	Push_String_Extended,0x18b					; "<<  Liste instructions introduction TAPEZ  :introduction >>"
0125 e004       |    |		Load	0x0,0x4
0126 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0127 0092 018c  |    |		Action	Push_String_Extended,0x18c					; "<<  Liste instructions generales    TAPEZ  :general      >>"
0129 e004       |    |		Load	0x0,0x4
012a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
012b 0092 018d  |    |		Action	Push_String_Extended,0x18d					; "<<  Liste instructions globales     TAPEZ  :global       >>"
012d e004       |    |		Load	0x0,0x4
012e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
012f 0092 018e  |    |		Action	Push_String_Extended,0x18e					; "<<  Liste instructions locales      TAPEZ  :locale       >>"
0131 e004       |    |		Load	0x0,0x4
0132 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0133 0092 018f  |    |		Action	Push_String_Extended,0x18f					; "<<  Execution en mode trace         TAPEZ  :trace        >>"
0135 e004       |    |		Load	0x0,0x4
0136 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0137 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; "<<                                                       >>"
0139 e004       |    |		Load	0x0,0x4
013a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
013b 0092 0190  |    |		Action	Push_String_Extended,0x190					; "<<<<<<<<<<<<<<<<   BONNE CHANCE !!! >>>>>>>>>>>>>>>>>>>>>>>"
013d e004       |    |		Load	0x0,0x4
013e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
013f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145       | E  |		.CONST	0x0145								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 00e1       |    |		Load_Encached	Boolean_Cache
0144 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0145			BODY_0140:
0145 8007       |    |		Call	0x0,0x7
0146 8009       |    |		Call	0x0,0x9
0147 701c       |p   |		Jump_Nonzero	0x164
0148 00db       |    |		Load_Top	At_Offset_3
0149 800a       |    |		Call	0x0,0xa
014a 800b       |    |		Call	0x0,0xb
014b e5fe       |    |		Load	0x2,-0x2
014c 800a       |    |		Call	0x0,0xa
014d 800c       |    |		Call	0x0,0xc
014e 0278       | x  |		Execute	Discrete,Or
014f 700b       |p   |		Jump_Nonzero	0x15b
0150 0092 0191  |    |		Action	Push_String_Extended,0x191					; "Erreur :"
0152 800a       |    |		Call	0x0,0xa
0153 01cc       |    |		Execute	Vector,Catenate
0154 0092 0192  |    |		Action	Push_String_Extended,0x192					; " est une donnee inconnue du scenario"
0156 01cc       |    |		Execute	Vector,Catenate
0157 e004       |    |		Load	0x0,0x4
0158 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0159 4800       |H   |		Short_Literal	0x0
015a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
015b e5fe       |    |		Load	0x2,-0x2
015c 800a       |    |		Call	0x0,0xa
015d 800c       |    |		Call	0x0,0xc
015e 6804       |h   |		Jump_Zero	0x163
015f e5fe       |    |		Load	0x2,-0x2
0160 800a       |    |		Call	0x0,0xa
0161 800d       |    |		Call	0x0,0xd
0162 800e       |    |		Call	0x0,0xe
0163 8008       |    |		Call	0x0,0x8
0164 00cf       |    |		Action	Mark_Auxiliary
0165 7811       |x   |		Jump	0x177
0166 e5ff       |    |		Load	0x2,-0x1
0167 800a       |    |		Call	0x0,0xa
0168 800b       |    |		Call	0x0,0xb
0169 700b       |p   |		Jump_Nonzero	0x175
016a 4800       |H   |		Short_Literal	0x0
016b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
016c 0092 0191  |    |		Action	Push_String_Extended,0x191					; "Erreur :"
016e 800a       |    |		Call	0x0,0xa
016f 01cc       |    |		Execute	Vector,Catenate
0170 0092 0193  |    |		Action	Push_String_Extended,0x193					; " n est pas un complement"
0172 01cc       |    |		Execute	Vector,Catenate
0173 e004       |    |		Load	0x0,0x4
0174 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0175 8008       |    |		Call	0x0,0x8
0176 00c9       |    |		Action	Pop_Auxiliary_Loop
0177 8009       |    |		Call	0x0,0x9
0178 6fed       |o   |		Jump_Zero	0x166
0179 00ce       |    |		Action	Pop_Auxiliary
017a 00d8       |    |		Load_Top	At_Offset_0
017b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017c ; --------------------------------------------------------------------------------------
017c ; STRING TABLE
017c ; --------------------------------------------------------------------------------------
017c 0032       | 2  |		.STRTAB	0x0032->0x0195							; "COMP"
017d 0034       | 4  |		.STRTAB	0x0034->0x0197							; "<<<<<<<<<<<   BIENVENUE DANS NOTRE MONDE  >>>>>>>>>>>>>>>>>"
017e 006d       | m  |		.STRTAB	0x006d->0x01b4							; "<<                                                       >>"
017f 00a6       |    |		.STRTAB	0x00a6->0x01d2							; "<<            - Clade - Ehrhard - Kocher -               >>"
0180 00df       |    |		.STRTAB	0x00df->0x01ef							; "<<        a) JEU                                         >>"
0181 0118       |    |		.STRTAB	0x0118->0x020d							; "<<  Pour jouer  TAPEZ VOS COMMANDES                      >>"
0182 0151       | Q  |		.STRTAB	0x0151->0x022a							; "<<  Quitter avant la fin           TAPEZ   :fin          >>"
0183 018a       |    |		.STRTAB	0x018a->0x0248							; "<<  Pour l'aide                    TAPEZ   :aide         >>"
0184 01c3       |    |		.STRTAB	0x01c3->0x0265							; "<<        b) MISE AU POINT DU JEU                        >>"
0185 01fc       |    |		.STRTAB	0x01fc->0x0283							; "<<  Afficher les types de donnees   TAPEZ  :modele       >>"
0186 0235       | 5  |		.STRTAB	0x0235->0x02a0							; "<<  Afficher les variables          TAPEZ  :symbole      >>"
0187 026e       | n  |		.STRTAB	0x026e->0x02be							; "<<  Afficher les actions            TAPEZ  :verbe        >>"
0188 02a7       |    |		.STRTAB	0x02a7->0x02db							; "<<  Afficher les complements        TAPEZ  :complement   >>"
0189 02e0       |    |		.STRTAB	0x02e0->0x02f9							; "<<  Afficher les connections        TAPEZ  :connexion    >>"
018a 0319       |    |		.STRTAB	0x0319->0x0316							; "<<  Afficher les liens              TAPEZ  :lien         >>"
018b 0352       | R  |		.STRTAB	0x0352->0x0334							; "<<  Liste instructions introduction TAPEZ  :introduction >>"
018c 038b       |    |		.STRTAB	0x038b->0x0351							; "<<  Liste instructions generales    TAPEZ  :general      >>"
018d 03c4       |    |		.STRTAB	0x03c4->0x036f							; "<<  Liste instructions globales     TAPEZ  :global       >>"
018e 03fd       |    |		.STRTAB	0x03fd->0x038c							; "<<  Liste instructions locales      TAPEZ  :locale       >>"
018f 0436       | 6  |		.STRTAB	0x0436->0x03aa							; "<<  Execution en mode trace         TAPEZ  :trace        >>"
0190 046f       | o  |		.STRTAB	0x046f->0x03c7							; "<<<<<<<<<<<<<<<<   BONNE CHANCE !!! >>>>>>>>>>>>>>>>>>>>>>>"
0191 04a8       |    |		.STRTAB	0x04a8->0x03e5							; "Erreur :"
0192 04ae       |    |		.STRTAB	0x04ae->0x03e9							; " est une donnee inconnue du scenario"
0193 04d0       |    |		.STRTAB	0x04d0->0x03fb							; " n est pas un complement"
0194 04e6       |    |		.STREND 0x04e6->0x0407
0195 434f 4d50  |COMP|		.STRTAB_STRINGS
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug Table
0408 ; --------------------------------------------------------------------------------------
0408 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xd480,0x0000,0x0001,0x0009
040e 000b 0432  |   2|		.DBG4T	0x000b,0x0432,0x8000,0x0000
0412 0018 043a  |   :|		.DBG4T	0x0018,0x043a,0x8000,0x0000
0416 0033 0444  | 3 D|		.DBG4T	0x0033,0x0444,0x0002,0x4000
041a 005b 045d  | [ ]|		.DBG4T	0x005b,0x045d,0x0002,0x4000
041e 0073 046a  | s j|		.DBG4T	0x0073,0x046a,0x0002,0x0000
0422 00b3 0482  |    |		.DBG4T	0x00b3,0x0482,0x0002,0x4000
0426 00cb 0490  |    |		.DBG4T	0x00cb,0x0490,0x0002,0x0000
042a 00d3 0493  |    |		.DBG4T	0x00d3,0x0493,0x0001,0x0000
042e 0143 04b0  | C  |		.DBG4T	0x0143,0x04b0,0x0002,0x4000
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug chain
0432 ; --------------------------------------------------------------------------------------
0432 0006 0000  |    |		.DBGLEN	0x0006,0x0000
0434 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015
043a ; --------------------------------------------------------------------------------------
043a ; Debug chain
043a ; --------------------------------------------------------------------------------------
043a 0008 0000  |    |		.DBGLEN	0x0008,0x0000
043c 0018 001a  |    |		.DBGLNO	0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026
0444 ; --------------------------------------------------------------------------------------
0444 ; Debug chain
0444 ; --------------------------------------------------------------------------------------
0444 0001 000b  |    |		.DBGLEN	0x0001,0x000b
0446 0033 0035  | 3 5|		.DBGLNO	0x0033,0x0035,0x0037,0x0039,0x003b,0x003f,0x0041,0x0042,0x0047,0x004e,0x0050,0x0053
0452 0001 0002  |    |		.XXX[0xb]
0454 0003 0004  |    |
0456 0005 0006  |    |
0458 0007 0001  |    |
045a 0008 0009  |    |
045c 000a       |    |
045d ; --------------------------------------------------------------------------------------
045d ; Debug chain
045d ; --------------------------------------------------------------------------------------
045d 0001 0005  |    |		.DBGLEN	0x0001,0x0005
045f 005b 005d  | [ ]|		.DBGLNO	0x005b,0x005d,0x0060,0x0063,0x0065,0x0068
0465 0001 0003  |    |		.XXX[0x5]
0467 0004 0002  |    |
0469 0005       |    |
046a ; --------------------------------------------------------------------------------------
046a ; Debug chain
046a ; --------------------------------------------------------------------------------------
046a 0000 0016  |    |		.DBGLEN	0x0000,0x0016
046c 0073 0074  | s t|		.DBGLNO	0x0073,0x0074,0x0076,0x007b,0x007f,0x0081,0x0083,0x0087,0x0088,0x008a,0x008f,0x0093,0x0095,0x0097,0x009b,0x009c,0x009e,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa
0482 ; --------------------------------------------------------------------------------------
0482 ; Debug chain
0482 ; --------------------------------------------------------------------------------------
0482 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0484 00b3 00b6  |    |		.DBGLNO	0x00b3,0x00b6,0x00ba,0x00bc,0x00be,0x00c1
048a 0001 0003  |    |		.XXX[0x6]
048c 0004 0005  |    |
048e 0002 0006  |    |
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug chain
0490 ; --------------------------------------------------------------------------------------
0490 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0492 00cb       |    |		.DBGLNO	0x00cb
0493 ; --------------------------------------------------------------------------------------
0493 ; Debug chain
0493 ; --------------------------------------------------------------------------------------
0493 0000 001b  |    |		.DBGLEN	0x0000,0x001b
0495 00d3 00d7  |    |		.DBGLNO	0x00d3,0x00d7,0x00db,0x00df,0x00e3,0x00e7,0x00eb,0x00ef,0x00f3,0x00f7,0x00fb,0x00ff,0x0103,0x0107,0x010b,0x010f,0x0113,0x0117,0x011b,0x011f,0x0123,0x0127,0x012b,0x012f,0x0133,0x0137,0x013b
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug chain
04b0 ; --------------------------------------------------------------------------------------
04b0 0001 000e  |    |		.DBGLEN	0x0001,0x000e
04b2 0143 0145  | C E|		.DBGLNO	0x0143,0x0145,0x0146,0x0148,0x0150,0x0159,0x015b,0x015f,0x0163,0x0166,0x016a,0x016c,0x0175,0x0177,0x017a
04c1 0001 0002  |    |		.XXX[0xe]
04c3 0003 0004  |    |
04c5 0005 0006  |    |
04c7 0007 0008  |    |
04c9 000a 000b  |    |
04cb 000c 000d  |    |
04cd 0009 000e  |    |
04cf 0000 0000  |    |		.BLANK	0000[0x131]