antoine-source/4play/TEST.DGR.S
Antoine Vignau de8cad5750 Ading 4play
How to detect & use the 4play peripheral card
2022-10-29 21:20:41 +02:00

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