Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/dakcat.mac
There are no other files named dakcat.mac in the archive.
;MAINDEC-10-DAKCA

DECVER=002
MCNVER=000

	XLIST
DEFINE	NAME	(MCNVER,DECVER),<

TITLE	DAKCA	PDP-10 KA10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER MCNVER,DECVER>
	LIST
	LALL

NAME	\MCNVER,\DECVER

	XALL
;(FLOATING SCALE, FLOATING ADD/SUB AND UNNORMALIZED FLOATING ADD)

;COPYRIGHT 1972, 1973, 1974, 1975,1977
;DIGITAL EQUIPMENT CORPORATION
;MARLBORO, MASS. 01752

;JOHN R. KIRCHOFF

LOC	137
MCNVER,,DECVER

	NOSYM
SUBTTL	DIAGNOSTIC PARAMETERS

;OPERATOR DEFINITIONS

OPDEF	ER1	[1B8]
OPDEF	ER2	[2B8]
OPDEF	ER3	[3B8]
OPDEF	ER4	[4B8]
OPDEF	ER5	[5B8]
OPDEF	ER6	[6B8]
OPDEF	ER7	[7B8]
OPDEF	ER10	[10B8]
OPDEF	ER11	[11B8]
OPDEF	ER12	[12B8]
OPDEF	ER13	[13B8]

LUUO1==ERRMES
LUUO2==ERRMES
LUUO3==ERRMES
LUUO4==ERRMES
LUUO5==ERRMES
LUUO6==ERRMES
LUUO7==ERRMES
LUUO10==ERRMES
LUUO11==ERRMES
LUUO12==ERRMES
LUUO13==ERRMES

;SUBROUTINE ASSEMBLY DEFINITIONS

DEBUG=100
EXCASB=1
USRASB=1
KA10=1
PGMEND=1
ERDIAG=1
KLOLD=1
;MACROS

DEFINE	SAVEAC	(A,B)<
	MOVEI	AC+2,.
	MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
	MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
	MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION>

;BEGIN ASSEMBLY PARAMETERS

SADR1=BEGIN
SADR2=RESRT1
SADR3=RENTR1
SADR4=BEGIN
SADR5=BEGIN
SADR6=BEGIN
SADR7=HALT BEGIN
SADR8=HALT BEGIN
SADR9=HALT BEGIN
SADR10=HALT BEGIN
SADR11=HALT BEGIN

PAREA1=0
PAREA2=0
PAREA3=SIXBIT/DAKCA/
PAREA4=SIXBIT/TMP/
PAREA5=0
PAREA6=0

ITERAT=1000