Hi-Text ist als Programmbaustein zur Ergänzung von Grafikerweiterungen gedacht. Mit ihm lassen sich die im Zeichensatzspeicher vorhandenen 512 Zeichen im Quasi-Direktmodus vor, während oder nach der Erstellung einer Hires-Grafik darstellen.
Das Programm entstand aus folgender Überlegung: Zum Beschriften von Grafikbildern wäre ein Auswählen der Zeichen, der Farbe, des Darstellungsmodus und natürlich auch der Position beim »Schreiben« sehr viel geeigneter als beim Erstellen des Programms. Allein schon wegen der dadurch möglichen sofortigen Kontrolle und eventuellen Korrektur.
Ich glaube, daß alle, die mit Hires-Grafik umgehen, von dem Einsatz des Programms profitieren können.
Kurzbeschreibung
Hi-Text ist ein Programmodul zur Darstellung der im Char-ROM des C 64 vorhandenen 512 Zeichen auf dem Hires-Bildschirm. Eine Besonderheit gebenüber den aus diversen Befehlserweiterungen bekannten »TEXT«-Befehlen ist die Tatsache, daß die Zeichen nach Aufruf des Programms über die Tastatur quasi im Direktmodus eingegeben werden, nachdem Farbe, Darstellungsmodus und Position direkt gewählt wurden. Das Programm hat eine Länge von 542 Byte. Da Hi-Text die Startadressen von Bit-Map und VideoRAM selbsttätig errechnet, kann es auch mit Grafikerweiterungen zusammenarbeiten, die mehrere Grafikseiten verwenden.
Einsatzmöglichkeiten
Das Programm ist bewußt als Programmodul konzipiert, das heißt, es soll zu allen Grafikerweiterungen passen. Dazu ist es notwendig, daß es ohne allzu großen Aufwand verschiebbar ist, denn nicht bei jeder Grafikerweiterung kann das Programm ab Adresse $C000 bleiben (zum Beispiel Turtle-Grafik im 64'er, Ausgabe 11/84). Assemblerprogrammierer können das Programm durch Ändern der Startadresse im Quellprogramm in einen ihnen passenden Bereich verschieben. Um jedoch auch allen anderen eine freie Verwendung zu ermöglichen, habe ich das Hilfsprogramm (Listing 3) geschrieben. Es liest das Programm von Diskette ein, legt es am oberen Ende des freien Basic-Speichers ab und schützt es vor dem Überschreiben durch Basic. Das Programm wurde mit verschiedenen Basic-Erweiterungen getestet. Es arbeitete stets einwandfrei.
Während der Entstehung des Programms wurde Hires 3.1 (aus der 64'er, Ausgaben 2 und 3/85) veröffentlicht. Bei dieser Grafikerweiterung gibt es einen ungenutzten Bereich ab Adresse $89B8, der jedesmal mitabgespeichert wird. Hier bietet sich ein Einbau von »Hi-Text« geradezu an. Der erste Teil (Berechnung der Basisadressen) kann natürlich entfallen; es genügt die High-Bytes der Startadressen von Bitmap ($A0) und VideoRAM ($8C) direkt zu übergeben. Der Einfachheit halber ist das Programm »Hi-Text 2.0« (Listing 1) schon auf diesen Bereich abgestimmt. Eingebaut wird das Programm wie folgt:
Hi-Text 2.0 mit dem MSE eingeben und abspeichern,
SMON Laden.
Hires 3.1 Laden.HI-TEXT 2.0 laden.
Mit SMON die erweiterte Version Hires3.2 speichern. Aufgerufen wird das neue Unterprogramm mit SYS 35256. Der Vollständigkeit halber sei hinzugefügt, daß diese Version von Hi-Text den Bereich von $89B8-$8BD5 belegt und die Adressen bis $8BDD als interne Speicher benutzt. Ein kleines Programm (Listing 2) demonstriert die Wirkung von Hi-Text in Verbindung mit Hires-3.
Umgang mit dem Programm
Aufruf durch SYS Adresse .»Schreiben« wie im Direktmodus. Zum Beenden »RETURN« drücken (wichtig vor Hardcopies, damit der Cursor verschwindet!)
Und nun viel Spaß beim Schreiben und Zeichnen in der hochauflösenden Grafik!
(W. Gachot/gk)
Leserservice-Diskette
Auf der zu jeder 64'er-Ausgabe lieferbaren Diskette befinden sich auch die hier veröffentlichten Programme (Listing 1 bis 3) und Hires-3 mit integriertem Hi-Text. Laden Sie dann also nur Hires3.2 (mit …,8,1) und anschließend DEMO (..,8). Mit RUN starten. Nachdem sich der Cursor meldet, können Sie über die Tastatur beliebigen Text eingeben.
Listing 1. Hi-Text 2.0 kann in Hires-3 eingebaut werden, aber auch in andere Basic-Erweiterungen.
10 rem *** demo ***
20 rem hi-text ist integriert
30 rem aufruf mit sys 35256
40 poke56,128:poke52,128:sys 37498
50 hfl,7,6
60 for i=20to300 step 10
70 lin,i,0,160,199
80 lin,160,0,i,199
90 next
100 sys 35256
110 pau,5
120 hof
Listing 2. In Verbindung mit Hires-3 läuft dieses Demo-Programm.
10 rem hilfsprogramm zum verschieben von hi-text
20 rem erst das grafikprogramm laden und evtl. vor dem ueberschreiben
30 rem durch basic schuetzen!
40 printchr$(147):print
50 print"diskette mit 'hi-text' einlegen
60 print
70 print"dann return druecken!"
80 gett$:ift$<>chr$(13) then 80
90 sa=peek(55)+256*peek(56)-560
100 hs=int(sa/256):ls=sa-hs *256
110 poke55,ls :poke56,hs
120 poke51,ls :poke52,hs
130 open 1,8,2,"hi-text"
140 get#1,a$:ifa$="" then a$=chr$(0)
150 get#1,b$:ifb$="" then b$=chr$(0)
160 fori=0 to542
170 get#1,a$:ifa$="" then a$=chr$(0)
180 a=asc(a$)
190 poke sa+i,a
200 next
210 close1
300 rem aenderung der sprungadressen
310 i =sa+515:ih=int(i/256):il=i-ih*256
320 e =sa+ 85:eh=int(e/256):el=e-eh*256
330 s =sa+ 76:sh=int(s/256):sl=s-sh*256
340 r =sa+275:rh=int(r/256):rl=r-rh*256
360 pokesa+ 77,il:pokesa+ 78,ih
370 pokesa+120,il:pokesa+121,ih
380 pokesa+132,il:pokesa+133,ih
390 pokesa+144,il:pokesa+145,ih
400 pokesa+135,el:pokesa+136,eh
410 pokesa+322,sl:pokesa+323,sh
420 pokesa+434,sl:pokesa+435,sh
430 pokesa+513,rl:pokesa+514,rh
450 printchr$(147)
460 print"hi-text ist jetzt im speicher!"
470 print
480 print"aufruf mit sys";sa
490 new
Listing 3. Hi-Text kann mit diesem Programm verschoben werden, aber auch natürlich mit dem SMON
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen