X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fos8%2Fv3d%2Fsources%2Fdevext%2Fdectapes%2Fdectape1%2Fcclrun.ma;fp=sw%2Fos8%2Fv3d%2Fsources%2Fdevext%2Fdectapes%2Fdectape1%2Fcclrun.ma;h=97761394db9c1fa5f003ead728a57b0e8a636754;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

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
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.
+/
+/
+/
+
+
+/VERSION=V3A (D.H.)
+/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
+	>
+WRMON,	0
+	CDF 10
+	CIF 0
+	JMS I L7607
+	4200
+	2400
+	10
+	JMP I (IOERR
+	JMP I WRMON
+
+ZERO,	0
+L7607,	7607
+MONRES,	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"
+CCER3,	CDF 10
+	JMS I (PRMESG
+	BADMON
+BADMON,	TEXT	/#BAD MONITOR/
+	PAGE
+