libs/ltbl_rev.zas

   1 ; build reversed screen$ line table
   2 ; don't forget to set _LTBL_BASE_ADDRESS = #4000 (or anything else)
   3
   4
   5 ._ltbl_addr_2048 = 2
   6   DUP 3
   7 ._ltbl_addr_32 = 7
   8    DUP 8
   9 ._ltbl_addr_256 = 7
  10     DUP 8
  11      DEFW _LTBL_BASE_ADDRESS+._ltbl_addr_2048*2048+._ltbl_addr_32*32+._ltbl_addr_256*256
  12 ._ltbl_addr_256 = ._ltbl_addr_256-1
  13     EDUP
  14 ._ltbl_addr_32 = ._ltbl_addr_32-1
  15    EDUP
  16 ._ltbl_addr_2048 = ._ltbl_addr_2048-1
  17   EDUP