ORG	00100H
0100  C33B01	COPYNS: JP      A013B
		;

0103  05	D0103:	DEC	B
0104  23	NMTRKS:	INC	HL
0105  2800	D0105:	JR	Z,A0107
0107  00	A0107:	NOP
0108  80	D0108:	ADD	A,B
0109  0D	PROMPT:	DEFB	00DH
010A  0A		DEFB	00AH
010B  43		DEFB    'COPY Version 5.3'
110B    		DEFB	00DH
110C                    DEFB    00AH
011D                    DEFB    '(C) 1980 Lifeboat Associates.'
013A  24		DEFB	024H
013B  31E30F	A013B:	LD	SP,STACKC
013E  AF		XOR	A
013F  32840F		LD	(TRPFLG),A
0142  210000		LD	HL,00000H
0145  22990F		LD	(D0F99),HL
0148  0E0C		LD	C,00CH
014A  CD0500		CALL	BDOS
014D  22860F		LD	(D0F86),HL
0150  CD720E		CALL	SETJMP
0153  3A0401		LD	A,(NMTRKS)
0156  214505		LD	HL,NUMTRK
0159  CD9A0D		CALL	TRKNUM
015C  110901		LD	DE,T0109
015F  CDBF0D		CALL	A0DBF
0162  11C00E		LD	DE,T0EC0
0165  CDBF0D		CALL	A0DBF
0168  31E30F	START:	LD	SP,STACKC
016B  CDC804		CALL	MNMENU
016E  C26801		JP	NZ,START
0171  FE0D		CP	00DH
0173  CA7C01		JP	Z,EXECUT
0176  CDCF06		CALL	A06CF
0179  C26801		JP	NZ,START
017C  31E30F	EXECUT:	LD	SP,STACKC
017F  3A960F		LD	A,(CMDSTR)
0182  FE56		CP	056H
0184  CA8A01		JP	Z,VERIFY
0187  C38003		JP	A0380
		;
018A  CDC40D	VERIFY:	CALL	DSPLAY
018D  0D		DEFB    00DH 
018E  0A		DEFB	00AH
018F  0D		DEFB	00DH
0190  0A		DEFB	00AH
0191  49		DEFB	'Insert disk in '
01A0  20                DEFB    20H
0191                    DEFB    ' and <CR> to verify.    - '
019B  24		DEFB	024H
01BC  CDD30D		CALL	GETCMD
Š01BF  FE0D		CP	00DH
01C1  C26801		JP	NZ,START
01C4  CDC40D		CALL	DSPLAY
01C7  0D		DEFB	00DH
01C8  0A		DEFB	00AH
01C9  0D		DEFB	00DH
01CA  0A		DEFB	00AH
01CB  56		DEFB	'Verify in progress - '
01E0                    DEFB    'Press ESC to abort.'
01F3  0D		DEFB	00DH
01F4  0A		DEFB	00AH
01F5                    DEFB    'Each * is one track verified.'
0212  0D		DEFB	00DH
0213  0A		DEFB	00AH
0214  24		DEFB	024H
0215  CD0708		CALL	A0807
0218  CDC40D		CALL	DSPLAY
021B  0D		DEFB	00DH
021C  0A		DEFB	00AH
021D  56		DEFB	'Verify complete.   '
0230  24		DEFB	024H
0231  3A940F		LD	A,(ERRFLG)
0234  B7		OR	A
0235  C25702		JP	NZ,A0257
0238  CDC40D		CALL	DSPLAY
023B  4E		DEFB	'NO errors were detected.'
0253  24		DEFB	024H
0254  C36801		JP	START
		;
0257  CDC40D	A0257:	CALL	DSPLAY
025A  45		DEFB	'Errors detected. +++ERRORS+++'
0279  07                DEFB    007H
027A  24		DEFB	024H
027B  C36801		JP	START
		;
		; >> NO EXECUTION PATH TO HERE <<
027E  CDC40D		CALL	DSPLAY
0281  0D		DEFB	00DH
0282  0A		DEFB	00AH
0283  0D		DEFB	00DH
0284  0A		DEFB	00AH
0285  49		DEFB	'Insert disk in '
0294  20      T0294:    DEFB    020H
0295  73		DEFB	' and <CR> to format.    - '
02AF  24		DEFB	024h
02B0  CDD30D		CALL	GETCMD
02B3  FE0D		CP	00DH
02B5  C26801		JP	NZ,START
02B8  CDC40D		CALL	DSPLAY
02BB  0D		DEFB	00DH
02BC  0A		DEFB	00AH
02BD  0D		DEFB	00DH
02BE  0A		DEFB	00AH
02BF  46		DEFB	'Format in progress - Press ESC '
02DE                    DEFB    'to abort.'
Š02E7  0D		DEFB	00DH
02E8  0A		DEFB	00AH
02E9    		DEFB	'Each * is one track formatted '
0307    		DEFB	'and verified.'
0314  0D		DEFB	00DH
0315  0A		DEFB	00AH
0316  24		DEFB	024H
0317  CD0708		CALL	A0807
031A  CDC40D		CALL	DSPLAY
031D  0D		DEFB	00DH
031E  0A		DEFB	00AH
031F  56		DEFB	'Verify complete.   '
0332  24		DEFB	024H
0333  3A940F		LD	A,(ERRFLG)
0336  B7		OR	A
0337  C25903		JP	NZ,A0359
033A  CDC40D		CALL	DSPLAY
033D  4E		DEFB	'NO errors were detected.'
0355  24		DEFB	024H
0356  C36801		JP	START
		;
0359  CDC40D	A0359:	CALL	DSPLAY
035C  45		DEFB	'Errors detected. +++ ERRORS +++'
037B  07		DEFB	007H
037C  24		DEFB	024H
037D  C36801		JP	START
		;
0380  CDC40D	A0380:	CALL	DSPLAY
0383  0D		DEFB	00DH
0384  0A		DEFB	00AH
0385  0D		DEFB	00DH
0386  0A		DEFB	00AH
0387  49		DEFB	'Insert SOURCE in '
0398  20        SRCDRV:  DEFB    020H
0399    		DEFB	', DESTINATION in '
03AA  20	DSTDRV:  DEFB    020H
03AB  20                DEFB    020H
03AC  0D		DEFB	00DH
03AD  0A		DEFB	00AH
03AÅ   5³ 		DEFÂ	§  and then press <CR> to copy '
03CC    		DEFB	'the disk'
03D4  0D		DEFB	00DH
03D5  0A		DEFB	00AH
03D6  20		DEFB	'     or any other key to '
03EF    		DEFB	'reset options. - '
0400  24		DEFB	024H
0401  CDD30D		CALL	GETCMD
0404  FE0D		CP	00DH
0406  C26801		JP	NZ,START
0409  CDC40D		CALL	DSPLAY
040C  0D		DEFB	00DH
040D  0A		DEFB	00AH
040E  0D		DEFB	00DH
040F  0A		DEFB	00AH
041°  4³		DEFÂ	'Copù iî progresó - Presó ESÃ '   
Š042D    		DEFB	'to abort.'
0436  0D		DEFB	00DH
0437  0A		DEFB	00AH
0438    		DEFB	'Each * is a track copied '
0451    		DEFB	'and verified.'
045E  0D		DEFB	00DH
045F  0A		DEFB	00AH
0460  24		DEFB	024H
0461  CD0708		CALL	A0807
0464  CDC40D		CALL	DSPLAY
0467  0D		DEFB	00DH
0468  0A		DEFB	00AH
0469  43		DEFB	'Copy complete.   '
047A  24		DEFB	024H
047B  3A940F		LD	A,(ERRFLG)
047E  B7		OR	A
047F  C2A104		JP	NZ,A04A1
0482  CDC40D		CALL	DSPLAY
0485  4E		DEFB	'NO errors were detected.'
049D  24		DEFB	024H
049E  C36801		JP	START
		;
04A1  CDC40D	A04A1:	CALL	DSPLAY
04A4  45		DEFB	'Errors detected. +++ ERRORS +++'
04C3  07		DEFB	007H
04C4  24		DEFB	024H
04C5  C36801		JP	START
		;
