home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s220 / 4.ddi / A8051MAC.S03 next >
Encoding:
Text File  |  1983-08-30  |  581 b   |  27 lines
  1.         lstexp-         ;Disable expanded lists
  2.  
  3.         macro   %table
  4.         lstexp+         ;List next line
  5. temp?   set     1
  6.         lstexp-
  7. ; \l0 - Find parameter length
  8. len?    set     \%
  9. ; \l1 - Initiate stringpos to 1
  10.         %puttab \0
  11.         endmac
  12.  
  13.         macro   %puttab
  14. ; \u\u -  Push stringpos (duplicate)
  15.         if      \.<=len?
  16. ; \l0 - Parameter number 0 is the one
  17.         lstexp+
  18.         db      '\"',temp?
  19. temp?   set     temp?+1
  20.         lstexp-
  21. ; \i
  22.         %puttab \0
  23.         endif
  24.         endmac
  25.  
  26.         %table  qrstu;The CALL
  27.