Subversion Repositories pentevo

Rev

Rev 639 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 28.03.2014 savelij
  3.  
  4. INIT_PAGE       IF MEMTYPE=PROFI
  5.                 EXX
  6.                 LD (TEK_PAGE),A
  7.                 LD D,A
  8.                 RRCA
  9.                 RRCA
  10.                 RRCA
  11.                 AND 7
  12.                 OR 0X20
  13.                 LD BC,0XDFFD
  14.                 OUT (C),A
  15.                 LD A,D
  16.                 AND 7
  17.                 OR 0X10
  18.                 LD B,HIGH (0X7F)
  19.                 OUT (C),A
  20.                 EXX
  21.                 RET
  22.                 ELSEIF MEMTYPE=PENT22
  23.                 EXX
  24.                 LD (TEK_PAGE),A
  25.                 LD D,A
  26.                 CPL
  27.                 AND 0X3F
  28.                 LD E,A
  29.                 AND 0X27
  30.                 OR 0X10
  31.                 LD C,A
  32.                 LD A,E
  33.                 RLCA
  34.                 RLCA
  35.                 RLCA
  36.                 AND 0XC0
  37.                 OR C
  38.                 LD BC,0X7FFD
  39.                 OUT (C),A
  40.                 EXX
  41.                 RET
  42.                 ELSE
  43.                 EXX
  44.                 LD (TEK_PAGE),A
  45.                 LD D,A
  46.                 PEC_ON SHADOW_BF
  47.                 LD BC,WIN_A3
  48.                 LD E,0X40
  49.                 OUT (C),E
  50.                 LD B,HIGH (WIN_P3)
  51.                 OUT (C),D
  52.                 LD A,D
  53.                 LD (TEK_PAGE),A
  54.                 EXX
  55.                 RET
  56.                 ENDIF
  57.  
  58. NEXT_PAGE       IF MEMTYPE=PROFI
  59.                 EXX
  60.                 LD BC,0XDFFD
  61.                 LD A,(TEK_PAGE)
  62.                 IF MEMTYPE=PROFI
  63.                 DEC A
  64.                 ELSE
  65.                 INC A
  66.                 ENDIF
  67.                 LD (TEK_PAGE),A
  68.                 RRCA
  69.                 RRCA
  70.                 RRCA
  71.                 AND 7
  72.                 OR 0X20
  73.                 OUT (C),A
  74.                 LD A,(TEK_PAGE)
  75.                 AND 7
  76.                 OR 0X10
  77.                 LD B,HIGH (0X7F)
  78.                 OUT (C),A
  79.                 EXX
  80.                 LD HL,CPU3
  81.                 RET
  82.                 ELSEIF MEMTYPE=PENT22
  83.                 EXX
  84.                 LD A,(TEK_PAGE)
  85.                 INC A
  86.                 LD (TEK_PAGE),A
  87.                 LD D,A
  88.                 CPL
  89.                 AND 0X3F
  90.                 LD E,A
  91.                 AND 0X27
  92.                 OR 0X10
  93.                 LD C,A
  94.                 LD A,E
  95.                 RLCA
  96.                 RLCA
  97.                 RLCA
  98.                 AND 0XC0
  99.                 OR C
  100.                 LD BC,0X7FFD
  101.                 OUT (C),A
  102.                 EXX
  103.                 LD HL,CPU3
  104.                 RET
  105.                 ELSE
  106.                 EXX
  107.                 LD BC,WIN_P3
  108.                 LD A,(TEK_PAGE)
  109.                 INC A
  110.                 OUT (C),A
  111.                 LD (TEK_PAGE),A
  112.                 EXX
  113.                 LD HL,CPU3
  114.                 RET
  115.                 ENDIF
  116.