Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 221832 times)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8620
  • 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: BASIC
« Reply #1425 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: 811
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
Re: BASIC
« Reply #1426 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: 13748
  • 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: BASIC
« Reply #1427 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: 8620
  • 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: BASIC
« Reply #1428 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 58 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: 8620
  • 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: BASIC
« Reply #1429 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: 5768
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: BASIC
« Reply #1430 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: 13748
  • 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: BASIC
« Reply #1431 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: 8620
  • 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: BASIC
« Reply #1432 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 55 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: 811
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
Re: BASIC
« Reply #1433 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: 8620
  • 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: BASIC
« Reply #1434 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 57 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: 811
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
Re: BASIC
« Reply #1435 on: 2020.June.11. 20:46:10 »
nekem se
de vissza írtam #1 re és 3E,01 be illesztve működik ... vagy nem ... betölt majd törlődik?

Offline szipucsu

  • EP addict
  • *
  • Posts: 8620
  • 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: BASIC
« Reply #1436 on: 2020.June.11. 21:21:59 »
betölt majd törlődik?
A VIDEO_INI-ben volt egy CLEAR FONT, az állította vissza. Most már működik!
Ezt a fontbetöltő eljárást csak tesztelés miatt tettem a program legelejére. Valójában később lenne a helye, a CLEAR FONT után, a CHARS eljárásban. De nem tudom, valójában érdemes-e kicserélni. Előnye az lenne, hogy gyorsabb. Hátránya, hogy a Zzzip esetleg nem örül az ilyen CODE és HEX utasításoknak, bár elvileg jól kéne kezelnie, de volt már, hogy nem jól kezelte. (Hogy melyik eljárás foglal kevesebb helyet, nem tudom.) Igaz, az is pont a most módosított karakterátíró eljárás volt, ami lehet, hogy hibás. Eredetileg valamilyen számítógépes újságból loptam. Kb. 20 éve voltam egy barátommal egy számítógépes kiállításon, ahol voltak újságok is, és az egyikbe belelapoztam és nagyon megörültem, hogy van benne Enterprise program, gyorsan kimásoltam tollal a jegyzetfüzetembe a programot. De ezek szerint a program valamiért nem tökéletes, de most már jó kell, hogy legyen.
* fontload version D2.ep128s (79 kB - downloaded 57 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: 811
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
Re: BASIC
« Reply #1437 on: 2020.June.11. 22:14:18 »
A "LOADING SOUND DATA" után nem látom de leáll.
nem hiányzik a "gems.env" fájl?

Offline szipucsu

  • EP addict
  • *
  • Posts: 8620
  • 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: BASIC
« Reply #1438 on: 2020.June.11. 22:29:33 »
nem hiányzik a "gems.env" fájl?
Ja, de igen. Az egész az összes fájllal a másik topikban van, itt van a legutóbbi verzió, amit eddig feltettem. Ezt csak a karakterbetöltősdi miatt tettem ide. Azóta kicsit fejlesztettem tovább is, majd felteszem azt is.
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: 811
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
Re: BASIC
« Reply #1439 on: 2020.June.11. 22:31:21 »
Úttörő áruház bejön SCROLL le -föl aztán leál valami hibával.