0 BEGIN PGM 8150_fr MM 
1 ;**********************************
2 ;Un param�tre machine est lu et
3 ;enregistr� dans le Q1.
4 ;Le Q1 contient alors une valeur
5 ;d�cimale, qui doit �tre d�compos�e
6 ;en une valeur binaire.
7 ;Le bit correspondant est alors
8 ;d�fini dans le tableau BIT.tab et
9 ;peut ensuite �tre lu s�par�ment.
10 ;**********************************
11 ;***Lire les param�tres machine
12 ;**********************************
13 FN 18: SYSREAD Q1 = ID1000 NR730
14 ;**********************************
15 ;***R�initialiser les param�tres
16 ;**********************************
Q10 = - 1 ;R�initialiser le compteur
Q100 = 1 ;Nombre pour l'entr�e du tableau
17 ;**********************************
18 ;Copier un tableau
19 FUNCTION FILECOPY "8150-1-fr.tab" TO "BIT.tab"
20 FN 26: TABOPEN BIT.tab
21 LBL 1
Q10 = Q10 + 1 ;Synchroniser le compteur
Q1 = Q1 / 2 ;Diviser la valeur D�C.
Q2 = FRAC Q1 ;S�parer les troncatures
Q1 = INT Q1 ;S�parer les positions avant la virgule
Q3 = Q1 + Q2
22 ;V�rifier si d'autres calculs sont n�cessaires
23 FN 9: IF +Q3 EQU +0 GOTO LBL "END"
24 FN 9: IF +Q2 EQU +0 GOTO LBL 1
25 ;Convertir Q10 en cha�ne QS1
QS1 = TOCHAR( DAT+Q10 )
26 ;�crire la valeur de Q100 (1) dans le tableau
27 FN 27: TABWRITE 0 / QS1 = Q100
28 ;Retour en arri�re
29 FN 9: IF +0 EQU +0 GOTO LBL 1
30 LBL "END"
31 END PGM 8150_fr MM