mirror of
https://github.com/PDP-10/its.git
synced 2026-04-05 13:41:09 +00:00
29 lines
355 B
Plaintext
29 lines
355 B
Plaintext
;
|
|
; c20lib- random tops-20 midas stuff
|
|
;
|
|
|
|
title c20lib
|
|
.insrt c:minsrt
|
|
|
|
centry wfnz,[ptr] ; wait for word to become non-zero
|
|
|
|
wfnz1: move a,ptr
|
|
skipe (a)
|
|
jrst wfnz2
|
|
movei a,20.
|
|
disms
|
|
jrst wfnz1
|
|
wfnz2: return
|
|
|
|
centry wfz,[ptr] ; wait for word to become zero
|
|
|
|
wfz1: move a,ptr
|
|
skipn (a)
|
|
jrst wfz2
|
|
movei a,20.
|
|
disms
|
|
jrst wfz1
|
|
wfz2: return
|
|
|
|
end
|