Mercurial > hg > Members > kono > nitros9-code

changeset 1342:d358f0c1df3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added patch by Robert Gault to work with >512K systems
author boisy
date Tue, 16 Sep 2003 19:35:59 +0000
parents a5b4767f6542
children 04d092844f61
files level2/modules/vdgint.asm
diffstat 1 files changed, 33 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/vdgint.asm	Tue Sep 16 17:12:07 2003 +0000
+++ b/level2/modules/vdgint.asm	Tue Sep 16 19:35:59 2003 +0000
@@ -3,17 +3,21 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+*
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*   4    Quite a few changes:                           BGP 03/01/09
-*        - Merged in CoCo 2 gfx code from original
-*          OS-9 Level 2 code
-*        - Incorporated code tweaks for 6809 and 6309
-*          code from the vdgint_small and vdgint_tiny
-*          source files
-*        - Fixed long-standing cursor color bug
-*        - Fixed long-standing F$SRtMem bug in CoCo 2
-*          "graphics end" code $12 (see comments)
+*   4      2003/01/09  Boisy G. Pitre
+* Quite a few changes:
+* - Merged in CoCo 2 gfx code from original OS-9 Level 2 code.
+* - Incorporated code tweaks for 6809 and 6309 code from the vdgint_small
+*   and vdgint_tiny source files.
+* - Fixed long-standing cursor color bug.
+* - Fixed long-standing F$SRtMem bug in CoCo 2 "graphics end" code $12
+*   (see comments)
+*
+*   4r1    2003/09/16  Robert Gault
+* Added patch to work 1MB and 2MB CoCo 3s.
 
          nam   VDGInt
          ttl   CoCo 3 VDG I/O module
@@ -29,7 +33,7 @@
 
 tylg     set   Systm+Objct   
 atrv     set   ReEnt+rev
-rev      set   $00
+rev      set   $01
 edition  set   4
 
 skip2    equ   $8C		cmpx instruction
@@ -634,12 +638,25 @@
          ldx   <D.SysDAT
 *         leax  a,x
          abx
-         lda   $01,x		get block number to use
-         pshs  a
-         anda  #$F8		keep high bits only
-         lsla
-         lsla
+*         lda   $01,x		get block number to use
+*         pshs  a
+*         anda  #$F8		keep high bits only
+*         lsla
+*         lsla
+*         clrb
+* PATCH START: Mod for >512K systems, Robert Gault
+         ldb   1,x		get block number to use
+         pshs  b
+         andb  #$F8		keep high bits only
+         clra
+         lslb
+         rola
+         lslb
+         rola
+         sta   >$FF9B
+         tfr   b,a
          clrb
+* PATCH END: Mod for >512K systems, Robert Gault
          std   <D.VOFF1		display it
          std   >$FF9D
          ldd   #$0F07