

                22-Aug-1978 02:50:22	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 1   

					LINCHK.FOR.8        



0001    	SUBROUTINE	LINCHK(LUN,COUNT)

0002    	BYTE		LUN

0003    	INTEGER*2	COUNT

         

        C

        C	INCLUDE FILES:

        C			NONE

         

        C

        C	OWN STORAGE:

        C

0004    	INTEGER*2	LINES

         

0005    	DATA		LINES/56/

         

0006    	LINES	= LINES + COUNT

         

0007    	IF(LINES .LT. 56)  RETURN

         

0008    	CALL TOF(LUN)

         

0009    	LINES	= COUNT

         

0010    	RETURN

         

         

0011    	ENTRY		FRCTOF(LUN)

         

0012    	CALL TOF(LUN)

         

0013    	LINES	= 0

         

0014    	RETURN

0015    	END



LINCHK          22-Aug-1978 02:50:22	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 2   

					LINCHK.FOR.8        



		.TITLE	LINCHK

		.IDENT	01



    0004	.PSECT	$LOCAL

    0004	.LONG	^X00000001

    0008	.LONG	^X00000000

    0000  LINES:

    0000	.WORD	^X0038



    0000	.PSECT	$CODE

    0000  LINCHK::

    0000	.WORD	^M<IV,R11>

    0002	MOVAL	$LOCAL+^X4, R11

									    ; 0006

    0009	ADDW2	@COUNT(AP), LINES(R11)

									    ; 0007

    000E	CMPW	LINES(R11), #56

    0012	BGEQ	L$IAFC

    0014	RET	

    0015  L$IAFC:

									    ; 0008

    0015	MOVAB	@LUN(AP), $LOCAL+^X8(R11)

    001A	CALLG	$LOCAL+^X4(R11), TOF

									    ; 0009

    0021	MOVW	@COUNT(AP), LINES(R11)

									    ; 0010

    0026	RET	

    0027  FRCTOF::

    0027	.WORD	^M<IV,R11>

    0029	MOVAL	$LOCAL+^X4, R11

    0030  L$IALD:

									    ; 0012

    0030	MOVAB	@LUN(AP), $LOCAL+^X8(R11)

    0035	CALLG	$LOCAL+^X4(R11), TOF

									    ; 0013

    003C	CLRW	LINES(R11)

									    ; 0014

    003F	RET	

		.END



LINCHK          22-Aug-1978 02:50:22	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 3   

					LINCHK.FOR.8        



PROGRAM SECTIONS



    Name                 Bytes   Attributes



  0 $CODE                   64   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG

  2 $LOCAL                  12   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name               Address  Type Name           



  0-00000027      FRCTOF           0-00000000      LINCHK         





VARIABLES



    Address  Type Name               Address  Type Name               Address  Type Name           



 AP-00000008@ I*2 COUNT            2-00000000  I*2 LINES           AP-00000004@ L*1 LUN            





FUNCTIONS AND SUBROUTINES REFERENCED



TOF            





Total Space Allocated = 76 Bytes





COMPILER OPTIONS



/CHECK=(NOBOUNDS,OVERFLOW)

/DEBUG=(NOSYMBOLS,TRACEBACK)

/OPTIMIZE  /WARNINGS  /I4  /NOD_LINES  

