A large commit.

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

diff --git a/sw/os8/v3d/sources/devext/dectapes/dectape1/cclsb2.ma b/sw/os8/v3d/sources/devext/dectapes/dectape1/cclsb2.ma
new file mode 100644 (file)
index 0000000..746ed3e
--- /dev/null
+++ b/sw/os8/v3d/sources/devext/dectapes/dectape1/cclsb2.ma
@@ -0,0 +1,155 @@
+/
+/
+/
+/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/2    CCL SUBROUTINES PART 2
+       .ENTRY TRMSUB,REQSUB,CANSUB
+       OS78BIT=7771
+       .EXTERNAL PRMESG,LOOK,CHAIN,YTERMIN,PRINT,LEAVE
+
+       .RSECT CCLSB2
+       FIELD 1
+       .SBTTL TERMINATE COMMAND
+
+TRMSUB,        0
+       CDF 0
+       TAD I (OS78BIT
+       CDF 10
+       AND (200
+       SNA CLA
+       JMP I TRMSUB    /BACKSPACE, NOT TERMINATE
+       JMS I (LOOK     /LOOKUP TERMIN.SV
+       YTERMIN
+       SKP CLA
+       JMP I (CHAIN
+       6073
+       6002
+       CLA STL RAR     /JUST IN CASE WE'RE NOT ON A VT-78
+       JMS I (PRINT
+       BADEV
+       JMP I (LEAVE
+\fCANSUB,       0
+       TAD I (7726
+       AND (4
+       SNA CLA
+       JMP FOO4
+       TAD I (7726
+       AND (7773
+       DCA I (7726     /TURN OFF SYMBIONT BIT
+       CDF 0
+       TAD I (7777
+       RTL
+       SZL CLA
+       JMP 3$
+       TAD I (7777
+       AND (7707
+       DCA I (7777
+3$:    CDF 10
+       STL CLA RAR
+       JMS I (PRINT
+       OFFMSG
+       STL CLA RAR
+       JMS I (PRINT
+       ME2MSG
+       CIF CDF 30
+       JMP I (3        /GO TO MAGIC SPOT IN SYMBIONT LAND
+
+FOO3,  STL CLA RAR
+       JMS I (PRINT
+       ALRACT
+       JMP I (LEAVE
+FOO4,  STL CLA RAR
+       JMS I (PRINT
+       NOTACT
+       JMP I (LEAVE
+       PAGE
+\f      .SBTTL REQUEST COMMAND
+
+REQSUB,        0
+       TAD I (7617
+       AND (17
+       TAD (7647-1
+       DCA T
+       TAD I T
+       TAD (-7607
+       SZA CLA
+       JMP FOO         /*** FILE NOT ON SYS:
+       TAD I (7620
+       DCA BLK
+       CDF 0
+       TAD I (7777
+       AND (70
+       TAD (-20
+       SNA CLA
+       JMP 1$
+       RTL
+       SZL CLA
+       JMP FOO2
+       TAD I (7777
+       AND (7707
+       TAD (20
+       DCA I (7777
+1$:    CDF 10
+       TAD I (7726
+       AND (4
+       SZA CLA
+       JMP FOO3
+       TAD I (7726
+       AND (7773
+       TAD (4
+       DCA I (7726
+       STL CLA RAR
+       JMS I (PRINT
+       ONMSG
+       STL CLA RAR
+       JMS I (PRINT
+       MEMMSG
+       JMS I (200      /CHAIN TO IT
+       6
+BLK,   0
+
+T,     0
+\fFOO,  STL CLA RAR
+       JMS I (PRINT
+       SYSMSG
+       JMP I (LEAVE
+
+FOO2,  CDF 10
+       STL CLA RAR
+       JMS I (PRINT
+       BATMSG
+       JMP I (LEAVE
+       PAGE
+\f      .ENABLE ASCII
+SYSMSG,        TEXT    "#Symbiont must be on SYS:"
+BATMSG,        TEXT    "#Cannot start symbiont from BATCH"
+ONMSG, TEXT    "[Starting symbiont]"
+BADEV, TEXT    "#Illegal OS/8 command"
+OFFMSG,        TEXT    "[Shutting down symbiont]"
+NOTACT,        TEXT    "%No symbiont is active"
+ALRACT,        TEXT    "#Request denied - symbiont already running"
+MEMMSG,        TEXT    "[12K Memory]"
+ME2MSG,        TEXT    "[16K Memory]
+       .ENABLE SIXBIT