Google
 

Trailing-Edge - PDP-10 Archives - bb-d549g-sb - 10k.mac
There are 3 other files named 10k.mac in the archive. Click here to see a list.
TITLE	10K	VERSION 3	
SUBTTL	COMP10 CONTROL PROGRAM		CWRU/CAM

;EDIT==6

;COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
	HISEG

	EXTERN SIXTO7,SIXCNT,SIXBUF,P6WORD,MRGOUT,USDDB
	EXTERN BASDDB,CMDLVL,PUSHST,CBGET

START:	CALLI
MSTART:	MOVE	16,[IOWD 15,PUSHST]
	PUSHJ	16,CMDLVL
	MOVE	4,[ASCII/-!/]
	JSP	14,MRGOUT
		[2]
		4
	MOVEI	USDDB+2
	HRRZM	P6WORD
	PUSHJ	16,SIXTO7
	JSP	14,MRGOUT
	SIXCNT
	SIXBUF
	AOS	P6WORD
	PUSHJ	16,SIXTO7
	SOS	SIXCNT
	JSP	14,MRGOUT
	SIXCNT
	SIXBUF
	MOVEI	  "_"
	JSP	14,MRGOUT
	[0]
	0
	MOVEI	BASDDB+2
	HRRZM	P6WORD
	PUSHJ	16,SIXTO7
	JSP	14,MRGOUT
	SIXCNT
	SIXBUF
	AOBJN	.+1
	MOVEM	P6WORD
	PUSHJ	16,SIXTO7
	JSP	14,MRGOUT
	SIXCNT
	SIXBUF
NXC:	PUSHJ	16,CBGET
	JUMPLE	13,RELESE
	MOVE	10,13
	JSP	14,MRGOUT
	[0]
	10
	JRST	NXC
RELESE:	RELEAS	2,
	RELEAS	5,
	RELEAS	6,
	EXTERN	DIASW
	SETOM	DIASW
	PUSHJ	16,NOTFND
	XWD	[ASCIZ/COMPAR COMPLETED ON: /],BASDDB
	PUSHJ	16,NOTFND
	XWD	[ASCIZ/		AND: /],USDDB
	EXTERN	NOTFND
	SETZM	DIASW
	JRST	MSTART
	END START;