Запустил выложенную мной ранее "половинку" на эмуляторе. Все игрульки запускаются и играются, программки запускаются. А больше там ничего нет.
Запустил выложенную мной ранее "половинку" на эмуляторе. Все игрульки запускаются и играются, программки запускаются. А больше там ничего нет.
Личка заполнена! И чистить я ее не буду! Пользуйтесь адекватными средствами связи! Спасибо.
Seamos realistas y hagamos lo imposible!
Ernesto Che GuevaraПереехал сюда: SteinBlume (ex ATM CP/M Explorer)
http://era-cg.su
Ну, на эмуляторах, эти два проблемных (40x2-дорожечных) образа (007-Gelas-Bel-Krum и 009-ndr-2) и без "обрезания" работают, я это еще в начале темы писал. И все игры запускаются. Я думаю, эмуляторы просто игнорируют вторые 400 кб образа, ориентируясь только по информации из cp/m (нулевого сектора).
Фигня какая-то. А как тогда работала сама CP/M с такими дисками? Формат более 80 дорожек на Орионе в лениградских CP/M использовался часто, логических ошибок на экстра-треках у CP/M не возникало.
Не припоминаю так странно размеченных дисков на Орионе (чтобы в одном месте DPB было одно количество дорожек а видимо количество групп под другое количество дорог). Чьи образы использовались (чтобы косвенно понять - чем оно так чуднО форматировалось)? Может опять руками правленное?
Последний раз редактировалось Error404; 21.05.2017 в 00:53.
Лучше сделать и жалеть, чем не сделать и жалеть.
Некоторые из моих поделок тут: https://github.com/serge-404
Да. Логично. Так и должно быть. Просто моя утилитка по некоторым причинам (я там писал выше) не может в этом случае верить информации из 0 трека
Орионовских подобных дисков (где в DPH дорог 80, а на деле больше) на вскидку не нашел. Может я и наврал.
Могу пока только сослаться на
Нашел таких дисков для Вектора несколько штук.
Подкиньте пару-тройку таких образов. Может мы о разном говорим.
Личка заполнена! И чистить я ее не буду! Пользуйтесь адекватными средствами связи! Спасибо.
Seamos realistas y hagamos lo imposible!
Ernesto Che GuevaraПереехал сюда: SteinBlume (ex ATM CP/M Explorer)
http://era-cg.su
Пары-тройки у меня нет, я такие не храню: их ведь не только открывать надо, но и записывать чем-то, а утилиты физической записи обычно всё же на 80 дорожек (ибо не знают про ВИЗ, а пишут некий абстрактный трек - не обязательно CPM-овский, что в-общем то и верно). Надобность в них как в более ёмких чем 800к тоже отпала после перехода на HDD и образы HDD.
Для примера вот такой образ (храню сугубо себе для образца):
https://drive.google.com/file/d/0B3S...ew?usp=sharing
А вот в былые времена когда я на реальном Орионе и реальном дисководе работал, то не только ежедневно пользовался в CP/M "нестандарными" форматами (7-8 килобайтных секторов на трек, 83-85 дорожек), но и сам писал CP/M-овский форматировщик дискет под такие форматы (причем это на момент 1995 года уже не было что-то оригинальное или какое-то новшество: делал вприглядку в уже существующие, просто я сделал себе универсальный вариант вместо кучи F82/F83/F84.com).
Лучше сделать и жалеть, чем не сделать и жалеть.
Некоторые из моих поделок тут: https://github.com/serge-404
На диске 005-tests.kdi какие-то странные бейсик-файлы (пример LOG.BAS, EWRIKA.BAS). При попытке открытия в эмуле зависают.
ПК8010 "Корвет"+ExtRom+AY, Atari 65XE+SDrive, Дельта-С(52ИС)+AY, Scorpion ZS 1024+SMUC
LOG.BAS SteinBlume роняет, а EWRIKA.BAS смотрится, но не без косяков:
Скрытый текст
10 REM
11 CLS:PCLS:LOCATE ,,0
30 NN=0:MA=0:CH=0:UH=0
50 :REMИGOSUB 2320
51 CLS
60 DIM C1(20),ZZ(20),PC(20),N(10)
70 NN=NN+1:XY=0:IF UH>0 THEN GOSUB 2430
80 GOSUB 1040
90 COLOR 7,0:CLS:PCLS
100 GOSUB 590
110 GOSUB 1910
111 X1=44
112 Y1=5
120 GOSUB 690
125 X2=15
126 Y2=3
130 GOSUB 1850
140 GOSUB 1730
170 V1=12:XS=A-15:YS=C+7
172 V3=-1:V4=1:VV=0:NC=0
180 XR=20:YR=10
190 XR=20:YR=10:V3=-1:NC=0:V4=1
195 Y1=6
196 X1=43
200 XS=A-15:YS=C+7
202 V3=-1
210 REM начало
240 X7=40
250 Y7=5
260 LOCATE X7,Y7
270 PRINT "Введите номер цвета"
272 LOCATE ,,1
275 LOCATE X1,Y1
280 U7=ASC(INPUT$(1))
290 IF U7<>25 THEN 300
292 IF Y1>6 THEN Y1=Y1-1
294 GOTO 275
300 IF U7<>26 THEN 310
302 IF Y1<13 THEN Y1=Y1+1
304 GOTO 275
310 IF U7=13 THEN 312 ELSE 275
312 V4=Y1-5
314 LOCATE ,,0
360 REM продолжать
370 V3=V3+1:NC=NC+1:PC(NC)=C1(V4)
380 GOSUB 2200
390 IF PP=1 THEN GOSUB 2280:NC=NC-1:V3=V3-1:GOTO 210
400 XV=XR+26+V3*22
410 YV=YR+12+VV*30
420 GOSUB 2640
430 IF V3 < 3 THEN 490
440 VV=VV+1
450 GOSUB 1320
460 IF REZ=1 THEN GOSUB 1580:GOTO 500
470 IF VV=6 THEN GOSUB 1580:GOTO 500
480 GOTO 190
490 GOTO 210
500 REM
510 IF INKEY$="" THEN 510
520 UH=UH+3
530 GOTO 70
540 COLOR 4,1:CLS:PCLS
550 LOCATE 23,8
560 PRINT "До свидания"
570 FOR D4=1 TO 35:LL=SQR(D4):NEXT D4
575 CLS
576 LOCATE ,,1
580 END
590 REM
600 C1(1)=0
610 C1(2)=7
620 C1(3)=1
630 C1(4)=4
640 C1(5)=2
650 C1(6)=5
660 C1(7)=3
670 C1(8)=6
680 RETURN
690 REM
700 LINE (20,12)-(265,200),3,B
710 XR=40
720 FOR YR=20 TO 170 STEP 30
730 GOSUB 2510
740 LINE (XR,YR+18)-(XR+92,YR+20),3,BF
750 NEXT YR
760 XR=152
770 FOR YR=20 TO 170 STEP 30
780 GOSUB 2510
790 LINE '
NEXT
USRиDATA┤ Ю┐%Д' '┤rcЭ@?ПЯ>ЭЯ
771
DIM0&HA222ELSEELSEDEF777D0?ю`GOSUB
1912 STOPДВУХБАЙТОВЫЙ ТОКЕН ?─@MODR=18
840 FOR YK=YR+3LPRINTLLISTUSR2LPRINT
65473 DATAж⌠ПС>a/аaKхd┐p│aKх(┐|─<X╜p──┌2─⌠Э─0бGЬ8
63940 NEW╟0o@hERLBEEPSTRING$юDEF7934gлSTOP
POKER йA╦@6,5E-27!COLORCLOSE=->7744aKKILLdNEXT49788O *POKEUSR Ч&HE41FM
ДВУХБАЙТОВЫЙ ТОКЕН --л2!─"┐ G$Чn!`$▐Бг8&B
41108 WIDTH"F┌SdBiI5H'(r R6┘ ═SC6Hx4v,ц)U"B COLORFORp
18324 9DATA ║l[
╚dюRя≈
5768 DEF$аRESTORErELSE(L7°*WIDTH5EAA
g2FORp1rINPUT3TROFFDRAW─QELSE
1669 "lAb=a`+
4105 бRESTORE1POKEFOR═"!
h90HXы> mх┤пх8┘╧▄ ═ C ─hM$^Б║J═,'╙▄0█К FT√P2└H[2л
8430 0╟@9ERL
106 GNEXT!END"дmx( еJ═╥@─-√qBP╟┬╢
4784 012LETcuBLOAD°STOP2)B
COLORP!DELETE,3402╢-SPOINTXOR&H2109SPC(3DIMD&O@ERROR1 ╟sD 3KILL═=DATA└▌┼2a┌
ку─ёHп FD─п──"6√║Tь&╙ь╝pb┌м╒$ ▓╬а@║\@LБ!┬Рd
8543 "&⌠╛#▄,┘ююAшD┬╒м≥╠EB2F╕8м┌`$а*CV
570 FOR D4=1 TO 35:LL=SQR(D4):NEXT D4
575 CLS
576 LOCATE ,,1
580 END
590 REM
600 C1(1)=0
610 C1(2)=7
620 C1(3)=1
630 C1(4)=4
640 C1(5)=2
650 C1(6)=5
660 C1(7)=3
670 C1(8)=6
680 RETURN
690 REM
700 LINE (20,12)-(265,200),3,B
710 XR=40
720 FOR YR=20 TO 170 STEP 30
730 GOSUB 2510
740 LINE (XR,YR+18)-(XR+92,YR+20),3,BF
750 NEXT YR
760 XR=152
770 FOR YR=20 TO 170 STEP 30
780 GOSUB 2510
790 LINE (XR,YR+18)-(XR+92,YR+20),3,BF
800 NEXT YR
810 :REM****************************
820 XR=42
830 YR=18
840 FOR YK=YR+4 TO 172 STEP 30
850 FOR XK=XR+8 TO XR+74 STEP 22
860 GOSUB 2540
870 NEXT XK
880 NEXT YK
890 XR=155
900 FOR YK=YR+4 TO 172 STEP 30
910 FOR XK=XR+8 TO XR+74 STEP 22
920 GOSUB 2540
930 NEXT XK
940 NEXT YK
950 :REM****************************
960 A=370:B=A+30:C=80=215
980 LINE (A+4,C+3)-(B-5,D-4),3,B
990 XO=A+15:V2=0
1000 FOR YO=C+10 TO C+10+112 STEP 16
1010 V2=V2+1:GOSUB 2570
1020 NEXT YO
1030 RETURN
1040 REM
1050 COLOR 7,0:PCLS:CLS
1060 LOCATE 20,3
1070 PRINT "инcтрукция"
1080 LOCATE 10,6
1090 PRINT "Вам надо отгадать загаданные цвета."
1100 LOCATE 10,7
1110 PRINT "Клавишой <вк> вы закрашиваете"
1120 LOCATE 10,8
1130 PRINT "4-ре клетки 1-го столбца."
1140 LOCATE 10,9
1150 PRINT "Программа коментирует ответ"
1160 LOCATE 10,10
1170 PRINT "следующим образом:"
1180 LOCATE 10,11
1190 PRINT "если угадан цвет и место,то в"
1200 LOCATE 10,12
1210 PRINT "правом столбце закрашивается "
1220 LOCATE 10,13
1230 PRINT "белый квадрат,"
1240 LOCATE 10,14
1250 PRINT "eсли угадан только цвет,то в"
1260 LOCATE 10,15
1270 PRINT "правом столбце закрашивается "
1280 LOCATE 10,16
1290 PRINT "красный квадрат"
1300 P$=INKEY$ :IF P$="" THEN 1302 ELSE 1310
1302 W7=W7+1
1304 IF W7>=32766 THEN W7=0
1306 GOTO 1300
1310 RETURN
1320 REM
1330 G=-1:PER=0:REZ=0
1340 FOR I=1 TO 4
1350 IF PC(I)=ZZ(I) THEN G=G+1:PER=PER+1:N(PER)=I:GOSUB2670
1360 NEXT I
1370 :REM****************************
1380 IF PER=4 THEN REZ=1:GOTO 1560
1390 IF PER=0 THEN 1500
1400 FOR K=1 TO 4
1410 FOR D1=1 TO PER
1420 IF N(D1)=K THEN 1470
1430 NEXT D1
1440 FOR D1=1 TO 4
1450 IF ZZ(D1)=PC(K) THEN G=G+1:GOSUB 2740
1460 NEXT D1
1470 REM
1480 NEXT K
1490 GOTO 1560
1500 REM
1510 FOR K=1 TO 4
1520 FOR D1=1 TO 4
1530 IF ZZ(D1)=PC(K) THEN G=G+1:GOSUB 2740
1540 NEXT D1
1550 NEXT K
1560 REM
1570 RETURN
1580 REM
1590 T=6
1595 X8=400
1596 Y8=40
1597 X9=X8
1598 Y9=Y8+10
1600 LINE (X8-6,Y8-5)-(X9+48,Y9+5),4,B
1602 X9=X9+T
1610 LINE (X8,Y8)-(X9,Y9),ZZ(1),BF
1612 LINE (X8-1,Y8-1)-(X9+1,Y9+1),7,B
1620 LINE (X8+12,Y8)-(X9+12,Y9),ZZ(2),BF
1622 LINE (X8+11,Y8-1)-(X9+13,Y9+1),7,B
1630 LINE (X8+24,Y8)-(X9+24,Y9),ZZ(3),BF
1632 LINE (X8+23,Y8-1)-(X9+25,Y9+1),7,B
1640 LINE (X8+38,Y8)-(X9+38,Y9),ZZ(4),BF
1642 LINE (X8+37,Y8-1)-(X9+39,Y9+1),7,B
1650 PRESET (200,50)
1670 IF REZ=1 THEN CH=CH+1:LOCATE X7,Y7:PRINT " Вы выиграли " ELSE MA=MA+1:LOCATE X7,Y7:PRINT " Вы проиграли "
1680 LOCATE 39,3
1690 PRINT CH;"-";MA
1700 LOCATE 51,2
1710 PRINT"ответ"
1720 RETURN
1730 REM
1740 LOCATE 39,2
1750 PRINT " счет"
1840 RETURN
1850 REM
1860 LOCATE 40,1
1870 PRINT NN;"-ая партия"
1880 LOCATE 39,3
1890 PRINT CH;"-";MA
1900 RETURN
1910 REM
1920 RGIM=2
1930 IF RGIM=1 THEN 2130
1940 GOSUB 2810
1950 N1=KW
1960 GOSUB 2810
1970 IF KW=N1 THEN 1960
1980 N2=KW
1990 GOSUB 2810
2000 IF KW=N1 THEN 1990
2010 IF KW=N2 THEN 1990
2020 N3=KW
2030 GOSUB 2810
2040 IF KW=N1 THEN 2030
2050 IF KW=N2 THEN 2030
2060 IF KW=N3 THEN 2030
2070 N4=KW
2080 ZZ(1)=C1(N1)
2090 ZZ(2)=C1(N2)
2100 ZZ(3)=C1(N3)
2110 ZZ(4)=C1(N4)
2120 GOTO 2180
2130 REM
2140 ZZ(1)=13
2150 ZZ(2)=15
2160 ZZ(3)=1
2170 ZZ(4)=4
2180 REM
2190 RETURN
2200 REM
2210 PP=0
2220 IF NC=1 THEN 2260
2230 FOR D1=1 TO NC-1
2240 IF PC(NC)=PC(D1) THEN PP=1:GOTO 2260
2250 NEXT D1
2260 REM
2270 RETURN
2280 REM
2294 LOCATE X7,Y7
2300 PRINT " !!! "
2302 FOR IJ=1 TO 200:NEXT IJ
2310 RETURN
2320 REM
2330 COLOR 7,0
2350 LOCATE 26,4
2360 PRINT "Э В Р И К[свернуть]
Личка заполнена! И чистить я ее не буду! Пользуйтесь адекватными средствами связи! Спасибо.
Seamos realistas y hagamos lo imposible!
Ernesto Che GuevaraПереехал сюда: SteinBlume (ex ATM CP/M Explorer)
http://era-cg.su
Если не изменяет память, эта дискета была слегка битая, еще во времена моего первого Корвета (~2002 год), т.к. через чур много использовалась - часто крутил тесты гостям. Полное чтение дает вроде два сбойных сектора, но все приходятся на конец дискеты с пустыми секторами. Так что с высокой вероятностью дамп точный.
Первоначально в первой папке с моими дискетами было еще минимум две дискеты с бэдами. Вроде удалось пофиксить все. Как буду по-свободнее, еще раз помучаю. Позже планирую опубликовать v2 своих образов (ничего нового, только фиксы).
P.S. Завтра еду дампить дискеты с чердака МГУ
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)