Tektronix 4006-1

Hier steht alles was man über diese Röhrenprinzip wissen muss.

Da der Hintergrund auf den Fotos zu hell ist, könnte ich mir vorstellen, dass die Faceplate-Spannung zu hoch ist.

Zitat von gnupublic

Allerdings fressen sich mit zeitlichem Abstand immer mehr helle Störstellen hinein. Bei meinem Gerät ist nach etwa 10 Minuten ausgeschaltet sein,nichts mehr vom Bild übrig nach erneutem Einschalten.

Völlig normales Verhalten, keine Eingreifen nötig. Es war gar nie vorgesehen das Bilder eine Ein-Aus Zyklus uberleben.

Zur ansteuerung : spezialsoftware wie PLOT10 oder das angepasste OS8-Basic ist nicht notwendig. Man muss lediglich die richtigen Command-bytes zum Terminal schicken, wie in der Doku beschrieben. Ich hab das damals direkt in BBC-Basic gemacht, klappte problemlos.

Es gibt den Tektronix 4632 Hardcopy unit : der kan vom Terminal direkt angesteuert werden. Der schreibt die Daten auf fotografisches Papier mittels eine spezialrohre : volle Breite, aber nur eine einzige Bildzeile hoch.....

Ich vermute das Calcomp Plotter nur uber extra Software angesteuert werden konnen.

Naturlich wahre es nett PLOT10 oder die spezial-variante von OS8 Basic zu benutzen, aber die muss man erst mal finden.

Ich hab irgenwo ein kleines "cheat sheet" zur programmierung des TEK4014, nur lasst sich das Teil mal wieder nicht finden....

Zwei Geräte an die ich mich nicht traue ...

Zitat von gnupublic

Danke für die Info. Die Doku habe ich gestern durchgesehen, das lässt sich natürlich selbst machen. Wobei der Zusammenbau der Steuerzeichen schon etwas eigen ist.

Mag natürlich sein, dass der Mehrwert des PLOT10 nicht direkt erkennbar ist. Würde mich aber trotzdem reizen, besonders die Fortran Routinen.

Auch habe ich in einer Doku etwas gelesen, was darauf deutet eine Hardcopy Skizze auf Calcomp Plotter ausgeben zu können. Aber ich fürchte dazu braucht man mehr als nur das Terminal und die Software (Plotter hätte ich).

Eine Quelle für PLOT10 habe ich im anderen Thread genannt.

PLOT10 ist eine Bibliothek, die eine einheitliche Schnittstelle für diverse Ausgabegeräte bereitstellt. Viele wissenschaftliche Software nutzte PLOT10.

Solche Vektorplotsoftware war damals praktisch Standard - jedes Rechenzentrum das etwas auf sich hielt, hatte so eine Plotsoftware mit der man die Ausgaben eines (meist Fortran) Programms auf diverse Ausgabegeräte oder auch auf Metafiles umlenken konnte. Viele basieren auf PLOT10, was man an moveto und lineto Kommandos mit den codes 3 und 2 erkennt.

Ich habe mir auch eine Mini-Tek Bibliothek für Microsoft Fortran-80 unter CP/M geschrieben - verwendete ich auf einem AVR-CP/M Stick um meinen Tektronix-Emulator mit dem "blue-pill board" zu testen.

Genau, das Links ist die Hardcopy-unit. Technisch interessantes Gerat, aber nicht mehr verwendbar da das Spezialpapier seit mindestens 20 Jahre nicht mehr lieferbar ist.

Rechts das Tektronix 4054. Der grosse Bruder des Tek4052 : ein 16 bit Computer auf AMD2901 basis, mit Bildspeicherrohre.

Fur die Tektronix 4052 und 4054 biete ich einen DRP an : ein Nachbau des Debugging-tools von Tektronix. Das hilft Fehler im Digital-teil zu finden. Vorher muss aber die Powersupply in Ordnung sein.

