perm filename KLDCP.10[KL,SYS] blob sn#209175 filedate 1976-04-03 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 00003
C00006 00004
C00007 ENDMK
CāŠ—;

;DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE PROGRAM


DECVER==007
MCNVER==0
MITVER==%FNAM2

.TITLE	KLDCP DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE PROGRAM, VER 0.7

;;;MODIFICATION HISTORY
;;;
;;; 15 NOV 75  OBTAINED FROM DEC (KLDCP REV 7)
;;; 15 NOV 75  CONVERTED TO PALX FORMAT
;;; 30 MAR 76  MODIFIED TO COEXIST WITH ITS IOELEVEN PROGRAM


;.LIST	MC,MD
;.DSABL	GBL
;.DSABL	REG
.ABS
;.ENABL	AMA	;AMERICAN MEDICAL ASSOC?  DOES ANYONE KNOW WHAT THIS DOES?

;JOHN R. KIRCHOFF
;DIGITAL EQUIPMENT CORPORATION
;MARLBORO, MASS. 01752

;ASSEMBLY PARAMETERS
;IF SYMBOL IS DEFINED, FROB GETS ASSEMBLED

KLDCP==1	;ASSEMBLE KLDCP
DTEASB==1	;ASSEMBLE DTE20
DVSASB==1	;ASSEMBLE DEVICE SERVICE
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

;SUBROUTINE CODE BEGINS AT 16K (WORDS)

.IIF NDF PRGSRT, PRGSRT==16.*1024.*2.
.IIF NDF COREND, COREND==28.*1024.*2.

TOUTBF==70000	;OVERLAY BUFFER

;PDP-10 KL10 EXEC PROCESS TABLE PARAMETERS

$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 OPERATION IN PROGRESS FLAG
$DTCHR==454	;DTE20 LAST TYPED CHARACTER
$DTMTD==455	;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG
$DTMTI==456	;DTE20 MONITOR TTY INPUT FLAG

$DTSWR==457	;DTE20 PDP-10 SWITCH REGISTER

;KLDCPU UTILITY PROGRAM PARAMETERS

;UTILITY IDENTIFICATION

PID==3004	;PROGRAM NAME
PDVER==3010	;DEC VERSION
PMVER==3012	;MCN VERSION

;UTILITY SUB-PROGRAM DISPATCH ADDRESSES

PTABLE==3020	;START OF TABLE

RXCOPY==3020	;RX11/RX01 FLOPPY COPY PROGRAM
DTCOPY==3022	;TC11 DECTAPE COPY PROGRAM
WFILE==3024	;WRITE FILE FROM DTA/RX TO RP04 PROGRAM
TAPT==3026	;TRANSFER FILE FROM APT10 TO RP04 PROGRAM
DSKDIR==3030	;RP04 DISK DIRECTORY
REMOTE==3032	;REMOTE TELETYPE COMMUNICATIONS

XMEMSZ==512.	;# K OF PDP10 MEMORY TO CLEAR IN MZ 0,-1

FUQ::		;THIS IS HERE TO AVOID GETTING A "LOCAL TAG BEFORE
		;FIRST LABEL" ERROR MESSAGE FROM BAG-BITING PALX
		;(THERE ARE MACRO DEFINITIONS WITH LOCAL TAGS IN THEM)

;INSERT THE REST OF KLDCP

.INSRT PRM11
.INSRT BEG11
.INSRT CONS11
.INSRT BPNT11
.INSRT SUB11
.INSRT FD11
.INSRT DTA11
.INSRT FLOPPY
.INSRT RP0411
.INSRT APT11
;.INSRT CDMP11
.INSRT BR11
.INSRT SBST11

.END $ILOAD