DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen GIER Computer

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen GIER Computer

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦3482df800⟧ Bits:30000572 GSL 474.23 create new -> old (2) 5.08.67, 8-hole paper tape

    Length: 3239 (0xca7)
    Description: Bits:30000572 GSL 474.23 create new -> old (2) 5.08.67
    Types: 8-hole paper tape
    Notes: Gier Text

GIER Text (HTML)

[4.7.67                                          Create new -> old, page 1]

b a10, b10                 ;
_

i=10                       ;
     vk  960   , vk  0     ; START: read track 0;
     lk  b     , vy  33    ;   select(p, t);
     pa  b2    t   1       ;   chars:= 1;
     ly        D           ;   typechar;
     sy  14    , sy  17    ;   punch head;
     pt  -1    , vk  0     ;   sum:= 0;

a2h: pp  0     , pmn pb10  ;   for p:= 0 step 1 until 9 do
                               ___       ____   _____   __


     ar  1.1   D       LA  ;   begin
                               _____

     ar  1.2   D       LB  ;

b2:  qq  _     Xt  6       ;     chars:= chars + 6;
         1

a1h: cl  32    , ga  r1    ;     R:= boot[p]; M:= marks.2;

     sy  __    , it  -100  ;
         -1

     bt  0     , hv  r2    ;     punch the 6 characters;
     cl  -7    , hh  a1    ;
     pa  r-2   , pp  p1    ;

     ncn p-10  ,hh  a2    ;   end;
                              ___


a3h: pp  0     , pmn pb1   ;   for p:= 0 step 1 until 41 do
                               ___       ____   _____    __


     ar  1.1   D       LA  ;   begin
                               _____

     ar  1.2   D       LB  ;
     qq (b2)   t   7       ;     chars:= chars + 6;
     ck  3     X           ;     R:= code[p]; M:= mark.39;
     cl  34    , ps  -6    ;
a:   ck  -4    , ga  r2    ;
     bs  s1    , it  64    ;     punch the 7 characters,

     sy  __    , ps  s1    ;     the last with a 64-hole;
         -1

     bs  s     , hv  a4    ;
     cln -6    , hv  a     ;
a4:  pp  p1                ;

     ncn p-42  , hh  a3    ;   end;
                               ___

     sy  64    , it (b2)   ;   punch tail mark
     pa  -1    , arn -1    ;
     ck  10    , ga  r1    ;   and chars, sum

     sy  __    , ck  -7    ;
         -1

     ga  r1    , ck  -7    ;

     sy  __    , ga  r1    ;
         -1


     sy  __    , hv  10    ;   goto start;
         -1                    ____

[Bootstrap program, 6 7-bit characters / word.     Bits of: Curr instr, prec.]
b10:   qq   2.6+ 0.13+ 0.20+  0.27+ 5.34+ 4.39  ; hv s           25-39, length
               [bits 29-34, 36-38 is length]
       qq   2.6+ 4.13+ 0.20+  0.27+ 0.34+ 7.39  ; gm s7 t-1 M    25-39, 0-24
       qqf 28.6+ 2.13+ 0.20+127.27+63.34+11.39  ; hv s     IKC   19-39, 0-24
       qq  32.6+ 6.13+56.20+ 64.27+ 0.34+ 0.39  ; gr xx t1 MPC   25-39, 0-18
[4b10] qq   0.6+ 0.13+58.20+ 32.27+64.34+10.39, ; pi 0 t -49     31-39, 0-24
               [bits 15-20, 22-24 is 510 - length]
       qq  28.6+ 0.13+ 7.20+103.27+49.34+ 8.39  ; hv xx    MR    19-39, 0-30
[6b10] qq   0.6+32.13+64.20+ 58.27+56.34+ 0.39  ; tl 12 V        25-39, 0-18
               [bits 22-27, 29-31 is 513 - length]
       qqf 24.6+44.13+ 1.20+ 32.27+64.34+ 2.39  ; bs (r4)  IO    19-39, 0-24
       qq   0.6+ 0.13+32.20+ 64.27+ 0.34+ 0.39  ;                fill , 0-18
       qq             64.20+  0.27+ 0.34+ 0.39  ;                fill
b1:  vk  960   , vk  0     ; code: select and write track 0;

     sk  r1    , hv  r-1   ;       goto code;
                                   ____


b:   e 10                  ; track 0 is read to here;
     _

[stop]