|
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: 5280 (0x14a0)
Description: Bits:30000569 GSL 472.22 T8, L4 (19) 17.07.68
Types: 8-hole paper tape
Notes: Gier Text
[ s t o p ] [17.7.68 T8 and L4 Gier algol 4 19] [Here follows STOPCODE and CLEARCODE][ s t o p ] [ c l e a r ] d e58=1 ; test tape number _<e49-5, <-e49+7, ; should be 8 or 6d e58=0 ; _⨯ ; <e49-7, <-e49+9, ;d e58=0 ; _> ; <e58 ;i wrong tape _s ; _> ;d e58=19 ; version number _<e58-e50, ; if version number T8 and L4 gr max version number __ __; then the following definitions are loaded; ____d e61=16 ; define version number T1 and L1 _d e62= 9 ; define version number T2 _d e63=18 ; define version number T3 _d e64=17 ; define version number T4 _d e65=15 ; define version number T5 _d e66=12 ; define version number T6 and L2 _d e67=14 ; define version number T7 and L3 _d e68=e58 ; define version number T8 and L4 _de50=e58 _> ; <e61-e51+1, ; test version number T1 and L1 <e51-e61+1,⨯ ;i wrong version number T1 and L1 _> ; <e68-e58+1, ; test version number T8 and L4 <e58-e68+1,⨯ ;i wrong version number T8 and L4 _> ; <e48, ; test version number T2 <e52-e62+1, ; <e62-e52+1,⨯ ; <e48, ;i wrong version number T2 _> ; <e48, ; test version number T3 <e53-e63+1, ; <e63-e53+1,⨯ ; <e48, ;i wrong version number T3 _> ; <e48, ; test version number T4 <e54-e64+1, ; <e64-e54+1,⨯ ; <e48, ;i wrong version number T4 _> ;[ s t o p ] [7.6.1967 T8 and L4 Gier algol 4 8 page 2] <e48, ; test version number T5 <e55-e65+1, ; <e65-e55+1,⨯ ; <e48, ;i wrong version number T5 _> ; <e56-e66+1, ; test version number T6 and L2 <e66-e56+1,⨯ ;i wrong version number T6 and L2 _> ; <e57-e67+1, ; test version number T7 and L3 <e67-e57+1,⨯ ;i wrong version number T7 and L3 _> ; [end std proc]t abs; ; _qq 0.9+ 1.23+ 0.29+ 5.33+46.39 ; qq 19.9 ;t char; ; _qq c54-c.9+ 1.23+ 1.29+ 4.33+24.39 ; qq ;t entier; ; _qq 0.9+ 1.23+ 0.29+ 5.33+45.39 ; qq 20.9 ;t gier; ; _qq 0.9+ 1.23+ 0.29+ 5.33+45.39 ; qq 16.9 ;t kbon; ; _qq 0.9+ 1.23+ 0.29+ 6.33+ 0.39 ; qq ;t lyn; ; _qq 0.9+ 1.23+ 0.29+ 7.33+ 0.39 ; qq ;t select; ; _qq 0.9+ 1.23+ 0.29+ 5.33+45.39 ; qq 17.9 ;t tracks transferred; ; _qq c61-c.9+ 1.23+ 1.29+ 4.33+24.39 ; qq ;t writechar; ; _qq 0.9+ 1.23+ 0.29+ 5.33+47.39 ; qq 18.9 ;t writecr; ; _qq 0.9+ 1.23+ 0.29+ 8.33+ 0.39 ; qq ; qqf d ;[ s t o p ] [7.6.1967 T8 and L4 Gier algol 4 8 page 3]<e48, ; if translator is in then __ ____b k=e23,i=0 ; load GPA segment word _d i=e21 ; _qq e19.9+e10.19-e28.19+e50.29e ; _> ; end; ___d e49=0 ; tape number:=0; _[After i follows STOPCODE,SUMCODE and a sum character] _i[ s t o p ] [ s u m ] [ 0 5 1 ] T8,L4 - wait - then SLIP or other _e _e _e _[ s t o p ]