|
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: 1335 (0x537) Description: Bits:30000575 GSL 474.44 start (3) 21.09.70 Types: 8-hole paper tape Notes: Gier Text
[21.9.1970 (3) start]<-d55+1, i version _s _>[ s t o p ] [ c l e a r ] bk=d1,i=40d13,a5,b5 _b=80d13 <d35-2,us(-31)t-96> vkd19,vkd16 lkb,vkd16 pa8b,skb vk25d16,lkb vk25d16,grn23b skb ps40,pmb3 a:gms39bMB pss-1,bss hva a2h:ppd13-1,hsc52 hva1,hvc58 hv-9,tl-7 nc0,hvc58 tl5,ca1.5+d32.7 arnd14+d45,tl-2 tl-30,tln16 hha2LZ grb2,tln-23 hsc3 a3:sk40b,arnb2 srb1,grb2 hha2LZ psa3-1,hvc16 a1:arn2c18DIZA hsc2 grnd14+1d51,arnp1 gad14+1d51,sr(r) grd14+d51,it4.2 pad14+d51,hsc8 skd14,hha2b1:m1c _b2:qq b3:hsf2 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 4 4 ] i base start _s _[STOP, CLEAR][ s t o p ] [ c l e a r ] > <d39, qq 39, qq 57, qq 52, qqftstart; _qqf, a4: hs 1 hv a5tmove; _qq 50, qqf d.23+d1.39+a1.29-a1.33tstart; _qqf, a5: hs 1 hv a6tsetsum; _tstart; _qqf, d2=i a6: hsf 2 ⨯ i=d48 qq d35.2+11.7+d36.5+d.23+d1.39, qq,tstart; _d48=i qqf > d1=d+d1e _e _[STOP, SUM][ s t o p ] [ s u m ] [ 0 4 6 ] i start _s _[ s t o p ]