Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/subklt.mac
There are no other files named subklt.mac in the archive.
;*MAINDEC-10-DFQDA (SUBKL)

DECVER=001
MCNVER=000

	XLIST
DEFINE	NAME	(MCNVER,DECVER),<

TITLE	SUBKL (DFQDA) DECSYSTEM DIAGNOSTICS KL10 SUBROUTINE PROGRAM, VER MCNVER,DECVER>
	LIST
	LALL

NAME	\MCNVER,\DECVER

	LOC	137
MCNVER,,DECVER

;*COPYRIGHT 1978
;*DIGITAL EQUIPMENT CORPORATION
;*MARLBORO, MASS.

;*JOHN R. KIRCHOFF

	NOSYM
SUBTTL	*SUBKL* SPECIAL ASSEMBLY PARAMETERS

;*ASSEMBLY PARAMETERS

KL10==1
KL10P0==1
MEMMAP==1
PGMEND==1
EXCASB==1
DEBUG==00
MODDVL==START
MODDVU==ENDSLD
SADR1=BEGIN
SADR2=BEGIN
SADR3=BEGIN
SADR4=BEGIN
SADR5=BEGIN
SADR6=BEGIN
SADR7=BEGIN
SADR8=BEGIN
SADR9=BEGIN
SADR10=BEGIN
SADR11=BEGIN

PAREA1=123456,,123456
PAREA2=0
PAREA3=SIXBIT/SUBKL/
PAREA4=SIXBIT/TMP/
PAREA5=0
PAREA6=0
ITERAT=1

$PAPER==1

;*A MACRO TO DEFINE DEVICE NEUMONICS TO OCTAL DEVICE CODE

	DEFINE	$MDSXB	(A,B)<
	<SIXBIT/A/>!B		;A DEVICE CODE IS B>
;*DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE
S

AC0=	0
DIAGNOS=30000		;PDP-10 DIAGNOSTIC START ADDRESS
DDT=	10000		;PDP-10 DDT START ADDRESS
DIAMON=	20000		;PDP-10 DIAMON LOADER START ADDRESS
DIASWS=	20007		;DIAMON LH SWITCHES
DONG11=	1B22		;11 DOORBELL (FROM THE 10)
DING10=	1B26		;10 DOORBELL (FROM THE 11)
DNG10C=	1B26		;10 DOORBELL CLEAR

MTR=	24		;METER CODE
TIM=	20		;METER CODE

;*DTE20 DEVICE CODES
S

DTE==	200		;DTE0
DTE0==	200
DTE1==	204
DTE2==	210
DTE3==	214

;*KL10 EPT COMMUNICATION AREA
S

$STD=	440		;PDP-10 DIAGNOSTIC START ADDRESS
$DDT=	441		;PDP-10 DDT START ADDRESS
$STL=	442		;PDP-10 LOADER START ADDRESS
$STM=	443		;PDP-10 MONITOR START ADDRESS

$DTFLG=	444		;DTE20 OPERATION COMPLETE FLAG
$DTCLK=	445		;DTE20 CLOCK INTERRUPT FLAG
$DTCI=	446		;DTE20 CLOCK INTERRUPT INSTRUCTION
$DTT11=	447		;DTE20 10 TO 11 ARGUMENT
$DTF11=	450		;DTE20 11 TO 10 ARGUMENT
$DTCMD=	451		;DTE20 TO 11 COMMAND WORD
$DTSEQ=	452		;DTE20 OPERATION SEQUENCE NUMBER
$DTOPR=	453		;DTE20 OPERATIONAL DTE #
$DTCHR=	454		;DTE20 LAST TYPED CHARACTER
$DTMTD=	455		;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG
$DTMTI=	456		;DTE20 MONITOR TTY INPUT FLAG
$DTSWR=	457		;DTE20 10 SWITCH REGISTER