;;;MODIFICATION HISTORY
;;;
;;; 15 NOV 75  OBTAINED FROM DEC (KLDCP REV 7)
;;; 15 NOV 75  CONVERTED TO PALX FORMAT
;;;

.SBTTL	*BEGIN* PROGRAM CONTROL, 4-AUG-75

	.=PRGSRT
;STARTING ADDRESS

START:	JMP @#$SBRINT		;NORMAL START
$CNTLC:	JMP @#$$CNTLC		;CTRL/C
$ILOAD:	JMP $$ILOAD		;INITIAL LOAD
$CONSL:	JMP $$CONSL		;RETURN TO CONSOLE

;DEVICE ADDRESS PARAMETERS

$TKS:	177560 			;TTY KBD STATUS
$TKB:	177562 			;TTY KBD BUFFER
$TPS:	177564 			;TTY PRINTER STATUS
$TPB:	177566 			;TTY PRINTER BUFFER

$LPS:	177514 			;LP11 - LINE PRINTER STATUS
$LPB:	177516 			;LP11 - LINE PRINTER BUFFER

$FSTKS:	175610 			;FIELD SERVICE KLINIK INPUT STATUS
$FSTKB:	175612 			;FIELD SERVICE KLINIK INPUT BUFFER
$FSTPS:	175614 			;FIELD SERVICE KLINIK OUTPUT STATUS
$FSTPB:	175616 			;FIELD SERVICE KLINIK OUTPUT BUFFER

$CMTKS:	175620 			;COMM INPUT STATUS
$CMTKB:	175622 			;COMM INPUT BUFFER
$CMTPS:	175624 			;COMM OUTPUT STATUS
$CMTPB:	175626 			;COMM OUTPUT BUFFER

RPRH11:	176700 			;RH11 CONTROLLER ADDRESS

;PDP-10 KL10 PARAMETERS

TENMO:	-1 			;PDP-10 MINUS ONE
	-1
	17

TDIAG:	$STD 			;DIAGNOSTIC START ADDRESS
	0

TDDT:	$DDT 			;DDT START ADDRESS
	0

TLDR:	$STL 			;LOADER START ADDRESS
	0

TMON:	$STM 			;MONITOR START ADDRESS
	0

EMTIMO:	25000. 			;EM/DM TIMEOUT COUNT