151 Odpowiedź przez mono

(29 odpowiedzi, napisanych Różne)

@Mq: Zintegrowałem Twoje zmiany i idąc Twoim tokiem rozumowania dołożyłem udźwiękowienie swoich kalkulacji.
Poza tym:
1. Zmodyfikowałem numerację w sekcji Sebanowej.
2. Scaliłem autorów do jednej linii.

1 GRAPHICS 9: REM -- set the mode by Adam K.

100 REM -- let's start by Seban/Slt -- +sound by Mq
110 DL=PEEK(560)+256*PEEK(561)
120 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
125 GOSUB 32000: REM -- Mono init
130 FOR Y=128 TO 191
140 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
150 R=RND(0)*79: COLOR R
160 PLOT R,RND(0)*127
170 SOUND 0,4,5,Y:NEXT Y
180 FOR X=60 TO 76
190 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
200 SOUND 0,7,8,X:NEXT X
210 FOR X=0 TO 31
220 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
230 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
240 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
250 REM -- end of let's start --

10000 REM -- Mono part
10010 Z20=20:C20=PEEK(Z20)

11000 T20=PEEK(Z20):IF T20<>C20 THEN C20=T20:C=C+Z1

29800 IF C<Z6 THEN 11000
29810 C=0

29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1

29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1

29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1

29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1

29990 GOTO 11000

32000 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32010 PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32020 E=410:DIM F(E),VF(E),VT(E),L(E):E=E-1:RESTORE 32040:FOR I=Z0 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32030 FOR I=Z0 TO Z3:SOUND I,Z0,Z0,Z0:NEXT I:C=Z0:N=Z0:RETURN

