GLED DOCLLED REL BLED ZZ0%)}VALIAS1 ZZ0N)8"XALIAS COMw$ָXALIAS DOCSXALIAS0 ZZ0LED, Line Editor vers. 1.0 -- Paul Pomerleau -- August 6, 1987 LED is a subset of the EASE editor. It can be included in any non comercial program. On entry: BC = length of buffer DE = buffer location A = command bits 0 (low bit) -- Zero = ignore BC and HL, use previous values 1 -- One = Set the insert Zero = Leave it as user set it last edit 2 -- One = Insert On Zero = Insert Off 3 -- One = Initailize position (start at first char) Zero = Same position as last edit (Values for BC and DE must be the same as last edit) 4 -- One = Output the line Zero = Use output of last edit (Bit 3 should be One) On exit: BC = length of input A = return code 0 = Normal "Done" 1 = Extension command #1 2 = Extension command #2 etc. Data needed: A buffer pointed to by DE which is two bytes longer than length required. The first location must be contain a zero. Any string terminated by a zero may follow. Example: BUFFER: db 0,'Hello, World!',0 A kill buffer of the name KILL (made PUBLIC) and KILSIZ, a PUBLIC equate, which specifies how long KILL is. KILL must be one byte longer than KILSIZ claims it to be and must contain a string ending with a zero. Example: kilsize equ 1000 KILL: db 'Blech.',0 ds kilsiz + 1 - 7 ; (Length) + (1) - (Length of 'Blech.') public kilsiz, KILL A list of command keys and an equate stating how long the list is. Both made public. Uppercase characters representing control chars and the high bit set representing a preceeding Meta key. After all standard LED functions are acounted for, the program may include other keys which will return control to the program with a Extension Command Number in A. Example: CMDLST: db 'QDSEXAF','S'+80h,'D'+80h,'G','H',127,'T', db 127+80h,'R','Y'+80h,'YUVIPWMC' db 'N'+80h ; Extension Command #1 cmdlen equ $ - CMDLST public CMDLST, cmdlen Example usage: public CMDLST, cmdlen, KILL, kilsiz ext LED org 100h RE_EDIT: xor a ld (KILL),a ; Make sure there's nothing to UNDO ld bc,size ld de,BUFFER+1 ld (de),a dec de ld (de),a ; Clear the buffer -- No initial text ld a,00011111b ; Do output, ; Start at first char, ; Insert On, ; Set insert, ; Use BC, HL. call LED or a ; Was <^Q><^N> hit? jr nz,RE_EDIT ; nz = Yes ld a,c ; Get the length in A ret BUFFER: db 0,'Xyz inc.',0 ds 50 size equ $ - BUFFER - 2 CMDLST: db 'QDSEXAF','S'+80h,'D'+80h,'G','H',127,'T', db 127+80h,'R','Y'+80h,'YUVIPWMC' cmdlen equ $ - CMDLST kilsize equ 1000 KILL: db 'Blech.',0 ds KILSIZ + 1 - 7 ; (Length) + (1) - (Length of 'Blech.') If you make any changes to LED (other than keystroke definitions), please tell me about the change. I'm on Lillipute Z-NODE -- (312) 664-1730 Paul Pomerleau bout the change. I'm on Lillipute Z-NODE -- (312) 664-1730 Q T4 %:COUTԓ4TI%Q+Sn 7,Qr`@m uM@\:ĥ0|[.ϢI|V-v \8Wnҝ "*&аFY, }ET0ͷ`,ͳM6;JLݛxғ 0f 6+̀#\mX0Y/ ?-2D%jY #Ր+ ;%jY( #Ր+ ;,v>n UDA/F[O E> 6݀ۈ-`a_PE*@ Wڬڞ4bwfܠ [!!G`3k8nf AUP@3@;KtLRH 3In>Y"L6T }5!ͬNxajE@D .Pp8F6 EzK|^f@7͸oH@V+U_32Z,$!@,8 H4a@`0 |S2Q5q4CINd4DT8CMDLST4UH$CRLFĴHKILSIZ4TIvLED.Z80#  !TEKD2Hf &MQi:@TU* (a@u6 il2ʣB! H'S9t p7 RLO'C(z&ͦ$`@FD h'ل1@ o"v] WQi7&SVg,6#d4G͆l$`aFSa1`9GFCyRs,$fRqdL$l4&3y,1N^B1r’$eL2iT~!Dxez^Yv7]v&]AA=l1!\BG(Ty&0;_<]ŝcYDpU A]Xp#Xtbx~IwE1 I} |+ Cр~ aD h@-Kye[64Zu*s]c`+)w@s$}6 IiDMA mF(,^qϸ1C1tk#=A/2\`Ud AC;/S  $gj0b8!lك И7B_,|0H@`b pЌxP>u0Y t,47\@$C -|)`; _*9 03&=Wi 7  "H`5#ODr`% SI %4&\HT C !Z HX1L@z Њu\4!"@B̨Q0PhT'h A00lc"S#GH,F,@8 5$4Iqhyls`C*pY5@ ÛgZd6Xu`1E.HZSJu- 0Hة<@TUF4!UʶVzO*N qφXՀJ듕Bw}d8&B˩raIɌ+oL!:` 2 j"C*K8 ZOx3uGJ4"b,.+ ْ?'U:05WRB#|>Mnv#`[0Øa.n")ËC3(v7VpX-Ċ)YCaEP=EY b)Չ\2_ oC_K;fL ŎQ$TH$>3זvM ѴTf HsPr `@EM4*τG%;_D}m:HD <)0lj-kQf"۝$J1u/ R)b:J -<[rS͙:G= S X"۰p܀1Tz6`IGzVf17f㭜sιaU^\k)h-Kf2 E&cq;jVk/= /˝; X )5&Ι\z}ϋ؏E-MSʻwWlC rN/N&a jw ԧ^ tl3Ϗ0 #mQ(M۰4z:b/e,bTz% ڽ9*-Td|\wpBK3S ޥ ,l"uxZ v-aE;];?v5x!oPg6j<ʷcp@|~Qd3I@.|&?wyDON:=z.xO_"{=1f|{Z1,WTo M {o?R7e&̀RKa1;IvIf'$ۅV,B0C"t'mJ2V,Plra+df6qC(K8&@fFB4~`N{j&x1e$fomBj2#$'q1I+Ym'neqNc%7#jI!$n7OH`Uh3v7 VXg 61eFLTLEUceYEeFR,drG ~f0 ]`5hThL 9PP51}576s$v1pQeSChFR0VAUS5^'v|..!pPc8Cv #@M,` O4F &77de6OE9$Yj!7.ɅPa`ur-S RHtF9@TTNB'D)pa_Yi'MDeZ ٜirF7WjS8wb{@XsfbkxiE%rA )n'j{yR2OjZ mA(R,}(1LxWai9[ϊ*"P'ta,A20 !H ܣLiJA3 S]U0سoA0V"{Hl,3tdVYEt\C(R1@_攇GqIŌXLB[&1f\3tc%PC5WC;">zEQs6NĪ-!(&gzWRJ&jx{kT$7j2(Q#"C @Sv@3NQS([C[PdS!Z2_PF9-U(u6˩j[?Yupj-s-k<䈄8WORg#PK GTьhJ'y&paN'TwX*%uRaO:Ԥ!xӐdط a;9=2Z[$cgڎB;!MJ y %VxʒZ%)Ms_4K QS(i lg9$QL| yNe21a#p8܆+hTLRAP8|/9@0vZf&]Tet*.`serz[lgZMwOuwIq@RG40PuĐyg ӽXвKp Wvz*cvuJ;턶;&wg6oI- ["44Ex$MyQ+{GUOHe rm FM(h<&gn_ HAP@(j*-w+g˸ ˜n,whwbǴ{,BԒy.9~a5$-@c$[4:n)0";k*tYjCvKJH 9Ra-N5FABN4^c oaa_xW;lD>hs#ڧg~bL|K8s/XjwQ9X2݈:;V#ykIʶVڐ1$e&%Z(Wp:@$I `^rG2Ƃ* ^$ ;jLw)x 8%@Acr;50`, S eɆ۟#c0r BR HOwN2IrsRVܕn&J4d 6@BQ !@ J6aOH%۴<^b4ԽK0vL$gP|pTx:%N&BX A5B+/HGV'~/#17U4H:O U fy,f&d"IX`BRRz o I¡^PḺr+I3.NYy/(i2Y) @%z֞ Q [G#&qT_M7Jy$kp^JPR2xo#xGU@t  lz^c-=ºBóF2Ь= W\{] J*& Mcqd5z tn%N (gqiAR@NP5t3hJl`3EKЏ ?$jPɣ- S@Ot~/<ٍɁ0$ߩ+ u=_U̩3tSa0g|<:XΨd ~(jNG,j=dQ]>7CXèyT]RC7u^"I˨B3,]7h/\^9Kb 3C)% :^ai'E2kvǙx@{:8@s~t?km2P9_}}{~oW'rk'ePeew4cjij7[Gp}'Qj22fǨ?EU`s"~ &Jque5eC O#8MaCufQwS9%nn.Hpqg}Sp A,֥ /WH#a,XZfG\u|vf6+o8,U3t8qk=P?x,p.k9fefX|k8v1O5T//`B?`v{7n'{w87V8([A) (egjuĆ)iD+hȇ!5hyFsłHGX?G7b]4gօP;_超}qghf)HcnYN0 (΍CqhmƬ; e_:Hx#vx)jPcpZrN,}1Kaނj*Vmap?@G#h4 (FGP.Ie$!h PYaD_(ʐ z\&C6֏3jÁXbrnq,FgɆ˕mxƮGGgG1q"Geh4(l4rr飚Xe"8|) evX7}a"F I4B:Bxs8D b`yN*2!|Rt-rSh&XI)q&9B՛\.Gi#%Ph"Gp0lG3}8΀d# ,O[%>=Mb͒Hs|B&v9vyb;tw.7Tne\ `xr8|<$_B)H)aTk:59Pq8lk|v~@ǩH$eS`pJEYF`$i9QRr y|(w9yk0=?H kުEC+Rui[vI7wt#y鎻Ũ늆(B F9'U(jBW6\F"&JKu a^cl-c-[hjdv׺ νhxݹ׋K'O\],A|)l}0c3sL5Qƫcl1-ޥ؎=%1:Hط}ټe }G;~!8BYyk* lN-nl\ph+軾b >lt%[ߝQ0&iյޞ)v~;`ڹi\BAG;lfq6ފ̚zJz]a {ut܁5,F$kgƁƩagM!r ˅ܡU]0lnGj$} ڸ!2N5_\EC/i.Ы;έ݌uu >UVfܽ,]Nqa .7,ujvI7ƛPBP7~@x3Q:^ble#iH~rED~Zd[2+z 3a#Z3ENVQDSEXAFGHTRYUVIPWMCͰ XALIAS, Version 1.12P!]~ / F XALIAS -- Create ALIAS Commands Syntax: XALIAS [dir:cmdname] ALIAS: !]~ ( #\Ͷ !@E ( New#^#V"O6Ñ!@ \͠ . S S ]d is Not an ALIAS͐ *@? E #"O Old ALIAS Command Line:*O~(S x&  --> ~( ͆ #;( Edit ALIAS: --> *OC>%j~####^#V!S :] { Name of ALIAS: 2C>%j~S \o Ͷ \0 w (K File ]d Exists - Overwrite (N for No)? 8 N\ Ͷ \0 ͂ <(0\ͫ  ͐ ALIAS Created Error in Creating File*m }o!Be͞ Modification of ALIAS Not PermittedB>͝!C W+" a:*aha>2!f5 6d\]!fe * f~2d0*f~00"K fo& ~#fo( ~(# +(+ (A  * f^#Vͥ~<(#<(^#V<(ͲD͇E ^#V J_"fw#6* fDM###^COMZ3 ALIAS&6XoG k,.:!#%^&<>[]{}()_+-=`~/\|; G(Sb  "d !\ O(6W(6_(#6g2 ͔G:_ 2_ 8 0͵;!!  y>ҰO!Q ^#V>2_ 3H,*] ~<3*] +~ <3b(3b !͠z(3{HJzH,b b(3H͔> õ!\ ~/w*] P#;( 6H*b P*] 6 3 *] S ѷR83RGI 0@a{ !P|+3 0|+!P|+ 0|+ >  *b ~# > >  _:\ *] ~{ G͠({*] wq[] !a 4 04͸S *b "] O*] ~( 0  #z *] ~#"] G: x*] +~"]   k !a ~( =  5 z3> (2 82x*] > Fw#x w[d R(*] T]#~ !P/2t2tH~#͵* 66 0 >^ @ > >_>' {!` ( (( ( ( 465>  >>  > *m ###ɶ2^ 0 ͆ :` ɯ2a 2` ͳ y2b  ~2_ : #:^ ʳ . ͋ :^ . :a ; ѯ2`  ~2_ :_  . #  :b :` * >?'  #?'  # !` 46 c ʿ #q G~A[ @҈ 2a #~ $ ~ u $ ڇ #^ ~ ‡  O ҈ 2b =͓ ͍ ʿ #ʿ ± #¦  Û =2b 2a ~! =_.:,<>ȷ;ɯ~  #$ ! Wy! ! ! ! ! O y70 . ?7ɯ; ;  > N ͳ yN ~#U R66* .~* ,~* -~* ^#V#~ѷ* )~#fo~" !~G怰ww   X >Y  X  X R  <Ͷ   ʝ    ~#  ͆    y yG>GO>   + d>  > 0 H @ _yZ Z >  {y0 {z >. z  z       >^ @  OG~ ͫw# H WHWr# x.H 7 H7|WH}W~# xH ~+ x]R~#w͊k+~#w͊{wO !ʞ#”y  a{_ Z3ENVF* Z3 ALIAS-͝ W(!(͞;8(8/ ( 0(_E.y>a>:>a_aK<8>a>>aP;80凇-͝ 1 E.>@>aU 38 >>a9͝ 1 -E.P;A>aU3-͝ >>a9͝ , #-͝  >>a >>a > -͝ )>>a~K$5#%%#~*DUFʓNʧ0* *0G#!͡~ʑʅ~# kʑw~!ڑ#Åʹ>.ʹ#~1#ɯGx ~ #͊xA#͊y 0 0Gy0x##!~(#>$##ʑ#~ ʑ#;Ñ~G|xpOvfl"ʅG~ʇ#z*^#V: ʘ6~;ʬʬ>;ʸ~#ʿ¬6Å*s#r~#= *###*^#V*$~#fo|*R"~#r \ v I NNR## #y# #yG>GO> vh#O*.  OG~#ʮʢ+~#ʮ²îO !#y  a{_XALIAS, Extended Alias vers. 1.0 -- Paul Pomerleau -- August 6, 1987 XALIAS is the front end of Rich Conn's ALIAS program and the alias code of VALIAS. An editor has been added to the ALIAS code, along with several changes to make it less cumbersome. The editor is a subset of the one in EASE. You may change the keystrokes for any action with a patch utility or by changing the code and reassembling. See LED.Z80 and EASE.DOC for more information about the editor. Paul Pomerleaue LED.Z80 and EASE.DOC for more information about the editor. vXALIAS0.Z80#  #ya6 0A)!t4PҁlͦS!MAHc4NRnA ss 3t2c&s  o<p$q:F4`Un. * p74:! '1 1TaaqmQ;<֛L:Qi5M 5$f@=l,!,b:}$iA#,@(03FANٛ8mFc5ŰlجAn hwSQA= $TpnFHVbov)u<auFdfP_ã.CB 'إ yR@ 2"Q膱!ZPAa8z|״q-<Y 'I,YFS#$D*y/Ƕ@k&r^<peԤIt@fcHTMk֔@Y\+&F$Acf"xIQ -!LT9+(/"<GNK޲^l*8c0Xhr>;I9/9FB,y AIa$NehdWiqu=F ɤ <9רQrz]KꂽkpD:tЕ lY !Kp d n?A9uu"Zaľ2\C Ń)\Zܖ[ZŝDҦUݦrC-p# a9V\mA@] QԾeD'5XuV :Vwi"*鐤gA:Xeݷ'9%J9'KsD??緎(bVwaXBu/E3@hs>u:Zz{y?5X'qhϳlHA2/nfL= u]`6]i+nlc*OJhK_É%dfjJx16ůYвFŔ1[pd '|WuPгpuYw"( *^$$ׯ&((M_2hq蜂$Kp%(f%iPZ.vfln/WpS[B[A?eaqLa)4|00#V x w iix2DqruueN59:9?XuD dTB56bB|)Q%df'xɚYAxvKEzIVYtLUTDs6Px)98yy NF?:y`|a&0ivNHN!$?RRݚR4TJdi5"d &0a[Rt8WI))#Id6aV$Zqibq+ʚ3R[K‹(iZ(@Mq'Sc[vMc'H)5U:@/rI%{U&^];)_2`A,`&r|`S  `MUܘB|e2zICIiyU`d=w&fax H-88Z#8+1Ӿ+/+89V&CW"x㨝)*R,hBoR0v9!%<'_wwX.[Tn:(f2DXqpI@!x3ʄ)1YuER A%*ZK2>ijZr,orie0f[Ci}AiXe7Qo,25D!{i&mcʔx_I|<@R@R/.fbcӔ'ףCM9?w3z!4?a0 rdSSBq BNQicSKb j#f0(jd,~Qf3P1²q;cX-9FaU;e"^#[q_bB qMS9Q]&={!Hi5iRn{ t<4d0 69qGva[:3@Mvݏ a@K0cS`FPN2ȼ0?Woۿlm |s7ݽ VdQ;