04C8  CDC40D	MNMENU:	CALL	DSPLAY
04CB  0D		DEFB	00DH
04CC  0A		DEFB	00AH
04CD  0D		DEFB	00DH
04CE  0A		DEFB	00AH
04CF  2A		DEFB	'******   O P T I O N   T A B L '
04EE    		DEFB	'E  ******'
04F8  24		DEFB	024H
04F9  3A840F		LD	A,(TRPFLG)
04FC  B7		OR	A
04FD  CA2E05		JP	Z,MESS17
0500  CDC40D		CALL	DSPLAY
0503  0D		DEFB	00DH
0504  0A		DEFB	00AH
0505  20		DEFB	'  <CR> = Run again with same '
0522    		DEFB	'parameters.'
052D  24		DEFB	024H
052E  CDC40D	MESS17:	CALL	DSPLAY
0531  0D		DEFB	00DH
0532  0A		DEFB	00AH
0533  20		DEFB	'  "A"  = Copy ALL '
0545  00	NUMTRK   NOP
0546  00		NOP      
0547  20		DEFB	' tracks per side.'
0558  0D		DEFB	00DH
0559  0A		DEFB	00AH
055A  20		DEFB	'         This option also '
Š0574    		DEFB	'FORMATS a new disk.'
0587  0D		DEFB	00DH
0588  0A		DEFB	00AH
0589  20		DEFB	'  "M" = Copy MOST until empty '
05A8  28		DEFB	'(0E5H) track.'
05B5  0D		DEFB	00DH
05B6  0A		DEFB	00AH
05B7  22  		DEF 	'  "V"  = VERIFY the disk by '   
05D3    		DEFB	'reading all data.'
05E4  0D		DEFB	00DH
05E5  0A		DEFB	00AH
05E6  20	      	DEFB	'  "E"  = EXIT and return to '
0602  43		DEFB	'CP/M.'
0607  0D		DEFB	00DH
0608  0A		DEFB	00AH
0609  0D		DEFB	00DH
060A  0A		DEFB	00AH
060B  45		DEFB	'Enter your selection from '
0624  6F		DEFB	'option table. - '
0635  24		DEFB	024H
0636  CDD30D		CALL	GETCMD
0639  21840F		LD	HL,TRPFLG
063C  BE		CP	(HL)
063D  C8		RET	Z
063E  32960F		LD	(CMDSTR),A
0641  210401		LD	HL,NMTRKS
0644  66		LD	H,(HL)
0645  2E00		LD	L,000H
0647  FE41		CP	041H
0649  CA8606		JP	Z,STRTRK
064C  FE4D		CP	04DH
064E  CA8606		JP	Z,STRTRK
0651  FE56		CP	056H
0653  CA8606		JP	Z,STRTRK
0656  FE45		CP	045H
0658  CA8B06		JP	Z,RETCPM
065B  CDC40D	MESS18  CALL    DSPLAY
065E  0D		DEFB	00DH
065F  0A		DEFB	00AH
0660  0D		DEFB	00DH
0661  0A		DEFB	00AH
0662  07		DEFB	007H
0663  49		DEFB	'Illegal selection.  Try again.'
0681  24		DEFB	024H
0682  3E01		LD	A,001H
0684  B7		OR	A
0685  C9		RET
		;
0686  22910F	STRTRK:	LD	(D0F91),HL
0689  AF		XOR	A
068A  C9		RET
		;
068B  2A990F	RETCPM:	LD	HL,(D0F99)
068E  7D		LD	A,L
068F  B4		OR	H
Š0690  CA9706		JP	Z,A0697
0693  3A980F		LD	A,(D0F98)
0696  77		LD	(HL),A
0697  CDC40D	A0697:	CALL	DSPLAY
069A  0D		DEFB	00DH
069B  0A		DEFB	00AH
069C  0D		DEFB	00DH
069D  0A		DEFB	00AH
069E  49		DEFB	'Insert CP/M disk in A, then '
06B5  74		DEFB	'press <CR>. - '
06C8  24		DEFB	024H
06C9  CDD30D		CALL	GETCMD
06CC  C30000		JP	X0000
		;
06CF  3A960F	CHKVFY:	LD	A,(CMDSTR)
06D2  FE56		CP	056H
06D4  CADA06		JP	Z,SELDRV
06D7  C34A07		JP	GETSRC
		;
06DA  CDC40D	SELDRV:	CALL	DSPLAY
06DD  0D		DEFB	00DH
06DE  0A		DEFB	00AH
06DF  0D		DEFB	00DH
06E0  0A		DEFB	00AH
06E1  45		DEFB	'Enter VERIFY drive name:  '
06FB  28		DEFB	'(A B C or D)'
0707  0D		DEFB	00DH
0708  0A		DEFB	00AH
0709  6F		DEFB	'or <CR> does default '     
071E  64		DEFB	'verify on drive A. - '
0733  24		DEFB	024H
0734  CDD30D		CALL	GETCMD
0737  FE0D		CP	00DH
0739  C23E07		JP	NZ,LDFALT
073C  3E41		LD	A,041H
073E  32A001	LDFALT:	LD	(D01A0),A
0741  D641		SUB	041H
0743  FE04		CP	004H
0745  D2DA06		JP	NC,SELDRV
0748  AF		XOR	A
0749  C9		RET
		;
074A  CDC40D	GETSRC:	CALL	DSPLAY
074D  0D		DEFB	00DH
074E  0A		DEFB	00AH
074F  0D		DEFB	00DH
0750  0A		DEFB	00AH
0751  45		DEFB	'Enter SOURCE drive name:  '
076B  28		DEFB	'(A B C or D)'
0777  24		DEFB	024H
0778  CDC40D		CALL	DSPLAY
077B  0D		DEFB	00DH
077C  0A		DEFB	00AH
077D  6F		DEFB	'or <CR> makes default copy from'
079C  20		DEFB	' A to B. - '
Š07A7  24		DEFB	024H
07A8  CDD30D		CALL	GETCMD
07AB  FE0D		CP	00DH
07AD  CAFC07		JP	Z,SETARG
07B0  329803		LD	(SRCDRV),A
07B3  D641		SUB	041H
07B5  FE04		CP	004H
07B7  D24A07		JP	NC,GETSRC
07BA  CDC40D	GETDST:	CALL	DSPLAY
07BD  0D		DEFB	00DH
07BE  0A		DEFB	00AH
07BF  0D		DEFB	00DH
07C0  0A		DEFB	00AH
07C1  45		DEFB	'Enter DESTINATION drive:'
07D9  20		DEFB	'  (A B C or D). - '
07EB  24		DEFB	024H
07EC  CDD30D		CALL	GETCMD
07EF  32AA03		LD	(DSTDRV),A
07F2  D641		SUB	041H
07F4  FE04		CP	004H
07F6  D2BA07		JP	NC,GETDST
07F9  C30508		JP	CLRARG
		;
07FC  3E41	SETARG:	LD	A,041H
07FE  329803		LD	(SRCDRV),A
0801  3C		INC	A
0802  32AA03		LD	(DSTDRV),A
0805  AF	CLRARG:	XOR	A
0806  C9		RET
		;
0807  AF	A0807:	XOR	A
0808  32850F		LD	(D0F85),A
080B  21A001		LD	HL,D01A0
080E  3A960F		LD	A,(CMDSTR)
0811  FE56		CP	056H
0813  C21A08		JP	NZ,A081A
0816  7E		LD	A,(HL)
0817  329803		LD	(SRCDRV),A
081A  219402	A081A:	LD	HL,T0294
081D  3A960F		LD	A,(CMDSTR)
0820  FE46		CP	046H
0822  C22C08		JP	NZ,A082C
0825  7E		LD	A,(HL)
0826  32AA03		LD	(DSTDRV),A
0829  329803		LD	(SRCDRV),A
082C  CD9C08	A082C:	CALL	TSTPRM
082F  229B0F		LD	(D0F9B),HL
0832  EB		EX	DE,HL
0833  229D0F		LD	(D0F9D),HL
0836  CDDE09		CALL	A09DE
0839  CDD70C		CALL	A0CD7
083C  CD980E		CALL	HOMEHD
083F  AF		XOR	A
0840  32940F		LD	(ERRFLG),A
0843  3A910F		LD	A,(D0F91)
Š0846  32890F		LD	(D0F89),A
0849  CD100E	A0849:	CALL	TSTEND
084C  3A960F		LD	A,(CMDSTR)
084F  FE46		CP	046H
0851  CA7008		JP	Z,A0870
0854  3A9803		LD	A,(SRCDRV)
0857  D641		SUB	041H
0859  328D0F		LD	(CDRIVE),A
085C  21E423		LD	HL,023E4H
085F  228A0F		LD	(D0F8A),HL
0862  CDE708		CALL	A08E7
0865  CD100E		CALL	TSTEND
0868  3A960F		LD	A,(CMDSTR)
086B  FE56		CP	056H
086D  CA8C08		JP	Z,A088C
0870  21850F	A0870:	LD	HL,D0F85
0873  7E		LD	A,(HL)
0874  B7		OR	A
0875  3601		LD	(HL),001H
0877  CCBB08		CALL	Z,A08BB
087A  3AAA03		LD	A,(DSTDRV)
087D  D641		SUB	041H
087F  328D0F		LD	(CDRIVE),A
0882  21E423		LD	HL,023E4H
0885  228A0F		LD	(D0F8A),HL
0888  CD2709		CALL	A0927
088B  D8		RET	C
088C  CD9409	A088C:	CALL	A0994
088F  21890F		LD	HL,D0F89
0892  86		ADD	A,(HL)
0893  77		LD	(HL),A
0894  3A920F		LD	A,(NOTRKS)
0897  BE		CP	(HL)
0898  C24908		JP	NZ,A0849
089B  C9		RET
		;
