.TITLE	OPTAB
/
/   THREE OPERATOR ARITHMETIC TABLE
/
EXTRA=0
MM=100
	.DEFIN	ROW,A,B,C,D,E,F,G,H,I
	.ETC	J,K,L,M,N,O,P,Q,R,S,T,U,V
	.DEC
	.IFZER	EXTRA
	ROW9	A,B,C,D,E,F,G,H,I
	ROW6	J,K,L,M,N,O
	ROW6	P,Q,R,S,T,U
XTRA=1
	.ENDC
	.IFZER	EXTRA-1
	ROW9	TWO,A,B,C,D,E,F,G,H,
	ROW6	I,J,K,L,M,N
	ROW6	O,P,Q,R,S,T
XTRA=2
	.ENDC
	.IFZER	EXTRA-2
	ROW9	ONE,TWO,A,B,C,D,E,F,G
	ROW9	H,I,J,K,L,M,N,O,P
	ROW6	Q,R,S,T,U,V
XTRA=0
	.ENDC
EXTRA=XTRA
ONE=U
TWO=V
	.ENDM
/
/
/
	.DEFIN	ROW6,A,B,C,D,E,F
	.DEC
	.DSA	A*MM+B*MM+C
	.DSA	D*MM+E*MM+F
	.ENDM
/
/
/
	.DEFIN	ROW9,A,B,C,D,E,F,G,H,I
	.DEC
	.DSA	A*MM+B*MM+C
	.DSA	D*MM+E*MM+F
	.DSA	G*MM+H*MM+I
	.ENDM
/
/  HERE COMMENCETH THE ACTUAL TABLES!
/
/  FILE S(
	ROW 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	ROW 49,49,49,49,49,49,49,49,49,49,49,49,49,49,49$
 49,49,49,49,49,49,49
/
/  FILE F(
	ROW 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	ROW 49,49,49,49,49,49,49,49,49,49,49,49,49,49,49$
49,49,49,49,49,49,49
/
/  FILE (
	ROW 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	ROW 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
/
/  FILE OR
	ROW 0,0,49,0,49,49,36,49,41,19,23,24,20,29,30,0$
0,0,0,0,0,49
	ROW 0,0,49,0,49,49,38,49,42,21,25,26,22,27,28,0$
0,0,0,0,0,49
/
/  FILE  AND
	ROW 0,0,49,0,49,49,35,32,41,19,23,24,20,29,30,0$
0,0,0,0,0,49
	ROW 0,0,49,0,49,49,37,34,42,21,25,26,22,27,28,0$
0,0,0,0,0,49
/
/  FILE  NOT
	ROW 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	ROW 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
/
/  FILE  LT
	ROW 18,15,49,49,49,49,49,49,49,0,0,0,0,0,0,40,39$
9,7,5,3,49
	ROW 13,18,49,49,49,49,49,49,49,0,0,0,0,0,0,39,40$
11,8,6,4,49
/
/  FILE GT
	ROW 18,15,49,49,49,49,49,49,49,0,0,0,0,0,0,40,39$
9,7,5,3,49
	ROW 13,18,49,49,49,49,49,49,49,0,0,0,0,0,0,39,40$
11,8,6,4,49
/
/  FILE  LE
	ROW 18,15,49,49,49,49,49,49,49,0,0,0,0,0,0,40,39$
9,7,5,3,49
	ROW 13,18,49,49,49,49,49,49,49,0,0,0,0,0,0,39,40$
11,8,6,4,49
/
/  FILE  GE
	ROW 18,15,49,49,49,49,49,49,49,0,0,0,0,0,0,40,39$
9,7,5,3,49
	ROW 13,18,49,49,49,49,49,49,49,0,0,0,0,0,0,39,40$
11,8,6,4,49
/
/  FILE  EQ
	ROW 18,15,49,49,49,49,49,49,49,0,0,0,0,0,0,40,39$
9,7,5,3,49
	ROW 13,18,49,49,49,49,49,49,49,0,0,0,0,0,0,39,40$
11,8,6,4,49
/
/  FILE NE
	ROW 18,15,49,49,49,49,49,49,49,0,0,0,0,0,0,40,39$
9,7,5,3,49
	ROW 13,18,49,49,49,49,49,49,49,0,0,0,0,0,0,39,40$
11,8,6,4,49
/
/  FILE  -
	ROW 17,16,49,49,49,49,0,0,0,49,49,49,49,49,49,40,39$
9,7,5,3,49
	ROW 14,17,49,49,49,49,0,0,0,49,49,49,49,49,49,39,40$
11,8,6,4,49
/
/  FILE  +
	ROW 17,16,49,49,49,49,0,0,0,49,49,49,49,49,49,40,39$
9,7,5,3,49
	ROW 14,17,49,49,49,49,0,0,0,49,49,49,49,49,49,39,40$
11,8,6,4,49
/
/  FILE  *
	ROW 49,49,49,49,49,49,0,0,0,49,49,49,49,49,49,40,39$
10,7,5,3,49
	ROW 49,49,49,49,49,49,0,0,0,49,49,49,49,49,49,39,40$
12,8,6,4,49
/
/  FILE  /
	ROW 49,49,49,49,49,49,0,0,0,49,49,49,49,49,49,40,39$
10,7,5,3,49
	ROW 49,49,49,49,49,49,0,0,0,49,49,49,49,49,49,39,40$
12,8,6,4,49
/
/  FILE  ^
	ROW 49,49,49,49,49,49,0,0,0,49,49,49,49,49,49,40$
39,49,49,49,49,49
	ROW 49,49,49,49,49,49,0,0,0,49,49,49,49,49,49,39$
40,49,49,49,49,49
/
/  FILE  -^
	ROW 49,49,49,49,49,49,0,0,0,49,49,49,49,49,49,40$
39,49,49,49,49,49
	ROW 49,49,49,49,49,49,0,0,0,49,49,49,49,49,49,39$
40,49,49,49,49,49
/
/  FILE  ,
	ROW 18,15,47,43,43,0,35,31,41,19,23,24,20,29,30$
40,39,9,7,5,3,43
	ROW 13,18,47,44,44,0,37,33,42,21,25,26,22,27,28$
39,40,11,8,6,4,44
/
/  FILE  =
	ROW 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	ROW 0,0,47,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
/
/  FILE  ;
	ROW 18,15,47,0,0,0,35,31,41,19,23,24,20,29,30,40$
39,9,7,5,3,0
	ROW 13,18,47,0,0,0,37,33,42,21,25,26,22,27,28,39$
40,11,8,6,4,0
/
/  FILE  )
	ROW 18,15,47,43,43,2,35,31,41,19,23,24,20,29,30$
40,39,9,7,5,3,43
	ROW 13,18,49,45,45,1,37,33,42,21,25,26,22,27,28,39$
40,11,8,6,4,45
/
/
/
	.IFNZR	EXTRA
	.IFZER	EXTRA-1
ONE=TW0
TWO=0
	.ENDC
	.DSA	ONE*MM+TWO*MM
	.ENDC
	.END