leo3065

[ENIAC] A006060

Jan 8th, 2018
169
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. initiating {
  2. go P1-C:2
  3. clearin 0 P1-C:2
  4. clearout 0 P1-A:1
  5. }
  6. accumulator 1 {
  7. power True
  8. masterclear True
  9. right 2
  10. }
  11. accumulator 2 {
  12. power True
  13. masterclear True
  14. alpha D1-D
  15. s D1-C
  16. left 1
  17. program 1 {
  18. mode epsilon
  19. clear True
  20. programin P1-A:4
  21. }
  22. program 2 {
  23. mode S
  24. clear False
  25. programin P1-B:2
  26. }
  27. program 5 {
  28. mode 0
  29. clear True
  30. programin P1-B:5
  31. programout P1-B:6
  32. repeat 1
  33. }
  34. program 6 {
  35. mode alpha
  36. clear False
  37. programin P1-B:6
  38. programout P1-B:7
  39. repeat 1
  40. }
  41. }
  42. accumulator 3 {
  43. masterclear True
  44. right 4
  45. }
  46. accumulator 4 {
  47. power True
  48. masterclear True
  49. alpha D1-A
  50. beta D1-E
  51. a D1-D
  52. left 3
  53. program 1 {
  54. mode alpha
  55. clear False
  56. programin P1-A:4
  57. }
  58. program 2 {
  59. mode A
  60. clear False
  61. programin P1-B:4
  62. }
  63. program 3 {
  64. mode A
  65. clear True
  66. programin P1-B:6
  67. }
  68. program 5 {
  69. mode beta
  70. clear False
  71. programin P1-B:7
  72. programout P1-A:5
  73. repeat 1
  74. }
  75. }
  76. accumulator 5 {
  77. masterclear True
  78. right 6
  79. }
  80. accumulator 6 {
  81. power True
  82. masterclear True
  83. alpha D1-A
  84. beta D1-C
  85. gamma D1-D
  86. a D1-E
  87. left 5
  88. program 1 {
  89. mode A
  90. clear True
  91. programin P1-B:7
  92. }
  93. program 5 {
  94. mode alpha
  95. clear False
  96. programin P2-B:1
  97. programout P1-B:2
  98. repeat 1
  99. }
  100. program 6 {
  101. mode beta
  102. clear False
  103. programin P1-B:2
  104. programout P1-B:3
  105. repeat 1
  106. }
  107. program 7 {
  108. mode gamma
  109. clear False
  110. programin P1-B:4
  111. programout P1-B:3
  112. repeat 1
  113. }
  114. }
  115. accumulator 7 {
  116. power True
  117. masterclear True
  118. alpha D1-A
  119. s D1-B
  120. program 5 {
  121. mode alpha
  122. clear False
  123. programin P1-A:2
  124. programout P1-A:3
  125. repeat 1
  126. }
  127. program 6 {
  128. mode S
  129. clear False
  130. programin P1-A:3
  131. repeat 1
  132. }
  133. }
  134. accumulator 8 {
  135. power True
  136. masterclear True
  137. alpha D1-B
  138. a P2-B
  139. s P2-C
  140. program 1 {
  141. mode AS
  142. clear False
  143. programin P1-A:5
  144. }
  145. program 2 {
  146. mode gamma
  147. clear True
  148. programin P1-B:5
  149. }
  150. program 5 {
  151. mode alpha
  152. clear False
  153. programin P1-A:3
  154. programout P1-A:4
  155. repeat 1
  156. }
  157. }
  158. constant {
  159. power True
  160. program 1 {
  161. mode l
  162. select l
  163. programin P1-A:2
  164. }
  165. program 9 {
  166. mode lr
  167. select l
  168. programin P1-A:4
  169. programout P1-A:5
  170. }
  171. program 10 {
  172. mode lr
  173. select r
  174. programin P2-B:1
  175. }
  176. outputa D1-A
  177. regj +0000000253
  178. regk +0000000060
  179. }
  180. cardpunch {
  181. power True
  182. programin P2-C:1
  183. programout P1-C:2
  184. coupler 3 c
  185. print 1 off
  186. print 2 off
  187. print 5 off
  188. print 6 off
  189. print 7 off
  190. print 8 off
  191. print 9 off
  192. print 10 off
  193. print 11 off
  194. print 12 off
  195. print 13 off
  196. print 14 off
  197. print 15 off
  198. print 16 off
  199. }
  200. cardreader {
  201. power True
  202. programin P1-A:1
  203. programout P1-A:2
  204. interlock P1-A:1
  205. }
  206. master {
  207. power True
  208. decade 18 1 4
  209. decade 19 1 9
  210. decade 20 1 1
  211. association 8 B
  212. stepper B {
  213. clear 2
  214. in P1-B:3
  215. directclear P1-B:5
  216. out 1 P1-B:4
  217. out 2 P1-B:5
  218. }
  219. }
RAW Paste Data