Код:
sintabgen2      ;; 42 байта (#2a байта :) )
  ld de,#7fd0
  ld hl,#0021
  ld bc,#ffea
  exx
  ld hl,sintab+#40
  ld d,h
  ld e,l
loop
  ld a,e
  exx
  add hl,bc
  and #03
  jr nz,$+3
  inc c
  ex de,hl
  add hl,de
  ex de,hl
  ld a,d
  exx
  ld (hl),a
  ld (de),a
  inc e
  dec l
  jr nz,loop
  ld (hl),l
loop2
  xor a
  sbc a,(hl)
  ld (de),a
  inc l
  inc e
  jr nz,loop2


---------- Post added at 05:10 ---------- Previous post was at 05:02 ----------

Вариант в 41 байт:
Код:
sintab EQU #7b00 ; или #7d00
....
  ld e,l
  ld hl,sintab+#40
loop
  exx
....
jr nz,loop-1