izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/213

12 lines
371 B
Plaintext
Raw Normal View History

Add layer of indirection to EMIT 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...
2020-05-02 10:05:15 +10:00
: Z80AMEM+ 0x5b RAM+ @ + ;
Copy z80a.fs to disk blocks I don't remove z80a.fs yet because build process needs it, but that will change shortly.
2020-04-20 10:36:13 +10:00
: ORG 0 Z80AMEM+ ;
z80a: add BIN( parameter Will be useful for assembling binaries for the TRS-80 which can't start at addr 0.
2020-04-28 05:04:37 +10:00
: BIN( 2 Z80AMEM+ ;
: L1 4 Z80AMEM+ ; : L2 6 Z80AMEM+ ;
: L3 8 Z80AMEM+ ; : L4 10 Z80AMEM+ ;
Add layer of indirection to EMIT 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...
2020-05-02 10:05:15 +10:00
: Z80A$ H@ 0x5b RAM+ ! 12 ALLOT 0 BIN( ! ;
Copy z80a.fs to disk blocks I don't remove z80a.fs yet because build process needs it, but that will change shortly.
2020-04-20 10:36:13 +10:00
: 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 ;