Subversion Repositories pentevo

Rev

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

Rev 736 Rev 761
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 31.12.2016 savelij
 2 
;LAST UPDATE: 31.07.2017 savelij
3 
 
 3 
 
4 
TAPE_EMUL       LD H,CMOS_BYTE_00
 4 
TAPE_EMUL       LD H,CMOS_BYTE_00
5 
                CALL READCMOS
 5 
                CALL READCMOS
6 
                AND EMUL_TAPE
 6 
                AND M_EMUL_TAPE
7 
                JR NZ,EMULOADTAP
 7 
                JR NZ,EMULOADTAP
8 
                LD A,(RREG_A)
 8 
                LD A,(RREG_A)
9 
                LD (RREG_C),A
 9 
                LD (RREG_C),A
10 
                CP A
 10 
                CP A
11 
                PUSH AF
 11 
                PUSH AF