00100	TITLE	CART
00200		
00300	; FIRE UP SPACE WAR JOB.
00400	L0:	MOVSI	1,200001
00500		HRRI	1,L4
00600		CALLI	1,400003
00700		OUTCHR	["*"]
00750		MOVEI	7
00775		MOVEM	BITS#
00800	; TTY LIISTEN LOOP.
00900	L1:	INCHRW
01000		CAIGE	"0"
01100		JRST	L2
01200		CAILE	"8"
01300		JRST	L2
01400		ANDI	7
01500		MOVEM	BITS
01600		JRST	L1
01700	
01800	L2:	CAIGE	"A"
01900		JRST	L3
02000		CAILE	"H"
02100		ANDI	7
02200		IORI	10
02300		MOVEM	BITS
02400		JRST	L1
02500	
02600	L3:	CAIN	15
02700		OUTCHR	["*"]
02800		JRST	L1
02900	
03000		
03100	; SPACE WAR OUTPUT TO RADIO TRANSMITTER.
03200	L4:	MOVE	BITS;
03300		TRNE	8↔	770200400054;		 1 ACTION;
03400		TRNN	8↔	770200620054;		 0 DIRECT;
03500		TRNE	1↔	770200440053;		 1 DRIVE;
03600		TRNN	1↔	770200620053;		 0 ;
03700		TRNE	2↔	770200410052;		 1 STEER;
03800		TRNN	2↔	770200600052;		 0 ;
03900		TRNE	4↔	770200360051;		1 CAMPAN;
04000		TRNN	4↔	770200570051;		0;
04100		770200340050
04200		770200340055
04300		CALLI	400024;		DISMIS
04400	
04500	END	L0