24 lines
621 B
FortranFixed
24 lines
621 B
FortranFixed
|
|
|||
|
|
fl
|
|||
|
|
|
|||
|
|
hex
|
|||
|
|
|
|||
|
|
\ metafunktionen
|
|||
|
|
|
|||
|
|
: (bload) \ ( cstr -- ) - belatrix-code laden
|
|||
|
|
|
|||
|
|
52 adm:open .err \ datei <EFBFBD>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<EFBFBD>nge empfangen
|
|||
|
|
0 do 06 [a!] [a@] [b!] loop \ datei senden
|
|||
|
|
]b
|
|||
|
|
adm:close .err \ datei schlie<EFBFBD>en
|
|||
|
|
;
|
|||
|
|
|
|||
|
|
: bload \ name ( -- ) - bellatrix-code laden
|
|||
|
|
parsenw (bload) ;
|
|||
|
|
|