(LED DOC5LLED REL* BLED ZZ0)}vLED.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, }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ĴHKILSIZ4TILED, 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