|
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: 10971 (0x2adb)
Description: Bits:30001246 SLIP/IMP program "Navneliste"
Types: 8-hole paper tape
Notes: Gier Text
|NAVNELISTE⨯b a|amax|, e|emax| [ |_ ( ) ( )a24=259,a25=100s; redefiner a24=første navnekanal og a25= antal navnekanaler _a26=a24+1|OUTTEXT⨯ ( |Hvis adresseliste strax, da hovedstrimmel i læser, tast a||vent| )( )ca49,hva21|OUTTEXT⨯ ( |Læg rettelsesstrimmel i læseren, tast space||vent| )( )|INDLEDNING| ( )pa|NTAL| t|F0| ( ) ( )pa|TTAL| t|F1| ( ) ( )a1:|NAVNIND||TADR->LINK| ( )( )|TILTROMLE⨯|NADR|⨯|NTAL||gma23 ( |( )|( ))pae20|TEXTIND⨯|F1|⨯|+|||TEST⨯titel⨯48| ( |( )|( ))( | | )|TEXTIND⨯|F2|⨯|CR|||TEST⨯ansættelse⨯48| ( |( )|( ))( | | )|TITEL:UDGAAR⨯a6⨯|F1|||TEXTIND⨯|F3|⨯|CR|||TEST⨯adresse⨯78| ( | |( ))( |( )|( ))( | | )bs(e20),hva1a6:pma23,gm|NADR| ( )|TILTROMLE⨯|TADR|⨯|TTAL|| gm|TADR| ( |( )|( )) ( )a2:|NAVN:SLUT⨯a1| ( | )a10:|FYLDOP| ( )a11:|SÆT KANAL| ( )|SORTERING| ( )|OUTTEXT⨯ ( |Læg hovedstrimmel i læser, space||vent| )( )|RESET| ( )paa4pa|NTAL|t|G0| ( ) ( )pa|TTAL|t|G1| ( ) ( )par1t70 btt-1 sy,hvr-1 sy64a5:|FRATROMLE⨯|NADR|⨯|NTAL||gm|NADR| ( |( )|( )) ( )|FRATROMLE⨯|LINK2|⨯|TTAL|| ( |( )|( ))a3:|NAVNIND| ( )|TEXTIND⨯|F1|⨯|+|||TEXTIND⨯|F2|⨯|CR|||TEXTIND⨯|F3|⨯|CR|| ( |( )|( ))( |( )|( ))( |( )|( ))a4:|NAVN:TROMLE⨯|MIN|⨯|LIG|⨯|STØR|| ( |( )|( )|( ))|MIN|:|NAVNUD⨯|F0|| ( ) ( || )) (qq(a4)t1 sy58, sy27|NAVNUD⨯|F01|| ( |( ))sy32|TEXTUD⨯|F1|t1⨯|+|||TEXTUD⨯|F2|⨯|CR|||TEXTUD⨯|F3|⨯|CR||hva3 ( |( ) |( ))( |( )|( ))( |( )|( ))|STØR|:|NAVNUD⨯|G0|| ( ) ( || )) (qq(a4)t1 sy58, sy27|NAVNUD⨯|G01|| ( |( ))sy32|TEXTUD⨯|G1|t1⨯|+|||TEXTUD⨯|G2|⨯|CR|||TEXTUD⨯|G3|⨯|CR|| ( |( ) |( ))( |( )|( ))( |( )|( ))|FRATROMLE⨯|NADR|⨯|NTAL||gm|NADR| ( |( )|( )) ( )|FRATROMLE⨯|LINK2|⨯|TTAL|| hva4 ( |( )|( ))|LIG|:|TITEL:UDGAAR⨯a5⨯|G1|| ( ) ( | |( ))|NAVNUD⨯|G0|| ( |( ))qq(a4)t1 sy58, sy27|NAVNUD⨯|G01|| ( |( ))sy32[ s t o p ] |TEXTUD⨯|G1|t1⨯|+|||TEXTUD⨯|G2|⨯|CR|||TEXTUD⨯|G3|⨯|CR|| ( |( ) |( ))( |( )|( ))( |( )|( ))|NAVN:SLUT⨯a5| ( | )|MIN⨯a7||LIG⨯a8||STØR⨯a9||F0⨯898||F01⨯902||G01⨯842| [ | ][ | ][ | ][ | ][ | ][ | ]|OUTTEXT⨯ ( |Hvis adresseliste, da ny hovedstrimmel i læser, space||vent| )( )a21: |ADRESSER| ( )|SHD⨯ [ |hs_1_ - -qq_2_ - -qq_3_ - -| ]e8:|INCHARSEKV| ( )|INCHAR⨯hse8| [ | ]|NADR|:qq|NADR⨯e10| ( ) [ | ]|NTAL|:qq|F0|,qq10|NTAL⨯e16| ( ) ( ) [ | ]|TADR|:qq|TADR⨯e12| ( ) [ | ]|TTAL|:qq|F1|,qq29|TTAL⨯e13||LINK⨯907||LINK2⨯847| ( ) ( ) [ | ][ | ][ | ]|SLUT|:qq43|SLUT⨯e14| ( ) [ | ]|UDGAAR|:qq 96.13+64.20+116.27+84.34+64.41_ ( )|UDGAAR⨯e17|_ [ | ]|F1⨯908||G0⨯838|_ [ | ][ | ]|F2⨯916||G1⨯848|_ [ | ][ | ]|F3⨯924||G2⨯856||G3⨯864||+⨯96||CR⨯63| [ | ][ | ][ | ][ | ][ | ]e0:|TEXTINDSEKV||TEXTIND⨯|SHD⨯e0⨯_1_⨯_2_|| ( )[ |( | |- -|- -)]e1:|TEXTUDSEKV||TEXTUD⨯|SHD⨯e1⨯_1_⨯_2_|| ( )[ |( | |- -|- -)]e3:|TROMLE⨯4⨯980⨯s⨯p⨯sk980||TILTROMLE⨯|SHD⨯e3⨯_1_⨯_2_|| ( | | | | | )[ |( | |- -|- -)]e4:|TROMLE⨯8⨯940⨯p⨯s⨯qq||FRATROMLE⨯|SHD⨯e4⨯_1_⨯_2_|| ( | | | | | )[ |( | |- -|- -)]e5:|NAVNINDSEKV⨯|TEGN⨯|INCHAR|⨯|FEJL|⨯|TABELI|⨯e15|| ( |( |( )|( )|( )| ))e9:|SLET⨯8⨯|F0|| ( | |( ))e6:|NAVNUDSEKV⨯|TOLK⨯|TABELII⨯62/62/62/62|⨯e15|| ( |( |( | )| ))|NAVNUD⨯hse6 [ |qq_1_| - -]e7:|SLIPTEXT| ( )|TADR->LINK⨯pm|TADR|,gm|LINK|| [ | ( ) ( )]|TITEL:UDGAAR⨯arn_2_,sr|UDGAAR| [ | - - ( )hv_1_LZ| - - ]|NAVN:SLUT⨯arn|F0|,sr|SLUT| [ | ( ) ( )hv_1_NZ| - - ]e15:|TABELSEKV⨯|FEJL|| ( |( ))e19: b a3 _arne0,srs1 hr(s2)LZ hr(s2)LT vy 1.5,gaa3 e20: bs,hvra2 sy64|NAVNUD⨯|F0|| ( |( ))sy58,sy27|NAVNUD⨯|F01|| ( |( ))a3: pmD a2:sy64,sy58 dln 10D tk30,gar1 syX gar2 ca, it16 sy|OUTTEXT⨯ symboler for meget i | ( | )hse7[ s t o p ] qqs3, vy 1.4 pae20t1 hr(s2)e _a23:qq|TEST⨯be [ |_hse19pa_2_D - -qqret_1_; _- -e=ie| _]|SLET⨯par3t_1_ |antal| [ | - - C Epar3 t_2_ |adresse| - - C Eqq(r2) t-1 btt-1 grn t1 MV grn(r-1) t1 MBV hvr -3 hrs1|_ ]|NAVNIND⨯hse9 [ |hse5qq|F0| ( )qq0 hse5qq|F01| ( )qq0|_ ]|OUTTEXT⨯ be [ | _vy 1.5+1.9 hse7 qqr1,hvret_1_; _- -e=ie| _]|vent⨯ [ |ly-1,vy1.4| ]|NAVN:TROMLE⨯_ [ |bst29 sy75,par-1 par2t 897 par2t 837 arnt1 srt1 hvr3 NZ hvr-3 NBhv _2_ - -hv _1_ LT - -hv _3_| - -]|RESET⨯ [ |grn|NADR|, grn|TADR| ( ) ( )pa|NADR| ta24 ( )pa|TADR| ta24+a25 ( )|INCHAR| ( )nc63,hvr-1| ]|TEXTINDSEKV⨯ [ |c: paD gin rc9X it(s1),parc 5 qq(rc5) t -1 c7:it rc 10,ptrc4 panrc6t5[ s t o p ] b c 10 _c2:|INCHAR| ( )c4:garc1,hv c10:itrc3,ptrc4 c1:pi c3:ca(s2),hvrc8 qq(c)t1 cl -7,it -1 c6:bt5,hvrc2 cl10 c5:gr MRC t1 hvnrc7 X c8:cl -7,it -1 bt(rc6),hvrc8 cl10 gr(rc5)MRC t1 c9:pi,hrs3e| _]|TEXTUDSEKV⨯ b c8 [ | _arns1, garc3 ck11, nc0 itrc5, ptrc1 girc7,pi qq(rc3)t -1 c3:arnIRCt1 ck0,tl-39 ar512 DLRA ar256 DLRB parc8t5 cl-5,hhrc1 c1:cl -7,hv;<- fortsæt c2:tk -3,ca(s2) pi4 t-5 mbr1,garc6 ca63,it1 c6:sy,it -1 c8:bt5 hvrc1NQB hvrc3 NQB c7:pi,hrs3 c4:hvrc2 NO itrc5,ptrc1 sy60,hvrc2 c5:hvrc2LO itrc4,ptrc1 sy 58,hvrc2e| _]|TROMLE⨯b a10 [ |_arn(s1),gara; hent kanal nr og lokal adr. tk10,gara7arn(s2),gara_1_; hent ferritadr og antal. - -gtra2,gtra9 gpra5,gsra6 a7:pp,arnra[ s t o p ] ps,gira10 a1:ca,hvra4 a:vk it(ra),para1lk_2_,vk(ra) - -a4:pm_3__2_IRC - -- -a8:gm_4__2_MRC - -- -ppp1,pss1 itp,bs40 hvra2 qq(ra)t1pp0,_5_ - -a9:its,bshvra, _5_ - -a6:ps,itp ptra3,it(ra) para3,pmra3 a10:pi a5:pp,hrs3 a2:its,bs hvra4 hhr1a9 a3:qq;næste fri tromleadressee| _]|TABELI⨯ [ |1/62/62/62 62/62/62/62 62/62/62/62 62/42/62/62 62/62/26/27 29/31/32/33 34/37/62/ 62/62/62/62 43/16/17/18 19/20/21/23 24/25/62/40 62/62/62/62 38/3/5/6 7/9/11/12 13/14/62/2 62/62/62/62 1/62/62/62 62/62/62/62 62/62/62/62 62/42/62/62 62/62/26/27 29/31/32/33 34/37/62/62 62/62/62/62 0/16/17/18 19/20/21/23 24/25/62/40 62/62/62/62 38/3/5/6 7/9/11/12 13/14/62/6262/62/62/62| ][ s t o p ] |TABELII⨯ [ |62/0/59/49 62/50/51/52 62/53/62/54 55/56/57/62 33/34/35/36 37/38/62/39 40/41/18/19 62/20/62/21 22/23/24/62 62/25/48/62 43/62/13/32_1_ - -_1_ - -_1_| - -]|TEGN⨯ba8 [ |__1_ - -hvra4a8: _3_ - -a4: hs_4_ - -qqa8 a7: qq62e| _]|TOLK⨯ba8 [ |_nc2, hvr3 sy58, sy59 sy60, hvra2 nc43, hvra8 sy58, sy32 sy60, hvra2a1: _1_ - -a8: hs_2_ - -qqa1 qq62 gar1 sy a2=ie| _]|NAVNINDSEKV⨯ba3|tegn| [ |_ C Eit(s1),para3 a1:para2 t6a:_1_ - -ca(s2),hrs3 a2:tk6 t-6 a3:ac ,it-30 bs(ra2),hvra qq(ra3) t1 hvra1e| _]|NAVNUDSEKV⨯ b a3|tolk| [ | _ C Esy60 it(s1),para2 a3:para1 t-6 a2:arn a1:tk-6 t6 mb63 D ca0,hrs2_1_ - -[ s t o p ] it(a1),bs30 hvra2 qq(ra2) t1 hvra3e| _]|INCHARSEKV⨯ b c4 [ | _c1:qq c2:ly rc1,ca58 parc,hvrc2 ca63,hvrc2 ca127,hvrc2 ca11,hvrc2 ca75,hvrc2 nc12,hvrc4 gk D vy1,lyrc1 vy(r-2),lyrc1 nc64,hhr-1 hvrc2 c4:nc60,hhrc3 parct64 c3:hvrc2,ca64 sr1 D V c:ar D garc1,hrs1e| _]|TABELSEKV⨯|fejlreaktion|_ [ |C Eba3 _gira1,tk-2 gtra2,ars1 a2:gara3,pi a3:arn ck20LOA ck10LOB mb-1 D ca(s2)_1_ - -a1:pi,hrs3e| _]|SLIPTEXT⨯_ [ |pp(s), ars pp(s1) NA pmnp X par8, cl36 ar32 DLA ar16 DLB ppp1, ca160 sy58, hrs1 ck-4, gar2 ca63, it1 sy,it950 bt, hvr-9 cl-6, hhr-6| ]|INDLEDNING⨯ [ ||RESET||_ ( )]|førstekanal⨯a24|_ [ | ]|andenkanal⨯a26|_ [ | ]|amax⨯26||emax⨯20|_ [ | ][ | ][ s t o p ] |FEJL⨯hsf2|_ [ | ]|SIDSTEKANAL⨯a20|_ [ | ]|FYLDOP⨯ [ |ptr6 t-4|TILTROMLE⨯|NADR|⨯|NTAL|| ( |( )|( ))gm|NADR|, cl50 ( )nc0, hvr-4nt1, hvr-4| ]|SÆT KANAL⨯ [ |arn|NADR|, ga|SIDSTEKANAL| ( ) ( )|_ ]|SORTERING⨯ [ |b a2 _|SIDSTEKANAL|: a2: vk t-1 |her indsættes sidste kanal| ( ) C Elk 980 it(r-2),par1 a1:vk t-1 lk940,vk(r-1)|sorter⨯1010⨯940⨯10| ( | | | )sk 940bs(ra1) t |førstekanal| ( )hvra1 vk(ra2),sk980bs(ra2)t |andenkanal| ( )hvra2e _|sorter⨯b a11 |første celle af sidste blok, første celle, bloklængde| [ |_ C Eacn_1_MA |første celle af sidste blok| - - C Ea11:paD t_2_ |første celle| - - C Ea8:it(ra11),para1 it(ra1),para2 a1:arna2:srIQA t_3_ |bloklængde| - - C EhvraLT hvra3LZ a7:it(ra2),para1 hvra a3:it(ra1),para4 it(ra2),para5 a4:arnIPB t1 a5:srt1 hvraLT hvra6LZ hvra7 a6:hvra4NPB a:hvra1NQA it(ra11),para9 it(ra1),para10 qq(ra9) t-1 qq(ra10) t-1 a9:pmIQB t1 a10:arn t1 gm(ra10),gr(ra9) hvra9 NQB pm(ra9) t1 arn(ra10) t1 gm(ra10),gr(ra9)pm(ra11) t_3_ - -hvra8 NA[ s t o p ] e|| _]]|ADRESSER⨯b e6 [ |_|OUTSYM⨯70⨯0| ( | | )sy64|INCHAR| ( )nc63,hvr-1e1:|TEXTIND⨯|efternavn|⨯|,|||efternavn⨯898||,⨯27| ( |( )|( ))[ | ][ | ]|TEXTIND⨯|fornavn|⨯|+|||fornavn⨯902||+⨯96| ( |( )|( ))[ | ][ | ]|TEXTIND⨯|titel|⨯|+|||titel⨯908| ( |( )|( ))[ | ]|TEXTIND⨯|sted|⨯|CR|||sted⨯916||CR⨯63| ( |( )|( ))[ | ][ | ]|spaces| ( )|TEXTIND⨯|adresse|⨯|CR|, sy64||adresse⨯924| ( |( )|( ) )[ | ]|TEXTUD⨯|titel|⨯|+|, sy64 ( |( )|( )qq63| )|majmin⨯|fornavn|| ( |( ))|majmin⨯|efternavn|| ( |( ))sy64|TEXTUD⨯|adresse|⨯|CR| ( |( )|( )qq27| )sy65sy|stop|, hve1 ( )|TEXTINDSEKV⨯|INCHAR|||TEXTINDLAB⨯e2| ( |( ))[ | ]|TEXTUDSEKV⨯ca(s2), hrs2 ( |ca(s3)arn63 D||TEXTUDLAB⨯e3| )[ | ]|spaces⨯pae4t3 [ ||INCHAR| ( )e4: btt-1hvr-2|_ ]|majminsekv||majminlab⨯e5| ( )[ | ]|stop⨯11| [ | ]|TEXTINDSEKV⨯ b a7 [ | _|TEXTINDLAB|:gira1, it (s1) ( )para2, it-1 a7:qq(ra2), it3 para6, it35 para3, pi 512a4:_1_|INCHAR| - -C Egara5, ca(s2) pi 256 t -257 a5:pi t508 LOA cl -7, it-7 a3:bt35 hvra4 NOB nt(ra3) a6:cl3 a2:gr MRC t1 hhra7 NOB a1:pi, hrs2e|_ _]|TEXTIND⨯hs|TEXTINDLAB| [ | ( )qq_1_ - -qq_2_| - -]|TEXTUDSEKV⨯ b a6 [ | _|TEXTUDLAB|:itra6, para4 ( )it(s1), para a:pmn X qq(r-1) t1 para2, cl35[ s t o p ] ar16 LAD ar8 LBD a4:hv, tk-3_1_| normaludhop:ca(s2), hrs2 | - -C Embr1, gara3 ca63,it1 a3:sy, it-86 a2:bt, hvra cl-7, hv(ra4) a6:hhra4 NO itra5, para4 sy60, hhra4 a5:hhra4 LO itra6, para4 sy58, hhra4e|_ _]|TEXTUD⨯hs|TEXTUDLAB| [ | ( )qq_1_ - -qq_2_| - -]|majminsekv⨯ b c11 [ | _|majminlab|:girc1 ( )hsrc8 it(s1),parc2 qq(rc2) t-1 c2:arnIRC t1 ck0,tl-39 ar512 DLRA ar256 DLRB parc4 t5 cl-5,hhr1 c7:cl-7,tk-3 nc27,ca96 c1:pi,hrs2 c3: nc32, hvrc5 sy32 hsrc8 hvrc4 c5:ca,hvr2 nc64,hvrc9 hsrc8NPA sy,hvrc4 c9:nc59,hvrc10 sy59 hsrc8NPA hvrc4 c11:c10:mbr1,garc6 ca63,it1 c6:sy sy58 LPA pi LPA t-33 c4:bt5 t-1 hvrc7 hvrc2 c8:pi32t-33 sy60,hrs1e| _]|majmin⨯hs|majminlab| [ | ( )qq_1_|_ - -]|OUTSYM⨯par2t_1_ [ | - -sy_2_,it-1 - -[ s t o p ] bt,hvr-1|_ ]e| _]e10| _ ][ e n d ]