ROM font

Reference:
Propeller Manual V1.1  Chapter1 Page30 - Page34
HydraGameDevManual-v1.0.1.pdf  Chapter16 Page336 - Page338

ROM-font inside propeller is $8000-$BFFF(4096Longs).
1Block-size(including 2characters) is 128byte(32Longs).
All are 128locks(128 X 2characters).
2Character's column(horizon derection) length are 4byte(1Long).
Even character is even dots(b0,2,....b26,b28,b30).
Odd character is odd dots(b1,2,....b27,b29,b31).
2Character's row(vertical derection) length are 32.
Character is 16 X 32pixel.


1. Word'font1 display combined fonts. 

fl
hex
: demo1
h8000
begin
     dup hC000 = if drop h8000 then
     dup ." $" hex . cr
     d32 0 do
          dup L@ 1
          d32 0 do 2dup and if 1 else 0 then . 1 lshift loop 2drop cr
          4 +
     loop
     cr cr
fkey? swap drop until
drop
;

There are "@" and "A" below;     But it cannot see characters.
$9000
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 0 0 0 0 0
0 0 0 0 0 0 0 1 0 1 0 1 0 1 1 1 1 1 1 1 1 1 0 1 0 1 0 1 0 0 0 0
0 0 0 0 0 0 0 1 0 1 1 1 1 0 1 0 1 0 1 0 1 0 1 1 1 1 0 1 0 0 0 0
0 0 0 0 0 1 0 1 1 1 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1 1 1 0 1 0 0
0 0 0 0 0 1 1 1 1 1 1 0 1 0 0 0 0 0 0 0 0 0 1 0 1 1 1 1 0 1 0 0
0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0
0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0
0 0 0 0 1 1 1 1 1 1 0 0 0 0 1 0 1 0 1 0 1 0 1 0 0 1 1 1 1 1 0 0
0 0 0 0 1 1 1 1 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 0 0
0 0 0 0 1 1 1 1 0 1 0 1 1 1 1 1 0 1 0 1 1 1 1 1 0 1 1 1 1 1 0 0
0 0 0 0 1 1 1 1 0 1 0 1 1 1 1 1 0 1 0 1 1 1 1 1 0 1 1 1 1 1 0 0
0 0 0 0 1 1 1 1 0 1 0 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1 1 1 1 1 0 0
0 0 0 0 1 1 1 1 1 1 0 0 0 0 1 0 1 0 1 0 0 0 1 0 1 1 1 1 0 1 0 0
0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0
0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0
0 0 0 0 0 1 1 1 1 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0
0 0 0 0 0 1 0 1 1 1 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1 1 1 0 1 0 0
0 0 0 0 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 0
0 0 0 0 0 1 0 1 0 1 0 0 0 0 1 0 1 0 1 0 1 0 0 0 0 1 0 1 0 1 0 0
0 0 0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0
0 0 0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0


2. A little bit seperate even and odd character 

fl
hex

: demo2
h8000
begin
     dup hC000 = if drop h8000 then
     dup ." $" hex . cr
     d32 0 do
          dup L@ 1
          d32 0 do 2dup and 
          if 
               i 2 u/mod drop 
               if 
                    h23       \ # - odd
               else
                    h21       \ ! - even
               then
          else 
               bl 
          then 
          emit 1 lshift loop 2drop cr
          4 +
     loop
     cr cr
fkey? swap drop until
drop
;


$9000





             # # # # #
         # # # # # # # # #
       # # # #!#!#!#!# # # #
       # #!#! ! ! ! ! !#!# #
     # #!#! ! ! ! ! ! ! !#!# #
     #!#!#! !         ! !#!# #
     #!#!#!             !#!#!#
    !#!#!#               #!#!#
    !#!#!#    ! ! ! ! !  #!#!#
    !#!# # #!#!#!#!#!#!# #!#!#
    !#!# # #!#!# # #!#!# #!#!#
    !#!# # #!#!# # #!#!# #!#!#
    !#!# #  ! ! ! ! ! ! !#!#!#
    !#!#!#    ! ! !   ! !#!# #
    !#!#!#               # # #
     #!#!#!              #!#!#
     #!#!#! !           !#!#!#
     # #!#! ! ! ! ! ! ! !#!# #
     # # #! ! ! ! ! ! ! !# # #
     # # #    ! ! ! !    # # #
     # # #               # # #
     # # #               # # #



3. Displaying separate 

fl
hex
wvariable odd
: demo3
h8000
begin
     dup hC000 = if drop h8000 then
     dup ." $" hex . cr 
     dup                 
     2 0 do
          i 1+ odd W!                 
          d32 0 do
               dup L@ odd W@
               d16 0 do            \ print 1-row (16bits)
                    2dup and
                    if
                         h2A
                    else
                         bl
                    then     
                    emit
                    2 lshift
               loop
               2drop
               cr
               4 +     
          loop           
          cr cr
          d128 -         
     loop
     drop
     d128 +                        \ next character
fkey? swap drop until
drop
;

$9000







       ****
     ********
    **********
   ****    ***
   ***      ***
  ***        **
  ***  ***** **
  **  ****** **
  **  **  ** **
  **  **  ** **
  **  *********
  ***  *** ***
  ***
   ***       **
   ****     ***
    **********
     ********
       ****














      *****
    *********
   ***********
   ***     ***
  ***       ***
  ***       ***
  ***       ***
  ***       ***
  ***       ***
  *************
  *************
  *************
  ***       ***
  ***       ***
  ***       ***
  ***       ***
  ***       ***
  ***       ***
  ***       ***
  ***       ***
  ***       ***
  ***       ***








4. Analysys POV_1.1 

POV_1.1 display 8X8-pixels.
Word'drive_LED' drive LED-On/Off according to LED_data array.
Word'getRow' get row-data.
Word'pov' operate shorting-pixel (from16 X 32pixel ti 8 X 8pixel).

Detail is next tips.