|
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 - metrics - download
Length: 7283 (0x1c73)
Description: Bits:30000623 Lin. Lign. II ls TLS-2
Types: 8-hole paper tape
Notes: Gier Text, Has10
[ 0] arn s ,pa r14 [14] ; 0 : læs adressetal
[ 1] pa r13 [14] LB t5 ; 5 : læs flydende tal
[ 2] pt r82 [84] t2 ; sæt korrekt udhop
[ 3] it r84 [87] ,pa r68 [71] ; sæt en absolutadresse
[ 4] gi r80 [84] ,gs r9 [13] ; gem registre
[ 5] gp r78 [83] ;
[ 6] pi ,pa r16 [22] ; læs et tal, sæt før .
[ 7] grn r83 [90] ,pa r67 [74] ; R := arbcelle := 0 ,
; sæt to-potens opsamling
[ 8] pm 256 XD ; R := 0.5 , M := 0
[ 9] gr r80 [89] ,hs r26 [35] ; exponentfaktor := 0.5 ,
; hop til læsning af et tegn
[ 10] bs p-15 ,hh r-1 [9] ; overflødig terminator
[ 11] pa r64 [75] ,hs r50 [61] ; sæt ti-potens, hop til
; behandling af + - 10
[ 12] bs p500 t-512 ; p = 12 ( 10 eller . )
[ 13] xr ,hh r16 [29] ; s , hop hvis ikke 10 eller .
[ 14] bs ,hv r2 [16] ; hop hvis flydende tal
[ 15] hs r37 [52] ; fejl i adressetal
[ 16] bs (r18)[34] ,hv r4 [20] ; hop hvis 10
[ 17] pa r5 [22] t-1 ; . er naaet, sæt -1
[ 18] hs r45 [63] ; læs decimaldel
[ 19] hs r33 [52] NZB ; fejl: ingen cifre efter .
[ 20] pm r65 [85] NZB ; 10 uden forudgaaende cifre
[ 21] xr ,mt r [21] ; fortegn + eller - 486
[ 22] xr ,ca 27 ; 0 før . og -1 efter .
[ 23] bs (r11)[34] ,hh r30 [53] ; hop hvis 10
[ 24] mln r65 [89] ,nl r1 [25] ; gang heltal med exponentfaktor
[ 25] it ,pp (r49)[74] ; p := samlet to-potens
[ 26] nkf p40 ,grf r64 [90] ; omdan til flydende og gem
[ 27] gr r63 [90] LZ ; exponentdel := 0 i flyd. 0
[ 28] hh r50 [78] LZB ; slut hvis cifre læst
[ 29] hs r23 [52] ,mt r-8 [21] ; fejl: ingen cifre læst,
; fortegn behandles
[ 30] gr r60 [90] X ; gem adressetal
[ 31] bs (r-17)[14] ,hv r-7 [24] ; hop hvis flydende tal
[ 32] bs (r42)[74] ,hs r20 [52] ; fejl: adressetal overskredet
; interval og to-potens opsamlet
[ 33] hv r-5 [28] ,it -486 ; - 486 hvis LC
[ 34] pa -486 D t486 ; + 486 hvis UC
[ 35] lyn r13 [48] ,ca 21 ; læs tegn,
[ 36] hsf 2 ; v = V : vent i HJÆLP
_
[ 37] pp 502 ,ca 27 ; 10 giver p := 12
[ 38] pp (r-4)[34] ,pp p-474 ; , giver p := 64
[ 39] ca 54 ,hv r-33 [6] ; f = F : fejl
_
[ 40] ca 30 ,pp 64 ; TAB
[ 41] ca 64 ,pp 64 ; CAR RET
[ 42] ca 58 ,hh r-9 [33] ; LC
[ 43] ca 60 ,hv r-9 [34] ; UC
[ 44] ca 32 ,pp 11 ; fortegn giver p := 11
[ 45] bs (r-11)[34] ,hv r5 [50] ; hop hvis UC
[ 46] ca 59 ,pp 12 ; . giver p := 12
[ 47] ca 16 ,ppn (r-25)[22] ; 0 giver Radr := 0 og
; p := 0 før . og -1 efter .
[ 48] is ,it s511 ; indeholder læste tegn
[ 49] bs -503 ,pp (r-27)[22] ; hvis ciffer saa p := 0 før .
; og p := -1 efter .
[ 50] bs p-501 ,hv r-15 [35] ; læs eventuelt et nyt tegn
[ 51] gp r31 [82] ,hr s1 ;
[ 52] pt r32 [84] t1 ; sæt fejludhop
[ 53] hv r30 [83] ,gm r37 [90] ; , exponentdel behandles
[ 54] pa r-32 [22] IZB ; ZB := 0 , sæt før .
[ 55] hs r5 [60] ,qq ; læs exp.del, s := 0 ved returhop
[ 56] pp (r-35)[21] X t485 ; pos exp. giver p := +1
[ 57] bs p-469 ,pp 1 ; neg exp. giver p := -1
[ 58] pm r31 [89] ,ck -10 ; tag exponentfaktor, exponent
; skydes paa plads
[ 59] ga r16 [75] ,hh r15 [74] ; gem ti-potens
[ 60] hsn r-25 [35] X ; læs et tegn, M := 0
[ 61] ca 32 ,it (r-27)[34] ; justere fortegn
[ 62] pa r-41 [21] ,ca 32 ;
[ 63] hs r-28 [35] IZB ; læs et tegn
[ 64] bs p ,hr s1 ; retur hvis ikke ciffer
[ 65] bs (r-51)[14] ,tk -30 ; skift til pos. 39 , hvis flyd.
[ 66] ml r21 [87] ; M := M⨯10 + ciffer
[ 67] pp p1 NZ ; øge p hvis resultatet løber ind
; i R ved lang mult.
[ 68] dl r19 [87] X NZ ; korrigere
[ 69] can p ,hv r-6 [63] ; hop hvis ti-potens omsætning
; er unødvendig
[ 70] gm r20 [90] ,pm r19 [89] ; ti-potens omsætning nødvendig
[ 71] mkn p ,nk r2 [73] ; mult. med 10/16 eller 0.8
[ 72] bs p ,it 4 ;
[ 73] it t-3 ;
[ 74] xr ,it -1 ;
[ 75] bt ,hv r-4 [71] ; hop hvis ti-potens behandles
[ 76] gm r13 [89] ,pm r14 [90] ;
[ 77] can s ,hv r-53 [24] ; s = 0 hvis exponent behandles
[ 78] hv r-15 [63] ,pp (r4)[82] ; nyt ciffer , afslut et tal
[ 79] bs p499 ,hv r-27 [52] ; fejl: forkert terminator
[ 80] bs (r-66)[14] ,hh r2 [82] ; hop hvis flydende
[ 81] arn r9 [90] V ; tag adressetal
[ 82] qqf ,arfn r8 [90] ; tag flydende tal
[ 83] pp ,ps (r-70)[13] ; retablere
[ 84] pi ,hr s ; returhop s1 eller s2
[ 85] qq IB ; 1 med enhed i pos. 39
[ 86] can s409 ,cm (r-410) ; 0.8 maskintal
[ 87] qq IZA ; 10 med enhed i pos. 39
[ 88] qq 320 ; 10/16 maskintal
[ 89] qq ; exponentfaktor
[ 90] qq ; arbejdscelle for tal
s
_