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 |