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

⟦9b86efc5b⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_2140b1

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01e8       |    |		.CONST	0x01e8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0050       | P  |		.CONST	0x0050								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e e002       |    |		Load	0x0,0x2
000f 0337       | 7  |		Declare_Variable	Array
0010 4801       |H   |		Short_Literal	0x1
0011 480d       |H   |		Short_Literal	0xd
0012 e003       |    |		Load	0x0,0x3
0013 035b       | [  |		Declare_Type	Array,Constrained
0014 0337       | 7  |		Declare_Variable	Array
0015 483e       |H>  |		Short_Literal	0x3e
0016 4801       |H   |		Short_Literal	0x1
0017 00da       |    |		Load_Top	At_Offset_2
0018 01d6       |    |		Execute	Vector,Field_Write
0019 4813       |H   |		Short_Literal	0x13
001a 4802       |H   |		Short_Literal	0x2
001b 00da       |    |		Load_Top	At_Offset_2
001c 01d6       |    |		Execute	Vector,Field_Write
001d 4842       |HB  |		Short_Literal	0x42
001e 4803       |H   |		Short_Literal	0x3
001f 00da       |    |		Load_Top	At_Offset_2
0020 01d6       |    |		Execute	Vector,Field_Write
0021 4835       |H5  |		Short_Literal	0x35
0022 4804       |H   |		Short_Literal	0x4
0023 00da       |    |		Load_Top	At_Offset_2
0024 01d6       |    |		Execute	Vector,Field_Write
0025 4837       |H7  |		Short_Literal	0x37
0026 4805       |H   |		Short_Literal	0x5
0027 00da       |    |		Load_Top	At_Offset_2
0028 01d6       |    |		Execute	Vector,Field_Write
0029 4838       |H8  |		Short_Literal	0x38
002a 4806       |H   |		Short_Literal	0x6
002b 00da       |    |		Load_Top	At_Offset_2
002c 01d6       |    |		Execute	Vector,Field_Write
002d 4829       |H)  |		Short_Literal	0x29
002e 4807       |H   |		Short_Literal	0x7
002f 00da       |    |		Load_Top	At_Offset_2
0030 01d6       |    |		Execute	Vector,Field_Write
0031 482a       |H*  |		Short_Literal	0x2a
0032 4808       |H   |		Short_Literal	0x8
0033 00da       |    |		Load_Top	At_Offset_2
0034 01d6       |    |		Execute	Vector,Field_Write
0035 482b       |H+  |		Short_Literal	0x2b
0036 4809       |H   |		Short_Literal	0x9
0037 00da       |    |		Load_Top	At_Offset_2
0038 01d6       |    |		Execute	Vector,Field_Write
0039 4827       |H'  |		Short_Literal	0x27
003a 480a       |H   |		Short_Literal	0xa
003b 00da       |    |		Load_Top	At_Offset_2
003c 01d6       |    |		Execute	Vector,Field_Write
003d 4825       |H%  |		Short_Literal	0x25
003e 480b       |H   |		Short_Literal	0xb
003f 00da       |    |		Load_Top	At_Offset_2
0040 01d6       |    |		Execute	Vector,Field_Write
0041 4839       |H9  |		Short_Literal	0x39
0042 480c       |H   |		Short_Literal	0xc
0043 00da       |    |		Load_Top	At_Offset_2
0044 01d6       |    |		Execute	Vector,Field_Write
0045 4849       |HI  |		Short_Literal	0x49
0046 480d       |H   |		Short_Literal	0xd
0047 00da       |    |		Load_Top	At_Offset_2
0048 01d6       |    |		Execute	Vector,Field_Write
0049 8004       |    |		Call	0x0,0x4
004a 00d9       |    |		Load_Top	At_Offset_1
004b 01d4       |    |		Execute	Vector,Structure_Write
004c 029d 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call
004e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
004f 00c7       |    |		Action	Elaborate_Subprogram
0050			BODY_0008:
0050 00bc       |    |		Action	Signal_Activated
0051 00bb       |    |		Action	Signal_Completion
0052 0000 0000  |    |		.BLANK	0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b e5fb       |    |		Load	0x2,-0x5
005c e5fc       |    |		Load	0x2,-0x4
005d e5fd       |    |		Load	0x2,-0x3
005e e5fe       |    |		Load	0x2,-0x2
005f e5ff       |    |		Load	0x2,-0x1
0060 820f       |    |		Call	0x1,0xf
0061 c5fb       |    |		Store	0x2,-0x5
0062 00cf       |    |		Action	Mark_Auxiliary
0063 7808       |x   |		Jump	0x6c
0064 e5fb       |    |		Load	0x2,-0x5
0065 e5fc       |    |		Load	0x2,-0x4
0066 e5fd       |    |		Load	0x2,-0x3
0067 e5fe       |    |		Load	0x2,-0x2
0068 e5ff       |    |		Load	0x2,-0x1
0069 820f       |    |		Call	0x1,0xf
006a c5fb       |    |		Store	0x2,-0x5
006b 00c9       |    |		Action	Pop_Auxiliary_Loop
006c e20e       |    |		Load	0x1,0xe
006d 8005       |    |		Call	0x0,0x5
006e 8006       |    |		Call	0x0,0x6
006f 77f4       |w   |		Jump_Nonzero	0x64
0070 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0071 0000 0000  |    |		.BLANK	0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 009f       |    |		.CONST	0x009f								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0009       |    |		.CONST	0x0009								; Number of locals
007b			INIT_0078:
007b e007       |    |		Load	0x0,0x7
007c 0007       |    |		Action	Break_Optional
007d 4820       |H   |		Short_Literal	0x20
007e e008       |    |		Load	0x0,0x8
007f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0080 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0081 00d8       |    |		Load_Top	At_Offset_0
0082 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0083 4820       |H   |		Short_Literal	0x20
0084 e008       |    |		Load	0x0,0x8
0085 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0086 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0087 00d8       |    |		Load_Top	At_Offset_0
0088 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0089 4820       |H   |		Short_Literal	0x20
008a e008       |    |		Load	0x0,0x8
008b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
008d 00d8       |    |		Load_Top	At_Offset_0
008e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008f 4820       |H   |		Short_Literal	0x20
0090 e008       |    |		Load	0x0,0x8
0091 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0092 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0093 00d8       |    |		Load_Top	At_Offset_0
0094 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0095 4820       |H   |		Short_Literal	0x20
0096 e008       |    |		Load	0x0,0x8
0097 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0098 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0099 00d8       |    |		Load_Top	At_Offset_0
009a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009b e007       |    |		Load	0x0,0x7
009c 0007       |    |		Action	Break_Optional
009d e009       |    |		Load	0x0,0x9
009e 0007       |    |		Action	Break_Optional
009f			BODY_0078:
009f e00a       |    |		Load	0x0,0xa
00a0 8005       |    |		Call	0x0,0x5
00a1 8006       |    |		Call	0x0,0x6
00a2 6808       |h   |		Jump_Zero	0xab
00a3 e5fb       |    |		Load	0x2,-0x5
00a4 e5fc       |    |		Load	0x2,-0x4
00a5 e5fd       |    |		Load	0x2,-0x3
00a6 e5fe       |    |		Load	0x2,-0x2
00a7 e5ff       |    |		Load	0x2,-0x1
00a8 800b       |    |		Call	0x0,0xb
00a9 c5fb       |    |		Store	0x2,-0x5
00aa 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00ab e00c       |    |		Load	0x0,0xc
00ac 8005       |    |		Call	0x0,0x5
00ad 8006       |    |		Call	0x0,0x6
00ae 6819       |h   |		Jump_Zero	0xc8
00af e404       |    |		Load	0x2,0x4
00b0 e403       |    |		Load	0x2,0x3
00b1 800d       |    |		Call	0x0,0xd
00b2 00d2       |    |		Pop_Control	Pop_Count_2
00b3 8005       |    |		Call	0x0,0x5
00b4 0f04       |    |		Execute_Immediate	Equal,0x4
00b5 680e       |h   |		Jump_Zero	0xc4
00b6 800e       |    |		Call	0x0,0xe
00b7 00d8       |    |		Load_Top	At_Offset_0
00b8 e5fe       |    |		Load	0x2,-0x2
00b9 e5ff       |    |		Load	0x2,-0x1
00ba 800f       |    |		Call	0x0,0xf
00bb 0039       | 9  |		Store_Top	Access,At_Offset_1
00bc e5fb       |    |		Load	0x2,-0x5
00bd 00d9       |    |		Load_Top	At_Offset_1
00be e404       |    |		Load	0x2,0x4
00bf e403       |    |		Load	0x2,0x3
00c0 8010       |    |		Call	0x0,0x10
00c1 8011       |    |		Call	0x0,0x11
00c2 c5fb       |    |		Store	0x2,-0x5
00c3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00c4 0092 01c1  |    |		Action	Push_String_Extended,0x1c1					; "Manque :="
00c6 8012       |    |		Call	0x0,0x12
00c7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00c8 8005       |    |		Call	0x0,0x5
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca 0d25       | %  |		Execute_Immediate	Less,0x25
00cb 702d       |p-  |		Jump_Nonzero	0xf9
00cc 0adb       |    |		Execute_Immediate	Plus,-0x25
00cd 4624       |F$  |		Jump_Case	0x25
00ce 782f       |x/  |		Jump	0xfe								; case 0x0
00cf 782a       |x*  |		Jump	0xfa								; case 0x1
00d0 78b2       |x   |		Jump	0x183								; case 0x2
00d1 7828       |x(  |		Jump	0xfa								; case 0x3
00d2 7827       |x'  |		Jump	0xfa								; case 0x4
00d3 785e       |x^  |		Jump	0x132								; case 0x5
00d4 785d       |x]  |		Jump	0x132								; case 0x6
00d5 7824       |x$  |		Jump	0xfa								; case 0x7
00d6 7823       |x#  |		Jump	0xfa								; case 0x8
00d7 7822       |x"  |		Jump	0xfa								; case 0x9
00d8 7821       |x!  |		Jump	0xfa								; case 0xa
00d9 7820       |x   |		Jump	0xfa								; case 0xb
00da 781f       |x   |		Jump	0xfa								; case 0xc
00db 781e       |x   |		Jump	0xfa								; case 0xd
00dc 781d       |x   |		Jump	0xfa								; case 0xe
00dd 781c       |x   |		Jump	0xfa								; case 0xf
00de 781b       |x   |		Jump	0xfa								; case 0x10
00df 781a       |x   |		Jump	0xfa								; case 0x11
00e0 7851       |xQ  |		Jump	0x132								; case 0x12
00e1 7850       |xP  |		Jump	0x132								; case 0x13
00e2 78c6       |x   |		Jump	0x1a9								; case 0x14
00e3 7816       |x   |		Jump	0xfa								; case 0x15
00e4 7815       |x   |		Jump	0xfa								; case 0x16
00e5 7814       |x   |		Jump	0xfa								; case 0x17
00e6 7813       |x   |		Jump	0xfa								; case 0x18
00e7 7812       |x   |		Jump	0xfa								; case 0x19
00e8 7811       |x   |		Jump	0xfa								; case 0x1a
00e9 7810       |x   |		Jump	0xfa								; case 0x1b
00ea 780f       |x   |		Jump	0xfa								; case 0x1c
00eb 780e       |x   |		Jump	0xfa								; case 0x1d
00ec 780d       |x   |		Jump	0xfa								; case 0x1e
00ed 780c       |x   |		Jump	0xfa								; case 0x1f
00ee 780b       |x   |		Jump	0xfa								; case 0x20
00ef 780a       |x   |		Jump	0xfa								; case 0x21
00f0 7809       |x   |		Jump	0xfa								; case 0x22
00f1 7808       |x   |		Jump	0xfa								; case 0x23
00f2 7800       |x   |		Jump	0xf3								; case 0x24
00f3 800e       |    |		Call	0x0,0xe
00f4 e5fb       |    |		Load	0x2,-0x5
00f5 8013       |    |		Call	0x0,0x13
00f6 8011       |    |		Call	0x0,0x11
00f7 c5fb       |    |		Store	0x2,-0x5
00f8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00f9 00d1       |    |		Pop_Control	Pop_Count_1
00fa 0092 01c2  |    |		Action	Push_String_Extended,0x1c2					; "Mauvaise instruction"
00fc 8012       |    |		Call	0x0,0x12
00fd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00fe 8005       |    |		Call	0x0,0x5
00ff 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0100 800e       |    |		Call	0x0,0xe
0101 8005       |    |		Call	0x0,0x5
0102 0f0a       |    |		Execute_Immediate	Equal,0xa
0103 682a       |h*  |		Jump_Zero	0x12e
0104 800e       |    |		Call	0x0,0xe
0105 e405       |    |		Load	0x2,0x5
0106 8014       |    |		Call	0x0,0x14
0107 00d1       |    |		Pop_Control	Pop_Count_1
0108 8005       |    |		Call	0x0,0x5
0109 0f0c       |    |		Execute_Immediate	Equal,0xc
010a 681f       |h   |		Jump_Zero	0x12a
010b 800e       |    |		Call	0x0,0xe
010c 00db       |    |		Load_Top	At_Offset_3
010d 8014       |    |		Call	0x0,0x14
010e 00d1       |    |		Pop_Control	Pop_Count_1
010f 8005       |    |		Call	0x0,0x5
0110 0f0c       |    |		Execute_Immediate	Equal,0xc
0111 6814       |h   |		Jump_Zero	0x126
0112 800e       |    |		Call	0x0,0xe
0113 00da       |    |		Load_Top	At_Offset_2
0114 8014       |    |		Call	0x0,0x14
0115 00d1       |    |		Pop_Control	Pop_Count_1
0116 8005       |    |		Call	0x0,0x5
0117 0f0b       |    |		Execute_Immediate	Equal,0xb
0118 6809       |h   |		Jump_Zero	0x122
0119 800e       |    |		Call	0x0,0xe
011a e5fb       |    |		Load	0x2,-0x5
011b 00db       |    |		Load_Top	At_Offset_3
011c e406       |    |		Load	0x2,0x6
011d e405       |    |		Load	0x2,0x5
011e 8015       |    |		Call	0x0,0x15
011f 8011       |    |		Call	0x0,0x11
0120 c5fb       |    |		Store	0x2,-0x5
0121 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0122 0092 01c3  |    |		Action	Push_String_Extended,0x1c3					; "Manque )"
0124 8012       |    |		Call	0x0,0x12
0125 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0126 0092 01c4  |    |		Action	Push_String_Extended,0x1c4					; "Manque ,"
0128 8012       |    |		Call	0x0,0x12
0129 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
012a 0092 01c4  |    |		Action	Push_String_Extended,0x1c4					; "Manque ,"
012c 8012       |    |		Call	0x0,0x12
012d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
012e 0092 01c5  |    |		Action	Push_String_Extended,0x1c5					; "Manque ("
0130 8012       |    |		Call	0x0,0x12
0131 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0132 8005       |    |		Call	0x0,0x5
0133 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0134 800e       |    |		Call	0x0,0xe
0135 8005       |    |		Call	0x0,0x5
0136 0f0a       |    |		Execute_Immediate	Equal,0xa
0137 6847       |hG  |		Jump_Zero	0x17f
0138 800e       |    |		Call	0x0,0xe
0139 e405       |    |		Load	0x2,0x5
013a 8014       |    |		Call	0x0,0x14
013b 00d1       |    |		Pop_Control	Pop_Count_1
013c 8005       |    |		Call	0x0,0x5
013d 0f0c       |    |		Execute_Immediate	Equal,0xc
013e 683c       |h<  |		Jump_Zero	0x17b
013f 800e       |    |		Call	0x0,0xe
0140 00db       |    |		Load_Top	At_Offset_3
0141 8014       |    |		Call	0x0,0x14
0142 00d1       |    |		Pop_Control	Pop_Count_1
0143 8005       |    |		Call	0x0,0x5
0144 0f0b       |    |		Execute_Immediate	Equal,0xb
0145 6831       |h1  |		Jump_Zero	0x177
0146 800e       |    |		Call	0x0,0xe
0147 00d9       |    |		Load_Top	At_Offset_1
0148 00d8       |    |		Load_Top	At_Offset_0
0149 482a       |H*  |		Short_Literal	0x2a
014a 4838       |H8  |		Short_Literal	0x38
014b 0262       | b  |		Execute	Discrete,In_Range
014c 680a       |h   |		Jump_Zero	0x157
014d 0b2a       | *  |		Execute_Immediate	Case_Compare,0x2a
014e 7011       |p   |		Jump_Nonzero	0x160
014f 0b2b       | +  |		Execute_Immediate	Case_Compare,0x2b
0150 7017       |p   |		Jump_Nonzero	0x168
0151 00d8       |    |		Load_Top	At_Offset_0
0152 0c37       | 7  |		Execute_Immediate	Greater_Equal,0x37
0153 6803       |h   |		Jump_Zero	0x157
0154 0f38       | 8  |		Execute_Immediate	Equal,0x38
0155 7003       |p   |		Jump_Nonzero	0x159
0156 7819       |x   |		Jump	0x170
0157 00d1       |    |		Pop_Control	Pop_Count_1
0158 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0159 e5fb       |    |		Load	0x2,-0x5
015a e406       |    |		Load	0x2,0x6
015b e405       |    |		Load	0x2,0x5
015c 8016       |    |		Call	0x0,0x16
015d 8011       |    |		Call	0x0,0x11
015e c5fb       |    |		Store	0x2,-0x5
015f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0160 00d1       |    |		Pop_Control	Pop_Count_1
0161 e5fb       |    |		Load	0x2,-0x5
0162 e406       |    |		Load	0x2,0x6
0163 e405       |    |		Load	0x2,0x5
0164 8017       |    |		Call	0x0,0x17
0165 8011       |    |		Call	0x0,0x11
0166 c5fb       |    |		Store	0x2,-0x5
0167 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0168 00d1       |    |		Pop_Control	Pop_Count_1
0169 e5fb       |    |		Load	0x2,-0x5
016a e406       |    |		Load	0x2,0x6
016b e405       |    |		Load	0x2,0x5
016c 8017       |    |		Call	0x0,0x17
016d 8011       |    |		Call	0x0,0x11
016e c5fb       |    |		Store	0x2,-0x5
016f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0170 e5fb       |    |		Load	0x2,-0x5
0171 e406       |    |		Load	0x2,0x6
0172 e405       |    |		Load	0x2,0x5
0173 8018       |    |		Call	0x0,0x18
0174 8011       |    |		Call	0x0,0x11
0175 c5fb       |    |		Store	0x2,-0x5
0176 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0177 0092 01c3  |    |		Action	Push_String_Extended,0x1c3					; "Manque )"
0179 8012       |    |		Call	0x0,0x12
017a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
017b 0092 01c4  |    |		Action	Push_String_Extended,0x1c4					; "Manque ,"
017d 8012       |    |		Call	0x0,0x12
017e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
017f 0092 01c5  |    |		Action	Push_String_Extended,0x1c5					; "Manque ("
0181 8012       |    |		Call	0x0,0x12
0182 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0183 800e       |    |		Call	0x0,0xe
0184 8005       |    |		Call	0x0,0x5
0185 0f0a       |    |		Execute_Immediate	Equal,0xa
0186 681e       |h   |		Jump_Zero	0x1a5
0187 800e       |    |		Call	0x0,0xe
0188 e405       |    |		Load	0x2,0x5
0189 8014       |    |		Call	0x0,0x14
018a 00d1       |    |		Pop_Control	Pop_Count_1
018b 8005       |    |		Call	0x0,0x5
018c 0f0c       |    |		Execute_Immediate	Equal,0xc
018d 6813       |h   |		Jump_Zero	0x1a1
018e 800e       |    |		Call	0x0,0xe
018f e007       |    |		Load	0x0,0x7
0190 8019       |    |		Call	0x0,0x19
0191 c402       |    |		Store	0x2,0x2
0192 8005       |    |		Call	0x0,0x5
0193 0f0b       |    |		Execute_Immediate	Equal,0xb
0194 6808       |h   |		Jump_Zero	0x19d
0195 800e       |    |		Call	0x0,0xe
0196 e5fb       |    |		Load	0x2,-0x5
0197 e402       |    |		Load	0x2,0x2
0198 e405       |    |		Load	0x2,0x5
0199 801a       |    |		Call	0x0,0x1a
019a 8011       |    |		Call	0x0,0x11
019b c5fb       |    |		Store	0x2,-0x5
019c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
019d 0092 01c3  |    |		Action	Push_String_Extended,0x1c3					; "Manque )"
019f 8012       |    |		Call	0x0,0x12
01a0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01a1 0092 01c4  |    |		Action	Push_String_Extended,0x1c4					; "Manque ,"
01a3 8012       |    |		Call	0x0,0x12
01a4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01a5 0092 01c5  |    |		Action	Push_String_Extended,0x1c5					; "Manque ("
01a7 8012       |    |		Call	0x0,0x12
01a8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01a9 800e       |    |		Call	0x0,0xe
01aa 8005       |    |		Call	0x0,0x5
01ab 0f0a       |    |		Execute_Immediate	Equal,0xa
01ac 6810       |h   |		Jump_Zero	0x1bd
01ad 800e       |    |		Call	0x0,0xe
01ae 801b       |    |		Call	0x0,0x1b
01af 8005       |    |		Call	0x0,0x5
01b0 0f0b       |    |		Execute_Immediate	Equal,0xb
01b1 6807       |h   |		Jump_Zero	0x1b9
01b2 800e       |    |		Call	0x0,0xe
01b3 e5fb       |    |		Load	0x2,-0x5
01b4 480a       |H   |		Short_Literal	0xa
01b5 801c       |    |		Call	0x0,0x1c
01b6 8011       |    |		Call	0x0,0x11
01b7 c5fb       |    |		Store	0x2,-0x5
01b8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01b9 0092 01c3  |    |		Action	Push_String_Extended,0x1c3					; "Manque )"
01bb 8012       |    |		Call	0x0,0x12
01bc 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01bd 0092 01c5  |    |		Action	Push_String_Extended,0x1c5					; "Manque ("
01bf 8012       |    |		Call	0x0,0x12
01c0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01c1 ; --------------------------------------------------------------------------------------
01c1 ; STRING TABLE
01c1 ; --------------------------------------------------------------------------------------
01c1 000c       |    |		.STRTAB	0x000c->0x01c7							; "Manque :="
01c2 0013       |    |		.STRTAB	0x0013->0x01cb							; "Mauvaise instruction"
01c3 0025       | %  |		.STRTAB	0x0025->0x01d5							; "Manque )"
01c4 002b       | +  |		.STRTAB	0x002b->0x01d9							; "Manque ,"
01c5 0031       | 1  |		.STRTAB	0x0031->0x01dd							; "Manque ("
01c6 0037       | 7  |		.STREND 0x0037->0x01e1
01c7 4d61 6e71  |Manq|		.STRTAB_STRINGS
01e2 0000 0000  |    |		.BLANK	0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xb4b0,0x0000,0x0001,0x0004
01ee 000b 01fe  |    |		.DBG4T	0x000b,0x01fe,0x8000,0x0000
01f2 000e 0201  |    |		.DBG4T	0x000e,0x0201,0x8000,0x0000
01f6 005b 0206  | [  |		.DBG4T	0x005b,0x0206,0x0001,0x4000
01fa 007b 020e  | {  |		.DBG4T	0x007b,0x020e,0x0001,0x4000
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug chain
01fe ; --------------------------------------------------------------------------------------
01fe 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0200 000b       |    |		.DBGLNO	0x000b
0201 ; --------------------------------------------------------------------------------------
0201 ; Debug chain
0201 ; --------------------------------------------------------------------------------------
0201 0003 0000  |    |		.DBGLEN	0x0003,0x0000
0203 000e 004c  |   L|		.DBGLNO	0x000e,0x004c,0x004e
0206 ; --------------------------------------------------------------------------------------
0206 ; Debug chain
0206 ; --------------------------------------------------------------------------------------
0206 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0208 005b 0064  | [ d|		.DBGLNO	0x005b,0x0064,0x006c
020b 0001 0003  |    |		.XXX[0x3]
020d 0002       |    |
020e ; --------------------------------------------------------------------------------------
020e ; Debug chain
020e ; --------------------------------------------------------------------------------------
020e 0005 0047  |   G|		.DBGLEN	0x0005,0x0047
0210 007b 007d  | { }|		.DBGLNO	0x007b,0x007d,0x0089,0x009b,0x009d,0x009f,0x00a3,0x00ab,0x00af,0x00b3,0x00b6,0x00b7,0x00bc,0x00c4,0x00c8,0x00f3,0x00f4,0x00fa,0x00fe,0x0100,0x0101,0x0104,0x0105,0x0108,0x010b,0x010c,0x010f,0x0112,0x0113,0x0116,0x0119,0x011a,0x0122,0x0126,0x012a,0x012e,0x0132,0x0134,0x0135,0x0138,0x0139,0x013c,0x013f,0x0140,0x0143,0x0146,0x0147,0x0159,0x0161,0x0169,0x0170,0x0177,0x017b,0x017f,0x0183,0x0184,0x0187,0x0188,0x018b,0x018e,0x018f,0x0192,0x0195,0x0196,0x019d,0x01a1,0x01a5,0x01a9,0x01aa,0x01ad,0x01ae,0x01af,0x01b2,0x01b3,0x01b9,0x01bd
025c 0001 0002  |    |		.XXX[0x47]
025e 0003 0004  |    |
0260 0005 0006  |    |
0262 0007 0008  |    |
0264 0009 000a  |    |
0266 0046 0047  | F G|
0268 0048 000b  | H  |
026a 000c 000d  |    |
026c 000e 000f  |    |
026e 0010 0011  |    |
0270 0012 0013  |    |
0272 0014 0015  |    |
0274 0016 0017  |    |
0276 0018 0019  |    |
0278 001a 001b  |    |
027a 001c 001d  |    |
027c 001e 001f  |    |
027e 0020 0021  |   !|
0280 0022 0023  | " #|
0282 0024 0025  | $ %|
0284 0026 0027  | & '|
0286 0029 002a  | ) *|
0288 002b 0028  | + (|
028a 002d 002e  | - .|
028c 002f 0030  | / 0|
028e 0031 0032  | 1 2|
0290 0033 0034  | 3 4|
0292 0035 0036  | 5 6|
0294 0037 0038  | 7 8|
0296 0039 003a  | 9 :|
0298 003b 003c  | ; <|
029a 003d 003e  | = >|
029c 003f 0040  | ? @|
029e 0041 0042  | A B|
02a0 0043 0044  | C D|
02a2 0045       | E  |
02a3 0000 0000  |    |		.BLANK	0000[0x15d]