?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  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. setpgsscr8000c000
  17.         ld a,(user_scr0_low) ;ok
  18.         SETPG8000
  19.         ld a,(user_scr0_high) ;ok
  20.         SETPGC000
  21.         ret
  22.  
  23. setpgsscr40008000
  24.         ;call getuser_scr_low
  25.         ;SETPG16K
  26.         ;call getuser_scr_high
  27.         ;SETPG32KLOW
  28.         ;ret
  29.  
  30. setpgsscr40008000_current
  31.         call getuser_scr_low_cur
  32.         SETPG16K
  33.         call getuser_scr_high_cur
  34.         SETPG32KLOW
  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.         if 0
  72. changescrpg_current
  73.         ld hl,getuser_scr_low_patch
  74.         ld a,(hl)
  75.         xor getuser_scr_low_patchN
  76.         ld (hl),a
  77.         ld hl,getuser_scr_high_patch
  78.         ld a,(hl)
  79.         xor getuser_scr_high_patchN
  80.         ld (hl),a
  81.         ld hl,getuser_scr_low_cur_patch
  82.         ld a,(hl)
  83.         xor getuser_scr_low_cur_patchN
  84.         ld (hl),a
  85.         ld hl,getuser_scr_high_cur_patch
  86.         ld a,(hl)
  87.         xor getuser_scr_high_cur_patchN
  88.         ld (hl),a
  89.  
  90.         ld a,1
  91. curscrnum=$+1
  92.         xor 0
  93.         ld ($-1),a
  94.         ret
  95.        
  96. changescrpg
  97.         call changescrpg_current
  98.         ld (curscrnum_int),a
  99.         ret
  100.         endif
  101.