home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / hp48 / 5563 < prev    next >
Encoding:
Text File  |  1992-11-05  |  2.6 KB  |  66 lines
  1. Newsgroups: comp.sys.hp48
  2. Path: sparky!uunet!gatech!paladin.american.edu!news.univie.ac.at!hp4at!mcsun!chsun!bernina!wachter
  3. From: wachter@iis.ethz.ch (Georges Leopold Camille Wachter)
  4. Subject: Re: HP28 speedup woes
  5. Message-ID: <wachter.720974529@tardis62>
  6. Sender: news@bernina.ethz.ch (USENET News System)
  7. Organization: Swiss Federal Institute of Technology (ETH), Zurich, CH
  8. References: <4210@sicsun.epfl.ch>
  9. Date: Thu, 5 Nov 1992 14:42:09 GMT
  10. Lines: 54
  11.  
  12. duval@elpp1.epfl.ch (Basil P. Duval EPFL - CRPP 1015 Lausanne CH) writes:
  13. >[...]
  14. >    Now, I have never myself used an HP28 and was wondering if anybody out
  15. >there not only knows how to up the internal clock rate to 2Mhz but could
  16. >also give instructions as to how the program is entered on this machine
  17. >[...]
  18.  
  19. Well This is a question that comes up at least every 6 months (Why isn't it in
  20. the faq ?). As this question is of more general interest and as the
  21. fast-program is one of the most useful programs for the hp28 I'll repost
  22. an article I've already posted in Dec 91 :
  23. ==========================
  24.  
  25. Here is the code of the program :
  26. 0001 00000          assCode  EQU       #20C96
  27. 0002 00000          saver    EQU       #05081
  28. 0003 00000          restore  EQU       #050B8
  29. 0004 00000 69C20             CON(5)    assCode
  30. 0005 00005 B2000    start    CON(5)    (end)-start
  31. 0006 0000A 8F18050           GOSBVL    saver
  32. 0007 00011 30F               LC(1)     #F            Speed
  33. 0008 00014 1F00FFF           D1=(5)    #FFF00        Speed adress
  34. 0009 0001B 15D0              DAT1=C    1
  35. 0010 0001F 8F8B050           GOSBVL    restore
  36. 0011 00026 142               A=DAT0    A
  37. 0012 00029 164               D0=D0+    5
  38. 0013 0002C 808C              PC=(A)
  39. 0014 00030          end
  40. 0015 00030
  41.  
  42. You may enter it with an assembler or -- The simplest way -- by typing the
  43. following sequence:
  44. #5081F80002B02C96h
  45. #80D51FFF00F1F030h
  46. #C808461241050B8Fh
  47. #3B82h  SYSEVAL
  48. #3B82h  SYSEVAL
  49. #3CEAAh SYSEVAL
  50.  
  51. You'll get a 'System Object', that you can store as 'FAST'
  52. Just execute FAST each time you want to boost your machine.Remember that the
  53. effect stops when you press ON/ATTN and that the hp needs more energy if  it runs
  54. in fast mode.
  55. This version of the 'fast' program has been written 2 years ago by
  56. Philippe Colbach (colbach@nessie.cs.id.ethz.ch)
  57. Roland Boes
  58. Georges Wachter  (wachter@iis.ethz.ch)
  59. ============================
  60. Good luck and enjoy the speed of your machine!
  61. --
  62. Georges Wachter        EE Student        Swiss Federal Institute of Technology
  63. Snail-mail1 : 74,rue due Travail L-2625 LUXEMBOURG ; voice : 433118
  64. Snail-mail2 : Haldenbachstr,21  CH-8006 ZUERICH    ; voice : 01 - 2521480
  65. E- mail     : wachter@iis.ethz.ch
  66.