/010 PAL MESSAGE PRINTER
/PRINTS A MESSAGE CODED EWITH THE PAL PSEUDO-OP
/'TEXT'. PAL3 AND PAL8 COMPATIBLE
/
/	JMS PRMESG
/	   MESG
/	RETURN	/AC=0
/
/MESG,	TEXT 'ABC82' CODED AS 0102;0370; 6200

	77		/MASK
	-40		/TO TEST
	240		/TO MAKE ASCII
	100		/TO MAKE ASCII
	0		/PACKSWITCH 0=LEFT;7777=R
	0		/POINTER
PRMESG,	0
	CMA		/SAVE POINTER(-1)
	TAD I PRMESG
	DCA PRMESG-1
	ISZ PRMESG	/FOR RETURN
PRM1,	CMA
	DCA PRMESG-2	/PACKSW=RIGHT
	ISZ PRMESG-1	/NEXT WORD
	TAD I PRMESG-1	/FETCH AND ROTATE 6
	RTR
	RTR
	RTR
PRM2,	AND PRMESG-6	/MASK 6 BITS
	SNA
	JMP I PRMESG	/ZERO ENDS THE LIST
	TAD PRMESG-5	/<40?
	SPA
	TAD PRMESG-3	/YES ASCII 301-337
	TAD PRMESG-4	/NO,ASCII 240-277
	JMS PRINT
	ISZ PRMESG-2	/LEFT OR RIGHT?
	JMP PRM1	/LEFT
	TAD I PRMESG-1	/RIGHT
	JMP PRM2