|
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: 7719 (0x1e27)
Description: Bits:30000753 GSL 474.35 punch head compud (6) 1.07.68
Types: 8-hole paper tape
Notes: Gier Text
;slip< [Punch head kompud. PM 1.7.68 version 6 SET TAB| | |clear code[ s t o p ] [ c l e a r ] ]b b16,d,e88 ; _d=1 ;i[reefine _ _;sum code[ s t o p ] [ s u m ] [ 0 6 2 ] s;clear coded=d+d+d+d+d, d=d+d+d+d, d=d+d+d+d, d=d+d+d+d, e88=d-320; d=antal kanaler[ s t o p ] [ c l e a r ] ] ; _b a7 ; _i=10, vy 32 ,pp ;punch bootsy 14 ,sy 17 ;_ <a2: pmn b X t-1 ;næste ord bs (a2) tb16 ; cl 1 ; a1: cl 36 ,tk -4 ;næste char i R0-9 bs pb1 tb2 ; qq V ; bs pb3 tb4 ; ar 64 D ;sæt ordmærke ga a ,cl -6 ; a: sy ,bs pb5 ;hul char pp pb6 ,hh a1 ;tæl char bs (a2) tb8 ; pp pb10 ,hv a2 ;tæl ord a3: qq 6 ,pt -1 ;punch kompind a4: pmn b8 IRC t-1 ;næste ord ar 256 D LRA ;A-mærke ar 128 D LRB ;B-mærke xr ,tl -10 ; ar 128 D ; tl -7 X IZA ; gt r ,sy ; hv r-2 X NZA ; bs (a4) tb11 ; hv (a3) VD t6 ; it (a3) ,pa -1 ; arn -1 ,gt a5 ;checksum og antal a5: tk -7 ,sy ; a6: gt a6 ,sy ; tk 3 ,ga a7 ; a7: sy ; bt 100 t-1 ;mellemslag sy ,hv r-1 ; vy 17 ,ly r3 ;vent nc 51 ,hsf 2 ; vy 32 ,ly r1 ;stop ,kopier sy ,hh r-1 ;e ;hullesekvens slut _b a23, c6 ;kompind som hulles _b11: lyn ra9 ,tk -7 ;læs checksum og antal for kompind ly ra9 ,tk -7 ; ly ra9 ,tk 4 ; gs ra21 ,ca (sb15) ; tk 10 ,nc (sb12) ; hv ra21 ;sumfejl i kompind ly ra9 ;skip til < nc 17 ,hv r-1 ; e: pa a23 t51 ; ly ra9 ; nc 62 ,hv ra20 ;hvis ikke 62 hop til læsning [[ s t o p ] head kompud [2]b a3 ;ellers dan gammel kanal 0 læseprogram _[-2] arn ra IRC t1 ; gr 33 MRA t1 ; hv r-2 NRB ; arn ra1 ,pi 2 ; gr 28 MA ; arn ra3 ,gr 9 ; pmn ra2 ; a: hh 35 X ; [34] pmn 1.3 XD IZA ;resten af blokken er konstanter [35] tl -7 ,ly r1 ; a3: ; [36] pi LZA t508 ; [37] xr X IZB ; [38] hv 35 LZB ; [39] grf 41 MRC t-1 ; a1: arn 999 ,hv 995 ; a2: qq 62.16+17.23+14.37+1.38 ;de tre allerede læste karakterere ; _e38=200,e39=240,a4=280 ;definer kanal buffere a20:[ t a b ] pa ra19[ t a b ] ,pa ra13[ t a b ] ;sum og antal=0 a9:[ t a b ] pi[ t a b ] ,hs ra[ t a b ] ;læs etikette a8:[ t a b ] pm ra5[ t a b ] ,ga ra3[ t a b ] ga rc6[ t a b ] ,tk 10[ t a b ] ga ra2[ t a b ] ,tk 10[ t a b ] gr a4[ t a b ] X MRA[ t a b ] hv ra6[ t a b ] LRB[ t a b ] ;hop ikke overspringelse a23:[ t a b ] bt 51[ t a b ] V NQB t-1[ t a b ] ;hvis startetikette tæl melleslag c6:[ t a b ] pp p[ac][ t a b ] ,hv ra18[ t a b ] ;ellers tæl i p og hop[ t a b ] ly ra9[ t a b ] ,hv r-2 e44:[ t a b ] nt 38[ t a b ] ,qq (ra2) a18h:[ t a b ] pp (ra3)[ t a b ] ,it -2[ t a b ] pi 1[ t a b ] ,bs p-39[ t a b ] pp p-40[ t a b ] ,it 1[ t a b ] can (ra2)[ t a b ] ,hv ra10[ t a b ] ;hop hvis samm kanal[ t a b ] it (re44)[ t a b ] ,vk (ra2) c4:[ t a b ] lk (c3)[ t a b ] ,arn ra2[ t a b ] hs rc1[ t a b ] ,hv ra12 c:[ t a b ] gs r4c[ t a b ] ,ps (re44) [1c][ t a b ] bs s-831e88[ t a b ] t-832e88[ t a b ] vk s1[ t a b ] ,lk (rc3)[ t a b ] pt r1c[ t a b ] t511 [4c][ t a b ] ps[ t a b ] ,hh s a5:[ t a b ] hsf 2 a7:[ t a b ] hs ra[ t a b ] NB[ t a b ] ;læs et ord a14:[ t a b ] gr se39[ t a b ] MRC[ t a b ] ;gem et ord[ t a b ] hk rc[ t a b ] ,pp p1[ t a b ] bs p472[ t a b ] ,hv rc2[ t a b ] ;hop hvis ikke ny kanal[ t a b ] hs rc[ t a b ] ,pp a6h:[ t a b ] hs rc1[ t a b ] ,it -1 a2:[ t a b ] btf [ak][ t a b ] ,it 40[ t a b ] ;tæl kanaler c2h:[ t a b ] qq (ra3)[ t a b ] ,ps p a3:[ t a b ] bt [ac][ t a b ] IRCt-1[ t a b ] ;tæl celler a12h:[ t a b ] hv ra7[ t a b ] ,ga re44 a10:[ t a b ] hv ra20[ t a b ] NQB[ t a b ] arn a4[ t a b ] IRA[ t a b ] hh ra8[ t a b ] NZ[ t a b ] hv ra9[ t a b ] NRA [[ s t o p ] head kompud [3][ t a b ] lyn ra16[ t a b ] ,tk -7[ t a b ] ;læs sum og antal[ t a b ] ly ra16[ t a b ] ,tk-7[ t a b ] ly ra16[ t a b ] ,tk4[ t a b ] nc (ra19)[ t a b ] ,hv ra21[ t a b ] tk 10[ t a b ] ,ca (ra13)[ t a b ] hs rc1[ t a b ] ,hv ra17 a21:[ t a b ] ps[ t a b ] ,vy 17[ t a b ] ;fejlreaktion[ t a b ] sy 29[ t a b ] ,sy 64[ t a b ] sy 18[s][ t a b ] ,sy 20[u][ t a b ] sy 36[m][ t a b ] ,arn r3[ t a b ] gr sb13[ t a b ] ,ly r[ t a b ] vy 32[ t a b ] ,hvn sb13[ t a b ] gm s3[ t a b ] M t-1 c1:[ t a b ] pt r1c[ t a b ] IRB t-832e88[ t a b ] ;start skrivning paa kanal[ t a b ] it (rc3)[ t a b ] ,pa ra14 c3:[ t a b ] nt e38[ t a b ] ,qq e38+e39[ t a b ] vk (re44)[ t a b ] ,it 1[ t a b ] is (re44)[ t a b ] ,it s+511[ t a b ] bs 832e88[ t a b ] ,sk (rc3)[ t a b ] hh s a:[ t a b ] pmn 1.3[ t a b ] XD IZA[ t a b ] ;læs et ord[ t a b ] tl -7[ t a b ] ,ly ra16 a16:[ t a b ] pi[ t a b ] LZAt-516 a13:[ t a b ] ac[ t a b ] DX[ t a b ] hv r1a[ t a b ] XLZ a19:[ t a b ] xr[ t a b ] t6[ t a b ] tl 3[ t a b ] ,hr s1 a17:e _b a12 ;læs udhopsadresse mm _a: lyn D ; nc 14 ,hv ra ;skip til _lyn ra ,ca 35 ;l _vy 16 ,hv ra ;ca 17 ,hv e ;_ <ca 20 ,hv ra8 ;u _ca 53 ,hv ra9 ;e _vy 17 ,sy 64 ;s _sy 58 ,hv ra ;a8: hsn ra10 X ;u læs adresse _hv ra ; a10: it ra6 ,pt ra4 ;adresselæsning a1: lyn ra2 ,ga ra2 ; ca ,hv ra1 ;mellemslag ca 32 ,sc ra12 ;- ca 16 ,hvn ra7 ;nul a4: ca 64 ,hv ;vr a2: bs t9 ; hv ra1 ;ikke ciffer a7: it ra3 ,pt ra4 ;ciffer mt ra12 ,ml ra5 ; tl 39 X NZ ; hv ra1 ; a3: xr ,ga ra11 ;gem adresse a6: hv s1 ; a5: 10 ; a12: qq ; [[ s t o p ] head kompud [4]b a2 ; _a9: hsn ra10 X ;e læs adresse _b14: vk 960 ,vk 319e88;hent ferritlagerbillede a: lk 1000 ,it 1 ; vk 293e88 ,it 40 ; lk -40 ,it -1 ; bt 23 ,hh ra ; a1: arn r a2 t1 IRC ;sæt celle 6 til 9 gr 5 t1 MRC ; bt 3 t-1 ; hv ra1 ; a2: vk 318e88 ,hv 6 ; lk 960 ,vk ; qq ; vy 17 ; a11: qq ,hv (r) ;e ; _e ; _b a2 ; _b8: pa ra t1.3 ; a: pmn 1.3 XD IZA ; a2: tl -7 ; ly ra1 ; a1: pi LZA t-516 ; ac XD ; hv ra2 X LZ ; xr t6 ; tl 3 ; gr 960b8-b14MRC t-1 ; bt b8-1b11t-1 ; hv ra ; b16: hs 960b11-b14 ; b7: tl 10 ; gr s5b7-b8M t-1 ; hv s ; gm s4 M t-1 ; hv s ; b: b12=2a1-b7, b13=3b8-b7, b15=4a1-b7 ; b6=b-b8, b9=b6+b6+b6+b6, b2=511b7-b, b1=b2-b9 ; b9=b9+b6+b6, b4=511b8-b7, b5=-512b9, b3=b5-b6, b10=-b9+1;e ; _e10 ;SUM CODE[ s t o p ] [ s u m ] [ 0 5 7 ] _[ s t o p ]