2-50 - Elektor Februar 1981 Junior-Text

Der Artikel enthält einen Beitragvon U. Seyffert

Die Monitor-Routine SCANDS zeigt denInhalt der drei Displaypuffer POINTH,POINTL und INH auf dem Displayan.Bei der Anzeige handelt es sich aus-schließlich um die Hexadezimalzifferno . . . F. Die ausführliche Beschreibunghierzu enthält das Buch "Junior-Computer 2" in Kapitel 7.Für die Textwiedergabe ist also dieMonitor-Routine nicht geeignet. Das giltauch für die Subroutine SHOW, die denInhalt irgendeines Displaypuffers zumDisplay transportiert. Die SubroutineSHOW muß eine angepaßte Code-Tabelle erhalten, die für jede Ziffer undfür jeden Buchstaben das entsprechendeSiebensegment-Äqu ivalent enthält.

Warum soll der Junior-Computerauf seinem Display nurhexadezimale Ziffern anzeigen?Es gibt eigentlich kein vernünftigesArgument dafür, wohl abergenügend dagegen. Deshalb heißtdie Alternative: Anzeige alleralphanumerischen Zeichen auf demDisplay des Junior-Computers.Und das ist tatsächlich möglich.Allerdings muß man an dieLesbarkeit verschiedenerBuchstaben wegen der Sieben-segment-Darstellung einigeKonzessionen machen. Diesenkleinen Nachteil gleicht dieMöglichkeit der Textanzeige aberwieder aus. Um so mehr, wennman noch zwischen einemstatischen Schriftbild und einerdynamischen Schrift wählen kann.Bei der letzteren Art handelt essich um ein Schriftband bzw. umeine Laufschrift.Wie kann nun der Junior mitseinem Display einen bestimmtenText wiedergeben? Eineinteressante Frage, auf die dernachfolgende Artikel die Antwortgibt.

Tabelle 1

o 401 792 243 :304 195 126 027 788 009 10A 08B(b) 03C 46D(d) 21E 06F OE

Eine Übersicht der zur Verfügung ste-henden Ziffern und Buchstaben zeigtTabelle 1. Aus ihr gehen auch die Datenhervor, die für die Anzeige der entspre-chenden Ziffer oder des Buchstaben inPort A stehen müssen. Zugegeben:Buchstaben mit schrägen Strichen - ins-besondere die Buchstaben M, N, V, W,X - haben wegen der nur horizontalenund vertikalen Segmentdarstellung we-nig Ähnlichkeit mit ihrem natürlichenAbbild. Doch die Erfahrung zeigt, daßsich auch mit den etwas abstraktenSchriftzeichen leben läßt.Zunächst ein Programm, das ein Wortmit maximal 6 Buchstaben kontinuier-lich anzeigt. Zum Beispiel, das Wort"Junior", so wie man es auf dem Titel-bild zum Elektorheft 113 (Mai 1980)und den beiden Buchtiteln der Junior-Computerbücher sieht. Das ProgrammJUNIOR ist in Tabelle 2 aufgelistet.Die angepaßte Subroutine SHOW heißtnun SHOWDS und die Code-Tabelle, diefür jedes Display die entsprechendenDaten enthält, ist TXT (Textspeicher) .Das Y-Indexregister arbeitet nicht nurals Displayzähler/Textindex, sondern esübernimmt abwechselnd folgende Auf-gaben: Zuerst ist es für den Multiplex-ablauf des Displays verantwortlich. Eszählt von 00. . .05. Nimmt nach demBefehl INY das Y-Register den Wert 06an, springt es automatisch auf denAusgangswert 00 zurück (Sprung nachDISMPX) für eine neue Anzeige. Wäh-rend der Subroutine SHOWDS arbeitetdas Y-Register als Zähler für die Anzei-gezeit. Vor dem Sprung in die Sub-"routine SHOWDS muß der Inhalt desY-Registers (Displayzähler/Textindex)abgespeichert werden; das geschieht beiTEMPY (0004).Die Funktion des X-Registers ist die

Tabelle 2

JUNIOR

DISMPX

ONEDIS

TXT

a 20 M 48b 03 n 2Bc 27 0 23d 21 P OCe 04 q 18E 06 r 2FF OE s 52G 42 s(5) 12g(9) 10 t 07h OB u 63H 09 V 41i 7A W 01i 6F X 36J 72 Y 11K OA Z 64L 47 sp 7F

3F

0200 A97F LDA#7F0202 8D 81 1A STA-PADD PBO. . . PB6 Ausgang0205 A208 LDX # 080207 A000 LDY # 00 Displayzähler Y = 000209 8404 .-- STY-TEMPY Displayzählerstand abspeichernG2GB 20 17 02 JSR-SHOWDS lasse Anzeige aufleuchten020E A404 LDY-TEMPY hole den Zählerstand zurück0210 C8 INY Zählerstand erhöhen0211 C006 CPY #06 sind alle 6 Displays angezeigt?0213 F0 F0 BEQ DISMPX wenn ja: den Text von vorne beg.0215 D0 F2 BNE ONEDIS wenn nein: nächstes Display

SHOWDS 0217 B9 3G 02 LDA-TXT,Y Segmentäquivalent holen021A 8D 80 1A STA-PAD Äquivalent in Port A geben0210 8E 82 1A STX-PBD Display einschalten0220 A07F LDY #7F

DELAV 0222 88

DEY }. b' Z . .0223 10 FDBPL DELAV eine estlmmte elt anzeigen

0225 8C 80 1A STY-PAD Y = FF nach Port A0228 A006 LDY # 06022.A. 8C 82 1A STY.PBD Display ausschalten022D E8 INX } bereite das nächste Display vor022E E8 IN X022F 60 RTS0230 61 "J" Code-Tabelle0231 63 "u" V = Textindex0232 2B "n" (V = 00 . . . (5)0233 6F "i"0234 23 "0"0235 2F "r"

Junior-Text

Tabelle 3

Elektor Februar 1981 - 2-51

JUNTXT 02000201020502070208020A

BEGIN 020C020E

DSTIME 02100212

DISMPX 02140216

ONEDIS 0218021A021B021C021E021F02220224022502270229

TMECHK 022B022D022F0231023302350237

SHOWDS 0239023C023F0242

DELAY 024402450247024A024C024F02500251

A97F8D 81 1AA50038E9058502A90085 01A96F85 03A208A000840498186501A820 39 02A404C8C006F002D0EDC603D0 E5E601A502C501B0 D990 D3B9 00 038D 80 1A8E 821AA07F8810 FD8C 801AA0068C 821AE8E860

LDA # 7FSTA-PADDLDA-NUMSECSBC # G5STA-NUMCOR NUMCOR +-NUM minus G5LDA # G0STA-NUMVAR erster Display textLDA # 6FSTA-DISCNT Textzeit festlegenLDX#08LDY # 00 Displayzähler Y =GGSTY-TEMPY Displayzählerstand abspeichernTYA Y nach AccuCLC C =GADC-NUMVAR Y +-Y + Inh. NUMVAR (0001)TAY Accu nach YJSR-SHOWDS lasse die Anzeige aufleuchtenLDY-TEMPY hole den Zählerstand zurückINY Zählerstand erhöhenCPY # G6 sind alle 6 Displays angezeigt?BEQ TMECHK wenn ja: nächste ZeitkontrolleBNE ONEDIS wenn nein: nächstes DisplayDEC-DISCNT Anzeigezeit beendet?BNE DISMPX wenn nicht: eine weitere RundeINC-NUMVAR wenn ja: folgenden Text anzeigenLDA-NUMCORCMP.NUMVARBCS DSTIMEBCC BEGINLDA.TXT,YSTA-PADSTX-PBDLDY # 7FDEYBPL DELAYSTY-PADLDY # G6STY-PBDINXINXRTS

PB0 . . . PB6 AusgangInhalt NUM 100001 nach AccuC =1

Ist der gesamte Text angezeigt?wenn nein: folgenden Text anzeigen

.wenn ja: Text von vorne beginnen

siehe ProgrammJUNIORTextindex:Y + Inh. NUMVAR

gleiche wie bei der Subroutine SHOW:es arbeitet als Displayschalter überPort B. Es nimmt die Werte 08, 0A, 0C,0E, 10 und 12 ein.

