Welcome, Guest. Please login or register.


Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Ferro73

Pages: [1] 2 3 4 5 6 7 8 ... 54
1
Assembly / Re: Assembly programozás
« on: Yesterday at 19:48 »
Ez így nem igaz.
Ez így nem teljesen igaz.
Meg akkor a ??? 0066h NMI  re is kell. Ki tudja milyen harware-ek lehetnek másoknál.
de akkor már felül írtad.
És ha IM2 használsz ?
Akkor már szabadon használhatod.

2
Assembly / Re: Assembly programozás
« on: 2021.November.30. 21:57:02 »
exos 5 esetében a 0100h alatti területre meddig nyújtózkódhatok?

Ha nem használsz több EXOS xx kódot akkor az egész 00h-FFFFh mindet.

3
BASIC / Re: Általános
« on: 2021.February.04. 22:22:13 »
Úgy emlékszem a 255 lapon megvan mind a 10 sor elmentett eleme igaz a megszakításnak menni kell.

Vagy a "Hasznos kis Basic programok" résznél  INAB5.BAS

4
BASIC programok átírása / Re:Escape (TVC)
« on: 2021.January.16. 20:54:02 »
Szerintem az is lassít, ha csak ott vannak a DATA sorok és nem olvassa be kétszer.
Lepróbáltam ha csak 1x fút a DATA sor(ok) akkor nincs jelentősége, hogy kint vagy bent.

5
BASIC / Re: Általános
« on: 2021.January.16. 20:50:03 »
Mit hibáztam ?
Code: [Select]
  100 TIME "00:00:00"
  110 FOR X=1 TO 3000
  120   DATA 1,2,3,4
  130   READ A,B,C,D
  140 NEXT
  150 PRINT TIME$
  160 END
Code: [Select]
START

*** Out of data in READ/INPUT
130   READ A,B,C,D
print x
2
ok
Az új DATA sor bekellene vinnie  az adatokat a memoriába.

6
BASIC programok átírása / Re:Escape (TVC)
« on: 2021.January.15. 22:07:14 »
Mivel a Basic egy interpreter, időbe telik, amíg a DATA sorokat végigcsámcsogja a szubrutin végén és nem csinál velük semmit. Le lehetne tesztelni, mennyivel fut gyorsabban, ha nem a rutinon belül vannak. Zzzipnél lehet, hogy mindegy.

Leteszteltem BASIC-ban gyorsabb.
Nem kell 2x átrágnia a DATA sorokat

Ennek tényleg lehet jelentősége, hogy a DATA sorok a DEF-en belül vannak-e vagy nem? Tudom, hogy külön a program végére illene tenni az összes DATA sort. Csak azért teszem oda, ahol a READ is van hozzá, mert úgy át tudom látni, mihez mi tartozik.
Az nem gond ha belül van. Az már igen ha 2x is betöltöd.
Először a RESTORE  beállítja a READ  DATA-it ez ok.
Majd megint a DATA sor előre beolvassa a memóriába  amit később kiolvashatsz READ-al. Mind addig amig nem jön egy RESTORE mer akkor törli ami a memóriában van.
Új variáció, Így szintén jó.
Code: [Select]
xxx1 RESTORE
xxx2 DATA 1,2,3,4
xxx3 READ A,B,C,D


Javaslat:
A
Code: [Select]
3880     GOSUB 4840
Mivel ez az egyetelen hivatkozás ezért a
Code: [Select]
4840 FOR K=1 TO 10
 4850   IF (K BAND 1)=0 THEN
 4860     SET #EX:INK 3
 4870   ELSE
 4880     SET #EX:INK 2
 4890   END IF
 4900   PRINT #EX,AT 1,EY:DEAD$;
 4910   SOUND PITCH K+32,DURATION 1,LEFT 96,RIGHT 96
 4920   SOUND SOURCE 1,STYLE 48,DURATION 3,INTERRUPT,PITCH 42+K*3,RIGHT 8*EY-1,LEFT 255-(8*EY-2)
 4930   FOR PPP=1 TO 120
 4940   NEXT PPP
 4950 NEXT K
 4960 SET #EX:INK 0:PRINT #EX,AT 1,EY:CHR$(159);:SET #EX:INK 2
 4970 FOR PPP=1 TO 600
 4980 NEXT PPP
15 sort 3871-3889 közé bezsufolhatod.

