*COMDECK PIAPPS 
_$J+? 
_***************************************
*                                      *
* INITIALIZATION APPLICATION           *
*                                      *
****************************************
? 
PROCEDURE PIAPPS; 
VAR 
      TEMP : B0OVERLAY; 
      MSG  : PACKED ARRAY[0..80] OF CHAR; 
      MSGPTR : B0BUFPTR;
_?
VALUE 
      MSG = (J1CRLF,
             J1CRLF,J1CRCR,#CCP     :XXXX #,
             J1CRLF,
             J1CRLF,J1CRCR,#NPU ID  :XXXX #,
             J1CRLF,J1CRCR,#LEVEL   :XXXX #,
             J1CRLF,J1CRCR,#VARIANT :XXXX #,
             J1CRLF,J1CRCR,#]#);
_?
BEGIN 
_***********************************************************************
*     SYSTEM IDENTIFICATION                                            *
***********************************************************************?
ADDR (MSG, MSGPTR);                         _ SET PTR TO MSG ARRAY     ?
TEMP.BAINT := CKLOCNODE;                    _ MOVE IN NPU ID           ?
PBTOAH (TEMP.BAHEX, MSGPTR, 35, 80);
INST ($C400, CCPVER, $6400, TEMP);          _ MOVE IN VERSION          ?
PBTOAH (TEMP.BAHEX, MSGPTR, 15, 80);
INST ($C400, CCPLEV, $6400, TEMP);          _ MOVE IN LEVEL            ?
PBTOAH (TEMP.BAHEX, MSGPTR, 53, 80);
INST ($C400, CCPCYC, $6400, TEMP);          _ MOVE IN VARIANT          ?
PBTOAH (TEMP.BAHEX, MSGPTR, 71, 80);
IF TOCONSOLE                                _ CONSOLE DRIVER PRESENT   ?
THEN
  PBDISPLAY (MSG);                          _ DISPLAY MSG ON CONSOLE   ?
_?
END;
