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

diff --git a/sw/os8/v3d/sources/devext/dectapes/dectape1/ccltbl.ma b/sw/os8/v3d/sources/devext/dectapes/dectape1/ccltbl.ma
new file mode 100644
index 0000000..ad55854
--- /dev/null
+++ b/sw/os8/v3d/sources/devext/dectapes/dectape1/ccltbl.ma
@@ -0,0 +1,571 @@
+/
+/
+/
+/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.)
+/10	CCL INTERNAL TABLES FOR OS/78
+
+	.NOLIST ME
+	.GLOBAL EXTCM
+	.GLOBAL YBATCH,YDATE,YTERMIN
+	.GLOBAL F1,F2,LO1,LO2
+	.EXTERNAL SETLPT,SETTTY,SETPTP,COLSET
+	.EXTERNAL TECSUB,MAKSUB,MNGSUB
+	.EXTERNAL YF4,YLOAD
+	.EXTERNAL USRSUB,REQSUB,CANSUB
+	.EXTERNAL MOVRT,KILRT,RENRT
+	.EXTERNAL EXSUB
+	.EXTERNAL TRMSUB,BASUB,MONRES,DETCOR,DATE,DEASSIGN,SQSUB,VERTN,ZERSUB
+	.EXTERNAL YAT
+	.EXTERNAL CRSUB,EDSUB
+	.DSECT PTBL
+	FIELD 0
+	.ASECT SWS
+	*7300
+	.ASECT LONGS
+	*5000
+
+	.MACRO .BOX COM,SPACES,STARS
+	LEN=.NCHARS COM
+	.PUSH .LISTWD
+	L1=LEN+4
+	L2=LEN+2
+	;.LIST ME
+
+/	STARS[1:L1]
+/	*SPACES[1:L2]*
+/	* COM *
+/	*SPACES[1:L2]*
+/	STARS[1:L1]
+	.POP .LISTWD
+	EJECT CCL COMMANDS
+	.ENDM .BOX
+
+	.MACRO .EXT
+	.ENDM
+	.MACRO .CMD COMAND,ABBREV,CODE,EXTEN,SWITCH,SUBR,PROGRM,LABEL
+	.BOX	COMAND,"                ","****************"
+	.SBTTL COMAND
+	..=.
+	.DSECT PTBL
+	;..
+	.SECT *
+X'ABBREV,	CODE
+	IFNZRO CODE&4000 <
+	;EXTEN
+	.IF NBL SWITCH[1]<
+	XX="SWITCH[1]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
+	QQ=1
+	.REPT 12.-ZZ&17
+	QQ=QQ^2
+	.ENDR
+	;QQ>
+	.IF NBL SWITCH[2]<
+	XX="SWITCH[2]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
+	QQ=1
+	.REPT 12.-ZZ&17
+	QQ=QQ^2
+	.ENDR
+	;QQ>
+	;0
+	.ASECT SWS
+	..=.
+	.SECT *
+	.IF BL LABEL <;.. >		/REMOVE IF DON'T WANT MULTIPLE CHARACTER SWITCHES
+	.IF NB LABEL <;LABEL>
+	;SUBR
+	.IF NB PROGRM<
+	;Y'PROGRM>
+	.IF BL PROGRM<
+	;0>
+	>
+	IFZERO CODE&4000 <
+	;EXTEN
+	.IF NB SWITCH<
+	;Y'SWITCH>
+	.IF BL SWITCH<
+	;0>
+	>
+	.ENDM
+	.MACRO .QUAL LONG,SHORT,NAME
+	.ASECT LONGS
+	..=.
+	;TEXT	"LONG[1:6]";"SHORT
+	.SECT *
+	.ASECT SWS
+	.IF NB NAME <NAME=.>
+	;..
+	.SECT *
+	.ENDM
+	.MACRO .ENDQ
+	.ASECT SWS
+	;0
+	.SECT *
+	EJECT CCL COMMANDS
+	.ENDM
+	.ASECT TABLES
+	FIELD 0
+	*6200
+	.CMD	EXECUTE,EX,5033,	EXTEXE,	G,	EXSUB,	PAL8	/MUST BE FIRST FOR TECO EG
+	.ENDQ
+	.CMD	BACKSPACE,BA,0,				TRMSUB,	CAMP
+	.ENDQ
+	.CMD	BASIC,BAS,0,				BASUB,	BASIC
+	.ENDQ
+	.CMD	DUPLIC,DU,4001,	STAR,	,		0,	RXCOP
+	.QUAL	NOCOPY,M
+	.QUAL	NOMATCH,N
+	.QUAL	PAUSE,P
+	.QUAL	READONLY,R
+	.QUAL	VERSION,V
+	.ENDQ
+	.CMD	BOOT,BO,0,				0,	BOOT
+	.ENDQ
+	.CMD	CCL,CCL,0,				MONRES,	
+	.ENDQ
+	.CMD	COMPARE,COMPA,4001,	EXTNUL,	,		SETTTY,	SRCCOM
+	.QUAL	NOCOMMENTS,C
+	.QUAL	NOSPACES,S
+	.QUAL	TABS,T
+	.QUAL	BLANKS,B
+	.QUAL	NOPRINTCOMMENTS,X
+	.ENDQ
+	.CMD	COM,COM,5033,	EXTCOM,	,		EXSUB,	PAL8
+	.QUAL	NOISN,N
+	.QUAL	OPTIMIZE,Q
+	.QUAL	GO,G
+	.ENDQ
+	.CMD	COPY,COP,4001,	STAR,	L,	MOVRT,	FOTP
+	.QUAL	NOCOPY,D
+	.QUAL	NOPREDELETE,N
+	.QUAL	RENAME,R
+	.QUAL	FAILSAFE,F
+	.QUAL	CURRENT,C,LSTOPT
+	.QUAL	LOG,L
+	.QUAL	OTHER,O
+	.QUAL	QUERY,Q
+	.QUAL	INQUIRE,Q
+	.QUAL	INSPECT,Q
+	.QUAL	TODAY,T
+	.QUAL	UGLY,U
+	.QUAL	INDEPENDENTLY,U
+	.QUAL	INVERT,V
+	.QUAL	EXCEPT,V
+	.QUAL	VERSION,W
+	.QUAL	V,V
+	.ENDQ
+	.CMD	MEMORY,MEM,0,				DETCOR,	
+	.ENDQ
+	.CMD	CREATE,CREA,4400,	EXTNUL,	,		CRSUB,	EDIT
+	.QUAL	SPACES,B
+	.ENDQ
+	.CMD	CREF,CREF,4002,	EXTCF,	C,	0,	PAL8
+	.QUAL	NOLIST,P
+	.QUAL	NOSYMTAB,U
+	.QUAL	RALF,R
+	.QUAL	SABR,S
+	.QUAL	NOLITERALS,X
+	.QUAL	KEEP,E
+	.QUAL	MAMMOTH,M
+	.QUAL	MOBY,M
+	.ENDQ
+	.CMD	DATE,DA,0,				DATE,	
+	.ENDQ
+	.CMD	DELETE,DEL,4001,	STAR,	LD,	KILRT,	FOTP,LSTOPT
+	.CMD	DEASSIGN,DE,0,				DEASSIG,
+	.ENDQ
+	.CMD	DIRECT,DIR,4001,	STAR,	,COLSET,	DIRECT
+	.QUAL	BLOCKS,B
+	.QUAL	CURRENT,C
+	.QUAL	EXTENDED,E
+	.QUAL	FAST,F
+	.QUAL	BRIEF,F
+	.QUAL	ADDITIONAL,I
+	.QUAL	EMPTIES,M
+	.QUAL	FREE,M
+/	.QUAL	INDEPENDENTLY,U
+	.QUAL	OTHER,O
+	.QUAL	REMAINDER,R
+	.QUAL	UGLY,U
+	.QUAL	INVERT,V
+	.QUAL	EXCEPT,V
+	.QUAL	VERSION,W
+	.QUAL	V,V
+	.QUAL	COLUMNS,Z	/DUMMY
+	.ENDQ
+	.CMD	EDIT,ED,5220,	EXTNUL,	,		EDSUB,	EDIT
+	.QUAL	SPACES,B
+	.QUAL	PREDELETE,D
+	.QUAL	DELETE,D
+	.ENDQ
+/	.CMD	EOF,EO,0,				0,	CAMP
+/	.ENDQ
+	.CMD	HELP,HE,4001,	STAR,	T,	SETTTY,	HELP
+	.ENDQ
+	.CMD	LINK,LIN,5033,	EXTLI,	,		EXSUB,	LINK
+	.QUAL	GO,G
+	.QUAL	HALTS,H
+	.QUAL	JUMPS,J
+	.QUAL	JMPS,J
+	.QUAL	CORE,K
+	.QUAL	MEMORY,K
+	.QUAL	VERSION,V
+	.QUAL	START,S
+	.QUAL	JSW,W
+	.QUAL	M,M
+	.ENDQ
+	.CMD	MAC,MAC,5033,	EXTMA,	,		EXSUB,	MACREL
+	.QUAL	BLOCK,B
+	.QUAL	HEADING,B
+	.QUAL	HDR,B
+	.QUAL	CREF,C
+	.QUAL	KREF,C
+	.QUAL	GO,G
+	.QUAL	NOCONDITIONALS,J
+	.QUAL	LINK,L
+	.QUAL	PERM,M
+	.QUAL	NOLIST,N
+	.QUAL	OMIT,O
+	.QUAL	NOMACROS,O
+	.QUAL	RESET,P
+	.QUAL	EAE,Q
+	.QUAL	REMOVE,R
+	.QUAL	REDUNDANT,R
+	.QUAL	DESTROY,Z
+	.QUAL	NOBATCH,Z
+	.QUAL	EXTENDED,X
+	.QUAL	K,K
+	.QUAL	P,P
+	.ENDQ
+	.CMD	LIST,LI,4001,	STAR,	U,	SETLPT,	FOTP,LSTOPT
+	.CMD	LOAD,LO,5031,	EXTLO,	,		EXSUB,	ABSLDR
+	.QUAL	IMAGE,I
+	.QUAL	MULTIPLE,S
+	.QUAL	SLURP,S
+	.QUAL	GO,G
+/	/8	/9	/START:N	/FIELD:F	/P
+	.ENDQ
+	.CMD	MAKE,MAK,0,				MAKSUB,	TECO
+	.ENDQ
+	.CMD	MAP,MAP,4001,	EXTBN,	,		SETTTY,	BITMAP
+	.QUAL	MULTIPLE,S
+	.QUAL	SLURP,S
+	.QUAL	INVERT,T
+/	FIELD:N
+	.ENDQ
+	.CMD	MUNG,MUNG,0,				MNGSUB,	TECO
+	.ENDQ
+	.CMD	PAL,PAL,5033,	EXTPA,	,		EXSUB,	PAL8
+	.QUAL	SHIFT,B
+	.QUAL	CREF,C
+	.QUAL	DDT,D
+	.QUAL	NOLINKS,E
+	.QUAL	NOFILL,F
+	.QUAL	GO,G
+	.QUAL	NONPAGINATED,H
+	.QUAL	NOCONDITIONALS,J
+	.QUAL	LOAD,L
+	.QUAL	NOLIST,N
+	.QUAL	NOORIG,O
+	.QUAL	NOSYMTAB,S
+	.QUAL	NOREMEMBERLITERALS,W
+	.QUAL	WIDE,7
+	.QUAL	W,W
+	.ENDQ
+/	/K	/T
+	.CMD	PRINT,PRI,4000,	STAR,	,		SETLPT,	LPTSPL
+	.ENDQ
+	.CMD	PUNCH,PU,4001,	EXTNUL,	,		SETPTP,	PIP
+/	.QUAL	ASCII,A
+/	.QUAL	BINARY,B
+/	.QUAL	ELIMINATE,C
+/	.QUAL	PREDELETE,D
+/	.QUAL	DELETE,D
+/	.QUAL	IGNORE,G
+/	.QUAL	IMAGE,I
+/	.QUAL	TABS,T
+/	.QUAL	VERSION,V
+/	.QUAL	V,V
+	.ENDQ
+	.CMD	RENAME,REN,4001,	STAR,	LR,RENRT,FOTP,LSTOPT
+	.CMD	RESOURCES,RES,4001,	EXTSY,	,		SETTTY,	RESORC
+	.QUAL	DETAILED,E
+	.QUAL	EXTENDED,E
+	.QUAL	BRIEF,F
+	.QUAL	FAST,F
+	.ENDQ
+/	.CMD	REWIND,REW,0,				0,	CAMP
+/	.ENDQ
+	.CMD	CANCEL,CA,0,CANSUB,
+	.ENDQ
+	.CMD	SET,SET,0,				0,	SET
+	.ENDQ
+	.CMD	SKIP,SK,0,				0,	CAMP
+	.ENDQ
+	.CMD	SQUISH,SQ,4001,	EXTNUL,	S,	SQSUB,	PIP
+	.QUAL	OK,O
+	.QUAL	NOCONFIRM,O
+	.ENDQ
+	.CMD	SUBMIT,SU,4000,	EXTBI,	,		0,	BATCH
+	.QUAL	CARDS,C
+	.QUAL	NONFATAL,E
+	.QUAL	PAPERTAPE,P
+	.QUAL	QUIET,Q
+	.QUAL	HUSH,H
+	.QUAL	TERMINAL,T
+	.QUAL	TTY,T
+	.QUAL	UNATTENDED,U
+	.QUAL	VERSION,V
+	.QUAL	026,6
+	.ENDQ
+	.CMD	TECO,TE,10,				TECSUB,	TECO
+	.ENDQ
+	.CMD	TYPE,TY,4001,	STAR,	U,	SETTTY,	FOTP,LSTOPT
+/	.CMD	UNLOAD,UN,0,				0,	CAMP
+/	.ENDQ
+	.CMD	REQUEST,REQ,4000,EXTSV,,REQSUB,
+	.ENDQ
+	.CMD	QUEUE,Q,4000,STAR,,0,QUEUE
+	.QUAL	LIST,L
+	.QUAL	KILL,K
+	.QUAL	STOP,S
+	.QUAL	GO,G
+	.QUAL	START,G
+	.QUAL	NOH,H
+	.QUAL	DELETE,D
+	.QUAL	COPIES,C
+	.ENDQ
+	.CMD	UA,UA,40,				USRSUB,	
+	.ENDQ
+	.CMD	UB,UB,50,				USRSUB,	
+	.ENDQ
+	.CMD	UC,UC,60,				USRSUB,	
+	.ENDQ
+	.CMD	VERSION,VE,0,				VERTN,	
+	.ENDQ
+	.CMD	ZERO,ZERO,4401,	EXTNUL,	Z,	ZERSUB,	PIP
+	.ENDQ
+/	.CMD	@,@,0,				YAT,	
+/	.ENDQ
+	..=.
+	0;YAT;0
+	.DSECT PTBL
+	..
+	0;0
+/PTBL,	XEXE
+/	XBAC
+/	XBAS
+/	XDUPL
+/	XBOO
+/	XCCL
+/	XCOMPA
+/	XCOMPI
+/	XCOP
+/	XCOR
+/	XCREA
+/	XCREF
+/	XDAT
+/	XDEL
+/	XDEA
+/	XDIR
+/	XEDI
+/	XEOF
+/	XHEL
+/	XLINK
+/	XMAC
+/	XLIS
+/	XLOA
+/	XMAK
+/	XMAP
+/	XMUN
+/	XPAL
+/	XPRI
+/	XPUN
+/	XREN
+/	XRES
+/	XREW
+/	XSET
+/	XSKI
+/	XSQU
+/	XSUB
+/	XTEC
+/	XTYP
+/	XUNL
+/	XUA
+/	XUB
+/	XUC
+/	XVER
+/	XZER
+/	XAT
+	.EXT	ALG=AL
+	.EXT	BAK=BK
+	.EXT	BAS=BA
+	.EXT	BIN=BN
+	.EXT	BUG=BG
+	.EXT	CMD=CM
+	.EXT	COM=CM
+	.EXT	CRF=CF
+	.EXT	CTL=CM
+	.EXT	DAT=DA
+	.EXT	DIR=DI
+	.EXT	DOC=DC
+	.EXT	HLP=HL
+	.EXT	INI=IN
+	.EXT	LOG=LG
+	.EXT	LPT=LP
+	.EXT	LST=LS
+	.EXT	MAC=MA
+	.EXT	MAN=MN
+	.EXT	MAP=MP
+	.EXT	MEM=ME
+	.EXT	OLD=OL
+	.EXT	PAL=PA
+	.EXT	REL=RL
+	.EXT	RIM=RM
+	.EXT	RNO=RO
+	.EXT	SAV=SV
+	.EXT	EXE=SV
+	.EXT	SNO=SN
+	.EXT	SRC=SR
+	.EXT	SYS=SY
+	.EXT	TEC=TE
+	.EXT	TEM=TM
+	.EXT	TMP=TM
+	.EXT	TXT=TX
+	.EXT	BAT=BI
+	.EXT	FOR=FT
+	.EXT	RLF=RA
+	.EXT	OBJ=RB
+	.EXT	SBR=SB
+	.EXT	FTN=FT
+	.ASECT EXTNS
+	FIELD 0
+	*6600
+STAR,	5200;	0
+	0;	0
+
+
+EXTSY,	'SY;	0
+	0;	0
+EXTBI,	'BI;	0
+	0;	0
+EXTCF,	'PA;	YPAL8
+	0;	YPAL8
+EXTMA,	'MA;	YMACREL
+	0;	YMACREL
+EXTPA,	'PA;	YPAL8
+	0;	YPAL8
+EXTBN,	'BN;	0
+	0;	YABSLDR
+EXTNUL,	0;	0
+EXTLO,	'BN;	YABSLDR
+	'RL;	LO1,YLOAD	/****
+EXTLI,	'RB;	YLINK
+	0;	0
+EXTCM,	'CM;	0
+	0;	0
+EXTSV,	'SM;	0
+	'SV;	0
+	0;	0
+EXTEXE,	'PA;	YPAL8
+	'FT;	F1,YF4	/****
+	'BA;	YBCOMP
+	'MA;	YMACREL
+	'BN;	YABSLDR
+	'RL;	LO2,YLOAD	/****
+	'RA;	YRALF
+	'SB;	YSABR
+	'RB;	YLINK
+	'LD;	YFRTS
+	'BI;	YBATCH
+	0;	0
+	ZBLOCK 4
+EXTCOM,	'PA;	YPAL8
+	'FT;	F2,YF4	/****
+	'MA;	YMACREL
+	'BA;	YBCOMP
+	'RA;	YRALF
+	'SB;	YSABR
+	0;	0
+	ZBLOCK 4
+	.ASECT FNAMES
+	FIELD 0
+	*7000
+YEDIT,	FILENAME EDIT.SV
+	*.-1
+YBOOT,	FILENAME BOOT.SV
+	*.-1
+YBITMAP,FILENAME BITMAP.SV
+	*.-1
+YSRCCOM,FILENAME SRCCOM.SV
+	*.-1
+YBCOMP,	FILENAME BCOMP.SV
+	*.-1
+YPAL8,	FILENAME PAL8.SV
+	*.-1
+YFOTP,	FILENAME FOTP.SV
+	*.-1
+YDIRECT,FILENAME DIRECT.SV
+	*.-1
+YPIP,	FILENAME PIP.SV
+	*.-1
+YABSLDR,FILENAME ABSLDR.SV
+	*.-1
+YTECO,	FILENAME TECO.SV
+	*.-1
+YLPTSPL,FILENAME LPTSPL.SV
+	*.-1
+YCAMP,	FILENAME CAMP.SV
+	*.-1
+YSET,	FILENAME SET.SV
+	*.-1
+YBASIC,	FILENAME BASIC.SV
+	*.-1
+YRXCOP,	FILENAME RXCOPY.SV
+	*.-1
+YRESORC,FILENAME RESORC.SV
+	*.-1
+YBATCH,	FILENAME BATCH.SV
+	*.-1
+YRALF,	FILENAME RALF.SV
+	*.-1
+YSABR,	FILENAME SABR.SV
+	*.-1
+YFRTS,	FILENAME FRTS.SV
+	*.-1
+YHELP,	FILENAME HELP.SV
+	*.-1
+YMACREL,FILENAME MACREL.SV
+	*.-1
+YLINK,	FILENAME LINK.SV
+	*.-1
+YDATE,	FILENAME DATE.SV
+	*.-1
+YTERMIN,FILENAME TERMIN.SV
+	*.-1
+YQUEUE,	FILENAME QUEUE.SV
+	*.-1
+YCANCEL,FILENAME CANCEL.SV
+	*.-1
+