7
BASIC programok átírása / Re:Escape (TVC)
« on: 2021.January.15. 18:19:52 »
Javaslat:
Code: [Select]
5440 DEF PALGAME !LET C0=0:LET C1=10:LET C2=91:LET C3=41
 5450   RESTORE 5500
 5460   FOR I=3 TO 24
 5470     READ J0,J1,J3
 5480     SET #I:PALETTE J0,J1,C2,J3
 5490   NEXT I
 5500   DATA 0,130,121
 5510   DATA 64,130,233
 5520   DATA 8,130,105
 5530   DATA 72,18,41
 5540   DATA 8,18,97
 5550   DATA 64,18,41
 5560   DATA 0,146,105
 5570   DATA 32,146,233
 5580   DATA 96,146,121
 5590   DATA 40,146,233
 5600   DATA 104,146,105
 5610   DATA 40,210,41
 5620   DATA 96,210,97
 5630   DATA 32,210,41
 5640   DATA 0,210,105
 5650   DATA 64,154,233
 5660   DATA 8,154,121
 5670   DATA 72,154,233
 5680   DATA 8,154,105
 5690   DATA 64,218,41
 5700   DATA 0,218,97
 5710   DATA 32,218,33
 5720 END DEF
helyette:
Code: [Select]
5440 DEF PALGAME !LET C0=0:LET C1=10:LET C2=91:LET C3=41
 5450   RESTORE 5500
 5460   FOR I=3 TO 24
 5470     READ J0,J1,J3
 5480     SET #I:PALETTE J0,J1,C2,J3
 5490   NEXT I
 5495 END DEF
 5500 DATA 0,130,121
 5510 DATA 64,130,233
 5520 DATA 8,130,105
 5530 DATA 72,18,41
 5540 DATA 8,18,97
 5550 DATA 64,18,41
 5560 DATA 0,146,105
 5570 DATA 32,146,233
 5580 DATA 96,146,121
 5590 DATA 40,146,233
 5600 DATA 104,146,105
 5610 DATA 40,210,41
 5620 DATA 96,210,97
 5630 DATA 32,210,41
 5640 DATA 0,210,105
 5650 DATA 64,154,233
 5660 DATA 8,154,121
 5670 DATA 72,154,233
 5680 DATA 8,154,105
 5690 DATA 64,218,41
 5700 DATA 0,218,97
 5710 DATA 32,218,33
 5720 REM
Rengeteg felesleges memóriát használ fel és felesleges idő pocsékolás.

8
BASIC programok átírása / Re:Escape (TVC)
« on: 2021.January.14. 20:00:13 »
További:
Code: [Select]
5000 DEF VIDEOINI
 5010   SET VIDEO X 32:SET VIDEO Y 1:SET VIDEO MODE 15
 5020   OPEN #1:"video:"
 5030   OPEN #2:"video:"
 5040   SET #1:PALETTE 32,254,111:SET #2:PALETTE 96,182,109
 5050   RESTORE 5110
 5060   FOR I=33 TO 54
 5070     OPEN #I:"video:"
 5080     READ J,K
 5090     SET #I:PALETTE J,K,217,123
 5100   NEXT
 5110   DATA 32,1,32,1
 5120   DATA 176,211,176,1
 5130   DATA 48,186,48,1
 5140   DATA 160,1,160,1,32,1
 5150   DATA 104,221
 5160   DATA 104,1,40,1
 5170   DATA 40,1,64,1
 5180   DATA 148,190
 5190   DATA 148,1,20,1,20,1
 5200   DATA 84,1,28,2
 5210   DATA 84,1,0,1
 5220   SET VIDEO MODE 1:SET VIDEO COLOR 1
 5230   FOR I=3 TO 24
 5240     OPEN #I:"video:"
 5250   NEXT I
 5260 END DEF
A DATA sorokat vagy a DEF-en kívül vagy a 5041-5059 sorba áthelyezni

Milyen "video:" a játék mező ATTRIBUTOM ?

9
BASIC programok átírása / Re:Escape (TVC)
« on: 2021.January.14. 19:38:01 »
Lehetséges javaslatok?
Code: [Select]
  230 RESTORE 3060
  240 READ T1$,T2$,T3$,T4$,T5$

 3060 DATA "**** **** **** **** ***  ****"
 3070 DATA "*    *    *    *  * *  * *   "
 3080 DATA "**** **** *    **** **** ****"
 3090 DATA "**** **** *    **** **** ****"
 3100 DATA "**** **** **** *  * *    ****"
236 byte helyett 215 byte
Code: [Select]
230 LET T1$= "**** **** **** **** ***  ****"
231 LET T2$= "*    *    *    *  * *  * *   "
232 LET T3$= "**** **** *    **** **** ****"
233 LET T4$= "**** **** *    **** **** ****"
234 LET T5$= "**** **** **** *  * *    ****"

