PAGECOUNT .byte 1 ; Number of screens available
FONTSIZE_X .byte 1 ; System font size in X direction
FONTSIZE_Y .byte 1 ; System font size in Y direction
+ ASPECTRATIO .word 1 ; Fixed point 8.8 format
.endstruct
- RESERVED .byte 4 ; Reserved for extensions
JUMPTAB .struct
INSTALL .addr ; INSTALL routine
UNINSTALL .addr ; UNINSTALL routine
GETPIXEL .addr ; GETPIXEL routine
LINE .addr ; LINE routine
BAR .addr ; BAR routine
- CIRCLE .addr ; CIRCLE routine
TEXTSTYLE .addr ; TEXTSTYLE routine
OUTTEXT .addr ; OUTTEXT routine
IRQ .addr ; IRQ routine
;------------------------------------------------------------------------------
; The TGI API version, stored at TGI_HDR_VERSION
-TGI_API_VERSION = $02
+TGI_API_VERSION = $03
;------------------------------------------------------------------------------
; Text style constants
.global _tgi_pagecount ; Number of available screen pages
.global _tgi_fontsizex ; System font X size
.global _tgi_fontsizey ; System font Y size
+ .global _tgi_aspectratio ; Aspect ratio, fixed point 8.8
;------------------------------------------------------------------------------
; Driver entry points
.global tgi_getpixel
.global tgi_line
.global tgi_bar
- .global tgi_circle
.global tgi_textstyle
.global tgi_outtext
/* */
/* */
/* */
-/* (C) 2002-2004 Ullrich von Bassewitz */
-/* Römerstraße 52 */
-/* D-70794 Filderstadt */
-/* EMail: uz@cc65.org */
+/* (C) 2002-2009, Ullrich von Bassewitz */
+/* Roemerstrasse 52 */
+/* D-70794 Filderstadt */
+/* EMail: uz@cc65.org */
/* */
/* */
/* This software is provided 'as-is', without any expressed or implied */
-/* TGI kernel variables */
+/* TGI kernel variables */
extern void* tgi_drv; /* Pointer to driver */
extern unsigned char tgi_error; /* Last error code */
extern unsigned char tgi_gmode; /* Flag: Graphics mode active */
extern unsigned tgi_yres; /* Y resolution of the current mode */
extern unsigned char tgi_colorcount; /* Number of available colors */
extern unsigned char tgi_pagecount; /* Number of available screens */
+extern unsigned tgi_aspectratio;/* Aspect ratio as fixed point 8.8 */
.byte 1 ; Number of screens available
xsize: .byte 6 ; System font X size
.byte 8 ; System font Y size
- .res 4, $00 ; Reserved for future extensions
+ .word $100 ; Aspect ratio
; Next comes the jump table. Currently all entries must be valid and may point
; to an RTS for test versions (function not implemented).
.addr GETPIXEL
.addr LINE
.addr BAR
- .addr _CIRCLE
.addr TEXTSTYLE
.addr OUTTEXT
.addr 0 ; IRQ entry is unused
POINT = $F1C8
PAPER = $F204
INK = $F210
-CIRCLE = $F37F
.rodata
bne @L1
rts
-; ------------------------------------------------------------------------
-; CIRCLE: Draw a circle around the center X1/Y1 (= ptr1/ptr2) with the
-; radius in tmp1 and the current drawing color.
-;
-; Must set an error code: NO
-;
-
-_CIRCLE:
- lda #3
- jsr mymode
- lda RADIUS
- sta PARAM1
- lda MODE
- sta PARAM2
- jmp CIRCLE
-
; ------------------------------------------------------------------------
; TEXTSTYLE: Set the style used when calling OUTTEXT. Text scaling in X and Y
; direction is passend in X/Y, the text direction is passed in A.
pages: .byte 1 ; Number of screens available
.byte 8 ; System font X size
.byte 8 ; System font Y size
- .res 4, $00 ; Reserved for future extensions
+ .word $100 ; Aspect ratio
; Next comes the jump table. Currently all entries must be valid and may point
; to an RTS for test versions (function not implemented).
.addr GETPIXEL
.addr LINE
.addr BAR
- .addr CIRCLE
.addr TEXTSTYLE
.addr OUTTEXT
.addr 0 ; IRQ entry is unused
Y1 = ptr2
X2 = ptr3
Y2 = ptr4
-RADIUS = tmp1
ADDR = tmp1 ; (2) CALC
TEMP = tmp3 ; CALC icmp
UB = ptr4 ; (2) LINE
ERR = regsave ; (2) LINE
NX = regsave+2 ; (2) LINE
-; Circle stuff
-XX = ptr3 ; (2) CIRCLE
-YY = ptr4 ; (2) CIRCLE
-MaxO = sreg ; (overwritten by TEMP3+TEMP4, but restored from OG/OU anyway)
-XS = regsave ; (2) CIRCLE
-YS = regsave+2 ; (2) CIRCLE
; Absolute variables used in the code
OLDCOLOR: .res 1 ; colors before entering gfx mode
-; Line routine stuff (combined with CIRCLE to save space)
+; Line routine stuff
-OGora:
COUNT: .res 2
-OUkos:
NY: .res 2
-Y3:
DX: .res 1
DY: .res 1
AX: .res 1
; Must set an error code: NO
;
-SETPIXELCLIP:
- lda Y1+1
- bmi @finito ; y<0
- lda X1+1
- bmi @finito ; x<0
- lda X1
- ldx X1+1
- sta ADDR
- stx ADDR+1
- ldx #ADDR
- lda xres
- ldy xres+1
- jsr icmp ; ( x < xres ) ...
- bcs @finito
- lda Y1
- ldx Y1+1
- sta ADDR
- stx ADDR+1
- ldx #ADDR
- lda yres
- ldy yres+1
- jsr icmp ; ... && ( y < yres )
- bcc SETPIXEL
-@finito:rts
-
SETPIXEL:
jsr CALC ; Calculate coordinates
bne @L0167
rts
; setpixel(X1,Y1)
-@L0167: jsr SETPIXELCLIP
+@L0167: jsr SETPIXEL
; pb = err + ny
lda ERR
clc
@L5: jmp HORLINE
-; ------------------------------------------------------------------------
-; CIRCLE: Draw a circle around the center X1/Y1 (= ptr1/ptr2) with the
-; radius in tmp1 and the current drawing color.
-;
-; Must set an error code: NO
-;
-
-CIRCLE:
- lda RADIUS
- bne @L1
- jmp SETPIXELCLIP ; Plot as a point
-
-@L1: sta XX
- ; x = r;
- lda #0
- sta XX+1
- sta YY
- sta YY+1
- sta MaxO
- sta MaxO+1
- ; y =0; mo=0;
- lda X1
- ldx X1+1
- sta XS
- stx XS+1
- lda Y1
- ldx Y1+1
- sta YS
- stx YS+1 ; XS/YS to remember the center
-
- ; while (y<x) {
-@L013B: ldx #YY
- lda XX
- ldy XX+1
- jsr icmp
- bcc @L12
- rts
-@L12: ; plot points in 8 slices...
- lda XS
- clc
- adc XX
- sta X1
- lda XS+1
- adc XX+1
- sta X1+1 ; x1 = xs+x
- lda YS
- clc
- adc YY
- sta Y1
- pha
- lda YS+1
- adc YY+1
- sta Y1+1 ; (stack)=ys+y, y1=(stack)
- pha
- jsr SETPIXELCLIP ; plot(xs+x,ys+y)
- lda YS
- sec
- sbc YY
- sta Y1
- sta Y3
- lda YS+1
- sbc YY+1
- sta Y1+1 ; y3 = y1 = ys-y
- sta Y3+1
- jsr SETPIXELCLIP ; plot(xs+x,ys-y)
- pla
- sta Y1+1
- pla
- sta Y1 ; y1 = ys+y
- lda XS
- sec
- sbc XX
- sta X1
- lda XS+1
- sbc XX+1
- sta X1+1
- jsr SETPIXELCLIP ; plot (xs-x,ys+y)
- lda Y3
- sta Y1
- lda Y3+1
- sta Y1+1
- jsr SETPIXELCLIP ; plot (xs-x,ys-y)
-
- lda XS
- clc
- adc YY
- sta X1
- lda XS+1
- adc YY+1
- sta X1+1 ; x1 = xs+y
- lda YS
- clc
- adc XX
- sta Y1
- pha
- lda YS+1
- adc XX+1
- sta Y1+1 ; (stack)=ys+x, y1=(stack)
- pha
- jsr SETPIXELCLIP ; plot(xs+y,ys+x)
- lda YS
- sec
- sbc XX
- sta Y1
- sta Y3
- lda YS+1
- sbc XX+1
- sta Y1+1 ; y3 = y1 = ys-x
- sta Y3+1
- jsr SETPIXELCLIP ; plot(xs+y,ys-x)
- pla
- sta Y1+1
- pla
- sta Y1 ; y1 = ys+x(stack)
- lda XS
- sec
- sbc YY
- sta X1
- lda XS+1
- sbc YY+1
- sta X1+1
- jsr SETPIXELCLIP ; plot (xs-y,ys+x)
- lda Y3
- sta Y1
- lda Y3+1
- sta Y1+1
- jsr SETPIXELCLIP ; plot (xs-y,ys-x)
-
- ; og = mo+y+y+1
- lda MaxO
- ldx MaxO+1
- clc
- adc YY
- tay
- txa
- adc YY+1
- tax
- tya
- clc
- adc YY
- tay
- txa
- adc YY+1
- tax
- tya
- clc
- adc #1
- bcc @L0143
- inx
-@L0143: sta OGora
- stx OGora+1
- ; ou = og-x-x+1
- sec
- sbc XX
- tay
- txa
- sbc XX+1
- tax
- tya
- sec
- sbc XX
- tay
- txa
- sbc XX+1
- tax
- tya
- clc
- adc #1
- bcc @L0146
- inx
-@L0146: sta OUkos
- stx OUkos+1
- ; ++y
- inc YY
- bne @L0148
- inc YY+1
-@L0148: ; if (abs(ou)<abs(og))
- lda OUkos
- ldy OUkos+1
- jsr abs
- sta TEMP3
- sty TEMP4
- lda OGora
- ldy OGora+1
- jsr abs
- ldx #TEMP3
- jsr icmp
- bpl @L0149
- ; { --x;
- sec
- lda XX
- sbc #1
- sta XX
- bcs @L014E
- dec XX+1
-@L014E: ; mo = ou; }
- lda OUkos
- ldx OUkos+1
- jmp @L014G
- ; else { mo = og }
-@L0149: lda OGora
- ldx OGora+1
-@L014G: sta MaxO
- stx MaxO+1
- ; }
- jmp @L013B
-
; ------------------------------------------------------------------------
; TEXTSTYLE: Set the style used when calling OUTTEXT. Text scaling in X and Y
; direction is passend in X/Y, the text direction is passed in A.
pages: .byte 0 ; Number of screens available
.byte 8 ; System font X size
.byte 8 ; System font Y size
- .res 4, $00 ; Reserved for future extensions
+ .word $100 ; Aspect ratio
; Next comes the jump table. Currently all entries must be valid and may point
; to an RTS for test versions (function not implemented).
.addr GETPIXEL
.addr LINE
.addr BAR
- .addr CIRCLE
.addr TEXTSTYLE
.addr OUTTEXT
.addr 0 ; IRQ entry is unused
Y1 = ptr2
X2 = ptr3
Y2 = ptr4
-RADIUS = tmp1
ADDR = tmp1 ; (2) CALC
TEMP = tmp3 ; CALC icmp
UB = ptr4 ; (2) LINE
ERR = regsave ; (2) LINE
NX = regsave+2 ; (2) LINE
-; Circle stuff
-XX = ptr3 ; (2) CIRCLE
-YY = ptr4 ; (2) CIRCLE
-MaxO = sreg ; (overwritten by TEMP3+TEMP4, but restored from OG/OU anyway)
-XS = regsave ; (2) CIRCLE
-YS = regsave+2 ; (2) CIRCLE
; Absolute variables used in the code
; Line routine stuff (combined with CIRCLE to save space)
-OGora:
COUNT: .res 2
-OUkos:
NY: .res 2
-Y3:
DX: .res 1
DY: .res 1
AX: .res 1
.byte 27, $00
.byte $ff
-SCN80CLR: .byte 27,88,147,27,88,0
+SCN80CLR: .byte 27,88,147,27,88,0
.code
; Must set an error code: NO
;
-SETPIXELCLIP:
- lda Y1+1
- bmi @finito ; y<0
- lda X1+1
- bmi @finito ; x<0
- lda X1
- ldx X1+1
- sta ADDR
- stx ADDR+1
- ldx #ADDR
- lda xres
- ldy xres+1
- jsr icmp ; ( x < xres ) ...
- bcs @finito
- lda Y1
- ldx Y1+1
- sta ADDR
- stx ADDR+1
- ldx #ADDR
- lda yres
- ldy yres+1
- jsr icmp ; ... && ( y < yres )
- bcc SETPIXEL
-@finito:rts
-
SETPIXEL:
jsr CALC ; Calculate coordinates
- stx TEMP
- lda ADDR
- ldy ADDR+1
- jsr VDCSetSourceAddr
- jsr VDCReadByte
- ldx TEMP
+ stx TEMP
+ lda ADDR
+ ldy ADDR+1
+ jsr VDCSetSourceAddr
+ jsr VDCReadByte
+ ldx TEMP
- sta TEMP
+ sta TEMP
eor BITMASK
and BITTAB,X
- eor TEMP
- pha
- lda ADDR
- ldy ADDR+1
- jsr VDCSetSourceAddr
- pla
- jsr VDCWriteByte
+ eor TEMP
+ pha
+ lda ADDR
+ ldy ADDR+1
+ jsr VDCSetSourceAddr
+ pla
+ jsr VDCWriteByte
@L9: rts
bne @L0167
rts
; setpixel(X1,Y1)
-@L0167: jsr SETPIXELCLIP
+@L0167: jsr SETPIXEL
; pb = err + ny
lda ERR
clc
@L5: jmp HORLINE
-; ------------------------------------------------------------------------
-; CIRCLE: Draw a circle around the center X1/Y1 (= ptr1/ptr2) with the
-; radius in tmp1 and the current drawing color.
-;
-; Must set an error code: NO
-;
-
-CIRCLE:
- lda RADIUS
- bne @L1
- jmp SETPIXELCLIP ; Plot as a point
-
-@L1: sta XX
- ; x = r;
- lda #0
- sta XX+1
- sta YY
- sta YY+1
- sta MaxO
- sta MaxO+1
- ; y =0; mo=0;
- lda X1
- ldx X1+1
- sta XS
- stx XS+1
- lda Y1
- ldx Y1+1
- sta YS
- stx YS+1 ; XS/YS to remember the center
-
- ; while (y<x) {
-@L013B: ldx #YY
- lda XX
- ldy XX+1
- jsr icmp
- bcc @L12
- rts
-@L12: ; plot points in 8 slices...
- lda XS
- clc
- adc XX
- sta X1
- lda XS+1
- adc XX+1
- sta X1+1 ; x1 = xs+x
- lda YS
- clc
- adc YY
- sta Y1
- pha
- lda YS+1
- adc YY+1
- sta Y1+1 ; (stack)=ys+y, y1=(stack)
- pha
- jsr SETPIXELCLIP ; plot(xs+x,ys+y)
- lda YS
- sec
- sbc YY
- sta Y1
- sta Y3
- lda YS+1
- sbc YY+1
- sta Y1+1 ; y3 = y1 = ys-y
- sta Y3+1
- jsr SETPIXELCLIP ; plot(xs+x,ys-y)
- pla
- sta Y1+1
- pla
- sta Y1 ; y1 = ys+y
- lda XS
- sec
- sbc XX
- sta X1
- lda XS+1
- sbc XX+1
- sta X1+1
- jsr SETPIXELCLIP ; plot (xs-x,ys+y)
- lda Y3
- sta Y1
- lda Y3+1
- sta Y1+1
- jsr SETPIXELCLIP ; plot (xs-x,ys-y)
-
- lda XS
- clc
- adc YY
- sta X1
- lda XS+1
- adc YY+1
- sta X1+1 ; x1 = xs+y
- lda YS
- clc
- adc XX
- sta Y1
- pha
- lda YS+1
- adc XX+1
- sta Y1+1 ; (stack)=ys+x, y1=(stack)
- pha
- jsr SETPIXELCLIP ; plot(xs+y,ys+x)
- lda YS
- sec
- sbc XX
- sta Y1
- sta Y3
- lda YS+1
- sbc XX+1
- sta Y1+1 ; y3 = y1 = ys-x
- sta Y3+1
- jsr SETPIXELCLIP ; plot(xs+y,ys-x)
- pla
- sta Y1+1
- pla
- sta Y1 ; y1 = ys+x(stack)
- lda XS
- sec
- sbc YY
- sta X1
- lda XS+1
- sbc YY+1
- sta X1+1
- jsr SETPIXELCLIP ; plot (xs-y,ys+x)
- lda Y3
- sta Y1
- lda Y3+1
- sta Y1+1
- jsr SETPIXELCLIP ; plot (xs-y,ys-x)
-
- ; og = mo+y+y+1
- lda MaxO
- ldx MaxO+1
- clc
- adc YY
- tay
- txa
- adc YY+1
- tax
- tya
- clc
- adc YY
- tay
- txa
- adc YY+1
- tax
- tya
- clc
- adc #1
- bcc @L0143
- inx
-@L0143: sta OGora
- stx OGora+1
- ; ou = og-x-x+1
- sec
- sbc XX
- tay
- txa
- sbc XX+1
- tax
- tya
- sec
- sbc XX
- tay
- txa
- sbc XX+1
- tax
- tya
- clc
- adc #1
- bcc @L0146
- inx
-@L0146: sta OUkos
- stx OUkos+1
- ; ++y
- inc YY
- bne @L0148
- inc YY+1
-@L0148: ; if (abs(ou)<abs(og))
- lda OUkos
- ldy OUkos+1
- jsr abs
- sta TEMP3
- sty TEMP4
- lda OGora
- ldy OGora+1
- jsr abs
- ldx #TEMP3
- jsr icmp
- bpl @L0149
- ; { --x;
- sec
- lda XX
- sbc #1
- sta XX
- bcs @L014E
- dec XX+1
-@L014E: ; mo = ou; }
- lda OUkos
- ldx OUkos+1
- jmp @L014G
- ; else { mo = og }
-@L0149: lda OGora
- ldx OGora+1
-@L014G: sta MaxO
- stx MaxO+1
- ; }
- jmp @L013B
-
; ------------------------------------------------------------------------
; TEXTSTYLE: Set the style used when calling OUTTEXT. Text scaling in X and Y
; direction is passend in X/Y, the text direction is passed in A.
.byte 1 ; Number of screens available
.byte 8 ; System font X size
.byte 8 ; System font Y size
- .res 4, $00 ; Reserved for future extensions
+ .word $100 ; Aspect ratio
-; Next comes the jump table. Currently all entries must be valid and may point
-; to an RTS for test versions (function not implemented). A future version may
-; allow for emulation: In this case the vector will be zero. Emulation means
-; that the graphics kernel will emulate the function by using lower level
-; primitives - for example ploting a line by using calls to SETPIXEL.
+; Next comes the jump table. With the exception of IRQ, all entries must be
+; valid and may point to an RTS for test versions (function not implemented).
.addr INSTALL
.addr UNINSTALL
.addr GETPIXEL
.addr LINE
.addr BAR
- .addr CIRCLE
.addr TEXTSTYLE
.addr OUTTEXT
.addr 0 ; IRQ entry is unused
Y1 := ptr2
X2 := ptr3
Y2 := ptr4
-RADIUS := tmp1
ROW := tmp2 ; Bitmap row...
COL := tmp3 ; ...and column, both set by PLOT
DX: .res 2
DY: .res 2
-; Circle routine stuff, overlaid by BAR variables
-X1SAVE:
-CURX: .res 1
-CURY: .res 1
-Y1SAVE:
-BROW: .res 1 ; Bottom row
-TROW: .res 1 ; Top row
-X2SAVE:
-LCOL: .res 1 ; Left column
-RCOL: .res 1 ; Right column
-Y2SAVE:
-CHUNK1: .res 1
-OLDCH1: .res 1
-CHUNK2: .res 1
-OLDCH2: .res 1
+; BAR variables
+X1SAVE: .res 2
+Y1SAVE: .res 2
+X2SAVE: .res 2
+Y2SAVE: .res 2
; Text output stuff
TEXTMAGX: .res 1
@L4: rts
-; ------------------------------------------------------------------------
-; CIRCLE: Draw a circle around the center X1/Y1 (= ptr1/ptr2) with the
-; radius in tmp1 and the current drawing color.
-;
-; Must set an error code: NO
-;
-
-CIRCLE: lda RADIUS
- sta CURY
- bne @L1
- jmp SETPIXEL ; Plot as a point
-
-@L1: clc
- adc Y1
- sta Y1
- bcc @L2
- inc Y1+1
-@L2: jsr CALC ; Compute XC, YC+R
-
- lda ROW
- sta BROW
- lda COL
- sta LCOL
- sta RCOL
-
- sty Y2 ; Y AND 07
- lda BITCHUNK,X
- sta CHUNK1 ; Forwards chunk
- sta OLDCH1
- lsr
- eor #$FF
- sta CHUNK2 ; Backwards chunk
- sta OLDCH2
- lda POINT
- sta TEMP2 ; TEMP2 = forwards high pointer
- sta X2 ; X2 = backwards high pointer
- lda POINT+1
- sta TEMP2+1
- sta X2+1
-
-; Next compute CY-R
-
- lda Y1
- sec
- sbc RADIUS
- bcs @C3
- dec Y1+1
- sec
-@C3: sbc RADIUS
- bcs @C4
- dec Y1+1
-@C4: sta Y1
-
- jsr CALC ; Compute new coords
- sty Y1
- lda POINT
- sta X1 ; X1 will be the backwards
- lda POINT+1 ; low-pointer
- sta X1+1 ; POINT will be forwards
- lda ROW
- sta TROW
-
- sei ; Get underneath ROM
- lda #$34
- sta $01
-
- lda RADIUS
- lsr ; A=r/2
- ldx #00
- stx CURX ; y=0
-
-; Main loop
-
-@LOOP: inc CURX ; x=x+1
-
- lsr CHUNK1 ; Right chunk
- bne @CONT1
- jsr UPCHUNK1 ; Update if we move past a column
-@CONT1: asl CHUNK2
- bne @CONT2
- jsr UPCHUNK2
-@CONT2: sec
- sbc CURX ; a=a-x
- bcs @LOOP
-
- adc CURY ;if a<0 then a=a+y; y=y-1
- tax
- jsr PCHUNK1
- jsr PCHUNK2
- lda CHUNK1
- sta OLDCH1
- lda CHUNK2
- sta OLDCH2
- txa
-
- dec CURY ;(y=y-1)
-
- dec Y2 ;Decrement y-offest for upper
- bpl @CONT3 ;points
- jsr DECYOFF
-@CONT3: ldy Y1
- iny
- sty Y1
- cpy #8
- bcc @CONT4
- jsr INCYOFF
-@CONT4: ldy CURX
- cpy CURY ;if y<=x then punt
- bcc @LOOP ;Now draw the other half
-;
-; Draw the other half of the circle by exactly reversing
-; the above!
-;
-NEXTHALF:
- lsr OLDCH1 ;Only plot a bit at a time
- asl OLDCH2
- lda RADIUS ;A=-R/2-1
- lsr
- eor #$FF
-@LOOP:
- tax
- jsr PCHUNK1 ;Plot points
- jsr PCHUNK2
- txa
- dec Y2 ;Y2=bottom
- bpl @CONT1
- jsr DECYOFF
-@CONT1: inc Y1
- ldy Y1
- cpy #8
- bcc @CONT2
- jsr INCYOFF
-@CONT2: ldx CURY
- beq @DONE
- clc
- adc CURY ;a=a+y
- dec CURY ;y=y-1
- bcc @LOOP
-
- inc CURX
- sbc CURX ;if a<0 then x=x+1; a=a+x
- lsr CHUNK1
- bne @CONT3
- tax
- jsr UPCH1 ;Upchunk, but no plot
-@CONT3: lsr OLDCH1 ;Only the bits...
- asl CHUNK2 ;Fix chunks
- bne @CONT4
- tax
- jsr UPCH2
-@CONT4: asl OLDCH2
- bcs @LOOP
-@DONE:
-CIRCEXIT: ;Restore interrupts
- lda #$37
- sta $01
- cli
- rts
-;
-; Decrement lower pointers
-;
-DECYOFF:
- tay
- lda #7
- sta Y2
-
- lda X2 ;If we pass through zero, then
- sec
- sbc #<320 ;subtract 320
- sta X2
- lda X2+1
- sbc #>320
- sta X2+1
- lda TEMP2
- sec
- sbc #<320
- sta TEMP2
- lda TEMP2+1
- sbc #>320
- sta TEMP2+1
-
- tya
- dec BROW
- bmi EXIT2
- rts
-EXIT2: pla ;Grab return address
- pla
- jmp CIRCEXIT ;Restore interrupts, etc.
-
-; Increment upper pointers
-INCYOFF:
- tay
- lda #00
- sta Y1
- lda X1
- clc
- adc #<320
- sta X1
- lda X1+1
- adc #>320
- sta X1+1
- lda POINT
- clc
- adc #<320
- sta POINT
- lda POINT+1
- adc #>320
- sta POINT+1
-@ISKIP: inc TROW
- bmi @DONE
- lda TROW
- cmp #25
- bcs EXIT2
-@DONE: tya
- rts
-
-;
-; UPCHUNK1 -- Update right-moving chunk pointers
-; Due to passing through a column
-;
-UPCHUNK1:
- tax
- jsr PCHUNK1
-UPCH1: lda #$FF ;Alternative entry point
- sta CHUNK1
- sta OLDCH1
- lda TEMP2
- clc
- adc #8
- sta TEMP2
- bcc @CONT
- inc TEMP2+1
- clc
-@CONT: lda POINT
- adc #8
- sta POINT
- bcc @DONE
- inc POINT+1
-@DONE: txa
- inc RCOL
- rts
-
-;
-; UPCHUNK2 -- Update left-moving chunk pointers
-;
-UPCHUNK2:
- tax
- jsr PCHUNK2
-UPCH2: lda #$FF
- sta CHUNK2
- sta OLDCH2
- lda X2
- sec
- sbc #8
- sta X2
- bcs @CONT
- dec X2+1
- sec
-@CONT: lda X1
- sbc #8
- sta X1
- bcs @DONE
- dec X1+1
-@DONE: txa
- dec LCOL
- rts
-;
-; Plot right-moving chunk pairs for circle routine
-;
-PCHUNK1:
-
- lda RCOL ;Make sure we're in range
- cmp #40
- bcs @SKIP2
- lda CHUNK1 ;Otherwise plot
- eor OLDCH1
- sta TEMP
- lda TROW ;Check for underflow
- bmi @SKIP
- ldy Y1
- lda (POINT),y
- eor BITMASK
- and TEMP
- eor (POINT),y
- sta (POINT),y
-
-@SKIP: lda BROW ;If CY+Y >= 200...
- cmp #25
- bcs @SKIP2
- ldy Y2
- lda (TEMP2),y
- eor BITMASK
- and TEMP
- eor (TEMP2),y
- sta (TEMP2),y
-@SKIP2: rts
-
-;
-; Plot left-moving chunk pairs for circle routine
-;
-
-PCHUNK2:
- lda LCOL ;Range check in X
- cmp #40
- bcs EXIT3
- lda CHUNK2 ;Otherwise plot
- eor OLDCH2
- sta TEMP
- lda TROW ;Check for underflow
- bmi @SKIP
- ldy Y1
- lda (X1),y
- eor BITMASK
- and TEMP
- eor (X1),y
- sta (X1),y
-
-@SKIP: lda BROW ;If CY+Y >= 200...
- cmp #25
- bcs EXIT3
- ldy Y2
- lda (X2),y
- eor BITMASK
- and TEMP
- eor (X2),y
- sta (X2),y
-EXIT3: rts
-
; ------------------------------------------------------------------------
; TEXTSTYLE: Set the style used when calling OUTTEXT. Text scaling in X and Y
; direction is passend in X/Y, the text direction is passed in A.
_tgi_pagecount: .res 1 ; Number of available screen pages
_tgi_fontsizex: .res 1 ; System font X size
_tgi_fontsizey: .res 1 ; System font Y size
+_tgi_aspectratio: .res 2 ; Aspect ratio in 8.8 fixed point
.data
tgi_getpixel: jmp $0000
tgi_line: jmp $0000
tgi_bar: jmp $0000
-tgi_circle: jmp $0000
tgi_textstyle: jmp $0000
tgi_outtext: jmp $0000
tgi_irq: .byte $60, $00, $00 ; RTS plus two dummy bytes
rts
-
+
.include "tgi-kernel.inc"
- .import popax
- .importzp tmp1
+ .import incsp4
.proc _tgi_circle
- sta tmp1 ; Get the coordinates
- jsr popax
- jsr tgi_popxy ; Pop X/Y into ptr1/ptr2
- jmp tgi_circle ; Call the driver
+ ; For now
+ jmp incsp4
.endproc
projects / cc65 / commitdiff