|
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: 685 (0x2ad) Description: Bits:30000648 ret T2 (-end) Types: 8-hole paper tape Notes: Gier Text
c2:___ ...c19:___ ...c17:___ ...hvc2_ .; test if end input:c8: arn c2 ,sr 8a30; if input instruction 1 | pmn(e1)Xt1 then __ = ____hv c9 NZ ; goto forbidden; ____pa a10 t i+1; set return from end to here:hs c49 ; mess1(|<-end|, 0, 1); < >hv c22,qq sd64; goto end; ______ ..d63:ttypein;_ _ .d64:t-end;__ _ ..d74:___ ...qq66.9+d76.19+73.29___ 4.39f_ ... .hvf c8 ,qqf ; 10, EM (-,tape reader), vend_qqt_ ____. .d52:___ ...qqc27.9+d.19+78.29___ 1.39f_ ... .hvf c8 ,qqf ; 10, EM (-,tape reader), vend_qqt_ ____. .[ s t o p ]