Mercurial > hg > Members > kono > nitros9-code

changeset 3206:c544854608cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added a couple more utilities to my utils section as well as a README.md Added source for fast.asm and slow.asm The fast binary strobes address $FFD9 to enable 1.79MHz mode. This is useful for returning the system back to full speed mode after using the slow utility. The slow binary strobes address $FFD8 to enable 0.89MHz mode. This utility is handy for the cases of testing some older programs for timing that were from L1.
author David Ladd <drencor-xeen@users.sourceforge.net>
date Sat, 09 Sep 2017 20:17:42 -0500
parents e85fdf0e52ae
children 2973ecc9567a
files 3rdparty/utils/dladd/README.md 3rdparty/utils/dladd/fast.asm 3rdparty/utils/dladd/makefile 3rdparty/utils/dladd/slow.asm
diffstat 4 files changed, 102 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/utils/dladd/README.md	Sat Sep 09 20:17:42 2017 -0500
@@ -0,0 +1,11 @@
+This is a quick set of utilities I use to save myself time for either testing or convenience.
+
+cls - this is a quick clear screen utility that display sends a $0C to the current stdout.
+
+fast - this strobes $FFD9 to enable turbo mode of the CoCo 3.  Useful for re-enabling fast mode after using slow.
+
+slow - this strobes $FFD8 to enable normal 0.89MHz mode on the CoCo 3.  This is useful for testing older L1 programs and other nifty stuff.
+
+Hopefully someone will find these of some use in their projects.
+
+David Ladd
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/utils/dladd/fast.asm	Sat Sep 09 20:17:42 2017 -0500
@@ -0,0 +1,45 @@
+********************************************************************
+* fast - Set Fast mode of 1.79MHz
+*
+* $Id$
+*
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
+* ------------------------------------------------------------------
+*   1      2017/09/09  David Ladd
+* Started.
+*
+
+         nam   fast
+         ttl   Fast Mode
+
+         ifp1
+         use   defsfile
+         endc
+
+tylg     set   Prgrm+Objct
+atrv     set   ReEnt+Rev
+rev      set   $00
+edition  set   1
+
+         org   0
+         rmb   $0100      for the stack
+size     equ   .
+
+         mod   eom,name,tylg,atrv,start,size
+
+name     fcs   /fast/
+         fcb   edition
+
+clearn   fcb   C$FORM
+LCLEAR   equ   *-clearn
+
+* Entry of program
+Start    clrb
+         stb   >$FFD9
+         OS9   F$Exit
+
+         emod
+eom      equ   *
+         end
+
--- a/3rdparty/utils/dladd/makefile	Sat Sep 09 22:37:18 2017 +0200
+++ b/3rdparty/utils/dladd/makefile	Sat Sep 09 20:17:42 2017 -0500
@@ -2,7 +2,7 @@
 
 DEPENDS		:= ./makefile
 
-CMDS		= cls
+CMDS		= cls fast slow
 
 ALLOBJS		= $(CMDS)
 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/utils/dladd/slow.asm	Sat Sep 09 20:17:42 2017 -0500
@@ -0,0 +1,45 @@
+********************************************************************
+* slow - sets the computer to slow 0.89MHz
+*
+* $Id$
+*
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
+* ------------------------------------------------------------------
+*   1      2017/09/09  David Ladd
+* Started.
+*
+
+         nam   slow
+         ttl   Slow Down
+
+         ifp1
+         use   defsfile
+         endc
+
+tylg     set   Prgrm+Objct
+atrv     set   ReEnt+Rev
+rev      set   $00
+edition  set   1
+
+         org   0
+         rmb   $0100      for the stack
+size     equ   .
+
+         mod   eom,name,tylg,atrv,start,size
+
+name     fcs   /slow/
+         fcb   edition
+
+clearn   fcb   C$FORM
+LCLEAR   equ   *-clearn
+
+* Entry of program
+Start    clrb
+         stb   >$FFD8
+         OS9   F$Exit
+
+         emod
+eom      equ   *
+         end
+