64 lines
864 B
Plaintext
64 lines
864 B
Plaintext
[ Copy a string
|
|
=============
|
|
|
|
A program for the EDSAC
|
|
|
|
Copies the source string into storage
|
|
tank 6, which is assumed to be free,
|
|
and then prints it from there
|
|
|
|
Works with Initial Orders 2 ]
|
|
|
|
T56K
|
|
GK
|
|
|
|
[ 0 ] A34@ [ copy the string ]
|
|
[ 1 ] T192F
|
|
[ 2 ] H34@
|
|
C32@
|
|
S32@
|
|
E17@
|
|
T31@
|
|
A@
|
|
A33@
|
|
T@
|
|
A1@
|
|
A33@
|
|
T1@
|
|
A2@
|
|
A33@
|
|
T2@
|
|
E@
|
|
[ 17 ] O192F [ print the copy ]
|
|
[ 18 ] H192F
|
|
C32@
|
|
S32@
|
|
E30@
|
|
T31@
|
|
A17@
|
|
A33@
|
|
T17@
|
|
A18@
|
|
A33@
|
|
T18@
|
|
E17@
|
|
[ 30 ] ZF
|
|
[ 31 ] PF
|
|
[ 32 ] PD
|
|
[ 33 ] P1F
|
|
[ 34 ] *F
|
|
RF
|
|
OF
|
|
SF
|
|
EF
|
|
TF
|
|
TF
|
|
AF
|
|
!F
|
|
CF
|
|
OF
|
|
DF
|
|
ED
|
|
|
|
EZPF
|