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

⟦d498cba30⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5934b7

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 0798       |    |		.CONST	0x0798								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001d       |    |		.CONST	0x001d								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
001d			BODY_0018:
001d 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
001f 0092 0270  |   p|		Action	Push_String_Extended,0x270					; "compclav.ads"
0021 0092 0271  |   q|		Action	Push_String_Extended,0x271					; "Compare_Clavier'SPEC"
0023 8402       |    |		Call	0x2,0x2
0024 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0026 0092 0272  |   r|		Action	Push_String_Extended,0x272					; "compclav.adb"
0028 0092 0273  |   s|		Action	Push_String_Extended,0x273					; "Compare_Clavier'BODY"
002a 8402       |    |		Call	0x2,0x2
002b 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
002d 0092 0274  |   t|		Action	Push_String_Extended,0x274					; "compenti.ads"
002f 0092 0275  |   u|		Action	Push_String_Extended,0x275					; "Compare_Entier'SPEC"
0031 8402       |    |		Call	0x2,0x2
0032 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0034 0092 0276  |   v|		Action	Push_String_Extended,0x276					; "compenti.adb"
0036 0092 0277  |   w|		Action	Push_String_Extended,0x277					; "Compare_Entier'BODY"
0038 8402       |    |		Call	0x2,0x2
0039 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
003b 0092 0278  |   x|		Action	Push_String_Extended,0x278					; "compid.ads"
003d 0092 0279  |   y|		Action	Push_String_Extended,0x279					; "Compare_Id'SPEC"
003f 8402       |    |		Call	0x2,0x2
0040 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0042 0092 027a  |   z|		Action	Push_String_Extended,0x27a					; "compid.adb"
0044 0092 027b  |   {|		Action	Push_String_Extended,0x27b					; "Compare_Id'BODY"
0046 8402       |    |		Call	0x2,0x2
0047 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0049 0092 027c  |   ||		Action	Push_String_Extended,0x27c					; "compid1.ads"
004b 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "Compare_Id1'SPEC"
004d 8402       |    |		Call	0x2,0x2
004e 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0050 0092 027e  |   ~|		Action	Push_String_Extended,0x27e					; "compid1.adb"
0052 0092 027f  |    |		Action	Push_String_Extended,0x27f					; "Compare_Id1'BODY"
0054 8402       |    |		Call	0x2,0x2
0055 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0057 0092 0280  |    |		Action	Push_String_Extended,0x280					; "erreur.ads"
0059 0092 0281  |    |		Action	Push_String_Extended,0x281					; "Erreur'SPEC"
005b 8402       |    |		Call	0x2,0x2
005c 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
005e 0092 0282  |    |		Action	Push_String_Extended,0x282					; "erreur.adb"
0060 0092 0283  |    |		Action	Push_String_Extended,0x283					; "Erreur'BODY"
0062 8402       |    |		Call	0x2,0x2
0063 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0065 0092 0284  |    |		Action	Push_String_Extended,0x284					; "lagramm.ads"
0067 0092 0285  |    |		Action	Push_String_Extended,0x285					; "La_Grammaire'SPEC"
0069 8402       |    |		Call	0x2,0x2
006a 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
006c 0092 0286  |    |		Action	Push_String_Extended,0x286					; "lagramm.adb"
006e 0092 0287  |    |		Action	Push_String_Extended,0x287					; "La_Grammaire'BODY"
0070 8402       |    |		Call	0x2,0x2
0071 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0073 0092 0288  |    |		Action	Push_String_Extended,0x288					; "lescompl.ads"
0075 0092 0289  |    |		Action	Push_String_Extended,0x289					; "Les_Complements'SPEC"
0077 8402       |    |		Call	0x2,0x2
0078 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
007a 0092 028a  |    |		Action	Push_String_Extended,0x28a					; "lescompl.adb"
007c 0092 028b  |    |		Action	Push_String_Extended,0x28b					; "Les_Complements'BODY"
007e 8402       |    |		Call	0x2,0x2
007f 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0081 0092 028c  |    |		Action	Push_String_Extended,0x28c					; "lescondi.ads"
0083 0092 028d  |    |		Action	Push_String_Extended,0x28d					; "Les_Conditions'SPEC"
0085 8402       |    |		Call	0x2,0x2
0086 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0088 0092 028e  |    |		Action	Push_String_Extended,0x28e					; "lescondi.adb"
008a 0092 028f  |    |		Action	Push_String_Extended,0x28f					; "Les_Conditions'BODY"
008c 8402       |    |		Call	0x2,0x2
008d 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
008f 0092 0290  |    |		Action	Push_String_Extended,0x290					; "lesenti.ads"
0091 0092 0291  |    |		Action	Push_String_Extended,0x291					; "Les_Entites'SPEC"
0093 8402       |    |		Call	0x2,0x2
0094 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0096 0092 0292  |    |		Action	Push_String_Extended,0x292					; "lesenti.adb"
0098 0092 0293  |    |		Action	Push_String_Extended,0x293					; "Les_Entites'BODY"
009a 8402       |    |		Call	0x2,0x2
009b 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
009d 0092 0294  |    |		Action	Push_String_Extended,0x294					; "lesenti1.ads"
009f 0092 0295  |    |		Action	Push_String_Extended,0x295					; "Les_Entites1'SPEC"
00a1 8402       |    |		Call	0x2,0x2
00a2 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00a4 0092 0296  |    |		Action	Push_String_Extended,0x296					; "lesenti1.adb"
00a6 0092 0297  |    |		Action	Push_String_Extended,0x297					; "Les_Entites1'BODY"
00a8 8402       |    |		Call	0x2,0x2
00a9 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00ab 0092 0298  |    |		Action	Push_String_Extended,0x298					; "lesinit.ads"
00ad 0092 0299  |    |		Action	Push_String_Extended,0x299					; "Les_Initialisations'SPEC"
00af 8402       |    |		Call	0x2,0x2
00b0 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00b2 0092 029a  |    |		Action	Push_String_Extended,0x29a					; "lesinit.adb"
00b4 0092 029b  |    |		Action	Push_String_Extended,0x29b					; "Les_Initialisations'BODY"
00b6 8402       |    |		Call	0x2,0x2
00b7 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00b9 0092 029c  |    |		Action	Push_String_Extended,0x29c					; "lesinit1.ads"
00bb 0092 029d  |    |		Action	Push_String_Extended,0x29d					; "Les_Initialisations1'SPEC"
00bd 8402       |    |		Call	0x2,0x2
00be 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00c0 0092 029e  |    |		Action	Push_String_Extended,0x29e					; "lesinit1.adb"
00c2 0092 029f  |    |		Action	Push_String_Extended,0x29f					; "Les_Initialisations1'BODY"
00c4 8402       |    |		Call	0x2,0x2
00c5 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00c7 0092 02a0  |    |		Action	Push_String_Extended,0x2a0					; "lessynon.ads"
00c9 0092 02a1  |    |		Action	Push_String_Extended,0x2a1					; "Les_Synonymes'SPEC"
00cb 8402       |    |		Call	0x2,0x2
00cc 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00ce 0092 02a2  |    |		Action	Push_String_Extended,0x2a2					; "lessynon.adb"
00d0 0092 02a3  |    |		Action	Push_String_Extended,0x2a3					; "Les_Synonymes'BODY"
00d2 8402       |    |		Call	0x2,0x2
00d3 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00d5 0092 02a4  |    |		Action	Push_String_Extended,0x2a4					; "lesvar.ads"
00d7 0092 02a5  |    |		Action	Push_String_Extended,0x2a5					; "Les_Variables'SPEC"
00d9 8402       |    |		Call	0x2,0x2
00da 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00dc 0092 02a6  |    |		Action	Push_String_Extended,0x2a6					; "lesvar.adb"
00de 0092 02a7  |    |		Action	Push_String_Extended,0x2a7					; "Les_Variables'BODY"
00e0 8402       |    |		Call	0x2,0x2
00e1 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00e3 0092 02a8  |    |		Action	Push_String_Extended,0x2a8					; "lesverb.ads"
00e5 0092 02a9  |    |		Action	Push_String_Extended,0x2a9					; "Les_Verbes'SPEC"
00e7 8402       |    |		Call	0x2,0x2
00e8 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00ea 0092 02aa  |    |		Action	Push_String_Extended,0x2aa					; "lesverb.adb"
00ec 0092 02ab  |    |		Action	Push_String_Extended,0x2ab					; "Les_Verbes'BODY"
00ee 8402       |    |		Call	0x2,0x2
00ef 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00f1 0092 02ac  |    |		Action	Push_String_Extended,0x2ac					; "uneaff.ads"
00f3 0092 02ad  |    |		Action	Push_String_Extended,0x2ad					; "Une_Affectation'SPEC"
00f5 8402       |    |		Call	0x2,0x2
00f6 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00f8 0092 02ae  |    |		Action	Push_String_Extended,0x2ae					; "uneaff.adb"
00fa 0092 02af  |    |		Action	Push_String_Extended,0x2af					; "Une_Affectation'BODY"
00fc 8402       |    |		Call	0x2,0x2
00fd 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
00ff 0092 02b0  |    |		Action	Push_String_Extended,0x2b0					; "unecond.ads"
0101 0092 02b1  |    |		Action	Push_String_Extended,0x2b1					; "Une_Condition'SPEC"
0103 8402       |    |		Call	0x2,0x2
0104 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0106 0092 02b2  |    |		Action	Push_String_Extended,0x2b2					; "unecond.adb"
0108 0092 02b3  |    |		Action	Push_String_Extended,0x2b3					; "Une_Condition'BODY"
010a 8402       |    |		Call	0x2,0x2
010b 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
010d 0092 02b4  |    |		Action	Push_String_Extended,0x2b4					; "uneinst.ads"
010f 0092 02b5  |    |		Action	Push_String_Extended,0x2b5					; "Une_Instruction'SPEC"
0111 8402       |    |		Call	0x2,0x2
0112 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0114 0092 02b6  |    |		Action	Push_String_Extended,0x2b6					; "uneinst.adb"
0116 0092 02b7  |    |		Action	Push_String_Extended,0x2b7					; "Une_Instruction'BODY"
0118 8402       |    |		Call	0x2,0x2
0119 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
011b 0092 02b8  |    |		Action	Push_String_Extended,0x2b8					; "unelch.ads"
011d 0092 02b9  |    |		Action	Push_String_Extended,0x2b9					; "Une_Liste_Champs'SPEC"
011f 8402       |    |		Call	0x2,0x2
0120 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0122 0092 02ba  |    |		Action	Push_String_Extended,0x2ba					; "unelch.adb"
0124 0092 02bb  |    |		Action	Push_String_Extended,0x2bb					; "Une_Liste_Champs'BODY"
0126 8402       |    |		Call	0x2,0x2
0127 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0129 0092 02bc  |    |		Action	Push_String_Extended,0x2bc					; "unelch1.ads"
012b 0092 02bd  |    |		Action	Push_String_Extended,0x2bd					; "Une_Liste_Champs1'SPEC"
012d 8402       |    |		Call	0x2,0x2
012e 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0130 0092 02be  |    |		Action	Push_String_Extended,0x2be					; "unelch1.adb"
0132 0092 02bf  |    |		Action	Push_String_Extended,0x2bf					; "Une_Liste_Champs1'BODY"
0134 8402       |    |		Call	0x2,0x2
0135 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0137 0092 02c0  |    |		Action	Push_String_Extended,0x2c0					; "unelid.ads"
0139 0092 02c1  |    |		Action	Push_String_Extended,0x2c1					; "Une_Liste_Id'SPEC"
013b 8402       |    |		Call	0x2,0x2
013c 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
013e 0092 02c2  |    |		Action	Push_String_Extended,0x2c2					; "unelid.adb"
0140 0092 02c3  |    |		Action	Push_String_Extended,0x2c3					; "Une_Liste_Id'BODY"
0142 8402       |    |		Call	0x2,0x2
0143 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0145 0092 02c4  |    |		Action	Push_String_Extended,0x2c4					; "unelid1.ads"
0147 0092 02c5  |    |		Action	Push_String_Extended,0x2c5					; "Une_Liste_Id1'SPEC"
0149 8402       |    |		Call	0x2,0x2
014a 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
014c 0092 02c6  |    |		Action	Push_String_Extended,0x2c6					; "unelid1.adb"
014e 0092 02c7  |    |		Action	Push_String_Extended,0x2c7					; "Une_Liste_Id1'BODY"
0150 8402       |    |		Call	0x2,0x2
0151 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0153 0092 02c8  |    |		Action	Push_String_Extended,0x2c8					; "unelid2.ads"
0155 0092 02c9  |    |		Action	Push_String_Extended,0x2c9					; "Une_Liste_Id2'SPEC"
0157 8402       |    |		Call	0x2,0x2
0158 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
015a 0092 02ca  |    |		Action	Push_String_Extended,0x2ca					; "unelid2.adb"
015c 0092 02cb  |    |		Action	Push_String_Extended,0x2cb					; "Une_Liste_Id2'BODY"
015e 8402       |    |		Call	0x2,0x2
015f 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0161 0092 02cc  |    |		Action	Push_String_Extended,0x2cc					; "uneval.ads"
0163 0092 02cd  |    |		Action	Push_String_Extended,0x2cd					; "Une_Valeur'SPEC"
0165 8402       |    |		Call	0x2,0x2
0166 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0168 0092 02ce  |    |		Action	Push_String_Extended,0x2ce					; "uneval.adb"
016a 0092 02cf  |    |		Action	Push_String_Extended,0x2cf					; "Une_Valeur'BODY"
016c 8402       |    |		Call	0x2,0x2
016d 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
016f 0092 02d0  |    |		Action	Push_String_Extended,0x2d0					; "uneval1.ads"
0171 0092 02d1  |    |		Action	Push_String_Extended,0x2d1					; "Une_Valeur1'SPEC"
0173 8402       |    |		Call	0x2,0x2
0174 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0176 0092 02d2  |    |		Action	Push_String_Extended,0x2d2					; "uneval1.adb"
0178 0092 02d3  |    |		Action	Push_String_Extended,0x2d3					; "Une_Valeur1'BODY"
017a 8402       |    |		Call	0x2,0x2
017b 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
017d 0092 02d4  |    |		Action	Push_String_Extended,0x2d4					; "uneval2.ads"
017f 0092 02d5  |    |		Action	Push_String_Extended,0x2d5					; "Une_Valeur2'SPEC"
0181 8402       |    |		Call	0x2,0x2
0182 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0184 0092 02d6  |    |		Action	Push_String_Extended,0x2d6					; "uneval2.adb"
0186 0092 02d7  |    |		Action	Push_String_Extended,0x2d7					; "Une_Valeur2'BODY"
0188 8402       |    |		Call	0x2,0x2
0189 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
018b 0092 02d8  |    |		Action	Push_String_Extended,0x2d8					; "unaffich.ads"
018d 0092 02d9  |    |		Action	Push_String_Extended,0x2d9					; "Un_Affichage'SPEC"
018f 8402       |    |		Call	0x2,0x2
0190 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0192 0092 02da  |    |		Action	Push_String_Extended,0x2da					; "unaffich.adb"
0194 0092 02db  |    |		Action	Push_String_Extended,0x2db					; "Un_Affichage'BODY"
0196 8402       |    |		Call	0x2,0x2
0197 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0199 0092 02dc  |    |		Action	Push_String_Extended,0x2dc					; "unblocin.ads"
019b 0092 02dd  |    |		Action	Push_String_Extended,0x2dd					; "Un_Bloc_Instructions'SPEC"
019d 8402       |    |		Call	0x2,0x2
019e 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01a0 0092 02de  |    |		Action	Push_String_Extended,0x2de					; "unblocin.adb"
01a2 0092 02df  |    |		Action	Push_String_Extended,0x2df					; "Un_Bloc_Instructions'BODY"
01a4 8402       |    |		Call	0x2,0x2
01a5 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01a7 0092 02e0  |    |		Action	Push_String_Extended,0x2e0					; "unfact.ads"
01a9 0092 02e1  |    |		Action	Push_String_Extended,0x2e1					; "Un_Facteur'SPEC"
01ab 8402       |    |		Call	0x2,0x2
01ac 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01ae 0092 02e2  |    |		Action	Push_String_Extended,0x2e2					; "unfact.adb"
01b0 0092 02e3  |    |		Action	Push_String_Extended,0x2e3					; "Un_Facteur'BODY"
01b2 8402       |    |		Call	0x2,0x2
01b3 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01b5 0092 02e4  |    |		Action	Push_String_Extended,0x2e4					; "unidcom.ads"
01b7 0092 02e5  |    |		Action	Push_String_Extended,0x2e5					; "Un_Id_Compose'SPEC"
01b9 8402       |    |		Call	0x2,0x2
01ba 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01bc 0092 02e6  |    |		Action	Push_String_Extended,0x2e6					; "unidcom.adb"
01be 0092 02e7  |    |		Action	Push_String_Extended,0x2e7					; "Un_Id_Compose'BODY"
01c0 8402       |    |		Call	0x2,0x2
01c1 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01c3 0092 02e8  |    |		Action	Push_String_Extended,0x2e8					; "unidcom1.ads"
01c5 0092 02e9  |    |		Action	Push_String_Extended,0x2e9					; "Un_Id_Compose1'SPEC"
01c7 8402       |    |		Call	0x2,0x2
01c8 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01ca 0092 02ea  |    |		Action	Push_String_Extended,0x2ea					; "unidcom1.adb"
01cc 0092 02eb  |    |		Action	Push_String_Extended,0x2eb					; "Un_Id_Compose1'BODY"
01ce 8402       |    |		Call	0x2,0x2
01cf 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01d1 0092 02ec  |    |		Action	Push_String_Extended,0x2ec					; "unidcom2.ads"
01d3 0092 02ed  |    |		Action	Push_String_Extended,0x2ed					; "Un_Id_Compose2'SPEC"
01d5 8402       |    |		Call	0x2,0x2
01d6 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01d8 0092 02ee  |    |		Action	Push_String_Extended,0x2ee					; "unidcom2.adb"
01da 0092 02ef  |    |		Action	Push_String_Extended,0x2ef					; "Un_Id_Compose2'BODY"
01dc 8402       |    |		Call	0x2,0x2
01dd 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01df 0092 02f0  |    |		Action	Push_String_Extended,0x2f0					; "unnomb.ads"
01e1 0092 02f1  |    |		Action	Push_String_Extended,0x2f1					; "Un_Nombre'SPEC"
01e3 8402       |    |		Call	0x2,0x2
01e4 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01e6 0092 02f2  |    |		Action	Push_String_Extended,0x2f2					; "unnomb.adb"
01e8 0092 02f3  |    |		Action	Push_String_Extended,0x2f3					; "Un_Nombre'BODY"
01ea 8402       |    |		Call	0x2,0x2
01eb 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01ed 0092 02f4  |    |		Action	Push_String_Extended,0x2f4					; "unnomb1.ads"
01ef 0092 02f5  |    |		Action	Push_String_Extended,0x2f5					; "Un_Nombre1'SPEC"
01f1 8402       |    |		Call	0x2,0x2
01f2 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01f4 0092 02f6  |    |		Action	Push_String_Extended,0x2f6					; "unnomb1.adb"
01f6 0092 02f7  |    |		Action	Push_String_Extended,0x2f7					; "Un_Nombre1'BODY"
01f8 8402       |    |		Call	0x2,0x2
01f9 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
01fb 0092 02f8  |    |		Action	Push_String_Extended,0x2f8					; "unterme.ads"
01fd 0092 02f9  |    |		Action	Push_String_Extended,0x2f9					; "Un_Terme'SPEC"
01ff 8402       |    |		Call	0x2,0x2
0200 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0202 0092 02fa  |    |		Action	Push_String_Extended,0x2fa					; "unterme.adb"
0204 0092 02fb  |    |		Action	Push_String_Extended,0x2fb					; "Un_Terme'BODY"
0206 8402       |    |		Call	0x2,0x2
0207 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0209 0092 02fc  |    |		Action	Push_String_Extended,0x2fc					; "unterme1.ads"
020b 0092 02fd  |    |		Action	Push_String_Extended,0x2fd					; "Un_Terme1'SPEC"
020d 8402       |    |		Call	0x2,0x2
020e 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0210 0092 02fe  |    |		Action	Push_String_Extended,0x2fe					; "unterme1.adb"
0212 0092 02ff  |    |		Action	Push_String_Extended,0x2ff					; "Un_Terme1'BODY"
0214 8402       |    |		Call	0x2,0x2
0215 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0217 0092 0300  |    |		Action	Push_String_Extended,0x300					; "untest.ads"
0219 0092 0301  |    |		Action	Push_String_Extended,0x301					; "Un_Test'SPEC"
021b 8402       |    |		Call	0x2,0x2
021c 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
021e 0092 0302  |    |		Action	Push_String_Extended,0x302					; "untest.adb"
0220 0092 0303  |    |		Action	Push_String_Extended,0x303					; "Un_Test'BODY"
0222 8402       |    |		Call	0x2,0x2
0223 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0225 0092 0304  |    |		Action	Push_String_Extended,0x304					; "untest1.ads"
0227 0092 0305  |    |		Action	Push_String_Extended,0x305					; "Un_Test1'SPEC"
0229 8402       |    |		Call	0x2,0x2
022a 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
022c 0092 0306  |    |		Action	Push_String_Extended,0x306					; "untest1.adb"
022e 0092 0307  |    |		Action	Push_String_Extended,0x307					; "Un_Test1'BODY"
0230 8402       |    |		Call	0x2,0x2
0231 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0233 0092 0308  |    |		Action	Push_String_Extended,0x308					; "untyp.ads"
0235 0092 0309  |    |		Action	Push_String_Extended,0x309					; "Un_Type'SPEC"
0237 8402       |    |		Call	0x2,0x2
0238 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
023a 0092 030a  |    |		Action	Push_String_Extended,0x30a					; "untyp.adb"
023c 0092 030b  |    |		Action	Push_String_Extended,0x30b					; "Un_Type'BODY"
023e 8402       |    |		Call	0x2,0x2
023f 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0241 0092 030c  |    |		Action	Push_String_Extended,0x30c					; "untypbas.ads"
0243 0092 030d  |    |		Action	Push_String_Extended,0x30d					; "Un_Type_De_Base'SPEC"
0245 8402       |    |		Call	0x2,0x2
0246 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Belladone"
0248 0092 030e  |    |		Action	Push_String_Extended,0x30e					; "untypbas.adb"
024a 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "Un_Type_De_Base'BODY"
024c 8402       |    |		Call	0x2,0x2
024d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
024e 0000 0000  |    |		.XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 e002       |    |		Load	0x0,0x2
0254 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0255 e003       |    |		Load	0x0,0x3
0256 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0257 e003       |    |		Load	0x0,0x3
0258 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0259 e003       |    |		Load	0x0,0x3
025a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
025b e003       |    |		Load	0x0,0x3
025c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
025d 4800       |H   |		Short_Literal	0x0
025e e003       |    |		Load	0x0,0x3
025f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0260 e003       |    |		Load	0x0,0x3
0261 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0262 e003       |    |		Load	0x0,0x3
0263 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0264 0092 0310  |    |		Action	Push_String_Extended,0x310					; "bonovox"
0266 0092 0311  |    |		Action	Push_String_Extended,0x311					; "lsi02"
0268 0092 0312  |    |		Action	Push_String_Extended,0x312					; "belladone"
026a e7fe       |    |		Load	0x3,-0x2
026b e7ff       |    |		Load	0x3,-0x1
026c e004       |    |		Load	0x0,0x4
026d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
026e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
026f ; --------------------------------------------------------------------------------------
026f ; STRING TABLE
026f ; --------------------------------------------------------------------------------------
026f 014a       | J  |		.STRTAB	0x014a->0x0314							; "Belladone"
0270 0151       | Q  |		.STRTAB	0x0151->0x0318							; "compclav.ads"
0271 015b       | [  |		.STRTAB	0x015b->0x031e							; "Compare_Clavier'SPEC"
0272 016d       | m  |		.STRTAB	0x016d->0x0328							; "compclav.adb"
0273 0177       | w  |		.STRTAB	0x0177->0x032e							; "Compare_Clavier'BODY"
0274 0189       |    |		.STRTAB	0x0189->0x0338							; "compenti.ads"
0275 0193       |    |		.STRTAB	0x0193->0x033e							; "Compare_Entier'SPEC"
0276 01a4       |    |		.STRTAB	0x01a4->0x0348							; "compenti.adb"
0277 01ae       |    |		.STRTAB	0x01ae->0x034e							; "Compare_Entier'BODY"
0278 01bf       |    |		.STRTAB	0x01bf->0x0357							; "compid.ads"
0279 01c7       |    |		.STRTAB	0x01c7->0x035c							; "Compare_Id'SPEC"
027a 01d4       |    |		.STRTAB	0x01d4->0x0364							; "compid.adb"
027b 01dc       |    |		.STRTAB	0x01dc->0x0369							; "Compare_Id'BODY"
027c 01e9       |    |		.STRTAB	0x01e9->0x0370							; "compid1.ads"
027d 01f2       |    |		.STRTAB	0x01f2->0x0376							; "Compare_Id1'SPEC"
027e 0200       |    |		.STRTAB	0x0200->0x037e							; "compid1.adb"
027f 0209       |    |		.STRTAB	0x0209->0x0383							; "Compare_Id1'BODY"
0280 0217       |    |		.STRTAB	0x0217->0x038b							; "erreur.ads"
0281 021f       |    |		.STRTAB	0x021f->0x0390							; "Erreur'SPEC"
0282 0228       | (  |		.STRTAB	0x0228->0x0396							; "erreur.adb"
0283 0230       | 0  |		.STRTAB	0x0230->0x039b							; "Erreur'BODY"
0284 0239       | 9  |		.STRTAB	0x0239->0x03a0							; "lagramm.ads"
0285 0242       | B  |		.STRTAB	0x0242->0x03a6							; "La_Grammaire'SPEC"
0286 0251       | Q  |		.STRTAB	0x0251->0x03ae							; "lagramm.adb"
0287 025a       | Z  |		.STRTAB	0x025a->0x03b4							; "La_Grammaire'BODY"
0288 0269       | i  |		.STRTAB	0x0269->0x03bc							; "lescompl.ads"
0289 0273       | s  |		.STRTAB	0x0273->0x03c2							; "Les_Complements'SPEC"
028a 0285       |    |		.STRTAB	0x0285->0x03cc							; "lescompl.adb"
028b 028f       |    |		.STRTAB	0x028f->0x03d2							; "Les_Complements'BODY"
028c 02a1       |    |		.STRTAB	0x02a1->0x03dc							; "lescondi.ads"
028d 02ab       |    |		.STRTAB	0x02ab->0x03e2							; "Les_Conditions'SPEC"
028e 02bc       |    |		.STRTAB	0x02bc->0x03ec							; "lescondi.adb"
028f 02c6       |    |		.STRTAB	0x02c6->0x03f2							; "Les_Conditions'BODY"
0290 02d7       |    |		.STRTAB	0x02d7->0x03fb							; "lesenti.ads"
0291 02e0       |    |		.STRTAB	0x02e0->0x0401							; "Les_Entites'SPEC"
0292 02ee       |    |		.STRTAB	0x02ee->0x0409							; "lesenti.adb"
0293 02f7       |    |		.STRTAB	0x02f7->0x040e							; "Les_Entites'BODY"
0294 0305       |    |		.STRTAB	0x0305->0x0416							; "lesenti1.ads"
0295 030f       |    |		.STRTAB	0x030f->0x041c							; "Les_Entites1'SPEC"
0296 031e       |    |		.STRTAB	0x031e->0x0425							; "lesenti1.adb"
0297 0328       | (  |		.STRTAB	0x0328->0x042b							; "Les_Entites1'BODY"
0298 0337       | 7  |		.STRTAB	0x0337->0x0433							; "lesinit.ads"
0299 0340       | @  |		.STRTAB	0x0340->0x0439							; "Les_Initialisations'SPEC"
029a 0356       | V  |		.STRTAB	0x0356->0x0445							; "lesinit.adb"
029b 035f       | _  |		.STRTAB	0x035f->0x044a							; "Les_Initialisations'BODY"
029c 0375       | u  |		.STRTAB	0x0375->0x0456							; "lesinit1.ads"
029d 037f       |    |		.STRTAB	0x037f->0x045c							; "Les_Initialisations1'SPEC"
029e 0396       |    |		.STRTAB	0x0396->0x0469							; "lesinit1.adb"
029f 03a0       |    |		.STRTAB	0x03a0->0x046f							; "Les_Initialisations1'BODY"
02a0 03b7       |    |		.STRTAB	0x03b7->0x047b							; "lessynon.ads"
02a1 03c1       |    |		.STRTAB	0x03c1->0x0481							; "Les_Synonymes'SPEC"
02a2 03d1       |    |		.STRTAB	0x03d1->0x048a							; "lessynon.adb"
02a3 03db       |    |		.STRTAB	0x03db->0x0490							; "Les_Synonymes'BODY"
02a4 03eb       |    |		.STRTAB	0x03eb->0x0499							; "lesvar.ads"
02a5 03f3       |    |		.STRTAB	0x03f3->0x049e							; "Les_Variables'SPEC"
02a6 0403       |    |		.STRTAB	0x0403->0x04a7							; "lesvar.adb"
02a7 040b       |    |		.STRTAB	0x040b->0x04ac							; "Les_Variables'BODY"
02a8 041b       |    |		.STRTAB	0x041b->0x04b5							; "lesverb.ads"
02a9 0424       | $  |		.STRTAB	0x0424->0x04bb							; "Les_Verbes'SPEC"
02aa 0431       | 1  |		.STRTAB	0x0431->0x04c2							; "lesverb.adb"
02ab 043a       | :  |		.STRTAB	0x043a->0x04c8							; "Les_Verbes'BODY"
02ac 0447       | G  |		.STRTAB	0x0447->0x04cf							; "uneaff.ads"
02ad 044f       | O  |		.STRTAB	0x044f->0x04d4							; "Une_Affectation'SPEC"
02ae 0461       | a  |		.STRTAB	0x0461->0x04de							; "uneaff.adb"
02af 0469       | i  |		.STRTAB	0x0469->0x04e3							; "Une_Affectation'BODY"
02b0 047b       | {  |		.STRTAB	0x047b->0x04ed							; "unecond.ads"
02b1 0484       |    |		.STRTAB	0x0484->0x04f3							; "Une_Condition'SPEC"
02b2 0494       |    |		.STRTAB	0x0494->0x04fc							; "unecond.adb"
02b3 049d       |    |		.STRTAB	0x049d->0x0501							; "Une_Condition'BODY"
02b4 04ad       |    |		.STRTAB	0x04ad->0x050a							; "uneinst.ads"
02b5 04b6       |    |		.STRTAB	0x04b6->0x0510							; "Une_Instruction'SPEC"
02b6 04c8       |    |		.STRTAB	0x04c8->0x051a							; "uneinst.adb"
02b7 04d1       |    |		.STRTAB	0x04d1->0x051f							; "Une_Instruction'BODY"
02b8 04e3       |    |		.STRTAB	0x04e3->0x0529							; "unelch.ads"
02b9 04eb       |    |		.STRTAB	0x04eb->0x052e							; "Une_Liste_Champs'SPEC"
02ba 04fe       |    |		.STRTAB	0x04fe->0x0539							; "unelch.adb"
02bb 0506       |    |		.STRTAB	0x0506->0x053e							; "Une_Liste_Champs'BODY"
02bc 0519       |    |		.STRTAB	0x0519->0x0548							; "unelch1.ads"
02bd 0522       | "  |		.STRTAB	0x0522->0x054e							; "Une_Liste_Champs1'SPEC"
02be 0536       | 6  |		.STRTAB	0x0536->0x0559							; "unelch1.adb"
02bf 053f       | ?  |		.STRTAB	0x053f->0x055e							; "Une_Liste_Champs1'BODY"
02c0 0553       | S  |		.STRTAB	0x0553->0x0569							; "unelid.ads"
02c1 055b       | [  |		.STRTAB	0x055b->0x056e							; "Une_Liste_Id'SPEC"
02c2 056a       | j  |		.STRTAB	0x056a->0x0577							; "unelid.adb"
02c3 0572       | r  |		.STRTAB	0x0572->0x057c							; "Une_Liste_Id'BODY"
02c4 0581       |    |		.STRTAB	0x0581->0x0584							; "unelid1.ads"
02c5 058a       |    |		.STRTAB	0x058a->0x058a							; "Une_Liste_Id1'SPEC"
02c6 059a       |    |		.STRTAB	0x059a->0x0593							; "unelid1.adb"
02c7 05a3       |    |		.STRTAB	0x05a3->0x0598							; "Une_Liste_Id1'BODY"
02c8 05b3       |    |		.STRTAB	0x05b3->0x05a1							; "unelid2.ads"
02c9 05bc       |    |		.STRTAB	0x05bc->0x05a7							; "Une_Liste_Id2'SPEC"
02ca 05cc       |    |		.STRTAB	0x05cc->0x05b0							; "unelid2.adb"
02cb 05d5       |    |		.STRTAB	0x05d5->0x05b5							; "Une_Liste_Id2'BODY"
02cc 05e5       |    |		.STRTAB	0x05e5->0x05be							; "uneval.ads"
02cd 05ed       |    |		.STRTAB	0x05ed->0x05c3							; "Une_Valeur'SPEC"
02ce 05fa       |    |		.STRTAB	0x05fa->0x05cb							; "uneval.adb"
02cf 0602       |    |		.STRTAB	0x0602->0x05d0							; "Une_Valeur'BODY"
02d0 060f       |    |		.STRTAB	0x060f->0x05d7							; "uneval1.ads"
02d1 0618       |    |		.STRTAB	0x0618->0x05dd							; "Une_Valeur1'SPEC"
02d2 0626       | &  |		.STRTAB	0x0626->0x05e5							; "uneval1.adb"
02d3 062f       | /  |		.STRTAB	0x062f->0x05ea							; "Une_Valeur1'BODY"
02d4 063d       | =  |		.STRTAB	0x063d->0x05f2							; "uneval2.ads"
02d5 0646       | F  |		.STRTAB	0x0646->0x05f8							; "Une_Valeur2'SPEC"
02d6 0654       | T  |		.STRTAB	0x0654->0x0600							; "uneval2.adb"
02d7 065d       | ]  |		.STRTAB	0x065d->0x0605							; "Une_Valeur2'BODY"
02d8 066b       | k  |		.STRTAB	0x066b->0x060d							; "unaffich.ads"
02d9 0675       | u  |		.STRTAB	0x0675->0x0613							; "Un_Affichage'SPEC"
02da 0684       |    |		.STRTAB	0x0684->0x061c							; "unaffich.adb"
02db 068e       |    |		.STRTAB	0x068e->0x0622							; "Un_Affichage'BODY"
02dc 069d       |    |		.STRTAB	0x069d->0x062a							; "unblocin.ads"
02dd 06a7       |    |		.STRTAB	0x06a7->0x0630							; "Un_Bloc_Instructions'SPEC"
02de 06be       |    |		.STRTAB	0x06be->0x063d							; "unblocin.adb"
02df 06c8       |    |		.STRTAB	0x06c8->0x0643							; "Un_Bloc_Instructions'BODY"
02e0 06df       |    |		.STRTAB	0x06df->0x064f							; "unfact.ads"
02e1 06e7       |    |		.STRTAB	0x06e7->0x0654							; "Un_Facteur'SPEC"
02e2 06f4       |    |		.STRTAB	0x06f4->0x065c							; "unfact.adb"
02e3 06fc       |    |		.STRTAB	0x06fc->0x0661							; "Un_Facteur'BODY"
02e4 0709       |    |		.STRTAB	0x0709->0x0668							; "unidcom.ads"
02e5 0712       |    |		.STRTAB	0x0712->0x066e							; "Un_Id_Compose'SPEC"
02e6 0722       | "  |		.STRTAB	0x0722->0x0677							; "unidcom.adb"
02e7 072b       | +  |		.STRTAB	0x072b->0x067c							; "Un_Id_Compose'BODY"
02e8 073b       | ;  |		.STRTAB	0x073b->0x0685							; "unidcom1.ads"
02e9 0745       | E  |		.STRTAB	0x0745->0x068b							; "Un_Id_Compose1'SPEC"
02ea 0756       | V  |		.STRTAB	0x0756->0x0695							; "unidcom1.adb"
02eb 0760       | `  |		.STRTAB	0x0760->0x069b							; "Un_Id_Compose1'BODY"
02ec 0771       | q  |		.STRTAB	0x0771->0x06a4							; "unidcom2.ads"
02ed 077b       | {  |		.STRTAB	0x077b->0x06aa							; "Un_Id_Compose2'SPEC"
02ee 078c       |    |		.STRTAB	0x078c->0x06b4							; "unidcom2.adb"
02ef 0796       |    |		.STRTAB	0x0796->0x06ba							; "Un_Id_Compose2'BODY"
02f0 07a7       |    |		.STRTAB	0x07a7->0x06c3							; "unnomb.ads"
02f1 07af       |    |		.STRTAB	0x07af->0x06c8							; "Un_Nombre'SPEC"
02f2 07bb       |    |		.STRTAB	0x07bb->0x06cf							; "unnomb.adb"
02f3 07c3       |    |		.STRTAB	0x07c3->0x06d4							; "Un_Nombre'BODY"
02f4 07cf       |    |		.STRTAB	0x07cf->0x06db							; "unnomb1.ads"
02f5 07d8       |    |		.STRTAB	0x07d8->0x06e1							; "Un_Nombre1'SPEC"
02f6 07e5       |    |		.STRTAB	0x07e5->0x06e8							; "unnomb1.adb"
02f7 07ee       |    |		.STRTAB	0x07ee->0x06ee							; "Un_Nombre1'BODY"
02f8 07fb       |    |		.STRTAB	0x07fb->0x06f5							; "unterme.ads"
02f9 0804       |    |		.STRTAB	0x0804->0x06fb							; "Un_Terme'SPEC"
02fa 080f       |    |		.STRTAB	0x080f->0x0701							; "unterme.adb"
02fb 0818       |    |		.STRTAB	0x0818->0x0707							; "Un_Terme'BODY"
02fc 0823       | #  |		.STRTAB	0x0823->0x070d							; "unterme1.ads"
02fd 082d       | -  |		.STRTAB	0x082d->0x0713							; "Un_Terme1'SPEC"
02fe 0839       | 9  |		.STRTAB	0x0839->0x071a							; "unterme1.adb"
02ff 0843       | C  |		.STRTAB	0x0843->0x0720							; "Un_Terme1'BODY"
0300 084f       | O  |		.STRTAB	0x084f->0x0727							; "untest.ads"
0301 0857       | W  |		.STRTAB	0x0857->0x072c							; "Un_Test'SPEC"
0302 0861       | a  |		.STRTAB	0x0861->0x0732							; "untest.adb"
0303 0869       | i  |		.STRTAB	0x0869->0x0737							; "Un_Test'BODY"
0304 0873       | s  |		.STRTAB	0x0873->0x073d							; "untest1.ads"
0305 087c       | |  |		.STRTAB	0x087c->0x0743							; "Un_Test1'SPEC"
0306 0887       |    |		.STRTAB	0x0887->0x0749							; "untest1.adb"
0307 0890       |    |		.STRTAB	0x0890->0x074f							; "Un_Test1'BODY"
0308 089b       |    |		.STRTAB	0x089b->0x0755							; "untyp.ads"
0309 08a2       |    |		.STRTAB	0x08a2->0x075a							; "Un_Type'SPEC"
030a 08ac       |    |		.STRTAB	0x08ac->0x0760							; "untyp.adb"
030b 08b3       |    |		.STRTAB	0x08b3->0x0764							; "Un_Type'BODY"
030c 08bd       |    |		.STRTAB	0x08bd->0x076a							; "untypbas.ads"
030d 08c7       |    |		.STRTAB	0x08c7->0x0770							; "Un_Type_De_Base'SPEC"
030e 08d9       |    |		.STRTAB	0x08d9->0x077a							; "untypbas.adb"
030f 08e3       |    |		.STRTAB	0x08e3->0x0780							; "Un_Type_De_Base'BODY"
0310 08f5       |    |		.STRTAB	0x08f5->0x078a							; "bonovox"
0311 08fa       |    |		.STRTAB	0x08fa->0x078e							; "lsi02"
0312 08fd       |    |		.STRTAB	0x08fd->0x0790							; "belladone"
0313 0904       |    |		.STREND 0x0904->0x0795
0314 4265 6c6c  |Bell|		.STRTAB_STRINGS
0795 0000 0000  |    |		.XXX[0x3]
0797 0000       |    |
0798 ; --------------------------------------------------------------------------------------
0798 ; Debug Table
0798 ; --------------------------------------------------------------------------------------
0798 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xdb62,0x0000,0x0001,0x0003
079e 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
07a2 001b 07aa  |    |		.DBG4T	0x001b,0x07aa,0x8001,0x0000
07a6 0253 07fd  | S  |		.DBG4T	0x0253,0x07fd,0x0001,0x0000
07aa ; --------------------------------------------------------------------------------------
07aa ; Debug chain
07aa ; --------------------------------------------------------------------------------------
07aa 0001 0050  |   P|		.DBGLEN	0x0001,0x0050
07ac 001b 001d  |    |		.DBGLNO	0x001b,0x001d,0x0024,0x002b,0x0032,0x0039,0x0040,0x0047,0x004e,0x0055,0x005c,0x0063,0x006a,0x0071,0x0078,0x007f,0x0086,0x008d,0x0094,0x009b,0x00a2,0x00a9,0x00b0,0x00b7,0x00be,0x00c5,0x00cc,0x00d3,0x00da,0x00e1,0x00e8,0x00ef,0x00f6,0x00fd,0x0104,0x010b,0x0112,0x0119,0x0120,0x0127,0x012e,0x0135,0x013c,0x0143,0x014a,0x0151,0x0158,0x015f,0x0166,0x016d,0x0174,0x017b,0x0182,0x0189,0x0190,0x0197,0x019e,0x01a5,0x01ac,0x01b3,0x01ba,0x01c1,0x01c8,0x01cf,0x01d6,0x01dd,0x01e4,0x01eb,0x01f2,0x01f9,0x0200,0x0207,0x020e,0x0215,0x021c,0x0223,0x022a,0x0231,0x0238,0x023f,0x0246
07fd ; --------------------------------------------------------------------------------------
07fd ; Debug chain
07fd ; --------------------------------------------------------------------------------------
07fd 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07ff 0253       | S  |		.DBGLNO	0x0253