Code: [Select]
310 DATA 63,63,63,199,199,199,7,7,7,248,248,248,56,56,192,192a
Code: [Select]
  260 RESTORE 310sor helyére

340 sorig csak egyszer fút le.

10
BASIC programok átírása / Re:Multetris (TVC)
« on: 2020.December.27. 22:18:31 »

Másik eltérés a GET használata, TVC-n a GET A$ önmagában billentyűleütésre vár és nem is megy tovább, amíg nem ütünk le billentyűt. Ehhez EP-n 3 utasítás kell (ha nem akarjuk a GOTO-t használni):

DO
  GET A$
LOOP UNTIL A$=""

TVC-n erre egyetlen GET A$ elég.


Esetleg 2 sor:
Code: [Select]
xx    GET A$
      IF A$="" THEN xx
Vagy 1 sor
Code: [Select]
1000 IF INKEY$="" THEN 1000

11
Memória / Re: 512K belső RAM bővítés - II
« on: 2020.September.10. 20:39:41 »
Viszont a keletkező CE tüske hatással van az SRAM-ra.
Igen. Többet fogyaszt, azon kívül ?
Jó, utána kell nézni van-e speciális 'hatás' az adott SRAM IC-n. Pl.: blokk törlés
Bár nem valószínű.

(Elnézést a többiektől, de neki van (szerintem) legtöbb tapasztalata és tudása az eddig hozzászólók közül.)
Nincs gond. Elvégre Ő szakmabeli.
Igaz volt már olyan is, hogy egy vízvezeték szerelő állítását a csillagászok nem tudták meg cáfolni a csillagászattal kapcsolatban.

12
Memória / Re: 512K belső RAM bővítés - II
« on: 2020.September.09. 18:52:13 »

2) One advantage of SainT's board design is that it is relatively easy to piggyback 2 SRAM chips on top of each other to expand the board to 1024K.

Is that going to be possible with the SMT chip PCB that you are designing?

Ki zárt. Nagyon nehéz.
De nem lehetetlen.

~
Who's closed. Very hard.
But it is not impossible.

13
Memória / Re: 512K belső RAM bővítés - II
« on: 2020.September.09. 17:47:11 »
Nem SDRAM, hanem SRAM.
A RFSH-t meg azért kell figyelembe venni dekódolásnál mert az MREQ az frissítésnél is aktív, amely esetben nem szabad az SRAM IC-nek engedélyezőjelet generálni.
Mivel RFSH alatt nincs RD,WR aktiválva ezért az SRAM nincs hatása az adat buszra.
Ha csak ezért, akkor szabad, csak felesleges.
Mi a másik ok?

14
BASIC / Re: Dots and Gems 2
« on: 2020.September.08. 19:47:21 »
Most még nem. Fájlból tölti.

A progi mikor beolvassa a pályát rögtön ki is írja.
Én is azon gondolkoztam, hogy több DATA sort össze vonnánk.
És a STRING-eket össze fűznénk.
1. A BASIC sor paramétere nem lehet több 255 bájtnál.
2. nem tudom, hogy viselkedne a
Code: [Select]
.. DATA "asferferfer"&CHR$(10)&CHR$(13)&"aaaaaadhghjgad"&CHR$(10)&CHR$(13)&"aaaaaadhghjgad" .......
Így még kevesebb lenn a tárolás.
igen, pl megnezni, hogy pl ha egy szamhoz 2x2-es blokkokat rendelnel, befer-e 0-255 variacioba, ha igen, akkor ezzel majdnem a negyedere lehetne csokkenteni a meretet, de lehetne maskepp is nezni, pl, ha van sok ismetlodes, akkor az ismetlodeseknek egy speci, eddig nem szereplo szamot adni, majd letarolni az ismetlodesek szamat, majd annak az erteket, lehet bonyolultabban is, megnezni milyen patternekbol van sok, azokat kigyujteni, mindegyikhez egy eddig nem hasznalt szamot rendelni, es ezek alapjan beilleszteni a palyaba, es meg jopar modot meg lehet nezni.
Igen és a dekódoló rész mennyit emésztene fel ?

15
Memória / Re: 512K belső RAM bővítés - II
« on: 2020.September.06. 16:10:42 »
A függvények változtatását bővítését nem vállalom.
Akkor ennyi.

Pages: [1] 2 3 4 5 6 7 8 ... 54