Subversion Repositories pentevo

Rev

Rev 1007 | 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. ;==================ЧТЕНИЕ СО СМУК ВИНТА=======================
  5. RD_HDDS         PUSH BC
  6.                 PUSH DE
  7.                 CALL SETSREG
  8.                 EX AF,AF'
  9.                 LD B,PS1F7
  10.                 LD A,0X20
  11.                 CALL SOUTPRT
  12. HDSRDM2         CALL SINPRT
  13.                 AND 0X88
  14.                 CP 8
  15.                 JR NZ,HDSRDM2
  16.                 EX AF,AF'
  17. HDSRDM1         PUSH AF
  18.                 LD DE,PRTSRW
  19.                 LD A,0X40
  20. RDCSSC1         EX AF,AF'
  21.                 LD B,D
  22.                 CALL SINPRT
  23.                 LD (HL),A
  24.                 INC HL
  25.                 LD B,E
  26.                 CALL SINPRT
  27.                 LD (HL),A
  28.                 INC HL
  29.                 LD B,D
  30.                 CALL SINPRT
  31.                 LD (HL),A
  32.                 INC HL
  33.                 LD B,E
  34.                 CALL SINPRT
  35.                 LD (HL),A
  36.                 INC HL
  37.                 LD B,D
  38.                 CALL SINPRT
  39.                 LD (HL),A
  40.                 INC HL
  41.                 LD B,E
  42.                 CALL SINPRT
  43.                 LD (HL),A
  44.                 INC HL
  45.                 LD B,D
  46.                 CALL SINPRT
  47.                 LD (HL),A
  48.                 INC HL
  49.                 LD B,E
  50.                 CALL SINPRT
  51.                 LD (HL),A
  52.                 INC HL
  53.                 EX AF,AF'
  54.                 DEC A
  55.                 JR NZ,RDCSSC1
  56.                 LD B,PS1F7
  57. HDSRDM3         CALL SINPRT
  58.                 AND 0X80
  59.                 JR NZ,HDSRDM3
  60.                 POP AF
  61.                 DEC A
  62.                 JR NZ,HDSRDM1
  63.                 POP DE
  64.                 POP BC
  65.                 RET
  66.        
  67. SETSREG         PUSH DE
  68.                 LD D,B
  69.                 LD E,C
  70.                 EX AF,AF'
  71.                 LD A,(MAS_SLA)
  72.                 OR D
  73.                 LD BC,(PS1F6*0X0100)+LOW_PRT
  74.                 CALL SOUTPRT
  75.                 LD B,PS1F5
  76.                 LD A,E
  77.                 CALL SOUTPRT
  78.                 POP DE
  79.                 LD B,PS1F4
  80.                 LD A,D
  81.                 CALL SOUTPRT
  82.                 LD B,PS1F3
  83.                 LD A,E
  84.                 CALL SOUTPRT
  85.                 LD B,PS1F2
  86.                 EX AF,AF'
  87.  
  88. SOUTPRT         PUSH HL
  89.                 LD HL,0X3FF0
  90.                 EX (SP),HL
  91.                 JP 0X3D2F
  92.  
  93. SINPRT          PUSH HL
  94.                 LD HL,0X3FF3
  95.                 EX (SP),HL
  96.                 JP 0X3D2F
  97. ;==================ЧТЕНИЕ СО СМУК ВИНТА=======================
  98.