L0000 EQU Begin-8 
 TEXT 
Begin:
  BCS.S     L0000 
  LEA       $A54.S,A1 
  MOVE.L    4(A7),-(A7) 
  BSR.S     L0002 
  ADDQ.L    #4,A7 
  ANDI.B    #3,D2 
  MOVE.B    #2,31(A0) 
  BSET      #0,27(A0) 
  MOVE.B    #1,21(A0) 
  MOVE.B    D2,23(A0) 
  BCLR      #0,27(A0) 
  MOVEQ     #$C,D0
  MOVEQ     #1,D1 
L0001:
  MOVE.B    -(A1),0(A0,D1.W)
  ADDQ.W    #2,D1 
  DBF       D0,L0001
  MOVEQ     #0,D0 
  RTS 
L0002:
  MOVE.W    4(A7),D1
  MOVE.W    D1,D0 
  LSR.W     #1,D0 
  LSR.W     #8,D0 
  MOVE.W    D0,D2 
  BSR.S     L0005 
  MOVE.W    D1,D0 
  LSR.W     #5,D0 
  AND.W     #$F,D0
  BSR.S     L0005 
  MOVE.W    D1,D0 
  AND.W     #$1F,D0 
  BSR.S     L0005 
  LSR.W     #5,D1 
  ANDI.W    #$F,D1
  ADDQ.W    #1,D1 
  MOVE.W    D2,D0 
  CMPI.W    #3,D1 
  BHI.S     L0003 
  ADD.W     #$C,D1
  SUBQ.W    #1,D0 
L0003:
  MULU      #$1A,D1 
  DIVU      #$A,D1
  ADD.W     D0,D1 
  LSR.W     #2,D0 
  ADD.W     D0,D1 
  MOVE.W    4(A7),D0
  ANDI.W    #$1F,D0 
  ADD.W     D0,D1 
  ADDQ.W    #2,D1 
  EXT.L     D1
  DIVU      #7,D1 
  SWAP      D1
  MOVE.B    D1,(A1)+
  MOVE.W    6(A7),D1
  MOVE.W    D1,D0 
  LSR.W     #8,D0 
  LSR.W     #3,D0 
  BSR.S     L0005 
  MOVE.W    D1,D0 
  LSR.W     #5,D0 
  BSR.S     L0004 
  MOVE.W    D1,D0 
  ADD.W     D0,D0 
L0004:
  AND.W     #$3F,D0 
L0005:
  EXT.L     D0
  DIVU      #$A,D0
  MOVE.B    D0,(A1)+
  SWAP      D0
  MOVE.B    D0,(A1)+
  RTS 
  NOP 
  NOP 
  NOP 
  NOP 
  NOP 
  NOP 
  NOP 
  NOP 
  NOP 
  NOP 
  NOP 
ZUEND: END