home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / nasm20b / libinc / demo / strtest.s65 < prev    next >
Text File  |  1984-10-29  |  563b  |  26 lines
  1.    .include #system
  2.    .include #stddef
  3.    .include #macros
  4.    .include #cio
  5.    .include #string
  6.  
  7. _string1 == $F0
  8. _string2 == $F2
  9. _tmp1    == $F4
  10.  
  11. start:
  12.    PRINT    0,"Starting the STRING test",255,@p1+@p3+@s2
  13.    STRCPY   buf,"Deutscher Meister",@p1+@s2
  14.    STRLEN   buf
  15.    PRINT    0,buf,_tmp1,@p1+@p2+@special
  16.    PUTC     0,155,@p1+@p2+@special
  17.    STRCAT   buf," wird nur der VfL",@p1+@s2+@special
  18.    STRLEN   buf
  19.    PRINT    0,buf,_tmp1,@p1+@p2+@special
  20.    PUTC     0,155,@p1+@p2+@special
  21.    PRINT    0,"Done"
  22.    rts
  23.  
  24. buf:  .ds   128
  25.  
  26.