089C  3A9803	TSTPRM:	LD	A,(SRCDRV)
089F  D641		SUB	041H
08A1  4F		LD	C,A
08A2  3A860F		LD	A,(CPMFLG)
08A5  B7		OR	A
08A6  CAAE08		JP	Z,A08AE
08A9  3A0801		LD	A,(D0108)
08AC  B1		OR	C
08AD  4F		LD	C,A
08AE  CDDA08	A08AE:	CALL	MPMCPM
08B1  DA7A0B		JP	C,A0B7A
08B4  21500F		LD	HL,T0F50
08B7  110014		LD	DE,01400H
08BA  C9		RET
		;
08BB  C9	A08BB:	RET
		;
		; >> NO EXECUTION PATH TO HERE <<
08BC  3AAA03		LD	A,(DSTDRV)
Š08BF  D641		SUB	041H
08C1  4F		LD	C,A
08C2  3A860F		LD	A,(CPMFLG)
08C5  B7		OR	A
08C6  CACE08		JP	Z,A08CE
08C9  3A0801		LD	A,(D0108)
08CC  B1		OR	C
08CD  4F		LD	C,A
08CE  CDDA08	A08CE:	CALL	MPMCPM
08D1  DA7A0B		JP	C,A0B7A
08D4  CAD708		JP	Z,A08D7
08D7  C3980E	A08D7:	JP	HOMEHD
		;
08DA  CD9B0E	MPMCPM:	CALL	SETDRV
08DD  3A860F		LD	A,(CPMFLG)
08E0  B7		OR	A
08E1  C8		RET	Z
08E2  7D		LD	A,L
08E3  B4		OR	H
08E4  C0		RET	NZ
08E5  37		SCF
08E6  C9		RET
		;
08E7  CD9409	A08E7:	CALL	A0994
08EA  328C0F		LD	(D0F8C),A
08ED  3A890F		LD	A,(D0F89)
08F0  3D		DEC	A
08F1  328E0F		LD	(D0F8E),A
08F4  2A9D0F		LD	HL,(D0F9D)
08F7  7D		LD	A,L
08F8  2F		CPL
08F9  5F		LD	E,A
08FA  7C		LD	A,H
08FB  2F		CPL
08FC  57		LD	D,A
08FD  13		INC	DE
08FE  2A8A0F		LD	HL,(D0F8A)
0901  19		ADD	HL,DE
0902  228F0F		LD	(D0F8F),HL
0905  218E0F	A0905:	LD	HL,D0F8E
0908  34		INC	(HL)
0909  2A9D0F		LD	HL,(D0F9D)
090C  EB		EX	DE,HL
090D  2A8F0F		LD	HL,(D0F8F)
0910  19		ADD	HL,DE
0911  228F0F		LD	(D0F8F),HL
0914  CD7D0A		CALL	A0A7D
0917  3A960F		LD	A,(CMDSTR)
091A  FE56		CP	056H
091C  CCA809		CALL	Z,A09A8
091F  218C0F		LD	HL,D0F8C
0922  35		DEC	(HL)
0923  C20509		JP	NZ,A0905
0926  C9		RET
		;
Š0927  CD9409	A0927:	CALL	A0994
092A  328C0F		LD	(D0F8C),A
092D  3A890F		LD	A,(D0F89)
0930  3D		DEC	A
0931  328E0F		LD	(D0F8E),A
0934  2A9D0F		LD	HL,(D0F9D)
0937  7D		LD	A,L
0938  2F		CPL
0939  5F		LD	E,A
093A  7C		LD	A,H
093B  2F		CPL
093C  57		LD	D,A
093D  13		INC	DE
093E  2A8A0F		LD	HL,(D0F8A)
0941  19		ADD	HL,DE
0942  228F0F		LD	(D0F8F),HL
0945  218E0F	A0945:	LD	HL,D0F8E
0948  34		INC	(HL)
0949  2A9D0F		LD	HL,(D0F9D)
094C  EB		EX	DE,HL
094D  2A8F0F		LD	HL,(D0F8F)
0950  19		ADD	HL,DE
0951  228F0F		LD	(D0F8F),HL
0954  3A0301		LD	A,(D0103)
0957  3C		INC	A
0958  32950F		LD	(D0F95),A
095B  21950F	A095B:	LD	HL,D0F95
095E  35		DEC	(HL)
095F  FA8009		JP	M,A0980
0962  CD880A		CALL	A0A88
0965  2A8F0F		LD	HL,(D0F8F)
0968  229F0F		LD	(D0F9F),HL
096B  21E30F		LD	HL,STACKC
096E  228F0F		LD	(D0F8F),HL
0971  CD7D0A		CALL	A0A7D
0974  2A9F0F		LD	HL,(D0F9F)
0977  228F0F		LD	(D0F8F),HL
097A  CD480B		CALL	A0B48
097D  C25B09		JP	NZ,A095B
0980  CDA809	A0980:	CALL	A09A8
0983  CDAE09		CALL	A09AE
0986  37		SCF
0987  C8		RET	Z
0988  CD100E		CALL	TSTEND
098B  218C0F		LD	HL,D0F8C
098E  35		DEC	(HL)
098F  C24509		JP	NZ,A0945
0992  AF		XOR	A
0993  C9		RET
		;
0994  3A890F	A0994:	LD	A,(D0F89)
0997  47		LD	B,A
0998  3A880F		LD	A,(D0F88)
099B  4F		LD	C,A
099C  0C		INC	C
Š099D  0D	A099D:	DEC	C
099E  3A920F		LD	A,(NOTRKS)
09A1  90		SUB	B
09A2  B9		CP	C
09A3  DA9D09		JP	C,A099D
09A6  79		LD	A,C
09A7  C9		RET
		;
09A8  CDC40D	A09A8:	CALL	DSPLAY
09AB  2A24C9		LD	HL,(YC924)
09AE  3A960F	A09AE:	LD	A,(CMDSTR)
09B1  FE4E		CP	04EH
09B3  CABB09		JP	Z,A09BB
09B6  FE4D		CP	04DH
09B8  C2DA09		JP	NZ,A09DA
09BB  3A8E0F	A09BB:	LD	A,(D0F8E)
09BE  FE02		CP	002H
09C0  DADA09		JP	C,A09DA
09C3  2A9D0F		LD	HL,(D0F9D)
09C6  44		LD	B,H
09C7  4D		LD	C,L
09C8  21E30F		LD	HL,STACKC
09CB  7E	A09CB:	LD	A,(HL)
09CC  FEE5		CP	0E5H
09CE  C2DA09		JP	NZ,A09DA
09D1  23		INC	HL
09D2  0B		DEC	BC
09D3  78		LD	A,B
09D4  B1		OR	C
09D5  C2CB09		JP	NZ,A09CB
09D8  AF		XOR	A
09D9  C9		RET
		;
09DA  3E01	A09DA:	LD	A,001H
09DC  B7		OR	A
09DD  C9		RET
		;
