added stat.s, tm.s

2019-10-18 03:09:26 -04:00
parent e94417092a
commit e69f512977
2 changed files with 193 additions and 0 deletions
@@ -0,0 +1,74 @@
+"** 13-120-147.pdf page 3
+" tm
+
+   sys time
+   cll
+   div
+   216000
+   dac t1
+   lacq
+   cll
+   idiv
+   10
+   tad o60
+   dac buf+1
+   lacq
+   cll; idiv; 10
+   tad o60
+   dac buf
+   lacq
+   sna
+   jmp 1f
+   tad o60
+   alss 9
+   xor buf
+   dac buf
+1:
+   lac t1
+   cll
+   idiv
+   6
+   lacq
+   cll
+   idiv
+   10
+   tad o56060
+   dac buf+6
+   lacq
+   cll
+   idiv
+   10
+   tad o60
+   dac buf+5
+   lacq
+   cll
+   idiv
+   6
+   tad o72060
+   dac buf+4
+   lacq
+   cll
+   idiv
+   10
+   tad o60
+   dac buf+3
+   lacq
+   cll
+   idiv
+   6
+   tad o72060
+   dac buf+2
+   lac d1
+   sys write; buf; 8
+   sys exit
+
+"** 13-120-147.pdf page 4
+d1: 1
+d13: 13
+d2: 2
+o60: 060
+o56060: 056060
+o72060: 072060
+t1: 0
+t2: 0
+buf: .=.+7; 012