libs/ltbl.zas

   1 ; build screen$ line table
   2 ; don't forget to set _LTBL_BASE_ADDRESS = #4000 (or anything else)
   3
   4
   5 ._ltbl_addr_2048 = 0
   6   DUP 3
   7 ._ltbl_addr_32 = 0
   8    DUP 8
   9 ._ltbl_addr_256 = 0
  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