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. MODBYTE         MACRO BYTE
  5.                 IF ((BYTE&0XF0)>>4)>9
  6.                 DB ((BYTE&0XF0)>>4)+0X37
  7.                 ELSE
  8.                 DB ((BYTE&0XF0)>>4)+0X30
  9.                 ENDIF
  10.                 IF (BYTE&0X0F)>9
  11.                 DB (BYTE&0X0F)+0X37
  12.                 ELSE
  13.                 DB (BYTE&0X0F)+0X30
  14.                 ENDIF
  15.                 ENDM
  16.  
  17. RS232_INIT      LD BC,RS232_LINE_CTRL
  18.                 IN A,(C)
  19.                 OR %10000000
  20.                 OUT (C),A
  21.                 LD B,HIGH (RS232_DIV_L)
  22.                 LD A,LOW (SPEED)
  23.                 OUT (C),A
  24.                 LD B,HIGH (RS232_DIV_H)
  25.                 LD A,HIGH (SPEED)
  26.                 OUT (C),A
  27.                 LD B,HIGH (RS232_LINE_CTRL)
  28.                 LD A,%00000111
  29.                 OUT (C),A
  30.                 RET
  31.  
  32. RS232_WRITE     EXX
  33.                 LD BC,RS232_LINE_STAT
  34.                 EX AF,AF'
  35. RS232WRITE1     IN A,(C)
  36.                 AND %00100000
  37.                 JR Z,RS232WRITE1
  38.                 LD B,HIGH (RS232_IO)
  39.                 EX AF,AF'
  40.                 OUT (C),A
  41.                 EXX
  42.                 RET
  43.  
  44. RS232_READ      EXX
  45.                 LD BC,RS232_LINE_STAT
  46. RS232READ1      IN A,(C)
  47.                 AND %00000001
  48.                 JR Z,RS232READ1
  49.                 LD B,HIGH (RS232_IO)
  50.                 IN A,(C)
  51.                 EXX
  52.                 RET
  53.