empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
libsrc/Makefile
View file

@ -246,7 +246,7 @@ plus4lib:
.PHONY: 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; \
done

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

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

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

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

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

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

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

@ -887,7 +887,11 @@ TEXTSTYLE:
;
OUTTEXT:
lda X1
lda TEXTDIR
; cmp #TGI_TEXT_HORIZONTAL ; this is equal 0
bne @vertical
lda X1 ; horizontal text output
ldx X1+1
ldy Y1
sta r11L
@ -899,6 +903,27 @@ OUTTEXT:
stx r0H
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