Welcome, Guest. Please login or register.


Author Topic: Általános (Read 249885 times)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8984
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 76.0 Firefox 76.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános
« Reply #1410 on: 2020.May.27. 14:40:52 »
Most akkor a töltés, vagy a mentés nem megy nálad? (nálam működik)
Biztos, h jó file-t töltesz be?
Működik.
Csak akkor nem működik, ha egy nagyobb basic program része. A most felrakott Dots and gems programba akartam belerakni, hogy betöltse a karakterkészletet, de ott már nem működött. Nem okoz hibát, egyszerűen olyan, mintha átugraná azt a részt.
Még tavaly Ferro73 az Entersnake-ben is máshogy oldotta meg a karakterkészlet betöltését, végül az ő spoke-os módszerét loptam el, csak az lassabb.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Povi

  • EP addict
  • *
  • Posts: 2087
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 83.0.4103.61 Chrome 83.0.4103.61
    • View Profile
    • http://povi.fw.hu
Re: Általános
« Reply #1411 on: 2020.May.27. 15:35:51 »
Csak a ZZZIP-pel lefordított változatban nem működik, vagy a nyers BASIC-ben se?

Egyébként azt tudom elképzelni, hogy akkor, amikor meghívod a függvényt, akkor nem a 255-ös szegmens van a 2-es lapon. És akkor rossz helyre tölti be a chr készletet.
Próbáld ki úgy, hogy berakod még ezt a CALL USR elé:

Code: [Select]
LET SZEG=IN(178)
OUT 178,255
ezt pedig a CALL USR után
Code: [Select]
OUT 178,SZEG
« Last Edit: 2020.May.28. 10:29:13 by Povi »
*** Speicherplatz zu klein

Offline szipucsu

  • EP addict
  • *
  • Posts: 8984
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 76.0 Firefox 76.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános
« Reply #1412 on: 2020.May.27. 16:21:52 »
Csak a ZZZIP-pel lefordított változatban nem működik, vagy a nyers BASIC-ben se?
Basic-ben se. Akkor majd kipróbálom a módszered.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline szipucsu

  • EP addict
  • *
  • Posts: 8984
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános
« Reply #1413 on: 2020.June.09. 17:03:37 »
Egyébként azt tudom elképzelni, hogy akkor, amikor meghívod a függvényt, akkor nem a 255-ös szegmens van a 2-es lapon. És akkor rossz helyre tölti be a chr készletet.
Próbáld ki úgy, hogy berakod még ezt a CALL USR elé:

Code: [Select]
LET SZEG=IN(178)
OUT 178,255
ezt pedig a CALL USR után
Code: [Select]
OUT 178,SZEG
Kipróbáltam, de így sem működik.
Először simán a hosszú program elejére az eredeti "fontos" részt:
* fonttolt.ep128s (54.03 kB - downloaded 132 times.)
Beleírva az OUT-os részt:
* font nemtölt.ep128s (54.63 kB - downloaded 132 times.)
Ha az első snapshotban, ha töröljük a programot és csak az elején a fontos részt hagyjuk meg, majd egy resetet nyomunk és futtatjuk, akkor működik.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 819
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
Re: Általános
« Reply #1414 on: 2020.June.09. 20:32:00 »
A program tele van egy rakat SET CHARACTER utasítással, semmi más nincs benne. És lenne egy DEF blokk, amit ha akarunk, meghívunk parancs üzemmódból, és akkor HEX, USR segítségével elmenti az egész karakterkészletet.

Az egyik kígyós játékba mintha beleraktam volna ezt a funkciót
Char Load / Char Save

Amúgy itt ez nem jó?

Újabb  darab.
CHARS_RD   A komplett karakter mátrixot olvassa be fájlból.
CHARS_WR  A komplett karakter mátrixot írja ki fájlba.
« Last Edit: 2020.June.09. 20:54:31 by Ferro73 »

Offline szipucsu

  • EP addict
  • *
  • Posts: 8984
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 83.0.4103.97 Chrome 83.0.4103.97
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános
« Reply #1415 on: 2020.June.10. 10:40:26 »
Az egyik kígyós játékba mintha beleraktam volna ezt a funkciót
Char Load / Char Save