Die Assembler/BASIC Kombination in dem Artikel ist sehr rudimentär - PLOT10 hat da viel mehr Funktionalität, ist aber immer noch als Basis-Software zu verstehen. Es gab da auch kommerzielle Bibliotheken wie DISSPLA (ähnliches gibt es heute noch kommerziell), aber die habe ich leider nie in freier Wildbahn als Quellcode gesehen.

Meine kleine Fortran Bibliothek für Tektronix-Ausgabe habe ich angehängt - sollte auf vielen Fortran 77 übersetzbar sein wobei LOGICAL*1 für ein Byte verwendet wird, was nicht unbedingt überall erlaubt ist. Wie gesagt, ursprünglich für MS-Fortran 3.44 unter CP/M geschrieben.

Die Pixeldimensionen sind in TINIT mit DATA DX,DY,SX,SY /0.0,0.0,4095.0,3119.0/ für ein Tektronix 4014 definiert, das müsstest Du eventuell anpassen.

TEKLIB.zip

Ich habe mein Tektronix über SmallBasic angesteuert, SendTerm ist die interessante Routine, die eine Linie vom Startpunkt sx,sy zum Endpunkt ex,ey zieht. Quick and Dirty (globale Variablen anstatt Parameter), war aber auch nie zum Veröffentlichen gedacht. Der Rest des Codes öffnet eine serielle Schnittstelle (über USB-RS232 Wandler) und zeichnet ein Muster aus Quadraten, die immer kleiner werden und dabei etwas gedreht werden.

LDCommPort.OpenPort("COM5",4800)
LDCommPort.TXString("Set Graph Mode!")
LDCommPort.TXString(Text.GetCharacter(29))
GraphicsWindow.BackgroundColor="Black"
GraphicsWindow.PenColor="Green"
GraphicsWindow.Title="Tektronix Preview"
GraphicsWindow.Width=255
GraphicsWindow.Height=255
GraphicsWindow.PenWidth=2
GraphicsWindow.Show()
r=100
w=Math.Pi/4
loop:
x=Math.Floor(r*Math.Cos(w))
y=Math.Floor(r*Math.Sin(w))
sx=128+x
sy=90-y
ex=128-y
ey=90-x
SendTerm()
GraphicsWindow.DrawLine(sx,sy,ex,ey)
sx=128-y
sy=90-x
ex=128-x
ey=90+y
SendTerm()
GraphicsWindow.DrawLine(sx,sy,ex,ey)
sx=128-x
sy=90+y
ex=128+y
ey=90+x
SendTerm()
GraphicsWindow.DrawLine(sx,sy,ex,ey)
sx=128+y
sy=90+x
ex=128+x
ey=90-y
SendTerm()
GraphicsWindow.DrawLine(sx,sy,ex,ey)
TextWindow.Read()
w=w+.1
r=r*0.9
If r>1 Then
  Goto loop
EndIf 

Sub SendTerm
  dsx=sx*2
  dex=ex*2
  
  hix=Math.Floor(dsx/32)
  hiy=Math.Floor(sy/32)
  lox=Math.Remainder(dsx,32)
  loy=Math.Remainder(sy,32)
  TextWindow.WriteLine("dsx: "+dsx+"  hix: "+hix+"  lox: "+lox+"  -> "+Text.GetCharacter(hix+32)+Text.GetCharacter(lox+64))
  TextWindow.WriteLine("sy: "+sy+"  hiy: "+hiy+"  loy: "+loy+"  -> "+Text.GetCharacter(hiy+32)+Text.GetCharacter(loy+96))
  LDCommPort.TXString(Text.GetCharacter(hiy+32)+Text.GetCharacter(loy+96)+Text.GetCharacter(hix+32)+Text.GetCharacter(lox+64))
  hix=Math.Floor(dex/32)
  hiy=Math.Floor(ey/32)
  lox=Math.Remainder(dex,32)
  loy=Math.Remainder(ey,32)
  TextWindow.WriteLine("dex: "+dex+"  hix: "+hix+"  lox: "+lox)
  TextWindow.WriteLine("ey: "+ey+"  hiy: "+hiy+"  loy: "+loy)
  LDCommPort.TXString(Text.GetCharacter(hiy+32)+Text.GetCharacter(loy+96)+Text.GetCharacter(hix+32)+Text.GetCharacter(lox+64))
