bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Quite some minor changes to have the two C128 TGI driver source files only differ where they are semantically different.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4552 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc
2010-01-23 08:55:37 +00:00
parent 5175f95341
commit 16129b2724
2 changed files with 70 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
libsrc/c128/c128-640-200-2.s
View File

@@ -453,8 +453,8 @@ SETPALETTE:
ora COLTRANS,y ora COLTRANS,y
ldx #VDC_COLORS ldx #VDC_COLORS
jsr VDCWriteReg ; Clear error code jsr VDCWriteReg
lda #TGI_ERR_OK lda #TGI_ERR_OK ; Clear error code
sta ERROR sta ERROR
rts rts
@@ -881,6 +881,7 @@ HORLINE:
@L5: jmp HORLINE @L5: jmp HORLINE
; ------------------------------------------------------------------------ ; ------------------------------------------------------------------------
; TEXTSTYLE: Set the style used when calling OUTTEXT. Text scaling in X and Y ; TEXTSTYLE: Set the style used when calling OUTTEXT. Text scaling in X and Y
; direction is passend in X/Y, the text direction is passed in A. ; direction is passend in X/Y, the text direction is passed in A.

8
libsrc/c128/c128-640-480-2.s
View File

@@ -56,7 +56,7 @@ VDC_DATA = 31
; capabilities of the driver ; capabilities of the driver
.byte $74, $67, $69 ; "tgi" .byte $74, $67, $69 ; "tgi"
.byte TGI_API_VERSION ; TGI version number .byte TGI_API_VERSION ; TGI API version number
xres: .word 640 ; X resolution xres: .word 640 ; X resolution
yres: .word 480 ; Y resolution yres: .word 480 ; Y resolution
.byte 2 ; Number of drawing colors .byte 2 ; Number of drawing colors
@@ -123,7 +123,7 @@ BITMASK: .res 1 ; $00 = clear, $FF = set pixels
OLDCOLOR: .res 1 ; colors before entering gfx mode OLDCOLOR: .res 1 ; colors before entering gfx mode
; Line routine stuff (combined with CIRCLE to save space) ; Line routine stuff
COUNT: .res 2 COUNT: .res 2
NY: .res 2 NY: .res 2
@@ -283,13 +283,13 @@ UNINSTALL:
INIT: INIT:
lda pages ; is there enough memory? lda pages ; is there enough memory?
bne @L11 ; Jump if there is one screen bne @L1 ; Jump if there is one screen
lda #TGI_ERR_INV_MODE ; Error lda #TGI_ERR_INV_MODE ; Error
bne @L9 bne @L9
; Initialize variables ; Initialize variables
@L11: ldx #$FF @L1: ldx #$FF
stx BITMASK stx BITMASK
; Remeber current color value ; Remeber current color value