New TGI routines tgi_getaspectratio/tgi_setaspectratio.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5009 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/tgi/Makefile

@@ -44,6 +44,7 @@ S_OBJS =       	tgi-kernel.o   	        \
                 tgi_done.o              \
                 tgi_ellipse.o           \
                 tgi_free_vectorfont.o   \
+		tgi_getaspectratio.o	\
                 tgi_getcolor.o          \
                 tgi_getcolorcount.o     \
                 tgi_getdefpalette.o     \
@@ -72,6 +73,7 @@ S_OBJS =       	tgi-kernel.o   	        \
                 tgi_outtextxy.o         \
                 tgi_popxy.o             \
                 tgi_popxy2.o            \
+		tgi_setaspectratio.o	\
                 tgi_setcolor.o          \
                 tgi_setdrawpage.o       \
                 tgi_setpalette.o        \

libsrc/tgi/tgi_getaspectratio.s

@@ -0,0 +1,19 @@
+;
+; Ullrich von Bassewitz, 2011-05-01
+;
+; unsigned __fastcall__ tgi_getaspectratio (void);
+; /* Returns the aspect ratio for the loaded driver. The aspect ratio is an
+;  * 8.8 fixed point value.
+;  */
+;
+
+        .include        "tgi-kernel.inc"
+
+.proc   _tgi_getaspectratio
+
+        lda     _tgi_aspectratio
+        ldx     _tgi_aspectratio+1
+        rts
+
+.endproc
+

libsrc/tgi/tgi_setaspectratio.s

@@ -0,0 +1,19 @@
+;
+; Ullrich von Bassewitz, 2011-05-01
+;
+; void __fastcall__ tgi_setaspectratio (unsigned aspectratio);
+; /* Set a new aspect ratio for the loaded driver. The aspect ratio is an
+;  * 8.8 fixed point value.
+;  */
+;
+
+        .include        "tgi-kernel.inc"
+
+.proc   _tgi_setaspectratio
+
+        sta     _tgi_aspectratio
+        stx     _tgi_aspectratio+1
+        rts
+
+.endproc
+