Session end : 12h00m00s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2024 : 679.48 € |
![]() | Dervish (UK) (1988) [Original] [TAPE].zip 16.65 Ko (Date : 2020-03-24) | ![]() | |
![]() | ![]() [CRC:41E7971A] [HexaDump] [CdtView] (16.44 Ko-37.51 Ko) | ||
INFOSSTRUCTURE Chargement : |TAPE puis RUN"" ou CTRL+ENTER(pavé numérique) Dumpé par : Pinace - COMMENTAIRE -CDT propreDans le loader nous avons en ligne 60000 le master K7 10000 MEMORY &7F00:LOAD"!drvdt",&8000
10010 z=&7F01:MODE 0:FOR i=0 TO 7:INK i,0:NEXT:BORDER 0:GOSUB 40500:z=&7F01:RESTORE
10020 GOSUB 30000
10030 DATA 6,56,&dd,&6e,2,&dd,&66,3
10040 DATA &5e,&23,&56,&dd,&6e,0
10050 DATA &dd,&66,1,&1a,&77,&d5
10060 DATA &e5,&11,0,8,&19,&77
10070 DATA &e1,&d1,&23,&13,&10,241
10080 DATA &dd,&6e,2,&dd,&66,3
10090 DATA &73,&23,&72,201,-1
11490 LOCATE 1,20:INK 1,26:INK 2,11:INK 3,9:INK 4,12:INK 6,6:INK 7,24
11500 z%=&8000:FOR i%=0 TO 240 STEP 80:FOR i1=0 TO 16383 STEP 4096:z1=&C00C+i1+i%:CALL &7F01,àz%,z1:NEXT:NEXT
11520 PEN 5:INK 5,15:a$="Don't be HEARTLESS":i=1:GOSUB 15000:a$="Stop SMOKING!":i=19:GOSUB 15000
11530 PEN 1:LOCATE 2,24:PRINT CHR$(164);"Power House 1987";:LOCATE 6,22:PRINT"A-051-CPC";
11540 MEMORY &1DFF:GOSUB 20000:CALL &1E00:CALL &2000
15000 i1=INT((24-LEN(a$))/2):FOR i2=1 TO i1:LOCATE i,i2:PRINTCHR$(228);:LOCATE i,25-i2:PRINTCHR$(228);:NEXT
15010 FOR i2=i1+1 TO i1+LEN(a$):LOCATE i,i2:PRINT MID$(a$,i2-i1,1);:NEXT:RETURN
20000 RESTORE 20000:z=&1E00:GOSUB 30000
20010 DATA &21,0,&20,&11,0,&72,&3e,&16
20020 DATA &cd,&a1,&bc,&c9,-1
20070 RETURN
30000 READ z1:IF z1>=0 THEN POKE z,z1:z=z+1:GOTO 30000 ELSE RETURN
40500 RESTORE 40500:z=&7F01:GOSUB 30000:CALL &7F01:RETURN
40510 DATA &21,4,5,&11,0,&84,&cd,&1a,&bc
40520 DATA &e,&80,6,40,&e5,&1a,&77,&23
40530 DATA &13,&10,250,&e1,&cd,&26,&bc
40540 DATA &d,&20,240,&c9,-1
60000 MODE 1:ùTAPE.OUT:PRINT"Master Creation.":MEMORY &1DFF:LOAD"drvdt.bin",&8000
60010 PRINT"Load output tape.":GOSUB 60210
60020 SAVE"!derv",p:SAVE"!drvdt",b,&8000,6144
60040 RUN"!DERVGEN"
60210 PRINT"Press a key when ready.":FOR i=1 TO 100:WHILE INKEY$<>"":WEND:NEXT:WHILE INKEY$="":WEND:RETURN Dervish (UK) (1988) [Original] [TAPE].cdtCreator : ZXTape! Total of blocks : 10 Blocks format : PAUSE (1), TURBO LOADING DATA (9) |
![]() | Dervish (UK) (1988).zip 18.73 Ko (Date : 2020-03-24) | ![]() | |
![]() | ![]() [CRC:3A35EA93] [HexaDump] [SectorView] [SectorData] (18.59 Ko-190.25 Ko) | ||
INFOSSTRUCTURE Chargement : RUN"DERVISH.BAS Dervish (UK) (1988).dskCreator : Caprice32..... / EXTENDED CPC DSK File.. 1 side / 40 tracks formated / 40 tracks per side. -- SIDE 1 -- Sectors used : 77 / 360 Sectors format : SectorSize2 (360) Minimum of sectors in one track : 9 Maximum of sectors in one track : 9 |