Subversion Repositories NedoOS

Rev

Rev 1947 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log

Rev 1947 Rev 2004
Line 6... Line 6...
6
TOPDOWNMEM=1
6
TOPDOWNMEM=1
7
       else
7
       else
8
TOPDOWNMEM=0;1
8
TOPDOWNMEM=0;1
9
       endif
9
       endif
10
 
10
 
-
 
11
EFF7VALUE=0x10 ;noturbo
-
 
12
 
11
                if atm != 2
13
                if atm != 2
12
memport0000=0x37f7
14
memport0000=0x37f7
13
memport4000=0x77f7
15
memport4000=0x77f7
14
memport8000=0xb7f7
16
memport8000=0xb7f7
15
memportc000=0xf7f7
17
memportc000=0xf7f7
Line 119... Line 121...
119
        di
121
        di
120
        xor a
122
        xor a
121
        out (0xfe),a
123
        out (0xfe),a
122
        ifdef KOE
124
        ifdef KOE
123
            display "KOE!!!"
125
            display "KOE!!!"
124
            ld a,0 ;turbo ;0x10 ;noturbo
126
            ld a,0+EFF7VALUE ;turbo ;0x10 ;noturbo
125
            ld bc,0xeff7
127
            ld bc,0xeff7
126
            out (c),a ;for KOE
128
            out (c),a ;for KOE
127
            ld a,0x10
129
            ld a,0x10
128
            ld bc,0x7ffd
130
            ld bc,0x7ffd
129
            out (c),a
131
            out (c),a
Line 249... Line 251...
249
.err_version
251
.err_version
250
                        ld (init_sysdrv_val),a
252
                        ld (init_sysdrv_val),a
251
init_sysdev_end
253
init_sysdev_end
252
                        halt
254
                        halt
253
                        ld bc,0xeff7
255
                        ld bc,0xeff7
254
                        ld a,0x80
256
                        ld a,0x80+EFF7VALUE
255
                        out (c),a
257
                        out (c),a
256
                        ld a,0x10
258
                        ld a,0x10
257
                        ld bc,0x7ffd
259
                        ld bc,0x7ffd
258
                        out (c),a
260
                        out (c),a
259
                        ld bc,0x01bf
261
                        ld bc,0x01bf
Line 843... Line 845...
843
;TODO атомарно
845
;TODO атомарно
844
        call sys_SHADOFF
846
        call sys_SHADOFF
845
        LD A,e;0xa8;%10101000 ;320x200 mode
847
        LD A,e;0xa8;%10101000 ;320x200 mode
846
        push af
848
        push af
847
        ld bc,0xeff7
849
        ld bc,0xeff7
848
        ld a,0x80
850
        ld a,0x80+EFF7VALUE
849
        out (c),a
851
        out (c),a
850
        ;ld bc,0xf7 + (NVRAM_REG<<8)
852
        ;ld bc,0xf7 + (NVRAM_REG<<8)
851
    ;ld a,0x0b
853
    ;ld a,0x0b
852
    ;out (c),a
854
    ;out (c),a
853
    ;ld b,NVRAM_VAL
855
    ;ld b,NVRAM_VAL
Line 899... Line 901...
899
        call sys_SHADOFF
901
        call sys_SHADOFF
900
        LD A,e;0xa8;%10101000 ;320x200 mode
902
        LD A,e;0xa8;%10101000 ;320x200 mode
901
       pop de
903
       pop de
902
        push af
904
        push af
903
        ld bc,0xeff7
905
        ld bc,0xeff7
904
        ld a,0x80
906
        ld a,0x80+EFF7VALUE
905
        out (c),a
907
        out (c),a
906
       
908
       
907
        ld a,e
909
        ld a,e
908
        add a,a
910
        add a,a
909
        and 63
911
        and 63
Line 946... Line 948...
946
        and 15
948
        and 15
947
        ld b,8          ;month
949
        ld b,8          ;month
948
        call bin2cmos
950
        call bin2cmos
949
readtimeq
951
readtimeq
950
        ld bc,0xeff7
952
        ld bc,0xeff7
951
        xor a
953
        ld a,0+EFF7VALUE
952
        out (c),a
954
        out (c),a
953
        pop af
955
        pop af
954
        ld e,a ;!!! потом будет использоваться в readtime
956
        ld e,a ;!!! потом будет использоваться в readtime
955
        jp shadon_pgsys
957
        jp shadon_pgsys
956
 
958
 
Line 987... Line 989...
987
        call sys_SHADOFF
989
        call sys_SHADOFF
988
        LD A,e;0xa8;%10101000 ;320x200 mode
990
        LD A,e;0xa8;%10101000 ;320x200 mode
989
        pop de
991
        pop de
990
        push af
992
        push af
991
        ld bc,0xeff7
993
        ld bc,0xeff7
992
        ld a,0x80
994
        ld a,0x80+EFF7VALUE
993
        out (c),a
995
        out (c),a
994
 
996
 
995
        ld a,e
997
        ld a,e
996
        add a,a
998
        add a,a
997
        and 63
999
        and 63
Line 1033... Line 1035...
1033
        ld a,h
1035
        ld a,h
1034
        and 15
1036
        and 15
1035
        ld b,0x53               ;month
1037
        ld b,0x53               ;month
1036
        call send2ve
1038
        call send2ve
1037
        ld bc,0xeff7
1039
        ld bc,0xeff7
1038
        xor a
1040
        ld a,0+EFF7VALUE
1039
        out (c),a
1041
        out (c),a
1040
        pop af
1042
        pop af
1041
        ld e,a                   ;!!! потом будет использоваться в readtime
1043
        ld e,a                   ;!!! потом будет использоваться в readtime
1042
        jp shadon_pgsys
1044
        jp shadon_pgsys
1043
 
1045