|
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: 2037 (0x7f5) Description: Bits:30000574 GSL 474.05 binin (1) 22.07.67 Types: 8-hole paper tape Notes: Gier Text
[22.7.1967 (1) binin]<-d55+1, i version _s _>[ s t o p ] [ c l e a r ] bk=d1,i=40d13,a15,b15 _b=79i ppd13-1,hsc52 hhr1,hhr-1 hvc58,garb11b11:pi_ 0qqVLQA arnd45+d14LTB tl-32,tk25 nc0,hvc57 tln16,grr3b tln16,acr3b grr2b,grr5b grr1b,lyrb1 nc13,hhr-1 a:pmnr2b,hsc3 pp0,lk(rb4)b6h:vk960,pp_ 0a1:ppp-1,psnra2 a4:lyrb1 ac(rb7)DVNT a6:qqrb8,hsc24 qq(rb9)t1 a2:hhs,psra3 bs(rb1)Xt63 a3:hvra10,it-1b1:can__,hhra1 -1pmn1.3DXIZA a5:tl-7,lyr1pi__t256LZA -1b7:ac_DVXNT 0hvra6 hvra5XLZb9:qq_Xt6 0a7h:tl3,ppp1b4:grp___d__XMRC _130_13hkra9NZB bsp472,hhs[ s t o p ] a8:hsra9NZB arnr2b,srr3b hvc61NT pmr2b hsnc3IOB arnrb,acr2b arn(rb4),pp0 sk(rb4),pmrb4 it(rb5),parb4 udrb4 garb5,hhs a9:arnr2b,arrb srr3b hrs1NT arr3bX hsnc3IZBb5:lk___d__,hrs1 171_13a10:it(rb9),ptrb2 it(rb7),ptrb3 hsnra4,tk-7 hsra4,tk-7 hsra4,xr ca64,hvra11 ca65,hvra12b2h:tl43,ca__ -1b3h:ck10,nc__ -1qqrb10,hsc24 hsr1a8,hsc2 arn2b,pm5b pi(rb11),hvc74 a12:tl43,gtrb6 tl-30,arr1b grr4b,grr5b hsr1a8,pmr4b gmr2b,hvra a11:tln23,psr1 hvr1,arnr4b srrb,grr4b hhra1LT arn(rb4),hhra7b8:tparity; _b10:ttapesum; _<i-b,itrack,binin _>i=b qq1.39 i=39i, d=k-d1b k=d42, i=0, a10 _a1=d19-960 a=d <d35, a=1> <d39, i=d2 hs 1 hv a4 <d36,tres; _qqf a.39 ⨯ <d39,tset; _qqf d35.39 qqf a.39[STOP, SUM][ s t o p ] [ s u m ] [ 0 5 9 ] i base binin _s _[STOP, CLEAR][ s t o p ] [ c l e a r ] > <d39, qq 39, qq 57, qq 52, qqftbinin; _qqf, a4: hs 1 hv a5tmove; _qq 50, qqf d.23+d1.39+a1.29-a1.33tbinin; _qqf, a5: hs 1 hv a6tsetsum; _tbinin; _qqf, d2=i a6: hsf 2 ⨯ i=d48 qq d35.2+11.7+d36.5+d.23+d1.39, qq,tbinin; _d48=i qqf > d1=d+d1e _e _[STOP, SUM][ s t o p ] [ s u m ] [ 0 4 1 ] i binin _s _[ s t o p ]