Mercurial > hg > Members > kono > nitros9-code

changeset 1462:062d65d5c132

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added check for SHIFT key which, if down, bypasses startup and AutoEx
author boisy
date Mon, 15 Dec 2003 03:54:16 +0000
parents 67a173d497d5
children c086c2d613cf
files level1/modules/sysgo.asm
diffstat 1 files changed, 13 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/sysgo.asm	Fri Dec 12 21:13:47 2003 +0000
+++ b/level1/modules/sysgo.asm	Mon Dec 15 03:54:16 2003 +0000
@@ -16,7 +16,10 @@
 *
 *          2003/09/04  Boisy G. Pitre
 * Back-ported to OS-9 Level One.
-
+*
+*   5r3    2003/12/14  Boisy G. Pitre
+* Added SHIFT key check to prevent startup/autoex from starting if
+* held down.  Gene Heskett, this Bud's for you.
 
          nam   SysGo
          ttl   Kickstart program module
@@ -28,7 +31,7 @@
 
 tylg     set   Prgrm+Objct
 atrv     set   ReEnt+rev
-rev      set   $02
+rev      set   $03
 edition  set   $05
 
          mod   eom,name,tylg,atrv,start,size
@@ -202,7 +205,14 @@
 
          IFEQ  ROM
 * Fork shell startup here
-         leax  >Shell,pcr
+* Added 12/14/03: If SHIFT is held down, startup is not run
+         clra
+         ldb   #SS.KySns
+         os9   I$GetStt
+         bcs   DoStartup
+         bita  #SHIFTBIT		SHIFT key down?
+         bne   L0186			Yes, don't to startup or autoex
+DoStartup leax  >Shell,pcr
          leau  >Startup,pcr
          ldd   #256
          ldy   #StartupL