EndSub  

Hier noch was:

Zitat von gnupublic

Auch habe ich in einer Doku etwas gelesen, was darauf deutet eine Hardcopy Skizze auf Calcomp Plotter ausgeben zu können. Aber ich fürchte dazu braucht man mehr als nur das Terminal und die Software (Plotter hätte ich).

Da muss ich meine eigene Angaben mal wiedersprechen : falls dein Terminal den Enhanced Graphics Module hat, dan kann man direkt angesteuerte mechanische Plotter verwenden.

Mist......Hatte den Calcomp plotter vor 20 Jahren doch mitnehmen mussen....

TEKTRONIX Fortransoftware -Test an TeraTerm

Hallo Martin Hepperle -

ich habe mir mal den MS Fortran 3.44 und den L80 auch 3.44 besorgt.

Dazu deine Software als TEKLIB und TEKTEST als .zip geangelt.

Schöne Arbeit für den Tektronix - Grafikbereich, Danke.

Zitat von Martin Hepperle

für MS-Fortran 3.44 unter CP/M geschrieben

Ich arbeite mit einer alphaTronic P2U mit cp/m unter 100h TPA. Über den Printeranschluss mit 9600 Bd an ein Labtop unter TeraTerm.

Vorab - ich habe "C Unit 2 is preassigned to LST:" passend geändert.

Die TEKLIB und TEK1 sind alle .FOR- Quellen glatt durchgelaufen.

Leider sehe ich nicht die ersten Textanzeigen als zu zeichnenden Schritzug.

Da scheint irgenwie bei jedem Zeichen gewisse Elemente ausreissen -

noch habe ich bisher keine Tiefenforschung angefangen.

Zur besseren Ansicht - habe ich in dem TEK1.COM nur die Drehungen dem "Hello World:" unterdrückt.

Mit Fortran 3.44 sollte eigentlich dem LEVEL IV Fortran entsprechen.

Oder gibt es andere Nebenforderungen für die Schriftausgabe ( Vektoren im Selbstbau) für die TEK Emulation beim TeraTerm?

Ich werde mal das TEKTEST.FOR ( ohne Schrift) mal später probieren.

Vielen Dank vorab und Grüße.

CODE vom 3.44 F80 nach FORTRAN IV

macht den INDEX Zugriff m.E. richtig.

Zitat von Martin Hepperle

wobei LOGICAL*1 für ein Byte

Es geht um das Testprogramm TEK1.FOR.

LOGICAL kennt der F80 richtig als ein Byte je Feldelement.

Meine Untersuchung:

Das Bytefeld TEXT(12) muss ja auf die TEXT+0 Adresse mit dem Index 1 erreichen. Das wird ja richtig mit dem LXI D,TEXT-1 (um ein byte zurück in DE geladen). Nun mit der Laufvariablen I über LHLD I geladen.

Bei Standard FORTRAN IV - so meine ich - wird mit 1 der Index begonnen. Dann also zum ersten ELEMENT vom TEXT Bytefeld - wird tatsächlich auf das Zeichen "H" mit dem DAD D - jetzt mit HL gezeigt. Und nun das Zeichen wird geangelt!!! Mit MOV A,M ... siehe CODE-LISTING Auszug.

Vom Verfahren wäre der Indexzugriff ok - aber bei der Schleife mit I= 0,11 wird falsch angefangen. Das erste beliebige Zeichen (Byte) wird verwendet in der Schleife, ist aber nicht ein ELEMENT von TEXT.

Also TEK1.FOR habe ich mal den CODE vom F80 ( Version 3.44 - die ich benutze) unten abgelegt.

Daher wäre die Übersetzung für ein INDEX -Verfahren richtig behandelt!

Nur der Compiler geht bei Feldern offenbar von einem ersten INDEX als :== ! aus.

