*-----------------------------------------------------------
* Program Number: v1.0
* Written by    : Charles Kelly
* Date Created  : Jan-3-2017
* Description   : Draw text as graphic element.
*
*-----------------------------------------------------------
BLACK   EQU     $00000000
MAROON  EQU     $00000080
GREEN   EQU     $00008000
OLIVE   EQU     $00008080
NAVY    EQU     $00800000
PURPLE  EQU     $00800080
TEAL    EQU     $00808000
GRAY    EQU     $00808080
RED     EQU     $000000FF
LIME    EQU     $0000FF00
YELLOW  EQU     $0000FFFF
BLUE    EQU     $00FF0000
FUCHSIA EQU     $00FF00FF
AQUA    EQU     $00FFFF00
LTGRAY  EQU     $00C0C0C0
WHITE   EQU     $00FFFFFF

FONT    EQU     $01090000       Fixedsys, 9 point, normal

        ORG     $1000
****************************************
*           PROGRAM START             
START

*** draw text as graphics
        move.l  #YELLOW,d1              font color
        move.l  #FONT,d2                font name, size and style
        move.b  #21,d0
        trap    #15                     set font properties

        move.l  #100,d1                 X1
        move.l  #50,d2                  Y1
        lea     text,a1                 string to display
        move.b  #95,d0                  task 95, display text as graphic
        trap    #15

        move.l  #BLUE,d1                font color
        move.l  #FONT,d2                font name, size and style
        move.b  #21,d0
        trap    #15                     set font properties

        move.l  #100,d1                 X1
        move.l  #75,d2                  Y1
        lea     text,a1                 string to display
        move.b  #95,d0                  task 95, display text as graphic
        trap    #15


text    dc.b    'ABCDEFG',0
        END     START