000
07.06.2013, 20:08 Uhr
funkheld
|
Hallo, guten Tag.
Hier ist mal wieder eine kleine Routine in Forth für den Z1013 um auf Kassette zu laden und zu speichern. Getestet mit dem JKCemu und einer Hilfe von Volker.
Massgebend dafür ist diese Routinenliste:
http://hc-ddr.hucki.net/wiki/doku.php/z1013:technische_daten
Ich stelle immer wieder fest, das der Z1013 ein wunderbarer Computer ist um mit Forth daran zu experimentieren.
Anfangadr Endadr CLOAD / CSAVE
8000 9FFF CSAVE ; Da lege ich auch meine 8KB Bilder/Grafik ab beim Z1013
| Quellcode: | HEX
1B CONSTANT ARG1
1D CONSTANT ARG2
23 CONSTANT ARG3
CODE CLOAD
HL POP,
DE POP,
BC PUSH,
DE ARG1 #) LD,
HL ARG2 #) LD,
20 # RST,
9 C,
BC POP,
NEXT END-CODE
CODE CSAVE
HL POP,
DE POP,
BC PUSH,
DE ARG1 #) LD,
HL ARG2 #) LD,
20 # RST,
8 C,
BC POP,
NEXT END-CODE
|
Gruss
peter
Dieser Beitrag wurde am 07.06.2013 um 22:11 Uhr von funkheld editiert. |
