szóval negy egyszerű az ilyen direkt memóra címzés.

Igen, ez a legnagyobb baja ennek a programnak, hogy fix helyen feltételezi a szöveges lapot.
Ezzel a kis programmal ki lehet számolni az adott sor kezdőcímét:
 100 LET LPTADDR=PEEK(49141)*256+PEEK(49140)
  110 FOR SOR=1 TO 20
  120   LET N=SOR*16+4+LPTADDR
  130   LET SORCIM=PEEK(N)+PEEK(N+1)*256-16384
  140   PRINT SORCIM
  150 NEXT
A fenti programból kibányászva a képletet, és a kívánt sor kezdőcímét a SORCIM változóba eltéve, az alábbi két sort kell módosítani a fényújságos progiban:
160 POKE SORCIM+39,ORD(A$)
270 CALL USR(BALRA,SORCIM)
Így 0. sorba kiszámolva a STATUS sorba is tudunk írni!

Egyébként... nem kapcsolódik, de ez tényleg egy széles görgetés.... Geco készítette, Hans TMTLogic számára, éppen két napja.

------------------

By the way... not related but this is really a wide scroll.... Made by Geco for Hans TMTLogic just two days ago.





Edit: ez egy csodálatos példa arra, hogyan lehet abszolút címekkel relokálhatóvá tenni egy gépi kódot. Én ezt Prodatron stílusnak hívom... mert így működik a SymbOS.

---------------------

Edit: it is a wonderful example on how to make relocatable a machine code with absolute addresses. I call it Prodatron style... because is the way SymbOS works.

Még szerencse, hogy Povi figyelt az EXOS kompatibilis programozás órákon!

Az eredeti program csak és kizárólag 128-as, magnós gépen futott helyesen. Ha bármi plusz ROM, vagy RAM van a rendszerben, már nem stimmel a képernyő kezdőcím.

Mondjuk azt a részt se értem, minek pókolni a szöveget, ahelyett, hogy PRINT AT-tal odaírná

Már a Text 80 módot se csípi.

Igen mert a TEXT 80 az valójában grafikus. Olyan scroll rutin kéne, ami egymás alatt 9 pixelsort mozgat egyszerre.

Igen mert a TEXT 80 az valójában grafikus. Olyan scroll rutin kéne, ami egymás alatt 9 pixelsort mozgat egyszerre.

Nem szerencsés, CPC-n grafikus módban megy ugyanaz, mint EP-n karakteres módban, és nem fér bele 1 frame-be a 8 karakter sor frissítése, a leggyorsabb verzióba belefér, de akkor csak fél karakter szélességben van megjelenítve 1 pixel.

Minden karakterhatár 0. és 7. bitje adja a színkódot. A 80 oszlopos görgetés meghamisításához jobb, ha nagy felbontású grafikus módot használ.

---------------------

Bit 0 and 7 of every character boundary make the colour code. It is better to use a hires graphics mode for a fake 80 Columns scroll.

Nem nyerünk vele sajnos semmit, mert ugyanúgy 1 karakterre 8 byte-ot kéne írni 2 szín grafikus módban
Egy megoldás lehetséges, ha töröljük a VRES bitet az EXOS LPT összes LPB-jében, akkor elég 1 byte/karakter írás, ez lehet színkód bit, ha MS BALT vagy LS BALT, vagy mind a kettő be van állítva, ha nem, akkor egy jól irányzott 0ffh -val egy telített karaktert jeleníthetünk meg az adott pozícióban.

It does not save us any data writing, because we have to write 8 bytes for 1 character also in 2 colour graphics mode
There is one solution, if we clear VRES bit of each LPB of EXOS LPT, in this case we can write 1 byte/character, it can be colour code, if MS BALT, or LS BALT or both are set, if not by writing 0ffh then 1 full character will appear in that position.

Code: [Select]

 100 PROGRAM "MIMANO.BAS"
  110 TEXT
  120 ALLOCATE 12
  130 CODE BALRA=HEX$("3e,20,54,5d,23,01,27,00,ed,b0,12,c9")
  140 LET LPTA=PEEK(49141)*256+PEEK(49140)
  150 LET SOR=0
  160 LET N=SOR*16+4+LPTA
  170 LET SORCIM=PEEK(N)+PEEK(N+1)*256-16384
  180 READ A
  190 FOR I=1 TO A
  200   READ A$
  210   POKE SORCIM+39,ORD(A$)
  220   CALL VAR
  230 NEXT
  240 FOR I=1 TO 40
  250   CALL VAR
  260 NEXT
  270 RESTORE
  280 GOTO 180
  290 DEF VAR
  300   FOR Q=1 TO 25
  310   NEXT
  320   CALL USR(BALRA,SORCIM)
  330 END DEF
  340 DATA 38,E,n,t,e,r,p,r,i,s,e,f,o,r,e,v,e,r,.,c,o,m," ",H,e,l,l,o," ",e,v,e,r,y,b,o,d,y,"!"


Azért SPEEK, SPOKE vel hasznosabb lett volna akkor ZZZIp elhető lenne.