Nun etwas beweglicherSchön, ein maximal sechs Zeichenumfassendes Wort auf dem Display desJuniors ist doch schon etwas. Warumerscheint eigentlich nicht nach einigerZeit ein neues Wort? Und, wenn mansinnvolle Worte aneinander reiht, garganze Sätze? Zwei gute Fragen - dieAntwort: Es geht tatsächlich. Mit demProgramm JUNTXT aus Tabelle 3 kannman ein Lichtband bzw. eine Lauf-schrift auf dem Display des Juniorsrealisieren. Das neue Programm ist nureine Erweiterung des ProgrammsJUNIOR aus Tabelle 2. Als Textspeicherdazu ist Seite 03 vorgesehen. Es eröffnetdie Möglichkeit, insgesamt 256 Ziffernund Buchstaben anzuzeigen. Und das istdoch schon eine ganze Menge.Die bereits bekannte SubroutineSHOWDS aus Tabelle 2 wird auch indem neuen Programm benutzt, aller-dings mit zwei Unterschieden:1. Der Textspeicher beginnt bei 0300

und nicht bei 0230.2. Es besteht ein Unterschied zwischen

dem V-Wert als Displayzähler unddem V-Wertals Textindex. Esgilt: Text-index = Zählerstand + Inhalt NUMVAR(Adresse 0001). Während der Anzeige-zeit für einen bestimmten Text (die Zeit,..

ist einstellbar mit dem Inhalt von 0211).ist der Wert von NUMVAR konstant. Istdie Anzeigezeit abgelaufen, erhöht sichder Inhalt von NUMVAR um eins: derText auf dem Display rutscht deshalbum eine Stelle nach links, und auf demrechter:! Display erscheint ein neuerBuchstabe. Der Inhalt der Anzeige läuft.Ist der gesamte Text einmal durchge-laufen, nimmt der Inhalt von NUMVARgegenüber NUMCOR einen um einshöheren Wert an. Die Laufschrift be-ginnt wieder von vorne. Wieso? Nun,der Inhalt von NUMCOR ist 05 niedri-ger als der Inhalt von NUM, denn inNUM speichert der "Schriftsetzer"(Anwender) das rechte Adreßbyte ADLaus Seite 03, in dem der letzte Text-buchstabe steht.In Tabelle 4 ist ein Textbeispiel für dasProgramm JUNTXT aus Tabelle 3 an-gegeben. Der Text ist ein Feature füralle Besitzer des Juniors. Die sechs Leer-schritte am Anfang (7F) trennen Text-ende und Textanfang deutlich vonein-ander.Sobald (in naher Zukunft) die Interface-Karte verfügbar ist, braucht man denText und das Programm JUNTXT nichtmehr jedesmal neu einzutasten. Einmalgenügt, dann abspeichern auf Kassette,und das Programm steht immer zurVerfügung. M

Literatur:

Nachtmann A., Nachbar G.H.Junior-Computer, Buch 2Elektor Verlag

Tabelle4

0123456789ABCDEF030 7F 7F 7F 7F 7F 7F 21 04 2F 7F 06 47 04 GA G7 23G31 2F 3F 72 63 2B 6F 23 2F 3F 27 23 48 GC 63 G7 04032 2F 7F 3F 7F 04 6F 2B 7F 12 11 12 G7 04 48 7F GE033 63 04 2F 7F 72 04 21 G4 2B 7F 42 04 47 21 G3 04034 63 07 04 47 7F 3F 7F 04 6F 2B 0E 20 27 GB 7F 6F035 2B 07 04 2F 04 12 1220 2B 07 7F 63 2B 21 7F 47036 04 6F 12 07 63 2B 10 12 GE 2G 04 GB 6F 10 7F G3G37 63 27 0B 7F 79 7F 09 20 2F 21 ()1 20 2F 04 7F 63038 2B 21 7F 06 6F 2B 12 G7 6F 04 10 7F 6F 2B 7F 21039 6F 04 7F 1223 0E 07 01 20 2F 04 7F G3 6327 OB03A 7F 24 7F 06 2F 47 2G 04 63 G7 04 2F 63 2B 10 7F03B 21 04 2F 7F 06 0C 2F 23 48 3F 6F 2B 07 04 47 4703C 6F 10 04 2B 64 7F 03 63 27 (JB 7F 30 7F 21 04 2F03D 7F 72 63 2B 6F 23 2F 7F 2047 12 7F GC 04 2F 1203E 23 2B 20 47 3F 27 23 48 0C 63 G7 04 2F 7F 48 2GG3F 27 0B 04 2B 7F 12 6F 04 7F 48 6F G7

0G00 (NUM): FB