.ENABLE SUBSTITUTION
	.DISABLE QUIET
	.IF P1 = ""    .GOTO 1
	.IF P1 = "ALL" .GOTO 1
	.IF P1 = "A" MAC @MODESASM
	.IF P2 = "B" TKB @MODESBLD
	.IF P3 = "R" REM MOD
	.IF P4 = "I" INS MODES
	.GOTO	END
.1:	
	MAC @MODESASM
	TKB @MODESBLD
	.IF P1 = "" .GOTO END
	REM MOD
	INS MODES
.END:
	.EXIT