Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50434/outch.mac
There are 2 other files named outch.mac 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:	0		;ENTRY
	IMAGE	@0(16)	;PROVIDE PROPER ADDRESS
	JRA	16,1(16)	;RETURN
	END