September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Loops-Infinite/EDSAC-order-code/loops-infinite.edsac
+++ b/Task/Loops-Infinite/EDSAC-order-code/loops-infinite.edsac
@ -0,0 +1,33 @@
+[ 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