Now setPixel works in TGI.

[cc65] / libsrc / telestrat / tgi / telestrat-240-200-2.s

diff --git a/libsrc/telestrat/tgi/telestrat-240-200-2.s b/libsrc/telestrat/tgi/telestrat-240-200-2.s
index 3dc90525a9b38723e6ed7967cbcbabcd1f5f363b..fcc1ce3f2d103f096dedd0c5871751fbd6e89d6e 100644 (file)
--- a/libsrc/telestrat/tgi/telestrat-240-200-2.s
+++ b/libsrc/telestrat/tgi/telestrat-240-200-2.s
@@ -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.