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