32040 DATA 255,168,161,4
32041 DATA 0,160,160,32
32042 DATA 0,160,160,32
32043 DATA 0,160,160,32
32044 DATA 128,168,161,4
32045 DATA 173,168,161,4
32046 DATA 162,168,161,4
32047 DATA 255,168,161,4
32048 DATA 128,168,161,4
32049 DATA 173,168,161,4
32050 DATA 162,168,161,4
32051 DATA 255,168,161,4
32052 DATA 0,160,160,32
32053 DATA 85,170,162,4
32054 DATA 64,170,162,4
32055 DATA 128,168,161,4
32056 DATA 96,170,162,4
32057 DATA 72,170,162,4
32058 DATA 173,168,161,4
32059 DATA 85,170,162,8
32060 DATA 64,170,162,8
32061 DATA 162,168,161,4
32062 DATA 255,168,161,4
32063 DATA 0,160,160,16
32064 DATA 0,160,160,16
32065 DATA 128,168,161,4
32066 DATA 173,168,161,4
32067 DATA 162,168,161,4
32068 DATA 255,168,161,4
32069 DATA 0,160,160,32
32070 DATA 85,170,162,4
32071 DATA 64,170,162,4
32072 DATA 128,168,161,4
32073 DATA 96,170,162,4
32074 DATA 72,170,162,4
32075 DATA 173,168,161,4
32076 DATA 85,170,162,8
32077 DATA 64,170,162,8
32078 DATA 162,168,161,4
32079 DATA 255,168,161,4
32080 DATA 0,160,160,16
32081 DATA 0,160,160,16
32082 DATA 128,168,161,4
32083 DATA 173,168,161,4
32084 DATA 162,168,161,4
32085 DATA 193,168,161,4
32086 DATA 0,160,160,32
32087 DATA 64,170,162,2
32088 DATA 47,170,162,2
32089 DATA 64,170,162,2
32090 DATA 47,170,162,2
32091 DATA 96,168,161,4
32092 DATA 64,170,162,2
32093 DATA 47,170,162,2
32094 DATA 64,170,162,2
32095 DATA 47,170,162,2
32096 DATA 193,168,161,4
32097 DATA 72,170,162,4
32098 DATA 53,170,162,4
32099 DATA 96,168,161,4
32100 DATA 64,170,162,4
32101 DATA 47,170,162,4
32102 DATA 193,168,161,4
32103 DATA 64,170,162,2
32104 DATA 47,170,162,2
32105 DATA 64,170,162,2
32106 DATA 47,170,162,2
32107 DATA 96,168,161,4
32108 DATA 64,170,162,2
32109 DATA 47,170,162,2
32110 DATA 64,170,162,2
32111 DATA 47,170,162,2
32112 DATA 193,168,161,4
32113 DATA 72,170,162,4
32114 DATA 53,170,162,4
32115 DATA 96,168,161,4
32116 DATA 64,170,162,4
32117 DATA 47,170,162,4
32118 DATA 255,168,161,4
32119 DATA 64,168,160,2
32120 DATA 85,170,162,4
32121 DATA 64,170,162,4
32122 DATA 108,168,160,2
32123 DATA 128,168,161,4
32124 DATA 85,168,160,2
32125 DATA 96,170,162,4
32126 DATA 72,170,162,4
32127 DATA 81,168,160,2
32128 DATA 173,168,161,4
32129 DATA 85,168,160,2
32130 DATA 85,170,162,8
32131 DATA 64,170,162,8
32132 DATA 108,168,160,2
32133 DATA 162,168,161,4
32134 DATA 57,168,160,2
32135 DATA 64,168,160,2
32136 DATA 255,168,161,4
32137 DATA 0,160,160,16
32138 DATA 0,160,160,16
32139 DATA 0,160,160,16
32140 DATA 128,168,161,4
32141 DATA 173,168,161,4
32142 DATA 162,168,161,4
32143 DATA 255,168,161,4
32144 DATA 64,168,160,2
32145 DATA 85,170,162,4
32146 DATA 64,170,162,4
32147 DATA 108,168,160,2
32148 DATA 128,168,161,4
32149 DATA 85,168,160,2
32150 DATA 96,170,162,4
32151 DATA 72,170,162,4
32152 DATA 81,168,160,2
32153 DATA 173,168,161,4
32154 DATA 85,168,160,2
32155 DATA 85,170,162,8
32156 DATA 64,170,162,8
32157 DATA 108,168,160,2
32158 DATA 162,168,161,4
32159 DATA 57,168,160,2
32160 DATA 64,168,160,2
32161 DATA 255,168,161,4
32162 DATA 0,160,160,16
32163 DATA 0,160,160,16
32164 DATA 0,160,160,16
32165 DATA 128,168,161,4
32166 DATA 173,168,161,4
32167 DATA 162,168,161,4
32168 DATA 193,168,161,4
32169 DATA 19,168,160,1
32170 DATA 64,170,162,2
32171 DATA 47,170,162,2
32172 DATA 23,168,160,1
32173 DATA 31,168,160,1
32174 DATA 64,170,162,2
32175 DATA 47,170,162,2
32176 DATA 40,168,160,1
32177 DATA 96,168,161,4
32178 DATA 47,168,160,1
32179 DATA 64,170,162,2
32180 DATA 47,170,162,2
32181 DATA 64,168,160,1
32182 DATA 81,168,160,1
32183 DATA 64,170,162,2
32184 DATA 47,170,162,2
32185 DATA 96,168,160,1
32186 DATA 193,168,161,4
32187 DATA 0,160,160,8
32188 DATA 72,170,162,4
32189 DATA 53,170,162,4
32190 DATA 96,168,161,4
32191 DATA 64,170,162,4
32192 DATA 47,170,162,4
32193 DATA 193,168,161,4
32194 DATA 19,168,160,1
32195 DATA 64,170,162,2
32196 DATA 47,170,162,2
32197 DATA 23,168,160,1
32198 DATA 31,168,160,1
32199 DATA 64,170,162,2
32200 DATA 47,170,162,2
32201 DATA 40,168,160,1
32202 DATA 96,168,161,4
32203 DATA 47,168,160,1
32204 DATA 64,170,162,2
32205 DATA 47,170,162,2
32206 DATA 64,168,160,1
32207 DATA 81,168,160,1
32208 DATA 64,170,162,2
32209 DATA 47,170,162,2
32210 DATA 96,168,160,1
32211 DATA 193,168,161,4
32212 DATA 0,160,160,8
32213 DATA 72,170,162,4
32214 DATA 53,170,162,4
32215 DATA 96,168,161,4
32216 DATA 64,170,162,4
32217 DATA 47,170,162,4
32218 DATA 114,168,161,2
32219 DATA 173,168,161,2
32220 DATA 68,168,162,8
32221 DATA 85,168,162,8
32222 DATA 114,168,161,2
32223 DATA 173,168,161,2
32224 DATA 114,168,161,2
32225 DATA 173,168,161,2
32226 DATA 114,168,161,2
32227 DATA 173,168,161,2
32228 DATA 128,168,161,4
32229 DATA 193,168,161,4
32230 DATA 76,168,162,4
32231 DATA 96,168,162,4
32232 DATA 114,168,161,4
32233 DATA 173,168,161,4
32234 DATA 68,168,162,4
32235 DATA 85,168,162,4
32236 DATA 114,168,161,2
32237 DATA 173,168,161,2
32238 DATA 68,168,162,8
32239 DATA 57,168,162,8
32240 DATA 114,168,161,2
32241 DATA 173,168,161,2
32242 DATA 114,168,161,2
32243 DATA 173,168,161,2
32244 DATA 114,168,161,2
32245 DATA 173,168,161,2
32246 DATA 128,168,161,4
32247 DATA 193,168,161,4
32248 DATA 76,168,162,4
32249 DATA 64,168,162,4
32250 DATA 114,168,161,4
32251 DATA 173,168,161,4
32252 DATA 68,168,162,4
32253 DATA 57,168,162,4
32254 DATA 114,168,161,2
32255 DATA 173,168,160,2
32256 DATA 68,170,162,12
32257 DATA 42,170,162,12
32258 DATA 114,168,161,2
32259 DATA 173,168,160,2
32260 DATA 114,168,161,2
32261 DATA 173,168,160,2
32262 DATA 114,168,161,2
32263 DATA 173,168,160,2
32264 DATA 128,168,161,4
32265 DATA 193,168,160,4
32266 DATA 114,168,161,4
32267 DATA 173,168,160,4
32268 DATA 0,160,160,4
32269 DATA 0,160,160,4
32270 DATA 173,168,161,2
32271 DATA 20,168,160,1
32272 DATA 20,170,162,1
32273 DATA 31,170,162,1
32274 DATA 28,168,160,1
32275 DATA 42,170,162,1
32276 DATA 64,170,162,1
32277 DATA 173,168,161,2
32278 DATA 33,168,160,1
32279 DATA 0,160,160,4
32280 DATA 0,160,160,4
32281 DATA 42,168,160,1
32282 DATA 173,168,161,2
32283 DATA 57,168,160,1
32284 DATA 68,168,160,1
32285 DATA 173,168,161,2
32286 DATA 85,168,160,1
32287 DATA 20,170,162,1
32288 DATA 31,170,162,1
32289 DATA 114,168,160,1
32290 DATA 42,170,162,1
32291 DATA 64,170,162,1
32292 DATA 173,168,161,2
32293 DATA 85,168,160,2
32294 DATA 0,160,160,4
32295 DATA 0,160,160,4
32296 DATA 0,160,160,6
32297 DATA 0,160,160,6
32298 DATA 0,160,160,4
32299 DATA 0,160,160,4
32300 DATA 255,167,161,4
32301 DATA 64,164,160,2
32302 DATA 85,169,162,4
32303 DATA 64,169,162,4
32304 DATA 108,164,160,2
32305 DATA 128,167,161,4
32306 DATA 85,164,160,2
32307 DATA 96,169,162,4
32308 DATA 72,169,162,4
32309 DATA 81,164,160,2
32310 DATA 173,167,161,4
32311 DATA 85,164,160,2
32312 DATA 85,169,162,8
32313 DATA 64,169,162,8
32314 DATA 108,164,160,2
32315 DATA 162,167,161,4
32316 DATA 57,164,160,2
32317 DATA 64,164,160,2
32318 DATA 255,167,161,4
32319 DATA 0,160,160,16
32320 DATA 0,160,160,16
32321 DATA 0,160,160,16
32322 DATA 128,167,161,4
32323 DATA 173,167,161,4
32324 DATA 162,167,161,4
32325 DATA 255,167,161,4
32326 DATA 64,164,160,2
32327 DATA 85,169,162,4
32328 DATA 64,169,162,4
32329 DATA 108,164,160,2
32330 DATA 128,167,161,4
32331 DATA 85,164,160,2
32332 DATA 96,169,162,4
32333 DATA 72,169,162,4
32334 DATA 81,164,160,2
32335 DATA 173,167,161,4
32336 DATA 85,164,160,2
32337 DATA 85,169,162,8
32338 DATA 64,169,162,8
32339 DATA 108,164,160,2
32340 DATA 162,167,161,4
32341 DATA 57,164,160,2
32342 DATA 64,164,160,2
32343 DATA 255,167,161,4
32344 DATA 0,160,160,16
32345 DATA 0,160,160,16
32346 DATA 0,160,160,16
32347 DATA 128,167,161,4
32348 DATA 173,167,161,4
32349 DATA 162,167,161,4
32350 DATA 255,165,161,4
32351 DATA 64,163,160,2
32352 DATA 85,167,162,4
32353 DATA 64,167,162,4
32354 DATA 108,163,160,2
32355 DATA 128,165,161,4
32356 DATA 85,163,160,2
32357 DATA 96,167,162,4
32358 DATA 72,167,162,4
32359 DATA 81,163,160,2
32360 DATA 173,165,161,4
32361 DATA 85,163,160,2
32362 DATA 85,167,162,8
32363 DATA 64,167,162,8
32364 DATA 108,163,160,2
32365 DATA 162,165,161,4
32366 DATA 57,163,160,2
32367 DATA 64,163,160,2
32368 DATA 255,165,161,4
32369 DATA 0,160,160,16
32370 DATA 0,160,160,16
32371 DATA 0,160,160,16
32372 DATA 128,165,161,4
32373 DATA 173,165,161,4
32374 DATA 162,165,161,4
32375 DATA 255,165,161,4
32376 DATA 64,163,160,2
32377 DATA 85,167,162,4
32378 DATA 64,167,162,4
32379 DATA 108,163,160,2
32380 DATA 128,165,161,4
32381 DATA 85,163,160,2
32382 DATA 96,167,162,4
32383 DATA 72,167,162,4
32384 DATA 81,163,160,2
32385 DATA 173,165,161,4
32386 DATA 85,163,160,2
32387 DATA 85,167,162,8
32388 DATA 64,167,162,8
32389 DATA 108,163,160,2
32390 DATA 162,165,161,4
32391 DATA 57,163,160,2
32392 DATA 64,163,160,2
32393 DATA 255,165,161,4
32394 DATA 0,160,160,16
32395 DATA 0,160,160,16
32396 DATA 0,160,160,16
32397 DATA 128,165,161,4
32398 DATA 173,165,161,4
32399 DATA 162,165,161,4
32400 DATA 255,163,161,4
32401 DATA 64,162,160,2
32402 DATA 85,164,161,4
32403 DATA 64,164,161,4
32404 DATA 108,162,160,2
32405 DATA 128,163,161,4
32406 DATA 85,162,160,2
32407 DATA 96,164,161,4
32408 DATA 72,164,161,4
32409 DATA 81,162,160,2
32410 DATA 173,163,161,4
32411 DATA 85,162,160,2
32412 DATA 85,164,161,8
32413 DATA 64,164,161,8
32414 DATA 108,162,160,2
32415 DATA 162,163,161,4
32416 DATA 57,162,160,2
32417 DATA 64,162,160,2
32418 DATA 255,163,161,4
32419 DATA 0,160,160,16
32420 DATA 0,160,160,16
32421 DATA 0,160,160,16
32422 DATA 128,163,161,4
32423 DATA 173,163,161,4
32424 DATA 162,163,161,4
32425 DATA 255,163,161,4
32426 DATA 64,162,160,2
32427 DATA 85,164,161,4
32428 DATA 64,164,161,4
32429 DATA 108,162,160,2
32430 DATA 128,163,161,4
32431 DATA 85,162,160,2
32432 DATA 96,164,161,4
32433 DATA 72,164,161,4
32434 DATA 81,162,160,2
32435 DATA 173,163,161,4
32436 DATA 85,162,160,2
32437 DATA 85,164,161,8
32438 DATA 64,164,161,8
32439 DATA 108,162,160,2
32440 DATA 162,163,161,4
32441 DATA 57,162,160,2
32442 DATA 64,162,160,2
32443 DATA 255,163,161,4
32444 DATA 0,160,160,16
32445 DATA 0,160,160,16
32446 DATA 0,160,160,16
32447 DATA 128,163,161,4
32448 DATA 173,163,161,4
32449 DATA 162,163,161,4

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq

