ex4 13

0100	MOI	0-08
0102	MOI	c.oo
0104	LXI	H -0119
0107	M0Y	A-M
0100	0UB	C *
0100	JC	0100
010C	m	C-fl
010D	INX	H
010E	DCR	D
010F	JNZ	0107
0112	MC0	A-C

This should have been a CMP so that register A would not be destroyed.

0108 CMP C/ Hot patch at 108H chatiges SUB to CMP 0109 -Wy Stop DDT for SAVE A>SAVE I SCMtCOtff $ave memory image

SCAN.COHf Restart DDT

DDT OER 1,0 NEHT PC 0Z0C 0100

-XP/
P=0100
-iiifiy
one	RBT	07"
0117	NQP
0110	N0P		Look at codę to see if it was properly loaded
0110	BTAX	G	(long typeout aborted with rubout)
011A	N0P

-GtllS^ Run from 10OH to completion