From 23f1197ed11a1258c079d2f7c168883ea1f10424 Mon Sep 17 00:00:00 2001 From: nratan Date: Sun, 3 Nov 2019 18:52:38 +0000 Subject: Formatting --- README.md | 4 +++- jonesforth.f | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index 4cab30e..2aadeb4 100644 --- a/README.md +++ b/README.md @@ -1,4 +1,4 @@ -*JonesForth ARM64 with APL symbols* +# JonesForth ARM64 with APL symbols This is an ARMv8 AArch64 version of Richard W.M. Jones' original x86 JonesForth. I have added a few things including: @@ -11,6 +11,7 @@ Also I have used the APL character set. The pizza is in the examples dir but by way of garlic bread: +``` ∇ ε ( ⌈⌊ ⊤ - ↑ ∥) ↓ ∇ / Define ε as Euclid's algorithm / ∇ λ ◁ , ▷ @ ⍎ ∇ / A defining word λ which names anonymous functions / @@ -18,6 +19,7 @@ The pizza is in the examples dir but by way of garlic bread: 3 ⊂ ↑ ⊃ ⊂ + ⊃ cat ⍎ / Double three using the cat combinator / 1 2 3 4 ⊂ × ⟦ + - ⊃ ⟧ ⍎ / Capture '+ -' in a delimited continuation with ⟦ ⟧ / +``` ASCII equivalents for APL-character words are defined in ascii.f (they are the corresponding Forth words where applicable so ascii.f makes a handy glossary). diff --git a/jonesforth.f b/jonesforth.f index 91af0d8..0d45f84 100644 --- a/jonesforth.f +++ b/jonesforth.f @@ -122,7 +122,7 @@ ∇ .D 13 ∇ ∇ .R 14 ∇ ∇ .I 15 ∇ ∇ .J 16 ∇ / Register numbers for D,R,I,J pointers / -∇ NEXT .J .I 8 ldr post ,, 0 .J 0 ldr ,, D61F0000 ,, ALIGN ∇ / Code for NEXT (hex opcode is for the branch b 0) / +∇ NEXT .J .I 8 ldr post ,, 0 .J 0 ldr ,, D61F0000 ,, ALIGN ∇ / Code for NEXT (hex opcode is for the branch br x0) / / Example defining 7+ with the assembler / ∆ 7+ 0 .D pop ,, 0 0 7 addi ,, 0 .D push ,, NEXT -- cgit 1.4.1-2-gfad0