Subversion Repositories pentevo

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

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