Integer sequence: Difference between revisions
Content deleted Content added
PatGarrett (talk | contribs) m →{{header|360 Assembly}}: Superfluous blanks suppressed |
Added EDSAC order code |
||
Line 580:
(for ((n (in-naturals))) (writeln n))
</lang>
=={{header|EDSAC order code}}==
<lang edsac>[ Integer sequence
================
A program for the EDSAC
Displays integers 1,2,3...
in binary form in the first
word of storage tank 2
until stopped
Works with Initial Orders 2 ]
T56K [ set load point ]
GK [ set base address ]
A3@ [ increment accumulator ]
U64F [ copy accumulator to 64 ]
E@ [ jump to base address ]
P0D [ constant: 1 ]
EZPF [ begin at load point ]</lang>
=={{header|Eiffel}}==
| |||