A large commit.

[pdp8.git] / sw / os8 / v3d / sources / devext / dectapes / dectape1 / cclrun.ma

diff --git a/sw/os8/v3d/sources/devext/dectapes/dectape1/cclrun.ma b/sw/os8/v3d/sources/devext/dectapes/dectape1/cclrun.ma
new file mode 100644 (file)
index 0000000..9776139
--- /dev/null
+++ b/sw/os8/v3d/sources/devext/dectapes/dectape1/cclrun.ma
@@ -0,0 +1,150 @@
+/
+/
+/
+/COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
+/
+/
+/
+/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
+/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
+/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
+/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
+/
+/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
+/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
+/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
+/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
+/
+/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
+/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
+/DIGITAL.
+/
+/
+/
+
+\f
+/VERSION=V3A (D.H.)
+\f/1    CCL RUN COMMAND
+
+       .RSECT CCLRUN
+       FIELD 1
+
+       .ENTRY MONFIX,MONRES
+       .EXTERNAL RDMON,PRMESG
+       .EXTERNAL F1,F2,LO1,LO2
+       .EXTERNAL YLOAD,YLOADER,YF4,YFORT
+       .EXTERNAL LOOK
+       .EXTERNAL BLK,IOERR
+       PRQMRK==1357
+       CCLBLK=67
+       DEASADR=427
+       CCLSW=435
+       GETCCL=1362
+       .EXTERNAL YCCL
+       OS78BIT=7771
+
+MONFIX,        JMS I (RDMON
+       CDF 0
+       TAD I ZERO
+       TAD (-7607
+       SNA CLA
+       JMP I (CCER3    /ALWAYS WRITE OUT CCL BLOCK
+       CDF 10
+       CIF 0
+       JMS I L7607
+       4200            /WRITE 1 RECORD FROM FIELD 0
+       400             /LOCATIONS 400-777
+       CCLBLK          /INTO THE SYSTEM'S CCL BLOCK
+       JMP I (IOERR
+       CDF 0
+       TAD I (2000+CCLSW
+       TAD XXX
+       SNA
+       JMP OK$
+       TAD XXX2
+       SZA CLA
+       JMP I (CCER3
+/      CIF CDF 0
+/      JMP I L7605
+OK$:   TAD (GETCCL
+       DCA I (2000+CCLSW
+       STA
+       DCA I (2000+DEASADR     /DELETE DEASSIGN
+       JMS WRMON
+       IFZERO 1 <
+       JMS I (LOOK
+       YFORT           /LOOK FOR FORT.SV
+       TAD XXX3        /NOT FOUND, USE F4
+       TAD (YFORT      /FOUND USE IT
+       DCA I (F1
+       TAD I (F1
+       DCA I (F2
+       TAD I (F1
+       TAD MYFORT
+       SZA CLA
+       TAD XXX4
+       TAD (YLOADER
+       DCA I (LO1
+       TAD I (LO1
+       DCA I (LO2
+       JMS I (LOOK
+       YCCL
+       JMP I (IOERR    /CCL.SV NOT FOUND
+       TAD I (BLK
+       TAD (4          /*3400 IS 4TH BLOCK OF CCL NOT COUNTING CCB
+       DCA B$
+       CDF 10
+       CIF 0
+       JMS I (7607
+       4210            /WRITE 1 RECORD FROM FIELD 1
+       3400            /LOCS 3400-3777
+B$:    0
+       JMP I (IOERR
+       >
+       CIF CDF 0
+       JMP I (7605
+
+XXX,   -PRQMRK
+XXX2,  PRQMRK-GETCCL
+       IFZERO 1 <
+MYFORT,        -YFORT
+XXX3,  YF4-YFORT
+XXX4,  YLOAD-YLOADER
+       >
+\fWRMON,        0
+       CDF 10
+       CIF 0
+       JMS I L7607
+       4200
+       2400
+       10
+       JMP I (IOERR
+       JMP I WRMON
+
+ZERO,  0
+L7607, 7607
+\fMONRES,       0
+       CDF 0
+       TAD I (OS78BIT
+       CDF 10
+       AND (200
+       SZA CLA
+       JMP ERR
+       JMS I (RDMON
+       CDF 0
+       TAD (PRQMRK
+       DCA I (2000+CCLSW
+       TAD (-405
+       DCA I (2000+DEASADR
+       JMS WRMON
+       JMP I MONRES
+
+ERR,   JMS I (PRMESG
+       .+1
+       TEXT    "#CCL IS THE CONCISE COMMAND LANGUAGE FOR OS/78"
+\fCCER3,        CDF 10
+       JMS I (PRMESG
+       BADMON
+BADMON,        TEXT    /#BAD MONITOR/
+       PAGE
+\f