home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 10 / demo.bas < prev    next >
Encoding:
BASIC Source File  |  1988-11-16  |  2.1 KB  |  64 lines
  1. '!*********************************************************
  2. '! File       : DEMO.BAS
  3. '! Vers.      : 1.0
  4. '! Last Edit  : 16.11.88
  5. '! Autor      : G. Born
  6. '! Files      : ---
  7. '! Progr. Spr.: Quick Basic 4.0 / 4.5
  8. '! Betr. Sys. : DOS 2.1 - 3.3
  9. '! Funktion: Das Programm dient zur Demonstration der CRC -
  10. '!          Berechnung per Software. Die zu übertragenden
  11. '1          Zeichen stehen als Bytes im Feld buff%(), oder
  12. '!          im String buff$. Aus diesen Zeichen wird dann
  13. '!          die CRC16 - Summe über mittels der Assembler
  14. '!          Procedur CRC (File CRCA.OBJ) nach dem Polynom-
  15. '!          divisionsverfahren berechnet. Compiler und
  16. '!          Linker sind mit folgenden Parametern aufzurufen:
  17. '!
  18. '!          BC DEMO.BAS
  19. '!          LINK DEMO.OBJ,CRCA.OBJ
  20. '!
  21. '!********************************************************
  22.  
  23. DIM buff%(255)                         '! Integer Puffer
  24.  
  25. crcres% = 0                            '! clear CRC - Register
  26. '!
  27. '! setze Zeichen in Puffer, beachte aber, daß es kein Byte
  28. '! Datum gibt, d.h. zwei Bytes sind in einer Integer Variablen
  29. '! zu speichern !!!
  30. '!
  31. buff%(0) = &H8855                      '! setze Zeichen in
  32. buff%(1) = &HCC                        '! INTEGER Puffer
  33. '!
  34. '! Setze Zeichen alternativ in den Stingpuffer
  35. '!
  36. buff$ = CHR$(&H55)+CHR$(&H88)+CHR$(&HCC) '! Testcode setzen
  37.  
  38. PRINT "CRC - Demo Programm in Basic (c) Born G."
  39. PRINT
  40. PRINT "CRC - Berechnung über Polynomdivision mit CRCA.ASM"
  41. PRINT
  42. '!
  43. '! Berechne CRC aus Integer Puffer
  44. '!
  45. CALL CRC (SEG crcres%, SEG buff%(0), BYVAL 3) '! Aufruf CRC Routine 1
  46.  
  47. PRINT "Die CRC - Summe ist : ";HEX$(crcres%) '! Hexzahl ausgeben
  48.  
  49. '!
  50. '! Berechne CRC aus String Puffer
  51. '!
  52. crcres% = 0                                   '! clear CRC - Register
  53. FOR i% = 1 TO LEN(buff$)                      '! separiere Zeichen
  54.  tmp% = ASC(MID$(buff$,i%,1))                 '! in Integer wandeln
  55.  CALL CRC (SEG crcres%, SEG tmp%, BYVAL 1)    '! Aufruf CRC Routine 1
  56. NEXT i%
  57.  
  58. PRINT
  59. PRINT "Die CRC - Summe ist : ";HEX$(crcres%) '! Hexzahl ausgeben
  60.  
  61. END
  62. '!**** Ende *****
  63.  
  64.