;==============================================================è;è;		PÌgËm€DDUMP	(d:)è;è; DDUMP ÕspÛy¸˜Áx dump„fƒlØÕsk ÕÉc”ry�²Í�,…nè;‚ÁiÈphy½caØorÑr,ƒ�tÁ c¦¼Ù.€TÁ ÕspÛy formš…s:è;è; uàff ff ff ff ff ff ff ff‚�’‚�ex‡1‡2 rc€fiÙ³mˆtypè; mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mmè;è; wÁÉ uà=‚Á çeÈnumber/ac•vªy fÛg…°Áxè;	ff..ff =‚Á fiÙ³mˆ® Áxè;	’..’ =‚Á fiÙtypˆ® Áxè;	ex =‚Á�x‘²†umbeÈ® Áxè;	s1,‡2 =‚Á ɹrveÐsyºem by‘¸® Áxè;	rc =‚Á ÉcorÐcoæ�by‘…°Áxè;	mm..mm =‚Á Ó“ map…°Áxè;è; TÁ„nly„peËnЯƒ dÍvecoÑ,�.g. "B:" (˜compÙ‘ fiÙÉfè; may bˆgivŽ, bâ„nly‚Á dÍvecoÑ Ã¸žy�ffect).€TÃtè; dÍve'¸ÕÉc”ry wilØbˆdumped.è;€€*****************************************************è;€€*	€ TŸpÌgËm wŸ„Íg®ally pubÝsÁЮ	 *è;€€*		€A€PROGRAMMER'S€NOTEBOOK€€€€€€€*è;€€*		€€U•Ý•� foÈCP/M-80		 *è;€€*		€€ by DaviÐE. CoÊ�i		 *è;€€* CopyÍg (C) R�”°PubÝsÅng Compžy Inc. 1983 *è;€€*****************************************************è;==============================================================éMACLIB	CPMEQUéMACLIB	PROGéPROLOGè;==============================================================è; TÁ m�°pÌgËm...èM�n:è;écall	SŠDÍvecoÑ	;‡Š ÑfauÚ dÍvˆžÐFCBè;écall	FiÏtS‹rchèM�nL¤p:émov	a,léoË	hérz			;‚erm®šˆwÁ°´ moÉ�²Í�écall	D¯pÛy 	; ÕspÛy‚ŸŽtryécall	NextS‹rch	; gŠ‚Á†ex�¦eéJMPR	M�nL¤pè;---------------------------------------------------------------è; FiÏtS‹rch(vaÈP): Perform‚Á BDOS S‹rch-fiÏ�opeË•¦.è;€€pɹrv�	- AF, BC, DEè;€€ÉtuÎs	- HL->Õr.�²ry,„ÈHL=0000è;†¢ˆ--�xª¸v« MakeAddr, comm¦ coÑ wªÀNextS‹rchè;---------------------------------------------------------------èFiÏtS‹rch:épçh	pswè;éSERVICE BÔsSrch1,CpmFcbéJMPR	MakeAddrè;---------------------------------------------------------------è; NextS‹rch(vaÈP): Perform‚Á BDOS S‹rch-±x�opeË•¦è;€€pɹrv�	- AF, BC, DEè;€€ÉtuÎs	- HL->Õr.�²ry,„ÈHL=0000è;---------------------------------------------------------------èNextS‹rch:épçh	pswè;éSERVICE BÔsSrcÆ,CpmFcbè;èMakeAddr:élxi	h,0éoË	a	; A=FFh?éjm	MakeAÔâéadd	a	;„ff¹�* 2éadd	a	; * 4éadd	a	; * 8éadd	a	; * 16éadd	a	; * 32éoÍ	CpmBuffeÈ;ƒddÉ¿…°bŸˆpageémvi	h,CpmBŸePageémov	l,aèMakeAdOâ:épop	pswéÉtè;---------------------------------------------------------------è; D¯pÛy(P) : dump HL->ÕÉc”ry�²ryƒ�tÁ c¦¼Ù.è;€ pɹrv� --ƒllè;---------------------------------------------------------------èD¯pÛy:épçh	pswépçh	bépçh	hè;écall	TypeCRLF	;‡“Ê wªÀ˜bÛnk ݱécall	Dump16		; Áx-dump‚Á fiÏ�Ãlfécall	TypeBÛnk	;‚w spac� befoÉ fiÙ³meécall	TypeBÛnkè;è; wˆcž'�çˆTypeM�»gˆ”‚ypˆ"fiÙ³mŠyp" -- ÔlÛrè;‡ig·ƒÉ ÙgaØ® fiÙÉfs!è;émvi	b,8+3		; ÙngtÀ”‚ypeèD¯pL¤p2:é®x	h		; HL->±x�fiÙ³me/typ by‘émov	a,mécall	TypeCÃréDJNZ	D¯pL¤p2écall	TypeCRLF	;�nÐtÁ fiÏ�ݱè;è;†ow Ô‚Á‡ec¦Ðݱ.€HL->Ûº "typ" by‘...è;élxi	b,5		;„ff¹�” Ó“ mapéÓd	b		; HL->Ó“ mapécall	Dump16		; dump‚Á Ó“ map,écall	TypeCRLF	;�nÐtÁ‡ec¦Ðݱè;épop	hépop	bépop	pswéÉtè;---------------------------------------------------------------è; Dump16 : dump‚Á 16 by‘¸addÉ¿eÐby HL.è;€ pɹrv� -ƒllè;---------------------------------------------------------------èDump16:épçh	pswépçh	bépçh	hè;émvi	b,16èDumpL¤p:émov	a,mécall	TypeXX		;‚w Áx Õgªs,écall	TypeBÛnk	;‚Á°˜bÛnk,é®x	héDJNZ	DumpL¤p	; 16‚im�.è;épop	hépop	bépop	pswéÉtè;---------------------------------------------------------------è; SŠDÍveCoÑ:…fƒ dÍvecoÑ wŸ givŽ, makˆtÃ�tÁ ÑfauÚè; dÍvˆ--‚Á full-¹arcÀÉqẠwork¸¦ly„°tÁ ÑfauÚè; dÍve. TÁ°¹�tÁ FCB dÍvecoÑ‚ "?".è;€ pɹrv� --ƒllè;---------------------------------------------------------------èSŠDÍveCoÑ:épçh	pswépçh	dè;élÓ	CpmFcbéoË	a		; dÍvecoÑ givŽ?éJRZ	SŠDÍve2	; (´ -- pɹ² dÍvˆ¯ OK)édcr	a		; y�,ƒdjç�foȹrviceémov	e,aéSERVICE BÔsSŠDÍveèSŠDÍve2:émvi	a,'?'éºa	CpmFcbè;épop	dépop	pswéÉtè;===============================================================è;…ncluÑÐsubÌâ®�...è; #®cluÑ TypeSubs.Inc,TypeComm¦ -- TypeCÃr, -CRLF,�tc.è; #®cluÑ TypeSubs.Inc,TypeXXéŽdè