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

TGI drivers updated for current API (INIT call has changed)

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1873 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst
2003-01-02 22:18:30 +00:00
parent d080ca253f
commit a6888c5e46
5 changed files with 34 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
libsrc/Makefile
View File

@@ -246,7 +246,7 @@ plus4lib:
.PHONY: clean .PHONY: clean
clean: clean:
@for i in common conio dbg em runtime tgi $(ALLTARGETS); do \ @for i in common conio dbg em joystick runtime tgi $(ALLTARGETS); do \
$(MAKE) -C $$i clean; \ $(MAKE) -C $$i clean; \
done done

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

@@ -287,10 +287,7 @@ DEINSTALL:
; Must set an error code: YES ; Must set an error code: YES
; ;
INIT: cmp #TGI_MODE_640_200_2 ; Correct mode? INIT:
beq @L1 ; Jump if yes
lda #TGI_ERR_INV_MODE ; ## Error
bne @L9
; Initialize variables ; Initialize variables
@@ -317,7 +314,7 @@ INIT: cmp #TGI_MODE_640_200_2 ; Correct mode?
; Done, reset the error code ; Done, reset the error code
lda #TGI_ERR_OK lda #TGI_ERR_OK
@L9: sta ERROR sta ERROR
rts rts
; ------------------------------------------------------------------------ ; ------------------------------------------------------------------------

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

@@ -292,12 +292,8 @@ DEINSTALL:
; Must set an error code: YES ; Must set an error code: YES
; ;
INIT: cmp #TGI_MODE_640_480_2 ; Correct mode? INIT:
beq @L1 ; Jump if yes lda pages ; is there enough memory?
lda #TGI_ERR_INV_MODE ; ## Error
bne @L9
@L1: lda pages ; is there enough memory?
bne @L11 ; Jump if there is one screen bne @L11 ; Jump if there is one screen
lda #TGI_ERR_INV_MODE ; ## Error lda #TGI_ERR_INV_MODE ; ## Error
bne @L9 bne @L9

9
libsrc/c64/c64-320-200-2.s
View File

@@ -170,14 +170,11 @@ DEINSTALL:
; Must set an error code: YES ; Must set an error code: YES
; ;
INIT: cmp #TGI_MODE_320_200_2 ; Correct mode? INIT:
beq @L1 ; Jump if yes
lda #TGI_ERR_INV_MODE ; ## Error
bne @L9
; Initialize variables ; Initialize variables
@L1: ldx #$FF ldx #$FF
stx BITMASK stx BITMASK
; Switch into graphics mode ; Switch into graphics mode
@@ -201,7 +198,7 @@ INIT: cmp #TGI_MODE_320_200_2 ; Correct mode?
; Done, reset the error code ; Done, reset the error code
lda #TGI_ERR_OK lda #TGI_ERR_OK
@L9: sta ERROR sta ERROR
rts rts
; ------------------------------------------------------------------------ ; ------------------------------------------------------------------------

27
libsrc/geos/devel/geos-tgi.s
View File

@@ -887,7 +887,11 @@ TEXTSTYLE:
; ;
OUTTEXT: OUTTEXT:
lda X1 lda TEXTDIR
; cmp #TGI_TEXT_HORIZONTAL ; this is equal 0
bne @vertical
lda X1 ; horizontal text output
ldx X1+1 ldx X1+1
ldy Y1 ldy Y1
sta r11L sta r11L
@@ -899,6 +903,27 @@ OUTTEXT:
stx r0H stx r0H
jmp PutString jmp PutString
@vertical:
lda X1 ; vertical text output
ldx X1+1
ldy Y1
sta r11L
stx r11H
sty r1H
ldy #0
lda (ptr3),y
beq @end
jsr PutChar
inc ptr3
bne @L1
inc ptr3+1
@L1: lda Y1
clc
adc #8
sta Y1
bne @vertical
@end: rts
;------------- ;-------------
; copies of some runtime routines ; copies of some runtime routines