?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. setpgmainc000
  2. pgmainc000=$+1
  3.         ld a,0
  4.         SETPG32KHIGH
  5.         ret
  6.  
  7. setpgsmain40008000
  8. pgmain4000=$+1
  9.         ld a,0
  10.         SETPG16K
  11. pgmain8000=$+1
  12.         ld a,0
  13.         SETPG32KLOW
  14.         ret
  15.  
  16. setpgsscr40008000_current
  17.         call getuser_scr_low_cur
  18.         SETPG16K
  19.         call getuser_scr_high_cur
  20.         SETPG32KLOW
  21.         ret
  22.  
  23. setpgsscr40008000
  24.         call getuser_scr_low
  25.         SETPG16K
  26.         call getuser_scr_high
  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 hl,getuser_scr_low_patch
  66.         ld a,(hl)
  67.         xor getuser_scr_low_patchN
  68.         ld (hl),a
  69.         ld hl,getuser_scr_high_patch
  70.         ld a,(hl)
  71.         xor getuser_scr_high_patchN
  72.         ld (hl),a
  73.         ld hl,getuser_scr_low_cur_patch
  74.         ld a,(hl)
  75.         xor getuser_scr_low_cur_patchN
  76.         ld (hl),a
  77.         ld hl,getuser_scr_high_cur_patch
  78.         ld a,(hl)
  79.         xor getuser_scr_high_cur_patchN
  80.         ld (hl),a
  81.  
  82.         ld a,1
  83. curscrnum=$+1
  84.         xor 0
  85.         ld ($-1),a
  86.         ret
  87.        
  88. changescrpg
  89.         call changescrpg_current
  90.         ld (curscrnum_int),a
  91.         ret
  92.        
  93.