home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / asxsrc / lks19.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-08-25  |  583 b   |  37 lines
  1. /* lks19.c */
  2.  
  3. /*
  4.  * (C) Copyright 1989
  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 "aslink.h"
  14.  
  15. VOID
  16. s19(i)
  17. {
  18.     register chksum;
  19.  
  20.     if (i) {
  21.         if (hilo == 0) {
  22.             chksum = rtval[0];
  23.             rtval[0] = rtval[1];
  24.             rtval[1] = chksum;
  25.         }
  26.         chksum = rtcnt+1;
  27.         fprintf(ofp, "S1%02X", chksum);
  28.         for (i = 0; i < rtcnt ; ++i) {
  29.             fprintf(ofp, "%02X", rtval[i]);
  30.             chksum += rtval[i];
  31.         }
  32.         fprintf(ofp, "%02X\n", (-chksum-1) & 0xff);
  33.     } else {
  34.         fprintf(ofp, "S9030000FC\n");
  35.     }
  36. }
  37.