sw/os8/v3d/sources/devext/dectapes/dectape1/cclcdx.ma

   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