24 lines
621 B
Forth
24 lines
621 B
Forth
|
|
fl
|
|
|
|
hex
|
|
|
|
\ metafunktionen
|
|
|
|
: (bload) \ ( cstr -- ) - belatrix-code laden
|
|
|
|
52 adm:open .err \ datei öffnen
|
|
b[
|
|
0 [b!] 63 [b!] \ bella-loader starten
|
|
10 0 do 06 [a!] [a@] [b!] loop \ header einlesen
|
|
0A [a!] 0 [a.l!] \ 0 adm:seek
|
|
[b@] <8 [b@] or \ dateilänge empfangen
|
|
0 do 06 [a!] [a@] [b!] loop \ datei senden
|
|
]b
|
|
adm:close .err \ datei schließen
|
|
;
|
|
|
|
: bload \ name ( -- ) - bellatrix-code laden
|
|
parsenw (bload) ;
|
|
|