mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-29 05:49:26 +00:00
1 line
42 KiB
Plaintext
1 line
42 KiB
Plaintext
|
\\ *** VDI -Funktionen *** 12aug86we Dieses File enth<74>lt alle VDI-Funktionen. Zur genaueren Beschreibung verweisen wir auf die Dokumentation von Digital Research. Dieser Hinweis ist nicht zynisch gemeint, aber wir sind nicht in der Lage, das, was ATARI nicht zu leisten vermag, hier nachzuholen. Mit geeigneten Unterlagen (wo gibts die ??) sollte es aber m<>glich sein, die Funktionen zu nutzen. Beispiele findet man im Editor. \ VDI Loadscreen 09sep86we Onlyforth \needs GEM include gem\basics.scr Onlyforth \needs 2over include double.scr Onlyforth GEM also definitions 1 +load cr .( Output Functions loaded) cr 7 +load cr .( Attribute Functions loaded) cr $0F +load cr .( Raster Operations loaded) cr $15 +load cr .( Input Functions loaded) cr $1B +load cr .( Inquire Functions loaded) cr $1F +load cr .( Escapes loaded) cr \ Output Functions Loadscreen 27jan86we Onlyforth GEM also definitions 01 05 +thru \ pline pmarker gtext 26f09sep86we : pline ( x1 y1 x2 y2 ... xn yn count -- ) >r ptsin r@ 2* array! 6 r> 0 VDI ; : pmarker ( x1 y1 x2 y2 ... xn yn count -- ) >r ptsin r@ 2* array! 7 r> 0 VDI ; | Code 1:2move ( from to count -- ) SP )+ D0 move SP )+ D6 move D6 reg) A0 lea SP )+ D6 move D6 reg) A1 lea D0 tst 0<> IF 1 D0 subq D1 clr D0 DO .b A1 )+ D1 move .w D1 A0 )+ move LOOP THEN Next end-code : gtext ( addr count x y -- ) ptsin 2 array! >r intin r@ 1:2move 8 1 r> VDI ;
|