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: 21.11.2014 savelij
  3.  
  4. __IN_A_N        EQU 0XDB        ;DB XX  IN A,(XX)
  5. __OUT_N_A       EQU 0XD3        ;D3 XX  OUT (XX),A
  6. __IN_H_C        EQU 0X60ED      ;ED 60  IN H,(C)
  7. __INI           EQU 0XA2ED      ;ED A2  INI
  8. __OUT_C_A       EQU 0X79ED      ;ED 79  OUT (C),A
  9. __OUT_C_D       EQU 0X51ED      ;ED 51  OUT (C),D
  10. __OUTI          EQU 0XA3ED      ;ED A3  OUTI
  11.  
  12. RST32           MACRO N1,N2
  13.                 IF P2666=1
  14.                 RST 0X30
  15.                 DB N1
  16.                 ELSE
  17.                 IF EMU3D2F=1
  18.                 RST 0X30
  19.                 DB N1
  20.                 ELSE
  21.                 DW N2
  22.                 ENDIF
  23.                 ENDIF
  24.                 ENDM
  25.  
  26. RST30           MACRO N1,N2
  27.                 RST 0X30
  28.                 DB N1
  29.                 IFNB N2
  30.                 DB N2
  31.                 ENDIF
  32.                 ENDM
  33.  
  34. RST8D           MACRO N1,N2,N3
  35.                 CALL DOS2RST8
  36.                 DB N1
  37.                 IFNB N2
  38.                 DB N2
  39.                 ENDIF
  40.                 IFNB N3
  41.                 DB N3
  42.                 ENDIF
  43.                 ENDM
  44.