Mercurial > hg > Members > kono > nitros9-code

changeset 1981:21bf55c38692

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changes to permit selection of vdg windows within a script file.
author robert
date Wed, 18 Jan 2006 03:54:13 +0000
parents e49e6d80c06e
children f3632b273d19
files level2/modules/covdg.asm
diffstat 1 files changed, 19 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/covdg.asm	Sat Jan 14 14:08:43 2006 +0000
+++ b/level2/modules/covdg.asm	Wed Jan 18 03:54:13 2006 +0000
@@ -21,6 +21,11 @@
 *
 *   1      2005/11/26  Boisy G. Pitre
 * Renamed from VDGInt, reset edition.
+*
+*          2006/01/17  Robert Gault
+* Changed the Select routine to permit the use of display 1b 21 within
+* scripts when changing from a window to a vdg screen. See discriptions
+* in cowin.asm. RG
 
          nam   CoVDG
          ttl   CoCo 3 VDG I/O module
@@ -335,6 +340,8 @@
          lbsr  SetupPal		do default palette
          lbra  L026E		put palette and exit
 
+* The reasons for the commented out lines below are discussed in cowin.asm
+* where the functions are identical. RG
 L0209    cmpa  #$31		change palette?
          IFNE  COCO2
          lbeq  PalProc		branch if so
@@ -343,21 +350,26 @@
          ldx   PD.RGS,y		get registers
          lda   R$A,x		get path
          ldx   <D.Proc		get current proc
-         cmpa  >P$SelP,x	compare against selected path
-         beq   L0249		branch if empty
+* There does not seem to be a reason for the next two lines. RG
+*         cmpa  >P$SelP,x	compare against selected path
+*         beq   L0249		branch if empty
          ldb   >P$SelP,x	else load selected path from process descriptor
          sta   >P$SelP,x	and store passed path
          pshs  y		save our path desc ptr
          bsr   L024A		get device table entry for path
          ldy   V$STAT,y		get driver statics
          ldx   <D.CCMem		get CoCo memory
-         cmpy  <G.CurDev,x
+* Again, there does not seem to be a reason for this or the next branch. RG
+*         cmpy  <G.CurDev,x
          puls  y		restore our path desc ptr
-         bne   L0248
+*         bne   L0248 
          inc   <VD.DFlag,u
          ldy   <G.CurDev,x	get current static mem
          sty   <G.PrWMPt,x	copy to previous
          stu   <G.CurDev,x	and save new static mem ptr
+* Give system a chance to stabilize. RG
+         ldx   #2
+         os9   F$Sleep
 L0248    clrb  
 L0249    rts   
 
@@ -365,9 +377,11 @@
 L024A    leax  <P$Path,x	point to path table in process descriptor
          lda   b,x		get system path number
          ldx   <D.PthDBT	point to path descriptor base table
+* protect regB incase of error report. RG
+         pshs  b
          os9   F$Find64 	put found path descriptor in Y
          ldy   PD.DEV,y		load Y with device table entry
-         rts   
+         puls  b,pc   
          ELSE
          bne   NoOp
          ENDC