home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / SKIPBLKS.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  384 b   |  17 lines
  1.     extrn    .lastch, .nextch, .qwhite
  2. ;
  3. ; skip blanks and tabs in input line.  Abort on illegal chars.
  4. ; return the 1st non-blank char. found.
  5. ; a,f,d,e
  6. .skipblks::
  7.     call    .lastch
  8.     rc;            eoln
  9. skip1:    call    .qwhite
  10.     rnz;            not white space
  11. ;    "    "
  12. ; Advance to non-blank, line de^. "call .nextch ! call .skipblks"
  13. ; a,f,d,e
  14. .nxt::    call    .nextch
  15.     jnc    skip1
  16.     ret;            eoln
  17. ε¡