home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / pdp8 / pdp-8 / fromnichols / os8v3f.exe / CCLRUN.MA < prev    next >
Text File  |  1995-07-27  |  3KB  |  151 lines
  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.  
  26. /VERSION=V3A (D.H.)
  27. /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. WRMON,    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. MONRES,    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. CCER3,    CDF 10
  146.     JMS I (PRMESG
  147.     BADMON
  148. BADMON,    TEXT    /#BAD MONITOR/
  149.     PAGE
  150.  
  151.