Subversion Repositories pentevo

Rev

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

Rev 627 Rev 736
Line 1... Line 1...
1
 
1
 
2
;LAST UPDATE: 09.12.2013 savelij
2
;LAST UPDATE: 31.12.2016 savelij
3
 
3
 
4
;        MAIN   "DOSI*",0XC6
4
;        MAIN   "DOSI*",0XC6
5
;        ORG    0X321C
5
;        ORG    0X321C
6
SETERRAD
6
SETERRAD
7
;call из 0X246
7
;call из 0X246
Line 894... Line 894...
894
;               IF atm=1;       IFN     atm
894
;               IF atm=1;       IFN     atm
895
       IF       atm=3
895
       IF       atm=3
896
        RRCA   
896
        RRCA   
897
        RRCA   
897
        RRCA   
898
        AND     0X3F
898
        AND     0X3F
899
       ADD      A,PAGE_DATARAMD;9 ;Savelij RAMDISK
899
       ADD      A,RAM_DATARAMD;9 ;Savelij RAMDISK
900
       ;OR 64 ;ОЗУ, не 7ffd
900
       ;OR 64 ;ОЗУ, не 7ffd
901
        OUT     (C),A
901
        OUT     (C),A
902
        LD      B,0XF7
902
        LD      B,0XF7
903
        OUT     (C),A
903
        OUT     (C),A
904
       ELSE     ;atm2
904
       ELSE     ;atm2