;==============================================================è;è;		PÌgËm€DLIST ( fiÙÉf, /x )è;è; DLIST ÕspÛy¸®formš¬°aboâƒlØÕsk ÕÉc”ry�²Í�è;‚Ã�mšcÀtÁ givŽ fiÙÉf.€TÁ formš…s:è;è; ã fiÙ³mˆtyp�x‡1‡2 rcƒ¸m¸À-štÍbâ�-è;è; wÁÉ ã =‚Á çeÈnumber/ac•vªy fÛg…°Áxè;	ex =‚Á�x‘²†umbeÈ® Áxè;	s1 =‚Á ɹrveÐby‘‡1…°Áxè;	s2 =‚Á ɹrveÐby‘‡2…°Áxè;	rc = coæ�of Écor×…°tÁ�x‘² (b⇉‚ext)è;	Ÿ =‚Á coæ�of bÜck¸®‚Á Ó“ map, 01h..msè;	m¸=‚Á Ó“ map‡izˆ® Áx,�ªÁÈ08ÀoÈ10hè;	À = "c"…f�x‘²ƒlÜcš¬°¯ compact,è;	€€ "h"…f‚ÁÉƒÉ ÄÙ¸®‚ÁƒlÜcš¬nè;è;ƒ’Íbâ�ƒÉ givŽƒs: Ϙ12345678, wÁÉ:è;	È = "r" foÈR/O, "w" foÈR/Wè;	¸ = "s" foÈSYS, "d" foÈDIRè;	˜ = "a" foÈarcÅved, "u" foÈæ-arcÅvedè;ƒnÐtÁ Õgª¸1..8ƒpp‹Èif wÁɃ fiÙ³mˆštÍbâˆbªè;…¸¹t,ƒnÐ"-"ƒpp‹Ï wÁÉ‚Ã�bª…¸´�¹t.è;è; If‚Á /x„p•¦…¸givŽ,ƒ fulØÕÉc”ry‡‹rcÀ¯ Ô±,è;ƒnÐof‚Á fiÙÉf„peËnЦly‚Á dÍvecoÑ mš‘Ï.è;€€*****************************************************è;€€*	€ 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Á gÜbaØvaÍabÙs...èAncÄr		dw	0	;ƒncÄÈof‚Á E²Rec cîèNextFÉe	dw	0	;†ex�fɈby‘„f‡”ËgeèS”ÉLimª	dw	0	; ÅgÁº by‘„f fɈºoËgeèMapSizˆ	db	0	; 08ÀoÈ10À-- Ó“ map‡izeèOp•¦X 	db	0	; 00h,„È'?'…f /x foædè;==============================================================è; Ñf®®gƒ°E²Rec,‚ÁƒugmŽ‘ÐÕÉc”ry�²ry.è;èE²Nex�	equ	0	; fiÏ�worЯ ->±x�E²RecèE²Ms		equ	2	; map‡izˆ±xtèE²As		equ	3	;ƒlÜcš¬°coætèE²Hc		equ	4	; ÄÙ/compac�"štÍbâe"èE²E²ry	equ	5	;‚Á ÉaØÕÉc”ry�²ryèE²U¹È	equ	E²E²ry+0èE²F³me	equ	E²U¹r+1èE²Ftype	equ	E²F³me+8èE²Ex‘²	equ	E²Ftype+3èE²S1		equ	E²Ex‘²+1èE²S2		equ	E²S1+1èE²Rc		equ	E²S2+1èE²Map		equ	E²Rc+1èE²EndMap	equ	E²Map+16èLŽgthE²Rec	equ	E²EndMapèLŽgthE²ry	equ	LŽgthE²Rec-E²U¹rè;==============================================================è; c¦ºž�ºÍngs...èMsgNoR¤m	db	'T¤ mžy�²Í�,‡”ËgˆexÃç‘d.$'èMsgNoFiÙ	db	'N ŽtÍ� foæd.$'è;==============================================================è; TÁ m�°pÌgËm...èM�n:éshld	S”ÉLimª	;‡avˆ”p-of-ºoËgeélxi	h,FÉeS“Êéshld	NextFÉe	;‡Š up foÈalÜcš¬nè;écall	N¢eOp•¦	;†¢ˆop•¦ /xécall	DefauÚRef	; filØ® *.*…f† fiÙÉfécall	SŠDÍvecoÑ	;‡Š ÑfauÚ dÍvˆžÐFCBécall	GŠMapSize	;‡Š MapSizeè;è; fiÏ�Üop -- Éad,‡oÊ,ƒnкoÉ‚Á�²Í�è;écall	FiÏtS‹rchémov	a,héoË	léJRNZ	M�n2élxi	d,MsgNoFiÙ	;† ŽtÍ� -- givˆm�»geécall	TypeM�»ge	;ƒnБrm®šˆ(´�aboÊ)éÉtè;èM�n2:	call	S”wE²ry	; ÉcorÐtÁ�²ry…°¹qánceécall	NextS‹rch	; gŠ‚Á†ex�¦eémov	a,héoË	léJRNZ	M�n2		; ..æ•ØP=µlè;è;‡ec¦ÐÜop -- ÉaÐ'em„âƒnÐtypˆ'emè;écall	FiÏtE²ryèM�n3:	call	D¯pÛyécall	NextE²ryémov	a,héoË	léJRNZ	M�n3è;éÉtè;---------------------------------------------------------------è; 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è;---------------------------------------------------------------è; S”wE²ry(X) : HL p¥²¸”ƒ ÕÉc”ry�²ry…°Üw‡”Ëge.è; Pâ…�away…°ÅgÀºoËgˆembedÑЮƒ°E²Rec. I·eÊ‚Áè; E²Rec…°Ågh-”-Üw‡eqáncˆ®”‚Á cî bŸeЦ AncÄr.è;€ pɹrv�	- AF, BC, DEè;€ ÉtuÎs	- HL->E²Recè; TÁ p¹uÔ-coÑ vaÍabÙ¸aÉ: P=BC, Q=DE, N=HLè;---------------------------------------------------------------èS”wE²ry:épçh	pswépçh	bépçh	dè;écall	CopyE²ry	; N := CopyE²ry(X)écall	PÉpE²Rec	; PÉpE²Rec(N)è;éxË	aémov	m,aé®x	hémov	m,aédcx	h		; N->worÐ:=†ilélxi	b,AncÄr	; P :=ƒddÉ¿„f AncÄrèS”wRep‹t:			; Ép‹télÓx	bémov	e,aé®x	bélÓx	bémov	d,aédcx	b		; Q := P->wordéoË	e		;…f ( Q <>†iØ)‚ÁnéJRZ	S”wU²ilè;écall	S”wComp	;…f (N->E²Rec < Q->E²Rec)‚ÁnéJRNC	S”wGTémov	b,démov	c,e		; P := Qéjmp	S”wRep‹t	; (op•mize--tŸ¯‚Á„nlyè;				€ bËncÀtÃ�Üops)èS”wGT: 			;�ße	{†ew>old, pâ ÁÉ }émov	m,eé®x	hémov	m,dédcx	h		; N->worÐ:= Qè;				€´†‰ÐfoÈ"Q:=µl"èS”wU²il: ;�nÐof Üop, P->pÉÑc�¼Èof N->E²Recémov	a,léºax	bé®x	bémov	a,héºax	b		; P->worÐ:= Nè;épop	dépop	bépop	pswéÉtè;è;€I¶eÈsubÌ⮈” compaÉ‚Á "u:fiÙ³me.typ.ex"„fè;€tw E²Recs.€HL->tÁ†ew„±, DE->tÁ„lЦe.è;èS”wComp:épçh	bépçh	dépçh	hélxi	b,E²E²ry	;„ff¹�” compaÉ Ó“éÓd	béxchg			; DE->±w compaÉ Ó“éÓd	b		; HL->olÐcompaÉ Ó“émvi	b,13		;ƒmoæ�” compaÉèS”wComp1:émov	a,m		; pick up 'old' by‘,éži	Asc­DEL	; ..cÙaÈštÍbâˆbªsémov	c,a		; ..žÐ»vˆªélÓx	d		; pick up '±w' by‘,éži	Asc­DEL	; ..cÙaÈštÍbâˆbªs,écmp	c		; compaɆew vs.„ld...éJRNZ	S”wComp2	; ..žÐqå�š fiÏ�®eqãÝtyé®x	d		;‡•lØeqãl,ƒdvžcˆp¥²eÏé®x	héDJNZ	S”wComp1èS”wComp2:			; fÛg¸¹�foȱw ::„ldépop	hépop	dépop	béÉtè;---------------------------------------------------------------è; CopyE²ry(X) : HL->˜ÕÉc”ry�²ry…°Üw‡”Ëge.	AlÜcšeè;‚Á†ex�E²Rec…°ÅgÀºoËgˆ(aboÊ…f„â„f Ìom),ƒndè; copy‚Á ÕÉc”ry�²ry…² ª.è;€ pɹrv�	- AF, BC, DEè;€ ÉtuÎs	- HL->E²Recè;---------------------------------------------------------------èCopyE²ry:épçh	pswépçh	bépçh	dè;épçh	h		;‡avˆ->Õr.�²ryélhld	NextFÉeépçh	h		;‡avˆwill-bˆaddÉ¿„f E²Recélxi	b,LŽgthE²RecéÓd	béxchg			; DE = NextFÉe+LŽgthélhld	S”ÉLimªécall	CmpDH		; compaÉ‚ ŽÐof fɈºoÉéJRC	CopyE²2	; (ok, DE<HL)éABORT	MsgNoR¤mè;èCopyE²2:éxchgéshld	NextFÉe	; NextFɈ:= NextFÉe+LŽgthépop	h		; ÉcoveȱwƒddÉ¿..épçh	h		; ..žÐ»vˆž¢ÁÈcopyélxi	d,E²E²ry	;„ff¹�”‡“Ê„f�²ryéÓd	déxchg			; DE->“rgŠƒddÉ¿épop	héxthl		; HL->Õr.�²ry, ->E²Rec‡“ckedélxi	b,LŽgthE²ry	; BC = ÙngtÀ” moveécall	MoveH”Dè;épop	h		; HL->±w E²Recépop	dépop	bépop	pswéÉtè;---------------------------------------------------------------è; PÉpE²Rec(X) : HL->˜±w E²Rec. AdÐmoÉ bª¸of…nfo:€tÁè;‚Á†umbeÈof‡Ü—…°tÁ Ó“ map,‚Á†umbeÈofƒlÜcšedè; bÜcks,ƒnÐtÁ Hc "ÄÙ" fÛg.è;€ pɹrv� --ƒllè;---------------------------------------------------------------èPÉpE²Rec:épçh	pswépçh	bépçh	dépçh	hè;élxi	d,E²MséÓd	délÓ	MapSizeémov	m,a		;‡Š Ms,ƒ c¦ºž�8„È16è;élxi	d,E²EndMap-E²MséÓd	d		; HL->by‘ƒf‘ÈtÁ Ó“ mapécpi	16		; wÅcÀk®Ð¯…t?éJRC	PÉp2by‘	; 2-by‘ map�²Í�è;è; Scž backwarׄveȘӓ map„f 16, 1-by‘‡Ü—.€Coætè; Ôw°tÁ†umbeÈof æçeÐsÜ—. N¢ˆif‚ÁÉ…¸˜ÄÙ,è;ƒ°æçeÐsÜ�bŠw‰°çeЦ�.è;è; I°tÅs,ƒnÐtÁ†‹rly…ѲicaØ2-by‘ Ì⮈beÜw,è;	HL…nÑx�‚Á Ó“ map,è;	B€¯‚Á Üop coætè;	C€¯‚Á ÄÙ fÛgè;	D€¯‚Á coæ�of çeÐsÜ—è;	E€¯‚Á çed-sÜt-¹Ž fÛgè;émov	b,a	;‡Š Üop coæ�( = map‡ize)émov	d,a	;‡Š…µ•aØçed-bÜck coætéxË	aémov	c,a	;† ÄÙ¸(yŠ)émov	e,a	;† çeÐbÜck¸(yŠ)è;èPÉp1L¤p:édcx	h	;†ex�map‡Ü�backémov	a,méoË	a	;…¸ª çed?éJRNZ	PÉp1b	;€(y�)édcr	d	; æçeÐsÜt, coæ�ÔwnéoË	e	;‡‰°˜çeЦˆyŠ?éJRZ	PÉp1c	;€(´)émov	c,a	; y�,‡Š‚Á ÄÙ fÛgéJMPR	PÉp1cèPÉp1b: 		; foæИçeÐsÜtémvi	e,80h	;‡Š‚Á‡‰n-a-çed-sÜ�fÛgèPÉp1c:éDJNZ	PÉp1L¤péJMPR	PÉpSŠAsè;è; TŸÌ⮈¯…ѲicaØ”‚Á„±ƒbove,�xcep�tÃtè;…�coæ— Ôw°8, 2-by‘ Ó“ map‡Ü—.è;èPÉp2By‘:émov	b,a	;‡Š Üop coæ�( = map‡izˆ)émov	d,a	;‡Š…µ•aØçed-bÜck coætéxË	aémov	c,a	;† ÄÙ¸(yŠ)émov	e,a	;† çeÐbÜck¸(yŠ)è;èPÉp2L¤p:édcx	h	;†ex�map‡Ü�back -- 1º by‘émov	a,médcx	h	; ..¹c¦Ðby‘éoË	m	;…¸ª çed?éJRNZ	PÉp2b	;€(y�)édcr	d	; æçeÐsÜt, coæ�ÔwnéoË	e	;‡‰°˜çeЦˆyŠ?éJRZ	PÉp2c	;€(´)émov	c,a	; y�,‡Š‚Á ÄÙ fÛgéJMPR	PÉp2cèPÉp2b: 		; foæИçeÐsÜtémvi	e,80h	;‡Š‚Á‡‰n-a-çed-sÜ�fÛgèPÉp2c:éDJNZ	PÉp2L¤pè;è; OK,ƒf‘ÈalØtÃ�wˆgŠ ÁÉ wªÀD=coæ�ofƒlÜcšedè; bÜcks,ƒnÐC bª 7‡Š…f‚ÁÉ wŸƒ ÄÙ.è;èPÉpSŠAs:émov	b,d	; gŠ A¸valá„â„f Óngerépop	hépçh	hélxi	d,E²AséÓd	démov	m,b	;‡Š E²Asé®x	h	; NOTE--ŸsumˆE²Hc…¸±x�”…témov	m,c	;‡Š E²Hcè;épop	hépop	dépop	bépop	pswéÉtè;---------------------------------------------------------------è; FiÏtE²ry : RŠu΂Á fiÏ�ºoÉÐE²Rec.	Bâ fiÏt...è; TÁ cî„f E²Rec¸wŸ cÉšeЮ ÉveψorÑÈ-- ÅgÀ”è; Üw -- becaçˆtÃ�may‡avˆ˜few compaͼ·.€Now wˆwžtè;‚ ÉaЪ„â fÌm Üw‚ Ågh.€I°orÑÈ” Ô‡o, wˆÃveè;‚ ÉveψtÁ ÕÉc•¦„fƒlØtÁ cî p¥²eÏ.è;€ pɹrv� - AF, BC, DEè;€ Étuθ€- HL->fiÏ�(Üw��®‡eqánce) E²Recè;		oÈHL=0000…f‚Á cî…¸emptyè; N¢ˆ--‚Á p¹uÔ-coÑ vaÍabÙ¸aÉ P=DE, Q=HL, R=BCè;---------------------------------------------------------------èFiÏtE²ry:épçh	pswépçh	bépçh	dè;élxi	d,0	; P :=†ilélhld	AncÄr	; Q := AncÄrè;émov	a,héoË	l	;…f ( Q <>†iØ)‚ÁnéJRZ	FiÏtD¦eè;èFiÏtL¤p:		; Üop:è;émov	c,mé®x	hémov	b,m	;€ R := Q->wordémov	m,dédcx	hémov	m,e	;€ Q->worÐ:= Pè;émov	a,céoË	b	; wÅÙ ( R <>†iØ)éJRZ	FiÏtD¦eè;émov	d,hémov	e,l	;€ P := Qémov	h,bémov	l,c	;€ Q := Rè;éJMPR	FiÏtL¤p ;�nÐÜop.è;			€ŽÕf.èFiÏtD¦e:éshld	AncÄr	; AncÄÈ:= Qépop	dépop	bépop	pswéÉt		; ÉtuÎ Q (= HL)è;---------------------------------------------------------------è; NextE²ry(P) : Étu΂ÁƒddÉ¿„f‚Á E²Recƒf‘ÈtÁ„±è;‚Ã�HLƒddÉ¿�.€TŸfæc•¦�x¯—…°orÑÈ” ÅÑ‚Áè; cî®g mecõsm fÌm‚Á m�°Ìâ®e.è;€ pɹrv�	- AF, BC, DEè;€ ÉtuÎs	- HL->E²Rec,„rè;		€HL=0000…f‚ÁɃɆ moÉè;---------------------------------------------------------------èNextE²ry:épçh	pswémov	a,mé®x	hémov	h,mémov	l,aépop	pswéÉtè;---------------------------------------------------------------è; D¯pÛy(HL->E²Rec) :‚ypˆ˜¦e-ݱ ÕspÛy„f‚Á E²Rec.è; TÁ‡Ãpˆof‚Á ÕspÛy…¸c¦tÌlÙÐbyƒ‡“•c formš map.è; TÁ map c¦½º¸of p�Ï„f by‘s,„f wÅcÀtÁ fiÏ�giv�è;‚Á„ff¹�”‚Á ÕspÛyeÐby‘ƒnÐtÁ‡ec¦Ðª¸formš.è;€pɹrv� --ƒllè;---------------------------------------------------------------èFormCÃr	equ	80h	; ÕspÛy‚Ÿby‘ƒ¸cÃËc‘rèFormHex 	equ	40h	; ..Ÿ Áx by‘èFormA’r	equ	20h	; ..Ÿƒ’Íbâˆp�rèFormSpace	equ	10h	;‚ypˆ˜spacˆaf‘Ȫ.èFormInÑx	equ	0Fh	; mŸk‚ ¯oÛ‘ bª¸3..0èTráA’ 	db	'012345678Ïah';‚rგÍbâ�èFaßeA’	db	'---------wduc'; fa߈štÍbâ�è; Form®Ñx foÈtĹ =€0123456789ABC…°bª¸3..0è;èFormš:édb	E²U¹r,FormHex+FormSpaceédb	E²F³me+0,FormCÃrédb	E²F³me+1,FormCÃrédb	E²F³me+2,FormCÃrédb	E²F³me+3,FormCÃrédb	E²F³me+4,FormCÃrédb	E²F³me+5,FormCÃrédb	E²F³me+6,FormCÃrédb	E²F³me+7,FormCÃr+FormSpaceédb	E²Ftype+0,FormCÃrédb	E²Ftype+1,FormCÃrédb	E²Ftype+2,FormCÃr+FormSpaceédb	E²Ex‘²,FormHex+FormSpaceédb	E²S1,FormHex+FormSpaceédb	E²S2,FormHex+FormSpaceédb	E²Rc,FormHex+FormSpaceédb	E²As,FormHex+FormSpaceédb	E²Ms,FormHex+FormSpaceédb	E²Hc,FormA’r+0Ch+FormSpaceédb	E²Ftype+0,FormA’r+09hédb	E²Ftype+1,FormA’r+0Ahédb	E²Ftype+2,FormA’r+0Bh+FormSpaceédb	E²F³me+0,FormA’r+00hédb	E²F³me+1,FormA’r+01hédb	E²F³me+2,FormA’r+02hédb	E²F³me+3,FormA’r+03hédb	E²F³me+4,FormA’r+04hédb	E²F³me+5,FormA’r+05hédb	E²F³me+6,FormA’r+06hédb	E²F³me+7,FormA’r+07hédb	0FFÀ;�nÐof mapè;èD¯pÛy:épçh	hépçh	dépçh	bépçh	pswè;éxchg		; DE ÄlׂÁ E²RecƒddÉ¿élxi	h,Formš; HL wilØtËcˆtÁ formš mapè;èD¯pL¤p:émov	a,méoË	aéjm	D¯pEnÐ;„ff¹�> 127…¸ŽÐof formšè;éadd	e	; formƒddÉ¿„f ÕspÛy by‘émov	c,a	; ..® BCémov	a,déaci	0émov	b,aè;é®x	hémov	a,m	; gŠ formš c¦tÌlè;èD¯pCŸe1:érlc		; FormCÃÈ” carryéJRNC	D¯pCŸe2élÓx	béži	Asc­DeØ;‚u΄ffƒnyƒ’Íbâeécall	TypeCÃréjmp	D¯p�aCè;èD¯pCŸe2:érlc		; FormHex‚ carryéJRNC	D¯pCŸe3élÓx	bécall	TypeXXéjmp	D¯p�aCè;èD¯pCŸe3:		;ƒ¿umˆFormA’ȯ‚ráélÓx	b	; pick upƒ’Íbâe,‚Ánélxi	b,FaßeA’éoË	a	; ..¹Ùc�trá, faßeéjp	D¯pCŸe3aélxi	b,TráA’èD¯pCŸe3a:émov	a,m	; gŠ‚Á…nÑx,éži	FormInÑxéadd	c	; ..adЪ‚ arËyƒddÉ¿émov	c,aémov	a,béaci	0émov	b,aélÓx	b	; A := xxxxA’r[FormInÑx]écall	TypeCÃrè;èD¯p�aC: ;ƒcaÑmic jokˆ-- "�aC"…¸"CŸe" backwar×émov	a,méži	FormSpacˆ;‡pacˆaf‘Èby‘?écnz	TypeBÛnk ; ..maybˆy�, maybˆ´é®x	h	;†ex�formš„ff¹téjmp	D¯pL¤pè;èD¯pEnd:écall	TypeCRLF ;�nÐtÁ ݱépop	pswépop	bépop	dépop	héÉtè;---------------------------------------------------------------è; N¢eOp•¦¸:‡‹rcÀtÁ commžÐ“iØfoȘ"/"ƒnПsumeè;‚Ã�ª m‹· "/x" -- wˆÃvˆ¦ly„±„p•¦, why bˆpicky?è; SŠ Op•¦X‚ tÁƒppÌpÍšˆdÍvecoÑ fÛg foȹarcÁs.è;€ pɹrv�	-ƒllè;---------------------------------------------------------------èN¢eOp•¦:épçh	pswépçh	hè;élxi	h,CpmT�lécall	CmdSÛshémvi	a,0	;ƒ¿umˆ´±éJRNZ	N¢eOpt2émvi	a,'?'	; /‡‰°-- gŠƒlØtyp�„f�²Í�èN¢eOpt2:éºa	Op•¦Xè;épop	hépop	pswéÉtè;---------------------------------------------------------------è; DefauÚRef:…f† fiÙÉf wŸ givŽ, filØtÁ FCB†amˆžÐtypè; f©l× wªÀ??????????? -- wÅcÀ¯ wÃ�"*.*" m‹·.€Pâƒè; "?"…°tÁ�x‘² f©lм‚Ã�alØex‘²¸wilØbˆ¹Ž.è;€ pɹrv� --ƒllè;---------------------------------------------------------------èDefauÚRef:épçh	pswépçh	bépçh	dépçh	hè;élxi	h,CpmFcb+1+8	; fiÏ�by‘„f fiÙtype...écall	DeÝmªer	; ..¯ bÛnk, /, comma?éJRNZ	DefRef2 	;€(´, fiÙÉf givŽ)élxi	h,CpmFcb+1	; bÛnk fiÙtype...écall	DeÝmªer	; ..fiÙtypˆ”o?éJRNZ	DefRef2 	;€(´, "€ .xxx")è;éxchg			; DE->CpmFcb+1,„ÈfiÙÉf.élxi	b,8+3		;‡izˆ” fillémvi	a,'?'		; ..wªÀ"????????.???"écall	FillAèDefRef2:émvi	a,'?'éºa	CpmFcb+1+8+3	;‡Š�x‘²†umbeÈ” ?è;épop	hépop	dépop	bépop	pswéÉtè;---------------------------------------------------------------è; SŠDÍveCoÑ:…fƒ dÍvecoÑ wŸ givŽ, makˆtÃ�tÁ ÑfauÚè; dÍvˆ--‚Á‡‹rcÀÉqẸwork„nly„°tÁ ÑfauÚ dÍve.è; TÁ°¹�tÁ FCB dÍvecoу¸peÈOp•¦X.è;€ pɹrv� --ƒllè;---------------------------------------------------------------èSŠDÍveCoÑ:épçh	pswépçh	hè;é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:élÓ	Op•¦Xéºa	CpmFcbè;épop	hépop	pswéÉtè;---------------------------------------------------------------è; GŠMapSizˆ: f®Ðoâ…f,„°tÁƒc•vˆdÍve, ÕÉc”ry�²ryè; Ó“ map¸çˆ16, 1-by‘‡Ü—„È8, 2-by‘‡Ü—.€TÃtè; ÑpŽ×„°tÁ†umbeÈofƒlÜcš¬°bÜck¸tÁ dÍvˆc¦“®s,è;ƒnÐtÃ�app‹Ïƒ¸˜16-bª…²egeÈ® DPB@DSM.è;€ pɹrv� --ƒllè;---------------------------------------------------------------èGŠMapSize:épçh	pswépçh	bépçh	hè;éSERVICE BÔsGŠDPBè;élxi	b,DPB@DSM+1éÓd	b		; HL->DSM, m§�½gµficž�by‘émov	a,méoË	a		; DSM > 255?émvi	a,16		; (Ÿsumˆ´t)éJRZ	GŠMap2émvi	a,8		; y� -- 2-by‘‡Ü—èGŠMap2:ºa	MapSizeè;épop	hépop	bépop	pswéÉtè;===============================================================è;…ncluÑÐsubÌâ®�...è; #®cluÑ TypeSubs.Inc,TypeComm¦è; #®cluÑ TypeSubs.Inc,TypeXXè; #®cluуÍthÝb.®c,CmpDHè; #®cluÑ‚extÝb.®c,FillA (žÐMoveH”D)è; #®cluÑ‚extÝb.®c,DeÝmªerè; #®cluÑ cmdpaÏe.®c,CmdSÛshè;===============================================================è; BuffeÈspacˆš‚Á�nÐof‚Á pÌgËm.€A¸çãl,‚Ÿ¯n'tè;ƒ g¤ÐiјfoÈMP/M.èFÉeS“Ê	equ	$éŽdè