\ Z80-Portzugriff                                     UH 05Nov86                                                                Dieses File enthaelt Definitionen um die Z80-Ports ueber 16-Bit Adressen anzusprechen.                                                                                                          Einige Komputer, so die der Schneider Serie dekodieren ihre     Ports etwas unkonventionell, sodass sie unbedingt ueber 16-Bit  Adressen angesprochen werden muessen.                           Im allgemeinen sollte es ausreichen 8-Bit Adressen zu benutzen.                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \ Z80-Portaccess Extending 8080-Assembler             UH 05Nov86                                                                Assembler definitions                                                                                                           | : Z80-io ( base -- )  \ define special Z80-io instruction          Create c,                                                       Does> ( reg -- )  $ED c, c@ swap 8 * + c, ;                                                                                $40 Z80-io (c)in                                                $41 Z80-io (c)out                                                                                                               Forth definitions                                                                                                               -->                                                                                                                                                                                             \ store and fetch values  with 16-bit port-adresses   UH 05Nov86                                                                Code pc@ ( 16b -- 8b ) \ fetch 8-bit value from 16-bit port-addr   H pop   IP push   H B mvx   L (c)in   0 H mvi                   IP pop  hpush jmp                                            end-code                                                                                                                        Code pc! ( 8b 16b -- ) \ store 8-bit value to 16-bit port-addr     H pop   D pop   IP push   H B mvx   E (c)out                    IP pop   Next                                                end-code                                                                                                                                                                                                                                                                                                                                                                                        