?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. setpgsscr8000c000
  31.         call getuser_scr_low
  32.         SETPG32KLOW
  33.         call getuser_scr_high
  34.         SETPG32KHIGH
  35.         ret
  36.  
  37. setpgscrlow4000
  38.         call getuser_scr_low
  39.         SETPG16K
  40.         ret
  41.  
  42. setpgscrhigh4000
  43.         call getuser_scr_high
  44.         SETPG16K
  45.         ret
  46.  
  47. getuser_scr_low
  48. getuser_scr_low_patch=$+1
  49. getuser_scr_low_patchN=0xff&(user_scr0_low^user_scr1_low)
  50.         ld a,(user_scr1_low) ;ok
  51.         ret
  52.  
  53. getuser_scr_high
  54. getuser_scr_high_patch=$+1
  55. getuser_scr_high_patchN=0xff&(user_scr0_high^user_scr1_high)
  56.         ld a,(user_scr1_high) ;ok
  57.         ret
  58.  
  59. getuser_scr_low_cur
  60. getuser_scr_low_cur_patch=$+1
  61. getuser_scr_low_cur_patchN=0xff&(user_scr0_low^user_scr1_low)
  62.         ld a,(user_scr0_low) ;ok
  63.         ret
  64.  
  65. getuser_scr_high_cur
  66. getuser_scr_high_cur_patch=$+1
  67. getuser_scr_high_cur_patchN=0xff&(user_scr0_high^user_scr1_high)
  68.         ld a,(user_scr0_high) ;ok
  69.         ret
  70.  
  71. changescrpg_current
  72.         ld hl,getuser_scr_low_patch
  73.         ld a,(hl)
  74.         xor getuser_scr_low_patchN
  75.         ld (hl),a
  76.         ld hl,getuser_scr_high_patch
  77.         ld a,(hl)
  78.         xor getuser_scr_high_patchN
  79.         ld (hl),a
  80.         ld hl,getuser_scr_low_cur_patch
  81.         ld a,(hl)
  82.         xor getuser_scr_low_cur_patchN
  83.         ld (hl),a
  84.         ld hl,getuser_scr_high_cur_patch
  85.         ld a,(hl)
  86.         xor getuser_scr_high_cur_patchN
  87.         ld (hl),a
  88.  
  89.         ld a,1
  90. curscrnum=$+1
  91.         xor 0
  92.         ld ($-1),a
  93.         ret
  94.        
  95. changescrpg
  96.         call changescrpg_current
  97.         ld (curscrnum_int),a
  98. curborder=$+1
  99.          ld a,0
  100.          ld (int_curborder),a
  101.         ret
  102.        
  103.