1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
cc65/libsrc/tgi/tgi_bar.s
cuz 897c1d8523 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
2002-06-22 13:10:02 +00:00

134 lines
3.0 KiB
ArmAsm

;
; Ullrich von Bassewitz, 21.06.2002
;
; void __fastcall__ tgi_bar (int x1, int y1, int x2, int y2);
; /* Draw a bar (a filled rectangle) using the current color */
.include "tgi-kernel.inc"
.importzp ptr1, ptr2, ptr3, ptr4
.import popax
.import _tgi_getmaxx, _tgi_getmaxy
.export _tgi_bar
_tgi_bar:
sta ptr4 ; Y2
stx ptr4+1
jsr popax
sta ptr3 ; X2
stx ptr3+1
jsr popax
sta ptr2 ; Y1
stx ptr2+1
jsr popax
sta ptr1 ; X1
stx ptr1+1
; Make sure X1 is less than X2. Swap both if not.
lda ptr3
cmp ptr1
lda ptr3+1
sbc ptr1+1
bpl @L1
lda ptr3
ldy ptr1
sta ptr1
sty ptr3
lda ptr3+1
ldy ptr1+1
sta ptr1+1
sty ptr3+1
; Make sure Y1 is less than Y2. Swap both if not.
@L1: lda ptr4
cmp ptr2
lda ptr4+1
sbc ptr2+1
bpl @L2
lda ptr4
ldy ptr2
sta ptr2
sty ptr4
lda ptr4+1
ldy ptr2+1
sta ptr2+1
sty ptr4+1
; Check if X2 or Y2 are negative. If so, the bar is completely out of screen.
@L2: lda ptr4+1
ora ptr3+1
bmi @L9 ; Bail out
; Check if X1 is negative. If so, clip it to the left border (zero).
bit ptr1+1
bpl @L3
lda #$00
sta ptr1
sta ptr1+1
beq @L4 ; Branch always, skip following test
; Check if X1 is beyond the right border. If so, the bar is invisible.
@L3: lda ptr1
cmp _tgi_xres
lda ptr1+1
sbc _tgi_xres
bcs @L9 ; Bail out if invisible
; Check if Y1 is negative. If so, clip it to the top border (zero).
@L4: bit ptr2+1
bpl @L5
lda #$00
sta ptr2
sta ptr2+1
beq @L6 ; Branch always, skip following test
; Check if Y1 is beyond the bottom border. If so, the bar is invisible.
@L5: lda ptr2
cmp _tgi_yres
lda ptr2+1
sbc _tgi_yres
bcs @L9 ; Bail out if invisible
; Check if X2 is larger than the maximum x coord. If so, clip it.
@L6: lda ptr3
cmp _tgi_xres
lda ptr3+1
sbc _tgi_xres+1
bcc @L7
jsr _tgi_getmaxx
sta ptr3
stx ptr3+1
; Check if Y2 is larger than the maximum y coord. If so, clip it.
@L7: lda ptr4
cmp _tgi_yres
lda ptr4+1
sbc _tgi_yres+1
bcc @L8
jsr _tgi_getmaxy
sta ptr4
stx ptr4+1
; The coordinates are now valid. Call the driver.
@L8: jmp tgi_bar
; Error exit
@L9: rts