;DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY


DECVER=7
MCNVER=0


.TITLE	KLDCPU DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY, VER 0.7

;;;MODIFICATION HISTORY
;;;
;;; 15 NOV 75  OBTAINED FROM DEC (KLDCP REV 7)
;;; 15 NOV 75  CONVERTED TO PALX FORMAT
;;;


;.LIST	MC,MD
;.DSABL	GBL
;.DSABL	REG
.ABS
;.ENABL	AMA

;JOHN R. KIRCHOFF
;DIGITAL EQUIPMENT CORPORATION
;MARLBORO, MASS. 01752

;ASSEMBLY PARAMETERS

;DTEASB=1 ;ASSEMBLE DTE20
;KWASB=	1 ;ASSEMBLE KW CLOCK
;DLASB=	1 ;ASSEMBLE DL11
;DHASB=	1 ;ASSEMBLE DH11
;TAASB=	1 ;ASSEMBLE TA CASSETTE
RXASB=	1 ;ASSEMBLE RX11/RX01 FLOPPY
TCASB=	1 ;ASSEMBLE TC DECTAPE
RPASB=	1 ;ASSEMBLE RP04 DISK PACK
LPASB=	1 ;ASSEMBLE LP20 LINE PRINTER

$NB=	8. ;USE 8 BREAKPOINTS

;UTILITY CODE BEGINS AT LOCATION 3000

PRGSRT=	3000
COREND=	28.*1024.*2.

;SPECIAL KLDCP LINKAGE ADDRESSES

START=	100000 			;CONSOLE START
$CNTLC=	100004 			;CONTROL C
$CONSL=	100014 			;RETURN TO CONSOLE

$TKS=	100020 			;TTY KBD STATUS
$TKB=	100022 			;TTY KBD BUFFER
$TPS=	100024 			;TTY PRINTER STATUS
$TPB=	100026 			;TTY PRINTER BUFFER

$LPS=	100030 			;LP11 - LINE PRINTER STATUS
$LPB=	100032 			;LP11 - LINE PRINTER BUFFER

$FSTKS=	100034 			;FIELD SERVICE KLINIK INPUT STATUS
$FSTKB=	100036 			;FIELD SERVICE KLINIK INPUT BUFFER
$FSTPS=	100040 			;FIELD SERVICE KLINIK OUTPUT STATUS
$FSTPB=	100042 			;FIELD SERVICE KLINIK OUTPUT BUFFER

$CMTKS=	100044 			;COMM INPUT STATUS
$CMTKB=	100046 			;COMM INPUT BUFFER
$CMTPS=	100050 			;COMM OUTPUT STATUS
$CMTPB=	100052 			;COMM OUTPUT BUFFER

FUQ::	;SEE EQUIVALENT PLACE IN KLDCP FOR WHY THIS IS HERE

;INSERT THE REST

.INSRT PRM11
.INSRT KLDCU1
.INSRT SBST11

.END $ILOAD