Edit: Od 11000 zaczyna się pętla główna i tam można coś dopisywać co się będzie dziać podczas odtwarzania muzyki.
Do sekcji Sebanowej wsadziłem swoje GOSUB, ale można je wywołać w sumie już po (myślałem, że procedura DLI coś robi w międzyczasie i skorzystam :]).

Idź do forum: Różne

152 Odpowiedź przez mono

(29 odpowiedzi, napisanych Różne)

GR.9 - świetny pomysł! Chyba jeszcze nie używaliśmy :)
Tradycyjnie HUDBA:

1 GRAPHICS 9: REM -- set the mode by Adam K.

100 REM -- let's start by Seban/Slt --
110 DL=PEEK(560)+256*PEEK(561)
120 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
125 GOSUB 32000: REM -- Mono init
130 FOR Y=128 TO 191
140 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
150 R=RND(0)*79: COLOR R
160 PLOT R,RND(0)*127
170 NEXT Y
180 FOR X=60 TO 76
190 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
200 NEXT X
210 FOR X=0 TO 31
220 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
230 NEXT X
240 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
250 REM -- end of let's start --

10000 REM -- Mono part
10010 Z20=20:C20=PEEK(Z20)

11000 T20=PEEK(Z20):IF T20<>C20 THEN C20=T20:C=C+Z1

29800 IF C<Z6 THEN 11000
29810 C=0

