|
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: 1164 (0x48c)
Description: Bits:30000576 GSL 474.32 exit (2) 7.06.68
Types: 8-hole paper tape
Notes: Gier Text
[7.6.1968 (2) exit]<-d55+1, i version _s _>[ s t o p ] [ c l e a r ] bk=d1,i=40d13,a10 _a=80d13 hva1,vkd16 a2h:ska,it1vkd__,it40 _16lk_,it-1 0bt__,hhra2 23vkd16,lk0a1:vkd__,vkd16 _19lka,vyd18 vk 25d16,ps9 pme,arn8a cme14NC pp9,hha3 pma4,arn9a cm9d12LA pp9,hha3 ps6,pp7 a3h:gt9d12,pss-1pmpd__t-1IRC _12gmpat-1MRC _bss,hha3 pm9aXIRB ga9d12,arn1d13 hvna5LC pa9d12,ca56 arn2d13,is1 pis2,tk30 hvc58LC hvc58NB a5:lk1000,ar9d12 ar7d12LRB gr9aMRC vk(c5),vk(c4) ps(7),arn1 ga6a,arn2 vy(2)t512 gt6a,arn11 pm8IRC tl39,pm6 pp(12),hvc59 a4:qq-1.39+1.19-1.33 a:[ s t o p ] i=39i, d=k-d1<d35, i exit kind _s _>b k=d42, i=0, a10 _a1=d19-960 a=d i=d2 <d39, a4: hs 1 hv a5tmove; _qq 50, qqf d.23+d1.39+a1.29-a1.33texit; _qqf, a5: hs 1 hv a6tsetsum; _texit; _qqf, d2=i a6: hsf 2 ⨯ i=d48 qq 11.7+d36.5+d.23+d1.39, qq,texit; _d48=i qqf > d1=d+d1e _e _[STOP, SUM][ s t o p ] [ s u m ] [ 0 4 0 ] i exit _s _[ s t o p ]