09DE  2A0600	A09DE:	LD	HL,(X0006)
09E1  2E00		LD	L,000H
09E3  111DF0		LD	DE,0F01DH
09E6  19		ADD	HL,DE
09E7  E5		PUSH	HL
09E8  2A9D0F		LD	HL,(D0F9D)
09EB  EB		EX	DE,HL
09EC  3A0700		LD	A,(Y0007)
09EF  47		LD	B,A
09F0  0E00		LD	C,000H
09F2  21E423		LD	HL,023E4H
09F5  19	A09F5:	ADD	HL,DE
09F6  0C		INC	C
09F7  7C		LD	A,H
09F8  B8		CP	B
09F9  DAF509		JP	C,A09F5
09FC  0D		DEC	C
09FD  79		LD	A,C
Š09FE  32880F		LD	(D0F88),A
0A01  C1		POP	BC
0A02  21E30F		LD	HL,STACKC
0A05  3E1A	A0A05:	LD	A,01AH
0A07  77		LD	(HL),A
0A08  BE		CP	(HL)
0A09  C21A0A		JP	NZ,A0A1A
0A0C  2F		CPL
0A0D  77		LD	(HL),A
0A0E  BE		CP	(HL)
0A0F  C21A0A		JP	NZ,A0A1A
0A12  23		INC	HL
0A13  0B		DEC	BC
0A14  78		LD	A,B
0A15  B1		OR	C
0A16  C2050A		JP	NZ,A0A05
0A19  C9		RET
		;
0A1A  CDC40D	A0A1A:	CALL	DSPLAY
0A1D  0D		DEFB	00DH
0A1E  0A		DEFB	00AH
0A1F  0D		DEFB	00DH
0A20  0A		DEFB	00AH
0A21  41		DEFB	'ABORTING due to memory failure '
0A40  72		DEFB	'in buffer.'
0A4A  0D		DEFB	00DH
0A4B  0A		DEFB	00AH
0A4à 49  		DEF 	'Inserô CP/Í system disk and ' 
0A68  70		DEFB	'press <CR>. - '
0A76  24		DEFB	024H
0A77  CDD30D		CALL	GETCMD
0A7A  C38B06		JP	RETCPM
		;
0A7D  CD100E	A0A7D:	CALL	TSTEND
0A80  3E0D		LD	A,00DH
0A82  32840F		LD	(TRPFLG),A
0A85  C35B0C		JP	A0C5B
		;
0A88  CD100E	A0A88:	CALL	TSTEND
0A8B  C3600C		JP	A0C60
		;
		; >> NO EXECUTION PATH TO HERE <<
0A8E  3E01		LD	A,001H
0A90  32970F		LD	(D0F97),A
0A93  3A8D0F		LD	A,(CDRIVE)
0A96  4F		LD	C,A
0A97  CD9B0E		CALL	SETDRV
0A9A  3A8E0F		LD	A,(D0F8E)
0A9D  4F		LD	C,A
0A9E  0600		LD	B,000H
0AA0  CD9E0E		CALL	SETTRK
0AA3  0E01		LD	C,001H
0AA5  2A8F0F		LD	HL,(D0F8F)
0AA8  C5	A0AA8:	PUSH	BC
0AA9  E5		PUSH	HL
Š0AAA  CD4A0E		CALL	A0E4A
0AAD  0600		LD	B,000H
0AAF  CDA10E		CALL	SETSEC
0AB2  C1		POP	BC
0AB3  C5		PUSH	BC
0AB4  CDA40E		CALL	SETDMA
0AB7  3A0301		LD	A,(D0103)
0ABA  3C		INC	A
0ABB  47		LD	B,A
0ABC  05	A0ABC:	DEC	B
0ABD  FAC90A		JP	M,A0AC9
0AC0  C5		PUSH	BC
0AC1  CDA70E		CALL	READSK
0AC4  C1		POP	BC
0AC5  B7		OR	A
0AC6  C2BC0A		JP	NZ,A0ABC
0AC9  E1	A0AC9:	POP	HL
0ACA  118000		LD	DE,00080H
0ACD  19		ADD	HL,DE
0ACE  C1		POP	BC
0ACF  C4C60B		CALL	NZ,A0BC6
0AD2  0C		INC	C
0AD3  CD360B		CALL	A0B36
0AD6  7B		LD	A,E
0AD7  3C		INC	A
0AD8  B9		CP	C
0AD9  C2A80A		JP	NZ,A0AA8
0ADC  C9		RET
		;
		; >> NO EXECUTION PATH TO HERE <<
0ADD  3E01		LD	A,001H
0ADF  32970F		LD	(D0F97),A
0AE2  3A8D0F		LD	A,(CDRIVE)
0AE5  4F		LD	C,A
0AE6  CD9B0E		CALL	SETDRV
0AE9  3A8E0F		LD	A,(D0F8E)
0AEC  4F		LD	C,A
0AED  0600		LD	B,000H
0AEF  CD9E0E		CALL	SETTRK
0AF2  0E01		LD	C,001H
0AF4  2A8F0F		LD	HL,(D0F8F)
0AF7  C5	A0AF7:	PUSH	BC
0AF8  E5		PUSH	HL
0AF9  CD4A0E		CALL	A0E4A
0AFC  0600		LD	B,000H
0AFE  CDA10E		CALL	SETSEC
0B01  C1		POP	BC
0B02  C5		PUSH	BC
0B03  CDA40E		CALL	SETDMA
0B06  3A0301		LD	A,(D0103)
0B09  3C		INC	A
0B0A  47		LD	B,A
0B0B  05	A0B0B:	DEC	B
0B0C  FA220B		JP	M,A0B22
0B0F  C5		PUSH	BC
Š0B10  CDC50C		CALL	A0CC5
0B13  0E02		LD	C,002H
0B15  CDAA0E		CALL	WRTDSK
0B18  F5		PUSH	AF
0B19  CDCF0C		CALL	A0CCF
0B1C  F1		POP	AF
0B1D  C1		POP	BC
0B1E  B7		OR	A
0B1F  C20B0B		JP	NZ,A0B0B
0B22  E1	A0B22:	POP	HL
0B23  118000		LD	DE,00080H
0B26  19		ADD	HL,DE
0B27  C1		POP	BC
0B28  C4D60B		CALL	NZ,A0BD6
0B2B  0C		INC	C
0B2C  CD360B		CALL	A0B36
0B2F  7B		LD	A,E
0B30  3C		INC	A
0B31  B9		CP	C
0B32  C2F70A		JP	NZ,A0AF7
0B35  C9		RET
		;
0B36  3A0501	A0B36:	LD	A,(D0105)
0B39  5F		LD	E,A
0B3A  3A8E0F		LD	A,(D0F8E)
0B3D  B7		OR	A
0B3E  C0		RET	NZ
0B3F  3A0701		LD	A,(A0107)
0B42  B7		OR	A
0B43  C8		RET	Z
0B44  1E1A		LD	E,01AH
0B46  37		SCF
0B47  C9		RET
		;
0B48  AF	A0B48:	XOR	A
0B49  32930F		LD	(D0F93),A
0B4C  CD360B		CALL	A0B36
0B4F  01000D		LD	BC,T0D00
0B52  DA5A0B		JP	C,A0B5A
0B55  2A9D0F		LD	HL,(D0F9D)
0B58  4D		LD	C,L
0B59  44		LD	B,H
0B5A  2A8F0F	A0B5A:	LD	HL,(D0F8F)
0B5D  EB		EX	DE,HL
0B5E  21E30F		LD	HL,STACKC
0B61  1A		LD	A,(DE)
0B62  BE		CP	(HL)
0B63  CA700B		JP	Z,A0B70
0B66  3A950F		LD	A,(D0F95)
0B69  B7		OR	A
0B6A  3E01		LD	A,001H
0B6C  C0		RET	NZ
0B6D  CD9E0B		CALL	A0B9E
0B70  23	A0B70:	INC	HL
0B71  13		INC	DE
Š0B72  0B		DEC	BC
0B73  79		LD	A,C
0B74  B0		OR	B
0B75  C25A0B		JP	NZ,A0B5A
0B78  AF		XOR	A
0B79  C9		RET
		;
0B7A  CDC40D	A0B7A:	CALL	DSPLAY
0B7D  0D		DEFB	00DH
0B7E  0A		DEFB	00AH
0B7F  2A		DEFB	'***** Select error *****'
0B97  24		DEFB	024H
0B98  CD130C		CALL	A0C13
0B9B  C36801		JP	START
		;
