Subversion Repositories pentevo

Rev

Rev 702 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.  
  2. ;LAST UPDATE: 05.08.2017 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 EMU3D2F
  14.                 RST 0X30
  15.                 DB N1
  16.                 ELSE
  17.                 DW N2
  18.                 ENDIF
  19.                 ENDM
  20.  
  21. RST30           MACRO N1,N2
  22.                 RST 0X30
  23.                 DB N1
  24.                 IFNB N2
  25.                 DB N2
  26.                 ENDIF
  27.                 ENDM
  28.  
  29. RST8D           MACRO N1,N2,N3
  30.                 CALL DOS2RST8
  31.                 DB N1
  32.                 IFNB N2
  33.                 DB N2
  34.                 ENDIF
  35.                 IFNB N3
  36.                 DB N3
  37.                 ENDIF
  38.                 ENDM
  39.  
  40. BBW             MACRO N1,N2
  41.                 DB STRLEN (N1),N1
  42.                 DW N2
  43.                 ENDM
  44.