Subversion Repositories pentevo

Rev

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

Rev Author Line No. Line
678 savelij 1 
 
761 savelij 2 
;LAST UPDATE: 05.08.2017 savelij
678 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
761 savelij 13 
                IF EMU3D2F
678 savelij 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
702 savelij 39 
 
40 
BBW             MACRO N1,N2
41 
                DB STRLEN (N1),N1
42 
                DW N2
43 
                ENDM