Retro1.org codex

*DECK DLFPTXT 
USETEXT DLFPDEF 
PROC ABH; 
BEGIN 
CONTROL STEXT;
    BASED ARRAY ABH;
      BEGIN 
*CALL HEADER
      ITEM                    ABHB41 U(0,41,1);  # BIT 41.             #
      ITEM                    ABHB42 U(0,42,1);  # BIT 42.             #
      ITEM                    ABHB43 U(0,43,1);  # BIT 43.             #
      END 
END 
TERM
PROC ARGERR;
BEGIN 
CONTROL STEXT;
*CALL ARGERR
END 
TERM
USETEXT DLFPDEF 
PROC ARGTBL;
BEGIN 
CONTROL STEXT;
*CALL ARGTBL
END 
TERM
PROC DEQCOM;
BEGIN 
CONTROL STEXT;
*CALL DEQCOM
END 
TERM
PROC DIERR; 
BEGIN 
CONTROL STEXT;
*CALL DIERR 
END 
TERM
USETEXT DLFPDEF 
PROC DIRTBL;
BEGIN 
CONTROL STEXT;
*CALL DIRTBL
END 
TERM
PROC DIRTBLH; 
BEGIN 
CONTROL STEXT;
*CALL DIRTBLH 
END 
TERM
PROC DIRTBLM; 
BEGIN 
CONTROL STEXT;
*CALL DIRTBLM 
END 
TERM
USETEXT DLFPDEF 
PROC DIRTBLS; 
BEGIN 
CONTROL STEXT;
*CALL DIRTBLS 
END 
TERM
PROC DLONEL;
BEGIN 
CONTROL STEXT;
*CALL DLONEL
END 
TERM
USETEXT DLFPDEF 
PROC DLNOD; 
BEGIN 
CONTROL STEXT;
*CALL DLNOD 
END 
TERM
PROC DLTLC; 
BEGIN 
CONTROL STEXT;
*CALL DLTLC 
END 
TERM
USETEXT DLFPDEF 
PROC DRHDR; 
BEGIN 
CONTROL STEXT;
*CALL DRHDR 
END 
TERM
PROC ERRMSG;
BEGIN 
CONTROL STEXT;
*CALL ERRMSG
END 
TERM
USETEXT DLFPDEF 
PROC ICIOBB;
BEGIN 
CONTROL STEXT;
*CALL ICIOBB
END 
TERM
USETEXT DLFPDEF 
PROC IFETB; 
BEGIN 
CONTROL STEXT;
*CALL IFETB 
END 
TERM
USETEXT DLFPDEF 
PROC MISRES;
BEGIN 
CONTROL STEXT;
*CALL MISRES
END 
TERM
USETEXT DLFPDEF 
PROC NHEADER; 
BEGIN 
CONTROL STEXT;
*CALL PWL 
*CALL NHEADER 
END 
TERM
USETEXT DLFPDEF 
 PROC NP$NWN1 ; 
CONTROL STEXT;
BEGIN 
*CALL NP$NWN1 
END 
TERM
USETEXT DLFPDEF 
PROC OCIOBB;
BEGIN 
CONTROL STEXT;
*CALL OCIOBB
END 
TERM
USETEXT DLFPDEF 
PROC OFETB; 
BEGIN 
CONTROL STEXT;
*CALL OFETB 
END 
TERM
PROC OUTCDA;
BEGIN 
CONTROL STEXT;
*CALL OUTCDA
END 
TERM
USETEXT DLFPDEF 
PROC VDDIR; 
BEGIN 
CONTROL STEXT;
*CALL VDDIR 
END 
TERM
USETEXT DLFPDEF 
PROC VDPARM;
BEGIN 
CONTROL STEXT;
*CALL VDPARM
END 
TERM
USETEXT DLFPDEF 
PROC WRDPAIR; 
BEGIN 
CONTROL STEXT;
*CALL WRDPAIR 
END 
TERM
USETEXT DLFPDEF 
PROC ZCIOBB;
BEGIN 
CONTROL STEXT;
*CALL ZCIOBB
END 
TERM
USETEXT  DLFPDEF; 
PROC ZFETB; 
BEGIN 
CONTROL STEXT;
*CALL ZFETB 
END 
TERM
USETEXT DLFPDEF 
PROC ZHRCD; 
BEGIN 
CONTROL STEXT;
*CALL ZHRCD 
END 
TERM