|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen GIER Computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen GIER Computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 723 (0x2d3)
Description: Bits:30000598 Euklids algoritme
Types: 8-hole paper tape
Notes: Gier Text
[ t a b ] [EUKLIDS ALGORITME]b[ t a b ] i=10,a10,b10,c10,d10,e10 _[ t a b ] arn a[ t a b ] ,gr a1[ t a b ] ;a1=a[ t a b ] arn b[ t a b ] ,gr b1[ t a b ] ;b1=b e1:[ t a b ] arn a[ t a b ] ,sr b[ t a b ] ;R=a-b[ t a b ] hv e3[ t a b ] LZ[ t a b ] ;if a=b goto e3[ t a b ] hv e2[ t a b ] NT[ t a b ] ;if a>b goto e2[ t a b ] [b > a][ t a b ] arn b[ t a b ] ,sr a[ t a b ] ;R=b-a[ t a b ] gr b[ t a b ] ,hv e1[ t a b ] ;b=b-a, goto e1[ t a b ] [a > b] e2:[ t a b ] gr a[ t a b ] ,hv e1[ t a b ] ;a=a-b, goto e1[ t a b ] [ a = b] e3:[ t a b ] vy 16[ t a b ] ,sy 64[ t a b ] ;vælg skrivemaskine, skriv cr[ t a b ] sy 49[ t a b ] ,sy 60[ t a b ] ;skriv a=[ t a b ] sy 4[ t a b ] ,sy 58[ t a b ] arn a1[ t a b ] ,hs 200[ t a b ] ;skriv a1[ t a b ] qq 0[ t a b ] sy 27[ t a b ] ,sy 50[ t a b ] ;skriv b=[ t a b ] sy 60[ t a b ] ,sy 4[ t a b ] sy 58[ t a b ] ,arn b1[ t a b ] hs 200[ t a b ] [ t a b ] ;skriv b1[ t a b ] qq 0[ t a b ] sy 27[ t a b ] ,sy 52[ t a b ] ;skriv d=[ t a b ] sy 60[ t a b ] ,sy 4[ t a b ] sy 58[ t a b ] ,arn a[ t a b ] hs 200[ t a b ] [ t a b ] ;skriv a[ t a b ] qq 0[ t a b ] hsf 2[ t a b ] [arbejdsceller][ t a b ] i=100 a:[ t a b ] 12 b:[ t a b ] 9 a1:[ t a b ] 0 b1:[ t a b ] 0e _s _[ s t o p ]