projects
/
pdp10-muddle.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fixed systematic errors in the original MDL documentation scans (starting around...
[pdp10-muddle.git]
/
mimlib
/
flags.mud
1
<PACKAGE "FLAGS">
2
3
<RENTRY FLAGS BIT>
4
5
<USE "NEWSTRUC">
6
7
<DEFINE FLAGS ("TUPLE" F)
8
<REPEAT ()
9
<COND (<LENGTH? .F 1> <RETURN>)>
10
<MSETG <1 .F> <BIT <2 .F>>>
11
<SET F <REST .F 2>>>>
12
13
<DEFINE BIT (N)
14
#DECL ((N) FIX)
15
<COND (<0? .N> 1)
16
(ELSE
17
<COND (<G? .N 35>
18
<ERROR BIT-NOT-20-COMPATIBLE!-ERRORS .N>)
19
(<G? .N 31>
20
<ERROR BIT-NOT-VAX-COMPATIBLE!-ERRORS .N>)>
21
<CHTYPE <LSH 1 .N> FIX>)>>
22
23
<ENDPACKAGE>