Klar, bei anderen FORTRAN LEVEL Varianten kennen Felder mit Angaben der Indexbegrenzungen.

Wie z.B Type FELD(-4..7) - das ist sowas wie es schon früh bei ALGOL gab.

NUR AUSZUG hier dargestellt - helwie44
A>TYPE TEK1.PRN
FORTRAN-80 Ver. 3.44 Copyright 1978-1981 (C) By Microsoft -- Bytes: 31302
Created: 10-Dec-81
1       C ---------------------------------------------------------------------
2             PROGRAM  TECFNT
*****   0000'   LXI     B,$$L
*****   0003'   JMP     $INIT
3       C ---------------------------------------------------------------------
4       C     Test TECFONT
5       C ---------------------------------------------------------------------
6       C
7             INTEGER TTY
8       C     Note: MS Fortran 3.44 allocates LOGICAL arrays with a
9       C           starting index of 0.
10            LOGICAL*1 TEXT(12)
11            DATA TEXT /'H','e','l','l','o',' ','W','o','r','l','d',':' /
*****   0003"   48 65 6C 6C 6F 20 57 6F 72 6C 64 3A
12      C
.........
.........
......... hier wird es entscheident mit dem INDEX ....

43                  ICHR = TEXT(I)    ; <<<< 
*****   0069'   LXI     H,0000        ;your ini-loop 0 !!
*****   006C'   SHLD    I
44      C -hw  see printing tty: with 99   FORMAT
45                  WRITE(1,99)I,X,Y,ICHR,ICHR,SIZE,ANNGLE
*****   006F'   LHLD    I
*****   0072'   LXI     D,TEXT-0001 ;first element must start
*****   0075'   DAD     D        ;on TEXT(1) -standard FORTRAN
*****   0076'   MOV     A,M        ;so if I=1 than TEXT-1 -> is right
*****   0077'   MOV     L,A
*****   0078'   RAL
*****   0079'   SBB     A
*****   007A'   MOV     H,A
*****   007B'   SHLD    ICHR
*****   007E'   LXI     D,99L
*****   0081'   LXI     H,[01 00 00 00]
*****   0084'   CALL    $W2
46                  CALL TCHAR(X,Y,ICHR,SIZE,ANGLE)
*****   0087'   LXI     D,I
*****   008A'   LXI     H,[01 00 00 00]
*****   008D'   MVI     A,02
*****   008F'   CALL    $I0
*****   0092'   LXI     B,Y
*****   0095'   LXI     D,X
*****   0098'   LXI     H,[01 00 00 00]
*****   009B'   MVI     A,03
*****   009D'   CALL    $I1
*****   00A0'   LXI     B,ICHR
*****   00A3'   LXI     D,ICHR
*****   00A6'   LXI     H,[01 00 00 00]
*****   00A9'   MVI     A,03
*****   00AB'   CALL    $I0
*****   00AE'   LXI     B,ANNGLE
*****   00B1'   LXI     D,SIZE
*****   00B4'   LXI     H,[01 00 00 00]
*****   00B7'   MVI     A,03
*****   00B9'   CALL    $I1
*****   00BC'   CALL    $ND
47      99       FORMAT(4X,I5,2F8.1,3x,1A2,I5,2F8.2)
*****   00BF'   LXI     B,0033"
*****   00C2'   LXI     D,Y
*****   00C5'   LXI     H,X
*****   00C8'   CALL    TCHAR
48      100      CONTINUE
49
50      C       hw first nop this ??? kasper ??
51      C         CALL TNUM ( X, Y, SIZE, ANGLE, ANGLE, NDIG, 00 )
52
53      C       200   CONTINUE
54
55      C     back to VT window
56            CALL TCLOSE
*****   00CB'   LHLD    I    ;test finish loop I 
*****   00CE'   INX     H
*****   00CF'   MVI     A,0B
*****   00D1'   SUB     L
*****   00D2'   MVI     A,00
*****   00D4'   SBB     H
*****   00D5'   JP      006C'
........
........

