mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-02-17 13:17:52 +00:00
75 lines
708 B
ArmAsm
75 lines
708 B
ArmAsm
"** 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
|