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 | ||