2 files changed, 41 insertions(+), 50 deletions(-)

M fs/xcomp/arm/rpi/kernel.fs
M fs/xcomp/rpiboot.fs

@@ 4,17 4,9 @@
 \ For RPI model 1
 $20000000 const MMIO_BASE
 $200000 const GPIO_BASE
-$94 const GPPUD
-$98 const GPPUDCLK0
 $1000 const UART0_BASE
 $00 const UART0_DR
 $18 const UART0_FR
-$24 const UART0_IBRD
-$28 const UART0_FBRD
-$2c const UART0_LCRH
-$30 const UART0_CR
-$38 const UART0_IMSC
-$44 const UART0_ICR
 
 \ Macros
 : xnip, add) rPSP rdn) CELLSZ i) ,) ;


@@ 28,10 20,6 @@ $44 const UART0_ICR
 : wcall, xwordlbl execute, ;
 : wjmp, xwordlbl abs>rel b) ,) ; \ only for leaf words!
 
-: delay, ( ncycles -- )
-  mov) r0 rd) swap ( ncycles ) i) ,)
-  pc sub) r0 rdn) 1 i) f) ,) ( pc ) abs>rel b) ne) ,) ;
-
 : pc>reg, ( pc r -- )
   dip pc -^ 8 + | ( off r )
   mov) over rd) rPC rm) ,)


@@ 145,6 133,8 @@ xcode parse ( str -- n? f )
   L4 abs>rel b) ,)
 
 xcode emit ( c -- ) \ Preserves r0, r1, r2
+  r7 MMIO_BASE GPIO_BASE movi2,
+  add) r7 rdn) UART0_BASE i) ,)
   pc
     ldr) r3 rd) r7 rn) UART0_FR +i) ,)
     tst) r3 rn) $20 i) ,)


@@ 154,6 144,8 @@ xcode emit ( c -- ) \ Preserves r0, r1, r2
   exit,
 
 xcode key ( -- c )
+  r7 MMIO_BASE GPIO_BASE movi2,
+  add) r7 rdn) UART0_BASE i) ,)
   pc
     ldr) r3 rd) r7 rn) UART0_FR +i) ,)
     tst) r3 rn) $10 i) ,)


@@ 835,42 827,6 @@ xcode runword ( str -- )
   pushret, L1 execute, popret,
   L2 abs>rel b) ,)
 
-xcode uartinit
-  r6 MMIO_BASE GPIO_BASE movi2, \ r6 = GPIO_BASE
-  add) r7 rd) r6 rn) UART0_BASE i) ,) \ r7 = UART0_BASE
-  \ Disable UART0
-  mov) r1 rd) 0 i) ,) str) r1 rd) r7 rn) UART0_CR +i) ,)
-  \ Disable pull up/down for all GPIO pins & delay for 150 cycles.
-  ( r1=0 ) str) r1 rd) r6 rn) GPPUD +i) ,)
-  150 delay,
-  \ Disable pull up/down for pin 14,15 & delay for 150 cycles.
-  mov) r1 rd) $c000 i) ,) str) r1 rd) r6 rn) GPPUDCLK0 +i) ,)
-  150 delay,
-  \ Write 0 to GPPUD and GPPUDCLK0 to make it take effect.
-  mov) r1 rd) 0 i) ,)
-  str) r1 rd) r6 rn) GPPUD +i) ,)
-  str) r1 rd) r6 rn) GPPUDCLK0 +i) ,)
-  \ Clear pending interrupts.
-  mov) r1 rd) $700 i) ,) add) r1 rd) r1 rn) $ff i) ,)
-  str) r1 rd) r7 rn) UART0_ICR +i) ,)
-  \ Set integer & fractional part of baud rate.
-  \ UART_CLOCK on rpi1 is 48Mhz
-  \ Divider = UART_CLOCK/(16 * Baud)
-  \ Fraction part register = 64th of the unit
-  \ Baud = 115200.
-  \ Divider = 48000000 / (16 * 115200) = 26.042
-  mov) r1 rd) 26 i) ,) str) r1 rd) r7 rn) UART0_IBRD +i) ,)
-  mov) r1 rd) 3 i) ,) str) r1 rd) r7 rn) UART0_FBRD +i) ,)
-  \ Enable FIFO & 8 bit data transmission (1 stop bit, no parity).
-  mov) r1 rd) $70 i) ,) str) r1 rd) r7 rn) UART0_LCRH +i) ,)
-  \ Mask all interrupts.
-  mov) r1 rd) $700 i) ,) add) r1 rd) r1 rn) $f2 i) ,)
-  str) r1 rd) r7 rn) UART0_IMSC +i) ,)
-  \ Enable UART0, receive & transfer part of UART.
-  mov) r1 rd) $300 i) ,) add) r1 rd) r1 rn) $01 i) ,)
-  str) r1 rd) r7 rn) UART0_CR +i) ,)
-  exit,
-
 pc to L1 ( halfbyte -- )
   cmp) rTOP rn) 10 i) ,)
   add) lo) rTOP rdn) '0' i) ,)

@@ 90,7 90,6 @@ code ?dup W=0>Z, 0 Z) branchC, dup, then exit,
 Z) _ =   NZ) _ <>  >) _ <    <) _ >    >=) _ <=  <=) _ >=
 
 : \ begin in< $20 < until ; immediate
-uartinit \ see the (wnf) if comment is mishandled
 \ hello, this is a comment!
 : exit popret, exit, ; immediate
 : ( begin


@@ 138,4 137,40 @@ code (cell) pushret, r> popret, exit,
 : create code pushret, compile (cell) ;
 : const code litn exit, ;
 4 const CELLSZ
-prompt interactive!
+
+\ For RPI model 1
+$20000000 const MMIO_BASE
+MMIO_BASE $200000 + const GPIO_BASE
+GPIO_BASE $94 + const GPPUD
+GPIO_BASE $98 + const GPPUDCLK0
+GPIO_BASE $1000 + const UART0_BASE
+UART0_BASE const UART0_DR
+UART0_BASE $18 + const UART0_FR
+UART0_BASE $24 + const UART0_IBRD
+UART0_BASE $28 + const UART0_FBRD
+UART0_BASE $2c + const UART0_LCRH
+UART0_BASE $30 + const UART0_CR
+UART0_BASE $38 + const UART0_IMSC
+UART0_BASE $44 + const UART0_ICR
+
+: delay ( n -- ) begin 1- ?dup not until ;
+: uartinit
+  0 UART0_CR ! \ Disable UART0
+  0 GPPUD ! 100 delay \ Disable pull up/down for all GPIO pins
+  $c000 GPPUDCLK0 ! 100 delay \ Disable pull up/down for pins 14,15
+  \ Write 0 to GPPUD and GPPUDCLK0 to make it take effect.
+  0 GPPUD ! 0 GPPUDCLK0 !
+  $7ff UART0_ICR ! \ Clear pending interrupts.
+  \ Set integer & fractional part of baud rate.
+  \ UART_CLOCK on rpi1 is 48Mhz
+  \ Divider = UART_CLOCK/(16 * Baud)
+  \ Fraction part register = 64th of the unit
+  \ Baud = 115200.
+  \ Divider = 48000000 / (16 * 115200) = 26.042
+  26 UART0_IBRD !
+  3 UART0_FBRD !
+  $70 UART0_LCRH ! \ Enable FIFO & 8N1
+  $7f2 UART0_IMSC ! \ Mask all interrupts
+  $301 UART0_CR ! ; \ Enable UART0, receive & transfer part of UART.
+
+uartinit prompt interactive!