Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 16.08.2015 savelij
  3.  
  4.                 include ../../macros.a80
  5.                 include ../../global_vars.a80
  6.  
  7.                 ORG 0X6000
  8.                 DI
  9.                 LD E,0X3F
  10.                 LD A,0XF7
  11.                 CALL SET_PAGES
  12.                 LD A,0XD7
  13.                 CALL SET_PAGES
  14.                 LD BC,0X7FFD
  15.                 LD A,0X10
  16.                 OUT (C),A
  17.                 LD A,1
  18.                 OUT (PEVO_CONF),A
  19.                 CALL READ_NUM_PAGES
  20.                 LD BC,WIN_P2
  21.                 LD A,0XFD
  22.                 OUT (C),A
  23.                 XOR A
  24.                 OUT (PEVO_CONF),A
  25.                 JR $
  26.  
  27. SET_PAGES       LD BC,0X7FFD
  28.                 OUT (C),A
  29. SETPAGES2       LD D,A
  30.                 LD A,E
  31.                 LD (0XC000),A
  32.                 DEC E
  33.                 LD A,D
  34.                 AND 0XC7
  35.                 RET Z
  36.                 AND 7
  37.                 LD A,D
  38.                 JR NZ,SETPAGES3
  39.                 SUB 0X38
  40. SETPAGES3       DEC A
  41.                 JR SET_PAGES
  42.  
  43. READ_NUM_PAGES  LD HL,0X7000
  44.                 LD D,0XC0
  45.                 LD BC,WIN_P2
  46. RDNUMPAGES1     OUT (C),D
  47.                 INC D
  48.                 RET Z
  49.                 LD A,(0X8000)
  50.                 LD (HL),A
  51.                 INC HL
  52.                 JR RDNUMPAGES1
  53.