the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Now setPixel works in TGI.

Browse Source
This commit is contained in:
jede
2017-10-20 21:03:30 +02:00
parent f964fdbe56
commit 351a5ab20a
4 changed files with 155 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
libsrc/telestrat/tgi/telestrat-228-200-3.s
View File

@@ -55,6 +55,7 @@ YSIZE = 8 ; System font height
.addr GETPIXEL
.addr LINE
.addr BAR
.addr CIRCLE
.addr TEXTSTYLE
.addr OUTTEXT
.addr 0 ; IRQ entry is unused
@@ -107,10 +108,13 @@ INIT:
; Switch into graphics mode.
BRK_TELEMON(XHIRES)
rts
; Done, reset the error code.
lda #TGI_ERR_OK
sta ERROR
rts
; ------------------------------------------------------------------------
; GETERROR: Return the error code in A, and clear it.
@@ -251,7 +255,17 @@ GETDEFPALETTE:
;
SETPIXEL:
; not done yet
lda X1
sta HRS1
lda Y1
sta HRS2
lda #$80
sta HRSFB
BRK_TELEMON(XCURSE)
rts
; ------------------------------------------------------------------------
@@ -274,6 +288,10 @@ LINE:
; not done yet
rts
CIRCLE:
; not done yet
rts
; ------------------------------------------------------------------------
; BAR: Draw a filled rectangle with the corners X1/Y1, X2/Y2, where
; X1/Y1 = ptr1/ptr2 and X2/Y2 = ptr3/ptr4, using the current drawing color.

23
libsrc/telestrat/tgi/telestrat-240-200-2.s
View File

@@ -125,7 +125,7 @@ INIT:
; Switch into graphics mode
BRK_TELEMON(XHIRES)
rts
; Done, reset the error code
lda #TGI_ERR_OK
@@ -248,7 +248,17 @@ GETDEFPALETTE:
;
SETPIXEL:
; not done yet
lda X1
sta HRS1
lda Y1
sta HRS2
lda #$80 ; curset on
sta HRSFB
BRK_TELEMON(XCURSE)
rts
; ------------------------------------------------------------------------
@@ -268,8 +278,13 @@ GETPIXEL:
;
LINE:
; not done yet
rts
; not done yet
rts
CIRCLE:
; not done yet
rts
; ------------------------------------------------------------------------
; BAR: Draw a filled rectangle with the corners X1/Y1, X2/Y2, where
; X1/Y1 = ptr1/ptr2 and X2/Y2 = ptr3/ptr4 using the current drawing color.