home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d005 / samplefont.lha / samplefont / samplefont.asm
Encoding:
Assembly Source File  |  1986-01-12  |  7.3 KB  |  183 lines
  1. *
  2. *    DISCLAIMER:
  3. *
  4. *    This program is provided as a service to the programmer
  5. *    community to demonstrate one or more features of the Amiga
  6. *    personal computer.  These code samples may be freely used
  7. *    for commercial or noncommercial purposes.
  8. * 
  9. *     Commodore Electronics, Ltd ("Commodore") makes no
  10. *    warranties, either expressed or implied, with respect
  11. *    to the program described herein, its quality, performance,
  12. *    merchantability, or fitness for any particular purpose.
  13. *    This program is provided "as is" and the entire risk
  14. *    as to its quality and performance is with the user.
  15. *    Should the program prove defective following its
  16. *    purchase, the user (and not the creator of the program,
  17. *    Commodore, their distributors or their retailers)
  18. *    assumes the entire cost of all necessary damages.  In 
  19. *    no event will Commodore be liable for direct, indirect,
  20. *    incidental or consequential damages resulting from any
  21. *    defect in the program even if it has been advised of the 
  22. *    possibility of such damages.  Some laws do not allow
  23. *    the exclusion or limitation of implied warranties or
  24. *    liabilities for incidental or consequential damages,
  25. *    so the above limitation or exclusion may not apply.
  26. *
  27.  
  28. * samplefont.asm  
  29. *
  30. *
  31. *
  32. * A complete sample font.  To test this font, the following must be done:
  33. *
  34. * 1.  In the AmigaDOS SYS:fonts directory, install a file by the name of
  35. *     test.font, containing 264 bytes.   
  36. *    
  37. *    The first two bytes must contain the value hex 0f00, the
  38. *    identifier for a font header.
  39. *
  40. *    The next word (2 bytes), should contain the value 0001,
  41. *    which is the number of FontContents elements.  There is
  42. *    only going to be one font in the directory that this
  43. *    font description covers.
  44. *
  45. *    Follow this header material with the ascii value for
  46. *     'test/8';  the next 250 bytes should be set to zero. 
  47. *    This represents the pathname for AmigaDOS to follow
  48. *    from the directory SYS:fonts in order to reach this test font.
  49. *    'test' is the directory it should go to and '8' is the font
  50. *    file itself, as assembled and linked below.
  51. *
  52. *    The next two bytes (as one word) contain the font YSize, in
  53. *    this case 0008.  
  54. *    
  55. *    The next byte contains the font Flags, in this case 00.
  56. *
  57. *    The last byte contains the font characteristics, in this
  58. *    case hex 60, this says it is a disk-based font (bit 1 set)
  59. *    and the font has been removed (bit 7 set) saying that the
  60. *    font is not currently resident.
  61. *
  62. *    Summary (all in hex) of test.font file:
  63. *
  64. *    0f00 0001 test/8 ........ 0008 00   60
  65. *    word word 256-bytes...... word byte byte
  66. *    
  67. * 2.    Create a directory named 'test' in SYS:fonts.
  68. *
  69. *    Copy the file created by assembling and linking the test font
  70. *    below into a file named '8' in subdirectory SYS:fonts/test.
  71. *
  72. *    Use the font under the Notepad program or any other.  It
  73. *    defines ascii characters 'a' 'b' 'c' and 'd' only.  All
  74. *    other characters print an "unknown character", a rectangle.
  75. *
  76. *     author:  Rob Peck  12/1/85    
  77. *
  78. *    This code may be freely utilized to create programs for the Amiga
  79. *
  80. *------ Included Files -----------------------------------------------
  81.  
  82.         INCLUDE         "exec/types.i"
  83.         INCLUDE         "exec/nodes.i"
  84.         INCLUDE         "libraries/diskfont.i"
  85.  
  86.                 MOVEQ   #0,D0    ;provide an easy exit in case somebody
  87.                 ;tries to RUN this file instead of loading it.
  88.                 RTS
  89.                 DC.L    0               ; ln_Succ
  90.                 DC.L    0               ; ln_Pred
  91.                 DC.B    NT_FONT         ; ln_Type
  92.                 DC.B    0               ; ln_Pri
  93.                 DC.L    fontName        ; ln_Name
  94.                 DC.W    DFH_ID          ; FileID
  95.                 DC.W    1               ; Revision
  96.                 DC.L    0               ; Segment
  97. fontName:
  98.                 DS.B    MAXFONTNAME     ; Name
  99. font:
  100.                 DC.L    0               ; ln_Succ
  101.                 DC.L    0               ; ln_Pred
  102.                 DC.B    NT_FONT         ; ln_Type
  103.                 DC.B    0               ; ln_Pri
  104.                 DC.L    fontName        ; ln_Name
  105.                 DC.L    0               ; mn_ReplyPort
  106.                 DC.W    fontEnd-font    ; mn_Length
  107.                 DC.W    8               ; tf_YSize
  108.                 DC.B    0               ; tf_Style
  109.                 DC.B    FPF_DESIGNED+FPF_PROPORTIONAL   ; tf_Flags
  110.                 DC.W    14              ; tf_XSize
  111.                 DC.W    6               ; tf_Baseline
  112.  
  113. * baseline must be no greater a value than YSize-1, otherwise algorithmically
  114. * generated style (italic particularly) can corrupt system memory.
  115.  
  116.                 DC.W    1               ; tf_BoldSmear
  117.                 DC.W    0               ; tf_Accessors
  118.                 DC.B    97              ; tf_LoChar
  119.                 DC.B    100             ; tf_HiChar
  120.                 DC.L    fontData        ; tf_CharData
  121.                 DC.W    8               ; tf_Modulo, no of bytes to add to
  122.                     ; data pointer to go from one row of
  123.                     ; a character to the next row of it.
  124.                 DC.L    fontLoc         ; tf_CharLoc, bit position in the 
  125.                     ; font data at which the character 
  126.                     ; begins.
  127.                 DC.L    fontSpace       ; tf_CharSpace
  128.                 DC.L    fontKern        ; tf_CharKern
  129.  
  130. *******************************************************************
  131. * These are the suits-characters that this font data defines. 
  132. * ascii lower case a,b,c,d.  The font descriptor says that there
  133. * are 4 characters described here.  The fifth character in the
  134. * table is the character that is to be output when there is
  135. * no character in this character set that matches the ascii
  136. * value requested.
  137. *
  138. * 97            98            99        100           256
  139. *<            ><            ><        ><            ><            >
  140. *  @@@   @@@         @           @          @@@       @@@@@@@@@@@@
  141. * @@@@@ @@@@@      @@@@@        @@@        @@@@@      @@        @@
  142. *  @@@@@@@@@     @@@@@@@@@     @@@@@     @@  @  @@    @@        @@
  143. *   @@@@@@@     @@@@@@@@@@@   @@@@@@@   @@@@@@@@@@@   @@        @@
  144. *    @@@@@       @@@ @ @@@     @@@@@     @@  @  @@    @@        @@
  145. *     @@@            @          @@@          @        @@        @@
  146. *      @           @@@@@         @         @@@@@      @@@@@@@@@@@@
  147. * 
  148. *******************************************************************
  149. fontData: 
  150.             DC.W    $071C0,$08040,$070FF,$0F000
  151.             DC.W    $0FBE3,$0E0E0,$0F8C0,$03000
  152.             DC.W    $07FCF,$0F9F3,$026C0,$03000
  153.             DC.W    $03F9F,$0FFFF,$0FFC0,$03000
  154.             DC.W    $01F0E,$0B9F3,$026C0,$03000
  155.             DC.W    $00E00,$080E0,$020C0,$03000
  156.             DC.W    $00403,$0E040,$0F8FF,$0F000
  157.             DC.W    $00000,$00000,$00000,$00000
  158.             DC.W    $00000,$00000,$00000,$00000
  159.  
  160. * font data is bit-packed edge to edge to save space; thats what the
  161. * fontLoc is all about.
  162.  
  163. fontLoc:     
  164.             DC.L    $00000000B,$0000B000B,$000160007,$0001D000B
  165.         DC.L    $00028000C
  166.  
  167. * Each pair of words specifies how the characters are bit-packed.  For
  168. * example, the first character starts at bit position 0000, and is 000B
  169. * (11) bits wide.  The second character starts at bit position 000B and
  170. * is 000B bits wide, and so on.  Tells font handler how to unpack the 
  171. * bits from the array.
  172.  
  173. fontSpace:
  174.             DC.W    000012,000012,000008,000012,000013
  175.  
  176. * fontSpace array:  Use a space that is this-wide to contain this character
  177. *            when it is printed.
  178.  
  179. fontKern:
  180.             DC.W    000001,000001,000001,000001,000001
  181. fontEnd:
  182.         END
  183.