29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1

29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1

29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1

29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1

29990 GOTO 11000

32000 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32010 PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32020 E=410:DIM F(E),VF(E),VT(E),L(E):E=E-1:RESTORE 32040:FOR I=Z0 TO E:READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32030 FOR I=0 TO Z3:SOUND I,Z0,Z0,Z0:NEXT I:C=Z0:N=Z0:RETURN

32040 DATA 255,168,161,4
32041 DATA 0,160,160,32
32042 DATA 0,160,160,32
32043 DATA 0,160,160,32
32044 DATA 128,168,161,4
32045 DATA 173,168,161,4
32046 DATA 162,168,161,4
32047 DATA 255,168,161,4
32048 DATA 128,168,161,4
32049 DATA 173,168,161,4
32050 DATA 162,168,161,4
32051 DATA 255,168,161,4
32052 DATA 0,160,160,32
32053 DATA 85,170,162,4
32054 DATA 64,170,162,4
32055 DATA 128,168,161,4
32056 DATA 96,170,162,4
32057 DATA 72,170,162,4
32058 DATA 173,168,161,4
32059 DATA 85,170,162,8
32060 DATA 64,170,162,8
32061 DATA 162,168,161,4
32062 DATA 255,168,161,4
32063 DATA 0,160,160,16
32064 DATA 0,160,160,16
32065 DATA 128,168,161,4
32066 DATA 173,168,161,4
32067 DATA 162,168,161,4
32068 DATA 255,168,161,4
32069 DATA 0,160,160,32
32070 DATA 85,170,162,4
32071 DATA 64,170,162,4
32072 DATA 128,168,161,4
32073 DATA 96,170,162,4
32074 DATA 72,170,162,4
32075 DATA 173,168,161,4
32076 DATA 85,170,162,8
32077 DATA 64,170,162,8
32078 DATA 162,168,161,4
32079 DATA 255,168,161,4
32080 DATA 0,160,160,16
32081 DATA 0,160,160,16
32082 DATA 128,168,161,4
32083 DATA 173,168,161,4
32084 DATA 162,168,161,4
32085 DATA 193,168,161,4
32086 DATA 0,160,160,32
32087 DATA 64,170,162,2
32088 DATA 47,170,162,2
32089 DATA 64,170,162,2
32090 DATA 47,170,162,2
32091 DATA 96,168,161,4
32092 DATA 64,170,162,2
32093 DATA 47,170,162,2
32094 DATA 64,170,162,2
32095 DATA 47,170,162,2
32096 DATA 193,168,161,4
32097 DATA 72,170,162,4
32098 DATA 53,170,162,4
32099 DATA 96,168,161,4
32100 DATA 64,170,162,4
32101 DATA 47,170,162,4
32102 DATA 193,168,161,4
32103 DATA 64,170,162,2
32104 DATA 47,170,162,2
32105 DATA 64,170,162,2
32106 DATA 47,170,162,2
32107 DATA 96,168,161,4
32108 DATA 64,170,162,2
32109 DATA 47,170,162,2
32110 DATA 64,170,162,2
32111 DATA 47,170,162,2
32112 DATA 193,168,161,4
32113 DATA 72,170,162,4
32114 DATA 53,170,162,4
32115 DATA 96,168,161,4
32116 DATA 64,170,162,4
32117 DATA 47,170,162,4
32118 DATA 255,168,161,4
32119 DATA 64,168,160,2
32120 DATA 85,170,162,4
32121 DATA 64,170,162,4
32122 DATA 108,168,160,2
32123 DATA 128,168,161,4
32124 DATA 85,168,160,2
32125 DATA 96,170,162,4
32126 DATA 72,170,162,4
32127 DATA 81,168,160,2
32128 DATA 173,168,161,4
32129 DATA 85,168,160,2
32130 DATA 85,170,162,8
32131 DATA 64,170,162,8
32132 DATA 108,168,160,2
32133 DATA 162,168,161,4
32134 DATA 57,168,160,2
32135 DATA 64,168,160,2
32136 DATA 255,168,161,4
32137 DATA 0,160,160,16
32138 DATA 0,160,160,16
32139 DATA 0,160,160,16
32140 DATA 128,168,161,4
32141 DATA 173,168,161,4
32142 DATA 162,168,161,4
32143 DATA 255,168,161,4
32144 DATA 64,168,160,2
32145 DATA 85,170,162,4
32146 DATA 64,170,162,4
32147 DATA 108,168,160,2
32148 DATA 128,168,161,4
32149 DATA 85,168,160,2
32150 DATA 96,170,162,4
32151 DATA 72,170,162,4
32152 DATA 81,168,160,2
32153 DATA 173,168,161,4
32154 DATA 85,168,160,2
32155 DATA 85,170,162,8
32156 DATA 64,170,162,8
32157 DATA 108,168,160,2
32158 DATA 162,168,161,4
32159 DATA 57,168,160,2
32160 DATA 64,168,160,2
32161 DATA 255,168,161,4
32162 DATA 0,160,160,16
32163 DATA 0,160,160,16
32164 DATA 0,160,160,16
32165 DATA 128,168,161,4
32166 DATA 173,168,161,4
32167 DATA 162,168,161,4
32168 DATA 193,168,161,4
32169 DATA 19,168,160,1
32170 DATA 64,170,162,2
32171 DATA 47,170,162,2
32172 DATA 23,168,160,1
32173 DATA 31,168,160,1
32174 DATA 64,170,162,2
32175 DATA 47,170,162,2
32176 DATA 40,168,160,1
32177 DATA 96,168,161,4
32178 DATA 47,168,160,1
32179 DATA 64,170,162,2
32180 DATA 47,170,162,2
32181 DATA 64,168,160,1
32182 DATA 81,168,160,1
32183 DATA 64,170,162,2
32184 DATA 47,170,162,2
32185 DATA 96,168,160,1
32186 DATA 193,168,161,4
32187 DATA 0,160,160,8
32188 DATA 72,170,162,4
32189 DATA 53,170,162,4
32190 DATA 96,168,161,4
32191 DATA 64,170,162,4
32192 DATA 47,170,162,4
32193 DATA 193,168,161,4
32194 DATA 19,168,160,1
32195 DATA 64,170,162,2
32196 DATA 47,170,162,2
32197 DATA 23,168,160,1
32198 DATA 31,168,160,1
32199 DATA 64,170,162,2
32200 DATA 47,170,162,2
32201 DATA 40,168,160,1
32202 DATA 96,168,161,4
32203 DATA 47,168,160,1
32204 DATA 64,170,162,2
32205 DATA 47,170,162,2
32206 DATA 64,168,160,1
32207 DATA 81,168,160,1
32208 DATA 64,170,162,2
32209 DATA 47,170,162,2
32210 DATA 96,168,160,1
32211 DATA 193,168,161,4
32212 DATA 0,160,160,8
32213 DATA 72,170,162,4
32214 DATA 53,170,162,4
32215 DATA 96,168,161,4
32216 DATA 64,170,162,4
32217 DATA 47,170,162,4
32218 DATA 114,168,161,2
32219 DATA 173,168,161,2
32220 DATA 68,168,162,8
32221 DATA 85,168,162,8
32222 DATA 114,168,161,2
32223 DATA 173,168,161,2
32224 DATA 114,168,161,2
32225 DATA 173,168,161,2
32226 DATA 114,168,161,2
32227 DATA 173,168,161,2
32228 DATA 128,168,161,4
32229 DATA 193,168,161,4
32230 DATA 76,168,162,4
32231 DATA 96,168,162,4
32232 DATA 114,168,161,4
32233 DATA 173,168,161,4
32234 DATA 68,168,162,4
32235 DATA 85,168,162,4
32236 DATA 114,168,161,2
32237 DATA 173,168,161,2
32238 DATA 68,168,162,8
32239 DATA 57,168,162,8
32240 DATA 114,168,161,2
32241 DATA 173,168,161,2
32242 DATA 114,168,161,2
32243 DATA 173,168,161,2
32244 DATA 114,168,161,2
32245 DATA 173,168,161,2
32246 DATA 128,168,161,4
32247 DATA 193,168,161,4
32248 DATA 76,168,162,4
32249 DATA 64,168,162,4
32250 DATA 114,168,161,4
32251 DATA 173,168,161,4
32252 DATA 68,168,162,4
32253 DATA 57,168,162,4
32254 DATA 114,168,161,2
32255 DATA 173,168,160,2
32256 DATA 68,170,162,12
32257 DATA 42,170,162,12
32258 DATA 114,168,161,2
32259 DATA 173,168,160,2
32260 DATA 114,168,161,2
32261 DATA 173,168,160,2
32262 DATA 114,168,161,2
32263 DATA 173,168,160,2
32264 DATA 128,168,161,4
32265 DATA 193,168,160,4
32266 DATA 114,168,161,4
32267 DATA 173,168,160,4
32268 DATA 0,160,160,4
32269 DATA 0,160,160,4
32270 DATA 173,168,161,2
32271 DATA 20,168,160,1
32272 DATA 20,170,162,1
32273 DATA 31,170,162,1
32274 DATA 28,168,160,1
32275 DATA 42,170,162,1
32276 DATA 64,170,162,1
32277 DATA 173,168,161,2
32278 DATA 33,168,160,1
32279 DATA 0,160,160,4
32280 DATA 0,160,160,4
32281 DATA 42,168,160,1
32282 DATA 173,168,161,2
32283 DATA 57,168,160,1
32284 DATA 68,168,160,1
32285 DATA 173,168,161,2
32286 DATA 85,168,160,1
32287 DATA 20,170,162,1
32288 DATA 31,170,162,1
32289 DATA 114,168,160,1
32290 DATA 42,170,162,1
32291 DATA 64,170,162,1
32292 DATA 173,168,161,2
32293 DATA 85,168,160,2
32294 DATA 0,160,160,4
32295 DATA 0,160,160,4
32296 DATA 0,160,160,6
32297 DATA 0,160,160,6
32298 DATA 0,160,160,4
32299 DATA 0,160,160,4
32300 DATA 255,167,161,4
32301 DATA 64,164,160,2
32302 DATA 85,169,162,4
32303 DATA 64,169,162,4
32304 DATA 108,164,160,2
32305 DATA 128,167,161,4
32306 DATA 85,164,160,2
32307 DATA 96,169,162,4
32308 DATA 72,169,162,4
32309 DATA 81,164,160,2
32310 DATA 173,167,161,4
32311 DATA 85,164,160,2
32312 DATA 85,169,162,8
32313 DATA 64,169,162,8
32314 DATA 108,164,160,2
32315 DATA 162,167,161,4
32316 DATA 57,164,160,2
32317 DATA 64,164,160,2
32318 DATA 255,167,161,4
32319 DATA 0,160,160,16
32320 DATA 0,160,160,16
32321 DATA 0,160,160,16
32322 DATA 128,167,161,4
32323 DATA 173,167,161,4
32324 DATA 162,167,161,4
32325 DATA 255,167,161,4
32326 DATA 64,164,160,2
32327 DATA 85,169,162,4
32328 DATA 64,169,162,4
32329 DATA 108,164,160,2
32330 DATA 128,167,161,4
32331 DATA 85,164,160,2
32332 DATA 96,169,162,4
32333 DATA 72,169,162,4
32334 DATA 81,164,160,2
32335 DATA 173,167,161,4
32336 DATA 85,164,160,2
32337 DATA 85,169,162,8
32338 DATA 64,169,162,8
32339 DATA 108,164,160,2
32340 DATA 162,167,161,4
32341 DATA 57,164,160,2
32342 DATA 64,164,160,2
32343 DATA 255,167,161,4
32344 DATA 0,160,160,16
32345 DATA 0,160,160,16
32346 DATA 0,160,160,16
32347 DATA 128,167,161,4
32348 DATA 173,167,161,4
32349 DATA 162,167,161,4
32350 DATA 255,165,161,4
32351 DATA 64,163,160,2
32352 DATA 85,167,162,4
32353 DATA 64,167,162,4
32354 DATA 108,163,160,2
32355 DATA 128,165,161,4
32356 DATA 85,163,160,2
32357 DATA 96,167,162,4
32358 DATA 72,167,162,4
32359 DATA 81,163,160,2
32360 DATA 173,165,161,4
32361 DATA 85,163,160,2
32362 DATA 85,167,162,8
32363 DATA 64,167,162,8
32364 DATA 108,163,160,2
32365 DATA 162,165,161,4
32366 DATA 57,163,160,2
32367 DATA 64,163,160,2
32368 DATA 255,165,161,4
32369 DATA 0,160,160,16
32370 DATA 0,160,160,16
32371 DATA 0,160,160,16
32372 DATA 128,165,161,4
32373 DATA 173,165,161,4
32374 DATA 162,165,161,4
32375 DATA 255,165,161,4
32376 DATA 64,163,160,2
32377 DATA 85,167,162,4
32378 DATA 64,167,162,4
32379 DATA 108,163,160,2
32380 DATA 128,165,161,4
32381 DATA 85,163,160,2
32382 DATA 96,167,162,4
32383 DATA 72,167,162,4
32384 DATA 81,163,160,2
32385 DATA 173,165,161,4
32386 DATA 85,163,160,2
32387 DATA 85,167,162,8
32388 DATA 64,167,162,8
32389 DATA 108,163,160,2
32390 DATA 162,165,161,4
32391 DATA 57,163,160,2
32392 DATA 64,163,160,2
32393 DATA 255,165,161,4
32394 DATA 0,160,160,16
32395 DATA 0,160,160,16
32396 DATA 0,160,160,16
32397 DATA 128,165,161,4
32398 DATA 173,165,161,4
32399 DATA 162,165,161,4
32400 DATA 255,163,161,4
32401 DATA 64,162,160,2
32402 DATA 85,164,161,4
32403 DATA 64,164,161,4
32404 DATA 108,162,160,2
32405 DATA 128,163,161,4
32406 DATA 85,162,160,2
32407 DATA 96,164,161,4
32408 DATA 72,164,161,4
32409 DATA 81,162,160,2
32410 DATA 173,163,161,4
32411 DATA 85,162,160,2
32412 DATA 85,164,161,8
32413 DATA 64,164,161,8
32414 DATA 108,162,160,2
32415 DATA 162,163,161,4
32416 DATA 57,162,160,2
32417 DATA 64,162,160,2
32418 DATA 255,163,161,4
32419 DATA 0,160,160,16
32420 DATA 0,160,160,16
32421 DATA 0,160,160,16
32422 DATA 128,163,161,4
32423 DATA 173,163,161,4
32424 DATA 162,163,161,4
32425 DATA 255,163,161,4
32426 DATA 64,162,160,2
32427 DATA 85,164,161,4
32428 DATA 64,164,161,4
32429 DATA 108,162,160,2
32430 DATA 128,163,161,4
32431 DATA 85,162,160,2
32432 DATA 96,164,161,4
32433 DATA 72,164,161,4
32434 DATA 81,162,160,2
32435 DATA 173,163,161,4
32436 DATA 85,162,160,2
32437 DATA 85,164,161,8
32438 DATA 64,164,161,8
32439 DATA 108,162,160,2
32440 DATA 162,163,161,4
32441 DATA 57,162,160,2
32442 DATA 64,162,160,2
32443 DATA 255,163,161,4
32444 DATA 0,160,160,16
32445 DATA 0,160,160,16
32446 DATA 0,160,160,16
32447 DATA 128,163,161,4
32448 DATA 173,163,161,4
32449 DATA 162,163,161,4

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono
32763 REM Adam Klobukowski
32764 REM Seban/Slt

