Added emulation and more clipping for the BAR function.
Copy colors and page count into local storage from the driver. Added more functions. git-svn-id: svn://svn.cc65.org/cc65/trunk@1322 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
80
libsrc/tgi/tgi_emu_bar.s
Normal file
80
libsrc/tgi/tgi_emu_bar.s
Normal file
@@ -0,0 +1,80 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 22.06.2002
|
||||
;
|
||||
; Emulation for tgi_bar.
|
||||
;
|
||||
|
||||
.include "tgi-kernel.inc"
|
||||
|
||||
.importzp ptr1, ptr2, ptr3, ptr4
|
||||
.export tgi_emu_bar
|
||||
|
||||
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_line
|
||||
|
||||
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
|
||||
sta ptr4
|
||||
lda Y1+1
|
||||
sta ptr2+1
|
||||
sta ptr4+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
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
; Data
|
||||
|
||||
.bss
|
||||
|
||||
DY: .res 2
|
||||
X1: .res 2
|
||||
X2: .res 2
|
||||
Y1: .res 2
|
||||
Y2: .res 2
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user