?login_element?

Subversion Repositories NedoOS

Rev

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

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