File TDCOPY.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file

	*200
	DCA R1		/START COPY AT RECORD 0
	DCA R2
COPY,	JMS I K7607	/READ 17 RECORDS ON UNIT 0
	3610
	0
R1,	0
RDERR,	7402		/READ ERROR
	JMS I K7614	/WRITE 17 RECORDS ON UNIT 1
	7610
	0
R2,	0
	7402
	TAD R1		/UPDATE RECORD COUNT
	TAD K17
	DCA R1
	TAD R1
	DCA R2
	TAD R1
	TAD M1300	/ONLY COPY 2600 BLOCKS
	SPA CLA		/DONE?
	JMP COPY	/NOT YET
	JMS I K7607	/YES, REWIND UNIT 0
	100
	1000
	1
	JMP RDERR	/ERROR
	JMS I K7614	/REWIND UNIT 1
	100
	1000
	1
	JMP RDERR	/ERROR
	CLA CMA		/NORMAL HALT - AC=7777
	HLT
K7607,	7607
K7614,	7614
K17,	17
M1300,	-1300
	$

Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search