0 BEGIN PGM 8150_it MM 
1 ;**********************************
2 ;Viene letto un parametro macchina
3 ;e salvato in Q1.
4 ;Q1 comprende quindi un valore
5 ;decimale che deve essere scomposto
6 ;in un valore binario.
7 ;Nella tabella BIT.tab vengono
8 ;impostati i bit corrispondenti che
9 ;possono poi essere letti
10 ;separatamente.
11 ;**********************************
12 ;***Lettura di parametri macchina
13 ;**********************************
14 FN 18: SYSREAD Q1 = ID1000 NR730
15 ;**********************************
16 ;***Reset parametri
17 ;**********************************
Q10 = - 1 ;Reset contatore
Q100 = 1 ;Numero per voce tabella
18 ;**********************************
19 ;Copia della tabella
20 FUNCTION FILECOPY "8150-1-it.tab" TO "BIT.tab"
21 FN 26: TABOPEN BIT.tab
22 LBL 1
Q10 = Q10 + 1 ;Avanzamento contatore
Q1 = Q1 / 2 ;Divisione del valore DEC
Q2 = FRAC Q1 ;Separazione dei decimali
Q1 = INT Q1 ;Separazione degli interi
Q3 = Q1 + Q2
23 ;Controllo se sono necessari altri calcoli
24 FN 9: IF +Q3 EQU +0 GOTO LBL "END"
25 FN 9: IF +Q2 EQU +0 GOTO LBL 1
26 ;Conversione di Q10 in stringa QS1
QS1 = TOCHAR( DAT+Q10 )
27 ;Scrittura del valore da Q100 (1) in tabella
28 FN 27: TABWRITE 0 / QS1 = Q100
29 ;Ritorno
30 FN 9: IF +0 EQU +0 GOTO LBL 1
31 LBL "END"
32 END PGM 8150_it MM