0B9E  3E01	A0B9E:	LD	A,001H
0BA0  32970F		LD	(D0F97),A
0BA3  E5		PUSH	HL
0BA4  D5		PUSH	DE
0BA5  C5		PUSH	BC
0BA6  111DF0		LD	DE,0F01DH
0BA9  19		ADD	HL,DE
0BAA  29		ADD	HL,HL
0BAB  24		INC	H
0BAC  4C		LD	C,H
0BAD  21930F		LD	HL,D0F93
0BB0  79		LD	A,C
0BB1  BE		CP	(HL)
0BB2  77		LD	(HL),A
0BB3  CA0C0C		JP	Z,A0C0C
0BB6  CDC40D		CALL	DSPLAY
0BB9  0D		DEFB	00DH
0BBA  0A		DEFB	00AH
0BBB  43		DEFB	'Compare'
0BC2  24		DEFB	024H
0BC3  C3E40B		JP	A0BE4
		;
0BC6  E5	A0BC6:	PUSH	HL
0BC7  D5		PUSH	DE
0BC8  C5		PUSH	BC
0BC9  CDC40D		CALL	DSPLAY
0BCC  0D		DEFB	00DH
0BCD  0A		DEFB	00AH
0BCE  52		DEFB	'Read'
0BD2  24		DEFB	024H
0BD3  C3E40B		JP	A0BE4
		;
0BD6  E5	A0BD6:	PUSH	HL
0BD7  D5		PUSH	DE
0BD8  C5		PUSH	BC
0BD9  CDC40D		CALL	DSPLAY
0BDC  0D		DEFB	00DH
0BDD  0A		DEFB	00AH
0BDE  57		DEFB	'Write'
0BE3  24		DEFB	024H
Š0BE4  CDC40D	A0BE4:	CALL	DSPLAY
0BE7  20		DEFB	' error at '
0BF1  24		DEFB	024H
0BF2  C5		PUSH	BC
0BF3  CD290C		CALL	A0C29
0BF6  C1		POP	BC
0BF7  3A970F		LD	A,(D0F97)
0BFA  B7		OR	A
0BFB  C4400C		CALL	NZ,A0C40
0BFE  CD130C		CALL	A0C13
0C01  CDC40D		CALL	DSPLAY
0C04  07		RLCA
0C05  2024		JR	NZ,A0C2B
0C07  3EFF		LD	A,0FFH
0C09  32940F		LD	(ERRFLG),A
0C0C  CD100E	A0C0C:	CALL	TSTEND
0C0F  C1		POP	BC
0C10  D1		POP	DE
0C11  E1		POP	HL
0C12  C9		RET
		;
0C13  CDC40D	A0C13:	CALL	DSPLAY
0C16  20		DEFB	' on drive '
0C20  24		DEFB	024H
0C21  3A8D0F		LD	A,(CDRIVE)
0C24  C641		ADD	A,041H
0C26  C3B40D		JP	ABORT
		;
0C29  3A8E0F	A0C29:	LD	A,(D0F8E)
0C2C  213C0C		LD	HL,T0C3C
0C2F  CD9A0D		CALL	TRKNUM
0C32  CDC40D		CALL	DSPLAY
0C35  20		DEFB	' Track '  
0C3C  20	T0C3C:	DEFB	020H
0C3D  20		DEFB	020H
0C3E  24		DEFB	024H
0C3F  C9		RET
		;
0C40  CD4A0E	A0C40:	CALL	A0E4A
0C43  79		LD	A,C
0C44  21570C		LD	HL,T0C57
0C47  CD9A0D		CALL	TRKNUM
0C4A  CDC40D		CALL	DSPLAY
0C4D  20		DEFB	' - Sector '
0C57  20	T0C57:	DEFB	020H
0C58  20		DEFB	020H
0C59  24		DEFB	024H
0C5A  C9		RET
		;
0C5B  1E01	A0C5B:	LD	E,001H
0C5D  C3620C		JP	A0C62
		;
0C60  1E00	A0C60:	LD	E,000H
0C62  AF	A0C62:	XOR	A
0C63  32970F		LD	(D0F97),A
Š0C66  3A0301		LD	A,(D0103)
0C69  3C		INC	A
0C6A  47		LD	B,A
0C6B  7B		LD	A,E
0C6C  B7		OR	A
0C6D  CCC50C		CALL	Z,A0CC5
0C70  C5	A0C70:	PUSH	BC
0C71  3A8D0F		LD	A,(CDRIVE)
0C74  3C		INC	A
0C75  4F		LD	C,A
0C76  3AC40C		LD	A,(D0CC4)
0C79  E680		AND	080H
0C7B  B1		OR	C
0C7C  4F		LD	C,A
0C7D  218E0F		LD	HL,D0F8E
0C80  46		LD	B,(HL)
0C81  3AC40C		LD	A,(D0CC4)
0C84  E640		AND	040H
0C86  CA9C0C		JP	Z,A0C9C
0C89  3A0401		LD	A,(NMTRKS)
0C8C  57		LD	D,A
0C8D  3D		DEC	A
0C8E  218E0F		LD	HL,D0F8E
0C91  96		SUB	(HL)
0C92  46		LD	B,(HL)
0C93  D29C0C		JP	NC,A0C9C
0C96  82		ADD	A,D
0C97  47		LD	B,A
0C98  79		LD	A,C
0C99  F640		OR	040H
0C9B  4F		LD	C,A
0C9C  1600	A0C9C:	LD	D,000H
0C9E  2A8F0F		LD	HL,(D0F8F)
0CA1  3E0A		LD	A,00AH
0CA3  CDB30E		CALL	A0EB3
0CA6  C1		POP	BC
0CA7  B7		OR	A
0CA8  CABE0C		JP	Z,A0CBE
0CAB  05		DEC	B
0CAC  C2700C		JP	NZ,A0C70
0CAF  3E03		LD	A,003H
0CB1  B7		OR	A
0CB2  C2BB0C		JP	NZ,A0CBB
0CB5  CDD60B		CALL	A0BD6
0CB8  C3BE0C		JP	A0CBE
		;
0CBB  CDC60B	A0CBB:	CALL	A0BC6
0CBE  F5	A0CBE:	PUSH	AF
0CBF  CDCF0C		CALL	A0CCF
0CC2  F1		POP	AF
0CC3  C9		RET
		;
		; >> NO EXECUTION PATH TO HERE <<
0CC4  00	D0CC4:	NOP
0CC5  3A980F	A0CC5:	LD	A,(D0F98)
Š0CC8  E6BF		AND	0BFH
0CCA  2A990F		LD	HL,(D0F99)
0CCD  77		LD	(HL),A
0CCE  C9		RET
		;
0CCF  3A980F	A0CCF:	LD	A,(D0F98)
0CD2  2A990F		LD	HL,(D0F99)
0CD5  77		LD	(HL),A
0CD6  C9		RET
		;
0CD7  2A990F	A0CD7:	LD	HL,(D0F99)
0CDA  7D		LD	A,L
0CDB  B4		OR	H
0CDC  C2EF0C		JP	NZ,A0CEF
0CDF  2A0100		LD	HL,(Y0001)
0CE2  2E08		LD	L,008H
0CE4  66		LD	H,(HL)
0CE5  25		DEC	H
0CE6  2EFF		LD	L,0FFH
0CE8  7E		LD	A,(HL)
0CE9  32980F		LD	(D0F98),A
0CEC  22990F		LD	(D0F99),HL
0CEF  3A860F	A0CEF:	LD	A,(CPMFLG)
0CF2  B7		OR	A
0CF3  C23B0D		JP	NZ,A0D3B
0CF6  3A9803		LD	A,(SRCDRV)
0CF9  D641		SUB	041H
0CFB  CD2A0D		CALL	A0D2A
0CFE  32C40C		LD	(D0CC4),A
0D01  3AAA03		LD	A,(DSTDRV)
0D04  D641		SUB	041H
0D06  CD2A0D		CALL	A0D2A
0D09  21C40C		LD	HL,D0CC4
0D0C  BE		CP	(HL)
0D0D  C8		RET	Z
0D0E  CDC40D		CALL	DSPLAY
0D11  0D		DEFB	00DH
0D12  0A		DEFB	00AH
0D13  0D		DEFB	00DH
0D14  0A		DEFB	00AH
0D15  44		DEFB	'Density mismatch '
0D26  24		DEFB	024H
0D27  C38B06		JP	RETCPM
		;