Diese Stelle ist der PUNKT zu betrachten:

*****   006F'   LHLD    I
*****   0072'   LXI     D,TEXT-0001 ;first element must start
*****   0075'   DAD     D           ;on TEXT(1) -standard FORTRAN
*****   0076'   MOV     A,M         ;so if I=1 than TEXT-1 -> is right

Die INDEX-Verschiebung wäre also hier nur der "falscher ANFANG" dargestellt ( geplottet). Daher könnten noch evtl. andere Indexzugriffe bei den Character-Subroutine, +++ ? - oder sonst wo was zum falschen PLOT erfolgen ??

Das könnte eher der Erfinder der Quellprogrammteilen leicht erkennen.

Auf eine Weisheit zu der Problembeseitigung wäre prima.

Grüße helwie44 †

TEK1.FOR in Arbeit - Falsche Grafik

So sehen die Daten über den LOOP mit der original Schleife vom Kontrolldruck ( auf TTY:) aus.

Die Fehler bei dem Zeichen-Plot entstehen aber offenbar in einigen Txxxx.FOR Unterprogrammen.

Also alle Txxx.FOR ( die subroutine zum Zeichen) sind ja alle zu einer TEKLIB.REL zusammen gefasst.

Für das Handling der F80, L80, LIB80 usw - ist kein Problem. Selbst vor sehr... sehr vielen Jahren her habe ich die Software Tools im Griff. Meistens.

45 WRITE(1,99)I,X,Y,ICHR,ICHR,SIZE,ANNGLE

Die erste Spalte zeigt und folgende Spalten:

::= I ,

..= X ,

::= Y,

::= ICHR _als Integer print

.:= ICHR _als ASCII Format

::= SIZE _120.00 ok

::= ANGEL_ .00 ok

Klar sieht man das bei dem gezeigten "d" Ende der Schleife ist.

Es fehlt der ":" Doppelpunkt, wie in der DATA definiert is .

Eigentlich kein Problem - nur vermutlich etwas tiefer in anderen Subroutinen könnten die "wilden Zägezahn-Schriftzeichen" möglich mit dort ähnliche Index-Bereiche die Ursache sind.

Teilansicht auf dem TTY:-TeraTerm und das Ergebnis vom TerTerm TEK Window.

Hallo,

der Index-Fehler kommt bei MS-Fortran vor 3.44 vor.

Das macht einige Sachen bei der Parameterübergabe einfach falsch.

Ich hatte anfangs mit Version 3.4 gearbeitet und dabei diesen und andere Fehler gefunden.

Versionen vor 3.44 sind aus meiner Sicht unbrauchbar.

Ich glaube ich hatte auch eine vermeintliche 3.44 Version gefunden, die dann aber doch 3.4 war.

Das kann man prüfen wenn man den Compiler ein Listing /L erzeugen lässt. Im Listing steht dann oben die Versionsnummer.

Inzwischen verwende ich meistens INTEGER*1 anstelle von LOGICAL*1 ist aber egal.

In Fortran vor Version 77 beginnen Feldindizes immer bei 1. Erst ab FTN-77 kann man beliebige Startindizes bei der Dimensionierung vorgeben z.B. REAL X(-7:11).

Sicherheitshalber nochmal meine aktuellen Quellen von meinem AVR-CP/M System.

Martin

TECLIB.ZIP

Hallo;

Ich hangel mich schon durch deinen .FOR Quellen ( symbolisch var = var +1 von dir korrigiert sind ?) mal durch.

Ich habe ja im Moment genau F80 als 3.44 Version im Einsatz.

Da sollten bisher die richtigen Indices im CODE generiert werden.

Ich bin aber noch nicht durch. Es gibt's ja sonst nichts tu tuen. (kl. Scherz).

... nchmal zur Un-Klarstellung:

Ich bin mir selbst nicht mehr sicher, welche Version ich damals hier abgelegt hatte.

Eventuell war das eine, die ich für 3.4 (das ich für 3.44 gehalten hatte) korrigiert hatte, d.h. die dort falschen Feldzugriffe in meinem Code umgangen hatte.

