DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen GIER Computer

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen GIER Computer

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦f407daee8⟧ Bits:30000574 GSL 474.05 binin (1) 22.07.67, 8-hole paper tape

    Length: 2037 (0x7f5)
    Description: Bits:30000574 GSL 474.05 binin (1) 22.07.67
    Types: 8-hole paper tape
    Notes: Gier Text

GIER Text (HTML)

[22.7.1967                    (1)                             binin]
<-d55+1, i version _
s _
> [stop] [clear]
bk=d1,i=40d13,a15,b15 _
b=79i ppd13-1,hsc52 hhr1,hhr-1 hvc58,garb11
b11:pi_ 0
qqVLQA 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_ 0
a1:ppp-1,psnra2 a4:lyrb1 ac(rb7)DVNT a6:qqrb8,hsc24 qq(rb9)t1 a2:hhs,psra3 bs(rb1)Xt63 a3:hvra10,it-1
b1:can__,hhra1 -1
pmn1.3DXIZA a5:tl-7,lyr1
pi__t256LZA -1
b7:ac_DVXNT 0
hvra6 hvra5XLZ
b9:qq_Xt6 0
a7h:tl3,ppp1
b4:grp___d__XMRC _130_13
hkra9NZB bsp472,hhs [stop] 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 hsnc3IZB
b5:lk___d__,hrs1 171_13
a10:it(rb9),ptrb2 it(rb7),ptrb3 hsnra4,tk-7 hsra4,tk-7 hsra4,xr ca64,hvra11 ca65,hvra12
b2h:tl43,ca__ -1
b3h:ck10,nc__ -1
qqrb10,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),hhra7
b8:tparity; _
b10:ttapesum; _
<i-b,itrack,binin _
>i=b qq1.39 i=39i, d=k-d1
b 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][stop] [sum] [059] i base binin _
s _
[STOP, CLEAR][stop] [clear] > <d39, qq 39, qq 57, qq 52, qqf
tbinin; _
qqf, a4: hs 1 hv a5
tmove; _
qq 50, qqf d.23+d1.39+a1.29-a1.33
tbinin; _
qqf, a5: hs 1 hv a6
tsetsum; _
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+d1
e _
e _
[STOP, SUM][stop] [sum] [041] i binin _
s _
[stop]