* PSDCGB
      PROGRAMA 'COMPILA CON T800'
      DOCUMENTACION 1 5
*D
*D    ESTE PROGRAMA SIRVE PARA COMPILAR CON T800 LOS PROGRAMAS
*D    DE OTRAS MAQUINAS
*
      OPCION TEMPORAL 950 ESCRITURA ASCII   AREA 20
      ESCRIBIR TEMPORAL 950 '*C *INICIO*'
 32   OPCION TEMPORAL 800 LECTURA ASCII
      LEER TEMPORAL 800 EJECUTA 40 X6 DIS-DBD RELLENO-T800-DBD
      CONVERTIR X6 A INI-DBD POS. 5 1 EJECUTA 90
      CONVERTIR X6 A INI-DBD POS. 6 2 EJECUTA 90
      ESCRIBIR TEMPORAL 950 '*M DBD-C,' INI-DBD ',' DIS-DBD
 34   LEER TEMPORAL 800 EJECUTA 40 X6 DIS-PRO NOM-PRO-EXT $
                                   RELLENO-T800-CLS
      CONVERTIR X6 A X2 POS. 5 1 EJECUTA 90
      CONVERTIR X6 A X2 POS. 6 2 EJECUTA 90
      ESCRIBIR TEMPORAL 950 '*M CLS-C,' INI-DBD ',' DIS-DBD $
                  ',' X2 ',' DIS-PRO
      EJECUTA  34
40    ESCRIBIR TEMPORAL 950 '*C *FIN*'
      LLAMAR 'SIS/B ' 950
      EJECUTA 1000
*
*     ERROR
*
90    ERROR 'ERROR 1 EN PSDCGB' 'ERROR AL CONVERTIR'
      FIN
1000  FIN 'DCME'
