Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0118/outch.mac
There are 2 other files named outch.mac in the archive. Click here to see a list.
00100	; PICTURE BOOK BYTE OUTPUT 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	;
02800	; THIS ROUTINE OUTPUTS A SEVEN BIT VALUE IN IMAGE MODE
02900	;
03000	;
03010	;	EDITED FOR THE DECSYSTEM-20 BY H. D. TODD, WESLEYAN UNIVERSITY
03020	;							   1 FEB 81
03030	;
03100		TITLE	OUTCH
03150		SEARCH	MONSYM
03200		ENTRY	OUTCH
03300	OUTCH:	LDB	2,[POINT 7,@0(16)]
03400		MOVEI	1,.PRIOU
03500		BOUT
03600		POPJ	17,
03700		END