0D2A  4F	A0D2A:	LD	C,A
0D2B  0C		INC	C
0D2C  2A990F		LD	HL,(D0F99)
0D2F  2EFB		LD	L,0FBH
0D31  7E		LD	A,(HL)
0D32  0F	A0D32:	RRCA
0D33  0F		RRCA
0D34  0D		DEC	C
0D35  C2320D		JP	NZ,A0D32
0D38  E680		AND	080H
0D3A  C9		RET
Š		;
0D3B  2A990F	A0D3B:	LD	HL,(D0F99)
0D3E  2EFA		LD	L,0FAH
0D40  3A9803		LD	A,(SRCDRV)
0D43  D641		SUB	041H
0D45  4F		LD	C,A
0D46  0600		LD	B,000H
0D48  09		ADD	HL,BC
0D49  7E		LD	A,(HL)
0D4A  32C40C		LD	(D0CC4),A
0D4D  E640		AND	040H
0D4F  CA680D		JP	Z,A0D68
0D52  3A9803		LD	A,(SRCDRV)
0D55  D641		SUB	041H
0D57  CD8B0D		CALL	A0D8B
0D5A  D2680D		JP	NC,A0D68
0D5D  3AAA03		LD	A,(DSTDRV)
0D60  D641		SUB	041H
0D62  CD8B0D		CALL	A0D8B
0D65  DA700D		JP	C,A0D70
0D68  3AC40C	A0D68:	LD	A,(D0CC4)
0D6B  E6BF		AND	0BFH
0D6D  32C40C		LD	(D0CC4),A
0D70  3A0401	A0D70:	LD	A,(NMTRKS)
0D73  47		LD	B,A
0D74  3AC40C		LD	A,(D0CC4)
0D77  E640		AND	040H
0D79  CA7F0D		JP	Z,A0D7F
0D7C  78		LD	A,B
0D7D  80		ADD	A,B
0D7E  47		LD	B,A
0D7F  21920F	A0D7F:	LD	HL,NOTRKS
0D82  7E		LD	A,(HL)
0D83  FE02		CP	002H
0D85  CA890D		JP	Z,A0D89
0D88  70		LD	(HL),B
0D89  AF	A0D89:	XOR	A
0D8A  C9		RET
		;
0D8B  4F	A0D8B:	LD	C,A
0D8C  0C		INC	C
0D8D  2A990F		LD	HL,(D0F99)
0D90  2EF8		LD	L,0F8H
0D92  7E		LD	A,(HL)
0D93  0D	A0D93:	DEC	C
0D94  07		RLCA
0D95  C2930D		JP	NZ,A0D93
0D98  C9		RET
		;
		; >> NO EXECUTION PATH TO HERE <<
0D99  C9		RET
		;
0D9A  060A	TRKNUM:	LD	B,00AH
0D9C  CDAA0D		CALL	SETCNT
0D9F  C630		ADD	A,030H
Š0DA1  77		LD	(HL),A
0DA2  2B		DEC	HL
0DA3  3E30		LD	A,030H
0DA5  BE		CP	(HL)
0DA6  C0		RET	NZ
0DA7  3620		LD	(HL),020H
0DA9  C9		RET
		;
0DAA  362F	SETCNT:	LD	(HL),02FH
0DAC  34	SETFLG:	INC	(HL)
0DAD  90		SUB	B
0DAE  D2AC0D		JP	NC,SETFLG
0DB1  80		ADD	A,B
0DB2  23		INC	HL
0DB3  C9		RET
		;
0DB4  F5	ABORT:	PUSH	AF
0DB5  CD100E		CALL	TSTEND
0DB8  F1		POP	AF
0DB9  5F		LD	E,A
0DBA  0E02		LD	C,002H
0DBC  C30500		JP	BDOS
		;
0DBF  0E09	A0DBF:	LD	C,009H
0DC1  C30500		JP	BDOS
		;
0DC4  E3	DSPLAY:	EX	(SP),HL
0DC5  7E		LD	A,(HL)
0DC6  23		INC	HL
0DC7  E3		EX	(SP),HL
0DC8  FE24		CP	024H
0DCA  C8		RET	Z
0DCB  E5		PUSH	HL
0DCC  CDB40D		CALL	ABORT
0DCF  E1		POP	HL
0DD0  C3C40D		JP	DSPLAY
		;
0DD3  AF	GETCMD:	XOR	A
0DD4  11FE0D		LD	DE,T0DFE
0DD7  12		LD	(DE),A
0DD8  1B		DEC	DE
0DD9  0E0A		LD	C,00AH
0DDB  CD0500		CALL	BDOS
0DDE  21FE0D		LD	HL,T0DFE
0DE1  4E		LD	C,(HL)
0DE2  23		INC	HL
0DE3  0600		LD	B,000H
0DE5  09		ADD	HL,BC
0DE6  360D		LD	(HL),00DH
0DE8  0C		INC	C
0DE9  7E	CONVRT:	LD	A,(HL)
0DEA  CDF40D		CALL	A0DF4
0DED  77		LD	(HL),A
0DEE  2B		DEC	HL
0DEF  0D		DEC	C
Š0DF0  C2E90D		JP	NZ,CONVRT
0DF3  C9		RET
		;
0DF4  FE60	A0DF4:	CP	060H
0DF6  D8		RET	C
0DF7  FE7B		CP	07BH
0DF9  D0		RET	NC
0DFA  E65F		AND	05FH
0DFC  C9		RET
		;
		; >> NO EXECUTION PATH TO HERE <<
0DFD  1000		DJNZ	A0DFF
0DFF  00	A0DFF:	NOP
0E00  00		NOP
0E01  00		NOP
0E02  00		NOP
0E03  00		NOP
0E04  00		NOP
0E05  00		NOP
0E06  00		NOP
0E07  00		NOP
0E08  00		NOP
0E09  00		NOP
0E0A  00		NOP
0E0B  00		NOP
0E0C  00		NOP
0E0D  00		NOP
0E0E  00		NOP
0E0F  0D		DEC	C
0E10  CD8F0E	TSTEND:	CALL	CONSTT
0E13  B7		OR	A
0E14  C8		RET	Z
0E15  CD920E		CALL	CONINN
0E18  FE1B		CP	01BH
0E1A  C0		RET	NZ
0E1B  CDC40D		CALL	DSPLAY
0E1E  0D		DEFB	00DH
0E1F  0A		DEFB	00AH
0E20  0D		DEFB	00DH
0E21  0A		DEFB	00AH
0E22  43		DEFB	'Console ESCAPE has aborted '
0E3D  74		DEFB	'the copy.'
0E46  24		DEFB	024H
0E47  C36801		JP	START
		;
0E4A  0600	A0E4A:	LD	B,000H
0E4C  0D		DEC	C
0E4D  CD360B		CALL	A0B36
0E50  21500F		LD	HL,T0F50
0E53  DA6D0E		JP	C,A0E6D
0E56  2A9B0F		LD	HL,(D0F9B)
0E59  3A0601		LD	A,(D0106)
0E5C  B7		OR	A
0E5D  CA6D0E		JP	Z,A0E6D
0E60  3A860F		LD	A,(CPMFLG)
Š0E63  B7		OR	A
0E64  CA6D0E		JP	Z,A0E6D
0E67  EB		EX	DE,HL
0E68  CDB00E		CALL	SECTRN
0E6B  4D		LD	C,L
0E6C  C9		RET
		;
0E6D  0600	A0E6D:	LD	B,000H
0E6F  09		ADD	HL,BC
0E70  4E		LD	C,(HL)
0E71  C9		RET
		;
0E72  3A0200	SETJMP:	LD	A,(Y0002)
0E75  21910E		LD	HL,T0E91
0E78  060D		LD	B,00DH
0E7A  77	A0E7A:	LD	(HL),A
0E7B  23		INC	HL
0E7C  23		INC	HL
0E7D  23		INC	HL
0E7E  05		DEC	B
0E7F  C27A0E		JP	NZ,A0E7A
0E82  3A860F		LD	A,(CPMFLG)
0E85  B7		OR	A
0E86  C0		RET	NZ
0E87  21B40E		LD	HL,T0EB4
0E8A  7E		LD	A,(HL)
0E8B  D603		SUB	003H
0E8D  77		LD	(HL),A
0E8E  C9		RET
		;
0E8F  C30600	CONSTT:	JP	X0006
		;
0E92  C30900	CONINN:	JP	X0009
		;
		; >> NO EXECUTION PATH TO HERE <<
0E95  C30C00		JP	X000C
		;
0E98  C31800	HOMEHD:	JP	X0018
		;
0E9B  C31B00	SETDRV:	JP	X001B
		;
0E9E  C31E00	SETTRK:	JP	X001E
		;
0EA1  C32100	SETSEC:	JP	X0021
		;
