home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / pdp8 / os278-src.tar.Z / os278-src.tar / cclrun.ma < prev    next >
Text File  |  1992-09-18  |  3KB  |  164 lines
  1. /CCLRUN  OS78 V4. ENABLE CCL
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14. /
  15. /
  16. /
  17. /COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
  18. /
  19. /
  20. /
  21. /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
  22. /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  23. /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  24. /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  25. /
  26. /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  27. /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  28. /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  29. /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  30. /
  31. /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  32. /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  33. /DIGITAL.
  34. /
  35. /
  36. /
  37.  
  38.  
  39. /VERSION=V3A (D.H.)
  40. /1    CCL RUN COMMAND
  41.  
  42.     .RSECT CCLRUN
  43.     FIELD 1
  44.  
  45.     .ENTRY MONFIX,MONRES
  46.     .EXTERNAL RDMON,PRMESG
  47.     .EXTERNAL F1,F2,LO1,LO2
  48.     .EXTERNAL YLOAD,YLOADER,YF4,YFORT
  49.     .EXTERNAL LOOK
  50.     .EXTERNAL BLK,IOERR
  51.     PRQMRK==1357
  52.     CCLBLK=67
  53.     DEASADR=427
  54.     CCLSW=435
  55.     GETCCL=1362
  56.     .EXTERNAL YCCL
  57.     OS78BIT=7771
  58.  
  59. MONFIX,    JMS I (RDMON
  60.     CDF 0
  61.     TAD I ZERO
  62.     TAD (-7607
  63.     SNA CLA
  64.     JMP I (CCER3    /ALWAYS WRITE OUT CCL BLOCK
  65.     CDF 10
  66.     CIF 0
  67.     JMS I L7607
  68.     4200        /WRITE 1 RECORD FROM FIELD 0
  69.     400        /LOCATIONS 400-777
  70.     CCLBLK        /INTO THE SYSTEM'S CCL BLOCK
  71.     JMP I (IOERR
  72.     CDF 0
  73.     TAD I (2000+CCLSW
  74.     TAD XXX
  75.     SNA
  76.     JMP OK$
  77.     TAD XXX2
  78.     SZA CLA
  79.     JMP I (CCER3
  80. /    CIF CDF 0
  81. /    JMP I L7605
  82. OK$:    TAD (GETCCL
  83.     DCA I (2000+CCLSW
  84.     STA
  85.     DCA I (2000+DEASADR    /DELETE DEASSIGN
  86.     JMS WRMON
  87.     IFZERO 1 <
  88.     JMS I (LOOK
  89.     YFORT        /LOOK FOR FORT.SV
  90.     TAD XXX3    /NOT FOUND, USE F4
  91.     TAD (YFORT    /FOUND USE IT
  92.     DCA I (F1
  93.     TAD I (F1
  94.     DCA I (F2
  95.     TAD I (F1
  96.     TAD MYFORT
  97.     SZA CLA
  98.     TAD XXX4
  99.     TAD (YLOADER
  100.     DCA I (LO1
  101.     TAD I (LO1
  102.     DCA I (LO2
  103.     JMS I (LOOK
  104.     YCCL
  105.     JMP I (IOERR    /CCL.SV NOT FOUND
  106.     TAD I (BLK
  107.     TAD (4        /*3400 IS 4TH BLOCK OF CCL NOT COUNTING CCB
  108.     DCA B$
  109.     CDF 10
  110.     CIF 0
  111.     JMS I (7607
  112.     4210        /WRITE 1 RECORD FROM FIELD 1
  113.     3400        /LOCS 3400-3777
  114. B$:    0
  115.     JMP I (IOERR
  116.     >
  117.     CIF CDF 0
  118.     JMP I (7605
  119.  
  120. XXX,    -PRQMRK
  121. XXX2,    PRQMRK-GETCCL
  122.     IFZERO 1 <
  123. MYFORT,    -YFORT
  124. XXX3,    YF4-YFORT
  125. XXX4,    YLOAD-YLOADER
  126.     >
  127. WRMON,    0
  128.     CDF 10
  129.     CIF 0
  130.     JMS I L7607
  131.     4200
  132.     2400
  133.     10
  134.     JMP I (IOERR
  135.     JMP I WRMON
  136.  
  137. ZERO,    0
  138. L7607,    7607
  139. MONRES,    0
  140.     CDF 0
  141.     TAD I (OS78BIT
  142.     CDF 10
  143.     AND (200
  144.     SZA CLA
  145.     JMP ERR
  146.     JMS I (RDMON
  147.     CDF 0
  148.     TAD (PRQMRK
  149.     DCA I (2000+CCLSW
  150.     TAD (-405
  151.     DCA I (2000+DEASADR
  152.     JMS WRMON
  153.     JMP I MONRES
  154.  
  155. ERR,    JMS I (PRMESG
  156.     .+1
  157.     TEXT    "#CCL IS THE CONCISE COMMAND LANGUAGE FOR OS/78"
  158. CCER3,    CDF 10
  159.     JMS I (PRMESG
  160.     BADMON
  161. BADMON,    TEXT    /#BAD MONITOR/
  162.     PAGE
  163.  
  164.