0 BEGIN PGM 8150_es MM 
1 ;**********************************
2 ;Se lee un parámetro de máquina y
3 ;se guarda en el Q1.
4 ;El Q1 contiene entonces un valor
5 ;decimal, que debe descomponerse
6 ;en un valor binario.
7 ;En la tabla BIT.tab se establecen
8 ;entonces los bits correspondientes
9 ;y a continuación pueden leerse por
10 ;separado.
11 ;**********************************
12 ;***Leer parámetros de máquina
13 ;**********************************
14 FN 18: SYSREAD Q1 = ID1000 NR730
15 ;**********************************
16 ;***Reponer parámetro
17 ;**********************************
Q10 = - 1 ;Reiniciar el contador
Q100 = 1 ;Cifra para entrada de tabla
18 ;**********************************
19 ;Copiar tabla
20 FUNCTION FILECOPY "8150-1-es.tab" TO "BIT.tab"
21 FN 26: TABOPEN BIT.tab
22 LBL 1
Q10 = Q10 + 1 ;Sincronizar temporizador
Q1 = Q1 / 2 ;Dividir valor DEC
Q2 = FRAC Q1 ;Separar las cifras decimales
Q1 = INT Q1 ;Separar las posiciones delante de la coma
Q3 = Q1 + Q2
23 ;Comprobar si se necesitan otros cálculos
24 FN 9: IF +Q3 EQU +0 GOTO LBL "END"
25 FN 9: IF +Q2 EQU +0 GOTO LBL 1
26 ;Transformar Q10 en secuencia de caracteres QS1
QS1 = TOCHAR( DAT+Q10 )
27 ;Escribir el valor de Q100 (1) en la tabla
28 FN 27: TABWRITE 0 / QS1 = Q100
29 ;Retorno
30 FN 9: IF +0 EQU +0 GOTO LBL 1
31 LBL "END"
32 END PGM 8150_es MM