Fix crash if drive returns nonsensical day of week

mnaberez · Dec 9, 2015 · e5a431c · e5a431c
1 parent e02c579
commit e5a431c
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/hd/CHANGES.rst b/hd/CHANGES.rst
@@ -0,0 +1,7 @@
+2015-12-09
+----------
+
+- ``SET HD CLOCK``: Added an ``IF`` statement to end of line 30 to fix a
+  crash.  After the RTC battery was replaced in a CMD HD, the day of week
+  returned a nonsensical value (variable ``WD``) that was out of bounds
+  of the ``WD$()`` array, which caused ``?BAD SUBSCRIPT ERROR IN 1100``.
diff --git a/hd/utils/set_hd_clock.txt b/hd/utils/set_hd_clock.txt
@@ -1,4 +1,11 @@
 ;set_hd_clock.prg ==1c01==
+;
+;2015-12-09
+;  Added an IF statement to end of line 30 to fix a crash.  After the battery
+;  was replaced in a CMD HD, the day of week returned a nonsensical value
+;  (variable WD) that was out of bounds of the WD$() array, which caused
+;  ?BAD SUBSCRIPT ERROR IN 1100.
+;
     0 rem  set real-time clock by doug cotton      (c) 1990 by creative micro designs, inc.
     1 poke53280,0:poke53281,0:poke650,128:print"{clr}":dimwd$(6)
     2 wd$(0)="sun.":wd$(1)="mon."
@@ -8,7 +15,7 @@
     6 input"cmd device number";dv
    10 open15,dv,15
    20 print#15,"t-rd"
-   30 get#15,wd$:wd=asc(wd$+chr$(0))
+   30 get#15,wd$:wd=asc(wd$+chr$(0)):ifwd>6thenwd=0
    31 get#15,yr$:yr=asc(yr$+chr$(0))
    32 get#15,mo$:mo=asc(mo$+chr$(0))
    33 get#15,da$:da=asc(da$+chr$(0))