Die gerade geschickte Version sollte mit 3.44 funktionieren. Aus den Einzeldateien kann man mit LIB80 eine Bibliothek bauen (teklib-rel.zip)

Martin

9600 Baud ist vll etwas schnell fur den 4006 ?

Und erwartet die 4006 nicht 7 bit, anstelle vom sonst ueblichen 8-N-1 ?

Jos

Danke - klar:

Zitat von Martin Hepperle

Ich bin mir selbst nicht mehr sicher

Das habe ich schon richtig verstanden. Siehe meinen kl. Scherz.

Hallo,

Zitat von jdreesen

9600 Baud ist vll etwas schnell fur den 4006 ?

Und erwartet die 4006 nicht 7 bit, anstelle vom sonst ueblichen 8-N-1 ?

Für einen realen 4006 war die Übertrgung weniger als 9600 Bd.

Ich kann mich nicht mehr aus ca. 1975 erinnern, wie ich damals mit einem realen 4006 - mit welchen V24 Parametern ich benutzte? Aber es könnten 4800 Bd gewesen oder viel weniger sein???

(es soll doch eine .pdf 4006 Beschreibung geben?)

Aus dier Zeit hatte ich für sks eine kleinen IKP entwickelt.

Dort befindet sich ein kleiner Beitrag zu einer Textronix 4006 Anwendung.

Bei meinen kleinen Tests - benutze ich ja über die TeraTerm eine TEK-Emulation.

Da geht schon bis 38400 Bd die Brause ab.

Bei der Übertragung werden - soweit ich meine - immer nur 7Bit Datenbits verwendet.

Klar das dürfte keine Kollision mit einer N81 V24 Einstellung als Sender ( hier alphaTronic P2U) und zu dem WIN7 PC ) und beide Einheiten gleich eingestellt werden.

Grüße

Mein Fehler.. war von einer realen 4006 ausgegangen. So einer steht bei mir im Kelller in Erwartung einer Inspektion...

Zitat von jdreesen

im Kelller in Erwartung einer Inspektion...

Prima - wenn man eine ( 4006) solche alte Kiste hat.

Viel Freude und Erfolg bei der in Gangsetzung.

Hallo,

prima das die teklib.rel (apr-2020) offenbar mit dem F80 3.44 Vers. die .FOR Programmteile übersetzt wurden - danke.

Zitat von Martin Hepperle

eine Bibliothek bauen (teklib-rel.zip)

Nur zur Erinnerung bei vorherigen Beiträgen von mir:

Vorher und beim TEK1 habe ich die FNT Ausgabeneinheiten dort als NDEV / IDEV mit = 2, also dem PRINTER

zugeordnet. Weil ich einfach den P2-Printeranschluss mit 19200 Bd an die TeraTerm TEK V24 verbungen habe.

TEST-Beispiel mal versuchen.

Dein TEK1.FOR Beispiel ( Test-Fonts) habe ich mit dem Index - klar jetzt auf I=1,12 geändert.

Übersetzt und mit deiner neuen TEKLIB.REL lief der Link (L80) ohne Probleme.

Aber oh- Schreck - der ganzer TEK-Datenstrom landet fix immer auf meine alphaTronic P2U - also dem Bildschirm. Den Kram zeige ich hier nicht!

Da habe ich danach gleich mal die kleinen Assemblerinstruktionen mit dem SID angesehen.

Du hast offenbar den OUTPUT - Textronik Datenstrom mit einer TCONS ( Tek CONSole output ? möglich die Namensgebung, oder?) etwas optimiert. Aber leider die Ausgabeeinheit ist jetzt immer TTY: - mit der schön von dir auch noch etwas verkleinert die teklib.rel hast.

Link with last MH apr-2020 teklib.rel

insert a new SCONS subroutine with cp/m console output
the TEK-DATA OUTPUT fix the CONSOL OUTPUT 

see in SID - part from -helwie44
________________________________


