Seite 1 von 1

ZeddyNet für H4TH

Verfasst: 10.02.2019, 19:46
von bokje
Mein Projekt für Mahlerts, denn es ist noch nicht fertig:

Code: Alles auswählen

WZINIT 10 10 10 53 IP! 
: GET 80 DPORT 10 10 10 55 CONNECT
CR>C " .4TH HTTP/1.1" + SWAP # 5 0W> + " GET /WEBDAV/" + C>WZ
CR>C " HOST: H4TH" + C>WZ
CR>C CR>C + " CONNECTION: CLOSE" + C>WZ
BEGIN WZ>C DUP .CN 2 = UNTIL WZ>ED CLOSE ;
( 0 GET )
Ladet "00000.4TH" von einem Web Server im Editor :)

Re: ZeddyNet für H4TH

Verfasst: 10.02.2019, 21:17
von tokabln
Uih... vielleicht kannst ja Du und Heinz versuchen mir H4TH Grundlagen in Mahlerts bei zu bringen :mrgreen:

Wäre ich Euch dankbar...

Re: ZeddyNet für H4TH

Verfasst: 11.02.2019, 18:35
von ZX-Heinz
Da bin ich schon gespannt! Verwendest Du die "Netzwerkkarte nach SE, ZX81 JM11/2015" mit dem "ZeddyNet V.3"-GAL?

Re: ZeddyNet für H4TH

Verfasst: 11.02.2019, 22:22
von bokje
ZX-Heinz hat geschrieben:
11.02.2019, 18:35
Verwendest Du die "Netzwerkkarte nach SE, ZX81 JM11/2015" mit dem "ZeddyNet V.3"-GAL?
Ich habe eine "Netzwerkkarte nach SE, ZX81 JM03/2012" und standard I/O Adressen.
tokabln hat geschrieben:
10.02.2019, 21:17
Uih... vielleicht kannst ja Du und Heinz versuchen mir H4TH Grundlagen in Mahlerts bei zu bringen :mrgreen:
Gerne! Für jetzt, etwas zum experimentieren... ZX81 BASIC hat "slicing":

Code: Alles auswählen

PRINT "ABCDEF"(2 TO 5)
Mit H4TH kann das definiert werden z.B. mit einem Wort "CSLICE". Forth ist einfach und schwer gleichzeitig wegen die Stapel und H4TH hat da noch eine:

Code: Alles auswählen

Getippt         STAPEL     CHAR STAPEL
--------        ------     -----------
" ABCDEF"       6          ABCDEF      (nicht "ABCDEF"!)
2 5             6 2 5      ABCDEF
Wir brauchen:
2 - 1 = 1 für dropping "A"
5 - (2-1) = 4 für .CN (2-1 noch einmal -> DUP)
6 - 5 = 1 für dropping "F" (5 noch einmal am Ende -> DUP)

Code: Alles auswählen

DUP             6 2 5 5    ABCDEF
ROT             6 5 5 2    ABCDEF
1 -             6 5 5 1    ABCDEF
DUP             6 5 5 1 1  ABCDEF
CDROP           6 5 5 1    BCDEF
-               6 5 4      BCDEF
.CN             6 5        F           (Console output: BCDE)
-               1          F
CDROP
Also:

Code: Alles auswählen

" ABCDEF" 2 5 DUP ROT 1 - DUP CDROP - .CN - CDROP
Oder (es gibt kein CSWAP):

Code: Alles auswählen

: CSLICE DUP ROT 1 - DUP CDROP - PAD W! - CDROP PAD W@ ;
Beispiel:

Code: Alles auswählen

" ABCDEF" 2 5 CSLICE .CN

Re: ZeddyNet für H4TH

Verfasst: 12.02.2019, 15:35
von ZX-Heinz
@bokje: Ein sehr schönes Beispiel für Anfänger, um FORTH zu lernen.

Re: ZeddyNet für H4TH

Verfasst: 12.02.2019, 19:05
von tokabln
@bokje: Dankeschön... jetzt muß ich das nur noch verstehen was Du da von mir willst :mrgreen:

Ich werde das mal im Emulator probieren...

Re: ZeddyNet für H4TH

Verfasst: 16.02.2019, 11:47
von bokje
Ein bisschen näher: ein Webserver :)

Code: Alles auswählen

