sw/os8/v3d/sources/devext/dectapes/dectape1/cclrun.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 RUN COMMAND
  28
  29         .RSECT CCLRUN
  30         FIELD 1
  31
  32         .ENTRY MONFIX,MONRES
  33         .EXTERNAL RDMON,PRMESG
  34         .EXTERNAL F1,F2,LO1,LO2
  35         .EXTERNAL YLOAD,YLOADER,YF4,YFORT
  36         .EXTERNAL LOOK
  37         .EXTERNAL BLK,IOERR
  38         PRQMRK==1357
  39         CCLBLK=67
  40         DEASADR=427
  41         CCLSW=435
  42         GETCCL=1362
  43         .EXTERNAL YCCL
  44         OS78BIT=7771
  45
  46 MONFIX, JMS I (RDMON
  47         CDF 0
  48         TAD I ZERO
  49         TAD (-7607
  50         SNA CLA
  51         JMP I (CCER3    /ALWAYS WRITE OUT CCL BLOCK
  52         CDF 10
  53         CIF 0
  54         JMS I L7607
  55         4200            /WRITE 1 RECORD FROM FIELD 0
  56         400             /LOCATIONS 400-777
  57         CCLBLK          /INTO THE SYSTEM'S CCL BLOCK
  58         JMP I (IOERR
  59         CDF 0
  60         TAD I (2000+CCLSW
  61         TAD XXX
  62         SNA
  63         JMP OK$
  64         TAD XXX2
  65         SZA CLA
  66         JMP I (CCER3
  67 /       CIF CDF 0
  68 /       JMP I L7605
  69 OK$:    TAD (GETCCL
  70         DCA I (2000+CCLSW
  71         STA
  72         DCA I (2000+DEASADR     /DELETE DEASSIGN
  73         JMS WRMON
  74         IFZERO 1 <
  75         JMS I (LOOK
  76         YFORT           /LOOK FOR FORT.SV
  77         TAD XXX3        /NOT FOUND, USE F4
  78         TAD (YFORT      /FOUND USE IT
  79         DCA I (F1
  80         TAD I (F1
  81         DCA I (F2
  82         TAD I (F1
  83         TAD MYFORT
  84         SZA CLA
  85         TAD XXX4
  86         TAD (YLOADER
  87         DCA I (LO1
  88         TAD I (LO1
  89         DCA I (LO2
  90         JMS I (LOOK
  91         YCCL
  92         JMP I (IOERR    /CCL.SV NOT FOUND
  93         TAD I (BLK
  94         TAD (4          /*3400 IS 4TH BLOCK OF CCL NOT COUNTING CCB
  95         DCA B$
  96         CDF 10
  97         CIF 0
  98         JMS I (7607
  99         4210            /WRITE 1 RECORD FROM FIELD 1
 100         3400            /LOCS 3400-3777
 101 B$:     0
 102         JMP I (IOERR
 103         >
 104         CIF CDF 0
 105         JMP I (7605
 106
 107 XXX,    -PRQMRK
 108 XXX2,   PRQMRK-GETCCL
 109         IFZERO 1 <
 110 MYFORT, -YFORT
 111 XXX3,   YF4-YFORT
 112 XXX4,   YLOAD-YLOADER
 113         >
 114 \fWRMON, 0
 115         CDF 10
 116         CIF 0
 117         JMS I L7607
 118         4200
 119         2400
 120         10
 121         JMP I (IOERR
 122         JMP I WRMON
 123
 124 ZERO,   0
 125 L7607,  7607
 126 \fMONRES,        0
 127         CDF 0
 128         TAD I (OS78BIT
 129         CDF 10
 130         AND (200
 131         SZA CLA
 132         JMP ERR
 133         JMS I (RDMON
 134         CDF 0
 135         TAD (PRQMRK
 136         DCA I (2000+CCLSW
 137         TAD (-405
 138         DCA I (2000+DEASADR
 139         JMS WRMON
 140         JMP I MONRES
 141
 142 ERR,    JMS I (PRMESG
 143         .+1
 144         TEXT    "#CCL IS THE CONCISE COMMAND LANGUAGE FOR OS/78"
 145 \fCCER3, CDF 10
 146         JMS I (PRMESG
 147         BADMON
 148 BADMON, TEXT    /#BAD MONITOR/
 149         PAGE
 150 \f