PiDP-8/I Software

Hex Artifact Content
Log In

Artifact b48697fb6300e2e7a1adecd3b31a5407615d2df8:


0000: 2f 20 61 63 2d 6d 71 2d 62 6c 69 6e 6b 65 72 2e  / ac-mq-blinker.
0010: 70 61 6c 20 2d 20 52 61 70 69 64 6c 79 20 6d 6f  pal - Rapidly mo
0020: 64 69 66 79 20 41 43 20 61 6e 64 20 4d 51 0a 2f  dify AC and MQ./
0030: 0a 2f 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20  ./ This program 
0040: 74 77 69 64 64 6c 65 73 20 41 43 20 61 6e 64 20  twiddles AC and 
0050: 4d 51 20 72 61 70 69 64 6c 79 2c 20 77 69 74 68  MQ rapidly, with
0060: 20 61 20 73 6d 61 6c 6c 20 61 6d 6f 75 6e 74 20   a small amount 
0070: 6f 66 20 64 65 6c 61 79 0a 2f 20 62 65 74 77 65  of delay./ betwe
0080: 65 6e 20 65 61 63 68 20 75 70 64 61 74 65 20 73  en each update s
0090: 6f 20 74 68 65 20 6c 69 67 68 74 73 20 61 72 65  o the lights are
00a0: 6e 27 74 20 6a 75 73 74 20 61 20 73 6f 6c 69 64  n't just a solid
00b0: 20 62 6c 75 72 2e 0a 2f 0a 2f 20 57 68 69 6c 65   blur.././ While
00c0: 20 74 68 69 73 20 70 72 6f 67 72 61 6d 20 72 75   this program ru
00d0: 6e 73 20 61 74 20 66 75 6c 6c 20 73 70 65 65 64  ns at full speed
00e0: 2c 20 6f 6e 6c 79 20 41 43 20 61 6e 64 20 4d 51  , only AC and MQ
00f0: 20 61 70 70 65 61 72 20 74 6f 20 61 0a 2f 20 68   appear to a./ h
0100: 75 6d 61 6e 20 74 6f 20 72 65 61 6c 6c 79 20 63  uman to really c
0110: 68 61 6e 67 65 2e 20 20 50 43 20 61 6c 73 6f 20  hange.  PC also 
0120: 63 68 61 6e 67 65 73 2c 20 6f 66 20 63 6f 75 72  changes, of cour
0130: 73 65 2c 20 62 75 74 20 73 69 6e 63 65 20 74 68  se, but since th
0140: 65 0a 2f 20 70 72 6f 67 72 61 6d 20 73 70 65 6e  e./ program spen
0150: 64 73 20 73 6f 20 6d 75 63 68 20 6f 66 20 69 74  ds so much of it
0160: 73 20 74 69 6d 65 20 69 6e 20 74 68 65 20 64 65  s time in the de
0170: 6c 61 79 20 6c 6f 6f 70 20 61 74 20 74 68 65 20  lay loop at the 
0180: 74 6f 70 2c 20 69 74 0a 2f 20 61 70 70 65 61 72  top, it./ appear
0190: 73 20 74 6f 20 62 65 20 73 74 75 63 6b 20 61 74  s to be stuck at
01a0: 20 50 43 3d 31 2e 0a 2f 0a 2f 20 49 74 20 61 6c   PC=1.././ It al
01b0: 73 6f 20 6d 6f 64 69 66 69 65 73 20 4d 42 20 72  so modifies MB r
01c0: 61 70 69 64 6c 79 2c 20 62 75 74 20 74 68 65 20  apidly, but the 
01d0: 70 61 74 74 65 72 6e 20 77 65 20 75 73 65 20 6d  pattern we use m
01e0: 65 61 6e 73 20 69 74 20 6c 6f 6f 6b 73 0a 2f 20  eans it looks./ 
01f0: 6c 69 6b 65 20 74 68 65 20 6c 61 6d 70 73 20 61  like the lamps a
0200: 72 65 6e 27 74 20 63 68 61 6e 67 69 6e 67 2c 20  ren't changing, 
0210: 62 75 74 20 61 72 65 20 61 6c 6c 20 6f 6e 2c 20  but are all on, 
0220: 64 69 6d 6d 65 64 20 62 79 20 76 61 72 79 69 6e  dimmed by varyin
0230: 67 0a 2f 20 61 6d 6f 75 6e 74 73 2e 0a 2f 0a 2f  g./ amounts.././
0240: 20 46 72 6f 6d 3a 20 68 74 74 70 3a 2f 2f 64 75   From: http://du
0250: 73 74 79 6f 6c 64 63 6f 6d 70 75 74 65 72 73 2e  styoldcomputers.
0260: 63 6f 6d 2f 70 64 70 38 2f 70 64 70 38 69 2f 74  com/pdp8/pdp8i/t
0270: 65 73 74 70 72 6f 67 73 2f 61 63 6d 71 62 6c 69  estprogs/acmqbli
0280: 6e 6b 65 72 2e 68 74 6d 6c 0a 2f 0a 2f 20 53 49  nker.html././ SI
0290: 4d 48 3a 20 73 65 74 20 74 68 72 6f 74 74 6c 65  MH: set throttle
02a0: 20 33 30 6b 0a 2f 20 53 49 4d 48 3a 20 73 65 74   30k./ SIMH: set
02b0: 20 64 66 20 64 69 73 61 62 6c 65 64 0a 2f 20 53   df disabled./ S
02c0: 49 4d 48 3a 20 73 65 74 20 63 70 75 20 6e 6f 69  IMH: set cpu noi
02d0: 64 6c 65 0a 2f 0a 2f 20 43 6f 70 79 72 69 67 68  dle././ Copyrigh
02e0: 74 20 c2 a9 20 32 30 30 30 20 52 6f 62 65 72 74  t .. 2000 Robert
02f0: 20 4b 72 74 65 6e 0a 2f 0a 2f 20 50 65 72 6d 69   Krten././ Permi
0300: 73 73 69 6f 6e 20 69 73 20 68 65 72 65 62 79 20  ssion is hereby 
0310: 67 72 61 6e 74 65 64 2c 20 66 72 65 65 20 6f 66  granted, free of
0320: 20 63 68 61 72 67 65 2c 20 74 6f 20 61 6e 79 20   charge, to any 
0330: 70 65 72 73 6f 6e 20 6f 62 74 61 69 6e 69 6e 67  person obtaining
0340: 20 61 0a 2f 20 63 6f 70 79 20 6f 66 20 74 68 69   a./ copy of thi
0350: 73 20 73 6f 66 74 77 61 72 65 20 61 6e 64 20 61  s software and a
0360: 73 73 6f 63 69 61 74 65 64 20 64 6f 63 75 6d 65  ssociated docume
0370: 6e 74 61 74 69 6f 6e 20 66 69 6c 65 73 20 28 74  ntation files (t
0380: 68 65 20 22 53 6f 66 74 77 61 72 65 22 29 2c 0a  he "Software"),.
0390: 2f 20 74 6f 20 64 65 61 6c 20 69 6e 20 74 68 65  / to deal in the
03a0: 20 53 6f 66 74 77 61 72 65 20 77 69 74 68 6f 75   Software withou
03b0: 74 20 72 65 73 74 72 69 63 74 69 6f 6e 2c 20 69  t restriction, i
03c0: 6e 63 6c 75 64 69 6e 67 20 77 69 74 68 6f 75 74  ncluding without
03d0: 20 6c 69 6d 69 74 61 74 69 6f 6e 0a 2f 20 74 68   limitation./ th
03e0: 65 20 72 69 67 68 74 73 20 74 6f 20 75 73 65 2c  e rights to use,
03f0: 20 63 6f 70 79 2c 20 6d 6f 64 69 66 79 2c 20 6d   copy, modify, m
0400: 65 72 67 65 2c 20 70 75 62 6c 69 73 68 2c 20 64  erge, publish, d
0410: 69 73 74 72 69 62 75 74 65 2c 20 73 75 62 6c 69  istribute, subli
0420: 63 65 6e 73 65 2c 0a 2f 20 61 6e 64 2f 6f 72 20  cense,./ and/or 
0430: 73 65 6c 6c 20 63 6f 70 69 65 73 20 6f 66 20 74  sell copies of t
0440: 68 65 20 53 6f 66 74 77 61 72 65 2c 20 61 6e 64  he Software, and
0450: 20 74 6f 20 70 65 72 6d 69 74 20 70 65 72 73 6f   to permit perso
0460: 6e 73 20 74 6f 20 77 68 6f 6d 20 74 68 65 0a 2f  ns to whom the./
0470: 20 53 6f 66 74 77 61 72 65 20 69 73 20 66 75 72   Software is fur
0480: 6e 69 73 68 65 64 20 74 6f 20 64 6f 20 73 6f 2c  nished to do so,
0490: 20 73 75 62 6a 65 63 74 20 74 6f 20 74 68 65 20   subject to the 
04a0: 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 64 69 74  following condit
04b0: 69 6f 6e 73 3a 0a 2f 0a 2f 20 54 68 65 20 61 62  ions:././ The ab
04c0: 6f 76 65 20 63 6f 70 79 72 69 67 68 74 20 6e 6f  ove copyright no
04d0: 74 69 63 65 20 61 6e 64 20 74 68 69 73 20 70 65  tice and this pe
04e0: 72 6d 69 73 73 69 6f 6e 20 6e 6f 74 69 63 65 20  rmission notice 
04f0: 73 68 61 6c 6c 20 62 65 20 69 6e 63 6c 75 64 65  shall be include
0500: 64 20 69 6e 0a 2f 20 61 6c 6c 20 63 6f 70 69 65  d in./ all copie
0510: 73 20 6f 72 20 73 75 62 73 74 61 6e 74 69 61 6c  s or substantial
0520: 20 70 6f 72 74 69 6f 6e 73 20 6f 66 20 74 68 65   portions of the
0530: 20 53 6f 66 74 77 61 72 65 2e 0a 2f 0a 2f 20 54   Software.././ T
0540: 48 45 20 53 4f 46 54 57 41 52 45 20 49 53 20 50  HE SOFTWARE IS P
0550: 52 4f 56 49 44 45 44 20 22 41 53 20 49 53 22 2c  ROVIDED "AS IS",
0560: 20 57 49 54 48 4f 55 54 20 57 41 52 52 41 4e 54   WITHOUT WARRANT
0570: 59 20 4f 46 20 41 4e 59 20 4b 49 4e 44 2c 20 45  Y OF ANY KIND, E
0580: 58 50 52 45 53 53 20 4f 52 0a 2f 20 49 4d 50 4c  XPRESS OR./ IMPL
0590: 49 45 44 2c 20 49 4e 43 4c 55 44 49 4e 47 20 42  IED, INCLUDING B
05a0: 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 44 20 54  UT NOT LIMITED T
05b0: 4f 20 54 48 45 20 57 41 52 52 41 4e 54 49 45 53  O THE WARRANTIES
05c0: 20 4f 46 20 4d 45 52 43 48 41 4e 54 41 42 49 4c   OF MERCHANTABIL
05d0: 49 54 59 2c 0a 2f 20 46 49 54 4e 45 53 53 20 46  ITY,./ FITNESS F
05e0: 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20  OR A PARTICULAR 
05f0: 50 55 52 50 4f 53 45 20 41 4e 44 20 4e 4f 4e 49  PURPOSE AND NONI
0600: 4e 46 52 49 4e 47 45 4d 45 4e 54 2e 20 20 49 4e  NFRINGEMENT.  IN
0610: 20 4e 4f 20 45 56 45 4e 54 20 53 48 41 4c 4c 0a   NO EVENT SHALL.
0620: 2f 20 54 48 45 20 41 55 54 48 4f 52 53 20 4c 49  / THE AUTHORS LI
0630: 53 54 45 44 20 41 42 4f 56 45 20 42 45 20 4c 49  STED ABOVE BE LI
0640: 41 42 4c 45 20 46 4f 52 20 41 4e 59 20 43 4c 41  ABLE FOR ANY CLA
0650: 49 4d 2c 20 44 41 4d 41 47 45 53 20 4f 52 20 4f  IM, DAMAGES OR O
0660: 54 48 45 52 0a 2f 20 4c 49 41 42 49 4c 49 54 59  THER./ LIABILITY
0670: 2c 20 57 48 45 54 48 45 52 20 49 4e 20 41 4e 20  , WHETHER IN AN 
0680: 41 43 54 49 4f 4e 20 4f 46 20 43 4f 4e 54 52 41  ACTION OF CONTRA
0690: 43 54 2c 20 54 4f 52 54 20 4f 52 20 4f 54 48 45  CT, TORT OR OTHE
06a0: 52 57 49 53 45 2c 20 41 52 49 53 49 4e 47 0a 2f  RWISE, ARISING./
06b0: 20 46 52 4f 4d 2c 20 4f 55 54 20 4f 46 20 4f 52   FROM, OUT OF OR
06c0: 20 49 4e 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 57   IN CONNECTION W
06d0: 49 54 48 20 54 48 45 20 53 4f 46 54 57 41 52 45  ITH THE SOFTWARE
06e0: 20 4f 52 20 54 48 45 20 55 53 45 20 4f 52 20 4f   OR THE USE OR O
06f0: 54 48 45 52 0a 2f 20 44 45 41 4c 49 4e 47 53 20  THER./ DEALINGS 
0700: 49 4e 20 54 48 45 20 53 4f 46 54 57 41 52 45 2e  IN THE SOFTWARE.
0710: 0a 2f 0a 2f 20 45 78 63 65 70 74 20 61 73 20 63  ././ Except as c
0720: 6f 6e 74 61 69 6e 65 64 20 69 6e 20 74 68 69 73  ontained in this
0730: 20 6e 6f 74 69 63 65 2c 20 74 68 65 20 6e 61 6d   notice, the nam
0740: 65 73 20 6f 66 20 74 68 65 20 61 75 74 68 6f 72  es of the author
0750: 73 20 61 62 6f 76 65 20 73 68 61 6c 6c 0a 2f 20  s above shall./ 
0760: 6e 6f 74 20 62 65 20 75 73 65 64 20 69 6e 20 61  not be used in a
0770: 64 76 65 72 74 69 73 69 6e 67 20 6f 72 20 6f 74  dvertising or ot
0780: 68 65 72 77 69 73 65 20 74 6f 20 70 72 6f 6d 6f  herwise to promo
0790: 74 65 20 74 68 65 20 73 61 6c 65 2c 20 75 73 65  te the sale, use
07a0: 20 6f 72 20 6f 74 68 65 72 0a 2f 20 64 65 61 6c   or other./ deal
07b0: 69 6e 67 73 20 69 6e 20 74 68 69 73 20 53 6f 66  ings in this Sof
07c0: 74 77 61 72 65 20 77 69 74 68 6f 75 74 20 70 72  tware without pr
07d0: 69 6f 72 20 77 72 69 74 74 65 6e 20 61 75 74 68  ior written auth
07e0: 6f 72 69 7a 61 74 69 6f 6e 20 66 72 6f 6d 20 74  orization from t
07f0: 68 6f 73 65 0a 2f 20 61 75 74 68 6f 72 73 2e 0a  hose./ authors..
0800: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0810: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0820: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0830: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0840: 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 09 50 41 47 45 20  ////////...PAGE 
0850: 30 0a 6c 6f 6f 70 2c 09 49 53 5a 20 64 65 6c 61  0.loop,.ISZ dela
0860: 79 09 2f 20 63 72 65 61 74 65 20 61 20 64 65 6c  y./ create a del
0870: 61 79 0a 09 4a 4d 50 20 6c 6f 6f 70 0a 09 43 4c  ay..JMP loop..CL
0880: 41 09 09 2f 20 63 6c 65 61 72 20 41 43 20 73 6f  A../ clear AC so
0890: 20 77 65 20 63 61 6e 20 6c 6f 61 64 20 69 74 0a   we can load it.
08a0: 09 54 41 44 20 76 61 6c 75 65 09 2f 20 67 65 74  .TAD value./ get
08b0: 20 76 61 6c 75 65 0a 09 4d 51 4c 09 09 2f 20 73   value..MQL../ s
08c0: 74 61 73 68 20 41 43 20 69 6e 74 6f 20 4d 51 0a  tash AC into MQ.
08d0: 09 54 41 44 20 76 61 6c 75 65 09 2f 20 66 65 74  .TAD value./ fet
08e0: 63 68 20 76 61 6c 75 65 20 61 67 61 69 6e 0a 09  ch value again..
08f0: 43 4d 41 09 09 2f 20 63 6f 6d 70 6c 65 6d 65 6e  CMA../ complemen
0900: 74 20 41 43 0a 09 49 53 5a 20 76 61 6c 75 65 09  t AC..ISZ value.
0910: 2f 20 67 65 74 20 74 6f 20 6e 65 78 74 20 76 61  / get to next va
0920: 6c 75 65 0a 09 4e 4f 50 09 09 2f 20 69 67 6e 6f  lue..NOP../ igno
0930: 72 65 20 70 6f 73 73 69 62 6c 65 20 22 73 6b 69  re possible "ski
0940: 70 22 20 66 72 6f 6d 20 49 53 5a 0a 09 4a 4d 50  p" from ISZ..JMP
0950: 20 6c 6f 6f 70 09 2f 20 61 6e 64 20 64 6f 20 69   loop./ and do i
0960: 74 20 61 6c 6c 20 61 67 61 69 6e 0a 0a 09 2a 32  t all again...*2
0970: 30 09 09 2f 20 73 6b 69 70 20 6f 76 65 72 20 74  0../ skip over t
0980: 68 65 20 61 75 74 6f 69 6e 63 72 65 6d 65 6e 74  he autoincrement
0990: 20 72 65 67 69 73 74 65 72 73 0a 64 65 6c 61 79   registers.delay
09a0: 2c 09 30 0a 76 61 6c 75 65 2c 09 30 0a 24 0a     ,.0.value,.0.$.