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

⟦219a8c46c⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 0480       |    |		.CONST	0x0480								; 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 0147       | G  |		.CONST	0x0147								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 482b       |H+  |		Short_Literal	0x2b
000d 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0012 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0014 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0016 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0018 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
001a 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
001c 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
001e 00bf       |    |		Action	Accept_Activation
001f 00e9       |    |		Load_Encached	String_Cache
0020 02a0       |    |		Declare_Subprogram	Null_Subprogram
0021 4818       |H   |		Short_Literal	0x18
0022 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0023 4800       |H   |		Short_Literal	0x0
0024 481e       |H   |		Short_Literal	0x1e
0025 e20d       |    |		Load	0x1,0xd
0026 03f8       |    |		Declare_Type	Discrete,Constrained
0027 4800       |H   |		Short_Literal	0x0
0028 481e       |H   |		Short_Literal	0x1e
0029 00db       |    |		Load_Top	At_Offset_3
002a 02a0       |    |		Declare_Subprogram	Null_Subprogram
002b 4801       |H   |		Short_Literal	0x1
002c 035d       | ]  |		Declare_Type	Array,Defined
002d e002       |    |		Load	0x0,0x2
002e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002f 02c7       |    |		Declare_Variable	Any
0030 00d8       |    |		Load_Top	At_Offset_0
0031 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0032 e003       |    |		Load	0x0,0x3
0033 02ff       |    |		Declare_Variable	Variant_Record
0034 00d8       |    |		Load_Top	At_Offset_0
0035 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0036 e20d       |    |		Load	0x1,0xd
0037 062a       | *  |		Execute_Immediate	Set_Value_Unchecked,0x2a
0038 4800       |H   |		Short_Literal	0x0
0039 4805       |H   |		Short_Literal	0x5
003a 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
003c 03fd       |    |		Declare_Type	Discrete,Defined
003d 4800       |H   |		Short_Literal	0x0
003e 4804       |H   |		Short_Literal	0x4
003f 00da       |    |		Load_Top	At_Offset_2
0040 03f8       |    |		Declare_Type	Discrete,Constrained
0041 e217       |    |		Load	0x1,0x17
0042 0337       | 7  |		Declare_Variable	Array
0043 00d8       |    |		Load_Top	At_Offset_0
0044 0335       | 5  |		Declare_Variable	Array,Duplicate
0045 00cd       |    |		Action	Spare6_Action
0046 0092 0342  |   B|		Action	Push_String_Extended,0x342					; "MATERIEL"
0048 e215       |    |		Load	0x1,0x15
0049 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
004a 4800       |H   |		Short_Literal	0x0
004b 00da       |    |		Load_Top	At_Offset_2
004c 01d6       |    |		Execute	Vector,Field_Write
004d 0092 0343  |   C|		Action	Push_String_Extended,0x343					; "DEBUT"
004f e215       |    |		Load	0x1,0x15
0050 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0051 4801       |H   |		Short_Literal	0x1
0052 00da       |    |		Load_Top	At_Offset_2
0053 01d6       |    |		Execute	Vector,Field_Write
0054 0092 0344  |   D|		Action	Push_String_Extended,0x344					; "FIN"
0056 e215       |    |		Load	0x1,0x15
0057 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0058 4802       |H   |		Short_Literal	0x2
0059 00da       |    |		Load_Top	At_Offset_2
005a 01d6       |    |		Execute	Vector,Field_Write
005b 0092 0345  |   E|		Action	Push_String_Extended,0x345					; "FAIT"
005d e215       |    |		Load	0x1,0x15
005e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
005f 4803       |H   |		Short_Literal	0x3
0060 00da       |    |		Load_Top	At_Offset_2
0061 01d6       |    |		Execute	Vector,Field_Write
0062 0092 0346  |   F|		Action	Push_String_Extended,0x346					; "BINAIRE"
0064 e215       |    |		Load	0x1,0x15
0065 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0066 4804       |H   |		Short_Literal	0x4
0067 00da       |    |		Load_Top	At_Offset_2
0068 01d6       |    |		Execute	Vector,Field_Write
0069 0092 0347  |   G|		Action	Push_String_Extended,0x347					; "FUGITIF"
006b e215       |    |		Load	0x1,0x15
006c 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
006d 4805       |H   |		Short_Literal	0x5
006e 00da       |    |		Load_Top	At_Offset_2
006f 01d6       |    |		Execute	Vector,Field_Write
0070 0092 0348  |   H|		Action	Push_String_Extended,0x348					; "TEMPOREL"
0072 e215       |    |		Load	0x1,0x15
0073 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0074 4806       |H   |		Short_Literal	0x6
0075 00da       |    |		Load_Top	At_Offset_2
0076 01d6       |    |		Execute	Vector,Field_Write
0077 0092 0349  |   I|		Action	Push_String_Extended,0x349					; "ACTEURS"
0079 e215       |    |		Load	0x1,0x15
007a 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
007b 4807       |H   |		Short_Literal	0x7
007c 00da       |    |		Load_Top	At_Offset_2
007d 01d6       |    |		Execute	Vector,Field_Write
007e 0092 034a  |   J|		Action	Push_String_Extended,0x34a					; "EST"
0080 e215       |    |		Load	0x1,0x15
0081 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0082 4808       |H   |		Short_Literal	0x8
0083 00da       |    |		Load_Top	At_Offset_2
0084 01d6       |    |		Execute	Vector,Field_Write
0085 0092 034b  |   K|		Action	Push_String_Extended,0x34b					; "SUR"
0087 e215       |    |		Load	0x1,0x15
0088 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0089 4809       |H   |		Short_Literal	0x9
008a 00da       |    |		Load_Top	At_Offset_2
008b 01d6       |    |		Execute	Vector,Field_Write
008c 0092 034c  |   L|		Action	Push_String_Extended,0x34c					; "STATION"
008e e215       |    |		Load	0x1,0x15
008f 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0090 480a       |H   |		Short_Literal	0xa
0091 00da       |    |		Load_Top	At_Offset_2
0092 01d6       |    |		Execute	Vector,Field_Write
0093 0092 034d  |   M|		Action	Push_String_Extended,0x34d					; "SCENARIO"
0095 e215       |    |		Load	0x1,0x15
0096 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0097 480b       |H   |		Short_Literal	0xb
0098 00da       |    |		Load_Top	At_Offset_2
0099 01d6       |    |		Execute	Vector,Field_Write
009a 0092 034e  |   N|		Action	Push_String_Extended,0x34e					; "SCENE"
009c e215       |    |		Load	0x1,0x15
009d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
009e 480c       |H   |		Short_Literal	0xc
009f 00da       |    |		Load_Top	At_Offset_2
00a0 01d6       |    |		Execute	Vector,Field_Write
00a1 0092 034f  |   O|		Action	Push_String_Extended,0x34f					; "DANS"
00a3 e215       |    |		Load	0x1,0x15
00a4 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00a5 480d       |H   |		Short_Literal	0xd
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 01d6       |    |		Execute	Vector,Field_Write
00a8 0092 0350  |   P|		Action	Push_String_Extended,0x350					; "FAIRE"
00aa e215       |    |		Load	0x1,0x15
00ab 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00ac 480e       |H   |		Short_Literal	0xe
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 01d6       |    |		Execute	Vector,Field_Write
00af 0092 0351  |   Q|		Action	Push_String_Extended,0x351					; "REPETER"
00b1 e215       |    |		Load	0x1,0x15
00b2 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00b3 480f       |H   |		Short_Literal	0xf
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 01d6       |    |		Execute	Vector,Field_Write
00b6 0092 0352  |   R|		Action	Push_String_Extended,0x352					; "FOIS"
00b8 e215       |    |		Load	0x1,0x15
00b9 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00ba 4810       |H   |		Short_Literal	0x10
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 01d6       |    |		Execute	Vector,Field_Write
00bd 0092 0353  |   S|		Action	Push_String_Extended,0x353					; "REPETER_AD_ETERNAM"
00bf e215       |    |		Load	0x1,0x15
00c0 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00c1 4811       |H   |		Short_Literal	0x11
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 01d6       |    |		Execute	Vector,Field_Write
00c4 0092 0354  |   T|		Action	Push_String_Extended,0x354					; "TOUTES"
00c6 e215       |    |		Load	0x1,0x15
00c7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00c8 4812       |H   |		Short_Literal	0x12
00c9 00da       |    |		Load_Top	At_Offset_2
00ca 01d6       |    |		Execute	Vector,Field_Write
00cb 0092 0355  |   U|		Action	Push_String_Extended,0x355					; "LES"
00cd e215       |    |		Load	0x1,0x15
00ce 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00cf 4813       |H   |		Short_Literal	0x13
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 01d6       |    |		Execute	Vector,Field_Write
00d2 0092 0356  |   V|		Action	Push_String_Extended,0x356					; "PENDANT"
00d4 e215       |    |		Load	0x1,0x15
00d5 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00d6 4814       |H   |		Short_Literal	0x14
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 01d6       |    |		Execute	Vector,Field_Write
00d9 0092 0357  |   W|		Action	Push_String_Extended,0x357					; "DE"
00db e215       |    |		Load	0x1,0x15
00dc 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00dd 4815       |H   |		Short_Literal	0x15
00de 00da       |    |		Load_Top	At_Offset_2
00df 01d6       |    |		Execute	Vector,Field_Write
00e0 0092 0358  |   X|		Action	Push_String_Extended,0x358					; "VERS"
00e2 e215       |    |		Load	0x1,0x15
00e3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00e4 4816       |H   |		Short_Literal	0x16
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 01d6       |    |		Execute	Vector,Field_Write
00e7 0092 0359  |   Y|		Action	Push_String_Extended,0x359					; "EN"
00e9 e215       |    |		Load	0x1,0x15
00ea 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00eb 4817       |H   |		Short_Literal	0x17
00ec 00da       |    |		Load_Top	At_Offset_2
00ed 01d6       |    |		Execute	Vector,Field_Write
00ee 0092 035a  |   Z|		Action	Push_String_Extended,0x35a					; "EXPERIENCE"
00f0 e215       |    |		Load	0x1,0x15
00f1 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00f2 4818       |H   |		Short_Literal	0x18
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 01d6       |    |		Execute	Vector,Field_Write
00f5 0092 035b  |   [|		Action	Push_String_Extended,0x35b					; "EFFET"
00f7 e215       |    |		Load	0x1,0x15
00f8 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00f9 4819       |H   |		Short_Literal	0x19
00fa 00da       |    |		Load_Top	At_Offset_2
00fb 01d6       |    |		Execute	Vector,Field_Write
00fc 0092 035c  |   \|		Action	Push_String_Extended,0x35c					; "ENCHAINEMENT"
00fe e215       |    |		Load	0x1,0x15
00ff 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0100 481a       |H   |		Short_Literal	0x1a
0101 00da       |    |		Load_Top	At_Offset_2
0102 01d6       |    |		Execute	Vector,Field_Write
0103 0092 035d  |   ]|		Action	Push_String_Extended,0x35d					; "GROUPE"
0105 e215       |    |		Load	0x1,0x15
0106 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0107 481b       |H   |		Short_Literal	0x1b
0108 00da       |    |		Load_Top	At_Offset_2
0109 01d6       |    |		Execute	Vector,Field_Write
010a 0092 035e  |   ^|		Action	Push_String_Extended,0x35e					; "HASARD"
010c e215       |    |		Load	0x1,0x15
010d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
010e 481c       |H   |		Short_Literal	0x1c
010f 00da       |    |		Load_Top	At_Offset_2
0110 01d6       |    |		Execute	Vector,Field_Write
0111 0092 035f  |   _|		Action	Push_String_Extended,0x35f					; "AVEC"
0113 e215       |    |		Load	0x1,0x15
0114 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0115 481d       |H   |		Short_Literal	0x1d
0116 00da       |    |		Load_Top	At_Offset_2
0117 01d6       |    |		Execute	Vector,Field_Write
0118 0092 0360  |   `|		Action	Push_String_Extended,0x360					; "SANS"
011a e215       |    |		Load	0x1,0x15
011b 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
011c 481e       |H   |		Short_Literal	0x1e
011d 00da       |    |		Load_Top	At_Offset_2
011e 01d6       |    |		Execute	Vector,Field_Write
011f 00d9       |    |		Load_Top	At_Offset_1
0120 01d4       |    |		Execute	Vector,Structure_Write
0121 4800       |H   |		Short_Literal	0x0
0122 4802       |H   |		Short_Literal	0x2
0123 e001       |    |		Load	0x0,0x1
0124 01d7       |    |		Execute	Vector,Field_Read
0125 02a0       |    |		Declare_Subprogram	Null_Subprogram
0126 038e       |    |		Declare_Type	Package,Defined
0127 e001       |    |		Load	0x0,0x1
0128 4801       |H   |		Short_Literal	0x1
0129 e001       |    |		Load	0x0,0x1
012a 01d7       |    |		Execute	Vector,Field_Read
012b 4802       |H   |		Short_Literal	0x2
012c 00db       |    |		Load_Top	At_Offset_3
012d 020e       |    |		Execute	Module,Augment_Imports
012e 0387       |    |		Declare_Variable	Package
012f e002       |    |		Load	0x0,0x2
0130 4801       |H   |		Short_Literal	0x1
0131 00da       |    |		Load_Top	At_Offset_2
0132 020e       |    |		Execute	Module,Augment_Imports
0133 00d8       |    |		Load_Top	At_Offset_0
0134 020f       |    |		Execute	Module,Activate
0135 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0136 00c7       |    |		Action	Elaborate_Subprogram
0137 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0138 00c7       |    |		Action	Elaborate_Subprogram
0139 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
013a 00c7       |    |		Action	Elaborate_Subprogram
013b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
013c 00c7       |    |		Action	Elaborate_Subprogram
013d 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
013e 00c7       |    |		Action	Elaborate_Subprogram
013f 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0140 00c7       |    |		Action	Elaborate_Subprogram
0141 029d 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call
0143 029d 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call
0145 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0146 00c7       |    |		Action	Elaborate_Subprogram
0147			BODY_0008:
0147 00be       |    |		Action	Activate_Tasks
0148 00bc       |    |		Action	Signal_Activated
0149 00bb       |    |		Action	Signal_Completion
014a 0000 0000  |    |		.BLANK	0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 4607       |F   |		Jump_Case	0x8
0154 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0155 7807       |x   |		Jump	0x15d								; case 0x1
0156 780a       |x   |		Jump	0x161								; case 0x2
0157 780e       |x   |		Jump	0x166								; case 0x3
0158 7811       |x   |		Jump	0x16a								; case 0x4
0159 7812       |x   |		Jump	0x16c								; case 0x5
015a 7813       |x   |		Jump	0x16e								; case 0x6
015b 7816       |x   |		Jump	0x172								; case 0x7
015c 4302       |C   |		.XXX[0x1]
015d 00da       |    |		Load_Top	At_Offset_2
015e 0091 0310  |    |		Action	Push_String_Extended_Indexed,0x310				; "L_MATERIEL"
0160 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0161 00db       |    |		Load_Top	At_Offset_3
0162 00db       |    |		Load_Top	At_Offset_3
0163 00e0       |    |		Load_Encached	Standard_Cache
0164 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0165 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0166 00da       |    |		Load_Top	At_Offset_2
0167 00e0       |    |		Load_Encached	Standard_Cache
0168 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0169 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
016a 00db       |    |		Load_Top	At_Offset_3
016b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016c 00db       |    |		Load_Top	At_Offset_3
016d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016e e20d       |    |		Load	0x1,0xd
016f 00dc       |    |		Load_Top	At_Offset_4
0170 0267       | g  |		Execute	Discrete,Predecessor
0171 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0172 e20d       |    |		Load	0x1,0xd
0173 00dc       |    |		Load_Top	At_Offset_4
0174 0268       | h  |		Execute	Discrete,Successor
0175 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0176 0000 0000  |    |		.XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b e218       |    |		Load	0x1,0x18
017c 00ea       |    |		Load_Encached	Null_String_Cache
017d e5ff       |    |		Load	0x2,-0x1
017e 4800       |H   |		Short_Literal	0x0
017f e002       |    |		Load	0x0,0x2
0180 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0181 c218       |    |		Store	0x1,0x18
0182 e218       |    |		Load	0x1,0x18
0183 e21e       |    |		Load	0x1,0x1e
0184 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0185 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b e218       |    |		Load	0x1,0x18
018c e002       |    |		Load	0x0,0x2
018d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
018e c218       |    |		Store	0x1,0x18
018f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 e218       |    |		Load	0x1,0x18
0194 e21e       |    |		Load	0x1,0x1e
0195 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0196 00ca       |    |		Action	Exit_Nullary_Function
0197 0000       |    |		.XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a4       |    |		.CONST	0x01a4								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0005       |    |		.CONST	0x0005								; Number of locals
019b			INIT_0198:
019b 00e2       |    |		Load_Encached	Integer_Cache
019c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
019d e003       |    |		Load	0x0,0x3
019e 02ff       |    |		Declare_Variable	Variant_Record
019f 00d8       |    |		Load_Top	At_Offset_0
01a0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a1 e21b       |    |		Load	0x1,0x1b
01a2 0007       |    |		Action	Break_Optional
01a3 00e8       |    |		Load_Encached	Character_Cache
01a4			BODY_0198:
01a4 e218       |    |		Load	0x1,0x18
01a5 e21e       |    |		Load	0x1,0x1e
01a6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01a7 70e6       |p   |		Jump_Nonzero	0x28e
01a8 4800       |H   |		Short_Literal	0x0
01a9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01aa 00cf       |    |		Action	Mark_Auxiliary
01ab 78dd       |x   |		Jump	0x289
01ac e218       |    |		Load	0x1,0x18
01ad e21e       |    |		Load	0x1,0x1e
01ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01af 7008       |p   |		Jump_Nonzero	0x1b8
01b0 e218       |    |		Load	0x1,0x18
01b1 e21e       |    |		Load	0x1,0x1e
01b2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01b3 e218       |    |		Load	0x1,0x18
01b4 e21e       |    |		Load	0x1,0x1e
01b5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01b6 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01b7 7802       |x   |		Jump	0x1ba
01b8 4804       |H   |		Short_Literal	0x4
01b9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01ba 00da       |    |		Load_Top	At_Offset_2
01bb 00d8       |    |		Load_Top	At_Offset_0
01bc e21c       |    |		Load	0x1,0x1c
01bd 0260       | `  |		Execute	Discrete,In_Type
01be 7001       |p   |		Jump_Nonzero	0x1c0
01bf 0801       |    |		Execute_Immediate	Raise,0x1
01c0 4604       |F   |		Jump_Case	0x5
01c1 7814       |x   |		Jump	0x1d6								; case 0x0
01c2 789b       |x   |		Jump	0x25e								; case 0x1
01c3 78a8       |x   |		Jump	0x26c								; case 0x2
01c4 78ad       |x   |		Jump	0x272								; case 0x3
01c5 7800       |x   |		Jump	0x1c6								; case 0x4
01c6 00d9       |    |		Load_Top	At_Offset_1
01c7 8220       |    |		Call	0x1,0x20
01c8 6805       |h   |		Jump_Zero	0x1ce
01c9 00db       |    |		Load_Top	At_Offset_3
01ca 00da       |    |		Load_Top	At_Offset_2
01cb 8004       |    |		Call	0x0,0x4
01cc 00d1       |    |		Pop_Control	Pop_Count_1
01cd 78ba       |x   |		Jump	0x288
01ce e218       |    |		Load	0x1,0x18
01cf e21e       |    |		Load	0x1,0x1e
01d0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01d1 4828       |H(  |		Short_Literal	0x28
01d2 a21a       |    |		Store_Unchecked	0x1,0x1a
01d3 4805       |H   |		Short_Literal	0x5
01d4 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
01d5 78b2       |x   |		Jump	0x288
01d6 00d9       |    |		Load_Top	At_Offset_1
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 0c3e       | >  |		Execute_Immediate	Greater_Equal,0x3e
01d9 7044       |pD  |		Jump_Nonzero	0x21e
01da 463d       |F=  |		Jump_Case	0x3e
01db 7843       |xC  |		Jump	0x21f								; case 0x0
01dc 7842       |xB  |		Jump	0x21f								; case 0x1
01dd 7841       |xA  |		Jump	0x21f								; case 0x2
01de 7840       |x@  |		Jump	0x21f								; case 0x3
01df 7858       |xX  |		Jump	0x238								; case 0x4
01e0 783e       |x>  |		Jump	0x21f								; case 0x5
01e1 783d       |x=  |		Jump	0x21f								; case 0x6
01e2 783c       |x<  |		Jump	0x21f								; case 0x7
01e3 783b       |x;  |		Jump	0x21f								; case 0x8
01e4 783a       |x:  |		Jump	0x21f								; case 0x9
01e5 7839       |x9  |		Jump	0x21f								; case 0xa
01e6 7838       |x8  |		Jump	0x21f								; case 0xb
01e7 7837       |x7  |		Jump	0x21f								; case 0xc
01e8 789f       |x   |		Jump	0x288								; case 0xd
01e9 7835       |x5  |		Jump	0x21f								; case 0xe
01ea 7834       |x4  |		Jump	0x21f								; case 0xf
01eb 7833       |x3  |		Jump	0x21f								; case 0x10
01ec 7832       |x2  |		Jump	0x21f								; case 0x11
01ed 7831       |x1  |		Jump	0x21f								; case 0x12
01ee 7830       |x0  |		Jump	0x21f								; case 0x13
01ef 782f       |x/  |		Jump	0x21f								; case 0x14
01f0 782e       |x.  |		Jump	0x21f								; case 0x15
01f1 782d       |x-  |		Jump	0x21f								; case 0x16
01f2 782c       |x,  |		Jump	0x21f								; case 0x17
01f3 782b       |x+  |		Jump	0x21f								; case 0x18
01f4 782a       |x*  |		Jump	0x21f								; case 0x19
01f5 7829       |x)  |		Jump	0x21f								; case 0x1a
01f6 7828       |x(  |		Jump	0x21f								; case 0x1b
01f7 7827       |x'  |		Jump	0x21f								; case 0x1c
01f8 7826       |x&  |		Jump	0x21f								; case 0x1d
01f9 7825       |x%  |		Jump	0x21f								; case 0x1e
01fa 7824       |x$  |		Jump	0x21f								; case 0x1f
01fb 788c       |x   |		Jump	0x288								; case 0x20
01fc 7822       |x"  |		Jump	0x21f								; case 0x21
01fd 7821       |x!  |		Jump	0x21f								; case 0x22
01fe 7820       |x   |		Jump	0x21f								; case 0x23
01ff 781f       |x   |		Jump	0x21f								; case 0x24
0200 781e       |x   |		Jump	0x21f								; case 0x25
0201 781d       |x   |		Jump	0x21f								; case 0x26
0202 781c       |x   |		Jump	0x21f								; case 0x27
0203 784d       |xM  |		Jump	0x251								; case 0x28
0204 7851       |xQ  |		Jump	0x256								; case 0x29
0205 783c       |x<  |		Jump	0x242								; case 0x2a
0206 7836       |x6  |		Jump	0x23d								; case 0x2b
0207 7817       |x   |		Jump	0x21f								; case 0x2c
0208 7852       |xR  |		Jump	0x25b								; case 0x2d
0209 7842       |xB  |		Jump	0x24c								; case 0x2e
020a 7814       |x   |		Jump	0x21f								; case 0x2f
020b 7813       |x   |		Jump	0x21f								; case 0x30
020c 7812       |x   |		Jump	0x21f								; case 0x31
020d 7811       |x   |		Jump	0x21f								; case 0x32
020e 7810       |x   |		Jump	0x21f								; case 0x33
020f 780f       |x   |		Jump	0x21f								; case 0x34
0210 780e       |x   |		Jump	0x21f								; case 0x35
0211 780d       |x   |		Jump	0x21f								; case 0x36
0212 780c       |x   |		Jump	0x21f								; case 0x37
0213 780b       |x   |		Jump	0x21f								; case 0x38
0214 780a       |x   |		Jump	0x21f								; case 0x39
0215 7831       |x1  |		Jump	0x247								; case 0x3a
0216 7808       |x   |		Jump	0x21f								; case 0x3b
0217 7807       |x   |		Jump	0x21f								; case 0x3c
0218 7800       |x   |		Jump	0x219								; case 0x3d
0219 4821       |H!  |		Short_Literal	0x21
021a a21a       |    |		Store_Unchecked	0x1,0x1a
021b 4805       |H   |		Short_Literal	0x5
021c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
021d 786a       |xj  |		Jump	0x288
021e 00d1       |    |		Pop_Control	Pop_Count_1
021f 00d9       |    |		Load_Top	At_Offset_1
0220 821f       |    |		Call	0x1,0x1f
0221 6807       |h   |		Jump_Zero	0x229
0222 00db       |    |		Load_Top	At_Offset_3
0223 00da       |    |		Load_Top	At_Offset_2
0224 8004       |    |		Call	0x0,0x4
0225 00d1       |    |		Pop_Control	Pop_Count_1
0226 4803       |H   |		Short_Literal	0x3
0227 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0228 785f       |x_  |		Jump	0x288
0229 00d9       |    |		Load_Top	At_Offset_1
022a 8220       |    |		Call	0x1,0x20
022b 6807       |h   |		Jump_Zero	0x233
022c 00db       |    |		Load_Top	At_Offset_3
022d 00da       |    |		Load_Top	At_Offset_2
022e 8004       |    |		Call	0x0,0x4
022f 00d1       |    |		Pop_Control	Pop_Count_1
0230 4804       |H   |		Short_Literal	0x4
0231 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0232 7855       |xU  |		Jump	0x288
0233 482a       |H*  |		Short_Literal	0x2a
0234 a21a       |    |		Store_Unchecked	0x1,0x1a
0235 4805       |H   |		Short_Literal	0x5
0236 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0237 7850       |xP  |		Jump	0x288
0238 4823       |H#  |		Short_Literal	0x23
0239 a21a       |    |		Store_Unchecked	0x1,0x1a
023a 4805       |H   |		Short_Literal	0x5
023b 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
023c 784b       |xK  |		Jump	0x288
023d 4820       |H   |		Short_Literal	0x20
023e a21a       |    |		Store_Unchecked	0x1,0x1a
023f 4805       |H   |		Short_Literal	0x5
0240 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0241 7846       |xF  |		Jump	0x288
0242 4822       |H"  |		Short_Literal	0x22
0243 a21a       |    |		Store_Unchecked	0x1,0x1a
0244 4805       |H   |		Short_Literal	0x5
0245 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0246 7841       |xA  |		Jump	0x288
0247 4824       |H$  |		Short_Literal	0x24
0248 a21a       |    |		Store_Unchecked	0x1,0x1a
0249 4805       |H   |		Short_Literal	0x5
024a 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
024b 783c       |x<  |		Jump	0x288
024c 4825       |H%  |		Short_Literal	0x25
024d a21a       |    |		Store_Unchecked	0x1,0x1a
024e 4805       |H   |		Short_Literal	0x5
024f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0250 7837       |x7  |		Jump	0x288
0251 4826       |H&  |		Short_Literal	0x26
0252 a21a       |    |		Store_Unchecked	0x1,0x1a
0253 4805       |H   |		Short_Literal	0x5
0254 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0255 7832       |x2  |		Jump	0x288
0256 4827       |H'  |		Short_Literal	0x27
0257 a21a       |    |		Store_Unchecked	0x1,0x1a
0258 4805       |H   |		Short_Literal	0x5
0259 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
025a 782d       |x-  |		Jump	0x288
025b 4801       |H   |		Short_Literal	0x1
025c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
025d 782a       |x*  |		Jump	0x288
025e 00d9       |    |		Load_Top	At_Offset_1
025f 0f2d       | -  |		Execute_Immediate	Equal,0x2d
0260 6803       |h   |		Jump_Zero	0x264
0261 4802       |H   |		Short_Literal	0x2
0262 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0263 7824       |x$  |		Jump	0x288
0264 e218       |    |		Load	0x1,0x18
0265 e21e       |    |		Load	0x1,0x1e
0266 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0267 481f       |H   |		Short_Literal	0x1f
0268 a21a       |    |		Store_Unchecked	0x1,0x1a
0269 4805       |H   |		Short_Literal	0x5
026a 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
026b 781c       |x   |		Jump	0x288
026c 00d9       |    |		Load_Top	At_Offset_1
026d 0f0d       |    |		Execute_Immediate	Equal,0xd
026e 6819       |h   |		Jump_Zero	0x288
026f 4800       |H   |		Short_Literal	0x0
0270 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0271 7816       |x   |		Jump	0x288
0272 00d9       |    |		Load_Top	At_Offset_1
0273 821f       |    |		Call	0x1,0x1f
0274 00da       |    |		Load_Top	At_Offset_2
0275 8220       |    |		Call	0x1,0x20
0276 0278       | x  |		Execute	Discrete,Or
0277 00da       |    |		Load_Top	At_Offset_2
0278 0f5f       | _  |		Execute_Immediate	Equal,0x5f
0279 0278       | x  |		Execute	Discrete,Or
027a 6805       |h   |		Jump_Zero	0x280
027b 00db       |    |		Load_Top	At_Offset_3
027c 00da       |    |		Load_Top	At_Offset_2
027d 8004       |    |		Call	0x0,0x4
027e 00d1       |    |		Pop_Control	Pop_Count_1
027f 7808       |x   |		Jump	0x288
0280 e218       |    |		Load	0x1,0x18
0281 e21e       |    |		Load	0x1,0x1e
0282 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0283 00db       |    |		Load_Top	At_Offset_3
0284 8214       |    |		Call	0x1,0x14
0285 a21a       |    |		Store_Unchecked	0x1,0x1a
0286 4805       |H   |		Short_Literal	0x5
0287 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0288 00c9       |    |		Action	Pop_Auxiliary_Loop
0289 00da       |    |		Load_Top	At_Offset_2
028a 0e05       |    |		Execute_Immediate	Not_Equal,0x5
028b 7720       |w   |		Jump_Nonzero	0x1ac
028c 00ce       |    |		Action	Pop_Auxiliary
028d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
028e 4823       |H#  |		Short_Literal	0x23
028f a21a       |    |		Store_Unchecked	0x1,0x1a
0290 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0291 0000 0000  |    |		.BLANK	0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b e21a       |    |		Load	0x1,0x1a
029c 00ca       |    |		Action	Exit_Nullary_Function
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 e219       |    |		Load	0x1,0x19
02a4 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
02a5 00cd       |    |		Action	Spare6_Action
02a6 00ca       |    |		Action	Exit_Nullary_Function
02a7 0000       |    |		.XXX[0x1]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b1       |    |		.CONST	0x02b1								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0002       |    |		.CONST	0x0002								; Number of locals
02ab			INIT_02a8:
02ab 4801       |H   |		Short_Literal	0x1
02ac 00db       |    |		Load_Top	At_Offset_3
02ad 8005       |    |		Call	0x0,0x5
02ae 00e9       |    |		Load_Encached	String_Cache
02af 035b       | [  |		Declare_Type	Array,Constrained
02b0 0337       | 7  |		Declare_Variable	Array
02b1			BODY_02a8:
02b1 00db       |    |		Load_Top	At_Offset_3
02b2 8006       |    |		Call	0x0,0x6
02b3 e007       |    |		Load	0x0,0x7
02b4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02b5 00d9       |    |		Load_Top	At_Offset_1
02b6 01d4       |    |		Execute	Vector,Structure_Write
02b7 00cf       |    |		Action	Mark_Auxiliary
02b8 481e       |H   |		Short_Literal	0x1e
02b9 4800       |H   |		Short_Literal	0x0
02ba 0007       |    |		Action	Break_Optional
02bb 00db       |    |		Load_Top	At_Offset_3
02bc 00d9       |    |		Load_Top	At_Offset_1
02bd e21d       |    |		Load	0x1,0x1d
02be 01d7       |    |		Execute	Vector,Field_Read
02bf 0227       | '  |		Execute	Access,All_Reference
02c0 01df       |    |		Execute	Vector,Equal
02c1 6802       |h   |		Jump_Zero	0x2c4
02c2 00d8       |    |		Load_Top	At_Offset_0
02c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c4 00c8       |    |		Action	Pop_Auxiliary_Range
02c5 3ff5       |?   |		Loop_Increasing	0x2bb
02c6 00ce       |    |		Action	Pop_Auxiliary
02c7 482b       |H+  |		Short_Literal	0x2b
02c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c9 0000 0000  |    |		.BLANK	0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 4607       |F   |		Jump_Case	0x8
02d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02d5 7807       |x   |		Jump	0x2dd								; case 0x1
02d6 780a       |x   |		Jump	0x2e1								; case 0x2
02d7 780e       |x   |		Jump	0x2e6								; case 0x3
02d8 7811       |x   |		Jump	0x2ea								; case 0x4
02d9 7812       |x   |		Jump	0x2ec								; case 0x5
02da 7813       |x   |		Jump	0x2ee								; case 0x6
02db 7816       |x   |		Jump	0x2f2								; case 0x7
02dc 4302       |C   |		.XXX[0x1]
02dd 00da       |    |		Load_Top	At_Offset_2
02de 0091 033c  |   <|		Action	Push_String_Extended_Indexed,0x33c				; "ST_NORMAL"
02e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02e1 00db       |    |		Load_Top	At_Offset_3
02e2 00db       |    |		Load_Top	At_Offset_3
02e3 00e0       |    |		Load_Encached	Standard_Cache
02e4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e6 00da       |    |		Load_Top	At_Offset_2
02e7 00e0       |    |		Load_Encached	Standard_Cache
02e8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02e9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02ea 00db       |    |		Load_Top	At_Offset_3
02eb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ec 00db       |    |		Load_Top	At_Offset_3
02ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ee e21b       |    |		Load	0x1,0x1b
02ef 00dc       |    |		Load_Top	At_Offset_4
02f0 0267       | g  |		Execute	Discrete,Predecessor
02f1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f2 e21b       |    |		Load	0x1,0x1b
02f3 00dc       |    |		Load_Top	At_Offset_4
02f4 0268       | h  |		Execute	Discrete,Successor
02f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f6 0000 0000  |    |		.XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 4861       |Ha  |		Short_Literal	0x61
02fd 487a       |Hz  |		Short_Literal	0x7a
02fe 0262       | b  |		Execute	Discrete,In_Range
02ff 00db       |    |		Load_Top	At_Offset_3
0300 4841       |HA  |		Short_Literal	0x41
0301 485a       |HZ  |		Short_Literal	0x5a
0302 0262       | b  |		Execute	Discrete,In_Range
0303 0278       | x  |		Execute	Discrete,Or
0304 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0305 0000 0000  |    |		.XXX[0x3]
0307 0000       |    |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 00da       |    |		Load_Top	At_Offset_2
030c 4830       |H0  |		Short_Literal	0x30
030d 4839       |H9  |		Short_Literal	0x39
030e 0262       | b  |		Execute	Discrete,In_Range
030f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0310 ; --------------------------------------------------------------------------------------
0310 ; STRING TABLE
0310 ; --------------------------------------------------------------------------------------
0310 00a4       |    |		.STRTAB	0x00a4->0x0362							; "L_MATERIEL"
0311 00ac       |    |		.STRTAB	0x00ac->0x0367							; "L_BEGIN"
0312 00b1       |    |		.STRTAB	0x00b1->0x036a							; "L_END"
0313 00b4       |    |		.STRTAB	0x00b4->0x036d							; "L_FAIT"
0314 00b8       |    |		.STRTAB	0x00b8->0x0370							; "L_BINAIRE"
0315 00bf       |    |		.STRTAB	0x00bf->0x0374							; "L_FUGITIF"
0316 00c6       |    |		.STRTAB	0x00c6->0x0379							; "L_TEMPOREL"
0317 00ce       |    |		.STRTAB	0x00ce->0x037e							; "L_ACTEURS"
0318 00d5       |    |		.STRTAB	0x00d5->0x0382							; "L_EST"
0319 00d8       |    |		.STRTAB	0x00d8->0x0385							; "L_SUR"
031a 00db       |    |		.STRTAB	0x00db->0x0387							; "L_STATION"
031b 00e2       |    |		.STRTAB	0x00e2->0x038c							; "L_SCENARIO"
031c 00ea       |    |		.STRTAB	0x00ea->0x0391							; "L_SCENE"
031d 00ef       |    |		.STRTAB	0x00ef->0x0394							; "L_DANS"
031e 00f3       |    |		.STRTAB	0x00f3->0x0397							; "L_FAIRE"
031f 00f8       |    |		.STRTAB	0x00f8->0x039b							; "L_REPETER"
0320 00ff       |    |		.STRTAB	0x00ff->0x039f							; "L_FOIS"
0321 0103       |    |		.STRTAB	0x0103->0x03a2							; "L_REPETER_AD_ETERNAM"
0322 0115       |    |		.STRTAB	0x0115->0x03ac							; "L_TOUTES"
0323 011b       |    |		.STRTAB	0x011b->0x03b0							; "L_LES"
0324 011e       |    |		.STRTAB	0x011e->0x03b3							; "L_PENDANT"
0325 0125       | %  |		.STRTAB	0x0125->0x03b7							; "L_DE"
0326 0127       | '  |		.STRTAB	0x0127->0x03b9							; "L_VERS"
0327 012b       | +  |		.STRTAB	0x012b->0x03bc							; "L_EN"
0328 012d       | -  |		.STRTAB	0x012d->0x03be							; "L_EXPERIENCE"
0329 0137       | 7  |		.STRTAB	0x0137->0x03c4							; "L_EFFET"
032a 013c       | <  |		.STRTAB	0x013c->0x03c8							; "L_ENCHAINEMENT"
032b 0148       | H  |		.STRTAB	0x0148->0x03cf							; "L_GROUPE"
032c 014e       | N  |		.STRTAB	0x014e->0x03d3							; "L_HASARD"
032d 0154       | T  |		.STRTAB	0x0154->0x03d7							; "L_AVEC"
032e 0158       | X  |		.STRTAB	0x0158->0x03da							; "L_SANS"
032f 015c       | \  |		.STRTAB	0x015c->0x03dd							; "L_SUB"
0330 015f       | _  |		.STRTAB	0x015f->0x03df							; "L_PLUS"
0331 0163       | c  |		.STRTAB	0x0163->0x03e2							; "L_EQUAL"
0332 0168       | h  |		.STRTAB	0x0168->0x03e6							; "L_STAR"
0333 016c       | l  |		.STRTAB	0x016c->0x03e9							; "L_EOF"
0334 016f       | o  |		.STRTAB	0x016f->0x03eb							; "L_D_POINT"
0335 0176       | v  |		.STRTAB	0x0176->0x03f0							; "L_POINT"
0336 017b       | {  |		.STRTAB	0x017b->0x03f3							; "L_OPEN"
0337 017f       |    |		.STRTAB	0x017f->0x03f6							; "L_CLOSE"
0338 0184       |    |		.STRTAB	0x0184->0x03fa							; "L_NUMBER"
0339 018a       |    |		.STRTAB	0x018a->0x03fe							; "L_TEMPS"
033a 018f       |    |		.STRTAB	0x018f->0x0401							; "L_UNK"
033b 0192       |    |		.STRTAB	0x0192->0x0404							; "L_ID"
033c 0194       |    |		.STRTAB	0x0194->0x0406							; "ST_NORMAL"
033d 019b       |    |		.STRTAB	0x019b->0x040a							; "ST_SUB"
033e 019f       |    |		.STRTAB	0x019f->0x040d							; "ST_COMMENT"
033f 01a7       |    |		.STRTAB	0x01a7->0x0412							; "ST_WORD"
0340 01ac       |    |		.STRTAB	0x01ac->0x0416							; "ST_NUMBER"
0341 01b3       |    |		.STRTAB	0x01b3->0x041a							; "ST_FOUND"
0342 01b9       |    |		.STRTAB	0x01b9->0x041e							; "MATERIEL"
0343 01bf       |    |		.STRTAB	0x01bf->0x0422							; "DEBUT"
0344 01c2       |    |		.STRTAB	0x01c2->0x0425							; "FIN"
0345 01c3       |    |		.STRTAB	0x01c3->0x0426							; "FAIT"
0346 01c5       |    |		.STRTAB	0x01c5->0x0428							; "BINAIRE"
0347 01ca       |    |		.STRTAB	0x01ca->0x042c							; "FUGITIF"
0348 01cf       |    |		.STRTAB	0x01cf->0x042f							; "TEMPOREL"
0349 01d5       |    |		.STRTAB	0x01d5->0x0433							; "ACTEURS"
034a 01da       |    |		.STRTAB	0x01da->0x0437							; "EST"
034b 01db       |    |		.STRTAB	0x01db->0x0438							; "SUR"
034c 01dc       |    |		.STRTAB	0x01dc->0x043a							; "STATION"
034d 01e1       |    |		.STRTAB	0x01e1->0x043d							; "SCENARIO"
034e 01e7       |    |		.STRTAB	0x01e7->0x0441							; "SCENE"
034f 01ea       |    |		.STRTAB	0x01ea->0x0444							; "DANS"
0350 01ec       |    |		.STRTAB	0x01ec->0x0446							; "FAIRE"
0351 01ef       |    |		.STRTAB	0x01ef->0x0448							; "REPETER"
0352 01f4       |    |		.STRTAB	0x01f4->0x044c							; "FOIS"
0353 01f6       |    |		.STRTAB	0x01f6->0x044e							; "REPETER_AD_ETERNAM"
0354 0206       |    |		.STRTAB	0x0206->0x0457							; "TOUTES"
0355 020a       |    |		.STRTAB	0x020a->0x045a							; "LES"
0356 020b       |    |		.STRTAB	0x020b->0x045b							; "PENDANT"
0357 0210       |    |		.STRTAB	0x0210->0x045f							; "DE"
0358 0210       |    |		.STRTAB	0x0210->0x0460							; "VERS"
0359 0212       |    |		.STRTAB	0x0212->0x0462							; "EN"
035a 0212       |    |		.STRTAB	0x0212->0x0463							; "EXPERIENCE"
035b 021a       |    |		.STRTAB	0x021a->0x0468							; "EFFET"
035c 021d       |    |		.STRTAB	0x021d->0x046a							; "ENCHAINEMENT"
035d 0227       | '  |		.STRTAB	0x0227->0x0470							; "GROUPE"
035e 022b       | +  |		.STRTAB	0x022b->0x0473							; "HASARD"
035f 022f       | /  |		.STRTAB	0x022f->0x0476							; "AVEC"
0360 0231       | 1  |		.STRTAB	0x0231->0x0478							; "SANS"
0361 0233       | 3  |		.STREND 0x0233->0x047a
0362 4c5f 4d41  |L_MA|		.STRTAB_STRINGS
047b 0000 0000  |    |		.BLANK	0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; Debug Table
0480 ; --------------------------------------------------------------------------------------
0480 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0xe02e,0x0000,0x0001,0x000d
0486 000b 04ba  |    |		.DBG4T	0x000b,0x04ba,0x8000,0x0000
048a 001f 04c4  |    |		.DBG4T	0x001f,0x04c4,0x8000,0x0000
048e 0153 0000  | S  |		.DBG4T	0x0153,0x0000,0x0005,0x0000
0492 017b 04da  | {  |		.DBG4T	0x017b,0x04da,0x0001,0x0000
0496 018b 04de  |    |		.DBG4T	0x018b,0x04de,0x0001,0x0000
049a 0193 04e1  |    |		.DBG4T	0x0193,0x04e1,0x0002,0x0000
049e 019b 04e4  |    |		.DBG4T	0x019b,0x04e4,0x0001,0x4000
04a2 029b 0552  |   R|		.DBG4T	0x029b,0x0552,0x0002,0x0000
04a6 02a3 0555  |   U|		.DBG4T	0x02a3,0x0555,0x0002,0x0000
04aa 02ab 0558  |   X|		.DBG4T	0x02ab,0x0558,0x0002,0x0000
04ae 02d3 0000  |    |		.DBG4T	0x02d3,0x0000,0x0005,0x0000
04b2 02fb 0560  |   `|		.DBG4T	0x02fb,0x0560,0x0002,0x0000
04b6 030b 0563  |   c|		.DBG4T	0x030b,0x0563,0x0002,0x0000
04ba ; --------------------------------------------------------------------------------------
04ba ; Debug chain
04ba ; --------------------------------------------------------------------------------------
04ba 0008 0000  |    |		.DBGLEN	0x0008,0x0000
04bc 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c
04c4 ; --------------------------------------------------------------------------------------
04c4 ; Debug chain
04c4 ; --------------------------------------------------------------------------------------
04c4 0014 0000  |    |		.DBGLEN	0x0014,0x0000
04c6 001f 0023  |   #|		.DBGLNO	0x001f,0x0023,0x0027,0x002d,0x0032,0x0036,0x0038,0x003d,0x0041,0x0121,0x012f,0x0135,0x0137,0x0139,0x013b,0x013d,0x013f,0x0141,0x0143,0x0145
04da ; --------------------------------------------------------------------------------------
04da ; Debug chain
04da ; --------------------------------------------------------------------------------------
04da 0000 0002  |    |		.DBGLEN	0x0000,0x0002
04dc 017b 0182  | {  |		.DBGLNO	0x017b,0x0182
04de ; --------------------------------------------------------------------------------------
04de ; Debug chain
04de ; --------------------------------------------------------------------------------------
04de 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04e0 018b       |    |		.DBGLNO	0x018b
04e1 ; --------------------------------------------------------------------------------------
04e1 ; Debug chain
04e1 ; --------------------------------------------------------------------------------------
04e1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04e3 0193       |    |		.DBGLNO	0x0193
04e4 ; --------------------------------------------------------------------------------------
04e4 ; Debug chain
04e4 ; --------------------------------------------------------------------------------------
04e4 0004 0034  |   4|		.DBGLEN	0x0004,0x0034
04e6 019b 019d  |    |		.DBGLNO	0x019b,0x019d,0x01a1,0x01a3,0x01a4,0x01a8,0x01ac,0x01b0,0x01b3,0x01b8,0x01ba,0x01c6,0x01c9,0x01ce,0x01d1,0x01d3,0x01d6,0x0219,0x021b,0x021f,0x0222,0x0226,0x0229,0x022c,0x0230,0x0233,0x0235,0x0238,0x023a,0x023d,0x023f,0x0242,0x0244,0x0247,0x0249,0x024c,0x024e,0x0251,0x0253,0x0256,0x0258,0x025b,0x025e,0x0261,0x0264,0x0267,0x0269,0x026c,0x026f,0x0272,0x027b,0x0280,0x0283,0x0286,0x0289,0x028e
051e 0001 0002  |    |		.XXX[0x34]
0520 0004 0005  |    |
0522 0006 0007  |    |
0524 0008 0030  |   0|
0526 0031 0032  | 1 2|
0528 0033 0034  | 3 4|
052a 0009 000f  |    |
052c 0010 001c  |    |
052e 001d 001e  |    |
0530 001f 0020  |    |
0532 0021 0022  | ! "|
0534 0023 000a  | #  |
0536 000b 000d  |    |
0538 000e 0011  |    |
053a 0012 0013  |    |
053c 0014 0015  |    |
053e 0016 0017  |    |
0540 0018 0019  |    |
0542 001a 001b  |    |
0544 0024 0025  | $ %|
0546 0026 0027  | & '|
0548 0028 0029  | ( )|
054a 002a 002b  | * +|
054c 002c 002d  | , -|
054e 002e 002f  | . /|
0550 0003 0035  |   5|
0552 ; --------------------------------------------------------------------------------------
0552 ; Debug chain
0552 ; --------------------------------------------------------------------------------------
0552 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0554 029b       |    |		.DBGLNO	0x029b
0555 ; --------------------------------------------------------------------------------------
0555 ; Debug chain
0555 ; --------------------------------------------------------------------------------------
0555 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0557 02a3       |    |		.DBGLNO	0x02a3
0558 ; --------------------------------------------------------------------------------------
0558 ; Debug chain
0558 ; --------------------------------------------------------------------------------------
0558 0001 0005  |    |		.DBGLEN	0x0001,0x0005
055a 02ab 02b1  |    |		.DBGLNO	0x02ab,0x02b1,0x02b8,0x02bb,0x02c2,0x02c7
0560 ; --------------------------------------------------------------------------------------
0560 ; Debug chain
0560 ; --------------------------------------------------------------------------------------
0560 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0562 02fb       |    |		.DBGLNO	0x02fb
0563 ; --------------------------------------------------------------------------------------
0563 ; Debug chain
0563 ; --------------------------------------------------------------------------------------
0563 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0565 030b       |    |		.DBGLNO	0x030b
0566 0000 0000  |    |		.BLANK	0000[0x9a]