Idź do forum: Różne

153 Temat przez mono

(29 odpowiedzi, napisanych Różne)

Jako że ostatnio zaczęliśmy z dużym opóźnieniem, latoś wystartujmy z dużym zapasem.

Zasady jak łońskiego roku:
1. Atari BASIC (uruchamiać można w dowolnym np. Turbo BASIC XL żeby było szybciej).
2. Można, a nawet TRZEBA dopisywać swoje linie.
3. Przenosić, usuwać, lub modyfikować linie można ale bez szkody dla funkcjonalności zaimplementowanej przez innych uczestników (poprawki ewentualnych bugów mile widziane).
4. Wszystko kończy się 2 IV 2024 CEST o godzinie 0:00.
5. Nagrodą jest przednia zabawa i satysfakcja, że odwaliło się kawał dobrej, nikomu niepotrzebnej roboty.

UWAGA! Pamiętać należy, że w Niedzielę Wielkanocną czyli 31 III przestawiamy zegarki godzinę wprzód!

Zatem Prima Aprilis Compo Roku Pańskiego 2024 czas zacząć!

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM MONO

Idź do forum: Różne

154 Odpowiedź przez mono

(118 odpowiedzi, napisanych Programowanie - 8 bit)

To samo. Etykiety mogą być bez dwukropka.
Ale dodatkowo

    opt o+ h+ ?+ c-

