File: TDSCAN.PA of Disk: Disks/Build-2007/Copy-of-m8-rka0-rkb0

(Source file text) 

---

	*200
	CLA
	CDF	0
	CIF	10
	JMS I	(7700
	1
	DEVICE	DTA1
ENTRY,	1001
	HLT
	CLA
	CDF	0
	CIF	0
LOOP,	JMS I	ENTRY
	3630
	0000
BLOCK,	0000
	JMP	ERR
	TAD	BLOCK
	TAD	(17
	DCA	BLOCK
	CLA CLL
	TAD	BLOCK
	TAD	(-1337
	SNL CLA
	JMP	LOOP
RETURN,	CDF	0
	CIF	0
  	JMS I	ENTRY
	0130
	0000
	0000
	JMP	ERR
	JMP I	(7605
ERR,	CLA
	TAD	BLOCK
	HLT
	JMP	RETURN
	$$

---