A>SID TEK1.COM TEK1.SYM
SID VERS 1.4
SYMBOLS
NEXT  PC  END
3680 0100 C4C0
#L.TCONS
TCONS:
  0293  XCHG
  0294  MOV  B,M
  0295  XCHG
  0296  MOV  E,M
  0297  MVI  C,02    ;consol out with Reg=E
  0299  PUSH H
  029A  PUSH B
  029B  CALL 0005
  029E  POP  B
  029F  POP  H
  02A0  INX  H
#
#A297            ;test PATCH -helwie44
0297  MVI C,5    ;LIST OUTPUT with REG=E
0299  .
#
#LIST .TCONS
;------------------- Test PATCH --------------
#L.TCONS
TCONS:
  0293  XCHG
  0294  MOV  B,M
  0295  XCHG
  0296  MOV  E,M
  0297  MVI  C,05
  0299  PUSH H
  029A  PUSH B
  029B  CALL 0005
  029E  POP  B
  029F  POP  H
  02A0  INX  H
#L.TINIT
TINIT:
  0253  SHLD 024C
  0256  LHLD 024C
  0259  MOV  A,M
  025A  INX  H
  025B  MOV  H,M
  025C  MOV  L,A
  025D  SHLD 0219 .SCALE
  0260  LXI  D,026A
  0263  LXI  H,024E
  0266  CALL 0293 .TCONS    ;use here and more calls!
  0269  RET
#

Nach meinem PATCH ist dann endlich dieses Ergebnis. Ich meine wie es gedacht war.

Plot Beisiel auf der TeraTerm TEK Emulation - geht doch.

Ich selbst stricke mir eine etwa die TCONS ... aber mit der ( TTY: oder RrN:) - mal sehen.

Alles kein Problem für einige Modifikationen.

Vielen Dank und ich schau mal später was ich mache.

Grüße helwie44 †

... ah, sehr schön - mühsam ernährt sich das Eichhörnchen ...

