*20
//SYSLOAD
/FOR SIGSYS-12
/
/DF32 AND/OR RK08 SYSTEMS
/
/STORED IN BLOCK 270
/THIS IS A DIAL PROGRAM WHICH LOADS THE
/OPERATING SYSTEM FROM TAPE 0
/INTO BANKS 0 & 3
/
/THE TAPE ZERO DIAL INDEX IS TRANSFERRED
/TO BLOCKS 34-35 OF UNIT 0
/
/SETUP COMMANDS:
/MCG,0  LOAD TO CORE AND GO
/MCT,0  SET UP TAPE SYSTEM
/MCTG,0 SET UP AND GO
/MCD,0  SET UP DISK SYSTEM ON TAPE AND DISK
/MCDG,0 SET UP AND GO
/MCS,0  SET UP SOFTWARE FPP
/MCH,0  SET UP HARDWARE FPP
/MCK,0  SET UP DEFAULT TTY
/MCL,0  SET UP DEFAULT LPT
/
/IF MCD,0 IS TYPED, THE LOADER WILL
/TRANSFER THE FIRST 200 BLOCKS OF
/UNIT ZERO TO THE DISK
	*16
	RCG
	7300
/
	*20
	STA I
L2,	0
	SCR 6
	STC MODE
	LDA I
	20
	ESF
	CLR
	AXO
	ADD MODE
	SHD I
	2400
	JMP MCT
	SHD I
	0400
	JMP MCD
	SHD I
	0700
	JMP MCG
	SHD I
	2300
	JMP MCS
	SHD I
	1000
	JMP MCH
	SHD I
	1300
	JMP MCK
	SHD I
	1400
	JMP MCL
	JMP 16
/
/TAPE SYSTEM
MCT,	JMP GETIDX
	LDF 6
	RCG
	3104
	LDF 7
	RCG
	3114
	JMP SAVTP
/DISK SYSTEM
MCD,	JMP GETIDX
	LDF 6
	RDC
	4110
	RDC
	5111
	RDC
	6112
	RDC
	7113
	LDF 7
	RDC
	4120
	RDC
	5121
	RDC
	6122
	RDC
	7123
/SET UP TAPE
SAVTP,	LDF 7
	WRC
	4050
	WRC
	5051
	WRC
	6052
	WRC
	7053
	WRC
	2034
	WRC
	3035		/DIAL INDEX
	LDF 6
	WRC		/EXEC3
	4000
	WRC
	5001
	WRC
	6002
	WRC
	7003
	LDF 3
/
/CHECK FOR DISK LOAD
	LDA I
MODE,	0
	SAE I
	4
	JMP GOTST
/MOVE TAPE TO DISK
	SET I 1
	-10
NR,	JMP TREAD
	JMP DWRIT
	LDA I
	1
	ADD SEG
	STC SEG
	XSK I 1
	JMP NR
GOTST,	LDH
	4\L2
	SAE I
	07		/G
	JMP 16		/DIAL RETURN
/SYSTEM STARTUP
MCG,	LDA I
	20
	ESF
	CLR
	AXO
	LDF 0
	LDA I
	701
	STA
	2016
	LDA I
	3000
	STA
	2017
	LDF 3
	LIF 0
	JMP 16
/
/GET DIAL INDEX
/
GETIDX,	RDC
	2346
	RDC
	3347
	JMP 0
/
/
/SET UP SFPP
/
MCS,	LDF 6
	RCG
	3124
	WCG
	3004
	JMP 16
/
/SET UP HFPP
/
MCH,	LDF 6
	RDC
	4130
	RDC
	5131
	RDC
	6132
	RDC
	7133
	WCG
	3004
	JMP 16
/
/SET UP DEFAULT TTY
/
MCK,	LDA I
	4
	STC SWT
	JMP DEF
/
/SET UP DEFAULT LPT
/
MCL,	LDA I
	24
	STC SWT
	JMP DEF
SWT,	0
/
DEF,	RDC
	2057
	LDA
	SWT
	STC 1040
	WRC
	2057
	RDC
	2017
	LDA
	SWT
	STC 1040
	WRC
	2017
	JMP 16
/
	EJECT
TREAD,	SET 15
	0
	LDA I
	1020
	AXO
	SET I 2
	-20
	LDA I
TM,	0
	TMA
	RDC
BK,	0
	LDA I
	1
	ADM
	BK
	CLR
	LDA I
	400
	LAM
	TM
	XSK I 2
	JMP TM-1
	CLR
	AXO
	JMP 15
/
DWRIT,	SET 15
	0
	PDP
	PMODE
RETRY,	CLA
	DCA I C7750
	6753		/WC
	CMA
	6755		/CA
	DCA I C7751
	TAD C10
	6732
	CLA
	TAD SEG
	RTL CLL
	RTL
	6735
	CLA
	TAD SEG
	RTL CLL
	RTL
	RTL
	AND C7700
	TAD C10
	6615
	CLA
	6605
	6622
	SKP
	JMP DEND
	6745
	JMP .-4
DEND,	6747 		/6621
	SKP		/JMP RETRY
	JMP RETRY	/NOP
	6611
	6601
	6742
	LINC
	LMODE
	JMP 15
/
C7700,	7700
C10,	10
C7750,	7750
C7751,	7751
SEG,	0
A,	
/
//END SYSLOAD
/JUNE 73