VolksForth/sources/cpm/port8080.fth

35 lines
2.1 KiB
Forth
Raw Normal View History

\ *** Block No. 0 Hexblock 0
\ 8080-Portzugriff UH 11Nov86
Dieses File enthaelt Definitionen um die 8080-Ports ueber 8-Bit
Adressen anzusprechen.
Der Code ist leider selbstmodifizierend, da beim 8080 die
Portadresse im Code ausdruecklich angegeben werden muss.
Sollte dies unerwuenscht sein und ein Z80-Komputer vorliegen,
kann auch das File portz80.scr benutzt werden, indem die
Z80-IO-Befehle (16Bit-Adressen) benutzt werden.
\ *** Block No. 1 Hexblock 1
\ 8080-Portzugriff pc@, pc! 15Jul86
' 0 | Alias patch
Code pc@ ( addr -- c )
H pop L A mov here 4 + sta patch in
0 H mvi A L mov Hpush jmp end-code
Code pc! ( c addr -- )
H pop L A Mov here 6 + sta H pop L A mov patch out
Next end-code