?login_element?

Subversion Repositories NedoOS

Rev

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

  1. setpgsmain40008000
  2. pgmain4000=$+1
  3.         ld a,0
  4.         ;ld (curpg4000),a
  5.         SETPG16K
  6. pgmain8000=$+1
  7.         ld a,0
  8.         ;ld (curpg8000),a
  9.         SETPG32KLOW
  10.         ret
  11.  
  12. setpgsscr40008000_current
  13.         call getuser_scr_low_cur
  14.         ;ld (curpg4000),a ;TODO kill
  15.         SETPG16K
  16.         call getuser_scr_high_cur
  17.         ;ld (curpg8000),a ;TODO kill
  18.         SETPG32KLOW
  19.         ret
  20.  
  21. setpgsscr40008000
  22.         call getuser_scr_low
  23.         ;ld (curpg4000),a ;TODO kill
  24.         SETPG16K
  25.         call getuser_scr_high
  26.         ;ld (curpg8000),a ;TODO kill
  27.         SETPG32KLOW
  28.         ret
  29.  
  30. setpgscrlow4000
  31.         call getuser_scr_low
  32.         SETPG16K
  33.         ret
  34.  
  35. setpgscrhigh4000
  36.         call getuser_scr_high
  37.         SETPG16K
  38.         ret
  39.  
  40. getuser_scr_low
  41. getuser_scr_low_patch=$+1
  42. getuser_scr_low_patchN=0xff&(user_scr0_low^user_scr1_low)
  43.         ld a,(user_scr1_low) ;ok
  44.         ret
  45.  
  46. getuser_scr_high
  47. getuser_scr_high_patch=$+1
  48. getuser_scr_high_patchN=0xff&(user_scr0_high^user_scr1_high)
  49.         ld a,(user_scr1_high) ;ok
  50.         ret
  51.  
  52. getuser_scr_low_cur
  53. getuser_scr_low_cur_patch=$+1
  54. getuser_scr_low_cur_patchN=0xff&(user_scr0_low^user_scr1_low)
  55.         ld a,(user_scr0_low) ;ok
  56.         ret
  57.  
  58. getuser_scr_high_cur
  59. getuser_scr_high_cur_patch=$+1
  60. getuser_scr_high_cur_patchN=0xff&(user_scr0_high^user_scr1_high)
  61.         ld a,(user_scr0_high) ;ok
  62.         ret
  63.  
  64. changescrpg_current
  65. ;        ld a,(setpgs_scr_low)
  66. ;setpgs_scr_scrxor=$+1
  67. ;        xor 0
  68. ;        ld (setpgs_scr_low),a
  69.         ld hl,getuser_scr_low_patch
  70.         ld a,(hl)
  71.         xor getuser_scr_low_patchN
  72.         ld (hl),a
  73.         ld hl,getuser_scr_high_patch
  74.         ld a,(hl)
  75.         xor getuser_scr_high_patchN
  76.         ld (hl),a
  77.         ld hl,getuser_scr_low_cur_patch
  78.         ld a,(hl)
  79.         xor getuser_scr_low_cur_patchN
  80.         ld (hl),a
  81.         ld hl,getuser_scr_high_cur_patch
  82.         ld a,(hl)
  83.         xor getuser_scr_high_cur_patchN
  84.         ld (hl),a
  85.  
  86.         ld a,1
  87. curscrnum=$+1
  88.         xor 0
  89.         ld ($-1),a
  90.         ret
  91.        
  92. changescrpg
  93.         ;jr $
  94.         call changescrpg_current
  95.         ld (curscrnum_int),a
  96.         ;ld e,a
  97.         ;OS_SETSCREEN
  98.         ret
  99.        
  100. setpgc000
  101.         ;ld (curpgc000),a
  102.         SETPG32KHIGH
  103.         ret
  104.