7                                 8metab 7080 meter program
7                                 december-20-1963
7                                 when halt 2000 occurs
7                                 hit start.
7                                 program will time 72 seconds
7                                 & then halt.
7                                 press start for each repeat.
7                                 total time kept at location
7                                 2010 in hundredth of an hour
7                                 912 on- bypass halt 2000
7                                 912 off- halt after
7                                 every 72 seconds
7                                 for oil cooled memory
7                                 put 915 on before loading pgm.
7
      00004 eem 3 14  0000 0+-0
      00009 spc ,     0000
      00014 rad h 02 27244 p2m4
      00019 unl 7 02 27252 p2n2     zero loop time count
      00024 rad h 03 27257 p2e7
      00029 unl 7 03  2013 20a3     zero total time count
      00034 set b     0001
      00039 rcv u    20004 -004     first tzb generated at 20000
      00044 rad h 01 27262 p2w2
      00049 snd /    27269 p269     generate 1437 tzb,s
      00054 sub p 01 27271 p2x1
      00059 trz n 01  1959 19v9     out if last tzb generated
      00064 tr  1     0049
7
      01959 tra i 05  1984 1zy4     915 on for oil cooled
7
      01964 set b 01  0001 00 1
      01969 lod 8 01 27271 p2x1
      01974 unl 7 01 20025 -0s5     nop the sixth tzb
      01979 tr  1     1999
      01984 set b     0005
      01989 lod 8    27289 p289     make tzb at 26594 a tr
      01994 unl 7    26594 o594     to adm at end of loop
      01999 rad h 02 27279 p2p9     1  in asu 2
      02004 hlt j     2000
      02009 tr  1    20029 -029     to timing loop
7
7                                   timing loop is a series of
7                                   tzb instructions from 20029
7                                   to 27184
2 004 02013                    total count
2 001 02014                |
7
7
      27189 adm 6 02 27252 p2n2     add 1 to loop count
      27194 set b     0004
      27199 lod 8    27252 p252     lod 4 low digits of loop count
      27204 trz n    27214 p214     end 72 sec loop if zero
      27209 tr  1    20029 -029     repeat timing loop
      27214 add g 03 27281 p2h1
      27219 unl 7 03  2013 20a3     add 2 to total count
      27224 tra i 02 20029 -0k9     912 on -bypass halt
      27229 tr  1     2004
      27234 tr  1     2004
7
7                                   constants
2 010 27244                  0000000+
2 008 27252                00000000
2 005 27257                a000+
2 005 27262                a143g
2 002 27264                 =20
2 005 27269                .20-4  tzb 2004 on 2 bit
2 002 27271                aa
2 008 27279                0000000a
2 002 27281                ab
2 005 27289 00             1p189    =20