home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / news / 4569 / goodies8 / tunes / tricordr.doc < prev    next >
Text File  |  1993-02-18  |  3KB  |  146 lines
  1. (Comp.sys.hp48)
  2. Item: 2543 by sourada@iastate.edu [Steven D Ourada]
  3. Subj: Tricorder simulator
  4. Date: 31 Dec 1992
  5.  
  6. [Note: This goofy program isn't really a tune or sound effect, but try
  7.  it anyway.  This can be used to test the gullibility of the natives.
  8.  Make up some outrageous story about what it's doing, and I'll bet you
  9.  a nickle that most people will believe it!  -jkh-]
  10.  
  11.  
  12.                Copyright 1992 Steven Ourada   Freeware
  13.  
  14.                               TRICORDR
  15.                               ========
  16.  
  17. What it is
  18. ----------
  19.  
  20. This is a silly little program to simulate the 'Tricorder' devices used on
  21. Star Trek.
  22.  
  23.  
  24. How to use it
  25. -------------
  26.  
  27. To use TRICORDR, download it into a convenient directory, take off the 
  28. plastic cover over the infra-red pair on your 48, and execute TRICORDR.
  29. When you bring the front of the 48 close to some object, the speaker will 
  30. repeatedly beep. Wow, lot's of fun, eh?
  31.  
  32. When the excitement dulls, press a key to get out of the program.
  33.  
  34.  
  35. How it works
  36. ------------
  37.  
  38. Nothing too complicated: a small assembly language code segment pulses
  39. the IR emitter, and checks the detector to see if there is a
  40. reflection. It reports this back to the user-RPL code that beeps if
  41. there was a reflection.
  42.  
  43. Don't be worried that this will drain your batteries; the IR LED is
  44. only on for about 20 microseconds for each 10 milliseconds.
  45.  
  46.  
  47. I disclaim it
  48. -------------
  49.  
  50. This is Freeware, copy it freely as long as you give credit where it's due.
  51. There is NO WARRANTY with this software as it is provided to you with no
  52. charge.
  53.  
  54.  
  55. That's it
  56. ---------
  57.  
  58. Keep in mind that this is my first attempt at using Saturn assembly and my
  59. first HP48 program to be posted to Usenet. :-) If you have any comments,
  60. please mail me. 
  61.  
  62. --------------- Cut here. Assembly source follows. ------------------
  63. ; Copyright 1992 Steven Ourada    Freeware
  64.  
  65. ; Embedded assembly code to do "proximity check"
  66. ; Turn the IR on, check to see if it reflected, turn it off
  67.  
  68.  include class.mac
  69.  
  70.  rpl $02dcc              ; DOCODE
  71.  
  72. pgmbeg
  73.  rpl pgmend-pgmbeg       ; length of code 
  74.  
  75.  jsr save_regs
  76.  
  77.  move.a #$11a,d1
  78.  move.1 (d1),a
  79.  bclr #0,a
  80.  move.1 a,(d1)          ; clear IR detector bit
  81.  
  82.  move.a #$11c,d0
  83.  move.1 (d0),a
  84.  bset #3,a
  85.  move.b a,c
  86.  bclr #3,c
  87.  move.1 a,(d0)          ; turn IR emitter on
  88.  
  89.  move.1 (d1),a          ; read IR detector
  90.  move.1 c,(d0)          ; turn IR emitter off (it's only on for ~20us)
  91.  
  92.  bbs #0,a,reflec
  93.  
  94. noreflec
  95.  move.a #"0",d1        ; return a "0" in the string
  96.  exg.a d1,c
  97.  bra.3 stostat
  98.  
  99. reflec
  100.  move.a #"1",d1      ; return a "1" in the string
  101.  exg.a d1,c
  102.  
  103. stostat
  104.  push 
  105.  jsr restore_regs
  106.  pop
  107.  
  108.  move.a (d1),a         ; assuming a string on the top of the stack
  109.  move.a a,d1
  110.  add.a #$a,d1
  111.  move.b c,(d1)
  112.  
  113. exit
  114.  jsr restore_regs
  115.  move.a (d0),a
  116.  add.a #5,d0
  117.  jmp (a)
  118.  
  119. pgmend
  120.  rpl $0312b              ; SEMI
  121.  
  122.  include class.sym
  123.  
  124.  
  125. -------------------- Cut here. User RPL source follows. ---------------
  126. @ Copyright 1992 Steven Ourada    Freeware
  127.  
  128. @ 'Tricorder' simulator
  129. @ Note that the assembly code must be inserted where shown for this program
  130. @  to work properly.
  131.  
  132. \<< 
  133.  "0"
  134.  DO
  135.   @  Assembly code inserted here
  136.   IF DUP "1" SAME THEN
  137.    200 .03 BEEP
  138.   END
  139.  UNTIL KEY
  140.  END
  141.  DROP DROP
  142. \>>
  143. -- 
  144. -------
  145. Steven Ourada -- sourada@iastate.edu
  146.