Ich hatte diese TCONS Routine (Alle meine Tektronix Routinen fangen mit "T" an) geschrieben, da mit Fortran immer Steuerzeichen (1H , 1H+, 1H0, 1H1 zur Vorschubsteuerung verwendet werden und es keinen Standard-Fortran Weg gibt, dies zu unterdrücken (manche Fortrans haben da Nicht-Standard Erweiterungen, bei MS-Fortran 3.4 konnte ich auf die Konsole als Binärdatei schreiben, das mochte dann 3.44 nicht mehr).

Die Assembler Datei hatte ich im Archiv vergessen mit einzupacken ... 'tschuldigung.

;
; Created 2020 Martin Hepperle
;
     CSEG

     PUBLIC   TCONS

;
; CP/M call
;
     BDOS   EQU   5
;
; CP/M function - output device
;
     CONOUT EQU   2      ; console
     PUNOUT EQU   4      ; punch
     LSTOUT EQU   5      ; list
;
; Output a raw string from Microsoft Fortran-80 3.44
;
; INTEGER*1 STR(5)
; DATA STR /'H','e','l','l','o'/
; CALL TCONS(STR,5)
;
; ADDR of STR in HL, STR is a array of LOGICAL*1 or INTEGER*1
; ADDR of LEN in DE, LEN is INTEGER*2, in [1...255]
;
TCONS:  XCHG          ; swap DE<>HL
        MOV  B,M      ; string length to B,     LD B,(HL)
        XCHG          ; swap back, HL
NEXT:   MOV  E,M      ; get next byte from *HL, LD E,(HL)
        MVI  C,CONOUT ; console output
        PUSH H        ; save
        PUSH B        ;   "
        CALL BDOS     ; print it
        POP  B        ; restore
        POP  H        ;   "
        INX  H        ; next one
        DCR  B        ;   "
        JNZ  NEXT     ; loop if not done
        RET

        END

Alles in der richtigen Spur.

Evtl. in der Routine einfach z.B. im Kopf,

LDA IDEV ; Ausgabe-Einheit Variable ist ja im TINIT.FOR

MOV C,A ; cp/m Functioncode for device

.....

oder noch FNT device to cp/m Function-device...mehr Logik...,

aber es gibts immer was zu werkeln.

Ja, so ähnlich habe ich das nun gelöst.

Eigentlich hatte ich die TEKLIB schon zu den Akten gelegt, da ich mich danach eher auf GSX und eine entsprechende GLIB verlegt hatte.

Damit das Ganze aber wieder stimmig ist, habe ich die TCONS Routine nochmals überarbeitet.

Sie heißt nun TSOUT weil sie _T_ektronix _S_tring _OUT_givet. Sie ist nun nicht mehr auf die TTY Konsole fixiert.

TSOUT greift auf die Variable IDEV im Fortran COMMON Block /SCALE/ zu und entnimmt daraus die Fortran Logical Unit auf die der Tektronix-Datenstrom fliessen soll.

Dazu führt sie nun zwar jedesmal eine kleine Indexberechnung für einen Tabellenzugriff durch, aber das fällt nicht groß ins Gewicht.

Ich habe sie in Z80 Mnemonics umgeschrieben, was mir klarer als die 8080 Mnemonics erscheint und ich konnte den tollen DJNZ Opcode verwenden - Geschmacksfrage.

Man kann jetzt also wieder wie in der ursprünglichen (an das fehlerhafte MS-FTN 3.4 angepassten) Version mit TINIT(NDEV) ein Ausgabegerät (1,3,5=TTY:, 2=LST:, 3=PUN:) wählen und die Ausgabe wird auf das entsprechende Gerät umgeleitet.

LST: habe ich nicht getestet, da ich kein Grafik-Ausgabeterminal mit Parallel-Schnittstelle habe.

Das könnte ich theoretisch mit meinem Centronics -> Seriell Umsetzer testen, aber ich habe keinen Centronics-Centronic Female-Female Adapter.

Die Ausgabe auf PUN: habe ich jedenfalls mit einem HP 150 im Tektronix-Kompatibilitätsmodus getestet und es funktioniert wie es soll.

Nur bei den Teraterm-spezifischen Einschalt- und Ausschaltsequenzen zeigt er natürlich ein, zwei Zeichen Unfug an.

Das könnte man in TINIT und TCLOSE leicht ändern, aber dann würde Teraterm nicht mehr so schn automatisch zwischen VT100 und Tektronix Fenster hin- und her wechseln.

Kleine Beschleunigungsmöglichkeiten wären:

- anstelle das aktuelle Ausgabegerät jedesmal aus der Tabelle zu lesen, dieses einmal bei TINIT aktiv setzen,

- generell alle TSOUT Ausgaben puffern und erst dann ausgeben, wenn z.B. 128 Bytes zusammengekommen sind und bei TCLOSE der Rest ausspülen. Dann würde die Ausgabe aber je nach Puffergröße etwas hinterherhumpeln.

Beides dürfte sicher keinen extremen Effekt erzielen, sodass ich das als Übung für den interessierten Leser offen lasse.

Na ja, ich denke erstmal ist das ausreichend für die praktische Anwendung.

Viel Spaß am tüfteln,

Martin

Danke -

ich komme aber erst in den nächsten Tagen zum weiteren werkeln.

Grüße

Helmut

Zu den vorher schon hier aufgeführten Laufzeitoptimierungen bringen nichts richtiges - ganz evtl. wenig.

Wie Martin Hepperle schon gesagt hat.

Ich meine die meiste Rechenlaufzeit wird bei dem CLIP -ing verbraucht, und/ oder bei den Typenwandlungen.

Ich habe keine merklichen Laufzeiten - Unterschieden - ob ich mit 4800 Bd. oder mit 19200 Bd arbeite.

Selbst ich meine, auch etwa bei 1200 Bd.- hängt die Ausgabegeschwindigkeit an den Rechenzeiten und nicht im Verhältnis zur reinen V24 - Übertragungsgeschwindigkeit.

Ich habe bisher nicht tief in die Txxx.FOR Quellen reingesehen.