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