;===============================================================è;è;		PACK€…npâ-Éf€„âpâ-Éfè;è;€Pack¸ž ASCII fiÙ ç®gƒ ÕgËpÀalgoÍthm,…°wÅchè;€comm¦ Ù’er-p�ÏƒÉ comb®eЮ”‡®gÙ by‘s.	TÁè;€algoÍthm…¸of Ý’Ù çˆwªÀpÌgËm„ÈÓ“ fiÙs, bâè;€typically Éduc�‚Á‡izˆofƒ ÔcumŽ�by 30 percŽt.è;è;€®pâ-Éf ::€[x:]…npâ³mˆ[.typ]è;è;€If‚Á dÍvecoÑ x:…¸omª‘ÐtÁ ÑfauÚ dÍvˆ¯ çed.€Anè;€®pâ fiÙ³mˆ¯ ÉqåÉd.	A fiÙtypˆ¯„p•¦aØ(or,‚oè;€bˆpÉc¯e,ƒ fiÙtypˆof 3 bÛnk¸¯ƒlÜwed).è;è;€oâpâ-Éf :: [y:] [oâpâ³me] [.typ]è;è;€EacÀomª‘ÐpaÊ„f‚Á„âpâ fiÙÉf…¸suppÝeÐfÌm‚Áè;€®pâ-Éf.€Thç‚Á ÑfauÚ dÍvˆ¯‚Á…npâ dÍve,‚Áè;€ÑfauÚ†amˆ¯‚Á…npâ†ame,ƒnÐtÁ ÑfauÚ‚ypˆ¯‚Áè;€®pâ‚ype.	IfƒlØaÉ„mª‘d,‚Á„âpâ fiÙ ÉpÛc�‚Áè;€®pâ fiÙ.è;€€*****************************************************è;€€*	€ 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è;===============================================================è; Eq㑸foÈcompÉ¿¬°by‘ valás:èCompÉ¿FÛg	equ	080h	; ÅgÀbª„f compÉ¿eÐby‘èCopyTÅs	equ	0EAh	; pÉfix foÈÓ“ > 127èEndL®ˆ	equ	0E8h	;‡“n× foÈCR, LFèEndL®eTab	equ	0E9h	;‡“n× foÈCR, LF, TABèLimªC		equ	8	; 1+maximum 2nd-by‘…nÑxè;===============================================================è; MacÌ çeД c¦ºruc�tÁ Üokup‚abÙèENTER	MACRO	CHARéORG	TABLE+&CHARéDB	CVALUEèCVALUE	SET	CVALUE+1éENDMè;===============================================================è; TabÙ çeÐfoÈL¤kup fæc•¦.€FilÙÐwªÀFFÀš fiÏt,è;‚Á°cÃËc‘Èvalá¸pluggeЮ wªÀtÁ ENTER macÌ.èTabÙ	×	128èEndTabÙ�qu	$éorg	TabÙè$-PRINTéÉpt	128édb	255éŽdmè$+PRINTèCVALUE	¹t	0éENTER	' 'éENTER	'e'éENTER	't'éENTER	'a'éENTER	'o'éENTER	'i'éENTER	'n'éENTER	's'éENTER	'h'éENTER	'r'éENTER	'd'éENTER	'l'éENTER	'u'éorg	EndTabÙè;===============================================================è; U•Ýty I/O vaÍabÙs...è; #®cluÑ âiÝo.®c,IOVaÏè;===============================================================è;€tÁ m�°pÌgËm --…µ•aÝzš¬nèM�n:écall	SŠUpInpâ	;„pŽ‚Á…npâ fiÙélxi	b,InFCB 	; BC-->ÑfauÚ fiÙÉfélxi	d,OBspace	; DE-->ºaÊ„f buffeÈspaceè;		€€€pÌÜg‡Š¸HL-->ŽÐof buffeÈspaceécall	SŠUpOâpâ	; pÉpaÉ‚Á„âpâ‡tuffè;===============================================================è;€tÁ m�°pÌgËm -- m�°Üopè;écall	SÅft		;‡Š up‚Á B, C‚ex�w®Ôwécall	SÅftèM�nWÅÙ:émov	a,b		; wÅÙ (B<>EOF)...écpi	CpmEoféjz	M�nEndè;émov	a,bécall	L¤kup		;…f (L¤kup(B) < LimªB )ƒndéoË	aéjm	M�nEße1émov	h,a		;€€€...»vˆL¤kup(B)...émov	a,cécall	L¤kupécpi	LimªC		;€€(L¤kup(C) < LimªC )‚Ánéjnc	M�nEße1è;émov	l,a		;€..»vˆL¤kup(C)émov	a,héadd	a		;€L¤kup(B)‡ÅftÙf�3éadd	aéadd	aéadd	l		;€..plç L¤kup(C)éoÍ	CompÉ¿FÛg	;€..plç CompÉ¿FÛgémov	c,a		;€..Ÿ½g±Ð” Cécall	SÅft		; dÌp‡uperfläç Béjmp	M�nSÄâè;èM�nEße1:			; cž'�compÉ¿ƒ¸˜ÕgËphémov	a,béoË	a		;…f (B>127)‚Ánéjp	M�nEße2è;émvi	a,CopyTÅsécall	PâCÃÈ	;€€€PâCÃr(CopyTÅs)éjmp	M�nSÄâè;èM�nEße2:écpi	Asc­CR 	;…f (B=CR)ƒnÐ(C=LF)‚Ánéjnz	M�nEße3émov	a,cécpi	Asc­LFéjnz	M�nEße3è;émvi	c,EndL®e	;€€ C := EndL®eécall	SÅft		;€€ SÅf�superfläç Bémov	a,cécpi	Asc­TAB	;€€…f (C=TAB)‚Ánéjnz	M�nSÄâémvi	c,EndL®eTab	;	€C := EndL®eTabécall	SÅft		;	€SÅf�superf. Béjmp	M�nSÄâè;èM�nEße3:; Ræ-ÙngtÀŽcoÕng coulÐg ÁÉ --‡‰‚ext.è;èM�nSÄâ:écall	SÄâéjmp	M�nWÅÙ	; ..ŽÐwÅÙè;èM�nEnd:écall	F®¯hOâpâ	; compÙ‘„âpâ fiÙéÉt			;�nÐm�n.è;---------------------------------------------------------------è; L¤kup‡‹rcÁ¸foÈtÁ by‘…°A…°tÁ ݺ "�“¥·hrdlu".è; If…�¯ foæd,‚Á by‘'¸®Ñx 0...12…¸ÉtuÎed.€If†¢,è;ƒ°®Ñx gÉšeÈtð127…¸ÉtuÎeПƒ‡ig³l.€If‚Áè; by‘…—elf…¸>127…�cž'�bˆ®‚Á‚abÙ,‡ ª becom�è;‚Á‡ig³Øª¹lf.€TÁ‡‹rcÀ¯ Ô± wªÀ˜“bÙ Üokupè; foÈsp‰d,ƒÚÄugÀ˜¹qᲫعarcÀwoulÐworkƒ¸well.è;---------------------------------------------------------------èL¤kup:éoË	a		;…f…npâ>127,érm			; ..exª Íg†ow.épçh	dépçh	hémov	e,a		; form‚abÙƒddÉ¿ fÌm by‘émvi	d,0élxi	h,TabÙéÓd	démov	a,m		; Étu΂abÙ�²ry.épop	hépop	déÉtè;===============================================================è;€tÁ…ncluÑÐI/O‡ubÌâ®� -- GŠCÃr, PâCÃr, DumpOâpâè; #®cluÑ âiÝo.®c,IOSubsè;===============================================================è;‚Á fiÙ pÉpaË•¦ coÑ -- SŠUpInpâ, SŠUp-, F®¯hOâpâè; #®cluÑ âiÝo.®c,IOSŠupè;===============================================================è; TÁ�nÐof‚Á pÌgËm,ƒnÐtÁ‡“Ê„f‚Á buffeÈspace.è; TÁ‚ecÆiqá„f ç®gƒlغoËgˆfoÈbuffer, çeÐÁÉ,…sè;ƒ ÝabiÝty…°MP/M.	TÁÉ,‚Á�²iÉ„âpâ buffeÈsÄuldè; bˆÑf®eЮ‚Á pÌgËm„Èob“®eÐwªÀXDOS‡ervicˆ129.è;èOBspacˆequ	$éENDè