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

⟦b89f1d9f7⟧

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

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 03a0       |    |		.CONST	0x03a0								; 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 007d       | }  |		.CONST	0x007d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 480e       |H   |		Short_Literal	0xe
000d 029f 0083  |    |		Declare_Subprogram	INIT_0080,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0012 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0014 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0016 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0018 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
001a 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
001c 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
001e 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0020 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0022 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0024 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0026 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0028 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
002a 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
002c 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
002e 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0030 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0032 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0034 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0036 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0038 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
003a 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
003c 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
003e 00e2       |    |		Load_Encached	Integer_Cache
003f 00e2       |    |		Load_Encached	Integer_Cache
0040 00e2       |    |		Load_Encached	Integer_Cache
0041 e20d       |    |		Load	0x1,0xd
0042 e002       |    |		Load	0x0,0x2
0043 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0044 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call
0046 4805       |H   |		Short_Literal	0x5
0047 032e       | .  |		Declare_Type	Record,Defined,Visible
0048 00bf       |    |		Action	Accept_Activation
0049 00e4       |    |		Load_Encached	Positive_Cache
004a 0606       |    |		Execute_Immediate	Set_Value_Unchecked,0x6
004b 029b 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Unelaborated
004d 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
007c 00c7       |    |		Action	Elaborate_Subprogram
007d			BODY_0008:
007d 00bc       |    |		Action	Signal_Activated
007e 00bb       |    |		Action	Signal_Completion
007f 0000       |    |		.XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 4607       |F   |		Jump_Case	0x8
0084 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0085 7807       |x   |		Jump	0x8d								; case 0x1
0086 780a       |x   |		Jump	0x91								; case 0x2
0087 780e       |x   |		Jump	0x96								; case 0x3
0088 7811       |x   |		Jump	0x9a								; case 0x4
0089 7812       |x   |		Jump	0x9c								; case 0x5
008a 7813       |x   |		Jump	0x9e								; case 0x6
008b 7816       |x   |		Jump	0xa2								; case 0x7
008c 4302       |C   |		.XXX[0x1]
008d 00da       |    |		Load_Top	At_Offset_2
008e 0091 02d8  |    |		Action	Push_String_Extended_Indexed,0x2d8				; "REGISTRATION"
0090 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0091 00db       |    |		Load_Top	At_Offset_3
0092 00db       |    |		Load_Top	At_Offset_3
0093 00e0       |    |		Load_Encached	Standard_Cache
0094 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0095 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0096 00da       |    |		Load_Top	At_Offset_2
0097 00e0       |    |		Load_Encached	Standard_Cache
0098 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0099 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
009a 00db       |    |		Load_Top	At_Offset_3
009b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009c 00db       |    |		Load_Top	At_Offset_3
009d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009e e20d       |    |		Load	0x1,0xd
009f 00dc       |    |		Load_Top	At_Offset_4
00a0 0267       | g  |		Execute	Discrete,Predecessor
00a1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a2 e20d       |    |		Load	0x1,0xd
00a3 00dc       |    |		Load_Top	At_Offset_4
00a4 0268       | h  |		Execute	Discrete,Successor
00a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac 00ea       |    |		Load_Encached	Null_String_Cache
00ad e002       |    |		Load	0x0,0x2
00ae 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00af 4800       |H   |		Short_Literal	0x0
00b0 4800       |H   |		Short_Literal	0x0
00b1 4800       |H   |		Short_Literal	0x0
00b2 4800       |H   |		Short_Literal	0x0
00b3 8211       |    |		Call	0x1,0x11
00b4 00d1       |    |		Pop_Control	Pop_Count_1
00b5 0092 02e7  |    |		Action	Push_String_Extended,0x2e7					; "construction regist"
00b7 e003       |    |		Load	0x0,0x3
00b8 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ba 0000 0000  |    |		.BLANK	0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00db       |    |		Load_Top	At_Offset_3
00c4 00db       |    |		Load_Top	At_Offset_3
00c5 4804       |H   |		Short_Literal	0x4
00c6 e5fe       |    |		Load	0x2,-0x2
00c7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c8 e5fe       |    |		Load	0x2,-0x2
00c9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ca 4800       |H   |		Short_Literal	0x0
00cb 8211       |    |		Call	0x1,0x11
00cc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00db       |    |		Load_Top	At_Offset_3
00d4 00db       |    |		Load_Top	At_Offset_3
00d5 4803       |H   |		Short_Literal	0x3
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00d8 e5fe       |    |		Load	0x2,-0x2
00d9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00da 4800       |H   |		Short_Literal	0x0
00db 8211       |    |		Call	0x1,0x11
00dc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00dd 0000 0000  |    |		.XXX[0x3]
00df 0000       |    |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 e5fa       |    |		Load	0x2,-0x6
00e5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e6 00db       |    |		Load_Top	At_Offset_3
00e7 e5fa       |    |		Load	0x2,-0x6
00e8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e9 e5fd       |    |		Load	0x2,-0x3
00ea e5fa       |    |		Load	0x2,-0x6
00eb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00ec e5fc       |    |		Load	0x2,-0x4
00ed e5fa       |    |		Load	0x2,-0x6
00ee 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00ef e5fb       |    |		Load	0x2,-0x5
00f0 e5fa       |    |		Load	0x2,-0x6
00f1 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00f2 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00f3 0000 0000  |    |		.BLANK	0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4825       |H%  |		Short_Literal	0x25
00fc 4825       |H%  |		Short_Literal	0x25
00fd 4825       |H%  |		Short_Literal	0x25
00fe 4825       |H%  |		Short_Literal	0x25
00ff 4825       |H%  |		Short_Literal	0x25
0100 e5ff       |    |		Load	0x2,-0x1
0101 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0102 00e0       |    |		Load_Encached	Standard_Cache
0103 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0104 01cb       |    |		Execute	Vector,Append
0105 e5ff       |    |		Load	0x2,-0x1
0106 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0107 00e0       |    |		Load_Encached	Standard_Cache
0108 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0109 01cc       |    |		Execute	Vector,Catenate
010a 01cb       |    |		Execute	Vector,Append
010b e5ff       |    |		Load	0x2,-0x1
010c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
010d 00e0       |    |		Load_Encached	Standard_Cache
010e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
010f 01cc       |    |		Execute	Vector,Catenate
0110 01cb       |    |		Execute	Vector,Append
0111 e5ff       |    |		Load	0x2,-0x1
0112 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0113 e20d       |    |		Load	0x1,0xd
0114 011c       |    |		Execute	Any,Convert_Unchecked
0115 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0116 01cc       |    |		Execute	Vector,Catenate
0117 01cb       |    |		Execute	Vector,Append
0118 e5ff       |    |		Load	0x2,-0x1
0119 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
011a e002       |    |		Load	0x0,0x2
011b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
011c 01cc       |    |		Execute	Vector,Catenate
011d 01cb       |    |		Execute	Vector,Append
011e e004       |    |		Load	0x0,0x4
011f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0120 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 0092 02e8  |    |		Action	Push_String_Extended,0x2e8					; "le destinataire est : "
012d 00db       |    |		Load_Top	At_Offset_3
012e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012f 00e0       |    |		Load_Encached	Standard_Cache
0130 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0131 01cc       |    |		Execute	Vector,Catenate
0132 e003       |    |		Load	0x0,0x3
0133 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0134 0092 02e9  |    |		Action	Push_String_Extended,0x2e9					; "l'expediteur est : "
0136 00db       |    |		Load_Top	At_Offset_3
0137 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0138 00e0       |    |		Load_Encached	Standard_Cache
0139 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
013a 01cc       |    |		Execute	Vector,Catenate
013b e003       |    |		Load	0x0,0x3
013c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
013d 0092 02ea  |    |		Action	Push_String_Extended,0x2ea					; "le numero du message est : "
013f 00db       |    |		Load_Top	At_Offset_3
0140 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0141 00e0       |    |		Load_Encached	Standard_Cache
0142 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0143 01cc       |    |		Execute	Vector,Catenate
0144 e003       |    |		Load	0x0,0x3
0145 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0146 0092 02eb  |    |		Action	Push_String_Extended,0x2eb					; "le type du message est : "
0148 00db       |    |		Load_Top	At_Offset_3
0149 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
014a e20d       |    |		Load	0x1,0xd
014b 011c       |    |		Execute	Any,Convert_Unchecked
014c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
014d 01cc       |    |		Execute	Vector,Catenate
014e e003       |    |		Load	0x0,0x3
014f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0150 0092 02ec  |    |		Action	Push_String_Extended,0x2ec					; "la donnee du message est : "
0152 00db       |    |		Load_Top	At_Offset_3
0153 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0154 e002       |    |		Load	0x0,0x2
0155 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0156 01cc       |    |		Execute	Vector,Catenate
0157 e003       |    |		Load	0x0,0x3
0158 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0159 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015a 0000 0000  |    |		.BLANK	0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016f       | o  |		.CONST	0x016f								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0008       |    |		.CONST	0x0008								; Number of locals
0163			INIT_0160:
0163 e226       | &  |		Load	0x1,0x26
0164 0a01       |    |		Execute_Immediate	Plus,0x1
0165 00e4       |    |		Load_Encached	Positive_Cache
0166 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0167 e002       |    |		Load	0x0,0x2
0168 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0169 03bd       |    |		Declare_Variable	Access,Duplicate
016a 03bd       |    |		Declare_Variable	Access,Duplicate
016b 03bd       |    |		Declare_Variable	Access,Duplicate
016c 03bd       |    |		Declare_Variable	Access,Duplicate
016d e002       |    |		Load	0x0,0x2
016e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
016f			BODY_0160:
016f e5ff       |    |		Load	0x2,-0x1
0170 e004       |    |		Load	0x0,0x4
0171 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0172 e002       |    |		Load	0x0,0x2
0173 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0174 0039       | 9  |		Store_Top	Access,At_Offset_1
0175 e403       |    |		Load	0x2,0x3
0176 e402       |    |		Load	0x2,0x2
0177 4825       |H%  |		Short_Literal	0x25
0178 00db       |    |		Load_Top	At_Offset_3
0179 8227       | '  |		Call	0x1,0x27
017a c402       |    |		Store	0x2,0x2
017b c403       |    |		Store	0x2,0x3
017c e403       |    |		Load	0x2,0x3
017d e002       |    |		Load	0x0,0x2
017e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
017f 00e2       |    |		Load_Encached	Integer_Cache
0180 00e0       |    |		Load_Encached	Standard_Cache
0181 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0182 e5fe       |    |		Load	0x2,-0x2
0183 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0184 e404       |    |		Load	0x2,0x4
0185 e402       |    |		Load	0x2,0x2
0186 4825       |H%  |		Short_Literal	0x25
0187 00db       |    |		Load_Top	At_Offset_3
0188 8227       | '  |		Call	0x1,0x27
0189 c402       |    |		Store	0x2,0x2
018a c404       |    |		Store	0x2,0x4
018b e404       |    |		Load	0x2,0x4
018c e002       |    |		Load	0x0,0x2
018d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
018e 00e2       |    |		Load_Encached	Integer_Cache
018f 00e0       |    |		Load_Encached	Standard_Cache
0190 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0191 e5fe       |    |		Load	0x2,-0x2
0192 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0193 00db       |    |		Load_Top	At_Offset_3
0194 e402       |    |		Load	0x2,0x2
0195 4825       |H%  |		Short_Literal	0x25
0196 00db       |    |		Load_Top	At_Offset_3
0197 8227       | '  |		Call	0x1,0x27
0198 c402       |    |		Store	0x2,0x2
0199 c405       |    |		Store	0x2,0x5
019a 00db       |    |		Load_Top	At_Offset_3
019b e002       |    |		Load	0x0,0x2
019c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
019d 00e2       |    |		Load_Encached	Integer_Cache
019e 00e0       |    |		Load_Encached	Standard_Cache
019f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01a0 e5fe       |    |		Load	0x2,-0x2
01a1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01a2 00da       |    |		Load_Top	At_Offset_2
01a3 e402       |    |		Load	0x2,0x2
01a4 4825       |H%  |		Short_Literal	0x25
01a5 00db       |    |		Load_Top	At_Offset_3
01a6 8227       | '  |		Call	0x1,0x27
01a7 c402       |    |		Store	0x2,0x2
01a8 003b       | ;  |		Store_Top	Access,At_Offset_3
01a9 00da       |    |		Load_Top	At_Offset_2
01aa e002       |    |		Load	0x0,0x2
01ab 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01ac e20d       |    |		Load	0x1,0xd
01ad 1c02       |    |		Execute_Immediate	Run_Utility,0x2
01ae e5fe       |    |		Load	0x2,-0x2
01af 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01b0 00d9       |    |		Load_Top	At_Offset_1
01b1 e402       |    |		Load	0x2,0x2
01b2 4825       |H%  |		Short_Literal	0x25
01b3 00db       |    |		Load_Top	At_Offset_3
01b4 8227       | '  |		Call	0x1,0x27
01b5 c402       |    |		Store	0x2,0x2
01b6 003a       | :  |		Store_Top	Access,At_Offset_2
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 e5fe       |    |		Load	0x2,-0x2
01b9 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01bb 0000 0000  |    |		.BLANK	0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 e5fd       |    |		Load	0x2,-0x3
01c4 e5fe       |    |		Load	0x2,-0x2
01c5 e5ff       |    |		Load	0x2,-0x1
01c6 8212       |    |		Call	0x1,0x12
01c7 8005       |    |		Call	0x0,0x5
01c8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01c9 0000 0000  |    |		.BLANK	0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 e5fc       |    |		Load	0x2,-0x4
01d4 e5fd       |    |		Load	0x2,-0x3
01d5 e5fe       |    |		Load	0x2,-0x2
01d6 e5ff       |    |		Load	0x2,-0x1
01d7 8212       |    |		Call	0x1,0x12
01d8 8006       |    |		Call	0x0,0x6
01d9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01da 0000 0000  |    |		.BLANK	0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ed       |    |		.CONST	0x01ed								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0003       |    |		.CONST	0x0003								; Number of locals
01e3			INIT_01e0:
01e3 4801       |H   |		Short_Literal	0x1
01e4 4900       |I   |		Short_Literal	0x100
01e5 e007       |    |		Load	0x0,0x7
01e6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e7 035b       | [  |		Declare_Type	Array,Constrained
01e8 0337       | 7  |		Declare_Variable	Array
01e9 e225       | %  |		Load	0x1,0x25
01ea 0322       | "  |		Declare_Variable	Record
01eb 00d8       |    |		Load_Top	At_Offset_0
01ec 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ed			BODY_01e0:
01ed 00d9       |    |		Load_Top	At_Offset_1
01ee e5ff       |    |		Load	0x2,-0x1
01ef 8008       |    |		Call	0x0,0x8
01f0 00d1       |    |		Pop_Control	Pop_Count_1
01f1 00d8       |    |		Load_Top	At_Offset_0
01f2 00da       |    |		Load_Top	At_Offset_2
01f3 8214       |    |		Call	0x1,0x14
01f4 00d1       |    |		Pop_Control	Pop_Count_1
01f5 e5fe       |    |		Load	0x2,-0x2
01f6 00d9       |    |		Load_Top	At_Offset_1
01f7 8224       | $  |		Call	0x1,0x24
01f8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f9 0000 0000  |    |		.BLANK	0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0209       |    |		.CONST	0x0209								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0002       |    |		.CONST	0x0002								; Number of locals
0203			INIT_0200:
0203 4801       |H   |		Short_Literal	0x1
0204 4900       |I   |		Short_Literal	0x100
0205 e007       |    |		Load	0x0,0x7
0206 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0207 035b       | [  |		Declare_Type	Array,Constrained
0208 0337       | 7  |		Declare_Variable	Array
0209			BODY_0200:
0209 e5fc       |    |		Load	0x2,-0x4
020a e5fd       |    |		Load	0x2,-0x3
020b 00da       |    |		Load_Top	At_Offset_2
020c e5ff       |    |		Load	0x2,-0x1
020d 8009       |    |		Call	0x0,0x9
020e 00d3       |    |		Pop_Control	Pop_Count_3
020f e5fe       |    |		Load	0x2,-0x2
0210 00d9       |    |		Load_Top	At_Offset_1
0211 8214       |    |		Call	0x1,0x14
0212 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0213 0000 0000  |    |		.BLANK	0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021e 0000 0000  |    |		.XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2
0224 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0225 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00da       |    |		Load_Top	At_Offset_2
022c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
022d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 00da       |    |		Load_Top	At_Offset_2
0234 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0235 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0236 0000 0000  |    |		.XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 00da       |    |		Load_Top	At_Offset_2
023c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
023d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023e 0000 0000  |    |		.XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 e5fe       |    |		Load	0x2,-0x2
0245 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0246 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0247 0000       |    |		.XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00da       |    |		Load_Top	At_Offset_2
024c e5fe       |    |		Load	0x2,-0x2
024d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
024e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
024f 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
0254 e5fe       |    |		Load	0x2,-0x2
0255 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0256 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0257 0000       |    |		.XXX[0x1]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
025d 0a01       |    |		Execute_Immediate	Plus,0x1
025e 00db       |    |		Load_Top	At_Offset_3
025f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0260 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0261 0000 0000  |    |		.BLANK	0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c e5fe       |    |		Load	0x2,-0x2
026d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
026e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
026f 0000       |    |		.XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 00da       |    |		Load_Top	At_Offset_2
0274 e5fe       |    |		Load	0x2,-0x2
0275 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0276 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0277 0000       |    |		.XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 00da       |    |		Load_Top	At_Offset_2
027c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027d e5fe       |    |		Load	0x2,-0x2
027e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
027f 00da       |    |		Load_Top	At_Offset_2
0280 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0281 e5fe       |    |		Load	0x2,-0x2
0282 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0283 00da       |    |		Load_Top	At_Offset_2
0284 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0285 e5fe       |    |		Load	0x2,-0x2
0286 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0287 00da       |    |		Load_Top	At_Offset_2
0288 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0289 e5fe       |    |		Load	0x2,-0x2
028a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
028b 00db       |    |		Load_Top	At_Offset_3
028c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
028d 00db       |    |		Load_Top	At_Offset_3
028e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
028f e002       |    |		Load	0x0,0x2
0290 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0291 e5fe       |    |		Load	0x2,-0x2
0292 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0293 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a0       |    |		.CONST	0x02a0								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0003       |    |		.CONST	0x0003								; Number of locals
029b			INIT_0298:
029b 00e4       |    |		Load_Encached	Positive_Cache
029c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
029d e5fd       |    |		Load	0x2,-0x3
029e 00e4       |    |		Load_Encached	Positive_Cache
029f 03f1       |    |		Declare_Variable	Discrete,With_Value
02a0			BODY_0298:
02a0 00cf       |    |		Action	Mark_Auxiliary
02a1 780d       |x   |		Jump	0x2af
02a2 e5fc       |    |		Load	0x2,-0x4
02a3 e5fd       |    |		Load	0x2,-0x3
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 e5ff       |    |		Load	0x2,-0x1
02a6 e002       |    |		Load	0x0,0x2
02a7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02a8 e002       |    |		Load	0x0,0x2
02a9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02aa c5fc       |    |		Store	0x2,-0x4
02ab e5fd       |    |		Load	0x2,-0x3
02ac 0a01       |    |		Execute_Immediate	Plus,0x1
02ad c5fd       |    |		Store	0x2,-0x3
02ae 00c9       |    |		Action	Pop_Auxiliary_Loop
02af e5fd       |    |		Load	0x2,-0x3
02b0 e5ff       |    |		Load	0x2,-0x1
02b1 e002       |    |		Load	0x0,0x2
02b2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02b3 e5fe       |    |		Load	0x2,-0x2
02b4 027e       | ~  |		Execute	Discrete,Not_Equal
02b5 77ec       |w   |		Jump_Nonzero	0x2a2
02b6 00ce       |    |		Action	Pop_Auxiliary
02b7 e5fd       |    |		Load	0x2,-0x3
02b8 0a01       |    |		Execute_Immediate	Plus,0x1
02b9 c5fd       |    |		Store	0x2,-0x3
02ba 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02bb 0000 0000  |    |		.BLANK	0000[0x5]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 4601       |F   |		Jump_Case	0x2
02c4 7801       |x   |		Jump	0x2c6								; case 0x0
02c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02c6 4800       |H   |		Short_Literal	0x0
02c7 00db       |    |		Load_Top	At_Offset_3
02c8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c9 4800       |H   |		Short_Literal	0x0
02ca 00db       |    |		Load_Top	At_Offset_3
02cb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02cc 4800       |H   |		Short_Literal	0x0
02cd 00db       |    |		Load_Top	At_Offset_3
02ce 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02cf 4800       |H   |		Short_Literal	0x0
02d0 00db       |    |		Load_Top	At_Offset_3
02d1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02d2 00ea       |    |		Load_Encached	Null_String_Cache
02d3 e002       |    |		Load	0x0,0x2
02d4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02d5 00db       |    |		Load_Top	At_Offset_3
02d6 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02d7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02d8 ; --------------------------------------------------------------------------------------
02d8 ; STRING TABLE
02d8 ; --------------------------------------------------------------------------------------
02d8 002c       | ,  |		.STRTAB	0x002c->0x02ee							; "REGISTRATION"
02d9 0036       | 6  |		.STRTAB	0x0036->0x02f4							; "UNREGISTRATION"
02da 0042       | B  |		.STRTAB	0x0042->0x02fb							; "ANSWER_UNREGISTRATION"
02db 0055       | U  |		.STRTAB	0x0055->0x0305							; "REQUEST"
02dc 005a       | Z  |		.STRTAB	0x005a->0x0309							; "PUBLICATION"
02dd 0063       | c  |		.STRTAB	0x0063->0x030e							; "YOUR_ANSWER"
02de 006c       | l  |		.STRTAB	0x006c->0x0314							; "SERVICE_RESULT"
02df 0078       | x  |		.STRTAB	0x0078->0x031b							; "SUBSCRIPTION"
02e0 0082       |    |		.STRTAB	0x0082->0x0321							; "UNSUBSCRIPTION"
02e1 008e       |    |		.STRTAB	0x008e->0x0328							; "FILTRATION"
02e2 0096       |    |		.STRTAB	0x0096->0x032d							; "UNFILTRATION"
02e3 00a0       |    |		.STRTAB	0x00a0->0x0333							; "ANSWER_REGISTRATION"
02e4 00b1       |    |		.STRTAB	0x00b1->0x033c							; "SERVICE_NOT_AVAILABLE"
02e5 00c4       |    |		.STRTAB	0x00c4->0x0347							; "SERVICE_ADDED"
02e6 00cf       |    |		.STRTAB	0x00cf->0x034d							; "MESSAGE_FOR_SERVER"
02e7 00df       |    |		.STRTAB	0x00df->0x0356							; "construction regist"
02e8 00f0       |    |		.STRTAB	0x00f0->0x0360							; "le destinataire est : "
02e9 0104       |    |		.STRTAB	0x0104->0x036b							; "l'expediteur est : "
02ea 0115       |    |		.STRTAB	0x0115->0x0374							; "le numero du message est : "
02eb 012e       | .  |		.STRTAB	0x012e->0x0382							; "le type du message est : "
02ec 0145       | E  |		.STRTAB	0x0145->0x038e							; "la donnee du message est : "
02ed 015e       | ^  |		.STREND 0x015e->0x039c
02ee 5245 4749  |REGI|		.STRTAB_STRINGS
039c 0000 0000  |    |		.BLANK	0000[0x4]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug Table
03a0 ; --------------------------------------------------------------------------------------
03a0 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x6047,0x0000,0x0001,0x001c
03a6 000b 0416  |    |		.DBG4T	0x000b,0x0416,0x8000,0x8000
03aa 0049 044a  | I J|		.DBG4T	0x0049,0x044a,0x8000,0x0000
03ae 0083 0000  |    |		.DBG4T	0x0083,0x0000,0x0005,0x0000
03b2 00ab 0466  |   f|		.DBG4T	0x00ab,0x0466,0x0001,0x0000
03b6 00c3 046a  |   j|		.DBG4T	0x00c3,0x046a,0x0001,0x0000
03ba 00d3 046d  |   m|		.DBG4T	0x00d3,0x046d,0x0001,0x0000
03be 00e3 0470  |   p|		.DBG4T	0x00e3,0x0470,0x0001,0x0000
03c2 00fb 0477  |   w|		.DBG4T	0x00fb,0x0477,0x0002,0x0000
03c6 012b 047a  | + z|		.DBG4T	0x012b,0x047a,0x0001,0x0000
03ca 0163 0481  | c  |		.DBG4T	0x0163,0x0481,0x0001,0x0000
03ce 01c3 0491  |    |		.DBG4T	0x01c3,0x0491,0x0001,0x0000
03d2 01d3 0494  |    |		.DBG4T	0x01d3,0x0494,0x0001,0x0000
03d6 01e3 0497  |    |		.DBG4T	0x01e3,0x0497,0x0001,0x0000
03da 0203 049e  |    |		.DBG4T	0x0203,0x049e,0x0001,0x0000
03de 021b 04a3  |    |		.DBG4T	0x021b,0x04a3,0x0002,0x0000
03e2 0223 04a6  | #  |		.DBG4T	0x0223,0x04a6,0x0002,0x0000
03e6 022b 04a9  | +  |		.DBG4T	0x022b,0x04a9,0x0002,0x0000
03ea 0233 04ac  | 3  |		.DBG4T	0x0233,0x04ac,0x0002,0x0000
03ee 023b 04af  | ;  |		.DBG4T	0x023b,0x04af,0x0002,0x0000
03f2 0243 04b2  | C  |		.DBG4T	0x0243,0x04b2,0x0001,0x0000
03f6 024b 04b5  | K  |		.DBG4T	0x024b,0x04b5,0x0001,0x0000
03fa 0253 04b8  | S  |		.DBG4T	0x0253,0x04b8,0x0001,0x0000
03fe 025b 04bb  | [  |		.DBG4T	0x025b,0x04bb,0x0001,0x0000
0402 026b 04be  | k  |		.DBG4T	0x026b,0x04be,0x0001,0x0000
0406 0273 04c1  | s  |		.DBG4T	0x0273,0x04c1,0x0001,0x0000
040a 027b 04c4  | {  |		.DBG4T	0x027b,0x04c4,0x0001,0x0000
040e 029b 04cb  |    |		.DBG4T	0x029b,0x04cb,0x0001,0x4000
0412 02c3 0000  |    |		.DBG4T	0x02c3,0x0000,0x0005,0x0000
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug chain
0416 ; --------------------------------------------------------------------------------------
0416 0019 0000  |    |		.DBGLEN	0x0019,0x0000
0418 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e
0431 0002 0003  |    |		.XXX[0x19]
0433 0004 0005  |    |
0435 0006 0007  |    |
0437 0008 0009  |    |
0439 000a 000b  |    |
043b 000c 000d  |    |
043d 000e 000f  |    |
043f 0010 0011  |    |
0441 0012 0013  |    |
0443 0014 0015  |    |
0445 0016 0017  |    |
0447 0018 0019  |    |
0449 001a       |    |
044a ; --------------------------------------------------------------------------------------
044a ; Debug chain
044a ; --------------------------------------------------------------------------------------
044a 001a 0000  |    |		.DBGLEN	0x001a,0x0000
044c 0049 004b  | I K|		.DBGLNO	0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug chain
0466 ; --------------------------------------------------------------------------------------
0466 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0468 00ab 00b5  |    |		.DBGLNO	0x00ab,0x00b5
046a ; --------------------------------------------------------------------------------------
046a ; Debug chain
046a ; --------------------------------------------------------------------------------------
046a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
046c 00c3       |    |		.DBGLNO	0x00c3
046d ; --------------------------------------------------------------------------------------
046d ; Debug chain
046d ; --------------------------------------------------------------------------------------
046d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
046f 00d3       |    |		.DBGLNO	0x00d3
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug chain
0470 ; --------------------------------------------------------------------------------------
0470 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0472 00e3 00e6  |    |		.DBGLNO	0x00e3,0x00e6,0x00e9,0x00ec,0x00ef
0477 ; --------------------------------------------------------------------------------------
0477 ; Debug chain
0477 ; --------------------------------------------------------------------------------------
0477 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0479 00fb       |    |		.DBGLNO	0x00fb
047a ; --------------------------------------------------------------------------------------
047a ; Debug chain
047a ; --------------------------------------------------------------------------------------
047a 0000 0005  |    |		.DBGLEN	0x0000,0x0005
047c 012b 0134  | + 4|		.DBGLNO	0x012b,0x0134,0x013d,0x0146,0x0150
0481 ; --------------------------------------------------------------------------------------
0481 ; Debug chain
0481 ; --------------------------------------------------------------------------------------
0481 0003 000b  |    |		.DBGLEN	0x0003,0x000b
0483 0163 0167  | c g|		.DBGLNO	0x0163,0x0167,0x016d,0x016f,0x0175,0x017c,0x0184,0x018b,0x0193,0x019a,0x01a2,0x01a9,0x01b0,0x01b7
0491 ; --------------------------------------------------------------------------------------
0491 ; Debug chain
0491 ; --------------------------------------------------------------------------------------
0491 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0493 01c3       |    |		.DBGLNO	0x01c3
0494 ; --------------------------------------------------------------------------------------
0494 ; Debug chain
0494 ; --------------------------------------------------------------------------------------
0494 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0496 01d3       |    |		.DBGLNO	0x01d3
0497 ; --------------------------------------------------------------------------------------
0497 ; Debug chain
0497 ; --------------------------------------------------------------------------------------
0497 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0499 01e3 01e9  |    |		.DBGLNO	0x01e3,0x01e9,0x01ed,0x01f1,0x01f5
049e ; --------------------------------------------------------------------------------------
049e ; Debug chain
049e ; --------------------------------------------------------------------------------------
049e 0001 0002  |    |		.DBGLEN	0x0001,0x0002
04a0 0203 0209  |    |		.DBGLNO	0x0203,0x0209,0x020f
04a3 ; --------------------------------------------------------------------------------------
04a3 ; Debug chain
04a3 ; --------------------------------------------------------------------------------------
04a3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04a5 021b       |    |		.DBGLNO	0x021b
04a6 ; --------------------------------------------------------------------------------------
04a6 ; Debug chain
04a6 ; --------------------------------------------------------------------------------------
04a6 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04a8 0223       | #  |		.DBGLNO	0x0223
04a9 ; --------------------------------------------------------------------------------------
04a9 ; Debug chain
04a9 ; --------------------------------------------------------------------------------------
04a9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04ab 022b       | +  |		.DBGLNO	0x022b
04ac ; --------------------------------------------------------------------------------------
04ac ; Debug chain
04ac ; --------------------------------------------------------------------------------------
04ac 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04ae 0233       | 3  |		.DBGLNO	0x0233
04af ; --------------------------------------------------------------------------------------
04af ; Debug chain
04af ; --------------------------------------------------------------------------------------
04af 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04b1 023b       | ;  |		.DBGLNO	0x023b
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug chain
04b2 ; --------------------------------------------------------------------------------------
04b2 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04b4 0243       | C  |		.DBGLNO	0x0243
04b5 ; --------------------------------------------------------------------------------------
04b5 ; Debug chain
04b5 ; --------------------------------------------------------------------------------------
04b5 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04b7 024b       | K  |		.DBGLNO	0x024b
04b8 ; --------------------------------------------------------------------------------------
04b8 ; Debug chain
04b8 ; --------------------------------------------------------------------------------------
04b8 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04ba 0253       | S  |		.DBGLNO	0x0253
04bb ; --------------------------------------------------------------------------------------
04bb ; Debug chain
04bb ; --------------------------------------------------------------------------------------
04bb 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04bd 025b       | [  |		.DBGLNO	0x025b
04be ; --------------------------------------------------------------------------------------
04be ; Debug chain
04be ; --------------------------------------------------------------------------------------
04be 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04c0 026b       | k  |		.DBGLNO	0x026b
04c1 ; --------------------------------------------------------------------------------------
04c1 ; Debug chain
04c1 ; --------------------------------------------------------------------------------------
04c1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04c3 0273       | s  |		.DBGLNO	0x0273
04c4 ; --------------------------------------------------------------------------------------
04c4 ; Debug chain
04c4 ; --------------------------------------------------------------------------------------
04c4 0000 0005  |    |		.DBGLEN	0x0000,0x0005
04c6 027b 027f  | {  |		.DBGLNO	0x027b,0x027f,0x0283,0x0287,0x028b
04cb ; --------------------------------------------------------------------------------------
04cb ; Debug chain
04cb ; --------------------------------------------------------------------------------------
04cb 0002 0004  |    |		.DBGLEN	0x0002,0x0004
04cd 029b 029d  |    |		.DBGLNO	0x029b,0x029d,0x02a2,0x02ab,0x02af,0x02b7
04d3 0002 0003  |    |		.XXX[0x4]
04d5 0001 0004  |    |
04d7 0000 0000  |    |		.BLANK	0000[0x129]