File CCLRUN.MA (MACREL macro assembler source file)

Directory of image this file is from
This file as a plain text file

/
/
/
/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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search