Subversion Repositories pentevo

Rev

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

  1.  
  2. ; LAST UPDATE: 15.06.2022 savelij
  3.  
  4. ;==================ЧТЕНИЕ СО СМУК ВИНТА=======================
  5. RD_HDDS         PUSH BC
  6.                 PUSH DE
  7.                 CALL SETSREG
  8.                 EX AF,AF'
  9.                 LD B,HIGH (PS_1F7)
  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,PS_PORT_RW
  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,HIGH (PS_1F7)
  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,PS_1F6
  74.                 CALL SOUTPRT
  75.                 LD B,HIGH (PS_1F5)
  76.                 LD A,E
  77.                 CALL SOUTPRT
  78.                 POP DE
  79.                 LD B,HIGH (PS_1F4)
  80.                 LD A,D
  81.                 CALL SOUTPRT
  82.                 LD B,HIGH (PS_1F3)
  83.                 LD A,E
  84.                 CALL SOUTPRT
  85.                 LD B,HIGH (PS_1F2)
  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.