Mercurial > hg > Members > kono > nitros9-code
comparison 3rdparty/utils/dladd/slow.asm @ 3206:c544854608cf
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 | |
| children |
comparison
equal
deleted
inserted
replaced
| 3205:e85fdf0e52ae | 3206:c544854608cf |
|---|---|
| 1 ******************************************************************** | |
| 2 * slow - sets the computer to slow 0.89MHz | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Edt/Rev YYYY/MM/DD Modified by | |
| 7 * Comment | |
| 8 * ------------------------------------------------------------------ | |
| 9 * 1 2017/09/09 David Ladd | |
| 10 * Started. | |
| 11 * | |
| 12 | |
| 13 nam slow | |
| 14 ttl Slow Down | |
| 15 | |
| 16 ifp1 | |
| 17 use defsfile | |
| 18 endc | |
| 19 | |
| 20 tylg set Prgrm+Objct | |
| 21 atrv set ReEnt+Rev | |
| 22 rev set $00 | |
| 23 edition set 1 | |
| 24 | |
| 25 org 0 | |
| 26 rmb $0100 for the stack | |
| 27 size equ . | |
| 28 | |
| 29 mod eom,name,tylg,atrv,start,size | |
| 30 | |
| 31 name fcs /slow/ | |
| 32 fcb edition | |
| 33 | |
| 34 clearn fcb C$FORM | |
| 35 LCLEAR equ *-clearn | |
| 36 | |
| 37 * Entry of program | |
| 38 Start clrb | |
| 39 stb >$FFD8 | |
| 40 OS9 F$Exit | |
| 41 | |
| 42 emod | |
| 43 eom equ * | |
| 44 end | |
| 45 |