From 2b7abf802f3765cbee03594e2995231055cfcabd Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Sat, 13 Jun 2020 21:37:54 -0400 Subject: [PATCH] pcat: begin porting forth I'm not sure yet where I'm going, but I'm not going to build the 8086 port from the ground up like I did with the z80, that is, making is sustain itself and eventually merge its forth code with core words. That would be too much work which would then be thrown out (all those words I'll initially have to implement in asm which are already implemented in Forth). What I *think* I can do is build a mirror version of z80 boot code and cross-compile it from the z80. This means it has to follow z80 stable ABI. Nope, I'm not sure where I'm going... --- blk/752 | 1 + blk/812 | 24 +++++++++++++++--------- blk/813 | 3 +++ recipes/pcat/xcomp.fs | 2 +- 4 files changed, 20 insertions(+), 10 deletions(-) create mode 100644 blk/813 diff --git a/blk/752 b/blk/752 index b70ebe0..0b7e1ae 100644 --- a/blk/752 +++ b/blk/752 @@ -4,3 +4,4 @@ ; : PC H@ ORG @ - BIN( @ + ; : A, C, ; +: A,, SPLITB A, A, ; diff --git a/blk/812 b/blk/812 index 6c028e2..2a75392 100644 --- a/blk/812 +++ b/blk/812 @@ -1,10 +1,16 @@ +( Registers. SP -> PSP DX -> RSP CX -> IP ) H@ ORG ! -JMPs, L1 FWRs ( start ) -L2 ( msg ) BSET ," Hello World!" 0 A, -L1 FSET ( start ) -SI L2 @ ( msg ) MOVxi, AH 0x0e MOVri, ( print char ) -L1 BSET ( loop ) LODSB, AL AL ORrr, ( end of str? ) -JZ, L2 FWRs ( next ) 0x10 INT, ( print char ) -JMPs, L1 ( loop ) BWR -L2 FSET ( next ) AH 0 MOVri, 0x16 INT, ( read kbd ) -AH 0x0e MOVri, 0x10 INT, ( spit read char ) HLT, ( done ) +JMPn, 0 A,, ( 00, main ) JMPn, 0 A,, ( 03, find ) +0 A,, ( 06, unused ) 0 A,, ( 08, LATEST ) +0 A, ( 0a, unused ) JMPn, 0 A,, ( 0b, cellWord ) +JMPn, 0 A,, ( 0e compiledWord ) JMPn, 0 A,, ( 11, pushRS ) +JMPn, 0 A,, ( 14, popRS ) +JMPn, 0 A,, ( 17, nativeWord ) +JMPn, 0 A,, ( 1a, next ) JMPn, 0 A,, ( 1d, chkPS ) +0 A, 0 A, ( 20, numberWord ) 0 A, 0 A, ( 22, litWord ) +0 A, 0 A, ( 24, addrWord ) 0 A, 0 A, ( 26, unused ) +0 A, 0 A,, ( unused ) +JMPn, 0 A,, ( 2b, doesWord ) 0 A, 0 A, ( 2e, unused ) +0 A, 0 A,, ( unused ) +JMPn, 0 A,, ( 33, execute ) 0 A, 0 A, ( unused ) +0 A, 0 A,, ( unused ) diff --git a/blk/813 b/blk/813 new file mode 100644 index 0000000..0192d43 --- /dev/null +++ b/blk/813 @@ -0,0 +1,3 @@ +PC 3 - ORG @ 1+ ! ( main ) + AH 0x0e MOVri, ( print char ) AL 'X' MOVri, 0x10 INT, + HLT, diff --git a/recipes/pcat/xcomp.fs b/recipes/pcat/xcomp.fs index dc2fb4e..bcfa300 100644 --- a/recipes/pcat/xcomp.fs +++ b/recipes/pcat/xcomp.fs @@ -1,4 +1,4 @@ 750 LOAD -812 LOAD +812 813 LOADR ORG @ 256 /MOD 2 PC! 2 PC! H@ 256 /MOD 2 PC! 2 PC!