* * $Id: lnrd.s,v 1.1.1.1 1996/03/08 15:44:22 mclareni Exp $ * * $Log: lnrd.s,v $ * Revision 1.1.1.1 1996/03/08 15:44:22 mclareni * Cspack * * #if defined(CERNLIB_IBMVM) PRINT GEN LNRD EDCPROL BALR 12,0 USING *,12 R12 <-- REGISTRO BASE L 2,0(,1) GET ADDR OF PARM 1 MVC PRBF,0(2) SR 1,1 INDEX L 4,=F'1' INCREMENT L 5,=F'100' LIMIT LA 6,PRBF-1 POINTER (I NEED IT FOR CLI) LOOP1 EQU * A 6,=F'1' UPDATE POINTER CLI 0(6),0 FIRST NULL ? BE MORBLAN BXLE 1,4,LOOP1 A 6,=F'1' UPDATE POINTER MORBLAN SR 7,7 NEXBLAN STC 7,0(6) A 6,=F'1' UPDATE POINTER BXLE 1,4,NEXBLAN *********************************************************************** GETIT LINERD DATA=(BUF,L'BUF), * CASE=MIXED, * * * #if !defined(CERNLIB_BATCH) TYPE=DIRECT, * * * #endif #if defined(CERNLIB_BATCH) TYPE=STACK, * * * #endif WAIT=YES, * PROMPT=(PRBF,L'PRBF) *********************************************************************** SR 1,1 INDEX L 4,=F'1' INCREMENT L 5,=F'240' LIMIT LA 15,BUF STRING ADDR LA 6,BUF-1 POINTER (I NEED IT FOR CLI) BUCLE EQU * A 6,=F'1' UPDATE POINTER CLI 0(6),C' ' FIRST BLANC ? BE PUTNUL BXLE 1,4,BUCLE A 6,=F'1' UPDATE POINTER PUTNUL SR 4,4 STC 4,0(6) FIN EDCEPIL LTORG * PRBF DS CL100 BUF DS CL240 DS C NULL HOLDER END LNRD #endif