Mercurial > hg > Members > kono > nitros9-code

view level1/modules/kernel/fcrc.asm @ 2877:b14ea1930107 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
makefiles: Remove some spurious spaces which created some merge conflicts.
author Tormod Volden <debian.tormod@gmail.com>
date Sun, 24 Nov 2013 15:57:15 +0100
parents 505c8d261ef6
children
line wrap: on
line source

* F$CRC
FCRC     ldx   R$X,u
         ldy   R$Y,u
         beq   L0402
         ldu   R$U,u
L03FA    lda   ,x+
         bsr   CRCAlgo
         leay  -1,y
         bne   L03FA
L0402    clrb
         rts

CRCAlgo  eora  ,u
         pshs  a
         ldd   $01,u
         std   ,u
         clra
         ldb   ,s
         lslb
         rola
         eora  1,u
         std   1,u
         clrb
         lda   ,s
         lsra
         rorb
         lsra
         rorb
         eora  1,u
         eorb  2,u
         std   1,u
         lda   ,s
         lsla
         eora  ,s
         sta   ,s
         lsla
         lsla
         eora  ,s
         sta   ,s
         lsla
         lsla
         lsla
         lsla
         eora  ,s+
         bpl   L0442
         ldd   #$8021
         eora  ,u
         sta   ,u
         eorb  2,u
         stb   2,u
L0442    rts