home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 10 / crca.asm < prev    next >
Encoding:
Assembly Source File  |  1988-11-16  |  3.6 KB  |  112 lines
  1. ;
  2. ;----------------------------------------------------------
  3. ; File       : CRCA.PAS  Vers. 1.0
  4. ; Last Edit  : 16.11.88
  5. ; Autor      : (c) G. Born
  6. ; Progr. Spr.: Assembler (A86 / MASM)
  7. ;
  8. ;        CRC 16 Generator für den 8086 Prozessor
  9. ; Es wird das Polynom y = x^16 + x^15 + x^2 + 1 verwendet
  10. ; Aufruf von Hochsprachen mit:
  11. ;
  12. ; CALL CRC (CRCr,Buff,Len)
  13. ;
  14. ; CRCr = Adresse Variable 16 Bit CRC Register
  15. ; Buff = Adresse des Zeichenpuffers
  16. ; Len  = Wert Zeichenzahl im Puffer
  17. ;
  18. ; Es sind die Adressen der zwei Parameter CRCr, Buff und
  19. ; der Wert von Len über den Stack zu übergeben:
  20. ;
  21. ;        Stack Anordnung
  22. ;      +-------------------+
  23. ;      ! Seg:   CRCr       !
  24. ;      +-------------------+ + 0E
  25. ;      ! Ofs:   CRCr       !
  26. ;      +-------------------+ + 0C
  27. ;      ! Seg:   Buff       !
  28. ;      +-------------------+ + 0A
  29. ;      ! Ofs:   Buff       !
  30. ;      +-------------------+ + 08
  31. ;      ! Wert   Len        !
  32. ;      +-------------------+ + 06
  33. ;      ! Seg:   Return Adr.!
  34. ;      +-------------------+ + 04
  35. ;      ! Ofs:   Return Adr.!
  36. ;      +-------------------+ + 02
  37. ;      !  BP  von CRCA     !
  38. ;      +-------------------+
  39. ;
  40. ; Die Procedur ist als Far aufzurufen. Es wird angenommen, daß die
  41. ; Variablen im DS - Segment liegen. Diese Konvention entspricht der
  42. ; Parameterübergabe in Turbo Pascal und Quick Basic. Für die eigent-
  43. ; liche CRC Berechnung gilt folgende Registerbelegung:
  44. ; 
  45. ; Register: BX = CRC Register
  46. ;           DX = Zeiger in den Datenstrom
  47. ;           CX = Zahl der Daten
  48. ;           AH = Bit Counter
  49. ;           AL = Hilfsaccu
  50. ;----------------------------------------------------------
  51. ;
  52. CODE    SEGMENT   WORD PUBLIC
  53.         ASSUME    CS:CODE, DS:DATA
  54.  
  55. POLY    EQU       0010000000000001xB ; Polynom
  56.  
  57.         PUBLIC    CRC
  58.  
  59. CRC     PROC      FAR
  60.  
  61.         PUSH      BP            ; save old frame
  62.         MOV       BP,SP         ; set new frame
  63.         PUSH      DS            ; save DS
  64.         MOV       CX,[BP]+06    ; get (Len)
  65.         MOV       DX,[BP]+08    ; get Adr (Buff)
  66.         MOV       DS,[BP]+0A    ; get Seg (Buff)
  67.         MOV       BX,[BP]+0C    ; get Adr (CRC)
  68.         MOV       DI,BX         ; merke Adr
  69.         MOV       DS:BX,[BX]    ; load CRC value
  70. ;
  71. START:  LEA       SI,DX         ; Datenzeiger laden
  72.         CLD                     ; Autoincrement
  73. ;
  74. LESE:   MOV       AH,08         ; 8 Bit pro Zeichen
  75.         LODSB                   ; Zeichen lesen & SI + 1
  76.         MOV       DL, AL        ; merke Zeichen
  77. ;
  78. ; CRC Generator
  79. ;
  80. CRC1:   XOR       AL,BL         ; BCC - LSB XOR Zchn
  81.         RCR       AL,1          ; Ergebnis in Carry Bit
  82.         JNC       NULL          ; Serial Quotient ?
  83. ;
  84. ; Serial Quotient = 1
  85. ;
  86. EINS:   RCR       BX,1          ; SHIFT CRC right
  87.         XOR       BX,POLY       ; Übertrag einblenden
  88.         JMP       TESTE         ; weitere Bits
  89. ;
  90. ; Serial Quotient = 0
  91. ;
  92. NULL:   RCR       BX,1          ; Shift CRC right
  93. ;
  94. TESTE:  MOV       AL,DL         ; Lese Zeichen
  95.         RCR       AL,1          ; Shift Zeichen 1 Bit right
  96.         MOV       DL,AL         ; merke Restzeichen
  97.         DEC       AH            ; 8 Bit fertig ?
  98.         JNZ       CRC1          ; Zeichen weiter bearbeiten ?
  99.         LOOP      LESE          ; String bearbeitet?
  100. ;
  101. ; Ende -> Das CRC Ergebnis steht im Register BX
  102. ;      -> schreibe in Ergebnisvariable zurück
  103. ;
  104.         MOV       DS:[DI],BX    ; restore CRC result
  105.  
  106.         POP       DS            ; restore Segmentreg.
  107.         POP       BP            ; restore old frame
  108.         RETF      0A            ; Return + POP 10 Bytes
  109.  
  110.         END
  111.  
  112.