VolksForth/st/GEM/BASICS.FB

\\                   *** 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 ;