mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-26 02:49:17 +00:00
35 lines
2.1 KiB
Forth
35 lines
2.1 KiB
Forth
|
\ *** 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
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|