mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 02:28:06 +11:00
ecca70c7f3
This would allow things like temporary giving control to the *CL line on the TRS-80. For example... A very far fetched example. Not at all the only *raison d'etre* of the layer...
12 lines
371 B
Plaintext
12 lines
371 B
Plaintext
: Z80AMEM+ 0x5b RAM+ @ + ;
|
|
: ORG 0 Z80AMEM+ ;
|
|
: BIN( 2 Z80AMEM+ ;
|
|
: L1 4 Z80AMEM+ ; : L2 6 Z80AMEM+ ;
|
|
: L3 8 Z80AMEM+ ; : L4 10 Z80AMEM+ ;
|
|
: Z80A$ H@ 0x5b RAM+ ! 12 ALLOT 0 BIN( ! ;
|
|
: A 7 ; : B 0 ; : C 1 ; : D 2 ;
|
|
: E 3 ; : H 4 ; : L 5 ; : (HL) 6 ;
|
|
: BC 0 ; : DE 1 ; : HL 2 ; : AF 3 ; : SP AF ;
|
|
: CNZ 0 ; : CZ 1 ; : CNC 2 ; : CC 3 ;
|
|
: CPO 4 ; : CPE 5 ; : CP 6 ; : CM 7 ;
|