From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/msp430/words/reg-a.asm | 95 -------------------------------------- 1 file changed, 95 deletions(-) delete mode 100644 amforth-6.5/msp430/words/reg-a.asm (limited to 'amforth-6.5/msp430/words/reg-a.asm') diff --git a/amforth-6.5/msp430/words/reg-a.asm b/amforth-6.5/msp430/words/reg-a.asm deleted file mode 100644 index 89d3b8b..0000000 --- a/amforth-6.5/msp430/words/reg-a.asm +++ /dev/null @@ -1,95 +0,0 @@ -; ( -- n2 ) -; Extended VM -; Read memory pointed to by register A (Extended VM) -CODEHEADER(XT_AFETCH,2,"a@") - SUB #2,PSP - MOV TOS,0(PSP) - MOV @REG_A,TOS - NEXT - -; ( n1 -- n2 ) -; Extended VM -; Read memory pointed to by register A plus offset (Extended VM) -CODEHEADER(XT_NAFETCH,3,"na@") - ADD REG_A,TOS - MOV @TOS,TOS - NEXT - -; ( -- n ) -; Extended VM -; Read memory pointed to by register A, increment A by 1 cell (Extended VM) -CODEHEADER(XT_AFETCHPLUS,3,"a@+") - SUB #2,PSP - MOV TOS,0(PSP) - ADD REG_A,TOS - MOV @TOS,TOS - ADD #2,REG_A - NEXT - -; ( -- n ) -; Extended VM -; Read memory pointed to by register A, decrement A by 1 cell (Extended VM) -CODEHEADER(XT_AFETCHMINUS,3,"a@-") - SUB #2,PSP - MOV TOS,0(PSP) - ADD REG_A,TOS - MOV @TOS,TOS - SUB #2,REG_A - NEXT - -; ( n -- ) -; Extended VM -; Write memory pointed to by register A (Extended VM) -CODEHEADER(XT_ASTORE,2,"a!") - MOV TOS,@REG_A - MOV @PSP+,TOS - NEXT - -; ( n offs -- ) -; Extended VM -; Write memory pointed to by register A plus offset (Extended VM) -CODEHEADER(XT_NASTORE,3,"na!") - ADD REG_A, TOS - MOV @PSP+,X - MOV X,@TOS - MOV @PSP+,TOS - NEXT - -; ( -- n2 ) -; Extended VM -; Write memory pointed to by register A, increment A by 1 cell (Extended VM) -CODEHEADER(XT_ASTOREPLUS,3,"a!+") - MOV TOS,@REG_A - MOV @PSP+,TOS - ADD #2,REG_A - NEXT - -; ( -- n2 ) -; Extended VM -; Write memory pointed to by register A, decrement A by 1 cell (Extended VM) -CODEHEADER(XT_ASTOREMINUS,3,"a!-") - MOV TOS,@REG_A - MOV @PSP+,TOS - SUB #2,REG_A - NEXT - -; ( n -- ) -; Extended VM -; Write to A register (Extended VM) -CODEHEADER(XT_TO_A,2,">a") - MOV TOS,REG_A - MOV @PSP+,TOS - NEXT - -; ( n1 -- n2 ) -; Extended VM -; read the A register (Extended VM) -CODEHEADER(XT_A_FROM,2,"a>") - SUB #2,PSP - MOV REG_A,TOS - NEXT - -; for more information read -; http://www.complang.tuwien.ac.at/anton/euroforth/ef08/papers/pelc.pdf -; adapted index based access from X/Y registers -; note: offset is byte address, not cell! -- cgit v1.2.3