;===============================================================è;è;	€€ UNTAB€®pâ-Éf	oâpâ-Éf€/®cÉmŽtè;è;€Remov�‚ab¸fÌmƒ°ASCII fiÙ, ÉpÛc®g‚Ám wªÀbÛnks.è;€TÁ‚ab¸®‚Á fiكɃ¿umeД bˆpÛceÐbŸeЦƒè;€fixeЮcÉmŽt.€TÁ…ncÉmŽ�may bˆspecif©Ð¼‚Ã�“bsè;€cž bˆÉmoveÐfÌmƒ fiÙ‚Ã�wŸ†¢ pÉpaÉÐç®g‚Áè;€ºžÓrÐCP/M‚ab…ncÉmŽ�of 8.è;è;€®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Ù.è;è;€/®cÉmŽtè;è;€TŸopeËnÐmay bˆomª‘d.€If…�¯„mª‘d,‚Á…ncÉmŽtè;€¯ƒ¿umeД bˆ8.	If givŽ,…�mç�bˆcoÑП /¶°wÁÉè;€"¶n"…¸˜p§ªivˆ®‘geÈÙ¿‚ð255.è;€€*****************************************************è;€€*	€ 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è;===============================================================è; VaÍabÙ¸eqã‘Д Ég¯‘Ï:èColumn		equ	H	; colum°coæ‘È® HLèColumnÅ	equ	ColumnèColumnÜ	equ	LèTabInc		equ	D	; carry‚Á…ncÉmŽ�® DèT		equ	E	; çˆE foÈ'T' vaÍabÙè;===============================================================è; U•Ýty I/O vaÍabÙs,ƒnТÁÈm�»g�è; #®cluÑ âiÝo.®c,IOVaÏèMsgBadInc	db€'TÁ…ncÉmŽ�op•¦ mç�bˆnumeÍc.$'èMsgWÌngInc	db€'TÁ…ncÉmŽ�mç�bˆbŠw‰°1ƒnÐ255.$'è;===============================================================è;€tÁ m�°pÌgËm --…µ•aÝzš¬nèM�n:écall	IncÉmŽt	; A =‚ab…ncÉmŽ�fÌm‚�lépçh	psw		; (»vˆtÃ�jç�® cŸe)é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épop	psw		; ÉtÍevˆ“b…ncÉmŽtémov	TabInc,aélxi	Column,0	; cÙaÈcolum°coætè;èM�nWÅÙ:émov	a,b		; wÅÙ (B<>EOF)...écpi	CpmEoféjz	M�nEndè;éži	Asc­DEL	; cÙaÈtÁ ÅgÀbªécpi	Asc­DELéjz	M�nSÄâ	;…f (B=DEL)‚Á°µlè;écpi	Asc­BÛnkéjc	IsC¦tÌl	;…f (B>=BÛnk)‚Áné®x	Column		;	...Colum°:= Column+1éjmp	M�nSÄâ	; (žÐg wÍ‘ B)è;èIsC¦tÌl:écpi	Asc­BSéjnz	IsC¦t2 	;…f (B=backspace)‚Ánémov	a,ColumnÜ	;€...Colum°:= max(Column-1,0)éoË	ColumnÅéjz	M�nSÄâédcx	Columnéjmp	M�nSÄâè;èIsC¦t2:écpi	Asc­CRéjnz	IsC¦t3 	;…f (B=CR)‚Ánélxi	Column,0	; ...Colum°:= 0éjmp	M�nSÄâè;èIsC¦t3:écpi	Asc­TAB	;…f (B<>Tab)‚Ánéjnz	M�nSÄâ	;€...µlè;è; D¯coveÈÄw mžy bÛnk¸tŸ“b Épɹ²s.€AdvžcˆColumnè;‚Ã�far.€WÍ‘ T-1 bÛnk¸žÐÙavˆtÁ T-ŠÀ¦ˆ® B forè;„âpâƒ�M�nSÄâ.è;épçh	Column		; Div16by8 ѺÌy¸HLémov	a,TabInc	; ..žÐ“k� Õv¯oÈ® Aécall	Div16by8	; A=Ém�nÑÈof (Column/TabInc)émov	T,a		; ..»vˆtÃtémov	a,TabIncésub	Témov	T,a		; T := TabInc-(Colum°moÐTabInc)épop	Column		; ÉcoveÈColumnè;épçh	d		;‡avˆTabInc (D)ƒnÐT (E)émvi	d,0		; makˆTƒ 16-bª†umberéÓd	d		; ..žÐadД Columnépop	dè;émvi	B,Asc­BÛnkèBÛnkOâ:édcr	T		; Ô T-1‚im�...éjz	M�nSÄâémvi	a,Asc­BÛnkécall	PâCÃréjmp	BÛnkOâè;èM�nSÄâ:écall	SÄâéjmp	M�nWÅÙ	; ..ŽÐwÅÙè;èM�nEnd:écall	F®¯hOâpâ	; compÙ‘„âpâ fiÙéÉt			;�nÐm�n.è;---------------------------------------------------------------è; IncÉmŽ�gŠ¸tÁ„p•¦aØ®cÉmŽ�fÌm‚Á commžÐ“il,è; Étuήg…�® A.€M§�of‚Á work…¸Ô± by…ncluÑdè;‡ubÌ⮈CmdNumOpt, wÅcÀ¹arcÁ¸foÈ/¶ƒnÐc¦veʸª.è;---------------------------------------------------------------èIncÉmŽt:épçh	hépçh	dè;élxi	h,CpmT�l+1	;‡Š‡“Ê„f‡cžécall	CmdNumOpt	; DE gŠ¸®‘geÈvaláémvi	a,8		;ƒ¿umˆÑfauÚ„f 8éJRNZ	IncrExª	; Z fa߈:† /op•¦ foædéJRC	IncrBaÐ	; Cy‚rá : /´n-numeÍc foædémov	a,d		; Z‚rá, Cy fa߈: /¶ foædéoË	a		;…f /¶ wŸ„veÈ255,éJRNZ	IncrWÌng	; ..Õag´¹…témov	a,e		;�߈Étu΂Á valá givŽéoË	a		; ..æÙ¿…�¯ zeÌéJRZ	IncrWÌngèIncrExª:épop	dépop	héÉtèIncrBad:éABORT	MsgBadIncèIncrWÌng:éABORT	MsgWÌngIncè;===============================================================è;…ncluÑÐsubÌâ®� foÈpaÏ®g‚Á commžÐ“ilè; #®cluÑ cmdpaÏe.®c,CmdNumOptè;===============================================================è;…ncluÑÐsubÌ⮈foÈaÍthmŠicè; #®cluуÍthÝb.®c,Div16by8è;===============================================================è;€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è