palcopy.fs 246 B

123456789101112131415161718
  1. start-microcode palcopy
  2. : 1+ d# 1 + ;
  3. : main
  4. \ Copy RAM_PAL to PALETTE16A
  5. RAM_PAL PALETTE16A
  6. d# 32
  7. begin
  8. >r
  9. over c@ over c!
  10. 1+ swap 1+ swap
  11. r> 1- d# 0 =
  12. until
  13. begin again
  14. ;
  15. end-microcode