| 1 | / |
| 2 | / |
| 3 | / |
| 4 | /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION |
| 5 | / |
| 6 | / |
| 7 | / |
| 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. |
| 12 | / |
| 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. |
| 17 | / |
| 18 | /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE |
| 19 | /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY |
| 20 | /DIGITAL. |
| 21 | / |
| 22 | / |
| 23 | / |
| 24 | |
| 25 | \f |
| 26 | /VERSION=V3A (D.H.) |
| 27 | \f/1 CCL CD EXTENSION |
| 28 | .ENTRY POUND,NUMBER,EQLPRM,DNUMB |
| 29 | .EXTERNAL GCH |
| 30 | .EXTERNAL LV |
| 31 | MPARAM=7643 |
| 32 | T=20 |
| 33 | DELIM=32 |
| 34 | NAME1=23 |
| 35 | NAME2=24 |
| 36 | NAME3=25 |
| 37 | NAME4=26 |
| 38 | LXR=34 |
| 39 | .EXTERNAL PRMESG |
| 40 | \f .RSECT CCLCDX |
| 41 | FIELD 1 |
| 42 | |
| 43 | BADNUM, TEXT /#BAD NUMBER/ |
| 44 | |
| 45 | EQLPRM, 0 |
| 46 | DCA NUMFUJ |
| 47 | JMS NUMBER |
| 48 | DCA I (MPARAM+3 |
| 49 | CLA CLL CML RAR |
| 50 | AND I (MPARAM-1 /PRESERVE ALTMODE |
| 51 | TAD HIORD |
| 52 | DCA I (MPARAM-1 |
| 53 | JMP I EQLPRM |
| 54 | \fNUMBER, 0 |
| 55 | SZA CLA |
| 56 | TAD (<TAD NUM>-SKP |
| 57 | TAD (SKP |
| 58 | DCA NUMADD /SET NUMADD TO EITHER "SKP" OR "TAD NUM" |
| 59 | DCA HIORD |
| 60 | NUMLP, DCA NUM |
| 61 | JMS I (GCH |
| 62 | ISZ NUMKNT |
| 63 | SKP |
| 64 | JMP EONUM2 |
| 65 | CMA |
| 66 | TAD NUMFUJ |
| 67 | TAD ("8 /TEST INPUT CHARACTER FOR RANGE |
| 68 | CLL CMA /0-7 IF NUMFUJ=0 |
| 69 | TAD (10 /0-9 IF NUMFUJ=2 |
| 70 | TAD NUMFUJ |
| 71 | SNL |
| 72 | JMP EONUM |
| 73 | DCA T |
| 74 | CLA CLL CMA RTL |
| 75 | DCA DELIM |
| 76 | TAD NUM |
| 77 | ROTLP, CLL RAL |
| 78 | DCA NUMX |
| 79 | TAD HIORD |
| 80 | RAL |
| 81 | NUMSKP, SPA /MODIFIED BY # |
| 82 | JMP CDER5 |
| 83 | DCA HIORD |
| 84 | TAD NUMX |
| 85 | ISZ DELIM |
| 86 | JMP ROTLP |
| 87 | NUMADD, TAD NUM /SKP IF OCTAL |
| 88 | TAD NUM |
| 89 | TAD T |
| 90 | JMP NUMLP |
| 91 | EONUM, TAD ("0 |
| 92 | EONUM2, DCA DELIM |
| 93 | TAD NUMKNT |
| 94 | SPA CLA |
| 95 | JMP CDER5 /FEWER THAN CORRECT NUMBER OF DIGITS |
| 96 | TAD NUM |
| 97 | JMP I NUMBER |
| 98 | |
| 99 | NUM, 0 |
| 100 | NUMFUJ, 0 |
| 101 | NUMKNT, 0 /SET TO -N-1 TO FORCE N DIGITS |
| 102 | HIORD, 0 |
| 103 | NUMX, 0 |
| 104 | \fDNUMB, 0 |
| 105 | CLA CLL CML RTL |
| 106 | DCA NUMFUJ /SET "NUMBER" TO ACCEPT |
| 107 | /DIGITS 8 AND 9 |
| 108 | STA /ALLOW DECIMAL |
| 109 | JMS NUMBER |
| 110 | JMP I DNUMB |
| 111 | \fCDER5, JMS I (PRMESG |
| 112 | BADNUM |
| 113 | POUND, 0 /USED AS FLAG INDICATING SAW # |
| 114 | TAD (SKP |
| 115 | DCA NUMSKP |
| 116 | TAD (-11 |
| 117 | DCA NUMKNT |
| 118 | JMS NUMBER |
| 119 | DCA NAME2 |
| 120 | TAD HIORD |
| 121 | DCA NAME1 |
| 122 | STA |
| 123 | TAD LXR |
| 124 | DCA LXR |
| 125 | TAD (-11 |
| 126 | DCA NUMKNT |
| 127 | JMS NUMBER |
| 128 | DCA NAME4 |
| 129 | TAD HIORD |
| 130 | DCA NAME3 |
| 131 | TAD (SPA |
| 132 | DCA NUMSKP |
| 133 | JMP I (LV |
| 134 | PAGE |