00100		TITLE	CORDMP
00200	INTERNAL SETLPT,RESLPT,CORDMP
00300	EXTERNAL JOBDDT,JOBFF,$M
00400	
00420	
00440	OPDEF TTCALL [51B8]
00460	
00500	CORDMP:	MOVEI	1,LTLSTK
00700		MOVE	3,[POINT 7,STRING]
00800		SETZM	STRING
00900		MOVE	5,[XWD STRING,STRING+1]
01000		BLT	5,STREND
01100		MOVE	7,[POINT 7,[ASCIZ / $M+1!1000
01200	 /]]
01250		PUSHJ	1,TYSET
01275		JRST	.-1
01300		TTCALL	3,[ASCIZ /LOWER BOUND = /]
01400		PUSHJ	1,TYI
01500		JRST	.-1
01600		MOVEI	5,"<"
01700		IDPB	5,3
01800		TTCALL	3,[ASCIZ /UPPER BOUND = /]
01900		PUSHJ	1,TYI
02000		JRST	.-1
02100		MOVE	7,[POINT 7,[ASCIZ />12121/]]
02200		PUSHJ	1,TYSET
02300		JRST	.-1
02400		TTCALL	3,[ASCIZ /MODE = /]
02500		PUSHJ	1,TYI
02600		JRST	.-1
02700		MOVE	7,[POINT 7,[ASCIZ /$N
02750	POPJ 1,$X/]]
02800		PUSHJ	1,TYSET
02900		JRST	.-1
03000	
03100		MOVE	5,[POINT 7,STRING]
03200		MOVEM	5,$M-1
03250		JSP	10,STLPT
03300		PUSHJ	1,@JOBDDT
03400	
03500	RETN:	JRST	RESLPT
03600	
03700	
03800	TYSET:	ILDB	2,7
03900		JUMPE	2,CPOPJ
03920		IDPB	2,3
03940		POPJ	1,
03960	
04000	
04100	TYI:	TTCALL	2
04200		CAIN	2,15
04300		JRST	DUN
04400		CAIN	2,177
04410		 JRST	 [TTCALL 3,[ASCIZ /\/]
04420			  LDB	2,3
04430			  TTCALL 1,2
04440			  SOS	3
04450			  REPEAT 4,<IBP  3
04460	>
04470			  JRST	TYI
04480	]
04490	
04500		IDPB	2,3
04600		POPJ	1,
04700	
04800	DUN:	TTCALL	2
04900	CPOPJ:	AOS	(1)
05000		POPJ	1,
05100	
10000	SETLPT:	JSP	10,STLPT
10050		JRST	@JOBDDT
10075	
10087	STLPT:	INIT	17,
10100		SIXBIT	/LPT/
10200		XWD	BHED,0
10300		JRST	[TTCALL 3,[ASCIZ /LPT NOT AVAILABLE, TYPE KEY TO RETRY
10400	/]
10500			 TTCALL	2
10600			 JRST	STLPT]
10700	
10710		SETZM	WRRD+3
10720		ENTER	17,WRRD
10730		HALT
10800		MOVEI	BUFFAR
10900		MOVEM	JOBFF
11000		OUTBUF	17,2
11100		MOVEI	TYO
11200		MOVEM	$M-2
11300		JRST	(10)
11400	
11500	RESLPT:	MOVEI	5,14
11600		MOVEI	1,LTLSTK
11700		PUSHJ	1,TYO
11800		SETZM	$M-2
11900		RELEASE	17,
12000		JRST	@JOBDDT
12100	
12200	TYO:	SOSG	BHED+2
12300		OUTPUT	17,
12400		IDPB	5,BHED+1
12500		POPJ	1,
12600	
12700	BHED:	BLOCK	3
12710	WRRD:	'CORDMP'
12720		'TMP   '
12730		0
12740		0
12800	
12900	BUFFAR:	BLOCK	2*=132
13000	
13100	LTLSTK:	BLOCK	10
13200	
13210	
13220	STRING:	BLOCK	40
13230	STREND:	0
13240	
13300		END