COMMENT ⊗ VALID 00002 PAGES RECORD PAGE DESCRIPTION 00001 00001 00002 00002 TITLE TEST 00003 ENDMK ⊗; TITLE TEST L1 ← <(1)> QQ: L1 ↓TBIT3←←1B20 ↓TBIT2←←1B19 ↓TBIT1←←1B18 ↓FOLDED ←← 1B11 ↓VISIBLE ←← 1B12 ↓POTENT ←← 1B13 DEFINE MARKZ(Q,BITS){ IFE <BITS>⊗-22,{MOVEI BITS} IFN <BITS>⊗-22,{MOVSI <BITS>⊗-22} ANDCAM (Q)} SA: MARKZ 1,FOLDED+VISIBLE+POTENT MARKZ 1,TBIT1+TBIT2+TBIT3 TLNE 0,(FOLDED+VISIBLE) END SA