34 lines
474 B
Plaintext
34 lines
474 B
Plaintext
[ Infinite loop
|
|
=============
|
|
|
|
A program for the EDSAC
|
|
|
|
Works with Initial Orders 2 ]
|
|
|
|
T56K
|
|
GK
|
|
|
|
O10@ [ letter shift ]
|
|
|
|
[ 1 ] A17@ [ a += C(17@) ]
|
|
O11@
|
|
O12@
|
|
O13@
|
|
O14@
|
|
O15@
|
|
O16@
|
|
T17@ [ C(17@) = a; a = 0 ]
|
|
E1@ [ if a >= 0 goto 1@ ]
|
|
|
|
[ 10 ] *F
|
|
[ 11 ] SF
|
|
[ 12 ] PF
|
|
[ 13 ] AF
|
|
[ 14 ] MF
|
|
[ 15 ] @F [ carriage return ]
|
|
[ 16 ] &F [ line feed ]
|
|
|
|
[ 17 ] PF
|
|
|
|
EZPF
|