home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol202 / vid2.mac < prev    next >
Encoding:
Text File  |  1984-12-19  |  766 b   |  45 lines
  1. ;
  2. ; VLIB Module Name:  VID2
  3. ; Author:  Richard Conn
  4. ; VLIB  Version Number:  1.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    EREOL
  8. ; Module External References:
  9. ;    VIDPTR    VIDOUT    VIDSKP
  10. ;
  11.     ext    vidptr,vidout,vidskp
  12. ;
  13. ; Erase to End of Line
  14. ;    Return with A=0 and Zero Flag Set if not done
  15. ;
  16. ereol::
  17.     push    h    ;save regs
  18.     push    d
  19.     lhld    vidptr    ;pt to environment
  20.     mov    a,m    ;no terminal?
  21.     cpi    ' '+1
  22.     jc    err
  23.     lxi    d,16h    ;pt to ereol delay
  24.     dad    d
  25.     mov    d,m    ;get it
  26.     inx    h    ;pt to cls string
  27.     call    vidskp    ;skip over it
  28.     call    vidskp    ;skip over CM string
  29.     mov    a,m    ;get first char of ereol string
  30.     ora    a    ;if no string, error
  31.     jz    err
  32.     call    vidout    ;output string with delay
  33.     pop    d    ;done
  34.     pop    h
  35.     xra    a    ;return NZ
  36.     dcr    a
  37.     ret
  38. err:
  39.     pop    d    ;done
  40.     pop    h
  41.     xra    a    ;return Z
  42.     ret
  43.  
  44.     end
  45.