?login_element?

Subversion Repositories NedoOS

Rev

Rev 505 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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. setpgscr4000
  31.         ;ld a,(setpgs_scr_high)
  32.         ld a,(user_scr0_high) ;ok
  33.         SETPG16K
  34.         ret
  35.  
  36. setpgsvgc000
  37. codepg_svg=$+1
  38.         ld a,0
  39.         SETPG32KHIGH
  40.         ret
  41.  
  42. setpgs_scr
  43.         call setpgscr8000
  44. setpgscrc000
  45. ;setpgs_scr_high=$+1
  46. ;        ld a,0;pgscr0_1 ;scr0_1
  47.         ld a,(user_scr0_high) ;ok
  48.         SETPG32KHIGH
  49.         ret
  50. setpgscr8000
  51. ;setpgs_scr_low=$+1
  52. ;        ld a,0;pgscr0_0 ;scr0_0
  53.         ld a,(user_scr0_low) ;ok
  54.         SETPG32KLOW
  55.         ret
  56.  
  57. gifsetpgLZW
  58. curpgLZW=$+1
  59.         ld a,0
  60.         SETPG32KHIGH
  61.         ret
  62.  
  63.