4 /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
8 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
9 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
10 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
11 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
13 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
14 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
15 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
16 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
18 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
19 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
28 .ENTRY POUND,NUMBER,EQLPRM,DNUMB
43 BADNUM, TEXT /#BAD NUMBER/
50 AND I (MPARAM-1 /PRESERVE ALTMODE
58 DCA NUMADD /SET NUMADD TO EITHER "SKP" OR "TAD NUM"
67 TAD ("8 /TEST INPUT CHARACTER FOR RANGE
68 CLL CMA /0-7 IF NUMFUJ=0
69 TAD (10 /0-9 IF NUMFUJ=2
81 NUMSKP, SPA /MODIFIED BY #
87 NUMADD, TAD NUM /SKP IF OCTAL
95 JMP CDER5 /FEWER THAN CORRECT NUMBER OF DIGITS
101 NUMKNT, 0 /SET TO -N-1 TO FORCE N DIGITS
106 DCA NUMFUJ /SET "NUMBER" TO ACCEPT
111 \fCDER5, JMS I (PRMESG
113 POUND, 0 /USED AS FLAG INDICATING SAW #