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