PDP-10 Archive: swskit-sources/cdkldv.mac from AP-4178E-RM

Trailing-Edge - PDP-10 Archives - AP-4178E-RM - swskit-sources/cdkldv.mac

There are 45 other files named cdkldv.mac in the archive. Click here to see a list.

;<3A.MONITOR>CDKLDV.MAC.8, 22-Apr-78 22:56:02, Edit by MCLEAN
;MAKE MSTRDT BE USED
;<3A.MONITOR>CDKLDV.MAC.7, 21-Apr-78 12:51:08, Edit by MCLEAN
;<3A.MONITOR>CDKLDV.MAC.6,  9-Apr-78 14:04:42, Edit by MCLEAN
;<3A.MONITOR>CDKLDV.MAC.5,  9-Apr-78 14:03:04, Edit by MCLEAN
;<MCLEAN>CDKLDV.MAC.4, 24-Jan-78 14:12:17, Edit by MCLEAN
;<MCLEAN>CDKLDV.MAC.3, 11-Dec-77 22:27:34, Edit by MCLEAN
;<MCLEAN>CDKLDV.MAC.2, 11-Dec-77 22:22:47, Edit by MCLEAN
;<SM10-MONITOR>CDRSRV.MAC.2,  6-Nov-77 23:32:58, Edit by MCLEAN
	RESCD
	SEARCH PROKL

CDRDTV::CDRHSD			;STRING DATA
	R			; JUST RETURN
	CDRTLS			;STATUS
	0			;NO LINE ALLOCATION
	CDRSER			;SYSERR ENTRY
	CDRRLD			;RELOAD ACTION

ASCBSZ:	POINT 16,0		;BYTE POINTER FOR ASCII CHARACTERS

CDVTFE==.
	IFIW!CDRDC		;READ A CARD
	IFIW!CDRFLS		;CLOSE
	IFIW!R			;RESTART
	IFIW!R			;INIT
	IFIW!CDRTLS		;RETURN STATUS
	IFIW!R			;BYTE SWAP

; ROUTINE CALLED FROM DTE SERVICE ON AN -11 RELOAD

CDRRLD:	CAME A,MSTRDT		;IS THIS THE MASTER?
	RET			;NO
	SAVET			;PRESERVE TEMPORARY AC'S
	MOVSI A,-CDRN		;GET AOBJN POINTER WIT