Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. cls
  2.         call setpgsscr40008000
  3.         ld ix,scrbase+clswid
  4.         call CLSlayer
  5.         ld ix,scrbase+0x4000+clswid
  6.         call CLSlayer
  7.         ld ix,scrbase+0x2000+clswid
  8.         call CLSlayer
  9.         ld ix,scrbase+0x6000+clswid
  10.         ld hl,setpgsmain40008000
  11.         push hl
  12. CLSlayer
  13.         LD (CLSlayerSP),SP
  14.         LD bc,40
  15.         ld d,b
  16.         ld e,b
  17.         LD a,clshgt
  18. CLSlayer0
  19.         LD SP,ix
  20.         dup clswid/2-1
  21.         push de
  22.         edup
  23.         ld (ix-(clswid-1)),d
  24.         ld (ix-clswid),e
  25.         add ix,bc
  26.         dec a
  27.         jr nz,CLSlayer0
  28. CLSlayerSP=$+1
  29.         ld sp,0
  30.         ret
  31.