23 lines
435 B
Plaintext
23 lines
435 B
Plaintext
[ 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 ]
|