WIDTH=10

.macro test (y,x)
    lda $2000+[WIDTH*%%x],x
    sta $3000+[8*%%y],y
.endm

    org $2000

    test 1,2

    end

też generuje:

jerzyk@ox:~/atari$ mads -l test4.asx 
        test 1,2
        lda $2000+[WIDTH*%%x],x
test4.asx (9) ERROR: Undeclared label X (BANK=0)
        sta $3000+[8*%%y],y
test4.asx (10) ERROR: Undeclared label Y (BANK=0)
Writing listing file...

Za to jak jest OPT ?- to się pięknie kompiluje.

Idź do forum: Programowanie - 8 bit

155 Odpowiedź przez mono

(118 odpowiedzi, napisanych Programowanie - 8 bit)

Taki kod:

        opt o+ h+ ?+ c-

.macro check (x)
        lda myproc+40*:1,x
        beq @+
        lda #1
@
.endm

        org $2000

myproc:
        ldy #0
        seq
?copy   check $10
        dey
        bpl ?copy
        rts

        end

Rzecz polega na tym, że przy OPT ?+ (etykiety lokalne) i użyciu @ w makrze kod się nie kompiluje.

jerzyk@ox:~/atari/$ mads -l test.asx 
        bpl ?copy
test.asx (20) ERROR: Undeclared label ?COPY (BANK=0)
test.asx (20) ERROR: Branch out of range by $1F0F bytes
Writing listing file...

