Subversion Repositories NedoOS

Rev

Rev 42 | Rev 505 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1. setpghist
  2. histpg=$+1
  3.         ld a,0
  4.         SETPG32KHIGH
  5.         ret
  6.  
  7. setpgdiv4000
  8. codepg8000=$+1
  9.         ld a,0 ;tdiv
  10.         SETPG16K ;0x4000
  11.         ret
  12.        
  13. setpgcode4000
  14. codepg4000=$+1
  15.         ld a,0
  16.         SETPG16K
  17.         ret
  18.  
  19. setpgtemp8000
  20. temppg8000=$+1
  21.         ld a,0
  22.         SETPG32KLOW
  23.         ret
  24.  
  25. setpgtemp4000
  26.         ld a,(temppg8000)
  27.         SETPG16K
  28.         ret
  29.  
  30. setpgs_scr
  31.         call setpgscr8000
  32. setpgscrc000
  33. setpgs_scr_high=$+1
  34.         ld a,0;pgscr0_1 ;scr0_1
  35.         SETPG32KHIGH
  36.         ret
  37. setpgscr8000
  38. setpgs_scr_low=$+1
  39.         ld a,0;pgscr0_0 ;scr0_0
  40.         SETPG32KLOW
  41.         ret
  42.  
  43. gifsetpgLZW
  44. curpgLZW=$+1
  45.         ld a,0
  46.         SETPG32KHIGH
  47.         ret
  48.  
  49.