83 lines
2.3 KiB
ArmAsm
83 lines
2.3 KiB
ArmAsm
*
|
|
* DGR test program
|
|
*
|
|
* (c) 2016, Brutal Deluxe Software
|
|
* http://www.brutaldeluxe.fr/
|
|
*
|
|
* Use them at your own risk ;-)
|
|
*
|
|
|
|
mx %11
|
|
org $300
|
|
lst off
|
|
|
|
*---------- Entry point
|
|
|
|
KBD = $C000
|
|
KBDSTROBE = $C010
|
|
|
|
*---------- Driver equates
|
|
|
|
DGROn = $1800 ; Turn DGR on
|
|
DGROff = DGROn+3 ; Turn DGR off
|
|
DGRClear = DGROff+3 ; Clear screen
|
|
DGRPutPixel = DGRClear+3 ; Draw a pixel on screen
|
|
DGRPutPixel2 = DGRPutPixel+3 ; Alt draw a pixel on screen
|
|
DGRGetPixel = DGRPutPixel2+3 ; Get the color of a pixel on screen
|
|
DGRGetPixel2 = DGRGetPixel+3 ; Alt get the color of a pixel on screen
|
|
DGRSetColor = DGRGetPixel2+3 ; Set the pen color
|
|
DGRSetXY = DGRSetColor+3 ; Set X1/Y1 coordinates
|
|
DGRSetXY2 = DGRSetXY+3 ; Set X2/Y2 coordinates
|
|
DGRSetPage = DGRSetXY2+3 ; Set page1/page2 data
|
|
DGRDrawHLine = DGRSetPage+3 ; Draw an horizontal line
|
|
DGRDrawHLine2 = DGRDrawHLine+3 ; Alt draw an horizontal line
|
|
DGRDrawVLine = DGRDrawHLine2+3 ; Draw a vertical line
|
|
DGRDrawVLine2 = DGRDrawVLine+3 ; Alt draw a vertical line
|
|
|
|
*---------- The code
|
|
|
|
jsr DGROn ; Turn DGR on
|
|
|
|
lda #$00 ; Set color to black
|
|
sta theCOLOR
|
|
|
|
clearLOOP lda theCOLOR ; Please erase the screen
|
|
jsr DGRClear
|
|
|
|
]lp lda KBD ; Wait for a keypress
|
|
bpl ]lp
|
|
bit KBDSTROBE
|
|
|
|
inc theCOLOR ; Next color, please
|
|
lda theCOLOR ; There are 16 of them
|
|
cmp #16
|
|
bne clearLOOP
|
|
|
|
*--- Test 2
|
|
|
|
ldx #0
|
|
ldy #0
|
|
jsr DGRSetXY
|
|
lda #6
|
|
ldx #79
|
|
ldy #0
|
|
jsr DGRDrawHLine
|
|
|
|
ldx #79
|
|
ldy #0
|
|
jsr DGRSetXY
|
|
lda #6
|
|
ldx #79
|
|
ldy #47
|
|
jsr DGRDrawVLine
|
|
|
|
jsr $fd0c
|
|
|
|
jsr DGROff ; Turn DGR off
|
|
rts ; Exit
|
|
|
|
*--- My test data
|
|
|
|
theCOLOR ds 1
|
|
|