Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0118/inch.mac
There are 2 other files named inch.mac in the archive. Click here to see a list.
00100 ; PICTURE BOOK CHARACTER (BYTE) INPUT 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 ; THIS ROUTINE INPUTS A SEVEN BIT VALUE
02800 ;
02900 ;
02910 ; MODIFIED FOR THE DECSYSTEM-20 BY H. D. TODD, WESLEYAN UNIVERSITY
02920 ; 1 FEB 81
02930 ;
03000
03100 TITLE INCH
03150 SEARCH MONSYM
03200 ENTRY INCH
03300 INCH: MOVEI 1,.PRIIN
03400 BIN
03550 DPB 2,[POINT 7,@0(16)]
03575 POPJ 17,
03600 END