sw/os8/v3d/sources/system/dectapes/dectape3/L645.PA

   1 /1 ANALEX LINE PRINTER HANDLER
   2 /
   3 /
   4 /
   5 /
   6 /
   7 /
   8 /
   9 /
  10 /
  11 /COPYRIGHT  (C)  1974,1975 BY DIGITAL EQUIPMENT CORPORATION
  12 /
  13 /
  14 /
  15 /
  16 /
  17 /
  18 /
  19 /
  20 /
  21 /
  22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
  23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  24 /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  26 /
  27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  31 /
  32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  34 /DIGITAL.
  35 /
  36 /
  37 /
  38 /
  39 /
  40 /
  41 /
  42 /
  43 /
  44 /
  45         *0
  46         -1
  47 DEVICE L645;DEVICE LPT;1040;0;ZBLOCK 2
  48
  49 /V3 FIXES:
  50
  51 /1.     ADDED VERSION NUMBER
  52 /2.     ADDED PARITY ^C
  53 /3.     ALLOWED ^C TO WORK EVEN IF LPT OFF
  54 /       S.R.
  55
  56         LPTVERSION="A&77
  57
  58         *200
  59         /LINE PRINTER HANDLER FOR "OLD STYLE" LINE PRINTER
  60         /RECOGNIZES TAB,LINE FEED,VERTICAL TAB AND FORM FEED
  61         /IGNORES CARRIAGE RETURNS, TREATS ^N AS "CARRIAGE RETURN
  62         / WITHOUT LINE FEED" CONTROL CHARACTER.
  63         LSE=6651
  64         LCF=6652
  65         LLB=6654
  66         LSD=6661
  67         LCB=6662
  68         LPR=6664
  69 LPT,    LPTVERSION
  70 LP7700, 7700
  71 LPT11,  11      /FALLS THROUGH HARMLESSLY, CLEARING THE AC
  72 LPT214, RDF
  73         TAD LPTCIF
  74         DCA LPTXIT
  75         TAD I LPT
  76         AND LPT70
  77         TAD LP6201
  78         DCA LPTCDF
  79         CLA CLL CML RAR
  80         TAD I LPT       /LINK IS NOW 1 IF COMMAND WAS A "WRITE"
  81         AND LP7700
  82         CMA
  83         DCA LPTWC       /LPTWC=WORD COUNT/2
  84         ISZ LPT
  85         TAD I LPT
  86         DCA LPTCA
  87         ISZ LPT
  88         TAD I LPT
  89         ISZ LPT
  90         SNL
  91         JMP LPTERR
  92         SZA CLA
  93         JMP LPTCDF
  94         LCB
  95         JMS LPWAIT
  96         TAD LPT214
  97         JMS LPTPCH      /FORM FEED, INITIALIZES COUNT
  98 LPTCDF, HLT
  99         JMP LPT7
 100 LPTLP,  TAD I LPTCA
 101         JMS LPTPCH
 102         TAD I LPTCA
 103         AND LP7400
 104         DCA LPTTMP
 105         ISZ LPTCA
 106 LP7400, 7400
 107         TAD I LPTCA
 108         JMS LPTPCH
 109         TAD I LPTCA
 110         AND LP7400
 111         CLL RTR
 112         RTR
 113         TAD LPTTMP
 114         RTR
 115         RTR
 116         JMS LPTPCH
 117         ISZ LPTCA
 118 LPT7,   7
 119         ISZ LPTWC
 120         JMP LPTLP
 121 LPTRTN, ISZ LPT
 122 LPTXIT, HLT
 123         JMP I LPT
 124 LPTWC,  0
 125 LPTCA,  0
 126 LPTPCH, 0
 127         AND LPT177
 128         SZA
 129         TAD LPM140
 130         SMA
 131         JMP I LPTPCH
 132         TAD LPT106
 133         SNA
 134         JMP LPTCTZ
 135         TAD LPT13
 136         CLL
 137         TAD LPT6
 138         SZL SNA
 139         JMP LPTCTL
 140         TAD LPT11
 141         LLB
 142         JMP LPTKSF
 143 LPWAIT, -1
 144 WEIGHT, LSD
 145         JMP NOTDON
 146         LCF
 147         ISZ LPLPTR
 148         JMP I LPWAIT
 149         CLA IAC
 150 LPTCTL, SNA
 151         JMP LPTTAB
 152         TAD LPTTAD
 153         DCA LPTXXX
 154         TAD LP7607
 155         DCA LPLPTR
 156 LPTXXX, HLT
 157         SNA
 158         JMP .+3
 159         LPR
 160 LPTKSF, JMS LPWAIT
 161         JMP I LPTPCH
 162 NOTDON, KRS
 163         AND LPT177
 164         TAD LPM3
 165         SNA CLA
 166         KSF
 167         JMP WEIGHT
 168 LPTCIF, CDF CIF 0
 169         JMP I .+1
 170         7600
 171 LPTCTZ, TAD LPT214
 172         JMS LPTPCH
 173         JMP LPTRTN
 174 LPT6,   6
 175 LPTTAB, TAD LPT40
 176         LLB
 177         JMS LPWAIT
 178         TAD LPLPTR
 179         AND LPT7
 180 LPM140, SZA CLA
 181         JMP LPTTAB
 182         JMP I LPTPCH
 183 LPTERR, CLA CLL CML RAR
 184         JMP LPTXIT
 185 LPTTAD, TAD .
 186 LPT70,  70      /LF
 187 LPT13,  13      /VT
 188 LPT177, 177     /FF
 189         0       /CR
 190 LPT40,  40      /CR, NO LF
 191 LPM3,   -3
 192 LPT106, 106
 193 LP7607, 7607
 194 LP6201, CDF 0
 195 LPTTMP, 0
 196 LPLPTR, 0
 197         $
 198 \f