Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
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