02e7483ee7
Hardware support: - Half cycle simulation - Halt CPU simulation (^E on SimH console) New Software included: Carnegie Internal Translator (IT) New features - Support for displaying SOAP symbolic instructions in debug information - CardDeck internal command to split/join/print decks of cards Bugs corrected: - Fixed card format handling. Release 1 can only read TEXT format - Removed superfluous line ends from debug strings. - Better minus zero support - Fixed unneeded prompt Really truncate memory [N] when setting memory size
62 lines
3.2 KiB
Text
62 lines
3.2 KiB
Text
+ 2 0 50 10 1672
|
|
|
|
1+ 2k i1k 1k 1k 50k f c1 to
|
|
2+ ci1 z 1j f c50=1
|
|
+ i1 z 1 f n=1
|
|
3+ i1 z i1 s 1 f n=n+1
|
|
+ g 5 if i1 w 50 f gt 50
|
|
+ g 3 if ci1 u 0j f c(n)=0
|
|
+ i2 z i1 f m=n
|
|
4+ i2 z i2 s i1 f m=m+n
|
|
+ g 3 if i2 w 50 f gt 50
|
|
+ ci2 z 0j f c(m)=0
|
|
+ g 4 f goto 4
|
|
5+ i1 z 1 f n=1
|
|
6+ i1 z i1 s 1 f n=n+1
|
|
+ g 10 if i1 w 50 f gt 50
|
|
+ g 8 if ci1 u 0j f c(n)=0
|
|
7+ t i1 f pch n
|
|
8+ g 6 f goto 6
|
|
10+ h ff stop
|
|
|
|
|
|
prime number generator using the sieve of eratosthenes
|
|
converted to ibm 650 IT compliler
|
|
|
|
IT system syntax IT notation in manual c-like equivalent syntax
|
|
|
|
1+ 2k i1k 1k 1k 50k 1: 2,i1,1,1,50, for(num=1,num<=50;num++)
|
|
2+ ci1 z 1j 2: ci1 <- 1. prime(num) = 1.0
|
|
|
|
+ i1 z 1 i1 <- 1 num=1
|
|
|
|
3+ i1 z i1 s 1 3: i1 <- i1 + 1 loop1: num++
|
|
+ g 5 if i1 w 50 g 5 if i1 >= 50 if num >= 50 goto loope
|
|
|
|
+ g 3 if ci1 u 0j g 3 if ci1 = 0. if prime(num)=0 goto loop1
|
|
+ i2 z i1 i2 <- i1 mult=num
|
|
|
|
4+ i2 z i2 s i1 4: i2 <- i2 + i1 loop2: mult=mult+num
|
|
+ g 3 if i2 w 50 g 3 if i2 >= 50 if mult >= 50 goto loop1
|
|
|
|
+ ci2 z 0j ci2 <- 0. prime(mult) = 0.0
|
|
+ g 4 g 4 goto loop2
|
|
|
|
5+ i1 z 1 5: i1 <- 1 loope: num = 1
|
|
6+ i1 z i1 s 1 i1 <- i1 + 1 prt1: num++
|
|
+ g 10 if i1 w 50 g 10 if i1 >= 50 if num >= 50 goto prt3
|
|
|
|
+ g 8 if ci1 u 0j g 8 if ci1 = 0. if prime(num)=0 goto prt2
|
|
7+ t i1 t i1 punch num
|
|
8+ g 6 g 6 prt2: goto prt1
|
|
10+ h h prt3: end
|
|
|
|
control card is calculated as follows
|
|
|
|
number of i integer variables: 2 (i1 and i2)
|
|
number of y float variables: 0
|
|
number of c float variables: 50 (ci1 ranges from c1 to c50)
|
|
higher statement number: 10
|
|
using run time package p1 (265 words)
|
|
mem avail N = 1999 - (2 + 0 + 50 + 10 + 265) = 1672
|
|
|