Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0118/outch.nfs
There are 2 other files named outch.nfs in the archive. Click here to see a list.
; PICTURE BOOK BYTE OUTPUT ROUTINE
;
;	DEC-11-GPBAA-B-LA
;
;	COPYRIGHT (C) 1974
;	DIGITAL EQUIPMENT CORPORATION
;	MAYNARD, MASSACHUSETTS 01754

;	THE INFORMATION IN THIS SOURCE LISTING IS SUBJECT TO
;	CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A
;	COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION.
;	DIGITAL EQUIPTMENT CORPORATION ASSUMES NO RESPONSIBILITY
;	FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING.

;	THIS SOFTWARE IS FURNISHED TO THE PURCHASER
;	UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
;	SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S
;	COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS
;	MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.

;	DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
;	FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
;	THAT IS NOT SUPPLIED BY DIGITAL.
;
; FEBRUARY 25, 1973
;
;
; THIS ROUTINE OUTPUTS A SEVEN BIT VALUE IN IMAGE MODE
;
;
	TITLE	OUTCH
	ENTRY	OUTCH
	OPDEF	IMAGE	[TTCALL 15,]
OUTCH:	IMAGE	@0(16)		;ENTRY,PROVIDE PROPER ADDRESS
	POPJ	17,0		;RETURN
	END