home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / alt / sys / pdp8 / 92 < prev    next >
Encoding:
Text File  |  1992-11-18  |  2.4 KB  |  56 lines
  1. Newsgroups: alt.sys.pdp8
  2. Path: sparky!uunet!spool.mu.edu!uwm.edu!rpi!newsserver.pixel.kodak.com!laidbak!tellab5!vpnet!cgordon
  3. From: cgordon@vpnet.chi.il.us (gordon hlavenka)
  4. Subject: Re: The good old days.
  5. Message-ID: <1992Nov19.102634.20745@vpnet.chi.il.us>
  6. Organization: Vpnet Public Access
  7. References: <1992Nov18.235407.12864@reed.edu>
  8. Date: Thu, 19 Nov 1992 10:26:34 GMT
  9. Lines: 45
  10.  
  11.  bob@reed.edu (Robert Ankeney) writes:
  12. >     One thing I was just remembering was a wonderful puzzle from way
  13. >back when.  It was a challenge to write a program that zeroed memory.
  14. >It had to be written in the first 4K and would zero the entire 4K,
  15. >including itself.  So, if you're feeling bored, you might see if you
  16. >can do it!  Sadly, I don't remember any solution, but if I recall,
  17. >the auto-increment registers at 10-17 might have been useful.
  18.  
  19. A puzzle?  We ran this little ditty on almost a daily basis.
  20. 0000 ADDR LD
  21. DCA I 0010
  22. JMP 0000
  23. 0000 ADDR LD CLEAR CONT
  24.  
  25. 2 instructions.  Actually, we'd run it with the data field set to 1,
  26. then 2, and finally zero.  The program autoincrements itself right
  27. through the field, finally (in DF0) overwriting the DCA with a zero.
  28. (AND 0000)  Then the loop was a lot tighter -- you could see the
  29. difference in the panel lights.  You do have to make sure that
  30. location 10 has a 10 in it when you start, though...
  31.  
  32. Why did this get run so often?  Because the teachers didn't know how
  33. to reload BASIC, so if the machine went down they'd have to corral a
  34. convenient student, write him a pass out of his next class, and "make"
  35. him reload it.  If you didn't have a panel key, this program would
  36. bring EDUSYSTEM-20 to its knees:
  37. 10 DEF FNA(X)=FNB(X)
  38. 20 DEF FNB(X)=FNA(X)
  39. 30 PRI FNA(1)
  40. RUN
  41. <CRUNCH>
  42.  
  43. Another interesting pdp8 trick:  Since we had (4) ASR-33s as our only
  44. IO, we wrote a "fourple loader" which would read a clunk from each TTY
  45. in turn.  (The first character was on tape 1, the second on tape 2,
  46. etc.)  This ended up being almost 4 times as fast as loading
  47. through 1 TTY, since most of the time was spent just waiting for the
  48. reader to come ready again.  Each TTY used a tape with a different
  49. leader character, and the loader would figure out which tape was in
  50. which TTY.  Nowadays I think they call this "reverse multiplexing."
  51.  
  52. -- 
  53. ----------------------------------------------------
  54. Gordon S. Hlavenka           cgordon@vpnet.chi.il.us
  55. Vote straight ticket Procrastination party Dec. 3rd!
  56.