mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-12-27 07:30:33 +00:00
1 line
10 KiB
Plaintext
1 line
10 KiB
Plaintext
|
\\ *** GEM - Basics *** 26may86we Die Routinen in dieser Library entsprechen dem, was auch dem Pascal-, C- oder Modula-Programmierer zur Verf<72>gung steht. F<>r eine genaue Beschreibung der einzelnen Routinen verweisen wir auf die GEM-Dokumentation des ST-Entwicklungspaketes bzw. entsprechende Literatur. Aus diesem Grunde wurden die - teilweise kryptischen - Namen von Digital Research beibehalten; auch die <20>bergabeparameter der einzelnen Funktionen sind unver<65>ndert geblieben. Der Aufbau einer FORTH-Library mit 'Super-Befehlen' ist in Arbeit. Die Worte in diesem File werden sowohl f<>r VDI- als auch f<>r AES-Funktionen ben<65>tigt. \ VDI GEM Arrays and Controls Loadscreen 02nov86we Onlyforth \needs >absaddr : >absaddr 0 forthstart d+ ; \needs Code 2 loadfrom assemble.scr Vocabulary GEM GEM definitions also 1 8 +thru \ VDI GEM Arrays 05aug86we Create intin &60 allot Create ptsin &256 allot Create intout &90 allot Create ptsout &24 allot Create addrin 8 allot Create addrout 4 allot Variable grhandle | : gemconstant ( addr n -- addr+n) over Constant + ; Create contrl $16 allot contrl 2 gemconstant opcode 2 gemconstant #intin 2 gemconstant #intout ' #intout Alias #ptsout 2 gemconstant #addrin 2 gemconstant #addrout 2 gemconstant function drop \ global array, Parameter blocks 02nov86we Create global $20 allot global &10 + Constant ap_ptree | : gemarray ( n0 ... nk-1 k --) Create 0 ?DO , LOOP ; addrout addrin intout intin global contrl 6 gemarray (AESpb ptsout intout ptsin intin contrl 5 gemarray (VDIpb Create AESpb &24 allot Create VDIpb &20 allot : setarrays 6 0 DO (AESpb I 2* + @ >absaddr AESpb I 2* 2* + 2! LOOP 5 0 DO (VDIpb I 2* + @ >absaddr VDIpb I 2* 2* + 2! LOOP ;
|