: CSL DUP ROT 1 - DUP CDROP - PAD W! - CDROP PAD W@ ; ( CSLICE )
: PRS WZ>C DUP 15 - 6 SWAP CSL ># IF LOAD ELSE .CN THEN ; ( PARSE "GET" AND LOAD FILE )
: RPL CR>C " HTTP/1.1 200 OK" + C>WZ CR>C CR>C + " CONTENT-LENGTH: 512" + C>WZ ED>WZ ; ( SEND EDITOR SCREEN )
: GHD BEGIN WZ>C DUP .CN 2 = UNTIL ; ( NEXT HEADERS )
: GO 8080 PORT BEGIN ." W" LISTEN ." C" PRS GHD RPL DISCON AGAIN ;

Re: ZeddyNet für H4TH

Verfasst: 17.02.2019, 13:27
von ZX-Heinz
@bokje: W>C, CR>C, C>W,... sind in H4TH nicht definiert.

Re: ZeddyNet für H4TH

Verfasst: 17.02.2019, 16:55
von bokje
@Heinz: Ja, diese neue Worte sind noch in Entwicklung, vermutlich werden sie etwas machen wie beschrieben im Anhang.

Re: ZeddyNet für H4TH

Verfasst: 24.04.2019, 22:31
von ZX-Heinz
Lässt sich der server irc.zxq.de auch über eine IP Adresse anwählen, und wo findet man die?

Re: ZeddyNet für H4TH

Verfasst: 24.04.2019, 22:58
von sbetamax
Hallo Heinz,
du kannst dir die IP Adresse mit Ping unter Windows anzeigen lassen.
Wenn die IP des Server wechselt bekommst du das dann nicht unbedingt mit.

Re: ZeddyNet für H4TH

Verfasst: 25.04.2019, 10:04
von ZX-Heinz
sbetamax hat geschrieben:
24.04.2019, 22:58
Hallo Heinz,
du kannst dir die IP Adresse mit Ping unter Windows anzeigen lassen.
Wenn die IP des Server wechselt bekommst du das dann nicht unbedingt mit.
Danke, wieder was gelernt. Und irgendwas scheint damit dann auch funktioniert zu haben, ich weiß nur nicht, was:
0.jpg
0.jpg (33.41 KiB) 2098 mal betrachtet

Re: ZeddyNet für H4TH: HURRA! Erster chat erfolgreich!!

Verfasst: 26.04.2019, 11:01
von ZX-Heinz
Hurra, :D :D
gestern abend fand der erste chat auf irc.zxq.de mit H4TH-Zeddies statt! Bokje hat eine phantastische Arbeit geleistet, seine Erweiterung des H4TH-ROM auf 16k mit Integration der nötigen Netz-Befehle ist perfekt gelungen! Auch das download von Programmen funktioniert prächtig. Macht viel Spaß, und der große Dank geht an bokje!!
Das Beste zum Schluss: Das kann jeder auch ohne Kenntnis von H4TH nutzen! Einfach bokjes 16k-ROM stecken, RAM 16k, Zeddynet-Karte dran, und los geht es! :D :D

Re: ZeddyNet für H4TH

Verfasst: 26.04.2019, 13:47
von tokabln
Das klingt ja spannend... Hat Bokje das ROM schon irgendwo hinterlegt?
Falls nicht würde ich mich freuen wenn ich das erhalten könnte.

Lieben Dank

PS: ich nehme an, das da auch die VDrive Unterstützung mit drin ist, oder? Also basierend auf dem H4THVDR ROM.

Re: ZeddyNet für H4TH

Verfasst: 26.04.2019, 18:39
von msch
Wow, großartig! Da könnte man doch gleich einen Workshop beim kommenden Team-Treffen machen :-)

Re: ZeddyNet für H4TH

Verfasst: 26.04.2019, 20:12
von bokje
Danke! :D

Oben habe ich die Beschreibung aktualisiert und im Anhang hier ist der Quelltext und das IRC Programm. Heinz hat die VDrive Unterstützung dazugefügt.

Re: ZeddyNet für H4TH

Verfasst: 26.04.2019, 20:23
von ZX-Heinz
bokje hat geschrieben:
26.04.2019, 20:12
Heinz hat die VDrive Unterstützung dazugefügt.
Dauert noch etwas, ist aber auch nicht erforderlich.

EDIT 27.4.2019: Jetzt ist auch ein ROM mit integriertem Vdrive verfügbar. Das läuft auf Pauls board leider sehr instabil. Steckt man das ROM jedoch direkt auf ein board, so funktioniert es sehr gut.
onboard.jpg
onboard.jpg (134 KiB) 1912 mal betrachtet