0EA4  C32400	SETDMA:	JP	X0024
		;
0EA7  C32700	READSK:	JP	X0027
		;
0EAA  C32A00	WRTDSK:	JP	X002A
		;
		; >> NO EXECUTION PATH TO HERE <<
0EAD  C32D00		JP	X002D
		;
0EB0  C33000	SECTRN:	JP	X0030
Š		;
0EB3  C33300	A0EB3:	JP	X0033
		;
		; >> NO EXECUTION PATH TO HERE <<
0EB6  00		NOP
0EB7  00		NOP
0EB8  00		NOP
0EB9  00		NOP
0EBA  00		NOP
0EBB  00		NOP
0EBC  00		NOP
0EBD  00		NOP
0EBE  00		NOP
0EBF  00		NOP
0EC0  0D	T0EC0:	DEFB	00DH
0EC1  0A		DEFB	00AH
0EC2  0D		DEFB	00DH
0EC3  0A		DEFB	00AH
0EC´  44 		DEFÂ	'Disë copù foò double/quaä ' 
0EDD  20		DEFB	'CP/M2 on North Star.'
0EF2  0D		DEFB	00DH
0EF3  0A		DEFB	00AH
0EF4  53		DEFB	'Source disk controls density'
0F10  20		DEFB	' and number of sides.'
0F25  24                DEFB    024H
0F26  00		DEFB	000H
0F27  00		DEFB	000H
0F28  00		DEFB	000H
0F29  00		DEFB	000H
0F2A  00		DEFB	000H
0F2B  00		DEFB	000H
0F2C  00		DEFB	000H
0F2D  00		DEFB	000H
0F2E  00		DEFB	000H
0F2F  00		DEFB	000H
0F30  00		DEFB	000H
0F31  00		DEFB	000H
0F32  00		DEFB	000H
0F33  00		DEFB	000H
0F34  00		DEFB	000H
0F35  00		DEFB	000H
0F36  00		DEFB	000H
0F37  00		DEFB	000H
0F38  00		DEFB	000H
0F39  00		DEFB	000H
0F3A  00		DEFB	000H
0F3B  00		DEFB	000H
0F3C  00		DEFB	000H
0F3D  00		DEFB	000H
0F3E  00		DEFB	000H
0F3F  00		DEFB	000H
0F40  54		DEFB	'Translate table '
0F50  01	T0F50:	DEFB	1,2,3,4,5,6,7,8,9,10
0F51  0B		DEFB	11,12,13,14,15,16,17   
0F61  12		DEFB	18,19,20,21,22,23,24
Š0F68  19		DEFB	25,26,27,28,29,30,31
0F6F  20		DEFB	32,33,34,35,36,37,38
0F76  27		DEFB	39,40,41,42,43,44,45
0F7D  2E		DEFB	46,47,48,49,50,51,52
0F84  00	TRPFLG:	DEFB	000H
0F85  00	D0F85:	DEFB	000H
0F86  00	CPMFLG:	DEFB	000H
0F87  00		DEFB	000H
0F88  00	D0F88:	DEFB	000H
0F89  00	D0F89:	DEFB	000H
0F8A  00	D0F8A:	DEFB	000H
0F8B  00		DEFB	000H
0F8C  00	D0F8C:	DEFB	000H
0F8D  00	CDRIVE:	DEFB	000H
0F8E  00	D0F8E:	DEFB	000H
0F8F  00	D0F8F:	DEFB	000H
0F90  00		DEFB	000H
0F91  00	D0F91:	DEFB	000H
0F92  00	NOTRKS:	DEFB	000H
0F93  00	D0F93:	DEFB	000H
0F94  00	ERRFLG:	DEFB	000H
0F95  00	D0F95:	DEFB	000H
0F96  00	CMDSTR:	DEFB	000H
0F97  00	D0F97:	DEFB	000H
0F98  00	D0F98:	DEFB	000H
0F99  00	D0F99:	DEFB	000H
0F9A  00		DEFB	000H
0F9B  00	D0F9B:	DEFB	000H
0F9C  00		DEFB	000H
0F9D  00	D0F9D:	DEFB	000H
0F9E  00		DEFB	000H
0F9F  00	D0F9F:	DEFB	000H
0FA0  00		DEFB	000H
0FA1  00		DEFB	000H
0FA2  00		DEFB	000H
0FA3  00		DEFB	000H
0FA4  00		DEFB	000H
0FA5  00		DEFB	000H
0FA6  00		DEFB	000H
0FA7  00		DEFB	000H
0FA8  00		DEFB	000H
0FA9  00		DEFB	000H
0FAA  00		DEFB	000H
0FAB  00		DEFB	000H
0FAC  00		DEFB	000H
0FAD  00		DEFB	000H
0FAE  00		DEFB	000H
0FAF  00		DEFB	000H
0FB0  00		DEFB	000H
0FB1  00		DEFB	000H
0FB2  00		DEFB	000H
0FB3  00		DEFB	000H
0FB4  00		DEFB	000H
0FB5  00		DEFB	000H
0FB6  00		DEFB	000H
Š0FB7  00		DEFB	000H
0FB8  00		DEFB	000H
0FB9  00		DEFB	000H
0FBA  00		DEFB	000H
0FBB  00		DEFB	000H
0FBC  00		DEFB	000H
0FBD  00		DEFB	000H
0FBE  00		DEFB	000H
0FBF  00		DEFB	000H
0FC0  00		DEFB	000H
0FC1  00		DEFB	000H
0FC2  00		DEFB	000H
0FC3  00		DEFB	000H
0FC4  00		DEFB	000H
0FC5  00		DEFB	000H
0FC6  00		DEFB	000H
0FC7  00		DEFB	000H
0FC8  00		DEFB	000H
0FC9  00		DEFB	000H
0FCA  00		DEFB	000H
0FCB  00		DEFB	000H
0FCC  00		DEFB	000H
0FCD  00		DEFB	000H
0FCE  00		DEFB	000H
0FCF  00		DEFB	000H
0FD0  00		DEFB	000H
0FD1  00		DEFB	000H
0FD2  00		DEFB	000H
0FD3  00		DEFB	000H
0FD4  00		DEFB	000H
0FD5  00		DEFB	000H
0FD6  00		DEFB	000H
0FD7  00		DEFB	000H
0FD8  00		DEFB	000H
0FD9  00		DEFB	000H
0FDA  00		DEFB	000H
0FDB  00		DEFB	000H
0FDC  00		DEFB	000H
0FDD  00		DEFB	000H
0FDE  00		DEFB	000H
0FDF  00		DEFB	000H
0FE0  00		DEFB	000H
0FE1  00		DEFB	000H
0FE2  00		DEFB	000H
0FE3  00	STACKC:	DEFB	000H
0FE4  00		DEFB	000H
0FE5  00		DEFB	000H
0FE6  00		DEFB	000H
0FE7  00		DEFB	000H
0FE8  00		DEFB	000H
0FE9  00		DEFB	000H
0FEA  00		DEFB	000H
0FEB  00		DEFB	000H
0FEC  00		DEFB	000H
0FED  00		DEFB	000H
Š0FEE  00		DEFB	000H
0FEF  00		DEFB	000H
0FF0  00		DEFB	000H
0FF1  00		DEFB	000H
0FF2  00		DEFB	000H
0FF3  00		DEFB	000H
0FF4  00		DEFB	000H
0FF5  00		DEFB	000H
0FF6  00		DEFB	000H
0FF7  00		DEFB	000H
0FF8  00		DEFB	000H
0FF9  00		DEFB	000H
0FFA  00		DEFB	000H
0FFB  00		DEFB	000H
0FFC  00		DEFB	000H
0FFD  00		DEFB	000H
0FFE  00		DEFB	000H
0FFF  00		DEFB	000H
			END
		;
		; UNRESOLVED LABELS
		; D0106   A0C2B   T0D00   T0DFE   T0E91
		; T0EB4
		;
		; LABLE CROSS REFRENCE
		;X0000      Z0142   X06CC
		;Y0001      Y0CDF
		;Y0002      Y0E72
		;BDOS      X014A   X0DBC   X0DC1   X0DDB
		;X0006      Y09DE   X0E8F
		;Y0007      Y09EC
		;X0009      X0E92
		;X000C      X0E95
		;X0018      X0E98
		;X001B      X0E9B
		;X001E      X0E9E
		;X0021      X0EA1
		;X0024      X0EA4
		;X0027      X0EA7
		;X002A      X0EAA
		;X002D      X0EAD
		;X0030      X0EB0
		;X0033      X0EB3
		;Z0080      Z0ACA   Z0B23
		;D0103      D0954   D0AB7   D0B06   D0C66
		;NMTRKS      D0153   T0641   D0C89   D0D70
		;D0105      D0B36
		;D0106      D0E59
		;A0107      A0105   D0B3F
		;D0108      D08A9   D08C9
		;T0109      T015C
		;A013B      A0100
		;START      A016E   A0179   A01C1   A0254
		;           A027B   A02B5   A0356   A037D
		;           A0406   A049E   A04C5   A0B9B
