Subversion Repositories pentevo

Rev

Rev 702 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 702 Rev 761
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 28.04.2015 savelij
 2 
;LAST UPDATE: 05.08.2017 savelij
3 
 
 3 
 
4 
__IN_A_N        EQU 0XDB        ;DB XX  IN A,(XX)
 4 
__IN_A_N        EQU 0XDB        ;DB XX  IN A,(XX)
5 
__OUT_N_A       EQU 0XD3        ;D3 XX  OUT (XX),A
 5 
__OUT_N_A       EQU 0XD3        ;D3 XX  OUT (XX),A
6 
__IN_H_C        EQU 0X60ED      ;ED 60  IN H,(C)
 6 
__IN_H_C        EQU 0X60ED      ;ED 60  IN H,(C)
7 
__INI           EQU 0XA2ED      ;ED A2  INI
 7 
__INI           EQU 0XA2ED      ;ED A2  INI
8 
__OUT_C_A       EQU 0X79ED      ;ED 79  OUT (C),A
 8 
__OUT_C_A       EQU 0X79ED      ;ED 79  OUT (C),A
9 
__OUT_C_D       EQU 0X51ED      ;ED 51  OUT (C),D
 9 
__OUT_C_D       EQU 0X51ED      ;ED 51  OUT (C),D
10 
__OUTI          EQU 0XA3ED      ;ED A3  OUTI
 10 
__OUTI          EQU 0XA3ED      ;ED A3  OUTI
11 
 
 11 
 
12 
RST32           MACRO N1,N2
 12 
RST32           MACRO N1,N2
13 
;               IF P2666=1
 - 
 
14 
;               RST 0X30
 - 
 
15 
;               DB N1
 - 
 
16 
;               ELSE
 - 
 
17 
                IF EMU3D2F=1
 13 
                IF EMU3D2F
18 
                RST 0X30
 14 
                RST 0X30
19 
                DB N1
 15 
                DB N1
20 
                ELSE
 16 
                ELSE
21 
                DW N2
 17 
                DW N2
22 
;               ENDIF
 - 
 
23 
                ENDIF
 18 
                ENDIF
24 
                ENDM
 19 
                ENDM
25 
 
 20 
 
26 
RST30           MACRO N1,N2
 21 
RST30           MACRO N1,N2
27 
                RST 0X30
 22 
                RST 0X30