home *** CD-ROM | disk | FTP | other *** search
/ messroms.de / 2007-01-13_www.messroms.de.zip / VZ200 / TOOLS / ZCCSRC.ZIP / link / lks19.c < prev    next >
C/C++ Source or Header  |  2000-02-29  |  754b  |  52 lines
  1. /* lks19.c */
  2.  
  3. /*
  4.  * (C) Copyright 1989,1990
  5.  * All Rights Reserved
  6.  *
  7.  * Alan R. Baldwin
  8.  * 721 Berkeley St.
  9.  * Kent, Ohio  44240
  10.  */
  11.  
  12. #include <stdio.h>
  13. #include <string.h>
  14. #include <alloc.h>
  15. #include "aslink.h"
  16.  
  17. void
  18. s19(i)
  19. int i;
  20. {
  21.     register addr_t chksum;
  22.  
  23.     if (i)
  24.     {
  25.         if (hilo == 0)
  26.         {
  27.             chksum = rtval[0];
  28.             rtval[0] = rtval[1];
  29.             rtval[1] = chksum;
  30.         }
  31.         for (i = 0, chksum = 1; i < rtcnt; i++)
  32.         {
  33.             if (rtflg[i])
  34.                 chksum++;
  35.         }
  36.         fprintf(ofp, "S1%02X", chksum);
  37.         for (i = 0; i < rtcnt; i++)
  38.         {
  39.             if (rtflg[i])
  40.             {
  41.                 fprintf(ofp, "%02X", rtval[i]);
  42.                 chksum += rtval[i];
  43.             }
  44.         }
  45.         fprintf(ofp, "%02X\n", (-chksum - 1) & 0xff);
  46.     }
  47.     else
  48.     {
  49.         fprintf(ofp, "S9030000FC\n");
  50.     }
  51. }
  52.