-
Notifications
You must be signed in to change notification settings - Fork 103
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #497 from kiwisincebirth/map/doc3
Forth documentation and Hide NVR Config app
- Loading branch information
Showing
6 changed files
with
21 additions
and
18 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -6,7 +6,7 @@ BF_SYSRESET EQU 0F0h ; RESTART SYSTEM | |
BF_SYSRES_WARM EQU 01h ; WARM START (RESTART BOOT LOADER) | ||
|
||
|
||
; THE FOLLOWING NEED TO BE SYNCED WITH STD.ASM SO ROMLDR | ||
; THE FOLLOWING NEED TO BE SYNCED WITH INCLUDE.ASM SO ROMLDR | ||
; KNOWS WHERE THIS EXECUTES AT | ||
|
||
FTH_SIZ EQU 1700h | ||
|
@@ -31,7 +31,7 @@ HB_LOC EQU 0FD80h | |
; You should have received a copy of the GNU General Public License | ||
; along with this program. If not, see <http://www.gnu.org/licenses/>. | ||
|
||
; Commercial inquiries should be directed to the author at | ||
; Commercial inquiries should be directed to the author at | ||
; 115 First St., #105, Collingwood, Ontario L9Y 4W3 Canada | ||
; or via email to [email protected] | ||
; | ||
|
@@ -68,18 +68,18 @@ HB_LOC EQU 0FD80h | |
; keywords are being passed in a | ||
; macro. | ||
; b1ackmai1er [email protected] | ||
; 03-Dec 20 v1.02 Add James Bowmans double | ||
; 03-Dec 20 v1.02 Add James Bowmans double | ||
; precision words as per RC2014 | ||
; version. Increase terminal | ||
; version. Increase terminal | ||
; input buffer (TIB) size. | ||
; b1ackmai1er [email protected] | ||
; b1ackmai1er [email protected] | ||
; 22-Jan 21 v1.02 Adjust for revised HBIOS | ||
; proxy size. | ||
; b1ackmai1er [email protected] | ||
; 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. | ||
; write words. | ||
; =============================================== | ||
; Macros to define Forth headers | ||
; HEAD label,length,name,action | ||
|
@@ -296,7 +296,7 @@ dodoes: ; -- a-addr | |
next | ||
|
||
; CP/M TERMINAL I/O ============================= | ||
|
||
;C EMIT c -- output character to console | ||
head EMIT,4,EMIT,docode | ||
PUSH DE | ||
|
@@ -309,7 +309,7 @@ dodoes: ; -- a-addr | |
POP DE | ||
pop BC ; PUT TOP OF STACK IN BC | ||
next | ||
; | ||
; | ||
;Z SAVEKEY -- addr temporary storage for KEY? | ||
head savekey,7,SAVEKEY,dovar | ||
SVKY: DW 0 | ||
|
@@ -318,7 +318,7 @@ SVKY: DW 0 | |
head querykey,4,KEY?,docode | ||
PUSH BC ; SAVE TOP OF STACK | ||
PUSH DE | ||
PUSH HL ; GET CONSOLE INPUT STATUS VIA HBIOS | ||
PUSH HL ; GET CONSOLE INPUT STATUS VIA HBIOS | ||
LD C,CIODEV_CONSOLE ; CONSOLE UNIT TO C | ||
LD B,CIOIST ; HBIOS FUNC: INPUT STATUS | ||
RST 08 ; HBIOS RETURNS STATUS IN A | ||
|
@@ -334,7 +334,7 @@ key3: LD C,0 | |
LD (HL),B | ||
INC HL | ||
LD (HL),C | ||
POP HL | ||
POP HL | ||
POP DE | ||
next | ||
|
||
|
@@ -1090,6 +1090,6 @@ ELSE | |
nop | ||
ENDIF | ||
.DEPHASE | ||
|
||
END | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters