Merge pull request #251 from b1ackmai1er/dev

Minor doc updates

Source/Doc/ROM_Applications.md

@@ -323,6 +323,7 @@ camel80.azm   | Code Primitives
  camel80r.azm | ROMWBW additions
 glosshi.txt   | Glossary of high level words
 glosslo.txt   | Glossary of low level words
+glossr.txt    | Glossary of ROMWBW additions
 
 ## ROMWBW Additions
 

Source/Forth/camel80.azm

@@ -76,7 +76,10 @@ HB_LOC			EQU	0FD80h
 ;   22-Jan 21 v1.02 Adjust for revised HBIOS
 ;                   proxy size.
 ;       b1ackmai1er difficultylevelhigh@gmail.com
-;   07-Sep 21 v1.02 Separate additions.                  
+;   07-Sep 21 v1.02 Separate additions.  
+;   05-Oct 21 v1.02 Add Douglas Beattie Jr.'s
+;                   API call and port read and
+;                   write words.                
 ; ===============================================
 ; Macros to define Forth headers
 ; HEAD  label,length,name,action

Source/Forth/camel80r.azm

@@ -30,9 +30,9 @@
 ;   Forth Core word set.  Names in lower case are
 ;   "internal" implementation words & extensions.
 ; ===============================================
-
+;
 ; DOUBLE PRECISION WORDS       ==================
-
+;
 ;C D.    d --           display d signed
     head DDOT,2,D.,docolon
         DW LESSNUM,DUP,TOR,DABS,NUMS
@@ -101,4 +101,44 @@ tdiv1:
 ;C M*/   d1 n2 u3 --  d=(d1*n2)/u3  double precision mult. div
     head MSTARSLASH,3,M*/,docolon
         DW TOR,TSTAR,RFROM,TDIV,EXIT
+;
+; ROMWBW APPLICATION INTERFACE ==================
+;
+;C SVC ( hl de bc n -- hl de bc af )
+;execute ROMWBW API Call)
+    head API,3,API,docode
+        LD      A,C
+        EXX
+        POP     BC
+        POP     DE
+        POP     HL
+        RST     08
+        PUSH    HL
+        PUSH    DE
+        PUSH    BC
+        EXX
+        PUSH    AF
+        POP     BC
+        next
+;
+; BYTE INPUT/OUTPUT            ==================
+;
+;C  P!  ( n p -- ) write byte n to i/o port p
+
+    head PSTORE,2,P!!,docode
+;;        LD      A,C     ;save portnum in reg A
+;;        POP     BC      ;get datum
+;;        LD      B,C     ;  xfer datum to reg B
+;;        LD      C,A     ;xfer portnum to reg C
+;;        OUT     (C),B   ;write byte to I/O port.
+        POP     HL
+        OUT     (C),L
+        POP     BC      ; get new TOS
+        next
+
+;C P@   ( p -- n )  read byte n from i/o port p
+
+    head PFETCH,2,P@,docode
+        IN C,(C)        ;simple stuff...
+        next
 

Source/Forth/glossr.txt

@@ -0,0 +1,12 @@
+                 ROMWBW Extensions
+
+D.     d --                      display d signed
+D+     d1 d2 -- d1+d2          Add double numbers
+2>R    d --                                2 to R
+2R>    d --                        fetch 2 from R
+M*/    d1 n2 u3 --  d=(d1*n2)/u3  
+                       double precision mult. div
+API    hl de bc n -- hl de bc af 
+                          execute ROMWBW API Call
+P!     n p --          write byte n to i/o port p
+P@     p -- n         read byte n from i/o port p

Source/HBIOS/Build.ps1

@@ -27,7 +27,7 @@ $ErrorAction = 'Stop'
 # UNA BIOS is simply imbedded, it is not built here.
 #
 
-$PlatformListZ80 = "SBC", "MBC", "ZETA", "ZETA2", "RCZ80", "RCZ280", "EZZ80", "UNA"
+$PlatformListZ80 = "SBC", "MBC", "ZETA", "ZETA2", "RCZ80", "EZZ80", "UNA"
 $PlatformListZ180 = "N8", "MK4", "RCZ180", "SCZ180", "DYNO"
 $PlatformListZ280 = "RCZ280"