Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 01.12.2014 savelij
  3.  
  4. ;==================ЧТЕНИЕ С PROFI ВИНТА=======================
  5. RD_HDDP         PUSH BC
  6.                 PUSH DE
  7.                 PUSH AF
  8.                 PUSH BC
  9.                 LD BC,0XDFFD
  10.                 LD A,0X20
  11.                 OUT (C),A
  12.                 POP BC
  13.                 LD A,(MAS_SLA)
  14.                 OR B
  15.                 LD B,A
  16.                 POP AF
  17.                 CALL SETHPREG
  18.                 EX AF,AF'
  19.                 LD BC,PP_1F7W
  20.                 LD A,0X20
  21.                 OUT (C),A
  22.                 LD BC,PP_1F7R
  23. HDDPRD1         IN A,(C)
  24.                 AND 0X88
  25.                 CP 8
  26.                 JR NZ,HDDPRD1
  27.                 EX AF,AF'
  28. HDDPRD2         EX AF,AF'
  29.                 CALL READPSEC
  30.                 LD BC,PP_1F7R
  31. HDDPRD3         IN A,(C)
  32.                 AND 0X80
  33.                 JR NZ,HDDPRD3
  34.                 EX AF,AF'
  35.                 DEC A
  36.                 JR NZ,HDDPRD2
  37.                 LD BC,0XDFFD
  38.                 XOR A
  39.                 OUT (C),A
  40.                 POP DE
  41.                 POP BC
  42.                 LD A,B
  43.                 AND 0X0F
  44.                 LD B,A
  45.                 XOR A
  46.                 RET
  47.  
  48. SETHPREG        PUSH DE
  49.                 LD D,B
  50.                 LD E,C
  51.                 LD BC,PP_1F6W
  52.                 OUT (C),D
  53.                 EX AF,AF'
  54.                 LD BC,PP_1F7R
  55. SETHPRE1        IN A,(C)
  56.                 AND 0X80
  57.                 JR NZ,SETHPRE1
  58.                 LD BC,PP_1F5W
  59.                 OUT (C),E
  60.                 POP DE
  61.                 LD BC,PP_1F4W
  62.                 OUT (C),D
  63.                 LD BC,PP_1F3W
  64.                 OUT (C),E
  65.                 LD BC,PP_1F2W
  66.                 EX AF,AF'
  67.                 OUT (C),A
  68.                 RET
  69.  
  70. READPSEC        LD A,0X40
  71. READPSC1        REPT 4
  72.                 LD BC,PP_1F0R
  73.                 IN E,(C)
  74.                 LD BC,PP_HIR
  75.                 IN D,(C)
  76.                 LD (HL),E
  77.                 INC HL
  78.                 LD (HL),D
  79.                 INC HL
  80.                 ENDM
  81.                 DEC A
  82.                 JR NZ,READPSC1
  83.                 RET
  84. ;==================ЧТЕНИЕ С PROFI ВИНТА=======================
  85.