The Arduino controlled by eForth by Ting Chen-Hanson

Author:Ting, Chen-Hanson [Ting, Chen-Hanson]
Language: eng
Format: epub
Published: 2018-08-28T16:00:00+00:00

.DW '0'

RJMP PLUS

; EXTRACT ( n base -- n c )

; Extract the least significant digit from n.

; COLON 7,"EXTRACT" EXTRC:

RCALL DOLIT .DW 0

RCALL SWAPP

RCALL UMMOD

RCALL SWAPP RJMP DIGIT

; <# ( -- )

; Initiate the numeric output process.

COLON 2,"<#"

BDIGS:

RCALL PAD

RCALL HLD

RJMP STORE

; HOLD ( c -- )

; Insert a character into the numeric output string.

COLON 4,"HOLD"

HOLD:

RCALL HLD

RCALL AT

SBIW TOSL,1

RCALL DUPP

RCALL HLD

RCALL STORE RJMP CSTOR

DIGIT

Convert an integer digit to the corresponding ASCII character.

Download

Copyright Disclaimer:
This site does not store any files on its server. We only index and link to content provided by other sites. Please contact the content providers to delete copyright contents if any and email us, we'll remove relevant links or contents immediately.