UTILTY

 UTILTY		SOURCE & BINARY ON MH#1.	10/27/74.
 ------		*=*=*=*=*=*=*=*=*=*=*=*


 UTILTY MODS

	"UTILTY" USES NO PAUSE READS ON TAPE FILES OPENED WITH
	"I0PEN", READ WITH FORTRAN INPUT UNIT 3 (OLD
	CARD READER). THIS ALLOWS READING FILES WITH NO PAUSES
	BETWEEN READING TAPE BLOCKS WHEN NOT READING INFORMATION
	AT TOO FAST A RATE. TABS ARE SPACED OUT WHEN ENCOUNTERED.


 I0PEN	- ENTRY POINT. OPEN NO-PAUSE INPUT FILE.

	CALL I0PEN('FILE','EX-G')

	FIRST PARAMETER - 6 CHARACTER, LEFT JUSTIFIED, ZERO FILLED
	FILE NAME. SECOND PARAMETER - 2 CHARACTER FILE EXTENSION ("EX"),
	THIRD CHARACTER IGNORED, FOURTH CHARACTER IS TAPE UNIT
	NUMBER: G=UNIT 0, H=UNIT 1.


 REW	- ENTRY POINT. REWIND I0PEN-ED FILE.

	"REW" ALLOWS REWINDING (RESETING BLOCK POINTER TO BEGINING OF
	FILE AND INITIALIZE BUFFER) OF THE FILE USED IN THE LAST "I0PEN"
	CALL. UNDEFINED RESULTS OCCUR IF "I0PEN" IS NOT CALLED BEFORE
	THE CALL TO "REW". READING PAST THE EOF (^Z) IS ALLOWED.


 SKIPB	- ENTRY POINT.

	CALL SKIPB

	"SKIPB" SKIPS TO THE NEXT 400 BASE 8 WORD BLOCK ON AN
	OS/8 FORMAT TAPE. THIS ALLOWS READING THE NEXT FILE AFTER
	THE EOF (^Z) HAS BEEN READ.
 UTILT2

 UTILT2		S-B ON MH #1.		04/23/75.
 ------		*=*=*=*=*=*=


 MEMOR	- ENTRY POINT. WRITE ON MEMORY, UNIT 2.

	SET FORMATED WRITE ON MEMORY ADDRESS POINTER. TEXT IS
	WRITTEN IN 6-BIT, 2 CHARACTER PER WORD FORM; WHICH IS
	ACCEPTED BY THE CRT DISPLAY ROUTINE "DISP9". AN EVEN
	NUMBER OF WORDS MUST BE WRITTEN OR THE LAST ODD CHARACTER
	IS LOST. A ZERO CHARACTER IS NOT WRITTEN AFTER THE WRITE.


	EXAMPLE CALL:

	S	CALL	1,MEMOR
	S	ARG	FWR

		WRITE(2,99) K,M
	99	FORMAT(I2,' =M'I4,X)

	S	CPAGE 7      /(OCTAL WORD COUNT)
	S	TEXT "K="
	SFWR,	TEXT "00 M=0000 " ; 0