Amúgy itt ez nem jó?
De, ez jó. Te valami SPOKE-s módszerrel csináltad, nem CODE és USR utasításokkal. De attól még működhetne az utóbbi is. Illetve működni működik, csak ha egy hosszabb basic programba kerül bele, ott már nem működik valamiért.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 819
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
Re: Általános
« Reply #1416 on: 2020.June.10. 20:50:09 »
Kipróbáltam, de így sem működik.
Először simán a hosszú program elejére az eredeti "fontos" részt:
(Attachment Link)
Beleírva az OUT-os részt:
(Attachment Link)
Ha az első snapshotban, ha töröljük a programot és csak az elején a fontos részt hagyjuk meg, majd egy resetet nyomunk és futtatjuk, akkor működik.
Ennyi erővel
Code: [Select]
  IN A,(0B2h)
  PUSH AF
  LD A,255
  OUT (0B2h),A
  LD A,1
  LD BC,0480h
  EX DE,HL
  EXOS 6
  POP AF
  OUT (0B2h),A
  RET

És ha nem #1 hanem #255 még az LD A,1 is megspórolod.
Így nem piszkál bele a BASIC a lapozásba.

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13946
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Általános
« Reply #1417 on: 2020.June.10. 21:01:30 »
Ha az első snapshotban, ha töröljük a programot és csak az elején a fontos részt hagyjuk meg, majd egy resetet nyomunk és futtatjuk, akkor működik.
Hiányzik a font fájl amit töltene :oops: Mondjuk egy RAMDISK-es verzió?

Offline szipucsu

  • EP addict
  • *
  • Posts: 8984
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános
« Reply #1418 on: 2020.June.10. 21:45:40 »
Hiányzik a font fájl amit töltene :oops: Mondjuk egy RAMDISK-es verzió?
Nálam reset után is ki kell adni, hogy :def_dev_disk, mert elfelejti néha:
* chrtolt ramdisk.ep128s (76.92 kB - downloaded 133 times.)
Ha kiadod, hogy NEW, majd a 100 alatti sorokat újra beviszed enterrel, majd reset, majd :def_dev_disk, majd START, akkor működik.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline szipucsu

  • EP addict
  • *
  • Posts: 8984
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános
« Reply #1419 on: 2020.June.10. 21:52:17 »
Ennyi erővel
Ezt hogyan lehet átalakítani CODE =HEX$ formára? Csak a RET-ről tudom, hogy az C9, csak mert a végén mindig az van. :D
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline geco

  • EP addict
  • *
  • Posts: 6041
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: Általános
« Reply #1420 on: 2020.June.11. 08:26:14 »
Ezt hogyan lehet átalakítani CODE =HEX$ formára? Csak a RET-ről tudom, hogy az C9, csak mert a végén mindig az van. :D
A legegyszerűbb módja, ha begépeled az EP128emu debuggerének második lapjának bal felső ablakába:
A 2000 (1 utasítás) majd enter
és sorról sorra gépeled a kódot, megkapod a hexa értékeket.

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13946
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Általános
« Reply #1421 on: 2020.June.11. 08:48:19 »
Ezt hogyan lehet átalakítani CODE =HEX$ formára?
ASMON-nal lefordítod BASIC programnak. Modernebb megoldás az István féle SJasmEP.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8984
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános
« Reply #1422 on: 2020.June.11. 17:34:30 »
Code: [Select]
 IN A,(0B2h)
  PUSH AF
  LD A,255
  OUT (0B2h),A
  LD A,1
  LD BC,0480h
  EX DE,HL
  EXOS 6
  POP AF
  OUT (0B2h),A
  RET
Kipróbáltam ezzel is, de nekem most sem működik. Az LD A,255 helyett LD A,FF-et írtam be, mert csak azt fogadta el, és még egy 00-t berakott utána:

* fontload version B.ep128s (77 kB - downloaded 129 times.)
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 819
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
Re: Általános
« Reply #1423 on: 2020.June.11. 18:26:06 »
Ezt merge -rezd

Csatorna 255

Code: [Select]
start
  IN A,(0B2h)
  PUSH AF
  LD A,0FFh
  OUT (0B2h),A
  LD BC,0480h
  EX DE,HL
  EXOS 6
  POP AF
  OUT (0B2h),A
  RET
  end
  

Így jobb
« Last Edit: 2020.June.11. 18:31:37 by Ferro73 »

Offline szipucsu

  • EP addict
  • *
  • Posts: 8984
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános
« Reply #1424 on: 2020.June.11. 19:12:29 »
Ezt merge -rezd

Csatorna 255
Nem tudom, mi lehet vele, de nekem most sem működik:
* fontload version C.ep128s (77.11 kB - downloaded 133 times.)
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos