; Dient zum Erzeugen von Diskfonts.
; File muß assembliert und gelinkt werden
;***********************************************
;INCLUDE "exec/types.i"
;INCLUDE "exec/nodes.i"
;INCLUDE "libraries/diskfont.i"

DFH_ID EQU $0f80
MAXFONTNAME EQU 32
FPF_PROPORTIONAL EQU 32
FPF_DESIGNED EQU 64
NT_FONT EQU 12
                      ;*************************
 MOVEQ   #0,D0        ;* ABBRUCH BEIM
 RTS                  ;* STARTVERSUCH
                      ;*************************

 DC.L    0            ;*************************
 DC.L    0            ;*
 DC.B    NT_FONT      ;*  HIER
 DC.B    0            ;*  WERDEN
 DC.L    fontName     ;*  STRUKTURN
 DC.W    DFH_ID       ;*  INITIALISIERT,
 DC.W    1            ;*  DIE DEM
 DC.L    0            ;*  SYSTEM DIENEN.
                      ;*  
fontName:             ;*
 DS.B    MAXFONTNAME  ;*  
                      ;* 
font:                 ;*  <-- Beginn der
 DC.L    0            ;*    TextFont Struktur
 DC.L    0            ;*  
 DC.B    NT_FONT      ;*  KEINE AENDERUNGEN
 DC.B    0            ;*
 DC.L    fontName     ;*  SINNVOLL
 DC.L    0            ;*
 DC.W    fontEnd-font ;***********************

;**************************************************
;
;  AB HIER WIRD DER NEUE FONT BESTIMMT
;
;***************************
                        ;*  
 DC.W    8              ;* Zeichenhoehe in Pixel
 DC.B    0              ;* Bestimmung des Styles
 DC.B    FPF_DESIGNED+FPF_PROPORTIONAL ;*  und der Flags
 DC.W    14             ;* Normalbreite in Pixel
 DC.W    6              ;* Lage der Baseline
                        ;*
 DC.W    1              ;* 
 DC.W    0              ;* Zaehler muß 0 sein
 DC.B    97             ;* ASCII-Wert für 1.Zeichen
 DC.B    100            ;* und fuer das letzte
 DC.L    fontData       ;* nicht aendern
 DC.W    8              ;* Modulo Wert
                        ;*
 DC.L    fontLoc        ;* nicht aendern
                        ;*
 DC.L    fontSpace      ;* nicht aendern
 DC.L    fontKern       ;* nicht aendern

fontData:    ;* Das eigentliche Aussehen des Fonts

 DC.W    $071C0,$08040,$070FF,$0F000
 DC.W    $0FBE3,$0E0E0,$0F8C0,$03000
 DC.W    $07FCF,$0F9F3,$026C0,$03000
 DC.W    $03F9F,$0FFFF,$0FFC0,$03000
 DC.W    $01F0E,$0B9F3,$026C0,$03000
 DC.W    $00E00,$080E0,$020C0,$03000
 DC.W    $00403,$0E040,$0F8FF,$0F000
 DC.W    $00000,$00000,$00000,$00000
 DC.W    $00000,$00000,$00000,$00000

fontLoc:          ;* Offset und Breite der Zeichen

 DC.L    $00000000B,$0000B000B,$000160007,$0001D000B
 DC.L    $00028000C

fontSpace:        ;* Breite einzelner Zeichen

 DC.W    000012,000012,000008,000012,000013

fontKern:     ;* Beginn des Zeichens in der Matrix
 DC.W    000001,000001,000001,000001,000001

fontEnd:      ;* Selbstredend
 END