home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / tline12.lbr / TLTEST.MZC / TLTEST.MAC
Encoding:
Text File  |  1990-10-19  |  512 b   |  35 lines
  1. ; TLTEST.MAC
  2. ;
  3. ;    For testing TLINE tiny line editor
  4. ;
  5. BufLen    equ    25        ; buffer length
  6. Echo    equ    0FFh        ; 0=no echo, non-zero=echo
  7. ;
  8.     .request    SYSLIB
  9. ;
  10.     ext    tline,cout
  11. ;
  12.     MACLIB    Z80
  13. ;
  14.     jmp    Start
  15. ;
  16. EPFlag:    db    Echo    
  17. ;
  18. Start:    lxi    h,EdBuf        ; buffer address
  19.     mvi    b,BufLen    ; buffer length
  20.     lda    EPFlag
  21.     call    tline
  22.     jrnz    Abort
  23.     ret
  24. Abort:    mvi    a,'^'
  25.     call    cout
  26.     mvi    a,'C'
  27.     call    cout
  28.     ret
  29. ;
  30.     DSEG
  31. ;
  32. EdBuf:    ds    BufLen        ; edit buffer
  33. ;
  34.     end
  35.