Jak nie ma etykiet lokalnych lubo też nie używamy odwołań @ to się kompiluje...

mads 2.1.7 (2024/03/01)

Idź do forum: Programowanie - 8 bit

156 Odpowiedź przez mono

(44 odpowiedzi, napisanych Zloty)

I na zeszyt.

alex napisał/a:

imputować zwolennikom promocji picie na umór, skąpstwo czy rzucanie się na tanią wodkę z dyskontów, bo jest to niesmaczne i nieeleganckie.

Tania wódka z dyskontów jest niesmaczna? Z których? I palcem, i po nazwisku proszę, bo nie chciałbym przy jakiejś eleganckiej okoliczności się dać naciągnąć.

Idź do forum: Zloty

157 Odpowiedź przez mono

(21 odpowiedzi, napisanych Software, Gry - 8bit)

Na wilda na Losta :)

Idź do forum: Software, Gry - 8bit

158 Odpowiedź przez mono

(25 odpowiedzi, napisanych Programowanie - 8 bit)

Był, ale to jak już ktoś chce być nie tylko grzeczny, ale i dodatkowo bardzo miły.

Edit: A niektóre takie wybieraczki sprawdzały czy załadowany jest SDX i w jakiej konfiguracji http://atariki.krap.pl/index.php/Progra … mi%C4%99ci a nawet zaznaczały bank systemowy jako potencjalnie niedostępny.

Idź do forum: Programowanie - 8 bit

159 Odpowiedź przez mono

(25 odpowiedzi, napisanych Programowanie - 8 bit)

Nie ma czegoś takiego, jak czysty bank pamięci, bo nikt ich nie czyści po RESET (i słusznie, bo inaczej żaden ramdysk nie przetrwał by RESETu), a zarządzanie nawet jak jest to przy zwalnianiu niczego nie czyści bo i po co?
Więc wszystko jest Twoje! :D
A jak chcesz być grzeczny i ograniczyć ryzyko uszkodzenia czegoś, to bierzesz procedurę http://atariki.krap.pl/index.php/Obs%C5 … 4%99ci_RAM , wykrywasz ilość XRAM i pakujesz się do tylu pierwszych z listy ile potrzebujesz do swoich celów.

Idź do forum: Programowanie - 8 bit

160 Odpowiedź przez mono

(4 odpowiedzi, napisanych Programowanie - 8 bit)

jmp (DOSVEC)

Idź do forum: Programowanie - 8 bit

161 Odpowiedź przez mono

(125 odpowiedzi, napisanych Fabryka - 8bit)

Dwie rzeczy:

1. Czy obok dziesiątkowego, szesnastkowego i dwójkowego mógłbyś dodać do MADS-a system czwórkowy np. z prefiksem '&' ? To ułatwiłoby kodowanie grafiki multicolor, bo wtedy np.

  .byte &0000
  .byte &0010
  .byte &0111
  .byte &0101
  .byte &0111
  .byte &0111
  .byte &0101
  .byte &0000

już byłoby dość czytelne. Może być inny prefiks.

2. Chodzi o rozszerzanie definicji typu wyliczeniowego. Bo dzisiaj np. da się enuma rozszerzać stosując:

.enum DIGIT
  ZERO = 0
.ende

.enum DIGIT
  ONE = 1
.ende

.enum DIGIT
  INF = $FF
.ende

  lda #DIGIT.ZERO
  ldx #DIGIT.ONE
  ldy #DIGIT.INF

wygeneruje listing z poprawnymi wartościami dla LDA, LDX i LDY, ale finalnie zaskutkuje błędem uniemożliwiając wygenerowanie pliku wynikowego.
Czy mógłbyś więc zmienić błąd na zaledwie warning?

Idź do forum: Fabryka - 8bit

162 Odpowiedź przez mono

(893 odpowiedzi, napisanych Scena - 8bit)

Uważaj, bo dostaniesz malowanie waginą. Albo pędzlem...

Idź do forum: Scena - 8bit

163 Odpowiedź przez mono

(16 odpowiedzi, napisanych Fabryka - 8bit)

Gienek napisał/a:

Jak carta nie ma to widzimy FF.

To tylko częściowo prawda. W komputerach gdzie magistrala jest pull-upami podciągnięta do 5V pojawią się $FF-y, ale tam gdzie ich nie ma dostaniesz losowe wartości wynikające ze stanów nieustalonych. Krótko mówiąc - tam nie muszą być $FF-y i nie wolno na tym polegać.

Gienek napisał/a:

Ale migracja dotyczy tylko(?) ROM. Więc w obszarze 55XX żadne FF się nie pojawią (?).

$D5XX - nie pojawią się.

Gienek napisał/a:

Czy w ATARI bez żadnych modyfikacji jest jakakolwiek szansa dostać się pod RAM $D5XX?

Nie ma szans.

Gienek napisał/a:

Czy zapis na $D5XX zawsze idzie do carta, czy w zależności od PORTB jest w stanie trafić gdzieś indziej?

Zawsze idzie do carta.

Gienek napisał/a:

Jeżeli jest SELFTEST to zapis w $5000 idzie na manowce czy zapisze pod RAM "pod spodem"?

Nie zapisze. Tu nie ma jak w C= że zapis do ROM trafia do RAM.

Idź do forum: Fabryka - 8bit

164 Odpowiedź przez mono

(16 odpowiedzi, napisanych Fabryka - 8bit)

I tak działają cartridge z Bounty Bob.

Idź do forum: Fabryka - 8bit

165 Odpowiedź przez mono

(16 odpowiedzi, napisanych Fabryka - 8bit)

Gienek napisał/a:

Więc bit PORTB (dla SelfTestu) chyba nie wpływa na D5 tylko na 50.

