TITLE DUMP
	ENTRY DUMP
	JOBSA=120
	MLON

DUMP:	SETOM D8K
	INIT 16
	SIXBIT /ECM0/
	0
	JRST NOECM
	TTCALL 3,[ASCIZ/4K DUMP?   /]
	TTCALL 4,0
	CAIE "Y"
	CAIN "J"
	SETZM D8K
	TTCALL 11,
	LOOKUP [6]
	JRST LKPERR
	INPUT CL1
	LOOKUP [1200]
	JRST LKPERR
	INPUT CL2
	SKIPN D8K
	JRST DMPEND
	INPUT CL4
	SETSTS 17
	INPUT CL3
DMPEND:	MOVEI LOAD
	MOVEM JOBSA
	TTCALL 3,[ASCIZ/SAVE DUMP NOW!
/]
	CALLI 1,12

LOAD:	TTCALL 3,[ASCIZ /TYPE <CR> TO LOAD PDP-8/]
	TTCALL 4,0
	TTCALL 11,
	CAIE 15
	JRST ERROR
	INIT 16
	SIXBIT /ECM0/
	0
	JRST NOECM
	ENTER [6]
	JRST ENTERR
	OUTPUT CL1
	ENTER [1200]
	JRST ENTERR
	OUTPUT CL2
	SKIPN D8K
	JRST LOAEND
	OUTPUT CL4
	SETSTS 17
	OUTPUT CL3
LOAEND:	TTCALL 3,[ASCIZ/LOADED!/]
	CALLI 1,12

NOECM:	TTCALL 3,[ASCIZ/ECM0 NOT AVAILABLE/]
	CALLI 1,12
LKPERR:	TTCALL 3,[ASCIZ/LOOKUP FAILURE/]
	CALLI 1,12
ENTERR:	TTCALL 3,[ASCIZ/ENTER FAILURE/]
	CALLI 1,12
ERROR:	TTCALL 3,[ASCIZ/ABORTED!/]
	CALLI 1,12

CL1:	IOWD 50,BLK1
	0
CL2:	IOWD 2200,BLK2
	0
CL3:	IOWD 1,BLK3
	0
D8K:	0
CL4:	IOWD 2525,BLK4
	0

BLK1:	BLOCK 50
BLK2:	BLOCK 2200
BLK3:	BLOCK 1
BLK4:	BLOCK 2525
	END DUMP