Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0118/inch.mac
There are 2 other files named inch.mac in the archive. Click here to see a list.
00100	; PICTURE BOOK CHARACTER (BYTE) INPUT ROUTINE
00200	;
00300	;	DEC-11-GPBAA-B-LA
00400	;
00500	;	COPYRIGHT (C) 1974
00600	;	DIGITAL EQUIPMENT CORPORATION
00700	;	MAYNARD, MASSACHUSETTS 01754
00800	
00900	;	THE INFORMATION IN THIS SOURCE LISTING IS SUBJECT TO
01000	;	CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A
01100	;	COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION.
01200	;	DIGITAL EQUIPTMENT CORPORATION ASSUMES NO RESPONSIBILITY
01300	;	FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING.
01400	
01500	;	THIS SOFTWARE IS FURNISHED TO THE PURCHASER
01600	;	UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
01700	;	SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S
01800	;	COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS
01900	;	MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
02000	
02100	;	DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
02200	;	FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
02300	;	THAT IS NOT SUPPLIED BY DIGITAL.
02400	;
02500	; FEBRUARY 25, 1973
02600	;
02700	; THIS ROUTINE INPUTS A SEVEN BIT VALUE
02800	;
02900	;
02910	;	MODIFIED FOR THE DECSYSTEM-20 BY H. D. TODD, WESLEYAN UNIVERSITY
02920	;							     1 FEB 81
02930	;
03000	
03100		TITLE INCH
03150		SEARCH MONSYM
03200		ENTRY INCH
03300	INCH:	MOVEI	1,.PRIIN
03400		BIN
03550		DPB	2,[POINT 7,@0(16)]
03575		POPJ	17,
03600		END