Š		;           A0E47
		;EXECUT      A0173
		;VERIFY      A0184
		;D01A0      D073E   T080B
		;A0257      A0235
		;T0294      T081A
		;A0359      A0337
		;A0380      A0187
		;SRCDRV      D07B0   D07FE   D0817   D0829
		;           D0854   D089C   D0CF6   D0D40
		;           D0D52
		;DSTDRV      D07EF   D0802   D0826   D087A
		;           D08BC   D0D01   D0D5D
		;A04A1      A047F
		;MNMENU      A016B
		;MESS17      A04FD
		;NUMTRK      T0156
		;STRTRK      A0649   A064E   A0653
		;RETCPM      A0658   A0A7A   A0D27
		;A0697      A0690
		;CHKVFY      A0176
		;SELDRV      A06D4   A0745
		;LDFALT      A0739
		;GETSRC      A06D7   A07B7
		;GETDST      A07F6
		;SETARG      A07AD
		;CLRARG      A07F9
		;A0807      A0215   A0317   A0461
		;A081A      A0813
		;A082C      A0822
		;A0849      A0898
		;A0870      A0851
		;A088C      A086D
		;TSTPRM      A082C
		;A08AE      A08A6
		;A08BB      A0877
		;A08CE      A08C6
		;A08D7      A08D4
		;MPMCPM      A08AE   A08CE
		;A08E7      A0862
		;A0905      A0923
		;A0927      A0888
		;A0945      A098F
		;A095B      A097D
		;A0980      A095F
		;A0994      A088C   A08E7   A0927
		;A099D      A09A3
		;A09A8      A091C   A0980
		;A09AE      A0983
		;A09BB      A09B3
		;A09CB      A09D5
		;A09DA      A09B8   A09C0   A09CE
		;A09DE      A0836
		;A09F5      A09F9
		;A0A05      A0A16
Š		;A0A1A      A0A09   A0A0F
		;A0A7D      A0914   A0971
		;A0A88      A0962
		;A0AA8      A0AD9
		;A0ABC      A0AC6
		;A0AC9      A0ABD
		;A0AF7      A0B32
		;A0B0B      A0B1F
		;A0B22      A0B0C
		;A0B36      A0AD3   A0B2C   A0B4C   A0E4D
		;A0B48      A097A
		;A0B5A      A0B52   A0B75
		;A0B70      A0B63
		;A0B7A      A08B1   A08D1
		;A0B9E      A0B6D
		;A0BC6      A0ACF   A0CBB
		;A0BD6      A0B28   A0CB5
		;A0BE4      A0BC3   A0BD3
		;A0C0C      A0BB3
		;A0C13      A0B98   A0BFE
		;A0C29      A0BF3
		;A0C2B      A0C05
		;T0C3C      T0C2C
		;A0C40      A0BFB
		;T0C57      T0C44
		;A0C5B      A0A85
		;A0C60      A0A8B
		;A0C62      A0C5D
		;A0C70      A0CAC
		;A0C9C      A0C86   A0C93
		;A0CBB      A0CB2
		;A0CBE      A0CA8   A0CB8
		;D0CC4      D0C76   D0C81   D0CFE   T0D09
		;           D0D4A   D0D68   D0D6D   D0D74
		;A0CC5      A0B10   A0C6D
		;A0CCF      A0B19   A0CBF
		;A0CD7      A0839
		;A0CEF      A0CDC
		;T0D00      T0B4F
		;A0D2A      A0CFB   A0D06
		;A0D32      A0D35
		;A0D3B      A0CF3
		;A0D68      A0D4F   A0D5A
		;A0D70      A0D65
		;A0D7F      A0D79
		;A0D89      A0D85
		;A0D8B      A0D57   A0D62
		;A0D93      A0D95
		;TRKNUM      A0159   A0C2F   A0C47
		;SETCNT      A0D9C
		;SETFLG      A0DAE
		;ABORT      A0C26   A0DCC
		;A0DBF      A015F   A0165
		;DSPLAY      VERIFY   A01C4   A0218   A0238
		;           A0257   A027E   A02B8   A031A
Š		;           A033A   A0359   A0380   A0409
		;           A0464   A0482   A04A1   MNMENU
		;           A0500   MESS17   A065B   A0697
		;           SELDRV   GETSRC   A0778   GETDST
		;           A09A8   A0A1A   A0B7A   A0BB6
		;           A0BC9   A0BD9   A0BE4   A0C01
		;           A0C13   A0C32   A0C4A   A0D0E
		;           A0DD0   A0E1B
		;GETCMD      A01BC   A02B0   A0401   A0636
		;           A06C9   A0734   A07A8   A07EC
		;           A0A77
		;CONVRT      A0DF0
		;A0DF4      A0DEA
		;T0DFE      T0DD4   T0DDE
		;A0DFF      A0DFD
		;TSTEND      A0849   A0865   A0988   A0A7D
		;           A0A88   A0C0C   A0DB5
		;A0E4A      A0AAA   A0AF9   A0C40
		;A0E6D      A0E53   A0E5D   A0E64
		;SETJMP      A0150
		;A0E7A      A0E7F
		;CONSTT      TSTEND
		;T0E91      T0E75
		;CONINN      A0E15
		;HOMEHD      A083C   A08D7
		;SETDRV      MPMCPM   A0A97   A0AE6
		;SETTRK      A0AA0   A0AEF
		;SETSEC      A0AAF   A0AFE
		;SETDMA      A0AB4   A0B03
		;READSK      A0AC1
		;WRTDSK      A0B15
		;SECTRN      A0E68
		;A0EB3      A0CA3
		;T0EB4      T0E87
		;T0EC0      T0162
		;T0F50      T08B4   T0E50
		;TRPFLG      D013F   D04F9   T0639   D0A82
		;D0F85      D0808   T0870
		;CPMFLG      D014D   D08A2   D08C2   D08DD
		;           D0CEF   D0E60   D0E82
		;D0F88      D0998   D09FE
		;D0F89      D0846   T088F   D08ED   D092D
		;           D0994
		;D0F8A      D085F   D0885   D08FE   D093E
		;D0F8C      D08EA   T091F   D092A   T098B
		;CDRIVE      D0859   D087F   D0A93   D0AE2
		;           D0C21   D0C71
		;D0F8E      D08F1   T0905   D0931   T0945
		;           D09BB   D0A9A   D0AE9   D0B3A
		;           D0C29   T0C7D   T0C8E
		;D0F8F      D0902   D090D   D0911   D0942
		;           D094D   D0951   D0965   D096E
		;           D0977   D0AA5   D0AF4   D0B5A
		;           D0C9E
		;D0F91      D0686   D0843
Š		;NOTRKS      D0894   D099E   T0D7F
		;D0F93      D0B49   T0BAD
		;ERRFLG      D0231   D0333   D047B   D0840
		;           D0C09
		;D0F95      D0958   T095B   D0B66
		;CMDSTR      D017F   D063E   D06CF   D080E
		;           D081D   D084C   D0868   D0917
		;           D09AE
		;D0F97      D0A90   D0ADF   D0BA0   D0BF7
		;           D0C63
		;D0F98      D0693   D0CC5   D0CCF   D0CE9
		;D0F99      D0145   D068B   D0CCA   D0CD2
		;           D0CD7   D0CEC   D0D2C   D0D3B
		;           D0D8D
		;D0F9B      D082F   D0E56
		;D0F9D      D0833   D08F4   D0909   D0934
		;           D0949   D09C3   D09E8   D0B55
		;D0F9F      D0968   D0974
		;STACKC      T013B   T0168   T017C   T096B
		;           T09C8   T0A02   T0B5E
		;Z1400      Z08B7
		;Z23E4      Z085C   Z0882   Z09F2
		;YC924      Y09AB
		;ZF01D      Z09E3   Z0BA6