0,0 → 1,211 |
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> |
<html> |
<head> |
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"> |
<title> amforth.asm </title> |
<meta name="keywords" content="amforth programming language Forth ATmega ATMEL"> |
<meta name="description" content="amforth - laguage Forth for ATMEL ATmega"> |
<!-- AUTOINCLUDE START "Page/Head.en.ihtml" DO NOT REMOVE --> |
<link rel="StyleSheet" href="../../../../Web/CSS/MLAB.css" type="text/css" title="MLAB Basic Style"> |
<link rel="StyleSheet" href="../../../../Web/CSS/MLAB_Print.css" type="text/css" media="print"> |
<link rel="shortcut icon" type="image/x-icon" href="../../../../Web/PIC/MLAB.ico"> |
<script type="text/javascript" src="../../../../Web/JS/MLAB_Menu.js"></script> |
<!-- AUTOINCLUDE END --> |
</head> |
|
<body lang="en"> |
|
<!-- AUTOINCLUDE START "Page/Header.en.ihtml" DO NOT REMOVE --> |
<!-- ============== HEADER ============== --> |
<div class="Header"> |
<script type="text/javascript"> |
<!-- |
SetRelativePath("../../../../"); |
DrawHeader(); |
// --> |
</script> |
<noscript> |
<p><b> JavaScript is required for including of the header </b></p> |
</noscript> |
</div> |
<!-- AUTOINCLUDE END --> |
|
<!-- AUTOINCLUDE START "Page/Menu.en.ihtml" DO NOT REMOVE --> |
<!-- ============== MENU ============== --> |
<div class="Menu"> |
<script type="text/javascript"> |
<!-- |
SetRelativePath("../../../../"); |
DrawMenu(); |
// --> |
</script> |
<noscript> |
<p><b> JavaScript is required for including of the menu </b><p> |
</noscript> |
</div> |
<!-- AUTOINCLUDE END --> |
|
<!-- ============== TEXT ============== --> |
<div class="Text"> |
|
<h1> amforth.asm </h1> |
|
<p> |
<input type=button onClick="history.back()" value="Back"> |
<input type=button onClick="history.forward()" value="Forward"> |
<a href="../WordList.en.html">Jump to Vocabulary</a> |
</p> |
|
<pre> |
;;;; avr forth |
;;;; |
;;;; GPL V2 (only) |
|
.set pc_ = pc |
|
.org $0000 |
rjmp reset |
|
.org pc_ |
; main entry point |
reset: |
clr zerol |
clr zeroh |
; init first user data area |
ldi zl, low(heap) |
ldi zh, high(heap) |
movw upl, zl |
; init return stack pointer |
ldi temp0,low(ramend) |
out SPL,temp0 |
std Z+2, temp0 |
ldi temp1,high(ramend) |
out SPH,temp1 |
std Z+3, temp1 |
|
; init parameter stack pointer |
ldi yl,low(stackstart) |
std Z+6, yl |
ldi yh,high(stackstart) |
std Z+7, yh |
|
; allocate space for User Area |
.set heap = heap + USERSIZE |
|
; load Forth IP with starting word |
ldi xl, low(PFA_COLD) |
ldi xh, high(PFA_COLD) |
; the following should be turnkey-action, but adds a few more words to the the dictionary |
call_ device_init |
; its a far jump... |
jmp_ DO_NEXT |
|
; ISR routines |
.include "words/intx.asm" |
.include "words/usart.asm" |
|
; lower part of the dictionary |
.include "dict_minimum.asm" |
.if dict_optional==1 |
.include "dict_optional.asm" |
.endif |
|
.set lowflashlast = pc |
|
; high part of the dictionary (primitives and words for self programming) |
.org nrww |
; the inner interpreter. |
DO_DODOES: |
adiw wl, 1 |
savetos |
movw tosl, wl |
|
pop wh |
pop wl |
|
push xh |
push xl |
movw xl, wl |
rjmp DO_NEXT |
|
DO_COLON: ; 31 CPU cycles to ijmp |
push xh |
push xl ; PUSH IP |
adiw wl, 1 ; set W to PFA |
movw xl, wl |
|
DO_NEXT: ; 24 CPU cycles to ijmp |
brts DO_INTERRUPT |
movw zl,xl ; READ IP |
lsl zl |
rol zh |
lpm wl, Z+ |
lpm wh, Z ; done read IP |
adiw xl, 1 ; INC IP |
|
DO_EXECUTE: ; 12 cpu cycles to ijmp |
movw zl, wl |
lsl zl |
rol zh |
lpm temp0, Z+ |
lpm temp1, Z |
movw zl, temp0 |
ijmp |
|
DO_INTERRUPT: ; 12 cpu cycles to rjmp (+12=24 to ijmp) |
; here we deal with interrupts the forth way |
lds temp0, intcur |
ldi zl, LOW(intvec) |
ldi zh, HIGH(intvec) |
add zl, temp0 |
adc zh, zeroh |
ldd wl, Z+0 |
ldd wh, Z+1 |
|
clt ; clear the t flag to indicate that the interrupt is handled |
rjmp DO_EXECUTE |
|
.include "dict_high.asm" |
|
.if dict_optional==2 |
.include "dict_optional.asm" |
.endif |
.set flashlast = pc |
|
.eseg |
.dw lowflashlast ; DP |
.dw VE_HEAD ; HEAD |
.dw heap ; HEAP |
.dw edp ; EDP |
.dw XT_VER ; TURNKEY |
.dw baud_rate ; BAUDRATE |
; 1st free address in EEPROM, see above |
edp: |
.cseg |
</pre> |
|
<p> |
<input type=button onClick="history.back()" value="Back"> |
<input type=button onClick="history.forward()" value="Forward"> |
<a href="../WordList.en.html">Jump to Vocabulary</a> |
</p> |
|
</div> |
|
<!-- AUTOINCLUDE START "Page/Footer.en.ihtml" DO NOT REMOVE --> |
<!-- ============== FOOTER ============== --> |
<div class="Footer"> |
<script type="text/javascript"> |
<!-- |
SetRelativePath("../../../../"); |
DrawFooter(); |
// --> |
</script> |
<noscript> |
<p><b> JavaScript is required for including of the footer </b></p> |
</noscript> |
</div> |
<!-- AUTOINCLUDE END --> |
|
</body> |
</html> |