Removed emulation for BAR
git-svn-id: svn://svn.cc65.org/cc65/trunk@2605 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -25,7 +25,6 @@ S_OBJS = tgi-kernel.o \
|
||||
tgi_clear.o \
|
||||
tgi_curtoxy.o \
|
||||
tgi_done.o \
|
||||
tgi_emu_bar.o \
|
||||
tgi_getcolor.o \
|
||||
tgi_getcolorcount.o \
|
||||
tgi_getdefpalette.o \
|
||||
|
||||
@@ -99,17 +99,9 @@ _tgi_install:
|
||||
cpx #(TGI_HDR_JUMPCOUNT*3)
|
||||
bne @L1
|
||||
|
||||
; Check for emulation vectors needed
|
||||
; Call the driver install routine
|
||||
|
||||
lda tgi_bar+1
|
||||
ora tgi_bar+2 ; Do we have a BAR vector?
|
||||
bne @L2 ; Jump if yes
|
||||
lda #<tgi_emu_bar ; Use emulation if no
|
||||
sta tgi_bar+1
|
||||
lda #>tgi_emu_bar
|
||||
sta tgi_bar+2
|
||||
|
||||
@L2: jsr tgi_install ; Call driver install routine, may...
|
||||
jsr tgi_install ; Call driver install routine, may...
|
||||
; ...update variables
|
||||
jsr tgi_set_ptr ; Set ptr1 to tgi_drv
|
||||
|
||||
|
||||
@@ -1,80 +0,0 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 22.06.2002
|
||||
;
|
||||
; Emulation for tgi_bar.
|
||||
;
|
||||
|
||||
.include "tgi-kernel.inc"
|
||||
|
||||
.importzp ptr1, ptr2, ptr3, ptr4
|
||||
|
||||
.proc tgi_emu_bar
|
||||
|
||||
lda ptr4
|
||||
sta Y2
|
||||
lda ptr4+1
|
||||
sta Y2+1
|
||||
|
||||
lda ptr3
|
||||
sta X2
|
||||
lda ptr3+1
|
||||
sta X2+1
|
||||
|
||||
lda ptr2
|
||||
sta ptr4
|
||||
sta Y1
|
||||
lda ptr2+1
|
||||
sta ptr4+1
|
||||
sta Y1+1
|
||||
|
||||
lda ptr1
|
||||
sta X1
|
||||
lda ptr1+1
|
||||
sta X1+1
|
||||
|
||||
@L1: jsr tgi_horline
|
||||
|
||||
lda Y1
|
||||
cmp Y2
|
||||
bne @L2
|
||||
lda Y1
|
||||
cmp Y2
|
||||
beq @L4
|
||||
|
||||
@L2: inc Y1
|
||||
bne @L3
|
||||
inc Y1+1
|
||||
|
||||
@L3: lda Y1
|
||||
sta ptr2
|
||||
lda Y1+1
|
||||
sta ptr2+1
|
||||
|
||||
lda X1
|
||||
sta ptr1
|
||||
lda X1+1
|
||||
sta ptr1+1
|
||||
|
||||
lda X2
|
||||
sta ptr3
|
||||
lda X2+1
|
||||
sta ptr3+1
|
||||
jmp @L1
|
||||
|
||||
@L4: rts
|
||||
|
||||
.endproc
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
; Data
|
||||
|
||||
.bss
|
||||
|
||||
DY: .res 2
|
||||
X1: .res 2
|
||||
X2: .res 2
|
||||
Y1: .res 2
|
||||
Y2: .res 2
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user