Oczywiście. Chodziło mi o to, że RAM jest podłożony pod całą pamięć Atari - pod $D000-$D7FF również. W standardowym komputerze ta pamięć nie jest dostępna, bo PORTB mapuje ROM z $D000-$D7FF w $5000-$57FF. Po instalacji xxl-owego MapRAM-u można za pomocą PORTB przemapowywać też RAM w $D000-$D7FF w $5000-$57FF.
Na stronie $D5 znajdują się rejestry sprzętowe, ale nie RAM/ROM dlatego procedury CopyFrom/CopyTo nie mają tu nic do roboty. Coś tam jest innego zepsute, ale gdzie?

Idź do forum: Fabryka - 8bit

166 Odpowiedź przez mono

(16 odpowiedzi, napisanych Fabryka - 8bit)

Gienek napisał/a:

Jakie D0? Coś tu jest więcej zakręcone...

To oznacza, że breakpoint ustawiany przez BPC jest nieaktywny. Mnie chodziło o breakpointa ustawianego przez B.

Gienek napisał/a:

Jak było samo "GetByte" to D(isassembly) pokazywało kod poprawnie ale procek leciał na manowce.
Jak dodałem MEMORY_CopyFromCart to ruszył mi zarówno tester jak i inny programik co robię, który to na rzeczywistym sprzęcie też działa.

Wygląda na to, że emulator robi jakieś przebitki z pamięci - przedziwne. Musi jakiś bug.

Gienek napisał/a:

Nie mam za bardzo porównania, bo w sumie to nie spotkałem się z kombinacją, że procek wykonuje kod na stronie D5xx. A przecież nie ma ku temu żadnych przeszkód.

Cartridge typ 47 "AST 32 KB cartridge" mapuje swoją pamięć na $D5xx i patrzyłem co on robi zanim się zabrałem za oglądanie Twojego.

Idź do forum: Fabryka - 8bit

167 Odpowiedź przez mono

(16 odpowiedzi, napisanych Fabryka - 8bit)

Mnie się wydaje, że to co Fox mówi to jest zło i niedobro. MEMORY_CopyFromCart i MEMORY_CopyToCart służą do przerzucania pamięci między komputerem a cartridgem, a bajty na $D5xx w komputerze nie są pamięcią - adresy $D0xx-$D7xx są przecież mapowane w obszar $5000-$57FF i teraz zależnie od tego czy mamy tam ROM to pokaże się tam SELF-TEST, a jeśli jest włączony MapRAM to może tam się pokazać też RAM który jest w tym obszarze (o ile konfiguracja PORTB mówi żeby tę pamięć podłączyć). Więc jedyne co tak możesz zrobić to ustawić zawartość pamięci, ale odczyt pamięci w MEMORY_HwGetByte (memory.c) i tak do tego nie sięgnie, bo ten obszar kierowany jest to CARTRIDGE_GetByte.
Wygląda mi ten kod Twój dobrze, ale zwróć uwagę że w CARTRIDGE_GetByte masz

return GetByte(&CARTRIDGE_main, addr, no_side_effects) & GetByte(&CARTRIDGE_piggyback, addr, no_side_effects);

więc może masz jakiś przelotowy drugi cart zamapowany który zwraca coś na $D5xx. Albo może masz jakieś urządzenie włączone?
Albo coś zapisuje Ci $D5xx i przemapowuje bank? Próbowałeś ustawiać breakpointa na zapis do $D5xx?

b WRITE>=D500
b WRITE<=D5FF

Edit: Ale fiksacja :) Cart Ci działa poprawnie, a tylko listowanie kodu za pomocą D(isassembly) przy domyślnym adresie listuje Ci kod spod złego adresu :) Pooglądaj co się dzieje w monitor.c.

Idź do forum: Fabryka - 8bit

168 Odpowiedź przez mono

(224 odpowiedzi, napisanych Sprzęt - 8bit)

Bo to prawdopodobnie jest zwykły kod cyklujący zmiany w rastrze na obrazku. Można użyć czegokolwiek co trwa 6 cykli.

Idź do forum: Sprzęt - 8bit

169 Odpowiedź przez mono

(10,041 odpowiedzi, napisanych Bałagan)

xxl napisał/a:

dlaczego nie nazwali tego akwavita ?

To by była uzurpacja. Akwawita już jest! I działa całkiem nieźle ;P

Idź do forum: Bałagan

170 Odpowiedź przez mono

(10,041 odpowiedzi, napisanych Bałagan)

"Mieli do wyboru wojnę lub hańbę, wybrali hańbę, a wojnę będą mieli także."
Winston Churchil

Idź do forum: Bałagan

171 Odpowiedź przez mono

(10,041 odpowiedzi, napisanych Bałagan)

Jestem w ciężkim szoku. Wolność ma każdy - jeden postąpi jak idiota, ale drugi ją wykorzysta mądrze. W ustroju gdzie nie ma wolności, nie ma jej nikt - ani idiota, ani mądry.

Idź do forum: Bałagan

172 Odpowiedź przez mono

(14 odpowiedzi, napisanych Software, Gry - 8bit)

Super! Ale ten POKEY dzwoni na górze :) Ale JANUSZ PELC nie działa...

Idź do forum: Software, Gry - 8bit

173 Odpowiedź przez mono

(5 odpowiedzi, napisanych Różne)

Ładne, ładne... W pierwszej chwili przeczytałem "zupełnie zapomniałem o ogłoszeniu wyniku konkursu na nowe logo Last Party. Zwycięzcami zostali..." :)

Idź do forum: Różne

174 Odpowiedź przez mono

(206 odpowiedzi, napisanych Sprawy atari.area)

To jest retro! Silnik musi być stary. Zapominacie się Panowie :)

Idź do forum: Sprawy atari.area

175 Odpowiedź przez mono

(349 odpowiedzi, napisanych Fabryka - 8bit)

Drum Machine is a tool to play specified samples once you press a key (HELP, START, SELECT, OPTION, BREAK and SHIFT), push joystick in specific direction or press a trigger. This is a tool I made for Pinokio. He used to use it on his chiptune concertos. Sample playing speed is very arbitrary because by design it was used to play only drum samples, not for the music nor playing tones.

Edit: Try /A $D600 /O COVOX

Idź do forum: Fabryka - 8bit