From 3a3eaf99cbc1dd85bdda2a751d3baa73eede8ca6 Mon Sep 17 00:00:00 2001
From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 17 Sep 2009 09:32:05 +0000
Subject: [PATCH] Lynx changes by Karri Kaksonen.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4181 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 doc/lynx.sgml                 |  3 ---
 include/lynx.h                |  1 -
 libsrc/lynx/crt0.s            |  1 +
 libsrc/lynx/lynx-160-102-16.s | 19 +------------------
 4 files changed, 2 insertions(+), 22 deletions(-)

diff --git a/doc/lynx.sgml b/doc/lynx.sgml
index 95745278c..c897a4dad 100644
--- a/doc/lynx.sgml
+++ b/doc/lynx.sgml
@@ -146,9 +146,6 @@ To update displays you can call tgi_updatedisplay() or tgi_ioctl(4, 1) it
 will wait for the next VBL interrupt and set the draw buffer to the
 view buffer. The draw buffer is also changed to (drawbuffer xor 1).
 
-Set an address for a subroutine you want to call at every VBL by calling
-tgi_setvblhook(addr) or tgi_ioctl(5, addr).
-
 <sect1>Extended memory drivers<p>
 
 No extended memory drivers are currently available for the Lynx.
diff --git a/include/lynx.h b/include/lynx.h
index 391a834ec..b669f78a1 100644
--- a/include/lynx.h
+++ b/include/lynx.h
@@ -125,7 +125,6 @@ void __fastcall__ lynx_eeprom_erase (unsigned char cell);
 #define tgi_setframerate(rate) tgi_ioctl(3, (unsigned)(rate))
 #define tgi_busy() tgi_ioctl(4, 0)
 #define tgi_updatedisplay() tgi_ioctl(4, 1)
-#define tgi_setvblhook(addr) tgi_ioctl(5, (unsigned)(addr))
 
 /* End of lynx.h */
 #endif
diff --git a/libsrc/lynx/crt0.s b/libsrc/lynx/crt0.s
index 245dd1207..a49902c4a 100644
--- a/libsrc/lynx/crt0.s
+++ b/libsrc/lynx/crt0.s
@@ -162,6 +162,7 @@ _exit:  jsr     donelib         ; Run module destructors
 noret:  bra     noret
 
 
+	.segment "CODE"
 IRQStub:
 	phy
 	phx
diff --git a/libsrc/lynx/lynx-160-102-16.s b/libsrc/lynx/lynx-160-102-16.s
index c41b89d25..a27496cbc 100644
--- a/libsrc/lynx/lynx-160-102-16.s
+++ b/libsrc/lynx/lynx-160-102-16.s
@@ -107,7 +107,6 @@ BGINDEX:        .res    1	; Pen to use for text background
 ; Double buffer IRQ stuff
 DRAWPAGE:	.res	1
 SWAPREQUEST:	.res	1
-VBLHOOK:	.res    3
 
 text_bitmap:    .res	8*(1+20+1)+1
 ; 8 rows with (one offset-byte plus 20 character bytes plus one fill-byte) plus one 0-offset-byte
@@ -168,8 +167,6 @@ INSTALL:
 	stz	BGINDEX
 	stz	DRAWPAGE
 	stz	SWAPREQUEST
-	lda	#$60		; rts op-code
-	sta	VBLHOOK
         rts
 
 
@@ -245,27 +242,13 @@ GETERROR:
 ;
 ; To update displays you can call tgi_ioctl(4, 1) it will wait for the
 ; next VBL interrupt and swap draw and view buffers.
-;
-; Set an address for a subroutine you want to call at every VBL
-; tgi_ioctl(5, hook)
 
 CONTROL:
         pha			; Almost all control routines succeed
         lda     #TGI_ERR_OK
 	sta	ERROR
 	pla
-	cmp	#5
-	bne ControlSwapRequest
-
-	lda	ptr1		; Set IRQ routine to be called at VBL
-	sta	VBLHOOK+1
-	lda	ptr1+1
-	sta	VBLHOOK+2
-	lda	#$43		; jmp op-code
-	sta	VBLHOOK
-	rts
 
-ControlSwapRequest:
 	cmp	#4
 	bne	ControlFramerate
 
@@ -280,6 +263,7 @@ ControlFramerate:
 	cmp	#3
 	bne	ControlTextBG
 
+	lda	ptr1
        	cmp     #75		; Set framerate
        	beq     rate75
        	cmp     #60
@@ -478,7 +462,6 @@ IRQ:
        	jsr	SETDRAWPAGE
        	stz	SWAPREQUEST
 @L0:
-       	jsr	VBLHOOK
 IRQEND:
        	clc
        	rts
-- 
2.39.5