* * $Id: getuniq.s,v 1.1.1.1 1996/03/08 15:44:22 mclareni Exp $ * * $Log: getuniq.s,v $ * Revision 1.1.1.1 1996/03/08 15:44:22 mclareni * Cspack * * #if defined(CERNLIB_IBMVM) PRINT GEN GETUNIQ EDCPROL BALR 12,0 USING *,12 R12 <-- REGISTRO BASE ********************************************************************* LA 2,EXTRACT 2 LA 3,2 DC X'83',X'23',XL2'0180' DIAGNOSE X'180' 2 ********************************************************************* L 15,PID FIN EDCEPIL LTORG * EXTRACT DC CL8'UNIQUE ' DS CL4 PID DS CL4 END GETUNIQ #endif